API tools faq
paste
Advertisement
felixnardella

KickMilan1.2.bas

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