API tools faq
paste
Advertisement
felixnardella

Lunar Al-Lander

felixnardella
Feb 27th, 2022
108
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.57 KB | None | 0 0
raw download clone embed print report
  1. 0 rem lunar al-lander by felix nardella (2020)
  2. 1 dima(23):p=1032
  3. 2 jo=56320:g=.5:a=1:aa=0:bb=0:cc=0:cu=0:fu=21:co=55296:vo=54272:ta=198:br=53280:ba=53281
  4. 3 a(0)=53287:a(1)=53288:a(2)=53289:a(3)=53290:a(4)=2040:a(5)=2041:a(6)=2042
  5. 4 a(7)=2043:a(8)=53248:a(9)=53249:a(10)=53250:a(11)=53251:a(12)=53252
  6. 5 a(13)=53253:a(14)=53254:a(15)=53255:a(16)=53269:a(17)=53279:a(18)=vo+1
  7. 6 a(19)=vo+4:a(20)=vo+5:a(21)=vo+6:a(22)=vo+24:a(23)=58640:ifle=1goto8
  8. 7 print"{clear}":pokeba,0:pokebr,6:gosub113
  9. 8 print"{clear}":ifle=0thengosub88
  10. 9 ifle=1thengosub144
  11. 10 x=40:y=70:a=1:g=.5:c=6:l=6:gosub79:print"{white} get ready! "
  12. 11 vr=9:ifle=1thenvr=8
  13. 12 pokebr,vr:restore:fors=1to300:readq:next
  14. 13 fors=704to766:readq:pokes,q:next
  15. 14 fors=832to1020:readq:pokes,q:next
  16. 15 pokea(0),3:pokea(1),2:pokea(2),8:pokea(3),8
  17. 16 pokea(4),11:pokea(5),13:pokea(6),14:pokea(7),15:pokea(8),x:pokea(9),y
  18. 17 c=6:l=6:gosub79:print" "
  19. 18 print"{home}fuel: ";:forf=0tofu:print"{reverse on} ";:next
  20. 19 fors=6to9:pokeco+s,2:next:fors=10to16:pokeco+s,7:next:fors=17to29:pokeco+s,5:next
  21. 20 ix=int(x):iy=int(y):ig=int(g*2):ia=int(a*2):s1=1:s2=1
  22. 21 ifix>99thens1=0
  23. 22 ifiy>99thens2=0
  24. 23 print"{home}":pokep+fu,32
  25. 24 print:printtab(32)"vy="ig:printtab(32)"vx="ia
  26. 25 print:printtab(72)"x="spc(s1)ix:printtab(72)"y="spc(s2)iy
  27. 26 j=peek(jo):ifj=127theng=g+.3:pokea(16),1:pokea(19),128:gosub80
  28. 27 ifj=119theng=g+.3:a=a-.4:i=i+1:pokea(16),5:gosub74
  29. 28 ifj=123theng=g+.3:a=a+.4:i=i+1:pokea(16),9:gosub74
  30. 29 ifj=111theng=g-.4:i=i+2:pokea(16),3:gosub74
  31. 30 ifj=107theng=g-.4:a=a+.4:i=i+3:pokea(16),11:gosub74
  32. 31 ifj=103theng=g-.4:a=a-.4:i=i+3:pokea(16),7:gosub74
  33. 32 ifi>15theni=0:fu=fu-1
  34. 33 ify<35goto56
  35. 34 ifa>4.5thena=4.5
  36. 35 ifa<-4.5thena=-4.5
  37. 36 ifg>4.5theng=4.5
  38. 37 ifg<-4.5theng=-4.5
  39. 38 y=y+g:x=x+a
  40. 39 ifx<25goto53
  41. 40 ifx>248goto53
  42. 41 pokea(8),x:pokea(9),y:pokea(10),x:pokea(11),y:pokea(12),x+8:pokea(13),y
  43. 42 pokea(14),x-8:pokea(15),y+1
  44. 43 iffu=-3thenprint"{home}"tab(8)"{red}out of fuel!":pokea(16),1:gosub77:g=.1:goto66
  45. 44 ify>192thenifx>45thenifx<56thenc=32:l=22:gosub79:print"{blue}1":aa=1:goto50
  46. 45 ify>199thenifx>160thenifx<168thenc=34:l=22:gosub79:print"{green}2":bb=1:goto50
  47. 46 ify>120thenifx>226thenifx<238thenc=36:l=22:gosub79:print"{yellow}3":cc=1:goto50
  48. 47 ifpeek(a(17))>0thenify>90goto53
  49. 48 iffu=-2thenfors=0to5:pokeco+s,2:next
  50. 49 goto20
  51. 50 print"{home}"tab(250)"{white} landed!":gosub77:ss=87:gosub85:cu=aa+bb+cc
  52. 51 ifcu=3goto57
  53. 52 goto10
  54. 53 print"{home}"tab(250)"{white} crashed!":gosub75:gosub83:gosub78
  55. 54 iffu>-2goto61
  56. 55 print"{home}"tab(250)"game over!":le=0:gosub78:goto61
  57. 56 print"{home}"tab(250)"{white}out of sky!":gosub77:gosub78:goto61
  58. 57 print"{home}"tab(248)"level completed!":le=le+1:ss=159:gosub85
  59. 59 ifle>1thenprint"{home}"tab(248)"congratulations!":le=0:ss=219:gosub85
  60. 60 pokea(16),0:restore:goto2
  61. 61 print"{home}"tab(250)"play again?":goto62
  62. 62 geta$:ifa$=""ora$=" "goto62
  63. 63 ifa$="n"thenend
  64. 64 iffu<-1thenrestore:goto2
  65. 65 goto10
  66. 66 g=g+.1:ifa>.2thena=.2
  67. 67 ifa<-.2thena=-.2
  68. 68 y=y+g:x=x+a
  69. 69 ifx<25thenx=25
  70. 70 ifx>253thenx=253
  71. 71 ifpeek(a(17))>0thenify>90goto53
  72. 72 ify<35goto56
  73. 73 pokea(8),x:pokea(9),y:goto66
  74. 74 pokea(22),3:pokea(21),240:pokea(18),100:pokevo,200:pokea(19),129:return
  75. 75 gosub77:pokea(16),0
  76. 76 pokea(22),15:pokea(20),12:pokea(18),7:pokea(19),129:return
  77. 77 forn=0to24:pokevo+n,0:next:pokea(16),1:return
  78. 78 forn=0to3000:next:return
  79. 79 poke211,c:poke214,l:sysa(23):return
  80. 80 ifia>0thena=a-.1
  81. 81 ifia<0thena=a+.1
  82. 82 return
  83. 83 forf=1to8:pokebr,0:pokeba,2:forn=1to50:next:pokebr,5:pokeba,14:forn=1to50
  84. 84 next:next:pokebr,vr:pokeba,0:return
  85. 85 restore:fors=1toss:readq:next:pokea(20),35:pokea(21),199:pokea(22),15
  86. 86 readhf,lf,du:ifdu=-1thenreturn
  87. 87 pokevo,lf:pokea(18),hf:pokea(19),33:fori=0todu:next:pokea(19),32:goto86
  88. 88 PRINT" {white}UCCCCCCCCI";
  89. 89 PRINT" B B";
  90. 90 PRINT" B speeds B";
  91. 91 PRINT" B B";
  92. 92 PRINT" B B";
  93. 93 PRINT" B B";
  94. 94 PRINT" B B";
  95. 95 PRINT" B B";
  96. 96 PRINT" B B";
  97. 97 PRINT" Bcoordin.B";
  98. 98 PRINT" {reverse on}{orange}P{reverse off} {white}B B";
  99. 99 PRINT" {reverse on}{orange}{184}{reverse off} {172}{reverse on} {reverse off}{yellow}{168}{168}{168}{168}{168}{white}B B";
  100. 100 PRINT"{reverse on}{orange}{167}P{reverse off} {reverse on}{190}{reverse off} {172}{reverse on} {reverse off} {182}{reverse on} EE3EE{reverse off}{white}B B";
  101. 101 PRINT"{reverse on}{orange} {reverse off}{187} {172}{reverse on} {reverse off}{187}{reverse on} {127}{reverse off} {reverse on}{165} {124} {reverse off}{white}B B";
  102. 102 PRINT"{reverse on}{orange} {127}{reverse off} {reverse on}{161} {124} {reverse off} {reverse on}P {124} {124} {reverse off}{white}B B";
  103. 103 PRINT"{reverse on}{orange} {124} {reverse off} {reverse on}{161} {172}{reverse off} {172}{reverse on} {124} {124} {reverse off}{white}B B";
  104. 104 PRINT"{reverse on}{orange} {124} P{reverse off} {reverse on} {124} {182}{reverse off} {reverse on}{161} {124} {reverse off}{white}Blevel 01B";
  105. 105 PRINT"{reverse on}{orange} {reverse off}{165} {172}{reverse on} {124} {reverse off} {reverse on}O {124} {reverse off}{white}B B";
  106. 106 PRINT"{reverse on}{orange} {reverse off} {reverse on}L {124} P{reverse off} {reverse on}{161} {124} {reverse off}{white}B B";
  107. 107 PRINT"{reverse on}{orange} {186}{reverse off} {reverse on}{165} {124} {124} {reverse off} {167}{reverse on} {124} {reverse off}{white}B B";
  108. 108 PRINT"{reverse on}{orange}{124} {reverse off}{blue}{168}{168}{168}{168}{168}{reverse on}{orange} {124} {reverse off}{161} {reverse on}L {124} {124}{reverse off}{white}BlandingsB";
  109. 109 PRINT"{reverse on}{orange}{124} EE1EE {reverse off}{green}{168}{168}{168}{168}{168}{reverse on}{orange} {124} {124}{reverse off}{white}B B";
  110. 110 PRINT "{reverse on}{orange} EE2EE {124} {reverse off}{white}B {dark gray}1 2 3 {white}B";
  111. 111 PRINT"{reverse on}{orange} {reverse off}{white}B B";
  112. 112 PRINT"{reverse on}{orange} {reverse off}{white}JCCCCCCCC";:poke2023,75:return
  113. 113 PRINT" {reverse on}{light gray} "
  114. 114 PRINT" {reverse on} {reverse off}{165}{reverse on} "
  115. 115 PRINT" {green}UC{179} UC{179} {178} {178} U I {reverse on}{light gray} {reverse off}{yellow}{170}{reverse on}P{light gray} "
  116. 116 PRINT" {green}{125} B {125} {125} M N {reverse on}{light gray} {reverse off}{yellow}{182}{reverse on} P{light gray} "
  117. 117 PRINT" {green}{125} B {125} {125} {167} {165} {reverse on}{light gray} {yellow}{161} P{light gray} "
  118. 118 PRINT" {green}{171}{179} {171}{179} {125} {125} V {reverse on}{light gray} {170}{yellow}{165} P{light gray} "
  119. 119 PRINT" {green}{125} B {125} {125} {167} {165} {reverse on}{light gray} {186}{yellow} {reverse off}{187}{reverse on}{light gray} "
  120. 120 PRINT" {green}{125} B {125} {125} N M {reverse on}{light gray} {yellow}{161} {170}{light gray}{161} "
  121. 121 PRINT" {green}{177} JC{179} JC{179} {177} J K {reverse on}{light gray} {167}{yellow}{165} {reverse off}{165}{reverse on}{light gray} "
  122. 122 PRINT" {reverse on} {186}{yellow} {reverse off}{161}{reverse on}{light gray} "
  123. 123 PRINT" {green}UCI {178} {reverse on}{light gray} {yellow}{181} {reverse off}{161}{reverse on}{light gray} "
  124. 124 PRINT" {green}{125} {125} B {reverse on}{light gray} {reverse off}{yellow}{172}{reverse on} {reverse off}{181}{reverse on}{light gray} "
  125. 125 PRINT" {green}{125} {125} B {reverse on}{light gray} {reverse off}{yellow}{172}{reverse on} {light gray}{161} "
  126. 126 PRINT" {green}{171}C{179} B {171}C{179} {reverse on}{light gray} {reverse off}{yellow}{172}{reverse on} {reverse off}{190}{reverse on}{light gray} "
  127. 127 PRINT" {green}{125} {125} B {reverse on}{light gray} {reverse off}{yellow}{172}{reverse on} {reverse off}{190}{reverse on}{light gray} "
  128. 128 PRINT" {green}{125} {125} B {reverse on}{light gray} {reverse off}L{reverse on}{yellow}{162}{164} {162}{reverse off}{light gray}{185}{reverse on} "
  129. 129 PRINT" {green}{177} {177} JC{179} {reverse on}{light gray} {163}{reverse off}{185}{yellow}{183}{reverse on}{162}{162}{reverse off}{184}{light gray}{185}{reverse on} "
  130. 130 PRINT" {reverse on} "
  131. 131 PRINT" {green}{178} UCI {178} {178} {178}CI UC{179} UCI{reverse on}{light gray} "
  132. 132 PRINT" {green}{125} B {125} {125} {125} {125} {125} {125} {125} {125}"
  133. 133 PRINT" {125} B {125} {125}M{125} {125} {125} {125} {125} {125} press space"
  134. 134 PRINT" {125} {171}C{179} {125}M{125} {125} {125} {171}{179} {171}{178}K"
  135. 135 PRINT" {125} B {125} {125} {125} {125} {125} {125} {125}JI to start!"
  136. 136 PRINT" {125} B {125} {125} {125} {125} {125} {125} {125} {125}"
  137. 137 PRINT" JC{179} {177} {177} {177} {177} {177}CK JC{179} {177} {177} joy in port2";
  138. 138 pokea(20),35:pokea(21),199:pokea(22),15
  139. 139 readhf,lf,du:ifpeek(ta)goto143
  140. 140 ifdu=-1thenrestore:goto142
  141. 141 pokevo,lf:pokea(18),hf:pokea(19),33:fori=0todu:next:pokea(19),32
  142. 142 ifpeek(ta)=0goto139
  143. 143 return
  144. 144 PRINT" {white}UCCCCCCCCI";
  145. 145 PRINT" B B";
  146. 146 PRINT" B speeds B";
  147. 147 PRINT" B B";
  148. 148 PRINT" B B";
  149. 149 PRINT" {red}{164} {white}B B";
  150. 150 PRINT" {reverse on}{red}{184}{183} {168} {183}{reverse off}{white}B B";
  151. 151 PRINT" {reverse on}{red}{162}{reverse off}{183} {184}{reverse on}{164}{168}{reverse off}{white}B B";
  152. 152 PRINT" {red}{185}{172}{reverse on}{183}{reverse off} {reverse on} {reverse off}{white}B B";
  153. 153 PRINT" {red}{185}{reverse on}O {189}{183}{reverse off}{185} {reverse on}{187}{reverse off}{white}Bcoordin.B";
  154. 154 PRINT"{reverse on}{red}O {168}{168} {reverse off}{187} {reverse on}{161}{reverse off}{white}B B";
  155. 155 PRINT"{reverse on}{red} {168} {168} {184}{reverse off} {reverse on} {184}{reverse off}{yellow}{168}{168}{168}{168}{168}{white}B B";
  156. 156 PRINT"{reverse on}{red} {186}{reverse off} {188}{reverse on} {reverse off} {182}{reverse on} EE3EE{reverse off}{white}B B";
  157. 157 PRINT"{reverse on}{red} {186}{reverse off} {184} {reverse on}{181} {124} {reverse off}{white}B B";
  158. 158 PRINT"{reverse on}{red} {reverse off}{190} {reverse on}O {124} {124} {reverse off}{white}B B";
  159. 159 PRINT"{reverse on}{red} {124} {reverse off}{181} {172}{reverse on}{124} {124} {reverse off}{white}B B";
  160. 160 PRINT"{reverse on}{red} {124} {reverse off}{165} {182}{reverse on} {124} {reverse off}{white}Blevel 02B";
  161. 161 PRINT"{reverse on}{red} {reverse off}{180} {reverse on}O {183}{184} {183}{reverse off}{187} {reverse on}O {reverse off}{white}B B";
  162. 162 PRINT"{reverse on}{red} {reverse off} {reverse on}O P{reverse off} {reverse on}{181} {168} {reverse off}{white}B B";
  163. 163 PRINT"{reverse on}{red} {186}{reverse off} {reverse on}{181} {124} {reverse off} {182}{reverse on} {124} {reverse off}{white}B B";
  164. 164 PRINT"{reverse on}{red}{124} {reverse off}{blue}{168}{168}{168}{168}{168}{reverse on}{red} {124} {124} {182}{reverse off} {reverse on}L {124}{reverse off}{white}BlandingsB";
  165. 165 PRINT"{reverse on}{red}{124} EE1EE {124} {reverse off}{green}{168}{168}{168}{168}{168}{reverse on}{red} {124} {124}{reverse off}{white}B B";
  166. 166 PRINT"{reverse on}{red} {168} {168} EE2EE {reverse off}{white}B {dark gray}1 2 3 {white}B";
  167. 167 PRINT"{reverse on}{red} {168}{168}{124} {168}{168} {reverse off}{white}B B";
  168. 168 PRINT"{reverse on}{red} {168}{168} {reverse off}{white}JCCCCCCCC";:poke2023,75:return
  169. 169 data 17,37,500,17,37,110,17,37,110,17,37,120,25,177,900
  170. 170 data 28,214,110,25,177,110,22,227,120,28,214,110,25,177,110,22,227,120
  171. 171 data 25,177,500,34,75,500
  172. 172 data 28,214,110,25,177,110,22,227,120,28,214,110,25,177,110,22,227,120
  173. 173 data 25,177,500,34,75,500
  174. 174 data 22,227,100,21,154,100,17,37,120,22,227,100,21,154,120,17,37,120,19,63,900
  175. 175 data 0,0,-1
  176. 176 data 17,37,220,17,37,110,21,154,110,25,177,110,21,154,110,25,177,110
  177. 177 data 21,154,110,19,63,220,19,63,110,22,227,110,28,214,490
  178. 178 data 32,94,110,25,177,110,21,154,110,19,63,110,32,94,110,25,177,110
  179. 179 data 32,94,110,32,94,110,25,177,110,34,75,210,32,94,140,34,75,890,0,0,-1
  180. 180 data 17,37,150,16,47,150,17,37,150,25,177,150,21,154,350
  181. 181 data 17,37,150,16,47,150,15,70,150,16,47,150,25,177,800,0,0,250
  182. 182 data 14,107,150,13,156,150,14,107,150,17,37,150,25,177,350
  183. 183 data 21,154,150,19,63,850,17,37,750,0,0,-1
  184. 184 data 25,177,750,21,154,550,22,227,150,25,177,750,17,37,750
  185. 185 data 19,63,150,21,154,150,22,227,150,25,177,150,22,227,350,21,154,350,19,63,750
  186. 186 data 0,0,300,21,154,150,22,227,150,25,177,150,28,214,150,25,177,350,25,177,350
  187. 187 data 34,75,750,25,177,750,22,227,350,21,154,350,19,63,550,17,37,150,17,37,750
  188. 188 data 0,0,-1
  189. 189 data 16,0,18,8,126,28,5
  190. 190 data 255,204,6,16,54,15,159
  191. 191 data 240,8,146,16,8,243,240
  192. 192 data 8,242,16,8,244,8,31
  193. 193 data 254,24,32,1,244,32,0
  194. 194 data 164,39,128,188,39,192,164
  195. 195 data 31,255,252,13,60,176,25
  196. 196 data 195,152,49,0,140,48,0
  197. 197 data 12,120,0,30,252,0,63
  198. 198 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  199. 199 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,231,128,0,255
  200. 200 data 0,0,126,0,0,60,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,0,0,3
  201. 201 data 0,0,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  202. 202 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  203. 203 data 0,48,0,0,192,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  204. 204 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
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!