home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 193 / 193.d81 / t3 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  131 lines
  1. 5 dv=peek(186):rem*screentitles 1200
  2. 10 print"[147]":poke53272,20
  3. 12 goto10000
  4. 15 gosub1100:rem menu
  5. 20 b$="3":goto200
  6. 199 rem***basic + run****
  7. 200 c$=chr$(34):poke198,4:print"[147]"
  8. 206 poke214,10:print:printtab(15)"[158]loading...[144]"
  9. 210 print"[144]load";c$;b$;c$;",dv";
  10. 230 poke631,13:poke632,82:poke633,117:poke634,13:end
  11. 298 rem
  12. 1100 rem **** screen set-up ****
  13. 1110 print"[147]":  poke53281,0:poke53280,0:poke646,5
  14. 1112 t$="telnyr iii - the four runes"
  15. 1120 print"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  16. 1130 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";
  17. 1140 print"";:fori=1to22:print"[194]                                      [194]";:next
  18. 1150 ce=((40-len(t$))/2)-1:l=len(t$):print""
  19. 1160 printtab(ce)"[145][213]";:fori=1tol:print"[195]";:next:print"[201]"
  20. 1170 printtab(ce)"[194]"le$t$bo$"[194]"
  21. 1180 printtab(ce)"[145][202]";:fori=1tol:print"[195]";:next:print"[203]":print
  22. 1188 rem
  23. 1189 rem
  24. 1190 rem***names***
  25. 1191 rem
  26. 1192 print:print:print
  27. 1200 printtab(14)"type a key"
  28. 1220 printtab(11)"to load the game"
  29. 1252 poke198,0:wait198,1:poke198,0:print"":return
  30. 9020 z=55296+160
  31. 9030 forp=ztoz+7:pokep,7:next
  32. 9032 print:print:print:print:print:print:print"press a key...."
  33. 9034 poke198,0:wait198,1:getyi$
  34. 9035 print"[147]":printchr$(142)
  35. 9036 return
  36. 10000 print"[147]":poke53280,0:poke53281,0:print"[159]"
  37. 10010 print"             telnyr iii"
  38. 10020 print"             [192][192][192][192][192][192][192][192][192][192]"
  39. 10021 print:print"if you have not played the game before"
  40. 10022 print:print"you probably should read the brief"
  41. 10023 print:print"instructions first."
  42. 10024 print:print:print"":print"r  read instructions"
  43. 10025 print:print"l  load the game":print:print:print"choose r or l"
  44. 10026 poke198,0:wait198,1:getkj$
  45. 10027 ifkj$="r"then10030
  46. 10028 ifkj$="l"then15
  47. 10029 goto10026
  48. 10030 rem:
  49. 10032 rem:
  50. 10034 rem:
  51. 10036 rem:
  52. 10040 rem:
  53. 10050 print"[147]":print:print"the history of telnyr is part of the"
  54. 10052 print:print"fantasy but not necessary to the"
  55. 10054 print:print"instructions. it can be read"
  56. 10056 print:print"separately."
  57. 10060 gosub30000:print"[152]"
  58. 10070 print"use joystick in port 2"
  59. 10080 print:print"to enter towns etc stand in the"
  60. 10090 print"doorway and press fire."
  61. 10100 print:print"to pick up any objects stand on them"
  62. 10110 print"and press fire."
  63. 10120 print:print"press spacebar for inventory."
  64. 10130 print:print"once you buy a sextant you can press"
  65. 10140 print"r when travelling outdoors to read it."
  66. 10150 print"you will need to find specific"
  67. 10160 print"co-ordinates for buried treasure."
  68. 10170 print:print"once you are at the right spot search"
  69. 10180 print"for treasure from the inventory screen."
  70. 10190 print:print"save/load game from telnyr castle only."
  71. 10200 gosub30000
  72. 10210 rem
  73. 10220 rem
  74. 10229 rem
  75. 10230 print:print"this program is public domain and may be"
  76. 10240 print"freely copied & passed on."
  77. 10250 print:print"--------------------------------------"
  78. 10260 print"":print"potions increase dexterity in combat"
  79. 10270 print:print"you learn spells at magic shops. "
  80. 10272 print:print"each time you cast a spell it uses up a"
  81. 10274 print"certain number of crystals."
  82. 10276 print:print"spells you can learn are-"
  83. 10280 gosub30000
  84. 10300 poke646,8:print"heal ";:poke646,5:print"increase hp by 5o"
  85. 10310 print
  86. 10320 poke646,8:print"strength";:poke646,5:print" increase strength in combat"
  87. 10330 poke646,8:print:print"confuse";:poke646,5:print" enemies miss more often"
  88. 10340 poke646,8:print:print"teleport";:poke646,5:print" exit a dungeon"
  89. 10350 poke646,8:print:print"revive";:poke646,5:print" add 120 hp"
  90. 10360 poke646,8:print:print"missile";:poke646,5:print" decimate 1-3 monsters"
  91. 10370 poke646,8:print:print"nutrition";:poke646,5:print" make food"
  92. 10380 poke646,8:print:print"flee";:poke646,5:print" escape from combat"
  93. 10381 gosub30000
  94. 10382 print"[147]":poke646,3:   print"character dies if hp reaches zero."
  95. 10383 poke646,4:  print:print:print"if you have no food you start losing hp"
  96. 10394 poke646,7:print:print:print"to pass time stay still & hold down"
  97. 10395 print"the firebutton. you will be attacked"
  98. 10396 print"but no objects will appear."
  99. 10400 poke646,5: print:print:print"the run away option in combat gives"
  100. 10402 print"about a 1 in 5 chance of escaping. this"
  101. 10404 print"may vary as it is random."
  102. 10410 gosub30000
  103. 10420 print"[147]":poke646,3:print"please note-"
  104. 10422 poke646,5:print:print"the completed program was rigorously"
  105. 10424 print"game-tested. on one (out of about 2o)"
  106. 10425 print"tests i noticed that some of the "
  107. 10426 print"monster sprite graphics were messed up."
  108. 10428 print:print"in the unlikely event that this happens"
  109. 10430 print"to fix it just save your current game,"
  110. 10432 print"turn the 64 off,then reload telnyr and"
  111. 10434 print"load in your saved game. this restores"
  112. 10436 print"the sprite graphics."
  113. 10438 remnt"graphics."
  114. 10440 rem:
  115. 10442 rem:
  116. 10444 rem
  117. 10450 gosub30000
  118. 10500 print"the speed of text messages can be":print:goto20420
  119. 20420 print"adjusted from the inventory screen.":print
  120. 20421 print:print"[159]important !!! save games to this disk,"
  121. 20422 :print:print"or if you want to save to another disk"
  122. 20423 print:print"use any copy util to copy the file"
  123. 20424 print:print"called 'tl' to that disk first."
  124. 20440 print:print:print"[159]":print"program by peter boothman"
  125. 20450 print"12/21 trafalgar st belmore nsw 2192"
  126. 20452 print"australia"
  127. 20456 print:gosub30000:goto10
  128. 30000 print:print:print"[159]press spacebar":poke198,0:wait198,1:getkj$:print"[147]"::return
  129. 59999 end
  130. 60000 dv=peek(186):n$="t3":open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  131.