home *** CD-ROM | disk | FTP | other *** search
/ Scene World 6 / Scene_World_06_2003-02-15_POL__PSW_de_Side_B.d64 / tw.inst (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  10KB  |  307 lines
  1. 100 print"[147]"
  2. 215 poke 53280,00: poke 53281,00
  3. 265 bl$="                                        "
  4. 270 t=ti: po$="[207][198][198][146][154].": dn=3: sa=0
  5. 275 dv=peek(186)
  6. 280 if (ti-t)<60 then 280
  7. 290 print "[147][153]      [212]rail [215]est [201]nstructions [205]enu"
  8. 300 print "    1[152]) [154][199]eneral [208]rinciples."
  9. 310 print "    2[152])[154] [195]reating and [205]erging a [212]rail."
  10. 320 print "    3[152])[154] [194]uying [211]tock."
  11. 330 print "    4[152])[154] [215]inning the [199]ame."
  12. 335 print "    5[152])[154] [208]rinter [207]ption: ";po$
  13. 345 print "    6[152])[154] [210]eturn to [212]rail [215]est menu"
  14. 350 print"[197]nter [211]election :"
  15. 360 get mn$: if mn$="" then 360
  16. 370 mn=val(mn$): if mn<1 or mn>6 then 360
  17. 380 on mn goto 400, 1000, 1500, 2000, 2500, 3000
  18. 390 print "[208]ress c[146] to continue."
  19. 392 get a$: if a$<>"c" then 392
  20. 393 print "[147]";: return
  21. 400 gosub 2990
  22. 410 print#4,left$(bl$,11-20*(dn<>3));"[199]eneral [208]rinciples"
  23. 420 print#4
  24. 430 print#4,"[212]he object of [212][210][193][201][204] [215][197][211][212] is to become ";
  25. 440 if dn=3 then print#4
  26. 450 print#4,"wealthiest player by the end of the"
  27. 460 print#4,"game. [212]he way to accumulate wealth is ";
  28. 470 if dn=3 then print#4
  29. 480 print#4,"to establish freight companies between"
  30. 490 print#4,"the cities of the [207]ld [215]est shown on ";
  31. 500 if dn=3 then print#4
  32. 510 print#4,"the screen map. [201]f you shrewdly buy"
  33. 520 print#4,"the right stock at the right time and ";
  34. 530 if dn=3 then print#4
  35. 540 print#4,"merge companies in which you think you"
  36. 550 print#4,"have a controlling interest, you will ";
  37. 560 if dn=3 then print#4
  38. 570 print#4,"find yourself quite rich indeed."
  39. 590 print#4
  40. 600 print#4,"[212]he game can be played by 2 to 4 play";
  41. 610 if dn=3 then print#4,"-"
  42. 620 print#4,"ers. [201]t is a very absorbing strategy"
  43. 630 print#4,"game which will take about an hour to ";
  44. 640 if dn=3 then print#4
  45. 650 print#4,"finish. [212]he game requires a joystick"
  46. 660 print#4,"plugged into game port 2 of your ";
  47. 670 if dn=3 then print#4
  48. 680 print#4,"[195]ommodore-64."
  49. 690 print#4
  50. 700 if dn=3 then gosub 390
  51. 710 print#4,"[212]o begin the game, enter the names of ";
  52. 720 if dn=3 then print#4
  53. 730 print#4,"all players into the computer. [201]t will"
  54. 740 print#4,"then select which player will have the ";
  55. 750 if dn=3 then print#4
  56. 760 print#4,"first turn."
  57. 770 print#4
  58. 780 print#4,"[193] turn consists of placing a player's ";
  59. 790 if dn=3 then print#4
  60. 800 print#4,"piece on the matching square on the"
  61. 810 print#4,"game map. [201]f this creates a new trail ";
  62. 820 if dn=3 then print#4
  63. 830 print#4,"or causes a merger, the computer will"
  64. 840 print#4,"automatically handle the details of ";
  65. 850 if dn=3 then print#4
  66. 860 print#4,"these items. [211]ee [195]reating and [205]erging"
  67. 870 print#4,"a [212]rail."
  68. 880 print#4
  69. 890 print#4,"[212]hen you may purchase stock in any of ";
  70. 900 if dn=3 then print#4
  71. 910 print#4,"the active trails on the map. [212]he only"
  72. 920 print#4,"limit to the number of stocks you may ";
  73. 930 if dn=3 then print#4
  74. 940 print#4,"purchase is the amount of cash you have"
  75. 950 print#4,"on hand. [211]ee [194]uying [211]tock."
  76. 951 print#4
  77. 955 if dn=3 then gosub 390
  78. 960 print#4,"[193]fter purchasing stock, the play goes ";
  79. 965 if dn=3 then print#4
  80. 970 print#4,"to the next player. [201]n the meantime"
  81. 971 print#4,"the computer will pay you interest on ";
  82. 972 if dn=3 then print#4
  83. 973 print#4,"your entire holdings - cash and stock."
  84. 974 print#4
  85. 975 print#4,"[212]here are two more options on the play ";
  86. 976 if dn=3 then print#4
  87. 977 print#4,"menu: the [211][212][203] and [195][193][204] options. [212]he [211][212][203]"
  88. 978 print#4,"option will display your stock hold";
  89. 979 if dn=3 then print#4,"-"
  90. 980 print#4,"ings and the amount of cash you have."
  91. 981 print#4,"[212]he [195][193][204] option is described in [215]inning ";
  92. 982 if dn=3 then print#4
  93. 983 print#4,"the [199]ame."
  94. 984 print#4
  95. 985 print#4,"[211]ince there is a limit of five active ";
  96. 986 if dn=3 then print#4
  97. 987 print#4,"[212]rail [195]ompanies on the map, it may be"
  98. 988 print#4,"possible that you cannot play any of ";
  99. 989 if dn=3 then print#4
  100. 990 print#4,"your pieces. [201]f, after trying them all,"
  101. 991 print#4,"you find none can be played, a [208][193][211] ";
  102. 992 if dn=3 then print#4
  103. 993 print#4,"option is added to the play menu. [212]his"
  104. 994 print#4,"permits you to discard one piece, and ";
  105. 995 if dn=3 then print#4
  106. 996 print#4,"continue your turn."
  107. 997 print#4
  108. 998 if dn=3 then gosub 390
  109. 999 close 4: goto 290
  110. 1000 gosub 2990
  111. 1010 print#4,left$(bl$,6-20*(dn<>3));"[195]reating and [205]erging a [212]rail"
  112. 1020 print#4
  113. 1030 print#4,"[193][160][212]rail [195]ompany is created at any time ";
  114. 1040 if dn=3 then print#4
  115. 1050 print#4,"you play a piece on the map that is"
  116. 1060 print#4,"adjacent to one already on the map ";
  117. 1070 if dn=3 then print#4
  118. 1080 print#4,"(vertical or horizontal [206][207][212] diagonal)."
  119. 1090 print#4,"[201]n addition, placing a piece adjacent ";
  120. 1100 if dn=3 then print#4
  121. 1110 print#4,"to one of the cities (yellow diamonds)"
  122. 1120 print#4,"will create a [212]rail [195]ompany. [195]reating ";
  123. 1130 if dn=3 then print#4
  124. 1140 print#4,"a new [212]rail [195]ompany brings a bonus of"
  125. 1150 print#4,"five shares of stock in that company."
  126. 1160 print#4
  127. 1170 print#4,"[193] maximum of 5 [212]rail [195]ompanies may be ";
  128. 1180 if dn=3 then print#4
  129. 1190 print#4,"on the map at any given time. [193]ny piece"
  130. 1200 print#4,"which would create a sixth trail may ";
  131. 1210 if dn=3 then print#4
  132. 1220 print#4,"not be placed on the map."
  133. 1230 print#4
  134. 1240 print#4,"[208]laying a piece adjacent to one in an ";
  135. 1250 if dn=3 then print#4
  136. 1260 print#4,"existing trail will expand the length"
  137. 1270 print#4,"of that trail and increase the value ";
  138. 1280 if dn=3 then print#4
  139. 1290 print#4,"of all stock in that [212]rail [195]ompany by"
  140. 1300 print#4,"$100 ($600 if the piece adds a city)."
  141. 1310 print#4
  142. 1320 if dn=3 then gosub 390
  143. 1330 print#4,"[205]erging two or more [212]rail [195]ompanies ";
  144. 1340 if dn=3 then print#4
  145. 1345 print#4,"is done when a piece is placed on the"
  146. 1350 print#4,"map so that it is adjacent to all of ";
  147. 1355 if dn=3 then print#4
  148. 1360 print#4,"the [212]rails. [212]he [212]rail with the greater"
  149. 1365 print#4,"length becomes the controlling [212]rail ";
  150. 1366 if dn=3 then print#4
  151. 1367 print#4,"and takes over the now defunct [212]rails."
  152. 1370 print#4
  153. 1375 print#4,"[193]t merger time, the stock market will ";
  154. 1380 if dn=3 then print#4
  155. 1385 print#4,"pay a bonus to the two shareholders"
  156. 1390 print#4,"with the largest number of shares in ";
  157. 1395 if dn=3 then print#4
  158. 1400 print#4,"the defunct trail. [212]he computer will"
  159. 1405 print#4,"calculate these bonuses which are ";
  160. 1410 if dn=3 then print#4
  161. 1415 print#4,"based on the price of the stock, [206][207][212] on"
  162. 1420 print#4,"how many shares are held."
  163. 1425 print#4
  164. 1430 print#4,"[201]n addition, the stock in the defunct ";
  165. 1435 if dn=3 then print#4
  166. 1440 print#4,"[212]rail [195]ompany is traded at the rate of"
  167. 1445 print#4,"two shares of defunct stock for one ";
  168. 1450 if dn=3 then print#4
  169. 1475 print#4,"share of the controlling stock."
  170. 1480 print#4
  171. 1485 if dn=3 then gosub 390
  172. 1490 close 4: goto 290
  173. 1500 gosub 2990
  174. 1510 print#4,left$(bl$,14-20*(dn<>3));"[194]uying [211]tock"
  175. 1520 print#4
  176. 1530 print#4,"[211]tock purchases are made by selecting ";
  177. 1540 if dn=3 then print#4
  178. 1550 print#4,"one of the stock types from the stock"
  179. 1560 print#4,"menu. [205]ove the joystick up or down to ";
  180. 1570 if dn=3 then print#4
  181. 1580 print#4,"circle the name of the stock you wish"
  182. 1590 print#4,"to purchase. [217]ou may purchase stock ";
  183. 1600 if dn=3 then print#4
  184. 1610 print#4,"only in an active [212]rail [195]ompany. [212]o"
  185. 1612 print#4,"buy stock, press the fire button."
  186. 1620 print#4
  187. 1630 print#4,"[193] window opens and you can select the ";
  188. 1640 if dn=3 then print#4
  189. 1650 print#4,"number of stocks to purchase. [212]his is"
  190. 1660 print#4,"accomplished by again moving the joy";
  191. 1670 if dn=3 then print#4,"-"
  192. 1680 print#4,"stick up or down to select the number"
  193. 1690 print#4,"of stocks and pressing the fire button."
  194. 1700 if dn=4 then print#4
  195. 1704 print#4,"[211]tock prices may be calculated by mul";
  196. 1705 if dn=3 then print#4,"-"
  197. 1706 print#4,"tiplying the number of pieces in the"
  198. 1707 print#4,"[212]rail [195]ompany by $100, the number of ";
  199. 1708 if dn=3 then print#4
  200. 1709 print#4,"cities connected by $500, and adding"
  201. 1710 print#4,"the two numbers. [215]hen the stock price ";
  202. 1711 if dn=3 then print#4
  203. 1712 print#4,"passes $3000, it then splits 2 for 1."
  204. 1713 print#4
  205. 1714 if dn=3 then gosub 390
  206. 1716 print#4,"[201]f this stock purchase window does not ";
  207. 1717 if dn=3 then print#4
  208. 1718 print#4,"open, then you have requested to make"
  209. 1719 print#4,"a stock purchase in an inactive [212]rail ";
  210. 1720 if dn=3 then print#4
  211. 1722 print#4,"[195]ompany. [212]his is against the rules."
  212. 1728 print#4
  213. 1730 print#4,"[212]here are two options shown below the ";
  214. 1740 if dn=3 then print#4
  215. 1750 print#4,"stock names. [212]he first, abbreviated as"
  216. 1760 print#4,"[211][212][203], will simply open a window to show ";
  217. 1770 if dn=3 then print#4
  218. 1780 print#4,"your current stock portfolio and the"
  219. 1790 print#4,"amount of cash you have."
  220. 1800 print#4
  221. 1810 print#4,"[212]he other is the [197][206][196] option. [212]his will ";
  222. 1820 if dn=3 then print#4
  223. 1830 print#4,"signal the computer that your turn is"
  224. 1840 print#4,"complete."
  225. 1850 print#4
  226. 1860 print#4,"[212]he strategy for purchasing stock is ";
  227. 1870 if dn=3 then print#4
  228. 1880 print#4,"quite simple. [217]ou wish to have more"
  229. 1890 print#4,"stock in a given [212]rail [195]ompany than ";
  230. 1900 if dn=3 then print#4
  231. 1910 print#4,"any other player in the game."
  232. 1920 print#4
  233. 1925 if dn=3 then gosub 390
  234. 1930 print#4,"[212]his stock majority will pay off when ";
  235. 1940 if dn=3 then print#4
  236. 1950 print#4,"a merger occurs in the form of a cash"
  237. 1960 print#4,"bonus paid to the top two stock owners.";
  238. 1965 if dn=3 then print#4
  239. 1967 if dn<>3 then print#4," ";
  240. 1970 print#4,"[212]hus you will wish to purchase stock"
  241. 1975 print#4,"in those smaller [212]rail [195]ompanies that ";
  242. 1977 if dn=3 then print#4
  243. 1980 print#4,"seem close to a takeover by a larger"
  244. 1985 print#4,"[212]rail [195]ompany."
  245. 1987 print#4
  246. 1988 if dn=3 then gosub 390
  247. 1990 close 4: goto 290
  248. 2000 gosub 2990
  249. 2010 print#4,left$(bl$,12-20*(dn<>3));"[215]inning the [199]ame"
  250. 2020 print#4
  251. 2030 print#4,"[212]here are two ways of ending a game of ";
  252. 2040 if dn=3 then print#4
  253. 2050 print#4,"[212][210][193][201][204] [215][197][211][212]. [212]he first is to call the"
  254. 2060 print#4,"game using the [195][193][204] option on the play ";
  255. 2070 if dn=3 then print#4
  256. 2080 print#4,"menu. [212]his will allow any player to end"
  257. 2090 print#4,"the game if it is to his advantage, ";
  258. 2100 if dn=3 then print#4
  259. 2110 print#4,"but only if any trail is more than 41"
  260. 2120 print#4,"segments in length."
  261. 2130 print#4
  262. 2140 print#4,"[212]he second way to end a game is to let ";
  263. 2150 if dn=3 then print#4
  264. 2160 print#4,"the computer do so after about 80"
  265. 2170 print#4,"plays have been made. [212]his number ";
  266. 2175 if dn=3 then print#4
  267. 2180 print#4,"appears in the upper right corner of"
  268. 2185 print#4,"the map."
  269. 2190 print#4
  270. 2200 print#4,"[193]fter either condition has been met, ";
  271. 2210 if dn=3 then print#4
  272. 2220 print#4,"the computer will calculate the total"
  273. 2230 print#4,"value of cash and stocks for each of ";
  274. 2240 if dn=3 then print#4
  275. 2250 print#4,"the players in the game. [212]he player"
  276. 2260 print#4,"with the highest net worth is the ";
  277. 2270 if dn=3 then print#4
  278. 2280 print#4,"winner."
  279. 2290 print#4
  280. 2480 if dn=3 then gosub 390
  281. 2490 close 4: goto 290
  282. 2500 if po$="[207][206][146][154]. " then po$="[207][198][198][146][154].": dn=3: sa=0:goto290
  283. 2510 po$="[207][206][146][154]. ":dn=4:sa=7
  284. 2515 open15,4,15:close15:ifst<>0then 2520
  285. 2517 goto 290
  286. 2520 print"          [208][210][201][206][212][197][210] [206][207][212] [196][197][212][197][195][212][197][196] "
  287. 2530 ford=1to2000:next
  288. 2590 goto 2500
  289. 2600 print "[147]               [195]redits"
  290. 2610 print
  291. 2620 print "[212]rail [215]est [195]reated by:"
  292. 2630 print
  293. 2640 print "     [210]ichard [198]. [196]aley, [208]h[196]"
  294. 2650 print "     [197]asy[215]are"
  295. 2660 print "     [208].[207]. [194]ox 217"
  296. 2670 print "     [195]ollege [208]lace, [215][193] 99324"
  297. 2680 print
  298. 2690 end
  299. 2990 print"[147]";
  300. 2991 ifdn<>3thenprint"[208]rinting....[208]lease [215]ait"
  301. 2992 open4,dn,sa:return
  302. 3000 close dn:
  303. 3020 print"[147][208]lease wait while loading..."
  304. 3030 print "[144]load "chr$(34)"trail west"chr$(34)","dv
  305. 3040 print"run":poke631,asc(""):poke632,13:poke633,13:poke198,3:end
  306. 10000 d=peek(186):n$="tw.inst":open15,d,15,"s0:"+n$:close15:saven$,d:end
  307.