home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c64 / games / slash.c64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-04-06  |  2.9 KB  |  73 lines
  1. 0 REM**WRITTEN BY  (null)ON ASCANCELLA***  LEAVE SUGGESTIONS IN E-MAIL.  (null)HANKS, (null)ON.
  2. 1 POKE53281,0:POKE53281,0:PRINTCHR$(142)CHR$(8)"[147][158]               SLASH[146]"
  3. 2 PRINT"    DO YOU NEED INSTRUCTIONS ? (Y/N)":GOSUB97:IFA$="Y"THEN100
  4. 3 GOTO107
  5. 4 SC=SC-1:IFD=40ANDS+D>2023THENS=S-960
  6. 5 IFD=-40ANDS+D<1064THENS=S+960
  7. 6 IFD=1ANDINT((S-1103)/40)=(S-1103)/40THENS=S-40
  8. 7 IFD=-1ANDINT((S-1064)/40)=(S-1064)/40THENS=S+40
  9. 8 S=S+D:O=PEEK(S+54272):CP=PEEK(S):POKES,81:IFSC<=1THEN33
  10. 9 POKES+54272,12:POKES,CP:PRINT"PTS="SC"  ":POKES+54272,O:IFCP<>32THEN14
  11. 10 GETA$:IFA$=""THEN4
  12. 11 IFA$="[133]"THEN20
  13. 12 IFA$="[136]"THEN21
  14. 13 IFA$="Q"THENPRINT"[147][158]DO YOU WANT TO PLAY AGAIN ? (Y/N)":GOTO125
  15. 14 IFCP=90THEN31
  16. 15 IFCP=42THEN18
  17. 16 IFCP=78ORCP=77THEN22
  18. 17 GOTO4
  19. 18 FORX=1TO500:NEXTX:POKES,87:FORX=1TO500:NEXTX:POKES,32:POKES-41,85:POKES-39,73
  20. 19 POKES+39,74:POKES+41,75:FORX=1TO500:NEXTX:GOTO122
  21. 20 POKES,78:POKES+54272,5:CP=PEEK(S):GOTO22
  22. 21 POKES,77:CP=PEEK(S):POKES+54272,5
  23. 22 SC=SC-1:CP=PEEK(S):IFCP=78ANDD=1THEND=-40:GOTO30
  24. 23 IFCP=78ANDD=-1THEND=40:GOTO8
  25. 24 IFCP=78ANDD=40THEND=-1:GOTO8
  26. 25 IFCP=78ANDD=-40THEND=1:GOTO8
  27. 26 IFCP=77ANDD=1THEND=40:GOTO8
  28. 27 IFCP=77ANDD=-1THEND=-40:GOTO8
  29. 28 IFCP=77ANDD=40THEND=1:GOTO8
  30. 29 IFCP=77ANDD=-40THEND=-1:GOTO8
  31. 30 GOTO8
  32. 31 PRINT"CRY="C:SC=SC+100:IFC=1THEN40
  33. 32 C=C-1:POKES,32:POKES+54272,1:GOTO4
  34. 33 PRINT"[147]ENSIGN KIRK, YOU PUSHED YOUR COMMAND."
  35. 34 PRINT"AND LOST YOUR COMMAND !!!!":SC=150
  36. 35 PRINT"YOU ARE OUT OF CRYSTAL POINTS.[158]":GOTO124
  37. 40 PRINT"[147]AUK, CAPTAIN.  YU' GAT 'EM ALL."
  38. 41 PRINT"OF CORSE, SCOTTY.  THATS WHY I'M"
  39. 42 PRINT"THE CAPTAIN."
  40. 43 PRINT"CARE TO TRY AGAIN ? (Y/N)":L=L+1:GOTO125
  41. 97 GETA$:IFA$=""THEN97
  42. 98 SC=150:IFA$="Y"ORA$="N"THENRETURN
  43. 99 GOTO97
  44. 100 PRINT"[147]THIS IS THE GAME OF SLASH[146].":PRINT"THE OBJECT OF THE GAME IS TO";
  45. 101 PRINT" GATHER ALL THE DILETHEM CRYSTALS '[218][158]' WITH YOUR SHIP'[152][209][158]'."
  46. 102 PRINT"TO CONTROLL THE SHIP YOU USE THE 'F1[146][158]'   AND THE 'F7[146][158]'KEYS:"
  47. 103 PRINT"F1[146][158] PUTS A '[206][158]' IN FRONT OF YOUR SHIP."
  48. 104 PRINT"F7[146][158] PUTS A '[205][158]' IN FRONT OF YOUR SHIP."
  49. 105 PRINT"YOUR SHIP WILL THEN BOUNCE OFF WHAT IS"
  50. 106 PRINT"DIRECTLY IN FRONT OF IT."
  51. 107 PRINT"        SKILL LEVEL (1-9) ?  (?)[157][157]";
  52. 108 GETA$:IFA$=""THEN108
  53. 109 IFA$=CHR$(13)THEN112
  54. 110 IFA$<"1"ORA$>"9"THEN108
  55. 111 PRINTA$:L=VAL(A$):PRINT"         HIT RETURN[146][158] WHEN READY.[145][145]";:GOTO108
  56. 112 PRINT:PRINT"[147]             SETTING UP...":POKE53281,6:POKE53280,0
  57. 113 C=INT(RND(1)*L*4)+10:Y=INT(RND(1)*L*3)+5:POKE1523,86:FORX=1TOC
  58. 114 S=INT(RND(1)*959)+1064:IFPEEK(S)<>32THEN114
  59. 115 POKES,90:POKES+54272,6:NEXTX:FORX=1TOY
  60. 116 S=INT(RND(1)*959)+1064:IFPEEK(S)<>32THEN116
  61. 117 POKES,42:POKES+54272,2:FORY=1TO50:NEXTY:NEXTX
  62. 118 PRINT"             AVOID THE STARS            "
  63. 119 POKE53280,6:POKE53281,0:PRINT"PTS="SC"  "
  64. 120 S=1523:FORX=1TO10:POKES,81:FORY=1TO75:NEXTY:POKES,32:FORY=1TO75:NEXTY:NEXTX
  65. 121 D=1:GOTO4
  66. 122 FORX=1TO5:POKE53281,2:FORY=1TO500:NEXTY:POKE53281,0:FORY=1TO500:NEXTY:NEXTX
  67. 123 PRINT"[147][158]SO, YOU MESSED UP[158] AGAIN ?":PRINT"I THINK I HAVE ENOUGH"
  68. 124 PRINT"TIME TO WASTE YOU AGAIN.":PRINT"HOW ABOUT IT ? (Y,N)"
  69. 125 GETA$:IFA$=""THEN125
  70. 126 IFA$="N"THENPRINT"[147]THANK FOR PLAYING.":END
  71. 127 IFA$="Y"THEN112
  72. 128 GOTO125
  73.