API tools faq
paste
felixnardella

KickMilan.bas

felixnardella
Oct 24th, 2019
168
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.00 KB | None | 0 0
raw download clone embed print report
  1. 10 rem@ £ALLRAM
  2. 15 v=53248:vi=2040:z=56320:zx=5:x=150:y=207:y(1)=100:y(2)=y(1):k=2:lv=1
  3. 16 y(3)=y(2):y(4)=y(3):si=54272:ko=53280:s=1024:ta=198:r=2:ifrnd(0)>.5thenr=1
  4. 20 pokeko,0:pokeko+1,0:d1=2*k:d2=k:d3=-k:d4=-k:d5=k:x1=115:x2=215:x3=135:x4=235
  5. 30 gosub2000:restore:print"{clear}":fori=1to135:readq:next:gosub2310
  6. 80 sc=0:li=5:k=2:lv=1:gosub2220
  7. 90 pokev+37,2:pokev+38,10:pokev+21,255
  8. 100 forn=12800to13245:readq:poken,q:next:print"{home}"tab(15)"{down*16} "
  9. 110 pokev+39,7:pokev+40,7:pokev+41,7:pokev+42,7:pokev+43,4:pokev+44,4
  10. 115 pokev+45,5:pokev+46,2
  11. 120 pokevi,200:pokevi+2,206:pokevi+3,203:pokevi+5,206
  12. 130 pokevi+6,206:pokevi+7,206
  13. 165 d=peek(v+30):j=peek(z):if(jand4)=0thenx=x-zx
  14. 166 if(jand8)=0thenx=x+zx
  15. 167 ifx>254thenx=255
  16. 168 ifx<94thenx=93
  17. 170 pokev+28,11:pokev+29,24:pokev+23,24
  18. 172 if(jand16)=0thenif(jand4)=0thenx=x+zx
  19. 173 if(jand16)=0thenif(jand8)=0thenx=x-zx
  20. 174 ax=x:ay=y+20:cx=x-11:cy=y+3
  21. 175 o=x/2:ifo=int(o)thenpokevi+1,201:pokevi+4,204
  22. 176 ifo<>int(o)thenpokevi+1,202:pokevi+4,205
  23. 178 if(jand16)=0orj=103orj=107thenax=0:ay=0:ex=x-13:ey=y
  24. 189 if(jand16)thenex=0:ey=0
  25. 380 pokev,x:pokev+1,y:pokev+2,ax:pokev+3,ay:pokev+4,x3:pokev+5,y(3):pokev+6,ex
  26. 390 pokev+7,ey:pokev+8,cx:pokev+9,cy:pokev+10,x4:pokev+11,y(4)
  27. 392 pokev+12,x1:pokev+13,y(1):pokev+14,x2:pokev+15,y(2)
  28. 402 y(r)=y(r)+d1:x1=x1+d2:x2=x2+d3:x3=x3+d4:x4=x4+d5
  29. 403 ify(1)>253theny(1)=100:r=2:gosub2460
  30. 405 ify(2)>253theny(2)=100:r=3:gosub2460
  31. 406 ify(3)>253theny(3)=100:r=4:gosub2460
  32. 410 ify(4)>253theny(4)=100:r=1:gosub2460
  33. 415 ifd=83ord=243theny(1)=100:r=2:gosub2530
  34. 420 ifd=147ord=119ord=183ord=247theny(2)=100:r=3:gosub2530
  35. 422 ifd=23ord=119ord=183theny(3)=100:r=4:gosub2530
  36. 423 ifd=51ord=119ord=183theny(4)=100:r=1:gosub2530
  37. 424 ifsc=50thenk=3:lv=2:gosub2302:print"{home}"spc(21)lv:sc=51
  38. 425 ifsc=100thenk=4:lv=3:gosub2302:print"{home}"spc(21)lv:sc=101
  39. 426 ifd=28ord=56ord=88ord=124ord=152ord=248thend1=-2*k
  40. 434 ifx1<85thend2=k
  41. 435 ifx1>249thend2=-k
  42. 438 ifx2>249thend3=-k
  43. 439 ifx2<85thend3=k
  44. 449 ifx3<85thend4=k
  45. 459 ifx3>249thend4=-k
  46. 469 ifx4<85thend5=k
  47. 479 ifx4>249thend5=-k
  48. 540 ify(1)<100thend1=2*k
  49. 545 ify(2)<100thend1=2*k
  50. 555 ify(3)<100thend1=2*k
  51. 565 ify(4)<100thend1=2*k
  52. 899 goto165
  53. 900 data 7,53,500,8,23,140,8,147,140,7,53,140,9,159,800
  54. 910 data 8,147,140,8,23,140,8,147,140,8,23,750,7,53,800
  55. 920 data 0,0,200,7,53,500,8,23,140,8,147,140,7,53,140,9,159,800
  56. 930 data 8,147,140,8,23,140,8,147,140,9,159,750,10,205,800
  57. 935 data 0,0,200,10,205,500,11,114,140,10,205,140,11,114,140,10,205,800
  58. 940 data 9,159,140,9,159,140,8,147,140,9,159,750,10,205,800
  59. 950 data 0,0,200,10,205,500,11,114,140,10,205,140,11,114,140,10,205,800
  60. 960 data 8,147,140,8,147,140,9,159,140,8,23,750,7,53,800,0,0,200
  61. 970 data -1,-1,-1
  62. 1625 data 17,37,140,22,227,110,28,214,140
  63. 1630 data 28,214,140,28,214,110,25,177,110
  64. 1635 data 30,141,110,28,214,690,28,214,110
  65. 1640 data 28,214,140,25,177,110,22,227,140
  66. 1645 data 21,154,110,22,227,110,25,177,890
  67. 1650 data -1,-1,-1
  68. 1660 data 0,0,0,0,0,0,0,0,0,0,32,0,0,32,0,0
  69. 1670 data 168,0,2,170,0,0,212,0,0,52,0,1,244,0,0,244
  70. 1680 data 0,0,116,0,0,252,0,2,102,0,0,152,0,2,154,0
  71. 1690 data 10,150,128,8,148,128,8,164,128,12,164,192,12,168,192,135
  72. 1700 data 0,0,0,0,0,0,10,168,0,10,168,0,10,168,0,2,128,0
  73. 1710 data 2,128,0,0,160,0,0,160,0,0,40,0,0,84,0,0,84,0
  74. 1720 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  75. 1730 data 0,0,0,0,0,0,135
  76. 1740 data 0,0,0,0,0,0,0,168,0,0,168,0,2,168,0,2
  77. 1750 data 160,0,10,160,0,42,128,0,42,128,0,42,0,0,10,128
  78. 1760 data 0,10,128,0,2,128,0,2,128,0,0,128,0,0,128,0
  79. 1770 data 5,64,0,5,64,0,0,0,0,0,0,0,0,0,0,135
  80. 1780 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  81. 1790 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  82. 1800 data 0,0,40,0,2,170,0,74,10,128,106,10,169,104,2,169
  83. 1810 data 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,135
  84. 1820 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  85. 1830 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  86. 1840 data 0,0,248,0,1,36,0,1,36,0,2,34,0,3,254,0
  87. 1850 data 2,34,0,1,36,0,1,36,0,0,248,0,0,0,0,4
  88. 1860 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  89. 1870 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  90. 1880 data 0,0,248,0,1,4,0,1,140,0,2,82,0,2,34,0
  91. 1890 data 2,82,0,1,140,0,1,4,0,0,248,0,0,0,0,4
  92. 1900 data 0,0,0,0,0,0,0,0,0,0,56,0,0,254,0,1
  93. 1910 data 255,0,3,191,128,7,127,192,7,127,192,7,127,192,7,255
  94. 1920 data 192,3,255,128,3,255,128,1,255,0,0,254,0,0,56,0
  95. 1930 data 0,16,96,0,12,128,0,3,0,0,0,0,0,0,0,7
  96. 1940 data 137,43,140,111,88,140,122,52,140,102,194,140
  97. 1950 data 111,88,140,91,140,140,102,94,140,91,140,140
  98. 1960 data 86,105,280,76,252,280,68,149,480,-1,-1,-1
  99. 2000 print"{clear}":print
  100. 2010 PRINT"{green}QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ";
  101. 2015 PRINT
  102. 2020 PRINT"{red}Q Q QQ Q Q Q Q Q QQ Q Q";
  103. 2025 PRINT"Q Q Q Q Q Q Q QQ QQ Q Q Q Q Q Q";
  104. 2030 PRINT"QQ Q Q QQ Q Q Q Q Q Q Q QQ Q";
  105. 2035 PRINT"QQ Q Q QQ Q Q Q Q QQQQ Q QQ";
  106. 2040 PRINT"Q Q Q Q Q Q Q Q Q Q Q Q Q Q";
  107. 2045 PRINT"Q Q Q QQQ Q Q Q Q Q QQQQ Q Q Q Q";
  108. 2050 PRINT
  109. 2055 PRINT"{green}QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ"
  110. 2060 PRINT" v 1.0c"
  111. 2070 PRINT" {blue}code by felix"
  112. 2075 PRINT
  113. 2080 PRINT
  114. 2085 PRINT" {light blue}joy in port 2"
  115. 2090 PRINT
  116. 2095 PRINT
  117. 2100 PRINT" {yellow}press a key to continue"
  118. 2105 PRINT
  119. 2110 PRINT
  120. 2115 PRINT
  121. 2120 PRINT" {purple}'once upon a sprite 2019'"
  122. 2130 pokesi+5,35:pokesi+6,199:pokesi+24,15
  123. 2150 readhf,lf,du:ifpeek(ta)goto2210
  124. 2160 ifdu=-1thenrestore:goto2200
  125. 2170 pokesi,lf:pokesi+1,hf:pokesi+4,33
  126. 2180 fori=0todu:next
  127. 2190 pokesi+4,32
  128. 2200 ifpeek(ta)=0goto2150
  129. 2210 return
  130. 2220 readhf,lf,du
  131. 2250 ifdu=-1thenreturn
  132. 2260 pokesi,lf:pokesi+1,hf:pokesi+4,33
  133. 2270 fori=0todu:next
  134. 2280 pokesi+4,32
  135. 2290 goto2220
  136. 2298 pokesi,lf:pokesi+1,hf:pokesi+4,33:fori=0todu:next:pokesi+4,32:return
  137. 2302 form=0to2:pokesi,17:pokesi+1,37:pokesi+4,33:fori=0to150:next:pokesi+4,32
  138. 2303 fori=0to100:next
  139. 2304 next:return
  140. 2310 PRINT"{light green}score 00 lvl"lv" lives 5";
  141. 2315 PRINT" {yellow}. . . . . . Q . ."
  142. 2320 PRINT" . . {light gray}{170}T Y{165} {yellow}. . ."
  143. 2325 PRINT". . . . {light gray}{170}T{yellow}{170}{165}{light gray}Y{165} {yellow}. . ."
  144. 2330 PRINT" . . {light gray}T{167}{161}{reverse on}{169}{127}{161}{reverse off}{165}Y {yellow}. ."
  145. 2335 PRINT"{reverse on}{brown} {127}{reverse off} {light gray}T{167}{reverse on} {reverse off}{165}Y {yellow}."
  146. 2340 PRINT"{reverse on}{brown} {orange}N{167}{reverse off} {yellow}. .{light gray}{170}T {reverse on}{182}{169} {reverse off}{169}{127}{reverse on} {127}{181}{reverse off} Y{165}{yellow}. ."
  147. 2345 PRINT"{reverse on}{brown} {orange}NU{167}{reverse off} {light gray}{170}T {reverse on} G{reverse off}{yellow}##{reverse on}{light gray}H {reverse off} Y{165} {reverse on}{brown}{169} ";
  148. 2350 PRINT"{reverse off}{reverse on} {orange}NU{125}{167}{brown} {127}{light gray}{161}{182}{169}YQGUIHQT{127}{165}{reverse off}{161}{reverse on}{brown}{169} {167}{light green} {brown} ";
  149. 2355 PRINT"{reverse off}{reverse on} {orange}NU{125}{125}{167}{yellow} {dark gray} {yellow} {dark gray} {yellow} {dark gray} {reverse off}{165}{reverse on}{light gray}{180} GY{yellow}{166}{light gray}GBBH{reverse off}{yellow}{166}{reverse on}{light gray}TH {167}{dark gray} {yellow} {dark gray} {yellow} {dark gray} {yellow} {dark gray}{170}{reverse off}{light green}{181}{reverse on} {brown} ";
  150. 2360 PRINT"{reverse off}{reverse on}{orange}NU{125}{125}N{167}{dark gray}UIUIUI{reverse off}{165}{reverse on}{light gray}{180}{180}GY{reverse off}{yellow}#{reverse on}{light gray}G{173}{189}H{reverse off}{yellow}#{reverse on}{light gray}TH{170}{167}{dark gray} {170}{light green}M{reverse off}{181}{reverse on} {brown} ";
  151. 2365 PRINT"{reverse off}{reverse on}{orange}U{125}{125}NU{167}{dark gray}BBBBBB{reverse off}{165}{reverse on}{light gray}{180}{180}{yellow}{166}{light gray}Y G{gray}UI{light gray}H T{reverse off}{yellow}{166}{reverse on}{light gray}{170}{167}{dark gray} {reverse off}{180}{reverse on} {reverse off}{180}{reverse on} {reverse off}{180}{reverse on}{170}{light green}IM{reverse off}{181}{reverse on} {brown} ";
  152. 2370 PRINT"{reverse off}{reverse on}{orange}{125}{125}NU{125}{167}{dark gray}{125}{125}{125}{125}{125}{125}{reverse off}{165}{reverse on}{light gray}{180}{180}{reverse off}{yellow}#{reverse on}{light gray}Y{gray} {light gray}G{gray}BB{light gray}H{gray} {light gray}T{reverse off}{yellow}#{reverse on}{light gray}{170}{167}{dark gray} {reverse off}{180}{reverse on} {reverse off}{180}{reverse on} {reverse off}{180}{reverse on}{170}{light green}{125}IM{reverse off}{181}{reverse on} {brown} ";
  153. 2375 PRINT"{reverse off}{reverse on}{orange}{125}NU{125}{125}{reverse off}{169}{yellow}Q{reverse on}{gray}IU{reverse off}{yellow}Q{reverse on}{gray} N{reverse off}{169}{reverse on}{light gray}{180}{180}{gray} {light gray}Y{gray}B{light gray}G{gray}BB{light gray}H{gray}B{light gray}T{gray} {light gray}{170}{167}{reverse off}{gray}{127}{reverse on}M {reverse off}{yellow}Q{reverse on}{gray}IU{reverse off}{yellow}Q{light green}{127}{reverse on}{125}IM{reverse off}{181}{reverse on} ";
  154. 2380 PRINT"{reverse off}{reverse on}{orange}NU{125}{125}{reverse off}{169}{reverse on}{gray}{169} BB N{reverse off}{169} {reverse on}{light gray}{180}{180}{gray}B{light gray}Y{gray}B{light gray}G{gray}BB{light gray}H{gray}B{light gray}T{gray}B{light gray}{170}{167}{reverse off} {gray}{127}{reverse on}M {125}{125} {127}{reverse off}{light green}{127}{reverse on}{125}IM{reverse off}{181}";
  155. 2385 PRINT"{reverse on}{orange}U{125}{125}{reverse off}{169}{reverse on}{gray}{169} BBN{reverse off}{169} {light green}N M {gray}{127}{reverse on}M{125}{125} {127}{reverse off}{light green}{127}{reverse on}{125}IM";
  156. 2390 PRINT"{reverse off}{reverse on}{orange}{125}{125}{reverse off}{169}{yellow}Q{reverse on}{gray}IU{reverse off}{yellow}Q{reverse on}{gray} N{reverse off}{169} {light green}N {white}get ready! {light green}M {gray}{127}{reverse on}M {reverse off}{yellow}Q{reverse on}{gray}IU{reverse off}{yellow}Q{light green}{127}{reverse on}{125}I";
  157. 2395 PRINT"{reverse off}{reverse on}{orange}B{reverse off}{169}{reverse on}{gray}{169} BB N{reverse off}{169} {light green}N{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}M {gray}{127}{reverse on}M {125}{125} {127}{reverse off}{light green}{127}{reverse on}B";
  158. 2400 PRINT"{reverse off}{orange}{169}{reverse on}{gray}{169} BBN{reverse off}{169} {light green}N M {gray}{127}{reverse on}M{125}{125} {127}{reverse off}{light green}{127}";
  159. 2405 PRINT"{yellow}Q{reverse on}{gray}IU{reverse off}{yellow}Q{reverse on}{gray} N{reverse off}{169} {light green}N M {gray}{127}{reverse on}M {reverse off}{yellow}Q{reverse on}{gray}IU{reverse off}{yellow}Q";
  160. 2410 PRINT"{reverse on}{gray} BB N{reverse off}{169} {light green}N M {gray}{127}{reverse on}M {125}{125} ";
  161. 2415 PRINT"{reverse off}{reverse on} BBN{reverse off}{169} {light green}N M {gray}{127}{reverse on}M{125}{125} ";
  162. 2420 PRINT"{reverse off}{reverse on} N{reverse off}{169} {light green}N M {gray}{127}{reverse on}M ";
  163. 2425 PRINT"{reverse on}{gray} N{reverse off}{169} {light green}N M {gray}{127}{reverse on}M ";
  164. 2430 PRINT"{reverse off}{reverse on}N{reverse off}{169} {light green}N{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}{175}M {gray}{127}";
  165. 2450 return
  166. 2460 hf=4:lf=73:du=200:gosub2298:li=li-1
  167. 2470 print"{home}"spc(38)"{light green}"li;:ifli=0goto2500
  168. 2480 return
  169. 2500 print"{home}"tab(15)"{down*16}game over!"
  170. 2510 restore:fori=1to631:readq:next:gosub2220
  171. 2515 print"{home}"spc(6)"00 "spc(8)"1"spc(16)"5";:fori=0to2000:next
  172. 2520 restore:fori=1to135:readq:next:print"{home}"tab(15)"{down*16}get ready!"
  173. 2525 goto80
  174. 2530 hf=129:lf=120:du=50:gosub2298:hf=137:lf=43:du=50:gosub2298
  175. 2540 sc=sc+1:print"{home}"spc(5)"{light green}"sc*10;:return
Add Comment
Please, Sign In to add comment
Public Pastes
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!