home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 32 / 032.d81 / gobbler (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  4.5 KB  |  155 lines
  1. 0 goto70
  2. 10 poke54276,.:poke54273,160:poke54272,100:poke54277,5:poke54278,5
  3. 20 poke54276,33:return
  4. 30 forqz=100to130step5:poke54276,.:poke54273,qz:poke54272,100
  5. 40 poke54276,33:next:return
  6. 50 poke54276,.:poke54273,10:poke54272,100:poke54277,3:poke54278,1
  7. 60 poke54276,129:return
  8. 70 poke53272,(peek(53272)and240)or14
  9. 80 poke55,255:poke56,47:poke53248+21,.
  10. 90 def fna(j)=(j+2)+4*(j>1)
  11. 100 v=53248:d=54272:gs=0:ys=0:q=192:d$=""
  12. 105 pokev+28,.
  13. 110 dima(3),n(70),dr(70):a(0)=2:a(1)=-80:a(2)=-2:a(3)=80
  14. 120 poke53280,.:poke53281,.:print"[147]            [158]loadstar presents:"
  15. 130 print"[159]            gobbler's  revenge":print"               by j c hilty"
  16. 140 print"        please wait --- setting up":a=1
  17. 150 read n(a),dr(a):ifn(a)=0then210
  18. 160 a=a+1:goto150
  19. 210 gosub1250
  20. 220 print"[147]":poke53280,0:poke53281,0
  21. 230 fori=0to24:poked+i,0:next
  22. 240 n$="    g o b b l e r ' s   r e v e n g e"
  23. 250 print""
  24. 260 print"[159]"
  25. 270 fort=1to37
  26. 280 printright$(n$,t);"[145]"
  27. 290 fori=0to15:nexti
  28. 300 poked,150:poked+1,200:poked+5,8:poked+6,248:poked+24,15:poked+4,17
  29. 310 fori=0to15:next i
  30. 320 poked+4,16
  31. 330 next t
  32. 340 poked+24,0
  33. 350 print""tab(15)"[129]by j c hilty"
  34. 360 print"    <press the fire button to start>"
  35. 370 z8=1:gosub1050:ifpeek(56320)and16then370
  36. 380 poke54276,.:fort=0to1000:next
  37. 390 pokev+21,0
  38. 400 print"[147]":poke53281,0:poke53280,8:g1=.:y1=.
  39. 410 sys49160
  40. 420 a=1105:l=1141:g=42:p=28:cm=54272:j=2:h=90
  41. 430 print"   [158]g o b b l e r ' s   r e v e n g e"
  42. 440 printd$tab(2)" gobbler score          your score"
  43. 450 printtab(6)gs;"                   "ys
  44. 460 pokev+23,0:pokev+29,0:pokev+0,174:pokev+1,226:q=192:poke2040,q
  45. 470 pokev+21,1:poke1105,g:poke1105+cm,7:poke1141,p:poke1141+cm,10
  46. 480 poke1835,h:poke1835+cm,13:poke1857,h:poke1857+cm,13
  47. 490 poke1509,h:poke1509+cm,13:poke1599,h:poke1599+cm,13
  48. 500 poke1605,h:poke1605+cm,13:poke1113,h:poke1113+cm,13:poke1137,h
  49. 510 poke1137+cm,13
  50. 520 fort=0to2000:next:rem    main loop
  51. 530 q=q+1:ifq=198thenq=192
  52. 540 poke2040,q
  53. 550 b=a+a(j)/2
  54. 560 ifpeek(b)=32thenpokeb,g:pokeb+cm,7:pokea,32:a=b:j=fna(j)
  55. 570 ifpeek(b)=46thenpokeb,g:pokeb+cm,7:pokea,32:a=b:j=fna(j):gosub960
  56. 575 ifpathenpa=.:goto400
  57. 580 ifpeek(b)=90thenpokeb,g:pokeb+cm,7:pokea,32:a=b:j=fna(j):gosub1000
  58. 585 ifpathenpa=.:goto400
  59. 590 ifpeek(b)=28then680
  60. 600 j=(j-1)-4*(j=0)
  61. 610 sys(828):r=peek(254)-peek(253)
  62. 620 ifr=0then530
  63. 630 w=peek(l+r)
  64. 640 ifw=46thenl=l+r:pokel-r,32:pokel,p:pokel+cm,10:gosub980:gosub10
  65. 642 ifw=46andpathenpa=.:goto400
  66. 644 ifw=46then530
  67. 650 ifw=90thenl=l+r:pokel-r,32:pokel,p:pokel+cm,10:gosub1020:gosub30
  68. 652 ifw=90andpathenpa=.:goto400
  69. 655 ifw=90then530
  70. 660 ifw<>32then530
  71. 670 l=l+r:pokel-r,32:pokel,p:pokel+cm,10:gosub50:goto530
  72. 680 rem    gobbler eats player
  73. 690 gs=gs+1000
  74. 700 forx=dtod+24:poked,0:next
  75. 710 poked+24,15:poked+5,15:poked+12,15:poked+19,15:poked+6,107
  76. 720 poked+14,107:poked+14,50:poked+15,40
  77. 730 poked+4,33:poked+11,23:poked+18,23
  78. 740 forf1=10to50step1:poked+1,f1
  79. 750 forf2=30to1step-5:poked+8,f2
  80. 760 nextf2:nextf1
  81. 770 poked+4,32:poked+11,32:poked+18,32
  82. 780 print"[147]":pokev+21,0
  83. 790 print""tab(4)"ha!!!! the gobbler gobbled you up!"
  84. 800 fort=0to2000:next:goto810
  85. 810 rem    game over
  86. 820 fort=0to1000:next
  87. 830 print"[147]":pokev+21,0:poke53280,0
  88. 840 gosub1250
  89. 850 ifgs>ysthenprint""tab(7)"hey! the gobbler wins again!"
  90. 860 ifys>gsthenprint""tab(7)"uhoh -- i guess you win one"
  91. 870 print:print:printtab(8)"gobbler score  ";gs
  92. 880 print:printtab(8)"your score      ";ys
  93. 890 print"  [159]<press the fire button to play again>"
  94. 900 print"     <press the space bar to quit>"
  95. 910 z8=.:gosub1050:ifa$=" "then940
  96. 920 if(peek(56320)and16)=.then950
  97. 930 goto910
  98. 940 print"[147]":poke54276,.:pokev+21,.:open15,8,15,"r0:hello connect=hello connect"
  99. 942 input#15,er:close15:ifer<>63thenend
  100. 943 poke53272,21
  101. 944 load "hello connect",8
  102. 950 gs=0:ys=0:goto380
  103. 960 gs=gs+10:g1=g1+10:print"":printd$""tab(6)"         [157][157][157][157][157][157][157][157][157]"gs
  104. 965 ifg1+y1=2590thenpa=-1
  105. 970 return
  106. 980 ys=ys+10:y1=y1+10:print"":printd$""tab(28)"         [157][157][157][157][157][157][157][157][157]"ys
  107. 985 ifg1+y1=2590thenpa=-1
  108. 990 return
  109. 1000 gs=gs+100:g1=g1+100:print"":printd$""tab(6)"         [157][157][157][157][157][157][157][157][157]"gs
  110. 1005 ifg1+y1=2590thenpa=-1
  111. 1010 return
  112. 1020 ys=ys+100:y1=y1+100:print"":printd$""tab(28)"         [157][157][157][157][157][157][157][157][157]"ys
  113. 1025 ifg1+y1=2590thenpa=-1
  114. 1030 return
  115. 1040 end
  116. 1050 rem    play music
  117. 1060 restore:a=1
  118. 1070 forl=0to24:poked+l,0:next
  119. 1080 poked+3,8:poked+5,41:poked+6,89:poked+14,117:poked+18,16:poked+24,143
  120. 1100 if n(a)=0 then return
  121. 1110 geta$:ifa$=" "andz8=.thenreturn
  122. 1120 if(peek(56320)and16)=.thenreturn
  123. 1130 poked+4,65
  124. 1140 fort=1todr(a)
  125. 1150 geta$:ifa$=" "andz8=.thenreturn
  126. 1160 if(peek(56320)and16)=.thenreturn
  127. 1170 fq=n(a)+peek(d+27)/2
  128. 1180 hf=int(fq/256):lf=fqand255
  129. 1190 poked+0,lf:poked+1,hf
  130. 1200 next
  131. 1210 poked+4,64
  132. 1220 q=q+1:ifq=198thenq=192
  133. 1230 fort=2040to2047:poket,q:next
  134. 1240 a=a+1:goto1100
  135. 1250 rem    sprite setups
  136. 1260 fori=2040to2047:pokei,q:next
  137. 1270 fori=39to46:pokev+i,7:next
  138. 1280 pokev+29,255:pokev+23,255
  139. 1290 pokev+0,26:pokev+1,54:pokev+2,165:pokev+3,54
  140. 1300 pokev+4,26:pokev+5,125:pokev+6,26:pokev+7,205
  141. 1310 pokev+8,165:pokev+9,205
  142. 1320 pokev+16,224
  143. 1330 pokev+10,40:pokev+11,54
  144. 1340 pokev+12,40:pokev+13,125:pokev+14,40:pokev+15,205
  145. 1350 pokev+21,255 :return
  146. 1360 rem    music data
  147. 1370 data 9634,8,6430,2,7217,2,8101,2,8583,2,9634,8,6430,4,6430,4
  148. 1380 data 10814,8,8583,2,9634,2,10914,2,12139,2,12860,8,6430,4,6430,4
  149. 1390 data 8583,8,9634,2,8583,2,8101,2,7217,2,8101,8,8583,2,8101,2,7217,2
  150. 1400 data 6430,2,6069,8,6430,2,7217,2,8101,2,6430,2,7217,2,12139,4,12139,4
  151. 1410 data 12139,4,9634,8,6430,2,7217,2,8101,2,8583,2,9634,8,6430,4,6430,4
  152. 1420 data 10814,8,8583,2,9634,2,10814,2,12139,2,12860,8,6430,4,6430,4,8583
  153. 1430 data 8,9634,2,8583,2,8101,2,7217,2,8101,8,8583,2,8101,2,7217,2,6430,2
  154. 1440 data 7217,8,8101,2,7217,2,6430,2,6069,2,6430,4,12860,4,12860,8,0,0
  155.