home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_022_19xx_-_de_Disk_1_of_4_Side_B.d64 / duckshoot_rof (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  140 lines
  1. 1 rem  duckshoot - improvements by -          jim green and his c-128, jaggy tu.
  2. 6 poke59468,12:poke53280,5:poke53281,15:print"[147][152]":ifkk=0thengosub 571:goto16
  3. 11 gosub 576
  4. 16 d=0:b=0:tl=5:w=0:mk=0
  5. 21 print"[147][152]good hunting";
  6. 26 n=17*rnd(1):ifb<>0thengosub 341
  7. 31 ifw=tlord=20goto 191
  8. 36 ifn>12thenin=-.6*rnd(1):goto46
  9. 41 in=.6*rnd(1)
  10. 46 gosub 256:t=1:c=4:f=0
  11. 51 form=0to36step2:n=n+inc:c$=str$(w)
  12. 56 print"shots=";mid$(c$,2,2)
  13. 61 fori=1ton:print"";:next
  14. 66 fori=1tom:print"";:next
  15. 71 ifmk=1goto 376
  16. 76 ont+2gosub171,161,161
  17. 81 gosub 181
  18. 86 iff=0thengeta$:ifa$=""goto111
  19. 91 ifa$<>" "thenprint"[150] must be <space> to fire[152]";:goto111
  20. 96 iff=0thenw=w+1
  21. 101 f=1
  22. 106 gosub 271:c=c+2
  23. 111 t=-t:nextm:d=d+1
  24. 116 iff=0goto131
  25. 121 ifc>22thengosub 686:goto131
  26. 126 gosub 271:c=c+2:goto121
  27. 131 ifw>4goto26
  28. 136 ifw=1andb=0thenprint"[150]hard luck                [152]"
  29. 141 ifw=2andb=0thenprint"[158]missed again!            [152]"
  30. 146 ifw=3andb=0thenprint"you need more practice!  [152]"
  31. 151 ifw=4andb=0thenprint"you're a total washout!   "
  32. 156 goto26
  33. 161 print" [154][169][223][146] [157][157][157][157][152][192][192][192][192]";
  34. 166 return
  35. 171 print"[152][192][192][192][192][157][157][157][154][223][169] [152]";
  36. 176 return
  37. 181 fork=1to50:next
  38. 186 print"[157][157][157][157]    [145][157][157][157][157]    ";:return
  39. 191 print"[147][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  40. 196 print"    ";z$;" has bagged";b;"out of a
  41. 201 [153]"    possible maximum of";tl;"ducks":[141] 666
  42. 206 [153]"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew";
  43. 211 [153]"    type y to try again or n
  44. 216 print"    to terminate the program
  45. 221 [153]"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew";
  46. 226 jg[178]14:[141] 416
  47. 231 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]231
  48. 236 [141] 666
  49. 241 [139]a$[178]"y"[167][156]:kk[178]1:[137]6
  50. 251 jg[178]4:[141] 481:[153]" walter says 'bye'!!":[128]
  51. 256 [153]"";
  52. 261 [153]"defnewtab(waitnew";
  53. 266 [142]
  54. 271 [139]c[177]22[167][142]
  55. 276 [153]"";
  56. 281 [153]"";
  57. 286 [153]"";
  58. 291 [129]g[178]1[164]c[169]2:[153]"onon";:[130]
  59. 296 [153]" cmdononsys(NULL)print#";
  60. 301 [139]c[178]22[167][153]"cmd ";
  61. 306 [139]m[179][177]18[167][142]
  62. 311 iv[178][181](24[171]n)
  63. 316 [139]c[179]iv[171]1[176]c[177]iv[170]1[167][142]
  64. 321 [153]"cmd ";
  65. 326 b[178]b[170]1
  66. 331 [141] 341
  67. 336 mk[178]1:[137]56
  68. 341 [153]"you have bagged";b;
  69. 346 [153]"cmd duck   ";
  70. 351 [139]b[177]1[167][153]"cmdcmdcmds   ";
  71. 356 [139]b[178]1[167][153]"beginners luck!
  72. 361 ifb>1thenprint"               "
  73. 366 forbi=1to6:gosub 666:next
  74. 371 return
  75. 376 fori=1to(24-n)/2
  76. 381 gosub161
  77. 386 fork=1to30:next
  78. 391 print"[145][157][157][157][157]    [157][157][157][157]    [157][157][157][157]";
  79. 396 nexti
  80. 401 gosub161
  81. 406 mk=0:jg=8:gosub 411:goto26
  82. 411 print"[156]walter is retrieving your duck";
  83. 416 poke646,jg:print"";
  84. 421 forj=1to16
  85. 426 print"    [223][146][157][157][157][157][223][146]    [146][157][157][157][157][157]    [146] [157][157][157][157][157][223][146]   [223][146] ";
  86. 431 fori=1to50:next
  87. 436 gosub 456
  88. 441 print"     [169][146][157][157][157][157][157][157][169][146]   [169][215][223][146][157][157][157][157][157][157]    [146][223][169][157][157][157][157][157][157][157][169][146]   [169][146]  ";
  89. 446 fori=1to50:next
  90. 451 gosub 456:nextj:gosub 466:return
  91. 456 print"[157][157][157][157][157][157][157]  [145][157][157]  [145][157][157]  [145][157]";
  92. 461 return
  93. 466 print"      [157][157][157][157][157][157]      [157][157][157][157][157][157]      [157][157][157][157][157][157]      ";
  94. 471 print"                                ";
  95. 476 return
  96. 481 print"[147]";
  97. 486 print"      [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146]"
  98. 491 print"      [221][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221][146]"
  99. 496 print"      [221][221][146]                       [221][221][146]"
  100. 501 print"      [221][221][146]                       [221][221][146]"
  101. 506 print"      [221][221][146]  [150]     [146]  [169]   [223][146]   [146]      [154][221][221][146]"
  102. 511 print"      [221][221][146]  [150] [146]    [146]   [146]       [146]   [158][209]  [154][221][221][146]"
  103. 516 print"      [221][221][146]  [150] [146]    [146]  [223]   [223][146]   [146]  [158][209][150][215][158][209] [154][221][221][146]"
  104. 521 print"      [221][221][146]  [150] [146]    [146]       [146]   [146]   [158][209]  [154][221][221][146]"
  105. 526 print"      [221][221][146]  [150]     [146][161] [223]   [146][169]  [183][146]      [154][221][221][146]"
  106. 531 print"      [221][221][146]                       [221][221][146]"
  107. 536 print"      [221][221][146]     qs!  alliance     [154][221][221][146]"
  108. 541 print"      [221][221][146]      duck--shoot      [154][221][221][146]"
  109. 546 print"      [221][221][146]                       [221][221][146]"
  110. 551 print"      [221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221][146]"
  111. 556 print"      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]":gosub 666
  112. 561 fori=1to1000:next:gosub 416:gosub 666
  113. 566 return
  114. 571 jg=12:gosub 481
  115. 576 print"[147][152][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  116. 581 print"     you are cordially invited to
  117. 586 [153]"     join qs! alliance's duck-shoot
  118. 591 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  119. 596 z$="jaggy"
  120. 601 print"     this duckshooters name is-
  121. 606 [153]" type name & press <return>.";
  122. 611 [133]z$
  123. 616 [153]"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew";
  124. 621 [153]"     the object is to shoot as many
  125. 626 print"     ducks as possible.  your rifle
  126. 631 [153]"     is located at the bottom center
  127. 636 print"     of the screen and is fired by
  128. 641 [153]"     pressing <space> on the keyboard.
  129. 646 print"     type l to locate ducks.":gosub 666
  130. 651 geta$:ifa$=""goto 651
  131. 656 gosub 666
  132. 661 return
  133. 666 rem   ***bipp***
  134. 671 s=54272
  135. 676 pokes,168:pokes+1,97:pokes+2,0:pokes+3,8:pokes+5,34:pokes+6,34:pokes+24,15
  136. 681 pokes+4,65:forq=1to50:next:pokes+4,0:return
  137. 686 rem  razzy
  138. 691 s=54272:pokes+24,15:pokes+23,0:pokes+6,240:pokes+1,4:pokes+5,0:pokes+4,33
  139. 696 forz= 824to512step-8:pokes+1,z/256:pokes,zand255:next:pokes+4,0:return
  140.