Textcolor(yellow); gotoxy(1,13);

M_Print_Z('so, Yes_ or No_ ? (y/n): ');

Delay(1000);

gotoxy(8,13); TextColor(LightRed); write('@');

gotoxy(15,13); TextColor(LightBlue); write('@');

Gotoxy(25,13); TextColor(white); readln(yn0);

until (Upcase(yn0)='N') or (Upcase(yn0)='Y');

if Upcase(yn0)='N' then halt;

M_Print_Light('//For WR rozgortajte Window (in High Dimensions) - CRT ne idealen //',15);

go1:

{osvouemo vymiry}

Repeat

if x=dim+1 then begin x:=dim;break; end; {vyhid z ciklu, jaksho vsi rivni projdeni}

max:=0; col:=2; iter:=3; wrabbit:=false; raize:=false; {inicializacia zminnyh, z procedur poshuku shlahiv}

{-privetstvuem 4erepashku jak mozhemo-}

Clrscr; delay(3000); TextColor(14);

M_Print('Cherepashka: find thy way thru Matrix: (r/d).');delay(100);

if x<dim then dd:=inttostr(x)+'-th' else dd:='Entire';

M_Print(' You are in ' + dd + ' dimension'); delay(1000);writeln;

{-zapovnennja i vyvedennja matrici bonusiv A-}

TextColor(15); randomize;

for i:=1 to x do begin

for j:=1 to x do begin

a[i,j]:=random(c);write(a[i,j]:2);

End;

Writeln;

End;

{-inicializacia Matryci Bilogo Krolika-}

for i:=1 to x do

for j:=1 to x do

b[i,j]:=-1;

{-obchyslennja Matryci Bilogo Krolika v rekursyvnij funkcij "Cherepashka"-}

limit:=Cherepashka(x,x); {maximum jakogo treba dosagnuty dla prohodzhennja vymiry}

{inicializacia i obchyslennya pravilnyh shlahiv "way" - rekursyvnou procedurou "path"}

for i:=0 to x do

for j:=0 to x do

way[i,j]:=false;

path(x,x); way[x,x]:=true;

{-------------------------------}

if limit<10 then r:=2 else if limit<100 then r:=3 else r:=4;

{r - kilkist pozycij na cifru v Matryci Bilogo Krolika}

FindingPath; {shukaemo shlah}

If raize then

begin x:=x+1;continue; end; {yakscho vse udalos`- vyhodym v nastupny vymir}

{...a net - daem ostannij 100% shans}

writeln; gotoxy(1,x+4); Write(' ');

gotoxy(1,x+4); TextColor(yellow); M_Print('Matrix follows you, 4erepashka. ');

gotoxy(1,x+3); write('>>'); Delay(1000);

M_Print(' Maybe you will find your way from the back? ');

FindingPathBack;

If raize then

begin x:=x+1;continue; end;

until (not raize) or ((x=dim) and raize); {poky ne zdamos` abo dijdem do kincya}

{----------------------------pidbyvaem pidsumky...-----------------------------}

if ((x=dim) and raize) then begin NeoCherepashka;halt; end;

{radostny final i perehod v necifrovu mnogomernost`}

{-a esle iz vsima pidkazkapy ne projshla, greX ne poizdevat`sa, a takzhe pokazat reshenie-}

BlinkMatrix_fin;

TextColor(white);gotoxy(1,1);delay(1000);

M_Print_Z('//\\//\\//\\//\\//\\//\\//\\//\\//\\|:)~ '); Delay(1000);

TextBackGround(white);TextColor(black); write(' Matrix has you, indeed! ');

TextBackGround(black);write(' '); gotoxy(1,x+3);

write(' ');

Delay(1000);

{Pravilne rishennja: zmeji povzut`...}

Textcolor(red);

for i:=1 to x do begin

for j:=1 to x do

if way[i,j] then begin

gotoxy(2*j,i+1);write(a[i,j]); {...Matriceu 4erepashky}

gotoxy(r*j-r+1, i+5+x); write(B[i,j]:r); {...Matriceu Bilogo Krolika}

Delay(200);

End;

Writeln;

End;

Writeln; delay(1000);

{---krolik i udav---}

textcolor(yellow); gotoxy(1,x+4);

write('<<');delay(200); textcolor(darkgray);write('=');delay(400); HideCursor; {hvist}

for i:=2 to 15 do begin

TextColor(i); gotoxy(4*(i-1),x+4);

write('//');delay(100);write('\\'); delay(100); write('|:)~');delay(400);

end; {povze}

for i:=1 to 5 do begin

gotoxy(4*15+1,x+4);

If odd(i) then textcolor(green) else textcolor(yellow);

If odd(i) then delay(400) else delay(600);

if odd(i) then write(';') else write(':');

gotoxy(4*15+6,x+4);

if i=2 then begin textcolor(lightgray); write('=:|'); delay(200); end;

if i=4 then begin textcolor(darkgray); write('=:0'); delay(200); end;

end; {gipnotizue}

Delay(600);

textcolor(darkgray);gotoxy(4*(15-1),x+4);

write('//'); delay(200); write('\\'); delay(200);

textcolor(white); gotoxy(4*15,x+4);

write('//'); delay(100); write('\\');delay(100);

write('|'); textcolor(yellow); write(':'); textcolor(white); write(')');

Delay(600);

textcolor(red);write('~ ');textcolor(green); gotoxy(4*15+5,x+4); write(';');

{zazherla i oblyzalas`}

Delay(1000);

{proschanie...}

textcolor(white); gotoxy(1,x+2);

write(' ');

gotoxy(1,x+2);

M_Print_Z('FareWell, 4erepashka...best way is Imp-possible, non-for-you: reload yourself>>');

Delay(1000);

i:=75;j:=x+3;gotoxy(i,j);

textcolor(lightgray);write('>>:->');delay(2000);

gotoxy(i+2,j);textcolor(lightred); write(';');

gotoxy(i+4,j);textcolor(lightgray);write(')');

Showcursor;

gotoxy(70,2*x+7);delay(1000);

CopyRight; {mij avtorsky znak}

gotoxy(1,2*x+7); textcolor(black);

delay(3000); halt; {real EXIT}

End.

{

\\ //

~(*|*|:)

// \\

Date: 2015-12-24; view: 1302