home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_004_19xx_-_de_Disk_2_of_2_Side_B.d64 / pirates (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  127 lines
  1. 0 goto12000
  2. 1 spz=10241:s=53248:pokespz-1,0:col=255:pokecol,2:q=1:li=3:dd=0
  3. 2 fl=10368:up=fl+3:dn=fl+6:lf=fl+9:rt=fl+12:sn=251:sx=252:o=1416
  4. 3 def fn a(x)=peek(52481)*256+peek(52480)-54272:se=1177:de=se+79:dk=0
  5. 100 gosub2000:gosub1000
  6. 101 gosub3000:sysfl:gosub4000:gosub3000:gosub4000:gosub4000:gosub3000:gosub4000
  7. 102 goto101
  8. 1000 print"[147]  -  attack of the software pirates  -"
  9. 1010 a$="                        "
  10. 1020 b$="  [158]      [158]      [158]      [158]    "
  11. 1030 c$="[213][201][213][201][213][201][213][201][158][213][201][213][201][213][201][213][201][213][201][213][201][213][201][213][201]"
  12. 1040 d$="[202][203][202][203][202][203][202][203][158][202][203][202][203][202][203][202][203][202][203][202][203][202][203][202][203]"
  13. 1050 printc$:printd$:fori=1to5:printa$:printa$:printb$:printb$:nexti
  14. 1060 print"        [158]                "
  15. 1070 print"        [158]                "
  16. 1080 fori=0to25:print"";:nexti:print"score:00000"
  17. 1090 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157]disks:00[157][157][157][157][157][157][157][157]lives"
  18. 1998 pokes+21,231:return
  19. 2000 pokes+21,0:pokes+32,0:pokes+33,0:print"[147]":fori=0to11:print:nexti
  20. 2002 print"[158]            please wait"
  21. 2003 forq=1to2:w=0:fori=1to16:forp=0to1:reada:pokespz+y+w+p,a:nextp
  22. 2004 pokespz+y+w+p,0:w=w+3:nexti:w=w-3:fori=1to16:pokespz+y+w+p+i,0:nexti
  23. 2005 y=y+64:w=w+3:nextq:m=2040
  24. 2006 pokem,161:fori=m+1tom+4:pokei,160:nexti:pokes,16:pokes+1,74
  25. 2008 fori=s+39tos+46:pokei,0:nexti:pokes+28,255:pokes+37,1:pokes+38,10
  26. 2009 pokem+5,161:pokem+6,161:pokem+7,161:pokes+16,224:pokes+15,101
  27. 2010 pokes+10,15:pokes+11,101:pokes+12,32:pokes+13,101:pokes+14,49
  28. 2011 pokes+2,16:pokes+3,202:pokes+4,64:pokes+5,202:pokes+6,112:pokes+7,202
  29. 2012 pokes+8,160:pokes+9,202
  30. 2020 x=52480:fori=0to9:readf:pokex+i,f:nexti
  31. 2500 z=10368:fori=0to277:readd:pokez+i,d:nexti:return
  32. 3000 j=peek(56320):pokesx,0:pokesn,0
  33. 3020 ifj=125thensysdn
  34. 3030 ifj=126thensysup
  35. 3040 ifj=119thensysrt
  36. 3050 ifj=123thensyslf
  37. 3055 poke53278,255:e=peek(53278)and1
  38. 3057 ife=1andcar=1thengosub5000
  39. 3060 ifpeek(fna(x))=213andcar=0andpeek(53249)<>234thencar=1:gosub3900
  40. 3065 ifpeek(53249)=234andcar=1andpeek(fna(x))<>213thencar=0:gosub3950
  41. 3070 return
  42. 3900 pokefna(x),160:pokefna(x)+1,160:pokefna(x)+40,160:pokefna(x)+41,160
  43. 3901 vv=fna(x):return
  44. 3950 pokefna(x),213:pokefna(x)+1,201:pokefna(x)+40,202:pokefna(x)+41,203
  45. 3960 ifpeek(se)=57thenpokese-1,peek(se-1)+1:pokese,48:goto3980
  46. 3970 pokese,peek(se)+1
  47. 3980 ifpeek(de+1)=57thenpokede,peek(de)+1:pokede+1,48:dk=dk+1:goto3999
  48. 3990 pokede+1,peek(de+1)+1:dk=dk+1:ifdk=4thengosub5500
  49. 3999 return
  50. 4000 q=q+1:ifq=5thenq=1
  51. 4001 poke53278,255:pokesn,q:pokesx,q*2:gx=peek(53248):gy=peek(53249)
  52. 4120 bx=peek(53248+(q*2)):by=peek(53249+(q*2))
  53. 4125 ifcar=0andq<3thengoto4170
  54. 4126 ifcar=1andq=4thenforgh=1to2
  55. 4130 ifbx<gxthensysrt
  56. 4140 ifbx>gxthensyslf
  57. 4150 ifby<gythensysdn
  58. 4160 ifby>gythensysup
  59. 4170 e=peek(53278)and1
  60. 4180 ife=1andcar=1thengosub5000
  61. 4181 ifcar=1andq=4thennextgh
  62. 4999 return
  63. 5000 li=li-1:car=0:pokevv,213:pokevv+1,201:pokevv+40,202:pokevv+41,203
  64. 5010 poke53269,peek(53269)and(2^(5+li))-1:ifli=0then5600
  65. 5020 return
  66. 5500 dd=dd+dk:dk=0:ifdd=4thencc=30:pokecol,5:poke53269,peek(53269)or8
  67. 5520 ifdd=8thencc=158:pokecol,7:poke53269,peek(53269)or16
  68. 5530 ifdd=12thengoto7000
  69. 5545 print"":a$="                        "
  70. 5551 print:printchr$(cc):fori=1to4:printa$:printa$:print:print:nexti
  71. 5571 printa$:printa$:printa$:printa$;"":return
  72. 5600 fori=0to100:poke53287,peek(53287)+iand15:nexti:poke53269,0
  73. 5601 fori=0to50:print:next
  74. 5602 print"              game over"
  75. 5603 print"           another game? y/n"
  76. 5610 for i=1to11:print:next
  77. 5620 geta$:ifa$=""then5620
  78. 5630 ifa$="y"thenrun
  79. 5640 ifa$<>"n"then5620
  80. 5650 end
  81. 5999 return
  82. 7000 fori=0to06:print:next:print"you win"
  83. 7001 fori=0to30:forfl=0to3:poke53288+fl,peek(53288+fl)+1and15:nextfl:nexti
  84. 7002 poke53269,0:goto5601
  85. 10000 data0,0,0,0,2,160,10,168,43,250,38,218,47,254,42,170
  86. 10010 data9,88,2,160,0,192,2,160,5,20,8,8,4,4,40,10
  87. 10020 data0,0,2,10,10,8,42,170,43,250,38,230,47,254,15,252
  88. 10030 data3,240,3,240,10,104,42,170,42,106,42,170,58,171,63,63
  89. 10040 rem
  90. 10050 data120,216,248,218,254,218,4,219,10,219
  91. 11000 data76,143,40,76,249,40,76,23,41,76,53,41,76,83,41,169
  92. 11010 data200,133,253,169,216,133,254,32,151,224,165,141,41,15,201,12
  93. 11020 data16,245,141,6,204,32,151,224,165,141,41,7,201,5,16,245
  94. 11030 data170,224,0,240,14,165,253,24,105,160,133,253,144,2,230,254
  95. 11040 data202,208,238,174,6,204,224,0,240,14,165,253,24,105,2,133
  96. 11050 data253,144,2,230,254,202,208,238,32,151,224,165,141,41,3,201
  97. 11060 data3,240,245,168,185,246,40,160,0,145,253,200,145,253,160,40
  98. 11070 data145,253,200,145,253,96,2,5,7,32,130,41,56,233,80,133
  99. 11080 data253,176,2,198,254,32,141,41,208,12,32,115,41,185,1,208
  100. 11090 data56,233,16,153,1,208,96,32,130,41,24,105,80,133,253,144
  101. 11100 data2,230,254,32,141,41,208,12,32,115,41,185,1,208,24,105
  102. 11110 data16,153,1,208,96,32,130,41,56,233,2,133,253,176,2,198
  103. 11120 data254,32,141,41,208,12,32,115,41,185,0,208,56,233,16,153
  104. 11130 data0,208,96,32,130,41,24,105,2,133,253,144,2,230,254,32
  105. 11140 data141,41,208,14,32,115,41,185,0,208,24,105,16,153,0,208
  106. 11150 data144,0,96,165,253,157,0,205,165,254,157,1,205,165,251
  107. 11160 data10,168,96,166,252,189,1,205,133,254,189,0,205,96,160,0,177
  108. 11170 data253,41,15,197,255,96
  109. 12000 poke53280,0:poke53281,0:print"[147]"
  110. 12001 print"[154]-attack of the software pirates-"
  111. 12002 print"[150]   the objective is to get the
  112. 12003 [153]"disks from the top of the screen
  113. 12004 print"to the bottom, and deposit them
  114. 12005 [153]"in their correct color coordinated
  115. 12006 print"positions."
  116. 12007 print"   the first row of disks you will
  117. 12008 [153]"find fairly easy.  the second color
  118. 12009 print"will get tougher as the software
  119. 12010 [153]"pirates are out to stop you."
  120. 12011 [153]"   if a pirate should catch you
  121. 12012 print"he will automatically  steal your
  122. 12013 [153]"disk and place it back at the top
  123. 12014 print"of the screen."
  124. 12015 print"[153]any key to play game"
  125. 12016 getgm$:ifgm$="" then12016
  126. 12020 goto1
  127.