SHARE
TWEET

UPDOWN_2.txt

YaQNjx Oct 12th, 2019 165 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. EXPORT UPDOWN()
  2.  
  3. BEGIN
  4.  
  5. LOCAL LVS,NLV,NLU,NLD,PIT,SCU,SCD,SCO;
  6.  
  7. LOCAL MUL,STT,DOT,TH,SPEED,MSG,TWOU,TWOD;
  8.  
  9. {{{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;
  10.  
  11. "Game over!"►MSG;
  12. 0►TWOU;0►TWOD;
  13. CHOOSE(SPEED,"Choose a difficulty","Only for babies","Easy","Medium","Hard");
  14.  
  15. 600-100*SPEED►SPEED;
  16.  
  17. IF SPEED == 600 THEN
  18.  
  19. MSGBOX("You Choosed The Hidden HELL Difficulty.
  20.  
  21. Good Luck :)");
  22.  
  23. 100►SPEED;
  24.  
  25. END;
  26. IF SPEED == 500 THEN
  27.  
  28. //600►SPEED;
  29.  
  30. //{{{3,3,1,3,3,3,1,3},{3,3,3,3,3,3,3,3}}}►LVS;
  31. "Game over, My little baby!"►MSG;
  32. END;
  33. WHILE 1 DO
  34.  
  35. RECT_P();
  36.  
  37. RECT_P(0,40,255,42,0);
  38.  
  39. RECT_P(0,104,255,106,0);
  40.  
  41. RECT_P(53,0,57,19,0);
  42.  
  43. RECT_P(53,107,57,126,0);
  44.  
  45. MAKELIST(3,X,1,16,1)►SCU;
  46.  
  47. MAKELIST(3,X,1,16,1)►SCD;
  48.  
  49. //MSGBOX("hi");
  50.  
  51. 1►DOT;
  52.  
  53. 1►MUL;
  54.  
  55. 0►SCO;
  56.  
  57. 1►PIT;
  58.  
  59. {}►NLU;
  60.  
  61. Time - SPEED►STT;
  62.  
  63. //400►SPEED;
  64.  
  65.  
  66.  
  67. WHILE 1 DO
  68.  
  69. IF Time - STT > SPEED THEN
  70.  
  71.  
  72.  
  73. IF PIT > SIZE(NLU) THEN
  74.  
  75. LVS(CEILING(SIZE(LVS)*RANDOM()))►NLV;
  76.  
  77. IF RANDOM() > 0.5 THEN
  78.  
  79. NLV(1)►NLU;
  80.  
  81. NLV(2)►NLD;
  82.  
  83. ELSE
  84.  
  85. NLV(2)►NLU;
  86.  
  87. NLV(1)►NLD;
  88.  
  89. END;
  90.  
  91.  
  92.  
  93. 1►PIT
  94.  
  95. END;
  96.  
  97. STT +SPEED►STT;
  98.  
  99.  
  100. IF SPEED>400 THEN
  101.  
  102. IF TWOU==1 THEN
  103. 3►NLU[PIT];
  104. 0►TWOU;
  105. END;
  106.  
  107. IF TWOD==1 THEN
  108. 3►NLD[PIT];
  109. 0►TWOD;
  110. END;
  111.  
  112. IF NLU[PIT]3 THEN
  113. 1►TWOU;
  114. 1►NLU[PIT];
  115. END;
  116.  
  117. IF NLD[PIT]3 THEN
  118. 1►TWOD;
  119. 1►NLD[PIT];
  120. END;
  121.  
  122. END;
  123.  
  124. CONCAT(MAKELIST(SCU(X),X,2,16,1),{NLU[PIT]})►SCU;
  125.  
  126. CONCAT(MAKELIST(SCD(X),X,2,16,1),{NLD[PIT]})►SCD;
  127.  
  128. PIT + 1►PIT;
  129.  
  130.  
  131.  
  132. RECT_P(127-4*dim(string(SCO)),55,127+4*dim(string(SCO)),70);
  133.  
  134. TEXTOUT_P(SCO,G0,127-4*dim(string(SCO)),55,2,0);
  135.  
  136.  
  137.  
  138. RECT_P(167,55,199,70,3);
  139.  
  140. TEXTOUT_P("+" + string(100 * MUL - 100),G0,167,55,2,0);
  141.  
  142.  
  143.  
  144. IF SPEED ≥ 200 THEN
  145.  
  146. RECT_P(0,24,255,39);
  147.  
  148. RECT_P(0,88,255,103);
  149.  
  150.  
  151.  
  152.  
  153.  
  154. END;
  155.  
  156.  
  157.  
  158. FOR TH FROM 1 TO 16 DO
  159.  
  160. RECT_P(16*TH-16,24+(6*(SCU(TH) MOD 3)),16*TH-1,39,SCU(TH));
  161.  
  162. RECT_P(16*TH-16,88+(6*(SCD(TH) MOD 3)),16*TH-1,103,SCD(TH));
  163.  
  164. END;
  165.  
  166. IF DOT == 1 THEN
  167.  
  168. RECT_P(53,29,57,33,0);
  169.  
  170. ELSE
  171.  
  172. RECT_P(53,93,57,97,0);
  173.  
  174. END;
  175.  
  176. IF (DOT == 1 AND SCU(4)3) OR (DOT == 2 AND SCD(4)3) THEN
  177.  
  178. BREAK;
  179.  
  180. END;
  181.  
  182.  
  183.  
  184. IF SCU(3) == 1 OR SCD(3) == 1 THEN
  185.  
  186. 1►MUL;
  187.  
  188. END;
  189.  
  190. END;
  191.  
  192.  
  193.  
  194. IF DOT ==1 AND ISKEYDOWN(19) THEN
  195.  
  196. 2►DOT;
  197.  
  198. RECT_P(53,29,57,33,3);
  199.  
  200. RECT_P(53,93,57,97,0);
  201.  
  202. IF SCD(4) == 0 THEN
  203.  
  204. BREAK;
  205.  
  206. END;
  207.  
  208. IF SCD(4) == 1 THEN
  209.  
  210. 3►SCD(4);
  211.  
  212. RECT_P(48,88,63,103,3);
  213.  
  214. RECT_P(53,93,57,97,0);
  215.  
  216. CEILING(100 * MUL) +SCO►SCO;
  217.  
  218. MUL + 0.5►MUL;
  219.  
  220. END;
  221.  
  222. END;
  223.  
  224.  
  225.  
  226. IF DOT ==2 AND ISKEYDOWN(17) THEN
  227.  
  228. 1►DOT;
  229.  
  230. RECT_P(53,29,57,33,0);
  231.  
  232. RECT_P(53,93,57,97,3);
  233.  
  234. IF SCU(4) == 0 THEN
  235.  
  236. BREAK;
  237.  
  238. END;
  239.  
  240. IF SCU(4) == 1 THEN
  241.  
  242. 3►SCU(4);
  243.  
  244. RECT_P(48,24,63,39,3);
  245.  
  246. RECT_P(53,29,57,33,0);
  247.  
  248. CEILING(100 * MUL) +SCO►SCO;
  249.  
  250. MUL + 0.5►MUL;
  251.  
  252. END;
  253.  
  254. END;
  255.  
  256.  
  257.  
  258. END;
  259.  
  260.  
  261.  
  262. IF DOT == 1 THEN
  263.  
  264. RECT_P(54,30,56,32);
  265.  
  266. ELSE
  267.  
  268. RECT_P(54,94,56,96);
  269.  
  270. END;
  271.  
  272. INVERT_P();
  273.  
  274.  
  275. WAIT(1);
  276.  
  277. IF MSGBOX(MSG + "
  278.  
  279. Your score:" + string(SCO) + ".
  280.  
  281. Play again?",1)1 THEN
  282.  
  283. BREAK;
  284.  
  285. END;
  286.  
  287. END;
  288.  
  289. END;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top