home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 242 / 242.d81 / veil of tiers (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  14.7 KB  |  547 lines
  1. 10 poke56,130:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 print"[159]":poke53280,0:poke53281,0
  4. 40 sys57812"vt font",dv,0:poke780,0:poke781,0:poke782,8:sys65493
  5. 50 sys57812"cm-scr-wp-unp",dv,0:poke780,0:poke781,0:poke782,195:sys65493
  6. 52 sys57812"s.vttitle.shp",dv,0:poke780,0:poke781,0:poke782,90:sys65493
  7. 54 poke251,90:poke252,224:poke253,204:sys51456:sys51459
  8. 56 zz=zz+1:geta$:ifa$=""andzz<700then56
  9. 60 sys57812"mrj49152",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  10. 70 sys57812"s.vt.shp",dv,0:poke780,0:poke781,0:poke782,138:sys65493
  11. 78 sys51459
  12. 80 print"[147]":poke53281,0:poke53272,(peek(53272)and240)or2
  13. 90 poke251,138:poke252,224:poke253,204:sys51456:sys51459
  14. 100 poke53280,11:i=rnd(-ti)
  15. 110 sd=54272:fori=0to24:pokesd+i,0:next:pokesd+5,18:pokesd+6,18:pokesd+24,15
  16. 120 pokesd+12,3:pokesd+13,40
  17. 130 gosub5100
  18. 140 un=51456:hg=51459:wp=50944:sc=50176:cm=49920
  19. 150 syssc,224,204,8
  20. 160 goto1030
  21. 170 :
  22. 180 :rem screen save
  23. 190 :
  24. 200 syscm,1024,130*256,1000:syscm,55296,134*256,1000:return
  25. 210 syscm,130*256,1024,1000:syscm,134*256,55296,1000:return
  26. 220 :
  27. 230 :rem text box
  28. 240 :
  29. 250 poke646,c:poke214,y:print
  30. 260 printtab(x)"[176]"left$(tp$,xx)"[174]"
  31. 270 fori=1toyy:printtab(x)"[171]"left$(sp$,xx)"[146][179]":next
  32. 280 printtab(x)"[173]"left$(bt$,xx)"[189]"
  33. 290 return
  34. 300 :
  35. 310 :rem menu box
  36. 320 :
  37. 330 syssc+6,29,11,"[144][146][176][178][178][178][178][178][178][178][174]"
  38. 340 fori=1to4:syssc+6,29,11+i,"[171]       [146][179]":next
  39. 350 syssc+6,29,16,"[173][177][177][177][177][177][177][177][189]"
  40. 360 return
  41. 370 :
  42. 380 :rem shuffle/deal/runes
  43. 390 :
  44. 400 fori=0to5:rr(i)=i:next
  45. 410 fori=0to5:r=int(rnd(1)*6)
  46. 420 t=rr(r):rr(r)=rr(i):rr(i)=t:next
  47. 430 fori=0to6:forj=0to9
  48. 440 pc(i,j)=int(rnd(1)*4):next:next
  49. 450 fori=0to3:ni(6,i)=0:next
  50. 460 fori=0to9:ni(6,pc(6,i))=ni(6,pc(6,i))+1:next
  51. 470 i=0
  52. 480 ifi=ni(6,0)then500
  53. 490 pc(6,i)=0:i=i+1:goto480
  54. 500 ifi=ni(6,0)+ni(6,1)then520
  55. 510 pc(6,i)=1:i=i+1:goto500
  56. 520 ifi=ni(6,0)+ni(6,1)+ni(6,2)then540
  57. 530 pc(6,i)=2:i=i+1:goto520
  58. 540 ifi=10then560
  59. 550 pc(6,i)=3:i=i+1:goto540
  60. 560 return
  61. 570 :
  62. 580 :rem rune parameters
  63. 590 :
  64. 600 fori=0to5:forj=0to2
  65. 610 r(i,j)=int(rnd(1)*(rh(i,j)-rl(i,j)+1)+rl(i,j))
  66. 620 ifj=1thenifr(i,1)=r(i,0)then600
  67. 630 next:next
  68. 640 return
  69. 650 :
  70. 660 :rem evaluate pl's score
  71. 670 :
  72. 680 fori=0to3:ni(pl,i)=0:v(pl,i)=10:next:ps(pl)=0
  73. 690 fori=0to9:ni(pl,pc(pl,i))=ni(pl,pc(pl,i))+1:next
  74. 700 fori=0to5:ifpl=6thenifrg(i)=0then720
  75. 710 oni+1gosub4100,4150,4200,4260,4320,4380
  76. 720 next
  77. 730 fori=0to3:ps(pl)=ps(pl)+v(pl,i)*ni(pl,i):next
  78. 740 return
  79. 750 :
  80. 760 :rem pick four
  81. 770 :
  82. 780 fori=0to9:fl(i)=0:next:co=0
  83. 790 r=int(rnd(1)*10)
  84. 800 iffl(r)then790
  85. 810 tr(co)=r:fl(r)=1:co=co+1:ifco<4then790
  86. 820 return
  87. 830 poke214,15:print:printtab(3)"[149][195]hoose up to four of "pl$(g)"'s"
  88. 840 printtab(3)"ikons and an equal number of     "
  89. 850 printtab(3)"your own for trade.              "
  90. 860 printtab(3)"  [210] - [211]ee the runes you know     "
  91. 870 printtab(3)"  [196] - [196]one. [199]o back to the game  ":return
  92. 880 :
  93. 890 :rem clear ikons
  94. 900 :
  95. 910 poke214,15:print:fori=0to4:printtab(3)"[149]"left$(sp$,34):next:return
  96. 920 :
  97. 930 :
  98. 940 :rem prompt and wait
  99. 950 :
  100. 960 poke214,23:print:printtab(14)"[159][208]ress a key"
  101. 970 poke198,0
  102. 980 geta$:ifa$=""then980
  103. 990 gosub5100:return
  104. 1000 :
  105. 1010 :rem initialize
  106. 1020 :
  107. 1030 dimpc(7,10),ni(7,10),r(6,3),rr(7),rh(6,3),rl(6,3),m$(7),b$(4),ic$(4),pl$(7)
  108. 1040 dimv(7,4),ps(7),gx(6),gy(6),sx(16),sy(16),bb$(4)
  109. 1050 zx(0)=91:zx(1)=93:zx(2)=60:zx(3)=62
  110. 1060 tp$="[178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]"
  111. 1070 sp$="                                        "
  112. 1080 bt$="[177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177]"
  113. 1090 fori=1to4:readm$(i):next
  114. 1100 data" [212][210][193][196][197] "," [210][213][206][197][211] "," [211][212][207][210][217] "," [195][197][193][211][197] "
  115. 1110 fori=1to4:readm1$(i):next
  116. 1120 data" [211][195][207][210][197] "," [210][213][206][197][211] "," [201][203][207][206][211] "," [194][197][199][201][206] "
  117. 1130 b$(0)="[158]#$[157][157]%&":b$(1)="[158][220][221][157][157]^[223]":b$(2)="[158][160][161][157][157][162][163]":b$(3)="[158][164][165][157][157][166][167]"
  118. 1140 bb$(0)="#$[157][157]%&":bb$(1)="[220][221][157][157]^[223]":bb$(2)="[160][161][157][157][162][163]":bb$(3)="[164][165][157][157][166][167]"
  119. 1150 fori=0to6:readpl$(i):next
  120. 1160 data"[202][193][196][193][215][201][206]","[195][200][210][217][211][197][201][211]","[210][197][196] [207][210][195]","[193][206][193][206][193]","[203][201][195][203][193][200][193]","[208][207][196][193][210][199][197]","[208][204][193][217][197][210]"
  121. 1170 fori=0to5:forj=0to2:readrh(i,j),rl(i,j):next:next
  122. 1180 data5,3,3,0,3,1,4,2,3,0,3,1,3,0,3,0,3,1,3,0,3,0,3,1,3,0,3,0,3,1,3,0,3,0,3,1
  123. 1190 ic$(0)="crescents":ic$(1)="horns":ic$(2)="bells":ic$(3)="tierworlds"
  124. 1200 cs$="        "
  125. 1210 fori=0to2:gx(i)=3+9*i:gy(i)=8:next:fori=3to5:gx(i)=3+9*(i-3):gy(i)=17:next
  126. 1220 fori=704to751:pokei,255:next:fori=752to767:pokei,0:next
  127. 1230 fori=2040to2047:pokei,11:next:v=53248:pokev+16,0:pokev+29,0:pokev+23,0
  128. 1240 pokev+27,255:pokev+21,0:pokev+39,12:fori=40to46:pokev+i,8:next
  129. 1250 fori=0to9:sx(i)=60+i*24:sy(i)=114:next:sx(9)=22
  130. 1260 fori=11to14:sx(i)=68+(i-10)*40:sy(i)=154:next
  131. 1270 sx(10)=60:sy(10)=154:sx(15)=22:sy(15)=154
  132. 1280 sys49152,chr$(13)+"[145][157]",20,20,10,10
  133. 1290 gosub4880:rem get name
  134. 1300 open2,dv,2,"vt."+pl$(6)
  135. 1310 input#2,gp
  136. 1320 fori=0to6:input#2,pt(i):next
  137. 1330 close2
  138. 1340 open15,dv,15:input#15,a,a$,a,a:close15
  139. 1350 fori=19to22:syssc+6,2,i,"[149][158][146]"+left$(sp$,36):next
  140. 1360 syssc+6,7,22,"[202][213][211][212] [193] [211][197][195] - [195][207][213][206][212][201][206][199] [201][203][207][206][211]"
  141. 1370 fori=0to5:hl=204*256+(gy(i)-1)*40+gx(i)-2:forj=0to7:pokehl+j,12:next:next
  142. 1380 poke53280,11:gosub400:gosub600:gosub330:m=1:gd=0:gp=gp+1
  143. 1390 fori=0to5:rg(i)=0:next
  144. 1400 forpl=0to6:gosub680:next
  145. 1410 syssc+6,2,22,"[149][158]"+left$(sp$,36)
  146. 1420 :
  147. 1430 :rem screen setup
  148. 1440 :
  149. 1450 syssc+6,2,20,"[144][149]":fori=0to9:syssc+6,3+i*3,19,b$(pc(6,i)):next
  150. 1460 syssc+6,4,22,"[158][149]"+left$(sp$,30)
  151. 1470 syssc+6,33,20,"[211][195][207][210][197]"
  152. 1480 fori=0to9:syssc+6,2+3*i,22,"[129]   [157][157][157]"+str$(v(6,pc(6,i))):next
  153. 1490 syssc+6,33,22,"    [157][157][157][157]"+str$(ps(6))
  154. 1500 ifgd=6then4440
  155. 1510 fori=0to5:syssc+6,gx(i),gy(i),"[152][144]    [157][157][157][157]"+str$(ps(i)):next
  156. 1520 ifrg(rr(g))thenhl=204*256+(gy(g)-1)*40+gx(g)-2:fori=0to7:pokehl+i,11:next
  157. 1530 :
  158. 1540 :rem menu loop
  159. 1550 :
  160. 1560 fori=1to4:syssc+6,30,11+i,"[153]"+m$(i):next
  161. 1570 syssc+6,30,11+m,""+m$(m)
  162. 1580 poke198,0
  163. 1590 geta$:ifa$=""then1590
  164. 1600 gosub5100
  165. 1610 ifa$="t"thenm=1:goto1710
  166. 1620 ifa$="r"thenm=2:goto1710
  167. 1630 ifa$="s"thenm=3:goto1710
  168. 1640 ifa$="c"thenm=4:goto1710
  169. 1650 syssc+6,30,11+m,"[153]"+m$(m)
  170. 1670 ifa$=chr$(13)then1710
  171. 1680 ifa$="[145]"thenm=m-1:ifm<1thenm=4
  172. 1690 ifa$=""thenm=m+1:ifm>4thenm=1
  173. 1700 goto1570
  174. 1710 onmgosub1770,2970,3550,3950
  175. 1720 ifm=1then1450
  176. 1730 goto1560
  177. 1740 :
  178. 1750 :rem trade
  179. 1760 :
  180. 1770 gosub330:gd=gd+1
  181. 1780 syssc+6,30,12,"[153] [212][210][193][196][197] "
  182. 1790 syssc+6,30,13," [215][201][212][200]  "
  183. 1800 syssc+6,30,14," [215][200][201][195][200] "
  184. 1810 syssc+6,30,15," [204][207][210][196]? "
  185. 1820 g=0
  186. 1830 syssc+6,gx(g)-2,gy(g),"[152]"+cs$
  187. 1840 syssc+6,gx(g),gy(g),"[144]"+str$(ps(g))
  188. 1850 geta$:ifa$=""then1850
  189. 1860 gosub5100
  190. 1870 syssc+6,gx(g)-2,gy(g),"[152][152]"+cs$
  191. 1880 syssc+6,gx(g),gy(g),"[144][152]"+str$(ps(g))
  192. 1890 ifa$="j"theng=0:a$=chr$(13)
  193. 1900 ifa$="c"theng=1:a$=chr$(13)
  194. 1910 ifa$="r"theng=2:a$=chr$(13)
  195. 1920 ifa$="a"theng=3:a$=chr$(13)
  196. 1930 ifa$="k"theng=4:a$=chr$(13)
  197. 1940 ifa$="p"theng=5:a$=chr$(13)
  198. 1950 ifa$=chr$(13)andrg(rr(g))=0then2020
  199. 1960 ifa$=chr$(13)andrg(rr(g))=1thengosub5180:goto1830
  200. 1970 ifa$="[145]"theng=g-3:ifg<0theng=g+6
  201. 1980 ifa$=""theng=g+3:ifg>5theng=g-6
  202. 1990 ifa$=""theng=g+1:ifg=3org=6theng=g-3
  203. 2000 ifa$="[157]"theng=g-1:ifg=-1org=2theng=g+3
  204. 2010 goto1830
  205. 2020 poke53280,0:syshg:print"[147]":rg(rr(g))=1
  206. 2030 x=0:xx=37:y=1:yy=6:c=9:gosub250
  207. 2040 poke214,3:print:printtab(10)"[149]"pl$(g)"'s [210][213][206][197] is...":print
  208. 2050 onrr(g)+1gosub4070,4120,4170,4230,4290,4350:print
  209. 2060 poke214,23:print:print"      [159][208]ress a key for the [194][193][218][193][193][210]"
  210. 2070 poke198,0
  211. 2080 geta$:ifa$=""then2080
  212. 2090 gosub5100
  213. 2100 poke781,24:sys59903
  214. 2110 x=0:xx=37:y=1:yy=19:c=9:gosub250
  215. 2120 poke214,3:print:print"[149][194] [193] [218] [193] [193] [210]   [207] [198]   [212] [201] [197] [210] [211]"
  216. 2130 fori=0to9:pp(i)=0:next:fori=0to3:ip(i)=0:next
  217. 2140 printtab(12)"[217]ou are holding:"
  218. 2150 fori=0to9
  219. 2160 printtab(5+i*3)b$(pc(6,i))"[145]";
  220. 2170 next:print""
  221. 2180 printtab(8)"[149]"pl$(g)" offers for trade:"
  222. 2190 gosub780
  223. 2200 fori=0to3:printtab(11+5*i)b$(pc(g,tr(i)))"[145]";:next:print""
  224. 2210 gosub830
  225. 2220 poke214,12:print:printtab(5)"[180][181][157][157][182][183]"
  226. 2230 poke214,12:print:printtab(32)"[184][185][157][157][186][187]"
  227. 2240 s=10:co=1:pokev+21,1:pokev+16,0
  228. 2250 pokev+21,0:pokev,sx(s):pokev+1,sy(s)
  229. 2260 ifs<>9ands<>15thenpokev+16,0:goto2280
  230. 2270 pokev+16,1
  231. 2280 pokev+21,1:poke198,0
  232. 2290 geta$:ifa$=""then2290
  233. 2300 gosub5100
  234. 2310 ifa$="_"thenaw=(aw+1)and15:pokev+39,aw:goto2290
  235. 2320 ifa$=chr$(13)then2400
  236. 2330 ifa$=chr$(133)ora$="d"thengosub5100:goto2500
  237. 2340 ifa$="r"thenpokev+21,0:gosub200:t2=1:gosub2980:t2=0:gosub210:goto2250
  238. 2350 ifa$="[145]"thens=0-10*(s<10)
  239. 2360 ifa$=""thens=10+10*(s>9)
  240. 2370 ifa$=""thens=s+1:ifs>15thens=0
  241. 2380 ifa$="[157]"thens=s-1:ifs<0thens=15
  242. 2390 goto2250
  243. 2400 a$="":ifs>9then2440
  244. 2410 poke214,7:print:printtab(5+3*s);
  245. 2420 ifpp(s)thenpp(s)=0:printb$(pc(6,s)):goto2370
  246. 2430 pp(s)=1:print""bb$(pc(6,s)):goto2370
  247. 2440 ifs=10thena$="r":goto2340
  248. 2450 ifs=15thena$=chr$(133):goto2330
  249. 2460 poke214,12:print:printtab(11+5*(s-11));
  250. 2470 ifip(s-11)thenip(s-11)=0:printb$(pc(g,tr(s-11))):goto2370
  251. 2480 ip(s-11)=1:print""bb$(pc(g,tr(s-11))):goto2370
  252. 2490 fori=0to9:pm(i)=0:next
  253. 2500 u1=0:fori=0to9:ifpp(i)thenu1=u1+1:pm(u1)=i
  254. 2510 next
  255. 2520 fori=0to3:pn(i)=0:next
  256. 2530 u2=0:fori=0to3:ifip(i)thenu2=u2+1:pn(u2)=i
  257. 2540 next
  258. 2550 ifu1=u2then2630
  259. 2560 gosub910:gosub5180
  260. 2570 poke214,17:print:printtab(7)"[212]he number of ikons picked"
  261. 2580 printtab(5)"in the top row must equal the"
  262. 2590 printtab(4)"number picked in the bottom row."
  263. 2600 zz=0
  264. 2610 zz=zz+1:geta$:ifa$=""andzz<150then2610
  265. 2620 gosub830:goto2250
  266. 2630 ifu1then2700
  267. 2640 gosub5180
  268. 2650 gosub910:poke214,16:print:printtab(3)"[212]he [204]ords insist that you trade"
  269. 2660 printtab(3)"at least [207][206][197] ikon!"
  270. 2670 zz=0
  271. 2680 zz=zz+1:geta$:ifa$=""andzz<150then2680
  272. 2690 gosub830:goto2250
  273. 2700 fori=1tou1:pr(i)=0:next:pr=0
  274. 2710 fori=1tou1:forj=1tou1
  275. 2720 ifpr(j)then2740
  276. 2730 ifpc(6,pm(i))=pc(g,tr(pn(j)))thenpr(j)=1:j=u1:pr=pr+1
  277. 2740 next
  278. 2750 next
  279. 2760 ifpr<>u1then2830
  280. 2770 gosub5180
  281. 2780 gosub910:poke214,16:print:printtab(3)"[212]he [204]ords are not amused by a"
  282. 2790 printtab(3)"phony trade like that!"
  283. 2800 zz=0
  284. 2810 zz=zz+1:geta$:ifa$=""andzz<150then2810
  285. 2820 gosub830:goto2250
  286. 2830 forj=1tou1
  287. 2840 fori=0to9:ifpp(i)thenpp(i)=0:pq=i:i=9
  288. 2850 next
  289. 2860 fori=0to3:ifip(i)thenip(i)=0:iq=i:i=3
  290. 2870 next
  291. 2880 t=pc(6,pq):pc(6,pq)=pc(g,tr(iq)):pc(g,tr(iq))=t
  292. 2890 next
  293. 2900 pl=g:gosub680:pl=6:gosub680
  294. 2910 gosub450
  295. 2920 pokev+21,0:poke53280,11
  296. 2930 poke251,138:poke252,224:syshg:poke251,250:poke252,129:return
  297. 2940 :
  298. 2950 :rem runes
  299. 2960 :
  300. 2970 poke53280,0:syshg
  301. 2980 print"[147][149]"
  302. 2990 poke53265,11
  303. 3000 x=0:xx=37:y=0:yy=20:c=9:print"";:gosub260
  304. 3010 poke214,0:print:printtab(11)"[212] [200] [197]   [210] [213] [206] [197] [211]"
  305. 3020 fori=0to5
  306. 3030 ifrg(i)=0then3050
  307. 3040 oni+1gosub4070,4120,4170,4230,4290,4350:print
  308. 3050 next
  309. 3060 poke53265,27
  310. 3070 poke214,21:print:fori=0to9
  311. 3080 printtab(5+i*3)b$(pc(6,i))"[145]";
  312. 3090 next:print""
  313. 3100 poke198,0
  314. 3110 geta$:ifa$=""then3110
  315. 3120 gosub5100
  316. 3130 ift2thenreturn
  317. 3140 poke53280,11:poke251,138:poke252,224:syshg:poke251,250:poke252,129
  318. 3150 return
  319. 3160 :
  320. 3170 :rem score
  321. 3180 :
  322. 3190 syshg
  323. 3200 poke53280,0:print"[147]"
  324. 3210 x=3:xx=31:y=0:yy=20:c=9:gosub250
  325. 3220 poke214,2:print:printtab(7)"[214] [197] [201] [204]   [207] [198]   [212] [201] [197] [210] [211]"
  326. 3230 printtab(7)"[208][204][193][217][197][210]      [211][195][207][210][197]     [193][214][199].
  327. 3240 [153][163]7) "tantantantantantan      tantantantantan    tantantantantan"
  328. 3250 [151]214,7:[153]
  329. 3260 [129]i[178]0[164]6
  330. 3270 [153]"verify"[163]7)pl$(i)[163]19[171](ps(i)[179]100))ps(i);
  331. 3280 [153][163]27[171](av(i)[179]100))av(i):[153]
  332. 3290 [130]
  333. 3300 [151]214,23:[153]:[153]"open   ((NULL)open)ave scores   (lenopen)lear   atnny key"
  334. 3310 [151]198,0
  335. 3320 [161]a$:[139]a$[178]""[167]3320
  336. 3330 [139]a$[179][177]"s"[167]3360
  337. 3340 [159]15,dv,15,"s0:vt."[170]pl$(6):[160]15:[159]2,dv,2,"vt."[170]pl$(6)[170]",p,w"
  338. 3350 [152]2,gp:[129]i[178]0[164]6:[152]2,pt(i):[130]:[160]2:[137]3380
  339. 3360 [139]a$[179][177]"c"[167]3380
  340. 3370 [129]i[178]0[164]6:pt(i)[178]0:ps(i)[178]0:av(i)[178]0:[130]:gp[178]0:[137]3340
  341. 3380 [151]53280,11:[151]251,138:[151]252,224:[158]hg:[151]251,250:[151]252,129
  342. 3390 [142]
  343. 3400 :
  344. 3410 :[143] ikons
  345. 3420 :
  346. 3430 [151]53280,0:[158]hg
  347. 3440 [153]"loadverify"
  348. 3450 x[178]3:xx[178]31:y[178]0:yy[178]20:c[178]9:[141]250
  349. 3460 [153]"":[129]i[178]0[164]5:[153][163]5)"verify"pl$(i)" -"ps(i)
  350. 3470 [129]j[178]0[164]9
  351. 3480 [153][163]5)b$(pc(i,j))"on";:[130]:[153]:[153]:[130]
  352. 3490 [141]960
  353. 3500 [151]53280,11:[151]251,138:[151]252,224:[158]hg:[151]251,250:[151]252,129
  354. 3510 [142]
  355. 3520 :
  356. 3530 :[143] story
  357. 3540 :
  358. 3550 [151]53280,0:[158]hg:[153]"load"
  359. 3560 x[178]1:xx[178]36:y[178]0:yy[178]20:c[178]9:[141]250
  360. 3570 [151]214,2:[153]:[153][163]7)"(NULL) val right$ (NULL)   (NULL) asc   (NULL) right$ val (NULL) (NULL)"
  361. 3580 [153][163]3)"verify   mid$adawin created the pocket
  362. 3590 printtab(3)"universe of the [215]orld of [212]iers
  363. 3600 [153][163]3)"millenia ago. (NULL)ater, (NULL)ickaha the
  364. 3610 printtab(3)"[212]rickster devised the [214][197][201][204] [207][198] [212][201][197][210][211]
  365. 3620 [153][163]3)"which is used to track the barter
  366. 3630 printtab(3)"between the [204]ords and a randomly
  367. 3640 [153][163]3)"selected human, you.
  368. 3650 printtab(3)"   [212]he units of barter in the
  369. 3660 [153][163]3)"(NULL)ierworld universe are lenrescents,
  370. 3670 printtab(3)"[200]orns, [194]ells and miniature [212]ier-
  371. 3680 [153][163]3)"worlds. valach is worth 10 prior to
  372. 3690 printtab(3)"being modified by the [210][213][206][197]s. [212]he
  373. 3700 [153][163]3)"(NULL)ords' scores are based on all
  374. 3710 printtab(3)"six [210][213][206][197]s; your score is based
  375. 3720 [153][163]3)"only the (NULL)(NULL)(NULL)vals you know.
  376. 3730 gosub960
  377. 3740 print"":fori=0to16:printtab(3)"[149]"left$(sp$,35):next
  378. 3750 print""tab(3)"[149]   [207]nly if you gain a higher
  379. 3760 [153][163]3)"score than atn(NULL)(NULL) of the (NULL)ords shall
  380. 3770 printtab(3)"you feel content. [193] game will be
  381. 3780 [153][163]3)"over after you've traded ikons
  382. 3790 printtab(3)"with the sixth [204]ord. [217]ou [205][213][211][212]
  383. 3800 [153][163]3)"trade at least one ikon each time
  384. 3810 printtab(3)"you trade with a [204]ord.
  385. 3820 [153][163]3)"   peekefore the trade, the (NULL)ord
  386. 3830 printtab(3)"will reveal his [210][213][206][197] to you. [212]he
  387. 3840 [153][163]3)"(NULL)(NULL)(NULL)vals will determine your score so
  388. 3850 printtab(3)"heed them!
  389. 3860 [153][163]3)"   atnfter each game you may see
  390. 3870 printtab(3)"average [211][195][207][210][197]s, the players' [201][203][207][206][211],
  391. 3880 [153][163]3)"the (NULL)(NULL)(NULL)val(NULL), or peekvalchr$right$(NULL)closea new game.
  392. 3890 gosub960
  393. 3900 poke53280,11:poke251,138:poke252,224:syshg:poke251,250:poke252,129
  394. 3910 return
  395. 3920 :
  396. 3930 :rem cease
  397. 3940 :
  398. 3950 gosub330
  399. 3960 syssc+6,31,12,"[153][195][197][193][211][197]?
  400. 3970 [158]sc[170]6,31,13," (NULL)(NULL)(NULL)"
  401. 3980 [158]sc[170]6,31,14,"(NULL)(NULL)(NULL)val?
  402. 3990 syssc+6,31,15,"([217]/[206])
  403. 4000 [161]a$:[139]a$[178]""[167]4000
  404. 4010 [141]5100
  405. 4020 [139]a$[178]"y"[176]a$[178]"(NULL)"[167]5230
  406. 4030 [142]
  407. 4040 :
  408. 4050 :[143] runes text/formula
  409. 4060 :
  410. 4070 [153]"right$f there are fewer than"r(0,0)ic$(r(0,1))
  411. 4080 [153]"add"r(0,2)"to their value.
  412. 4090 return
  413. 4100 ifni(pl,r(0,1))<r(0,0)thenv(pl,r(0,1))=v(pl,r(0,1))+r(0,2)
  414. 4110 return
  415. 4120 print"[201]f there are more than"r(1,0)ic$(r(1,1))","
  416. 4130 print"subtract"r(1,2)"from their value.
  417. 4140 [142]
  418. 4150 [139]ni(pl,r(1,1))[177]r(1,0)[167]v(pl,r(1,1))[178]v(pl,r(1,1))[171]r(1,2)
  419. 4160 [142]
  420. 4170 [153]"right$f there are just as many "ic$(r(2,0))
  421. 4180 [153]"as "ic$(r(2,1))", add"r(2,2)"to each value.
  422. 4190 return
  423. 4200 ifni(pl,r(2,0))=ni(pl,r(2,1))thenv(pl,r(2,0))=v(pl,r(2,0))+r(2,2)
  424. 4210 ifni(pl,r(2,0))=ni(pl,r(2,1))thenv(pl,r(2,1))=v(pl,r(2,1))+r(2,2)
  425. 4220 return
  426. 4230 print"[201]f there are just as many "ic$(r(3,0))
  427. 4240 print"as "ic$(r(3,1))", subtract"r(3,2)"from each.
  428. 4250 [142]
  429. 4260 [139]ni(pl,r(3,0))[178]ni(pl,r(3,1))[167]v(pl,r(3,0))[178]v(pl,r(3,0))[171]r(3,2)
  430. 4270 [139]ni(pl,r(3,0))[178]ni(pl,r(3,1))[167]v(pl,r(3,1))[178]v(pl,r(3,1))[171]r(3,2)
  431. 4280 [142]
  432. 4290 [153]"right$f there are more "ic$(r(4,0))" than"
  433. 4300 [153]""ic$(r(4,1))", add"r(4,2)"to each value.
  434. 4310 return
  435. 4320 ifni(pl,r(4,0))>ni(pl,r(4,1))thenv(pl,r(4,0))=v(pl,r(4,0))+r(4,2)
  436. 4330 ifni(pl,r(4,0))>ni(pl,r(4,1))thenv(pl,r(4,1))=v(pl,r(4,1))+r(4,2)
  437. 4340 return
  438. 4350 print"[201]f there are more "ic$(r(5,0))" than"
  439. 4360 print""ic$(r(5,1))", subtract"r(5,2)"from each.
  440. 4370 [142]
  441. 4380 [139]ni(pl,r(5,0))[177]ni(pl,r(5,1))[167]v(pl,r(5,0))[178]v(pl,r(5,0))[171]r(5,2)
  442. 4390 [139]ni(pl,r(5,0))[177]ni(pl,r(5,1))[167]v(pl,r(5,1))[178]v(pl,r(5,1))[171]r(5,2)
  443. 4400 [142]
  444. 4410 :
  445. 4420 :[143] end game
  446. 4430 :
  447. 4440 [129]i[178]0[164]6:pt(i)[178]pt(i)[170]ps(i):[130]
  448. 4450 [129]i[178]0[164]6:av(i)[178][181]((pt(i)[172]10)[173]gp)[173]10:[130]
  449. 4460 [158]sc[170]6,gx(g),gy(g),"print#stop    cmdcmdcmdcmd"[170][196](ps(g))
  450. 4470 hl[178]204[172]256[170](gy(g)[171]1)[172]40[170]gx(g)[171]2:[129]i[178]0[164]7:[151]hl[170]i,11:[130]
  451. 4480 hs[178]0:[129]i[178]0[164]6
  452. 4490 [139]ps(i)[177]hs[167]hs[178]ps(i):hp[178]i
  453. 4500 [130]
  454. 4510 [141]330:co[178]0
  455. 4520 [139]hp[179]6[167]4610
  456. 4530 [158]sc[170]6,32,13,"print(NULL)(NULL)(NULL)"
  457. 4540 [158]sc[170]6,32,14,"(NULL)right$(NULL)!"
  458. 4550 [158]sc[170]6,32,13,"(NULL)(NULL)(NULL)"
  459. 4560 [158]sc[170]6,32,14,"(NULL)right$(NULL)!"
  460. 4570 [158]sc[170]6,33,22,"verify"[170][196](ps(6))
  461. 4580 [158]sc[170]6,33,22,"for"[170][196](ps(6))
  462. 4590 [137]4630
  463. 4600 [129]i[178]0[164]5:[158]sc[170]6,gx(i),gy(i),"stopprint#       ":[130]
  464. 4610 [158]sc[170]6,gx(hp)[171]2,gy(hp),"print# (NULL)right$(NULL)(NULL)val(NULL)":[129]i[178]0[164]50:[130]
  465. 4620 [158]sc[170]6,gx(hp)[171]2,gy(hp),"print#stop       cmdcmdcmdcmdcmd"[170][196](ps(hp))
  466. 4630 co[178]co[170]1:[161]a$:[139]a$[178]""[175]co[179]20[167]4520
  467. 4640 [141]5100
  468. 4650 [141]330:m[178]1
  469. 4660 [129]i[178]1[164]4:[158]sc[170]6,30,11[170]i,"print"[170]m1$(i):[130]
  470. 4670 [158]sc[170]6,30,11[170]m,""[170]m1$(m)
  471. 4680 [161]a$:[139]a$[178]""[167]4680
  472. 4690 [141]5100
  473. 4700 [158]sc[170]6,30,11[170]m,"print"[170]m1$(m)
  474. 4710 [139]a$[178]"s"[167]m[178]1:a$[178][199](13)
  475. 4720 [139]a$[178]"r"[167]m[178]2:a$[178][199](13)
  476. 4730 [139]a$[178]"i"[167]m[178]3:a$[178][199](13)
  477. 4740 [139]a$[178]"b"[167]m[178]4:a$[178][199](13)
  478. 4750 [139]a$[178][199](13)[167]4790
  479. 4760 [139]a$[178]"on"[167]m[178]m[171]1:[139]m[179]1[167]m[178]4
  480. 4770 [139]a$[178]""[167]m[178]m[170]1:[139]m[177]4[167]m[178]1
  481. 4780 [137]4670
  482. 4790 x[178]1:xx[178]36:y[178]0:yy[178]20:c[178]9:[141]250
  483. 4800 [145]m[141]3190,2970,3430
  484. 4810 [139]m[178]4[167]4830
  485. 4820 [137]4670
  486. 4830 [129]i[178]0[164]5:[158]sc[170]6,gx(i)[171]2,gy(i),"stopprint#       ":[130]
  487. 4840 [137]1350
  488. 4850 :
  489. 4860 :[143] request for name
  490. 4870 :
  491. 4880 [158]sc[170]6,6,20,"sysverify(NULL)he (NULL)ords request your name."
  492. 4890 [158]sc[170]6,14,22,"stop            "
  493. 4900 [141]4940:[141]5100
  494. 4910 [139]q9$[167]pl$(6)[178]q9$
  495. 4920 [141]910
  496. 4930 [142]
  497. 4940 q9$[178]"":[151]198,0:zq[178]0:l9[178]10
  498. 4950 [161]a$:zx[178](zx[170]1)[175]3
  499. 4960 [158]sc[170]6,15[170]zq,22,[199](zx(zx))[170]"cmd":[139]a$[178]""[167]4950
  500. 4970 [139]a$[178][199](13)[167][158]sc[170]6,15[170]zq,22," ":[142]
  501. 4980 [139](a$[178][199](20)[175][195](q9$))[167]q9$[178][200](q9$,[195](q9$)[171]1):[137]5040
  502. 4990 [139][195](q9$)[177][178]l9[167]4950
  503. 5000 [139]a$[177][178]"a"[175]a$[179][178]"z"[167]a$[178][199]([198](a$)[170]128)
  504. 5010 [139]a$[179]" "[176](a$[177][199](127)[175]a$[179][199](160))[176]a$[178][199](34)[167]4950
  505. 5020 q9$[178]q9$[170]a$
  506. 5030 [158]sc[170]6,15[170]zq,22,a$:zq[178]zq[170]1:[137]4950
  507. 5040 [158]sc[170]6,15[170]zq,22," cmd":zq[178]zq[171]1
  508. 5050 [137]4950
  509. 5070 :[143]
  510. 5080 :[143] beep
  511. 5090 :[143]
  512. 5100 [151]sd[170]1,[187](1)[172]10[170]40
  513. 5110 [151]sd[170]4,17
  514. 5120 [129]t[178]0[164]50:[130]
  515. 5130 [151]sd[170]4,16:[143] pokesd+24,0
  516. 5140 [142]
  517. 5150 :[143]
  518. 5160 :[143] buzz
  519. 5170 :[143]
  520. 5180 [151]sd[170]8,6
  521. 5190 [151]sd[170]11,33
  522. 5200 [129]t[178]0[164]150:[130]
  523. 5210 [151]sd[170]11,32
  524. 5220 [142]
  525. 5230 [158]49155:[158]hg
  526. 5231 [137]40000
  527. 5235 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]5250
  528. 5240 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]5260
  529. 5250 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[128]
  530. 5260 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
  531. 5270 [153]"run":[151]631,13:[151]632,13:[151]198,2
  532. 5280 [151]2048,0:[151]44,8:[128]
  533. 10000 dv[178][194](186):f$[178]"veil of tiers":[139]dv[179]8[167][144]
  534. 10001 [159]15,dv,15,"s0:"[170]f$:[148]f$,dv
  535. 10002 [128]
  536. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  537. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  538. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  539. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  540. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  541. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  542. 40055 [129]x[178]1[164]4:[151]630[170]x,[198]([202](r$,x)):[130]:[151]198,4:[137]40040
  543. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  544. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  545. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  546. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  547.