API tools faq
paste
Advertisement
felixnardella

KickMilan_1.1c.bas

felixnardella
Apr 6th, 2020
58
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.76 KB | None | 0 0
raw download clone embed print report
  1. 0 rem@ £ALLRAM
  2. 1 rem kickmilan v1.1c by felix nardella-compile with basic boss
  3. 2 v=53248:vi=2040:z=56320:zx=5:x=150:y=207:y(1)=100:y(2)=y(1):k=2:lv=1
  4. 3 y(3)=y(2):y(4)=y(3):si=54272:ko=53280:s=1024:ta=198:r=2:ifrnd(0)>.5thenr=1
  5. 4 pokeko,0:pokeko+1,0:d=4:d(1)=k:d(2)=-k:d(3)=-k:d(4)=k
  6. 5 x(1)=115:x(2)=215:x(3)=135:x(4)=235
  7. 6 gosub47:restore:print"{clear}":fori=1to135:readq:next:gosub88
  8. 7 sc=0:li=5:k=2:lv=1:d=4:gosub78
  9. 8 pokev+37,2:pokev+38,10:pokev+21,255
  10. 9 forn=704to767:readq:poken,q:next
  11. 10 forn=832to1023:readq:poken,q:next
  12. 11 forn=16128to16319:readq:poken,q:next:print"{home}"tab(15)"{down*16} "
  13. 12 pokev+39,7:pokev+40,7:pokev+41,7:pokev+42,7:pokev+43,4:pokev+44,4
  14. 13 pokev+45,5:pokev+46,2
  15. 14 pokevi,11:pokevi+2,254:pokevi+3,15:pokevi+5,254
  16. 15 pokevi+6,254:pokevi+7,254
  17. 16 j=peek(z):if(jand4)=0thenx=x-zx
  18. 17 if(jand8)=0thenx=x+zx
  19. 18 ifx>254thenx=255
  20. 19 ifx<94thenx=93
  21. 20 pokev+28,11:pokev+29,24:pokev+23,24
  22. 21 if(jand16)=0thenif(jand4)=0thenx=x+zx
  23. 22 if(jand16)=0thenif(jand8)=0thenx=x-zx
  24. 23 ax=x:ay=y+20:cx=x-11:cy=y+3
  25. 24 o=x/2:ifo=int(o)thenpokevi+1,13:pokevi+4,252
  26. 25 ifo<>int(o)thenpokevi+1,14:pokevi+4,253
  27. 26 if(jand16)=0orj=103orj=107thenax=0:ay=0:ex=x-13:ey=y
  28. 27 if(jand16)thenex=0:ey=0
  29. 28 pokev,x:pokev+1,y:pokev+2,ax:pokev+3,ay:pokev+4,x(3):pokev+5,y(3):pokev+6,ex
  30. 29 pokev+7,ey:pokev+8,cx:pokev+9,cy:pokev+10,x(4):pokev+11,y(4)
  31. 30 pokev+12,x(1):pokev+13,y(1):pokev+14,x(2):pokev+15,y(2)
  32. 31 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. 32 ify(r)>253theny(r)=100:gosub114:r=r+1:ifr=5thenr=1
  34. 33 ifabs(y-y(r))<10thenifabs(x-x(r))<10theny(r)=100:gosub122:r=r+1:ifr=5thenr=1
  35. 34 ifsc=20thenk=3:lv=2:d=6:gosub85:print"{home}"spc(21)lv:sc=sc+1
  36. 35 ifsc=40thenk=4:lv=3:d=8:gosub85:print"{home}"spc(21)lv:sc=sc+1
  37. 36 ifx(1)<85thend(1)=k
  38. 37 ifx(1)>249thend(1)=-k
  39. 38 ifx(2)>249thend(2)=-k
  40. 39 ifx(2)<85thend(2)=k
  41. 40 ifx(3)<85thend(3)=k
  42. 41 ifx(3)>249thend(3)=-k
  43. 42 ifx(4)<85thend(4)=k
  44. 43 ifx(4)>249thend(4)=-k
  45. 44 if(jand16)=0thenify(r)>218thenifabs(x-x(r))<30thengosub87
  46. 45 ify(r)<100thend=2*k
  47. 46 goto16
  48. 47 print"{clear}":print
  49. 48 PRINT"{green}QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ";
  50. 49 PRINT
  51. 50 PRINT"{red}Q Q QQ Q Q Q Q Q QQ Q Q";
  52. 51 PRINT"Q Q Q Q Q Q Q QQ QQ Q Q Q Q Q Q";
  53. 52 PRINT"QQ Q Q QQ Q Q Q Q Q Q Q QQ Q";
  54. 53 PRINT"QQ Q Q QQ Q Q Q Q QQQQ Q QQ";
  55. 54 PRINT"Q Q Q Q Q Q Q Q Q Q Q Q Q Q";
  56. 55 PRINT"Q Q Q QQQ Q Q Q Q Q QQQQ Q Q Q Q";
  57. 56 PRINT
  58. 57 PRINT"{green}QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ"
  59. 58 PRINT" v 1.1c"
  60. 59 PRINT" {blue}code by felix"
  61. 60 PRINT
  62. 61 PRINT
  63. 62 PRINT" {light blue}joy in port 2"
  64. 63 PRINT
  65. 64 PRINT
  66. 65 PRINT" {yellow}press a key to continue"
  67. 66 PRINT
  68. 67 PRINT
  69. 68 PRINT
  70. 69 PRINT" {purple}'once upon a sprite 2019'"
  71. 70 pokesi+5,35:pokesi+6,199:pokesi+24,15
  72. 71 readhf,lf,du:ifpeek(ta)goto77
  73. 72 ifdu=-1thenrestore:goto76
  74. 73 pokesi,lf:pokesi+1,hf:pokesi+4,33
  75. 74 fori=0todu:next
  76. 75 pokesi+4,32
  77. 76 ifpeek(ta)=0goto71
  78. 77 return
  79. 78 readhf,lf,du
  80. 79 ifdu=-1thenreturn
  81. 80 pokesi,lf:pokesi+1,hf:pokesi+4,33
  82. 81 fori=0todu:next
  83. 82 pokesi+4,32
  84. 83 goto78
  85. 84 pokesi,lf:pokesi+1,hf:pokesi+4,33:fori=0todu:next:pokesi+4,32:return
  86. 85 form=0to2:pokesi,17:pokesi+1,37:pokesi+4,33:fori=0to150:next:pokesi+4,32
  87. 86 fori=0to100:next:next:return
  88. 87 d=-2*k:d(r)=-k:form=0to30:pokesi,3:pokesi+1,m:pokesi+4,33:next:pokesi+4,32:return
  89. 88 PRINT"{light green}score 00 lvl"lv" lives 5";
  90. 89 PRINT" {yellow}. . . . . . Q . ."
  91. 90 PRINT" . . {light gray}{170}T Y{165} {yellow}. . ."
  92. 91 PRINT". . . . {light gray}{170}T{yellow}{170}{165}{light gray}Y{165} {yellow}. . ."
  93. 92 PRINT" . . {light gray}T{167}{161}{reverse on}{169}{127}{161}{reverse off}{165}Y {yellow}. ."
  94. 93 PRINT"{reverse on}{brown} {127}{reverse off} {light gray}T{167}{reverse on} {reverse off}{165}Y {yellow}."
  95. 94 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}. ."
  96. 95 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} ";
  97. 96 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} ";
  98. 97 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} ";
  99. 98 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} ";
  100. 99 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} ";
  101. 100 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} ";
  102. 101 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} ";
  103. 102 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}";
  104. 103 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";
  105. 104 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";
  106. 105 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";
  107. 106 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}";
  108. 107 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";
  109. 108 PRINT"{reverse on}{gray} BB N{reverse off}{169} {light green}N M {gray}{127}{reverse on}M {125}{125} ";
  110. 109 PRINT"{reverse off}{reverse on} BBN{reverse off}{169} {light green}N M {gray}{127}{reverse on}M{125}{125} ";
  111. 110 PRINT"{reverse off}{reverse on} N{reverse off}{169} {light green}N M {gray}{127}{reverse on}M ";
  112. 111 PRINT"{reverse on}{gray} N{reverse off}{169} {light green}N M {gray}{127}{reverse on}M ";
  113. 112 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
  114. 113 return
  115. 114 hf=4:lf=73:du=200:gosub84:li=li-1
  116. 115 print"{home}"spc(38)"{light green}"li;:ifli=0goto117
  117. 116 return
  118. 117 print"{home}"tab(15)"{down*16}game over!"
  119. 118 restore:fori=1to631:readq:next:gosub78
  120. 119 print"{home}"spc(6)"00 "spc(8)"1"spc(16)"5";:fori=0to2000:next
  121. 120 restore:fori=1to135:readq:next:print"{home}"tab(15)"{down*16}get ready!"
  122. 121 goto7
  123. 122 hf=129:lf=120:du=100:gosub84:hf=137:lf=43:du=50:gosub84
  124. 123 sc=sc+1:print"{home}"spc(5)"{light green}"sc*10;:return
  125. 124 data 7,53,500,8,23,140,8,147,140,7,53,140,9,159,800
  126. 125 data 8,147,140,8,23,140,8,147,140,8,23,750,7,53,800
  127. 126 data 0,0,200,7,53,500,8,23,140,8,147,140,7,53,140,9,159,800
  128. 127 data 8,147,140,8,23,140,8,147,140,9,159,750,10,205,800
  129. 128 data 0,0,200,10,205,500,11,114,140,10,205,140,11,114,140,10,205,800
  130. 129 data 9,159,140,9,159,140,8,147,140,9,159,750,10,205,800
  131. 130 data 0,0,200,10,205,500,11,114,140,10,205,140,11,114,140,10,205,800
  132. 131 data 8,147,140,8,147,140,9,159,140,8,23,750,7,53,800,0,0,200
  133. 132 data -1,-1,-1
  134. 133 data 17,37,140,22,227,110,28,214,140
  135. 134 data 28,214,140,28,214,110,25,177,110
  136. 135 data 30,141,110,28,214,690,28,214,110
  137. 136 data 28,214,140,25,177,110,22,227,140
  138. 137 data 21,154,110,22,227,110,25,177,890
  139. 138 data -1,-1,-1
  140. 139 data 0,0,0,0,0,0,0,0,0,0,32,0,0,32,0,0
  141. 140 data 168,0,2,170,0,0,212,0,0,52,0,1,244,0,0,244
  142. 141 data 0,0,116,0,0,252,0,2,102,0,0,152,0,2,154,0
  143. 142 data 10,150,128,8,148,128,8,164,128,12,164,192,12,168,192,135
  144. 143 data 0,0,0,0,0,0,10,168,0,10,168,0,10,168,0,2,128,0
  145. 144 data 2,128,0,0,160,0,0,160,0,0,40,0,0,84,0,0,84,0
  146. 145 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  147. 146 data 0,0,0,0,0,0,135
  148. 147 data 0,0,0,0,0,0,0,168,0,0,168,0,2,168,0,2
  149. 148 data 160,0,10,160,0,42,128,0,42,128,0,42,0,0,10,128
  150. 149 data 0,10,128,0,2,128,0,2,128,0,0,128,0,0,128,0
  151. 150 data 5,64,0,5,64,0,0,0,0,0,0,0,0,0,0,135
  152. 151 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  153. 152 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  154. 153 data 0,0,40,0,2,170,0,74,10,128,106,10,169,104,2,169
  155. 154 data 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,135
  156. 155 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  157. 156 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  158. 157 data 0,0,248,0,1,36,0,1,36,0,2,34,0,3,254,0
  159. 158 data 2,34,0,1,36,0,1,36,0,0,248,0,0,0,0,4
  160. 159 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  161. 160 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  162. 161 data 0,0,248,0,1,4,0,1,140,0,2,82,0,2,34,0
  163. 162 data 2,82,0,1,140,0,1,4,0,0,248,0,0,0,0,4
  164. 163 data 0,0,0,0,0,0,0,0,0,0,56,0,0,254,0,1
  165. 164 data 255,0,3,191,128,7,127,192,7,127,192,7,127,192,7,255
  166. 165 data 192,3,255,128,3,255,128,1,255,0,0,254,0,0,56,0
  167. 166 data 0,16,96,0,12,128,0,3,0,0,0,0,0,0,0,7
  168. 167 data 137,43,140,111,88,140,122,52,140,102,194,140
  169. 168 data 111,88,140,91,140,140,102,94,140,91,140,140
  170. 169 data 86,105,280,76,252,280,68,149,480,-1,-1,-1
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!