home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 01 / 0050 / desert.bas next >
Encoding:
BASIC Source File  |  1991-12-02  |  6.9 KB  |  253 lines
  1. 1 WIDTH 80:COLOR 11,3,3
  2. 230 CLS
  3. 240 'KEY 1," DRINK "
  4. 250 'KEY 2," MOD "
  5. 260 'KEY 3," FAST "
  6. 270 'KEY 4," STOP "
  7. 280 'KEY 5," STATUS? "
  8. 290 'KEY 6," HOPE "
  9. 300 'KEY 7,""
  10. 310 'KEY 8,""
  11. 320 'KEY 9,""
  12. 330 'KEY 10,""
  13. 340 REM  ***  DESERT PROGRAM ***
  14. 350 REM TRANSLATED BY IPCO 2/82
  15. 360 CLS
  16. 370 PRINT TAB(35)"DESERT"
  17. 380 PRINT TAB(35)"******"
  18. 390 PRINT
  19. 400 PRINT TAB(29)"IBM BASICA FOR THE PC"
  20. 410 PRINT
  21. 420 PRINT
  22. 430 Y$=STRING$(80,205)
  23. 440 PRINT Y$
  24. 450 PRINT
  25. 460 PRINT
  26. 470 PRINT
  27. 480 FOR DELAY=1 TO 1000
  28. 490 NEXT DELAY
  29. 500 PRINT
  30. 510 PRINT "ENTER YOUR LAST NAME.";
  31. 520 INPUT L$
  32. 530 CLS
  33. 540 PRINT "WOULD YOU LIKE INSTRUCTIONS (Y OR N)";
  34. 550 INPUT D$
  35. 560 IF D$="N" THEN 870
  36. 570 CLS
  37. 580 PRINT
  38. 590 PRINT
  39. 600 PRINT  "WELCOME  TO  DESERT.  THE  OBJECT  IS  TO TRAVEL 40 MILES ACROSS THE GREAT GOBI" :PRINT
  40. 610 PRINT "DESERT. A TRIBE OF KNOCKED KNEED PIGMIES WILL BE CHASING YOU.  YOU WILL BE ASKED"
  41. 620 PRINT "FOR COMMANDS EVERY SO OFTEN..."
  42. 630 PRINT
  43. 640 PRINT
  44. 650 PRINT "   C O M M A N D S :"
  45. 660 PRINT "   ==============="
  46. 670 PRINT
  47. 680 PRINT "   #1 DRINK FROM YOUR CANTEEN"
  48. 690 PRINT "   #2 AHEAD MODERATE SPEED"
  49. 700 PRINT "   #3 AHEAD FULL SPEED"
  50. 710 PRINT "   #4 STOP FOR THE NIGHT"
  51. 720 PRINT "   #5 STATUS CHECK"
  52. 730 PRINT "   #6 HOPE FOR HELP"
  53. 740 PRINT
  54. 750 PRINT
  55. 760 PRINT "PRESS ANY KEY TO CONTINUE"
  56. 770 A$=INKEY$:IF A$="" THEN 770
  57. 780 CLS
  58. 790 PRINT
  59. 800 PRINT "YOU HAVE ONE QUART OF WATER WHICH WILL LAST YOU SIX DRINKS.":PRINT
  60. 810 PRINT "YOUR MAY RENEW YOUR WATER SUPPLY COMPLETELY AT AN OASIS.":PRINT
  61. 820 PRINT "YOU GET A HALF A QUART IF FOUND BY HELP.":PRINT
  62. 830 PRINT "IF HELP DOES NOT FIND YOU AFTER COMMAND SIX, YOU LOSE.":PRINT
  63. 840 PRINT "BE WARY OF COMMAND #3 USE IT ONLY WHEN YOUR CAMEL IS FRESH AND RESTED.":PRINT
  64. 850 PRINT
  65. 860 PRINT
  66. 870 PRINT :PRINT "GOOD LUCK AND GOOD CAMELING!":PRINT :PRINT
  67. 880 PRINT "PRESS ANY KEY TO CONTINUE"
  68. 890 A$=INKEY$:IF A$="" THEN 890
  69. 900 PRINT:CLS
  70. 910 PRINT "YOU ARE IN THE MIDDLE OF THE DESERT AT AN OASIS."
  71. 920 PRINT
  72. 930 GOSUB 2610
  73. 940 IF C>39 THEN 2030
  74. 950 Z=Z-1
  75. 960 IF Z=1 THEN 970 ELSE 1040
  76. 970 'CLS
  77. 980 PRINT
  78. 990 PRINT "---------WARNING-----------GET A DRINK----------------"
  79. 1000 PRINT
  80. 1010 FOR DELAY=1 TO 2000
  81. 1020 NEXT DELAY
  82. 1030 CLS
  83. 1040 IF Z<0 THEN 2520
  84. 1050 P=P+1
  85. 1060 X2=INT(10*RND)+2.5
  86. 1070 IF Q>0 THEN 1690
  87. 1080 IF P<4 THEN 1210
  88. 1090 C1=C1+X2
  89. 1100 IF C1<C THEN 1200
  90. 1110 'CLS
  91. 1120 PRINT "===================================="
  92. 1130 PRINT "THE PYGMIES HAVE CAPTURED":PRINT
  93. 1140 PRINT "YOU--CAMEL AND PEOPLE SOUP":PRINT
  94. 1150 PRINT "IS THEIR FAVORITE DISH!!!":PRINT
  95. 1160 FOR DELAY=1 TO 3500
  96. 1170 NEXT DELAY
  97. 1180 CLS
  98. 1190 GOTO 2440
  99. 1200 PRINT "THE PYGMIES ARE";C-C1;" MILES BEHIND YOU.":PRINT
  100. 1210 PRINT :PRINT "YOU HAVE TRAVELLED ";C;" MILES ALL TOGETHER.":PRINT
  101. 1220 PRINT :PRINT "WHAT IS YOUR COMMAND, CAMELEER ";L$;"";
  102. 1230 PRINT Y$
  103. 1240 INPUT Y
  104. 1250 ON Y GOTO 1540,1320,1390,1480,1510,1260
  105. 1260 T=INT(10*RND)
  106. 1270 IF T<>1 THEN 2020
  107. 1280 PRINT:PRINT "HELP HAS FOUND YOU IN A STATE OF UNCONSCIOUSNESS."
  108. 1290 S=3
  109. 1300 Z=4
  110. 1310 GOTO 940
  111. 1320 F=F+1
  112. 1330 IF F=8 THEN 2000
  113. 1340 GOSUB 1590
  114. 1350 X1=INT(10*RND)
  115. 1360 C=C+X1
  116. 1370 PRINT:PRINT "YOUR CAMEL LIKES THIS PLACE."
  117. 1380 GOTO 940
  118. 1390 F=F+3
  119. 1400 IF F>7 THEN 2000
  120. 1410 GOSUB 1590
  121. 1420 X1=2*INT(10*RND)
  122. 1430 C=C+X1
  123. 1440 PRINT
  124. 1450 PRINT:PRINT  "YOUR CAMEL IS BURNING ACROSS THE DESERT SANDS."
  125. 1460 PRINT
  126. 1470 GOTO 940
  127. 1480 PRINT:PRINT "YOUR CAMEL THANKS YOU!"
  128. 1490 F=0
  129. 1500 GOTO 950
  130. 1510 PRINT:PRINT "YOUR CAMEL HAS";7-F;"GOOD DAYS LEFT."
  131. 1520 PRINT :PRINT "YOU HAVE ";S;" DRINKS LEFT IN YOUR CANTEEN "
  132. 1530 PRINT :PRINT "YOU CAN GO ";Z;" COMMANDS WITHOUT DRINKING."
  133. 1540 S=S-1
  134. 1550 IF S<0 THEN 2020
  135. 1560 PRINT :PRINT "BETTER WATCH FOR AN OASIS !"
  136. 1570 Z=4
  137. 1580 GOTO 1220
  138. 1590 A=INT(100*RND)
  139. 1600 IF A>5 THEN 1940
  140. 1610 PRINT "WILD BERBERS HIDDEN IN THE SAND HAVE CAPTURED YOU."
  141. 1620 PRINT :PRINT "LUCKILY THE LOCAL SHEIK HAS AGREED TO THEIR RANSOME "
  142. 1630 PRINT :PRINT "DEMANDS....BUT....WATCH OUT FOR THE PYGMIES!!!!"
  143. 1640 PRINT
  144. 1650 PRINT "YOU HAVE A NEW CHOICE OF SUB-COMMANDS:"
  145. 1660 KEY 7," ESCAPE"
  146. 1670 PRINT
  147. 1680 KEY 8," WAIT "
  148. 1690 PRINT " #7 ATTEMPT TO ESCAPE"
  149. 1700 PRINT " #8 WAIT FOR PAYMENT"
  150. 1710 PRINT
  151. 1720 PRINT "YOUR SUB-COMMAND ";
  152. 1730 INPUT X
  153. 1740 IF X=8 THEN 1820
  154. 1750 X1=INT(10*RND)
  155. 1760 IF X1<5 THEN 1800
  156. 1770 PRINT :PRINT "CONGRATULATIONS, YOU ESCAPED SUCCESSFULLY !!!!!"
  157. 1780 Q=0
  158. 1790 GOTO 940
  159. 1800 PRINT :PRINT "YOU ARE MORTALLY WOUNDED BY A PIG STABBER WHILE ESCAPING!!!!"
  160. 1810 GOTO 2260
  161. 1820 X1=INT(100*RND)
  162. 1830 REM
  163. 1840 IF X1>24 THEN 1900
  164. 1850 PRINT :PRINT "YOUR RANSOME HAS BEEN PAID AND YOU ARE FREE TO GO."
  165. 1860 FOR DELAY=1 TO 4000
  166. 1870 NEXT DELAY
  167. 1880 Q=0
  168. 1890 GOTO 940
  169. 1900 PRINT "THE LOCAL SULTAN IS COLLECTING... JUST WAIT..."
  170. 1910 FOR DELAY=1 TO 4000
  171. 1920 NEXT DELAY
  172. 1930 GOTO 940
  173. 1940 A=INT(10*RND)
  174. 1950 IF A>2 THEN 2100
  175. 1960 PRINT :PRINT "YOU HAVE ARRIVED AT AN OASIS, YOUR CAMEL IS FILLING YOUR CANTEEN AND EATING FIGS"
  176. 1970 Z=4
  177. 1980 S=6
  178. 1990 RETURN
  179. 2000 PRINT :PRINT "YOU DIRTY RAPSCALLION !!!"
  180. 2010 PRINT :PRINT "YOU RAN YOUR POOR CAMEL TO DEATH !!!!!"
  181. 2020 GOTO 2260
  182. 2030 CLS
  183. 2040 PRINT Y$
  184. 2050 X$=STRING$(80,2)
  185. 2060 PRINT X$
  186. 2070 PRINT "YOU WIN!  A PARTY IS BEING GIVEN IN YOUR HONOR........."
  187. 2080 PRINT :PRINT "...THE PYGMIES ARE PLANNING TO ATTEND......."
  188. 2090 GOTO 2440
  189. 2100 X1=INT(100*RND)
  190. 2110 IF X1>5 THEN 2210
  191. 2120 PRINT :PRINT "YOU HAVE BEEN CAUGHT IN A SANDSTORM...... GOOD LUCK !!!"
  192. 2130 X5=INT(10*RND)
  193. 2140 X6=INT(10*RND)
  194. 2150 IF X6<5 THEN 2180
  195. 2160 C=C+X5
  196. 2170 GOTO 2190
  197. 2180 C=C-X5
  198. 2190 PRINT :PRINT "YOUR NEW POSITION IS ";C;" MILES SO FAR!"
  199. 2200 RETURN
  200. 2210 X1=INT(100*RND)
  201. 2220 IF X1>5 THEN 1250
  202. 2230 C1=C1+1
  203. 2240 PRINT :PRINT "YOUR CAMEL HAS HURT HIS HUMP LUCKILY THE PYGMIES WERE FOOTWEARY !!!!"
  204. 2250 RETURN
  205. 2260 U=INT(10*RND)
  206. 2270 PRINT :PRINT "YOU DIED IN THE DESERT."
  207. 2280 FOR DELAY=1 TO 1000
  208. 2290 NEXT DELAY
  209. 2300 PRINT
  210. 2310 IF U>1 THEN 2340
  211. 2320 PRINT "THE NATIONAL CAMEL'S UNION IS NOT ATTENDING YOUR FUNERAL !!!"
  212. 2330 GOTO 2440
  213. 2340 IF U>3 THEN 2370
  214. 2350 PRINT :PRINT "YOUR BODY WAS EATEN BY VULTURES AND IMPORTED CANNIBALS !!!!"
  215. 2360 GOTO 2440
  216. 2370 IF U>5 THEN 2400
  217. 2380 PRINT :PRINT "THE LOCAL SHEIK NOW USES YOUR SKULL FOR A CHANGE PURSE !!!!"
  218. 2390 GOTO 2440
  219. 2400 IF U>7 THEN 2430
  220. 2410 PRINT :PRINT "PEOPLE WITH LITTLE INTELLIGENCE SHOULD STAY OUT OF THE DESERT!!!!"
  221. 2420 GOTO 2440
  222. 2430 PRINT :PRINT "TURKEYS SHOULD FLY, NOT RIDE CAMELS !!!"
  223. 2440 PRINT
  224. 2450 FOR DELAY=1 TO 1000
  225. 2460 NEXT DELAY
  226. 2470 PRINT
  227. 2480 PRINT "WANT A NEW CAMEL AND A NEW GAME (Y OR N)";
  228. 2490 INPUT D$
  229. 2500 IF D$="Y" THEN 850
  230. 2510 GOTO 2540
  231. 2520 PRINT :PRINT "YOU RAN OUT OF WATER........SORRY CHUM!!!!!"
  232. 2530 GOTO 2260
  233. 2540 CLS
  234. 2550 PRINT Y$
  235. 2560 PRINT X$
  236. 2570 PRINT TAB(37)"CHICKEN"
  237. 2580 PRINT X$
  238. 2590 PRINT Y$
  239. 2600 END
  240. 2610 Z=4
  241. 2620 S=6
  242. 2630 C=0
  243. 2640 C1=0
  244. 2650 Q=0
  245. 2660 F=0
  246. 2670 P=0
  247. 2680 RETURN
  248. "
  249. 2580 PRINT X$
  250. 2590 PRINT Y$
  251. 2600 END
  252. 2610 Z=4
  253. 262