home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 80 / 080.d81 / wquest / wquest.0829 / wquest.a7ae (.txt)
Encoding:
Commodore BASIC  |  1991-01-01  |  41.6 KB  |  211 lines
  1. 2 poke52,103:poke56,103:clr:i=rnd(-ti):nw=100:gosub180
  2. 4 print"[150][147]"tab(10)"*[154]*[159]** [215][207][210][196][209][213][197][211][212]! *[159]*[154]**"
  3. 6 printtab(10)"[154]@[159]1990[154] by [159][202]on [205]attson"
  4. 8 fori=.to9:printtab(10)"[156]";:ifi=.thenprint"[155]";
  5. 10 prints$(i)tab(25)"[158]";:ifi=.thenprint"";
  6. 12 a$=str$(s(i)):a$=left$("00000",6-len(a$))+right$(a$,len(a$)-1):printa$:next
  7. 14 printtab(10)"[211][159]peed"tab(26)"[208][159]lay"
  8. 16 printtab(10)"[196][159]ifficulty"tab(26)"[209][159]uit":v1=.:v2=.:p1=34771:p2=34774:z=.
  9. 18 geta$:ifa$=""then24
  10. 20 j=.:fori=1to4:ifa$=mid$("dspq",i,1)thenj=i
  11. 22 next:onjgoto40,36,44,206
  12. 24 pokep1,32:p1=p1+v(v1):pokep1,65:ifp1=f(v1)thenv1=v1+1:ifv1=4thenv1=.
  13. 26 pokep2,32:p2=p2+v(v2):pokep2,g(v2)+z:ifp2=f(v2)thenv2=v2+1:ifv2=4thenv2=.
  14. 28 z=3-z:fori=1to25:next:goto18
  15. 30 printtab(14)"[154][195]hoose one [159]";
  16. 32 geta$:i=val(a$)-1:ifi<.ori>2then32
  17. 34 printa$:forj=1to500:next:return
  18. 36 print"[147]"tab(16)"[159]1 [154][211]low":printtab(16)"[159]2 [156][205]edium":printtab(16)"[159]3 [198]ast"
  19. 38 gosub30:sp=100-20*i:goto4
  20. 40 print"[147]"tab(15)"[159]1 [154][206]ovice":printtab(15)"[159]2 [156][204]inguist"
  21. 42 printtab(15)"[159]3 [211]cholar":gosub30:mb=8-i*2:ms=1+2*i:ml=i:goto4
  22. 44 wl=ml:pokeb,mb:pokem,ms:pokes,sp:pokel,3:lv=.:sc=.:tg=.
  23. 46 fori=.to7:r(i)=.:next:fori=.to7
  24. 48 j=int(rnd(1)*8):ifr(j)>.then48
  25. 50 r(j)=i*800+26368:next:print"[147]  [154]l[157]b";
  26. 52 poke53265,peek(53265)or64:poke53272,16
  27. 54 poke53264,224:fori=.to7:poke53249+i*2,222:poke53248+i*2,i*24+144+256*(i>4)
  28. 56 poke53287+i,1:next:fori=.tonw-1:c(i)=.:next
  29. 58 poke53269,.:cl=.:j=int(rnd(1)*nw):ifc(j)=1then58
  30. 60 c(j)=1:w$=w$(wl,j):z=len(w$):fori=1to10:l(i)=.:next:cd$="":fori=1toz
  31. 62 k=1+int(rnd(1)*z):ifl(k)=1then62
  32. 64 l(k)=1:cd$=cd$+mid$(w$,k,1):next:tg=1-tg:iftg=.andwl<5thenwl=wl+1
  33. 65 ifz>7thenz=8
  34. 66 sysd,r(lv),d(.,lv),d(1,lv):iflv>.andpeek(s)>40thenpokes,peek(s)-2
  35. 68 iflv<>3*int(lv/3)then74
  36. 70 i=peek(l):ifi<6thenpokel,i+1
  37. 72 i=peek(m):ifi<8thenpokem,i+1
  38. 74 j=.:fori=.to7:b(i)=peek(c+i)+256*peek(c+8+i):ifb(i)>.thenj=j+1
  39. 76 next:ifj>zthen86
  40. 78 fori=1toj:pokeb(i-1),38:next:ifj=zthen94
  41. 80 fori=j+1toz
  42. 82 k=33833+int(rnd(1)*38)+40*int(rnd(1)*18):ifpeek(k)<>32then82
  43. 84 pokek,38:pokek+21504,9:next:goto94
  44. 86 fori=1toz
  45. 88 k=int(rnd(1)*j):ifb(k)=.then88
  46. 90 pokeb(k),38:b(k)=.:next:fori=1toj:ifb(i-1)>.thenpokeb(i-1)+21504,5
  47. 92 next
  48. 94 sysp:onpeek(780)goto98,146,142,136
  49. 96 poke53265,peek(53265)and191:poke53272,24:poke53269,.:print"[147]";:return
  50. 98 gosub96:printtab(7)"[217]ou have been defeated....":fori=1to1000:next
  51. 100 printtab(6)"[150][212]he [211]phinx is victorious....":fori=1to1000:next
  52. 102 a$=str$(sc):i=len(a$)-1:a$=left$("00000",5-i)+right$(a$,i):poke198,.
  53. 104 printtab(11)"[159][198]inal score  [155]"a$:printtab(12)"[150][208]ress any key..."
  54. 106 geta$:ifa$=""then106
  55. 108 ifsc=<s(9)then4
  56. 110 print"[147][150] [193] new high score!":poke54277,3:poke54278,.:fori=1to9:poke54273,i*9
  57. 112 poke54276,17:poke54276,16:forj=1to20:nextj,i:j=9:fori=9to.step-1
  58. 114 ifsc>s(i)thenj=i
  59. 116 next:ifj=9then120
  60. 118 fori=9toj+1step-1:s(i)=s(i-1):s$(i)=s$(i-1):next
  61. 120 s(j)=sc:s$(j)=""
  62. 122 print"[159]    [217]our name please: [152].............[157][157][157][157][157][157][157][157][157][157][157][157][157]";:i=.:sc=5
  63. 124 printchr$(sc)".[157]";:sc=157-sc:geta$:ifa$=""then124
  64. 126 ifa$=chr$(20)andi>.thenprint"[152].[157][157]";:i=i-1:s$(j)=left$(s$(j),i):goto124
  65. 128 ifa$=chr$(13)andi>.then4
  66. 130 ifa$>"_"and(a$<"[193]"ora$>"[218]")then124
  67. 132 ifi=12or(a$<"-"anda$<>" ")or(a$>"9"anda$<"a")then124
  68. 134 printa$;:s$(j)=s$(j)+a$:i=i+1:goto124
  69. 136 lv=lv+1:iflv<8thensc=sc+100*lv:goto58
  70. 138 gosub96:printtab(6)"[156][217]ou have defeated the [211]phinx"
  71. 140 printtab(12)"at his own game!":fori=1to1000:next:sc=sc+1000:goto102
  72. 142 i=asc(mid$(cd$,cl+1,1))+95:poke34808+cl,i:poke53269,peek(53269)or2^cl
  73. 144 cl=cl+1:goto94
  74. 146 sysm+68:gosub96:j=len(cd$):print"[147][159] [211]peak the word of passage or suffer"
  75. 148 print" the consequences of your rashness...":printtab((40-j)/2);
  76. 150 fori=1toj:print"?";:next:fori=1toj:print"[157]";:next:b$="":poke198,.:fori=1toj
  77. 152 geta$:ifa$=""then158
  78. 154 k=asc(a$):ifk>192andk<219thenk=k-128
  79. 156 ifk>64andk<91then160
  80. 158 sysm+74:goto152
  81. 160 b$=b$+chr$(k):poke646,peek(55296)and15:printchr$(k+128);:next
  82. 162 print"":ifb$<>w$then170
  83. 164 printtab(14)"[155][215]ell done...":sc=sc+15*j:fori=1to1000:next
  84. 166 print"[147]";:poke53265,peek(53265)or64:poke53272,16:sysm+71
  85. 168 poke33908,32:poke33909,32:poke33948,32:poke33949,32:goto94
  86. 170 printtab(16)"[150][215]rong...":fori=1to750:next:poke54277,.:poke54278,240
  87. 172 poke54276,129:fori=100to.step-2:poke53280,i:poke54273,i:next:poke54276,128
  88. 174 i=peek(l):ifi<2then98
  89. 176 pokel,i-1:iflv=3*int(lv/3)thenpokel,i-2
  90. 178 print"[147]";:poke53265,peek(53265)or64:poke53272,16:goto58
  91. 180 poke53280,.:poke53281,.:gosub414
  92. 181 remsys57812"wqmz",8,0:poke780,0:poke781,0:poke782,103:sys65493
  93. 182 remsys57812"wqgr",8,0:poke780,0:poke781,57:poke782,153:sys65493
  94. 184 dim b(7),c(nw-1),d(1,7),f(3),g(3),l(10),r(7),s(9),v(3),s$(9),w$(5,nw-1)
  95. 186 open15,8,15:open2,8,2,"0:wqhi,s,r":input#15,i
  96. 188 ifi=.thenfori=.to9:input#2,s$(i):input#2,s(i):next
  97. 190 close2:close15:fori=.to3:readf(i),v(i),g(i):next:print"initializing..."
  98. 192 data 34752,-1,188,33792,-40,186,33831,1,187,34791,40,186
  99. 194 fori=.to7:readd(.,i),d(1,i):next:data6,14,5,13,9,8,2,10,11,12,8,7,14,3,4,15
  100. 196 fori=.to5:forj=.tonw-1:readw$(i,j):nextj,i
  101. 198 m=39225:l=m+1:s=m+2:b=m+3:c=m+21:d=m+77:p=m+65:ml=1:mb=6:ms=4:sp=80
  102. 200 fori=.to15:pokem+4+i,int(rnd(1)*256):next:poke53269,.:poke53271,.
  103. 202 poke53275,.:poke53276,.:poke53277,.:poke56576,149:poke648,132
  104. 204 poke53272,24:poke54296,15:return
  105. 206 print"[147][209]uit? [150][193]re you sure ([159]y[150]/[159]n[150])?":poke198,.
  106. 208 geta$:ifa$="n"then4
  107. 210 ifa$<>"y"then208
  108. 212 print" [211]ave high scores? ([210]eady disk drive     [153]before saying yes!)"
  109. 214 poke198,.
  110. 216 geta$:ifa$="n"then228
  111. 218 ifa$<>"y"then216
  112. 220 open15,8,15:print#15,"s0:wqhi":input#15,i:ifi>1andi<>62then226
  113. 222 open2,8,2,"0:wqhi,s,w":input#15,i:ifi>.then226
  114. 224 fori=.to9:print#2,s$(i):print#2,s(i):next
  115. 226 close2:close15
  116. 228 poke56576,151:poke648,4:poke53272,21:print"[147][154]";
  117. 230 poke52,160:poke56,160:clr:goto406
  118. 232 rem 5-letter ----------------------
  119. 234 data abate,bacon,catch,dance,eagle,fence,glory,house,igloo,jelly
  120. 236 data karat,local,march,nasty,other,peach,quick,regal,sauce,taint
  121. 238 data ulcer,valor,wafer,xylem,yeast,zebra,acorn,birth,clown,depth
  122. 240 data elite,facet,goose,haunt,ideal,joint,khaki,lucky,major,naval
  123. 242 data ocean,paint,queen,raven,scale,taste,umber,vault,waste,xenon
  124. 244 data yacht,zesty,aphid,booth,cover,dodge,event,felon,glide,handy
  125. 246 data imply,jewel,knock,lance,mouse,noble,often,panel,quilt,range
  126. 248 data scene,teach,under,valet,water,xebec,yodel,zippy,avian,boast
  127. 250 data coach,decay,elude,fatal,green,hitch,infer,juicy,koala,lithe
  128. 252 data manic,naive,occur,plant,quill,realm,sedan,table,union,velum
  129. 254 rem 6-letter ----------------------
  130. 256 data anthem,assume,astute,attain,beaker,breach,buffer,burlap,chalet,charge
  131. 258 data clamor,copper,damsel,delete,dental,digest,effect,elapse,embark,ensign
  132. 260 data falcon,feeble,feudal,finish,gadget,garage,genius,goblin,haggle,hammer
  133. 262 data hazard,heroic,ignite,imbibe,indigo,invest,jacket,jaguar,jester,jigsaw
  134. 264 data karate,kennel,kidnap,knight,ladder,lament,league,liquid,magnet,malady
  135. 266 data mentor,meteor,napkin,nectar,nickel,nuance,object,office,opaque,ordain
  136. 268 data pacify,patron,pebble,phobia,quaint,quartz,queasy,quiver,rabbit,radius
  137. 270 data recipe,repose,safari,salute,scorch,serial,tactic,target,tender,throne
  138. 272 data umpire,unison,uproar,urgent,valley,vandal,velvet,viable,waffle,waiter
  139. 274 data weapon,wonder,yellow,yeoman,yogurt,yonder,zealot,zephyr,zipper,zither
  140. 276 rem 7-letter ----------------------
  141. 278 data airlock,algebra,amenity,anagram,balance,ballast,believe,benefit
  142. 280 data cabinet,centaur,certain,channel,decline,dentist,discern,divider
  143. 282 data earnest,edition,elastic,extreme,factory,failure,feature,fissure
  144. 284 data gallant,garland,genuine,glorify,harness,headway,hemlock,history
  145. 286 data iceberg,imagery,imitate,iritate,jackpot,jasmine,journal,justify
  146. 288 data keyhole,kindred,kinetic,kitchen,lantern,leaflet,leisure,liberal
  147. 290 data machine,magnify,measure,mention,narrate,natural,nemesis,nucleus
  148. 292 data obelisk,octagon,odyssey,ominous,package,palette,paradox,perform
  149. 294 data qualify,quantum,quarter,quintet,radiant,realist,referee,regular
  150. 296 data salient,salvage,service,shuttle,tableau,tangent,tempest,traffic
  151. 298 data ukulele,umbrage,uniform,upgrade,vacancy,valiant,vampire,version
  152. 300 data warfare,warrant,wealthy,weighty,yardage,zoology,ammonia,bewitch
  153. 302 data chevron,dessert,ethical,foolish
  154. 304 rem 8-letter ----------------------
  155. 306 data alphabet,amethyst,amicable,anecdote,bachelor,begrudge,bequeath
  156. 308 data bestiary,caffeine,calamity,champion,clothing,daughter,dedicate
  157. 310 data distress,dominion,earphone,economic,elephant,emphasis,facility
  158. 312 data farewell,feminine,flattery,gangster,garrison,gauntlet,gorgeous
  159. 314 data habitual,handicap,harmless,heraldry,identify,ignition,imperial
  160. 316 data insignia,jaundice,jeopardy,jettison,jubilant,kangaroo,keepsake
  161. 318 data keystone,kilogram,laminate,landlord,legality,linguist,magazine
  162. 320 data magician,meditate,military,namesake,national,necklace,neighbor
  163. 322 data obligate,occasion,odometer,opposite,paginate,palisade,panorama
  164. 324 data personal,quadrant,quantity,question,quietude,railroad,rational
  165. 326 data reaction,rebuttal,sabotage,sediment,shamrock,simulate,taciturn
  166. 328 data tangible,thousand,tortoise,ulterior,ultimate,undulate,urbanite
  167. 330 data vacation,validate,vendetta,vertical,wardrobe,warranty,whenever
  168. 332 data wingspan,wondrous,xenolith,yearbook,yourself,youthful,zeppelin
  169. 334 data arguable,bracelet
  170. 336 rem 9-letter ----------------------
  171. 338 data adventure,ambiguous,ampersand,apartment,badminton,bandstand,barbarian
  172. 340 data beautiful,cacophony,cafeteria,celestial,chameleon,dandelion,dangerous
  173. 342 data decathlon,desirable,eccentric,editorial,elaborate,eliminate,fabricate
  174. 344 data festivity,financial,fluctuate,galvanize,gangplank,generator,gravitate
  175. 346 data haphazard,harmonica,heartsick,hindsight,ignorance,imaginary,imperfect
  176. 348 data invisible,jerkwater,jitterbug,judgement,juxtapose,kickstand,knowledge
  177. 350 data laborious,leviathan,lightning,logarithm,luxuriate,maelstrom,magnetism
  178. 352 data magnitude,mentality,migratory,nameplate,navigable,newspaper,nutrition
  179. 354 data obediance,objective,offensive,opportune,palpitate,panhandle,partition
  180. 356 data perpetual,quadruple,querulous,quiescent,quotation,radiation,randomize
  181. 358 data refractor,rehearsal,sacrifice,scavenger,secondary,shipwreck,tantalize
  182. 360 data tectonics,tenacious,tolerable,transport,uncertain,undertake,uppermost
  183. 362 data vaccinate,vandalism,variation,vegetable,visionary,wasteland,waterline
  184. 364 data wearisome,whimsical,withstand,xenophobe,xylophone,yesterday,youngster
  185. 366 data automatic,bilingual
  186. 368 rem 10-letter ---------------------
  187. 370 data abbreviate,acrobatics,ambassador,anticipate,appearance,backgammon
  188. 372 data ballistics,beneficent,biological,cantaloupe,capitalize,ceremonial
  189. 374 data chauvinism,comparison,debilitate,decoration,definition,deliberate
  190. 376 data difference,earthquake,electrical,enthusiasm,equivalent,exasperate
  191. 378 data facilitate,fairground,formidable,functional,gatekeeper,generalize
  192. 380 data government,graduation,habitation,harmonious,helicopter,hereditary
  193. 382 data hospitable,illiterate,illustrate,immaculate,imperative,impression
  194. 384 data journeyman,legitimate,leprechaun,literature,lugubrious,mackintosh
  195. 386 data malcontent,management,mechanical,melancholy,naturalist,negligible
  196. 388 data nightshade,numerology,obsequious,observance,omnipotent,originator
  197. 390 data pacifistic,pagination,paraphrase,pedestrian,perceptive,personable
  198. 392 data quarantine,quatrefoil,readership,rebellious,regression,relativity
  199. 394 data remarkable,rendezvous,salamander,salutation,silhouette,simplicity
  200. 396 data specialist,spellbound,tabernacle,tantamount,telescopic,topography
  201. 398 data torrential,tournament,transcribe,transitory,typewriter,ultrasound
  202. 400 data upstanding,vegetation,vocabulary,vocational,voluminous,vulnerable
  203. 402 data windowsill,witchcraft,woodpecker,wristwatch
  204. 404 rem -------------------------------
  205. 406 sys65511:sys65412
  206. 407 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  207. 408 ifer<>63thenend
  208. 410 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  209. 412 print"run[145][145][145][145][145][145][145][145]":poke631,13:poke632,13:poke198,2:new
  210. 414 printchr$(14)"[147][154]":return: rem (c) & load message
  211.