home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 32 / 032.d81 / wheel (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  11KB  |  292 lines
  1. 4 gosub60100:printchr$(142);
  2. 5 poke53280,.:poke53281,1:clr:gosub1745:print"[147]";
  3. 15 r=1:y=55655:rv=1:u=1956:np=22
  4. 25 f(1)=1224:f(2)=1238:f(3)=1252:z=54272:rn=rnd(-ti):dimw(3,24):zz$="aeiou"
  5. 35 forn1=1to3:forn2=1to24:reada:w(n1,n2)=a:next:next
  6. 45 forn=1to3:m(n)=0:next
  7. 55 print"[147]  player 1      player 2      player 3"
  8. 65 print" "m(1)"    "
  9. 75 print""tab(15)m(2)"    "
  10. 85 print""tab(29)m(3)"    "
  11. 95 forn=1to3:iffs(p)>0thenforj=1tofs(p):x=j*2+f(p):pokex,81:pokex+z,0:next
  12. 105 next
  13. 115 i=int(np*rnd(1)+1):forn=1tonp:readb$,a$:ifn=ithenp$=a$:t$=b$:ul$=""
  14. 125 next
  15. 135 print"used letters:"
  16. 145 print"";:gosub1735
  17. 155 print"";:gosub1735
  18. 160 print"                                       "
  19. 165 print""tab((40-len(p$))/2)p$:print""t$"                     "
  20. 170 d=1383+(40-len(p$))/2-80:y=55655+(40-len(p$))/2-80:a=1383:b=55655
  21. 175 forn=0to39:pokea-n,160:pokeb-n,.:pokea+41+n,160:pokeb+41+n,.:next
  22. 185 forn=1to40:ifpeek(a+n-80)=32thenpokea+n,160:pokeb+n,.:goto195
  23. 190 pokea+n,209:pokeb+n,.
  24. 195 next
  25. 205 forn=1tolen(p$):ifpeek(d+n)=39orpeek(d+n)=45thenpokey+n+80,0:q5=1
  26. 210 ifq5=1thenq5=.:pokey+n+80-54272,39+128
  27. 215 next
  28. 225 print" hit n[146] for new puzzle, p[146] to play puzzle":poke198,.
  29. 235 getg$:ifg$<>"n"andg$<>"p"then235
  30. 245 ifg$="n"thenrestore:forn=1to72+np*(r-1):readxp$:next:goto115
  31. 250 lu$=""
  32. 255 gosub1725:print"round"r:forn=1to1200:next:gosub1725
  33. 260 md=.:sb=.:fora=1tolen(p$):a$=mid$(p$,a,1):ifa$>="a"anda$<="z"thenmd=md+1
  34. 261 forb=1tolen(zz$):ifa$=mid$(zz$,b,1)thensb=sb+1
  35. 262 next:next
  36. 265 p=r:print"player"p"starts the round":forn=1to1200:next
  37. 270 goto605
  38. 275 gosub1725
  39. 285 print"  hit the space bar to stop the wheel"
  40. 295 print"[144]";tab(14)w(r,rv)
  41. 305 getg$:ifg$=" "then335
  42. 315 rv=rv+1:ifrv=25thenrv=1
  43. 325 gosub1725:goto295
  44. 335 print"";:gosub1735
  45. 345 on-(w(r,rv)=1)-2*(w(r,rv)=2)-3*(w(r,rv)=3)goto1065,1095,1175
  46. 355 forn=1to1500:next
  47. 365 gosub1725:print"letter:[154][164][157]";
  48. 370 getl$:ifl$=""then370
  49. 371 printl$
  50. 375 ifasc(l$)<65orasc(l$)>90orlen(l$)<>1then365
  51. 380 forn=1tolen(lu$):ifl$<>mid$(lu$,n,1)then382
  52. 381 print"";l$" [154]has been called.":goto355
  53. 382 next
  54. 385 ifl$="a"orl$="e"orl$="i"orl$="o"orl$="u"then365
  55. 395 lu$=lu$+l$:forn=1tolen(p$)
  56. 415 ifchr$(peek(d+n)+64)=l$thengosub1305:pokey+n+80,0:l=l+1:tl=tl+1:q5=1:md=md-1
  57. 420 ifq5=1thenpokey+n+80-54272,peek(y+n-54272)+128:q5=.
  58. 425 ifpeek(d+n)=160then455
  59. 435 dn=peek(d+n):ifdn=1 or dn=5 or dn=9 or dn=15 or dn=21 then455
  60. 445 cn=cn+1
  61. 455 next
  62. 465 ifl=0thengosub1265:forq=1to999:next:gosub1725
  63. 475 co=cn-tl:gosub1725
  64. 485 m(p)=m(p)+l*w(r,rv)
  65. 495 print"";:gosub1735
  66. 505 print" "m(1)
  67. 515 print""tab(15)m(2)
  68. 525 print""tab(29)m(3)
  69. 535 ifmd-sb=0thenprint"there are only vowels left in the puzzle"
  70. 545 ifmd-sb=0thenforn=1to2000:next:gosub1725
  71. 555 ifcn=0thenforn=1to500:next:goto665
  72. 565 ul=ul+2:pokeu+ul,asc(l$)-64:pokeu+ul+54272,2
  73. 575 ifl=0andfs(p)>0thengosub1005
  74. 585 ifl>0then605
  75. 595 p=p+1:ifp=4thenp=1
  76. 605 print"[144]press q to quit."
  77. 610 print"player"p"[157]: [154]s[146]pin, g[146]uess the puzzle, or b[146]uy"
  78. 615 print"a vowel:[164][157]";
  79. 620 geto$:ifo$=""then620
  80. 621 printo$
  81. 622 ifo$="q"then60000
  82. 625 ifo$<>"s"ando$<>"g"ando$<>"b"then615
  83. 635 print"                                                        "
  84. 645 print"     "
  85. 650 print"                "
  86. 655 on-(o$="s")-2*(o$="b")goto1055,825
  87. 665 input"your guess";sp$:ifsp$<>p$thenp=p+1:ifp=4thenp=1
  88. 675 print""spc(67)
  89. 685 ifsp$<>p$thengosub1725:print"wrong!":forn=1to2000:next:gosub1725:goto575
  90. 690 gosub1725
  91. 695 print"*right!*":gosub1215:forn=0to39
  92. 700 if(peek(y+n)and15)=1thenpokey+n+80-54272,peek(d+n)+128
  93. 705 next:forn=1to1999:next:gosub1725:ifm(p)<200thenm(p)=200
  94. 715 l=0:tl=0:cn=1:ul=0:tm(p)=tm(p)+m(p)
  95. 725 gosub1725:print"totals after round":forn=1to700:next
  96. 735 print"";:gosub1735
  97. 745 print" "tm(1)
  98. 755 print""tab(15)tm(2)
  99. 765 print""tab(29)tm(3):print"":forn=1to2000:next:gosub1725
  100. 775 r=r+1:ifr=4thenprint"the game is over!":forn=1to2500:next:goto795
  101. 785 goto45
  102. 795 gosub1725:print"play again [y[154]/n[154]]"
  103. 800 getp$:ifp$<>"n"andp$<>"y"then800
  104. 805 ifp$="y"thenrun
  105. 815 clr:print"[147]"
  106. 820 goto60000
  107. 825 ifm(p)<250thenprint"you don't have enough money!":forn=1to1100:next
  108. 835 ifm(p)<250thengosub1725:goto605
  109. 845 m(p)=m(p)-250
  110. 855 print"";:gosub1735
  111. 865 print" "m(1)
  112. 875 ifmd-sb=.then535
  113. 880 print""tab(15)m(2)
  114. 885 print""tab(29)m(3)
  115. 895 print"vowel:[164][157]";
  116. 900 getv$:ifv$=""then900
  117. 905 ifasc(v$)<65orasc(v$)>90then895
  118. 915 ifv$<>"a"andv$<>"e"andv$<>"i"andv$<>"o"andv$<>"u"then895
  119. 920 printv$
  120. 925 forn=1tolen(p$)
  121. 935 ifpeek(n+y)<>0andchr$(peek(d+n)+64)=v$thenpokey+n+80,0:vl=vl+1:gosub1305:q5=1
  122. 936 ifpeek(n+y)<>0andchr$(peek(d+n)+64)=v$thenmd=md-1:sb=sb-1
  123. 940 ifq5=1thenq5=.:pokey+n+80-54272,peek(y+n-54272)+128
  124. 945 next
  125. 955 ul=ul+2:pokeu+ul,asc(v$)-64:pokeu+ul+54272,2
  126. 965 ifvl=0thengosub1725:gosub1265:print"there is no ";v$:forn=1to999:nextn
  127. 975 ifvl=0andfs(p)>0thengosub1005
  128. 985 ifvl=0thengosub1725:goto595
  129. 995 gosub1725:vl=0:goto605
  130. 1005 print"use free spin(y/n)?"
  131. 1015 getfs$:iffs$<>"y"andfs$<>"n"then1015
  132. 1025 gosub1725
  133. 1035 iffs$="n"thenreturn
  134. 1045 pokef(p)+2*fs(p),32:fs(p)=fs(p)-1:goto605
  135. 1055 ifmd-sb=.then535
  136. 1060 cn=0:co=0:l=0:forn=1to500:nextn:goto275
  137. 1065 gosub1725:print"";tab(14)"free spin":forn=1to1000:next:gosub1725
  138. 1075 fs(p)=fs(p)+1
  139. 1085 pokef(p)+2*fs(p),81:pokef(p)+2*fs(p)+z,0:forn=1to600:next:goto605
  140. 1095 gosub1725:print"";tab(14)"[144]bankrupt":gosub1185
  141. 1105 forn=1to500:next:gosub1725
  142. 1115 m(p)=0:l=0
  143. 1125 print"";:gosub1735
  144. 1135 print" "m(1)
  145. 1145 print""tab(15)m(2)
  146. 1155 print""tab(29)m(3)
  147. 1165 forn=1to500:nextn:goto575
  148. 1175 print"";tab(14)"[144]lose a turn":forn=1to1000:next:gosub1725:goto575
  149. 1185 si=54272:forsd=sitosi+24:pokesd,0:next:pokesi+24,79:pokesi+22,32
  150. 1195 pokesi+23,1:pokesi+5,199:pokesi+6,145:pokesi+4,17:forx=255to0step-4
  151. 1205 pokesi+1,x:pokesi,60:forq=1to20:nextq:nextx:pokesi+4,16:return
  152. 1215 si=54272:forsd=sitosi+24:pokesd,0:next:pokesi+24,79:pokesi+22,128
  153. 1225 pokesi+21,0:pokesi+23,1:pokesi+5,144:pokesi+6,243:pokesi+4,39
  154. 1235 pokesi+1,67:pokesi,15:forq=1to1500:next:pokesi+4,38:pokesi+1,84
  155. 1245 pokesi,125:pokesi+4,39:forq=1to1500:next:pokesi+4,38:pokesi+1,100
  156. 1255 pokesi,121:pokesi+4,39:forq=1to2000:next:pokesi+24,0:return
  157. 1265 si=54272:forsd=sitosi+24:pokesd,0:next:pokesi+24,79
  158. 1275 pokesi+5,128:pokesi+6,129:pokesi+4,39
  159. 1285 pokesi+1,7:pokesi,59:forq=1to250:next:pokesi+4,38
  160. 1295 print"there is no "l$".":return
  161. 1305 si=54272:forsd=sitosi+24:pokesd,0:next:pokesi+24,10
  162. 1315 pokesi+5,128:pokesi+6,128:pokesi+4,23:pokesi+1,38
  163. 1325 pokesi,59:forq=1to250:nextq:pokesi+4,16:forq=1to50:nextq:return
  164. 1335 data100,1,200,300,400,500,100,200,300,175,750,2,350,250
  165. 1345 data600,400,150,200,250,400,3,450,150,200,2
  166. 1355 data600,200,250,1000,150,300,700,450,3,800,150,500,400
  167. 1365 data250,2,400,550,300,200,900,200,400,300,3,350,250,500,2000,300,800
  168. 1375 data1500,2,700,500,350,400,550,300,200,900,200,400,300,2,600,250,200
  169. 1385 dataperson,harrison ford,title,the rescuers
  170. 1395 dataphrase,chip off the old block,person,bill russell
  171. 1405 datafictional character,foghorn leghorn,phrase,where's the beef
  172. 1415 datatitle,ghostbusters,phrase,here's johnny,title,battlestar galactica
  173. 1425 datafictional character,kermit the frog,title,blue suede shoes
  174. 1435 dataphrase,e t phone home,occupation,stock broker,place
  175. 1445 datacarson city nevada,place,the grand canyon,place,baja california
  176. 1455 dataplace,salt lake city utah,place,albequerque new mexico,place
  177. 1465 dataflagstaff arizona,place,the rocky mountains,place,cheyenne wyoming
  178. 1475 dataplace,traverse city michigan,place,cincinnati ohio,place
  179. 1485 datatoronto ontario,place,indianapolis indiana
  180. 1495 dataplace,trenton new jersey,title,the killing fields
  181. 1505 datatitle,chariots of fire,title,we are the world
  182. 1515 dataperson,sylvester stallone,title,the grapes of wrath
  183. 1525 dataplace,westminster abbey,phrase,life in the fast lane
  184. 1535 datatitle,dungeons and dragons,place,charleston south carolina,thing
  185. 1545 datatwenty two gun salute,phrase,turnabout is fair play,phrase
  186. 1555 dataa penny saved is a penny