home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 23 / 023.d81 / joggers (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  165 lines
  1. 10 poke53248+29,0:poke53248+21,0:poke53250,0:goto850
  2. 20 :
  3. 30 sys 49152:rem game loop
  4. 40 :
  5. 50 rem ***** sound effects
  6. 60 ms=peek(53287)-241:vp=peek(s+1):ifpeek(835)=85then110
  7. 70 gosub820:poke54277,8:poke54278,255:poke54276,21:t=255
  8. 80 forz=1to50:poke54287,t
  9. 90 fori=155to50step-25:poke54273,i:t=t-1:nexti,z:poke54278,15:poke54296,0
  10. 100 lo=lo+1:goto160
  11. 110 gosub820:poke54277,8:poke54278,255:poke54276,21:t=0
  12. 120 forz=10to140step20:fori=0to250step6:pokes+39,i:poke54287,z:poke54273,i
  13. 130 nexti,z:poke54296,0:poke54278,15:wo=wo+1
  14. 140 :
  15. 150 rem ***** score & replay
  16. 160 print"[147]":poke53272,21:pokes+1,0
  17. 170 ifpeek(835)=85then250
  18. 180 in=in+1:ifin=6thenin=1
  19. 190 ifin=1thenprint"[147]sorry, you jog like a young radical     whippersnapper!"
  20. 200 ifin=2thenprint"[147]you jog like an elderly woman with high heel shoes!"
  21. 210 ifin=3thenprint"[147]you jog like old man with a white red   tipped cane!"
  22. 220 ifin=4thenprint"[147]you have to learn to walk, before you   can jog!"
  23. 230 ifin=5thenprint"[147]perhaps a lower level of difficulty, if there is one..."
  24. 240 goto320
  25. 250 print"[147]congratulations,  you survived the jog "
  26. 260 print"with only ";
  27. 270 ifms=0thenprint"with zero mis-steps!"
  28. 280 ifms=1thenprint"one mis-step! "
  29. 290 ifms>1andms<5thenprintms;" mis-steps!"
  30. 300 ifms>4thenprint"with a total of";ms;" mis-steps!"
  31. 310 ifvp<50thenprint"[147]cheaters never prosper!":wo=wo-1:lo=lo+100
  32. 320 print"---------------------------------------"
  33. 330 print"total games won:";wo
  34. 340 print"total games lost:";lo
  35. 350 print"current o.p.s: ";:ifops=1thenprint"high"
  36. 360 ifops=2thenprint"medium"
  37. 370 ifops=3thenprint"low"
  38. 380 print"vertical status: ";
  39. 390 ifvp>49andvp<100thenprint"beginner"
  40. 400 ifvp>99andvp<150thenprint"intermediate"
  41. 410 ifvp>149thenprint"professional"
  42. 420 ifvp<50thenprint"no answer"
  43. 430 print"length of game: ";:iflg=1thenprint"short"
  44. 440 iflg=2thenprint"medium"
  45. 450 iflg=3thenprint"long"
  46. 460 iflg=255thenprint"eternal"
  47. 470 fori=0to9:geta$:next
  48. 480 print"press f1[146] to change o.p.s."
  49. 490 print"press f3[146] to change vertical status"
  50. 500 print"press f5[146] to change length of game"
  51. 510 print"press f7[146] to end the game"
  52. 520 print"press any other key to play again[146]"
  53. 530 gosub820:pokev+5,8:pokev+6,255:pokev+4,21:pokev+24,5
  54. 540 ifvp<50thenvp=50
  55. 550 geta$:a=int(rnd(ti)*255):pokev,a:pokev+1,a:pokev+4,33:pokev+4,32
  56. 560 ifa$=""then550
  57. 570 gosub820:ifa$<>"[133]"then620
  58. 580 print"[145]do you want a l[146]ow  m[146]edium or h[146]igh objectper step rating?"
  59. 590 getb$:ifb$<>"l"andb$<>"m"andb$<>"h"then590
  60. 600 ops=1:spo=3:ifb$="m"thenops=2:spo=2
  61. 610 ifb$="l"thenops=3:spo=1
  62. 620 ifa$<>"[134]"then680
  63. 630 print"[145]do you want b[146]eginning i[146]ntermediate orp[146]rofessional status?"
  64. 640 getb$:ifb$<>"b"andb$<>"i"andb$<>"p"then640
  65. 650 vp=50:ifb$="i"thenvp=vp+50
  66. 660 ifb$="p"thenvp=vp+100
  67. 670 sm=vp
  68. 680 ifa$<>"[135]"then740
  69. 690 print"[145]do you want a s[146]hort m[146]edium  l[146]ong or     e[146]ternal game?"
  70. 700 getb$:ifb$<>"s"andb$<>"m"andb$<>"l"andb$<>"e"then700
  71. 710 lg=1:ifb$="m"thenlg=2
  72. 720 ifb$="l"thenlg=3
  73. 730 ifb$="e"thenlg=255
  74. 740 ifa$="[136]"thenpoke52,160:poke56,160:poke928,0:load"hello connect",8
  75. 750 fori=1to40:print:next:vp=sm:gosub780:poke53272,(peek(53272)and240)+12
  76. 755 goto30
  77. 760 :
  78. 770 rem ***** reset ops & vertical
  79. 780 poke835,lg:poke832,ops:poke833,0:poke834,0:poke53287,241:pokes+1,vp
  80. 790 poke830,0:pokes+16,0:poke836,spo:poke53248,150:return
  81. 800 :
  82. 810 rem ***** sound chip clear
  83. 820 fori=54272to54295:pokei,0:next:poke54296,15:return
  84. 830 :
  85. 840 rem ***** game set up
  86. 850 poke53281,0:poke53280,0:print"[147]"chr$(142);tab(15)"joggers![146][205]"
  87. 860 printtab(15)"[223]       [223][146][165][158]"
  88. 870 printtab(10)"by. steven proper"
  89. 880 printtab(10)"hold f[146] to go left"
  90. 890 printtab(10)"hold j[146] to go right"
  91. 900 printtab(10)"press k[146] to jump"
  92. 904 printtab(6)"loadstar is not public domain."
  93. 906 printtab(6)"please respect the authors rights."
  94. 910 printtab(6)"please wait,  loading data..."
  95. 920 fort=12288to12414:readda:poket,da:next:i=0
  96. 930 reada:ifa=2040then950
  97. 940 poke49152+i,a:i=i+1:goto930
  98. 950 poke56334,peek(56334)and254:poke1,peek(1)and251
  99. 960 fori=0to7:pokei+12544,0:next
  100. 970 fori=0to55:reada:print:pokei+12416,a:next
  101. 980 poke1,peek(1)or4:poke56334,peek(56334)or1
  102. 985 poke53272,(peek(53272)and240)+12
  103. 990 poke52,48:poke56,48:clr:ops=2:vp=50:sm=50:s=53248:pokes+21,3
  104. 1000 v=54272:lg=1:spo=2:gosub780:gosub820:goto30
  105. 1010 :
  106. 1020 rem ***** sprite data
  107. 1030 data 62,0,0,127,0,0,255,0,0
  108. 1040 data 254,0,0,252,0,0,252,0,0
  109. 1050 data 252,0,0,254,0,124,255,0,254
  110. 1060 data 127,0,255,62,0,127,128,64,63
  111. 1070 data 42,192,63,10,192,63,0,0,127
  112. 1080 data 0,0,255,0,0,254,0,0,124
  113. 1090 data 0,2,1,0,3,84,0,3,80,0
  114. 1100 data 0,0,124,0,0,254,0,0,255
  115. 1110 data 0,0,127,0,0,63,0,0,63
  116. 1120 data 62,0,63,127,0,127,255,0,255
  117. 1130 data 254,0,254,252,0,124,252,2,1
  118. 1140 data 252,3,84,254,3,80,255,0,0
  119. 1150 data 255,0,0,126,0,0,60,0,0
  120. 1160 data 128,64,0,42,192,0,10,192,0
  121. 1170 :
  122. 1180 rem ***** machine language
  123. 1190 data 169, 0, 141, 24, 212, 169, 1, 141, 0
  124. 1200 data 212, 141, 1, 212, 169, 33, 141, 4, 212
  125. 1210 data 169, 32, 141, 4, 212, 169, 15, 141, 24
  126. 1220 data 212, 238, 65, 3, 173, 65, 3, 201, 255
  127. 1230 data 208, 8, 169, 0, 141, 65, 3, 238, 66
  128. 1240 data 3, 173, 66, 3, 205, 67, 3, 208, 6
  129. 1250 data 169, 85, 141, 67, 3, 96, 173, 248, 7
  130. 1260 data 201, 192, 208, 5, 169, 193, 76, 74, 192
  131. 1270 data 169, 192, 141, 248, 7, 165, 203, 201, 34
  132. 1280 data 208, 35, 174, 0, 208, 224, 62, 208, 10
  133. 1290 data 174, 16, 208, 224, 1, 208, 3, 76, 118
  134. 1300 data 192, 173, 0, 208, 24, 105, 8, 141, 0
  135. 1310 data 208, 201, 20, 176, 5, 169, 1, 141, 16
  136. 1320 data 208, 201, 21, 208, 45, 174, 0, 208, 224
  137. 1330 data 30, 208, 10, 174, 16, 208, 224, 1, 240
  138. 1340 data 3, 76, 167, 192, 173, 0, 208, 56, 233
  139. 1350 data 8, 141, 0, 208, 173, 16, 208, 201, 1
  140. 1360 data 208, 12, 173, 0, 208, 201, 100, 144, 5
  141. 1370 data 169, 0, 141, 16, 208, 201, 37, 208, 17
  142. 1380 data 174, 1, 208, 224, 50, 144, 10, 162, 0
  143. 1390 data 232, 238, 1, 208, 224, 32, 208, 248, 201
  144. 1400 data 4, 240, 3, 76, 204, 192, 164, 203, 192
  145. 1410 data 1, 208, 250, 76, 204, 192, 162, 0, 232
  146. 1420 data 169, 17, 32, 210, 255, 236, 64, 3, 208
  147. 1430 data 245, 32, 158, 224, 165, 98, 201, 135, 176
  148. 1440 data 247, 56, 233, 112, 141, 63, 3, 32, 158
  149. 1450 data 224, 165, 98, 56, 233, 128, 201, 40, 176
  150. 1460 data 244, 168, 173, 63, 3, 153, 191, 7, 56
  151. 1470 data 233, 15, 153, 191, 219, 173, 31, 208, 201
  152. 1480 data 1, 240, 3, 76, 0, 192, 238, 62, 3
  153. 1490 data 173, 68, 3, 205, 62, 3, 208, 15, 169
  154. 1500 data 0, 141, 62, 3, 238, 39, 208, 173, 39
  155. 1510 data 208, 201, 250, 240, 3, 76, 0, 192, 96,0,0,2040
  156. 1520 :
  157. 1530 rem ***** custom characters
  158. 1540 data 0,60,126,255,24,24,24,24
  159. 1550 data 24,16,16,108,254,254,124,56
  160. 1560 data 192,3,0,48,0,6,0,48
  161. 1570 data 126,129,165,129,153,165,129,126
  162. 1580 data 0,0,0,97,243,223,12,0
  163. 1590 data 60,126,255,255,255,255,126,60
  164. 1600 data 8,8,8,8,8,8,8,62
  165.