home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / lunar.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  58 lines
  1. 1 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 5 'LUNAR LANDER BY RUSS HALL
  3. 10 CLS:PRINT@50,"** LUNAR LANDER **":PRINT@130,"Instructions? Y/N"
  4. 20 K$=INKEY$:IFK$=""THEN20
  5. 30 IFK$="Y"ORK$="y"THENGOSUB500
  6. 40 PRINT@203,"Difficulty: (easy) 1/2/3 (hard)?"
  7. 50 K$=INKEY$:IFK$=""THEN50
  8. 60 DI=VAL(K$):IFDI<1ORDI>3THEN50
  9. 70 IFDI=1THENFU=300:DL=500:PA=8
  10. 80 IFDI=2THENFU=225:DL=450:PA=6
  11. 90 IFDI=3THENFU=150:DL=400:PA=4
  12. 100 CLS
  13. 110 FORT=1TOVAL(RIGHT$(TIME$,2)):R=RND(1):NEXT
  14. 120 R=INT(RND(1)*20)+285
  15. 130 BL$=STRING$(39,239):PRINT@280,BL$;
  16. 140 BB$=STRING$(6,239):PRINT@240,BB$:PRINT@273,BB$
  17. 150 BR$=STRING$(3,239):PRINT@200,BR$:PRINT@236,BR$
  18. 160 SP$=STRING$(PA,32):PRINT@R,SP$;
  19. 170 D=-3:H=1:C=0
  20. 180 A=39:I=0
  21. 190 IFA>280THENI=I+1
  22. 200 ON ERROR GOTO410
  23. 210 IFPEEK(A-512)=239THEN440
  24. 220 PRINT@H," ";:PRINT@A,"É";:H=A:SOUND6000,1
  25. 230 J=ABS(D):K=(C*10)+(J*15)
  26. 240 IFI>4THENK=0
  27. 250 PRINT@2,"Fuel:";FU:PRINT@41,"Speed:";K
  28. 260 A$=INKEY$
  29. 270 A=A+D:C=C+1
  30. 280 IFC>2THENA=A+40:C=C-1
  31. 290 IFC<-1THENA=A-40:C=0
  32. 300 FORG=1TODL:NEXT
  33. 310 IFFU<=0THEN190
  34. 320 IFA$=""THEN190
  35. 330 F=ASC(A$):IFF<28ORF>31THEN190
  36. 340 ONF-27GOSUB370,380,390,400
  37. 350 FU=FU-15
  38. 360 GOTO190
  39. 370 D=D-1:RETURN
  40. 380 D=D+1:RETURN
  41. 390 C=C+1:RETURN
  42. 400 C=C-2:RETURN
  43. 410 RESUME420
  44. 420 IFI>5THENCLS:PRINT@50,"SAFE LANDING!":SC=DI*150+FU:PRINT@90,"Your pilot rating is:"SC:IFLS<SCTHENPRINTTAB(10)"NEW HIGH RATING!":GOTO450
  45. 430 IFI>5THENPRINTTAB(10)"High rating:"LS:GOTO450
  46. 440 CLS:PRINT@50,"YOU CRASHED!":SOUND 15000,30
  47. 450 FORT=1TO1000:NEXT
  48. 460 PRINT:PRINTTAB(10)"WANT TO TRY AGAIN?"
  49. 470 K$=INKEY$:IFK$=""THEN470
  50. 480 IFK$="Y"ORK$="y"THENLS=SC:CLS:GOTO40
  51. 490 IFK$="N"ORK$="n"THENMENU ELSE GOTO470
  52. 500 CLS:PRINT" You are the pilot of the Lunar Lander  Module.  Control the retrorockets with"
  53. 510 PRINT"arrow keys.  Remember space inertia and momentum!  According to the difficulty"
  54. 520 PRINT"set, you are given fuel and the landing space. Conserve fuel and increase score."
  55. 530 PRINTTAB(11)"PRESS ANY KEY...";
  56. 540 K$=INKEY$:IFK$=""THEN540
  57. 550 CLS:RETURN
  58.