UPDOWN_2.txt

EXPORT UPDOWN()

BEGIN

LOCAL LVS,NLV,NLU,NLD,PIT,SCU,SCD,SCO;

LOCAL MUL,STT,DOT,TH,SPEED,MSG,TWOU,TWOD;

{{{3,3,1,3,3,3,1,3},{1,3,3,3,1,3,3,3}},{{3,3,3,3,1,0,3,3,3,3,3,3,1,0,3,3},{1,0,3,3,3,3,3,3,1,0,3,3,3,3,3,3}},{{3,0,3,1,0,1,1,1,1,3,3,3},{3,3,3,3,3,3,3,3,3,3,3,3}},{{3,3,1,3,3,3,0,3,3,3,0,3},{0,3,3,3,0,3,3,3,1,3,3,3}},{{3,3,3,3,3,3,3,3},{0,3,3,3,3,1,1,3}},{{3,3,3,3,3,3,3,3,3,3,3,3},{3,3,0,1,1,3,1,3,1,0,0,3}},{{1,3,1,3,1,3,1,3,1,3,1,3},{3,3,3,3,3,3,3,3,3,3,3,3}},{{3,3,0,3,3,3,1,3,3,3},{0,3,3,3,0,3,3,3,1,3}},{{0,3,1,3,3,3,0,3,1,3,3,3,3},{3,3,3,0,3,1,3,3,3,0,3,1,3}},{{0,1,3,3,3,0,1,3,3,3},{3,3,1,0,1,3,3,1,0,3}},{{3,3,1,3,0,1,3,1,3,3},{3,1,3,1,3,3,1,3,0,3}},{{3,3,0,0,0,0,3,0,0,3},{3,3,3,3,3,3,3,3,3,3}},{{1,3,1,3,1,1,3,3,1,3,3,3,1,1,3},{3,1,3,1,3,3,3,1,3,1,1,3,3,3,3}},{{1,0,1,3,3,3,1,0,1,3,3,3,3},{3,3,3,1,0,1,3,3,3,1,0,1,3}},{{3,3,3,3,3,3,0,1,1,0,3},{3,0,1,1,0,3,3,3,3,3,3}}}►LVS;

"Game over!"►MSG;
0►TWOU;0►TWOD;
CHOOSE(SPEED,"Choose a difficulty","Only for babies","Easy","Medium","Hard");

600-100*SPEED►SPEED;

IF SPEED == 600 THEN

MSGBOX("You Choosed The Hidden HELL Difficulty.

Good Luck :)");

100►SPEED;

END;
IF SPEED == 500 THEN

//600►SPEED;

//{{{3,3,1,3,3,3,1,3},{3,3,3,3,3,3,3,3}}}►LVS;
"Game over, My little baby!"►MSG;
END;
WHILE 1 DO

RECT_P();

RECT_P(0,40,255,42,0);

RECT_P(0,104,255,106,0);

RECT_P(53,0,57,19,0);

RECT_P(53,107,57,126,0);

MAKELIST(3,X,1,16,1)►SCU;

MAKELIST(3,X,1,16,1)►SCD;

//MSGBOX("hi");

1►DOT;

1►MUL;

0►SCO;

1►PIT;

{}►NLU;

Time - SPEED►STT;

//400►SPEED;



WHILE 1 DO

IF Time - STT > SPEED THEN



IF PIT > SIZE(NLU) THEN

LVS(CEILING(SIZE(LVS)*RANDOM()))►NLV;

IF RANDOM() > 0.5 THEN

NLV(1)►NLU;

NLV(2)►NLD;

ELSE

NLV(2)►NLU;

NLV(1)►NLD;

END;



1►PIT

END;

STT +SPEED►STT;


IF SPEED>400 THEN

IF TWOU==1 THEN
3►NLU[PIT];
0►TWOU;
END;

IF TWOD==1 THEN
3►NLD[PIT];
0►TWOD;
END;

IF NLU[PIT]≠3 THEN
1►TWOU;
1►NLU[PIT];
END;

IF NLD[PIT]≠3 THEN
1►TWOD;
1►NLD[PIT];
END;

END;

CONCAT(MAKELIST(SCU(X),X,2,16,1),{NLU[PIT]})►SCU;

CONCAT(MAKELIST(SCD(X),X,2,16,1),{NLD[PIT]})►SCD;

PIT + 1►PIT;



RECT_P(127-4*dim(string(SCO)),55,127+4*dim(string(SCO)),70);

TEXTOUT_P(SCO,G0,127-4*dim(string(SCO)),55,2,0);



RECT_P(167,55,199,70,3);

TEXTOUT_P("+" + string(100 * MUL - 100),G0,167,55,2,0);



IF SPEED ≥ 200 THEN

RECT_P(0,24,255,39);

RECT_P(0,88,255,103);





END;



FOR TH FROM 1 TO 16 DO

RECT_P(16*TH-16,24+(6*(SCU(TH) MOD 3)),16*TH-1,39,SCU(TH));

RECT_P(16*TH-16,88+(6*(SCD(TH) MOD 3)),16*TH-1,103,SCD(TH));

END;

IF DOT == 1 THEN

RECT_P(53,29,57,33,0);

ELSE

RECT_P(53,93,57,97,0);

END;

IF (DOT == 1 AND SCU(4) ≠ 3) OR (DOT == 2 AND SCD(4) ≠ 3) THEN

BREAK;

END;



IF SCU(3) == 1 OR SCD(3) == 1 THEN

1►MUL;

END;

END;



IF DOT ==1 AND ISKEYDOWN(19) THEN

2►DOT;

RECT_P(53,29,57,33,3);

RECT_P(53,93,57,97,0);

IF SCD(4) == 0 THEN

BREAK;

END;

IF SCD(4) == 1 THEN

3►SCD(4);

RECT_P(48,88,63,103,3);

RECT_P(53,93,57,97,0);

CEILING(100 * MUL) +SCO►SCO;

MUL + 0.5►MUL;

END;

END;



IF DOT ==2 AND ISKEYDOWN(17) THEN

1►DOT;

RECT_P(53,29,57,33,0);

RECT_P(53,93,57,97,3);

IF SCU(4) == 0 THEN

BREAK;

END;

IF SCU(4) == 1 THEN

3►SCU(4);

RECT_P(48,24,63,39,3);

RECT_P(53,29,57,33,0);

CEILING(100 * MUL) +SCO►SCO;

MUL + 0.5►MUL;

END;

END;



END;



IF DOT == 1 THEN

RECT_P(54,30,56,32);

ELSE

RECT_P(54,94,56,96);

END;

INVERT_P();


WAIT(1);

IF MSGBOX(MSG + "

Your score:" + string(SCO) + ".

Play again?",1) ≠ 1 THEN

BREAK;

END;

END;

END;