home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 28 / 028.d81 / jungle! (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  228 lines
  1. 115 gosub15000:poke53277,0:poke816,165:poke817,244
  2. 120 print"[147]"tab(11)"one moment please"
  3. 130 read fr,dr:if fr=0then150
  4. 140 goto130
  5. 150 gosub1160:rem  ifpeek(49152)=174andpeek(49528)=1then190
  6. 160 forx=49152to49528:reada:pokex,a:next
  7. 170 forx=50880to51116:reada:pokex,a:next
  8. 180 forx=12288to12926:reada:pokex,a:next
  9. 190 v=53248:s=54272:hs=0
  10. 200 sc=0:m=5:b=1000:lp=1
  11. 210 gosub1000:gett$
  12. 220 gosub1250
  13. 230 gosub790
  14. 240 pokev+21,255:poke50432,191:sys51104
  15. 250 q=192:p=199:c1=peek(v+30):c2=peek(v+31):j2=56320
  16. 270 q=q+1:ifq=198thenq=192
  17. 280 poke2047,q
  18. 290 jy=peek(j2)and15
  19. 300 ifjy=7thenpoke50447,1:poke50448,0:poke50688,128:goto340
  20. 310 ifjy=11thenpoke50447,255:poke50448,0:poke50688,128:goto340
  21. 320 ifjy=13thenpoke50447,0:poke50448,1:poke50688,128:goto340
  22. 330 ifjy=14thenpoke50447,00:poke50448,255:poke50688,128:goto340
  23. 340 onlpgosub380,390,400,410,430:lp=lp+1:iflp=6thenlp=1
  24. 350 c1=peek(v+30):ifc1>127then460
  25. 360 c2=peek(v+31):ifc2>127then540
  26. 370 goto270
  27. 380 poke49522,2:poke49525,6:poke49526,7:sys49152:return
  28. 390 poke49522,1:poke49525,12:poke49526,13:sys49152:return
  29. 400 poke49522,2:poke49525,18:poke49526,19:sys49152:return
  30. 410 p=p+1:ifp=200thenp=198
  31. 420 forx=2040to2045:pokex,p:next:return
  32. 430 b=b-5:ifb=0thensc=sc+(100*m):goto640
  33. 440 print""tab(8)"     ":print""tab(8);b:return
  34. 460 ifc1>191then490
  35. 470 goto540
  36. 480 rem    get diamond
  37. 490 poke50447,0:poke50448,0:poke50688,128:poke50432,0
  38. 500 sc=sc+100+b:print""tab(26);sc
  39. 510 gosub1080
  40. 520 pokev+16,64:pokev+14,48:pokev+15,218:poke50432,191:goto250
  41. 540 poke50447,0:poke50448,0:poke50688,128
  42. 550 poke50432,0:poke2047,201
  43. 560 forl=0to24:pokes+l,0:next:pokes+24,15
  44. 570 pokes+5,8:pokes+6,255:pokes+4,21
  45. 580 forz=1to3:f1=9:fory=1to5:f2=36:pokes+1,f1
  46. 590 forx=1to5:pokes+15,f2:f2=f2*.9:nextx:f1=f1*1.0:nexty:nextz:pokes+6,15
  47. 600 m=m-1:print""tab(18);m:ifm=0then640
  48. 610 fort=0to200:next
  49. 620 pokev+16,64:pokev+14,48:pokev+15,218:poke2047,q:poke50432,191:goto250
  50. 630 rem    game over-replay option
  51. 640 poke50447,0:poke50448,0:poke50688,128:poke50432,0:pokev+21,0:poke53281,0
  52. 650 pokev+23,128:pokev+29,128:pokev+16,0:pokev+14,160:pokev+15,180:poke2047,q
  53. 660 pokev+21,128
  54. 670 print"[147]"tab(8)"[158]s c o r e  ";sc
  55. 680 ifsc>hsthenhs=sc
  56. 690 print""tab(8)"[158]h i g h  s c o r e  ";hs
  57. 700 gosub1090
  58. 710 getjunk$:ifjunk$<>""then710
  59. 720 print""tab(8)"press fire to go again"
  60. 725 print:printtab(8)"press q to return to loadstar"
  61. 730 poke2047,q:q=q+1:ifq=198thenq=192
  62. 740 gosub15030
  63. 770 pokev+23,0:pokev+29,0:pokev+21,0:goto200
  64. 790 poke53281,15
  65. 800 print"[147]+++bonus"b;tab(14)"men "m;tab(21)"score"sc;tab(33)"   +++"
  66. 810 print" [149],    [158]-------[158]--------[158]--------[158]---- [149]   ,"
  67. 820 print"j[158]-----[158]-"tab(36)"---":print"u[158]-"tab(38)"-"
  68. 830 print"n[158]-"tab(36)"---":print"g[158]-"tab(38)"-"
  69. 840 print"l-+++[149]%&'+++[149]%&'    +++[149]%&'+++    [149]%&'+++ -"
  70. 850 print"e- [149], ()* , ()*     , ()* ,     ()* ,  -"
  71. 860 print"!-"tab(38)"[158]-":print" -"tab(38)"[158]-":print"j[158]-"tab(38)"-"
  72. 870 print"u[158]-"tab(38)"-"
  73. 880 print"n[158]-[151]\]^\]^    \]^\]^\]^\]^    \]^\]^\]^ -"
  74. 890 print"g[158]-[151]_#$_#$    _#$_#$_#$_#$    _#$_#$_#$ -"
  75. 900 print"l-"tab(38)"-":print"e-"tab(38)"-":print"!-"tab(38)"[158]-"
  76. 910 print" -"tab(38)"[158]-"
  77. 920 print"j[158]-+++vwxvwx+++    +++vwxvwx+++     +++[158]-"
  78. 930 print"u[158]- [149], yz[yz[ [149],      , yz[yz[ [149],       , [158]-"
  79. 940 print"n[158]-"tab(38)"-":print"g[158]-"tab(38)"-":print"l-"tab(38)"-"
  80. 950 print"e-"tab(38)"-"
  81. 960 poke1984,33:poke56256,6
  82. 970 forx=1985to2022:pokex,45:next:forx=56257to56294:pokex,2:next
  83. 980 return
  84. 1000 poke53280,0:poke53281,0:print"[147]":printtab(11)"loadstar presents"
  85. 1005 printtab(9)"---"
  86. 1010 printtab(10)"-"tab(35)"-":printtab(10)"-"tab(35)"-"
  87. 1020 printtab(10)"-  - - /  - --- -   ---  -"
  88. 1030 printtab(10)"-  - - -/ - -   -   --   -"
  89. 1040 printtab(10)"-  - - -./- - - -   -"
  90. 1050 printtab(5)"---  -  --- - .- --- --- ---  -":printtab(6)"-   -"
  91. 1060 printtab(6)"-----  --------------------":print
  92. 1070 printtab(9)"it be a jungle out der!"
  93. 1075 gosub1080:print""tab(15)"press fire":goto15030
  94. 1080 restore
  95. 1090 forl=0to24:pokes+l,0:next
  96. 1100 pokes+3,8:pokes+5,41:pokes+6,89:pokes+14,117:pokes+18,16:pokes+24,143
  97. 1110 readfr,dr:iffr=0thenreturn
  98. 1120 pokes+4,65
  99. 1130 fort=1todr*2:fq=fr+peek(s+27)/2:hf=int(fq/256):lf=fqand255
  100. 1140 pokes+0,lf:pokes+1,hf:next:pokes+4,64:goto1110
  101. 1150 rem    write custom character set
  102. 1160 ch=14336:rm=38912
  103. 1170 poke53272,(peek(53272)and240)or14
  104. 1180 poke56334,peek(56334)and254:poke1,peek(1)and251
  105. 1190 fori=chtoch+511:pokei,peek(i+rm):next
  106. 1200 poke1,peek(1)or4:poke56334,peek(56334)or1
  107. 1210 fori=ch+8*22toch+8*31step8:forj=itoi+7:reada:pokej,a:next:next
  108. 1220 fori=ch+8*35toch+8*47step8:forj=itoi+7:reada:pokej,a:next:next
  109. 1230 return
  110. 1240 rem    sprite set-ups
  111. 1250 forx=39to44:pokev+x,5:next:pokev+45,6:pokev+28,128:pokev+46,14:pokev+37,1
  112. 1260 pokev+16,64
  113. 1270 pokev+38,9:pokev+0,255:pokev+1,74:pokev+2,96:pokev+3,74:pokev+4,96
  114. 1280 pokev+5,122:pokev+6,196:pokev+7,170:pokev+8,250:pokev+9,218:pokev+27,63
  115. 1290 pokev+10,250:pokev+11,122:pokev+12,32 :pokev+13,52:pokev+14,48:pokev+15,218
  116. 1300 poke2047,192:forx=2040to2045:pokex,199:next:poke2046,200
  117. 1310 poke50433,1:poke50434,0:poke50435,0:poke50436,1:poke50437,1:poke50438,0
  118. 1320 poke50439,1:poke50440,0:poke50441,0:poke50442,255:poke50443,254:poke50444,0
  119. 1330 poke50445,0:poke50446,0:poke50447,0:poke50448,0
  120. 1340 return
  121. 1350 rem    drum music
  122. 1360 data 2703,2,2025,2,2025,2,2025,2,2703,2,2025,2,2025,2,2025,2
  123. 1370 data 2703,2,2025,2,2703,2,2025,2,2703,2,2025,2,2025,2,2025,2,0,0
  124. 1380 rem data 1804,2,1351,2,1351,2,1351,2,1804,2,1351,2,1351,2,1361,2
  125. 1390 rem data 1804,2,1351,2,1804,2,1351,2,1804,2,1351,2,1351,2,1351,2
  126. 1400 rem data 2703,2,2025,2,2025,2,2025,2,2703,2,2025,2,2025,2,2025,2
  127. 1410 rem data 2703,2,2025,2,2703,2,2025,2,1804,8,0,0
  128. 1420 rem    custom characters
  129. 1430 data 0,120,72,72,64,192,201,127,0,0,0,0,0,0,36,255,0,0,0,0,0,48,49,255
  130. 1440 data 127,127,31,28,28,31,0,0,255,255,254,28,28,31,0,0
  131. 1450 data 255,32,48,25,15,0,0,0,1,31,255,253,204,222,254,254
  132. 1460 data 255,255,255,255,255,255,255,255,128,192,224,240,240,248,248,255
  133. 1470 data 248,255,255,199,199,199,199,239,255,255,255,0,0,0,0,0
  134. 1480 data 240,240,240,112,112,112,112,240,126,66,98,32,48,24,15,15
  135. 1490 data 0,0,0,0,0,0,192,255,0,0,0,0,128,240,216,248
  136. 1500 data 15,31,59,121,252,254,255,255,255,255,255,255,255,129,224,224
  137. 1510 data 248,128,128,128,128,192,254,126,255,255,126,126,126,60,60,60
  138. 1520 data 24,24,60,60,60,126,126,126,255,255,255,255,255,255,255,255
  139. 1530 data 255,127,63,31,15,7,3,1,128,192,224,240,248,252,254,255
  140. 1540 rem    scroll data
  141. 1550 data 174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
  142. 1560 data 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10
  143. 1570 data 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204
  144. 1580 data 116,193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200
  145. 1590 data 204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104
  146. 1600 data 145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104
  147. 1610 data 76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116
  148. 1620 data 193,200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136
  149. 1630 data 169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240
  150. 1640 data 16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240
  151. 1650 data 236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
  152. 1660 data 177,92,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208
  153. 1670 data 234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172
  154. 1680 data 116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92
  155. 1690 data 104,145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232
  156. 1700 data 32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162
  157. 1710 data 193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193
  158. 1720 data 133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152
  159. 1730 data 24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80
  160. 1740 data 120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248
  161. 1750 data 32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5
  162. 1760 data 5,6,6,6,6,6,6,