home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / CASTLE-SEIGE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  896 b   |  21 lines
  1. 10 PRINT"[147]"TAB(18)"   CASTLE SEIGE   [153]":F=6:Q=RND(TI)*16+1876
  2. 15 FORT=56176TO56290:POKET,2:NEXT
  3. 20 DATA 0,91,39,127,40,241,41,255,76,127,77,241,78,255,80,194
  4. 40 DATA 117,194,118,160,119,251,120,160
  5. 50 FORJ=0TO11:READL,M:POKEQ+L,M:NEXT
  6. 60 POKE53281,0:S=54296:V=53248:POKE2040,13:POKE832,128:POKEV+29,1:POKEV+39,1
  7. 70 IFF=1THENPRINT"[150] GAME OVER! YOU GOT[153]"H;"[150]POINTS.[154]":GOTO160
  8. 75 POKE56217,5:POKE56257,7:POKE56258,7
  9. 80 POKEV+21,0:POKE1985,105:POKE1986,95:POKE1945,70:X=38:Y=230:G=0:F=F-1
  10. 90 PRINTF"SHOTS TO GO.":PRINTTAB(23)"   "
  11. 95 INPUT" ELEVATION (1-88 DEG)";D:PRINT"[153]"
  12. 100 IFD<1ORD>88THEN90
  13. 110 R=(null)/(180/D):A=TAN(R):B=3.3*COS(R):POKE1945,77:POKEV+21,1:POKES,15:POKES,0
  14. 120 X=X+B:Y=Y-(B*A)+G:G=G+.05:IFX>255ORY>250THENFORJ=0TO1E3:NEXT:GOTO70
  15. 130 POKEV,X:POKEV+1,Y
  16. 140 IFPEEK(V+31)=1THENPOKE1024+INT((Y-50)/8)*40+INT((X-24)/8),32:H=H+1:POKES,15
  17. 150 POKES,0:GOTO120
  18. 160 PRINT"                   ":PRINT" PLAY AGAIN  Y/N
  19. 165 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]165
  20. 170 [139]G$[178]"Y"[167][138]
  21.