home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / R+T-SPACE-BATTLE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.4 KB  |  50 lines
  1. 0 GOTO3000
  2. 5 P1=1025:P2=2022
  3. 10 POKE53280,0:POKE53281,0:PRINT"":GOSUB1000
  4. 30 FORT=0TO10:READD(T):NEXT
  5. 31 P1=1025:P2=2022
  6. 35 IFF1=16ANDF2=16THEN37
  7. 36 GOTO39
  8. 37 IFJ1=0ANDJ2=0THEN40
  9. 39 PRINT"ô----------------------------------------"
  10. 40 IFQ=0THENJ1=INT(RND(1)*10)+1:F1=INT(RND(1)*3):GOTO65
  11. 45 J1=PEEK(56320)
  12. 50 F1=J1AND16
  13. 60 J1=15-(J1AND15)
  14. 65 IFQ<2THENJ2=INT(RND(1)*10)+1:F2=INT(RND(1)*3):GOTO100
  15. 70 J2=PEEK(56321)
  16. 80 F2=J2AND16
  17. 90 J2=15-(J2AND15)
  18. 100 P1=P1+D(J1)
  19. 110 P2=P2+D(J2)
  20. 115 O1=P1-D(J1)
  21. 117 O2=P2-D(J2)
  22. 120 IFP1>1503ORP1<1025THENP1=P1-D(J1)
  23. 130 IFP2>2022ORP2<1544THENP2=P2-D(J2)
  24. 140 POKEP1-1,60:POKEP1,81:POKEP1+1,62
  25. 150 POKEP2-1,60:POKEP2,87:POKEP2+1,62
  26. 160 IFP1-1=P2-1ORP1-1=P2ORP1-1=P2+1THEN300
  27. 162 IFP1=P2-1ORP1=P2ORP1=P2+1THEN300
  28. 164 IFP1+1=P2-1ORP1+1=P2ORP1+1=P2+1THEN300
  29. 170 IFF1=0THEN200
  30. 180 IFF2=0THEN250
  31. 190 GOTO35
  32. 200 FORT=P1+40TO2023STEP40
  33. 210 IFPEEK(T)=87THEND=2:GOTO300
  34. 220 POKET-40,32:POKET,33:POKEP1,81
  35. 230 NEXT
  36. 240 IFF2<>0THEN35
  37. 250 FORT=P2-40TO1024STEP-40
  38. 260 IFPEEK(T)=81THEND=1:GOTO300
  39. 265 POKET+40,32:POKET,33:POKEP2,87
  40. 270 NEXT
  41. 280 GOTO35
  42. 300 IFD=1THENL(1)=L(1)-1:IFL(1)=0THEN400
  43. 310 IFD=2THENL(2)=L(2)-1:IFL(2)=0THEN400
  44. 320 IFD=1THENPRINT"ôPLAYER #1 GOT BLASTED"
  45. 330 IFD=2THENPRINT"ôPLAYER #2 GOT BLASTED"
  46. 340 PRINT"STATUS-"
  47. 350 PRINT"PLAYER #1"L(1)"LIVES"
  48. 355 PRINT"PLAYER #2"L(2)"LIVES"
  49. 357 PRINT"HIT RETURN"
  50.