daily pastebin goal
87%
SHARE
TWEET

Untitled

a guest Jul 17th, 2017 36 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Lbl 1
  2.  
  3. ClrHome
  4. Output(1,1,"AVOID THE"
  5. Output(2,1,"QUESTION MARKS."
  6. Output(4,1,"PRESS ENTER TO"
  7. Output(5,1,"START OR CLEAR"
  8. Output(6,1,"TO EXIT"
  9.  
  10. While 1
  11. getKey->K
  12. If K=45
  13. Goto 99
  14. If K=105
  15. Goto 2
  16. End
  17.  
  18. Lbl 2
  19.  
  20. ClrHome
  21. checkTmr(0)->S
  22.  
  23. 4->X
  24. 8->Y
  25. 2->A
  26. 2->B
  27. 2->C
  28. 15->D
  29. 7->E
  30. 8->F
  31.  
  32. 0->P
  33. 0->I
  34.  
  35. While 1
  36.  
  37. (checkTmr(0)-S)-P->T
  38. Output(1,1,T)
  39.  
  40. Output(X,Y,"0"
  41.  
  42. If I=0
  43. Then
  44.  
  45. 1->I
  46. A->U
  47. B->V
  48. randInt(~1,7)->R
  49. If R>1
  50. Then
  51. If A<X
  52. Then
  53. A+1->A
  54. Else
  55. If A>X
  56. A-1->A
  57. End
  58. Else
  59. A+R->N
  60. If N<9
  61. Then
  62. If N>0
  63. N->A
  64. End
  65. End
  66.  
  67. randInt(~1,7)->R
  68.  
  69. If R>1
  70. Then
  71. If B<Y
  72. Then
  73. B+1->B
  74. Else
  75. If B>Y
  76. B-1->B
  77. End
  78. Else
  79. B+R->N
  80. If N<17
  81. Then
  82. If N>0
  83. N->B
  84. End
  85. End
  86. Output(U,V," "
  87. Output(A,B,"?"
  88.  
  89. Else
  90. If I=1
  91. Then
  92.  
  93. 2->I
  94. C->U
  95. D->V
  96. randInt(~1,7)->R
  97. If R>1
  98. Then
  99. If C<X
  100. Then
  101. C+1->C
  102. Else
  103. If C>X
  104. C-1->C
  105. End
  106. Else
  107. C+R->N
  108. If N<9
  109. Then
  110. If N>0
  111. N->C
  112. End
  113. End
  114. randInt(~1,7)->R
  115. If R>1
  116. Then
  117. If D<Y
  118. Then
  119. D+1->D
  120. Else
  121. If D>Y
  122. D-1->D
  123. End
  124. Else
  125. D+R->N
  126. If N<17
  127. Then
  128. If N>0
  129. N->D
  130. End
  131. End
  132. Output(U,V," "
  133. Output(C,D,"?"
  134.  
  135. Else
  136. 0->I
  137.  
  138. E->U
  139. F->V
  140. randInt(~1,7)->R
  141. If R>1
  142. Then
  143. If E<X
  144. Then
  145. E+1->E
  146. Else
  147. If E>X
  148. E-1->E
  149. End
  150. Else
  151. E+R->N
  152. If N<9
  153. Then
  154. If N>0
  155. N->E
  156. End
  157. End
  158. randInt(~1,7)->R
  159. If R>1
  160. Then
  161. If F<Y
  162. Then
  163. F+1->F
  164. Else
  165. If F>Y
  166. F-1->F
  167. End
  168. Else
  169. F+R->N
  170. If N<17
  171. Then
  172. If N>0
  173. N->F
  174. End
  175. End
  176. Output(U,V," "
  177. Output(E,F,"?"
  178.  
  179. End
  180.  
  181. End
  182.  
  183.  
  184. If A=X and B=Y
  185. Then
  186. Goto 98
  187. Else
  188. If C=X and D=Y
  189. Then
  190. Goto 98
  191. Else
  192. If E=X and F=Y
  193. Goto 98
  194. End
  195. End
  196.  
  197. getKey->K
  198. If K
  199. Then
  200.  
  201. If K=45
  202. Then
  203. checkTmr(0)->J
  204. ClrHome
  205. Output(4,6,"PAUSED"
  206. Pause
  207. P+(checkTmr(0)-J)->P
  208. ClrHome
  209.  
  210. Else
  211. If K=34 and X<8
  212. Then
  213. Output(X,Y," "
  214. X+1->X
  215.  
  216. Else
  217. If K=25 and X>1
  218. Then
  219. Output(X,Y," "
  220. X-1->X
  221.  
  222. Else
  223. If K=26 and Y<16
  224. Then
  225. Output(X,Y," "
  226. Y+1->Y
  227.  
  228. Else
  229. If K=24 and Y>1
  230. Then
  231. Output(X,Y," "
  232. Y-1->Y
  233. End
  234.  
  235. End
  236. End
  237. End
  238. End
  239. End
  240.  
  241. End
  242.  
  243. Lbl 98
  244. (checkTmr(0)-S)-P->T
  245. ClrHome
  246. If T<=H
  247. Then
  248. Output(1,1,"YOU LOSE!")
  249. Output(2,1,"YOU SURVIVED:"
  250. Output(3,1,T)
  251. Output(4,1,"SECONDS")
  252. Output(6,1,"HIGHSCORE: "
  253. Output(6,12,H
  254. Output(7,1,"BY: "
  255. Output(7,5,Str9
  256. Pause
  257. Else
  258. Disp "NEW HIGHSCORE!"
  259. Input "NAME:",Str9
  260. T->H
  261. End
  262.  
  263. Goto 1
  264.  
  265. Lbl 99
  266.  
  267. ClrHome
RAW Paste Data
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
 
Top