API tools faq
paste
Advertisement
felixnardella

KickMilan1.1.bas

felixnardella
Oct 31st, 2019
146
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.81 KB | None | 0 0
raw download clone embed print report
  1. 5 rem kickmilan v 1.1 by felix nardella
  2. 10 v=53248:vi=2040:z=56320:zx=5:x=150:y=207:y(1)=100:y(2)=y(1):k=2:lv=1
  3. 15 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:d=4:d(1)=k:d(2)=-k:d(3)=-k:d(4)=k
  5. 25 x(1)=115:x(2)=215:x(3)=135:x(4)=235
  6. 30 gosub465:restore:print"{clear}":fori=1to135:readq:next:gosub670
  7. 35 sc=0:li=5:k=2:lv=1:d=4:gosub620
  8. 40 pokev+37,2:pokev+38,10:pokev+21,255
  9. 45 forn=704to767:readq:poken,q:next
  10. 50 forn=832to1023:readq:poken,q:next
  11. 55 forn=16128to16319:readq:poken,q:next:print"{home}"tab(15)"{down*16} "
  12. 60 pokev+39,7:pokev+40,7:pokev+41,7:pokev+42,7:pokev+43,4:pokev+44,4
  13. 65 pokev+45,5:pokev+46,2
  14. 70 pokevi,11:pokevi+2,254:pokevi+3,15:pokevi+5,254
  15. 75 pokevi+6,254:pokevi+7,254
  16. 80 j=peek(z):if(jand4)=0thenx=x-zx
  17. 85 if(jand8)=0thenx=x+zx
  18. 90 ifx>254thenx=255
  19. 95 ifx<94thenx=93
  20. 100 pokev+28,11:pokev+29,24:pokev+23,24
  21. 105 if(jand16)=0thenif(jand4)=0thenx=x+zx
  22. 110 if(jand16)=0thenif(jand8)=0thenx=x-zx
  23. 115 ax=x:ay=y+20:cx=x-11:cy=y+3
  24. 120 o=x/2:ifo=int(o)thenpokevi+1,13:pokevi+4,252
  25. 125 ifo<>int(o)thenpokevi+1,14:pokevi+4,253
  26. 130 if(jand16)=0orj=103orj=107thenax=0:ay=0:ex=x-13:ey=y
  27. 135 if(jand16)thenex=0:ey=0
  28. 140 pokev,x:pokev+1,y:pokev+2,ax:pokev+3,ay:pokev+4,x(3):pokev+5,y(3):pokev+6,ex
  29. 145 pokev+7,ey:pokev+8,cx:pokev+9,cy:pokev+10,x(4):pokev+11,y(4)
  30. 150 pokev+12,x(1):pokev+13,y(1):pokev+14,x(2):pokev+15,y(2)
  31. 155 y(r)=y(r)+d:x(1)=x(1)+d(1):x(2)=x(2)+d(2):x(3)=x(3)+d(3):x(4)=x(4)+d(4)
  32. 160 ify(r)>253theny(r)=100:gosub800:r=r+1:ifr=5thenr=1
  33. 165 ifabs(y-y(r))<10thenifabs(x-x(r))<10theny(r)=100:gosub840:r=r+1:ifr=5thenr=1
  34. 170 ifsc=20thenk=3:lv=2:d=6:gosub655:print"{home}"spc(21)lv:sc=sc+1
  35. 175 ifsc=40thenk=4:lv=3:d=8:gosub655:print"{home}"spc(21)lv:sc=sc+1
  36. 180 ifx(1)<85thend(1)=k
  37. 185 ifx(1)>249thend(1)=-k
  38. 190 ifx(2)>249thend(2)=-k
  39. 195 ifx(2)<85thend(2)=k
  40. 200 ifx(3)<85thend(3)=k
  41. 205 ifx(3)>249thend(3)=-k
  42. 210 ifx(4)<85thend(4)=k
  43. 215 ifx(4)>249thend(4)=-k
  44. 220 if(jand16)=0thenify(r)>218thenifabs(x-x(r))<30thengosub665
  45. 225 ify(r)<100thend=2*k
  46. 230 goto80
  47. 235 data 7,53,500,8,23,140,8,147,140,7,53,140,9,159,800
  48. 240 data 8,147,140,8,23,140,8,147,140,8,23,750,7,53,800
  49. 245 data 0,0,200,7,53,500,8,23,140,8,147,140,7,53,140,9,159,800
  50. 250 data 8,147,140,8,23,140,8,147,140,9,159,750,10,205,800
  51. 255 data 0,0,200,10,205,500,11,114,140,10,205,140,11,114,140,10,205,800
  52. 260 data 9,159,140,9,159,140,8,147,140,9,159,750,10,205,800
  53. 265 data 0,0,200,10,205,500,11,114,140,10,205,140,11,114,140,10,205,800
  54. 270 data 8,147,140,8,147,140,9,159,140,8,23,750,7,53,800,0,0,200
  55. 275 data -1,-1,-1
  56. 280 data 17,37,140,22,227,110,28,214,140
  57. 285 data 28,214,140,28,214,110,25,177,110
  58. 290 data 30,141,110,28,214,690,28,214,110
  59. 295 data 28,214,140,25,177,110,22,227,140
  60. 300 data 21,154,110,22,227,110,25,177,890
  61. 305 data -1,-1,-1
  62. 310 data 0,0,0,0,0,0,0,0,0,0,32,0,0,32,0,0
  63. 315 data 168,0,2,170,0,0,212,0,0,52,0,1,244,0,0,244
  64. 320 data 0,0,116,0,0,252,0,2,102,0,0,152,0,2,154,0
  65. 325 data 10,150,128,8,148,128,8,164,128,12,164,192,12,168,192,135
  66. 330 data 0,0,0,0,0,0,10,168,0,10,168,0,10,168,0,2,128,0
  67. 335 data 2,128,0,0,160,0,0,160,0,0,40,0,0,84,0,0,84,0
  68. 340 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  69. 345 data 0,0,0,0,0,0,135
  70. 350 data 0,0,0,0,0,0,0,168,0,0,168,0,2,168,0,2
  71. 355 data 160,0,10,160,0,42,128,0,42,128,0,42,0,0,10,128
  72. 360 data 0,10,128,0,2,128,0,2,128,0,0,128,0,0,128,0
  73. 365 data 5,64,0,5,64,0,0,0,0,0,0,0,0,0,0,135
  74. 370 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  75. 375 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  76. 380 data 0,0,40,0,2,170,0,74,10,128,106,10,169,104,2,169
  77. 385 data 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,135
  78. 390 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  79. 395 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  80. 400 data 0,0,248,0,1,36,0,1,36,0,2,34,0,3,254,0
  81. 405 data 2,34,0,1,36,0,1,36,0,0,248,0,0,0,0,4
  82. 410 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  83. 415 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  84. 420 data 0,0,248,0,1,4,0,1,140,0,2,82,0,2,34,0
  85. 425 data 2,82,0,1,140,0,1,4,0,0,248,0,0,0,0,4
  86. 430 data 0,0,0,0,0,0,0,0,0,0,56,0,0,254,0,1
  87. 435 data 255,0,3,191,128,7,127,192,7,127,192,7,127,192,7,255
  88. 440 data 192,3,255,128,3,255,128,1,255,0,0,254,0,0,56,0
  89. 445 data 0,16,96,0,12,128,0,3,0,0,0,0,0,0,0,7
  90. 450 data 137,43,140,111,88,140,122,52,140,102,194,140
  91. 455 data 111,88,140,91,140,140,102,94,140,91,140,140
  92. 460 data 86,105,280,76,252,280,68,149,480,-1,-1,-1
  93. 465 print"{clear}":print
  94. 470 PRINT"{green}QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ";
  95. 475 PRINT
  96. 480 PRINT"{red}Q Q QQ Q Q Q Q Q QQ Q Q";
  97. 485 PRINT"Q Q Q Q Q Q Q QQ QQ Q Q Q Q Q Q";
  98. 490 PRINT"QQ Q Q QQ Q Q Q Q Q Q Q QQ Q";
  99. 495 PRINT"QQ Q Q QQ Q Q Q Q QQQQ Q QQ";
  100. 500 PRINT"Q Q Q Q Q Q Q Q Q Q Q Q Q Q";
  101. 505 PRINT"Q Q Q QQQ Q Q Q Q Q QQQQ Q Q Q Q";
  102. 510 PRINT
  103. 515 PRINT"{green}QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ"
  104. 520 PRINT" v 1.1c"
  105. 525 PRINT" {blue}code by felix"
  106. 530 PRINT
  107. 535 PRINT
  108. 540 PRINT" {light blue}joy in port 2"
  109. 545 PRINT
  110. 550 PRINT
  111. 555 PRINT" {yellow}press a key to continue"
  112. 560 PRINT
  113. 565 PRINT
  114. 570 PRINT
  115. 575 PRINT" {purple}'once upon a sprite 2019'"
  116. 580 pokesi+5,35:pokesi+6,199:pokesi+24,15
  117. 585 readhf,lf,du:ifpeek(ta)goto615
  118. 590 ifdu=-1thenrestore:goto610
  119. 595 pokesi,lf:pokesi+1,hf:pokesi+4,33
  120. 600 fori=0todu:next
  121. 605 pokesi+4,32
  122. 610 ifpeek(ta)=0goto585
  123. 615 return
  124. 620 readhf,lf,du
  125. 625 ifdu=-1thenreturn
  126. 630 pokesi,lf:pokesi+1,hf:pokesi+4,33
  127. 635 fori=0todu:next
  128. 640 pokesi+4,32
  129. 645 goto620
  130. 650 pokesi,lf:pokesi+1,hf:pokesi+4,33:fori=0todu:next:pokesi+4,32:return
  131. 655 form=0to2:pokesi,17:pokesi+1,37:pokesi+4,33:fori=0to150:next:pokesi+4,32
  132. 660 fori=0to100:next:next:return
  133. 665 d=-2*k:d(r)=-k:form=0to30:pokesi,3:pokesi+1,m:pokesi+4,33:next:pokesi+4,32:return
  134. 670 PRINT"{light green}score 00 lvl"lv" lives 5";
  135. 675 PRINT" {yellow}. . . . . . Q . ."
  136. 680 PRINT" . . {light gray}{170}T Y{165} {yellow}. . ."
  137. 685 PRINT". . . . {light gray}{170}T{yellow}{170}{165}{light gray}Y{165} {yellow}. . ."
  138. 690 PRINT" . . {light gray}T{167}{161}{reverse on}{169}{127}{161}{reverse off}{165}Y {yellow}. ."
  139. 695 PRINT"{reverse on}{brown} {127}{reverse off} {light gray}T{167}{reverse on} {reverse off}{165}Y {yellow}."
  140. 700 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}. ."
  141. 705 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} ";
  142. 710 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} ";
  143. 715 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} ";
  144. 720 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} ";
  145. 725 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} ";
  146. 730 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} ";
  147. 735 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} ";
  148. 740 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}";
  149. 745 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";
  150. 750 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";
  151. 755 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";
  152. 760 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}";
  153. 765 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";
  154. 770 PRINT"{reverse on}{gray} BB N{reverse off}{169} {light green}N M {gray}{127}{reverse on}M {125}{125} ";
  155. 775 PRINT"{reverse off}{reverse on} BBN{reverse off}{169} {light green}N M {gray}{127}{reverse on}M{125}{125} ";
  156. 780 PRINT"{reverse off}{reverse on} N{reverse off}{169} {light green}N M {gray}{127}{reverse on}M ";
  157. 785 PRINT"{reverse on}{gray} N{reverse off}{169} {light green}N M {gray}{127}{reverse on}M ";
  158. 790 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}";
  159. 795 return
  160. 800 hf=4:lf=73:du=200:gosub650:li=li-1
  161. 805 print"{home}"spc(38)"{light green}"li;:ifli=0goto815
  162. 810 return
  163. 815 print"{home}"tab(15)"{down*16}game over!"
  164. 820 restore:fori=1to631:readq:next:gosub620
  165. 825 print"{home}"spc(6)"00 "spc(8)"1"spc(16)"5";:fori=0to2000:next
  166. 830 restore:fori=1to135:readq:next:print"{home}"tab(15)"{down*16}get ready!"
  167. 835 goto35
  168. 840 hf=129:lf=120:du=100:gosub650:hf=137:lf=43:du=50:gosub650
  169. 845 sc=sc+1:print"{home}"spc(5)"{light green}"sc*10;:return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!