home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #2 / utv2n2s2.d64 / sorcerer.exe (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  5.7 KB  |  166 lines
  1. 10 rem    sorcerer-jc hilty-2/88
  2. 12 gosub1000:b=4
  3. 20 sys(940)
  4. 22 poke2040+q,p:p=p+1:ifp=195thenp=193
  5. 26 onlgosub50,60,80,90,80:l=l+1:ifl=6thenl=1
  6. 27 ifbo=0then202
  7. 28 sys(940)
  8. 29 w1=peek(v+30):ifw1and1then200
  9. 30 w2=peek(v+31):ifw2and1then202
  10. 31 ifle>2thensys(940)
  11. 32 poke53272,(peek(53272)and240)orb:b=b+2:ifb=8thenb=4
  12. 33 goto20
  13. 50 ifpeek(v+2)>220thenpoke50435,253:poke50688,2:return
  14. 52 ifpeek(v+2)<50thenpoke50435,3:poke50688,2:return
  15. 54 return
  16. 60 ifpeek(v+5)<210thenreturn
  17. 61 pokev+21,251:pokev+5,70:pokev+4,peek(v+2)
  18. 62 forx=0to24:pokes+x,0:next:pokes+1,2:pokes+5,28:pokes+24,15:pokes,240
  19. 64 pokes+4,129:pokev+21,255:return
  20. 80 d=peek(v+16):ifdand1thenpoke50445,0:poke50688,64:goto84
  21. 81 ifpeek(v)>peek(v+12)thenpoke2046+q,196:poke50445,u:poke50688,64
  22. 82 ifpeek(v)<peek(v+12)thenpoke2046+q,195:poke50445,ez:poke50688,64
  23. 84 ifpeek(v+1)>peek(v+13)thenpoke50446,u:poke50688,64:goto86
  24. 85 ifpeek(v+1)<peek(v+13)thenpoke50446,ez:poke50688,64
  25. 86 d=peek(v+16):ifdand64thenpokev+16,peek(v+16)-64:pokev+12,250:poke50445,254
  26. 87 poke50688,64
  27. 88 return
  28. 90 bo=bo-5:ifbo<1thenbo=0
  29. 92 print""tab(6)"    ":print""tab(5)bo
  30. 93 return
  31. 200 ifw1and128then250
  32. 202 poke50432,0:li=li-1:print""tab(33)li
  33. 204 forx=0to24:pokes+x,0:next:pokes+1,200:pokes+5,25:pokes+24,15:pokes,240
  34. 206 pokes+4,129
  35. 208 forx=198to202:poke2040+q,x:fort=0to150:next:next
  36. 209 ifli=0then300
  37. 210 bo=500:pokev+21,0:print""tab(5)bo:gosub500:ifle>4thengosub550
  38. 211 gosub1112:ifle>6thenprint""tab(27)"\\\\\\\\\\\"
  39. 212 goto20
  40. 250 poke50432,0:sc=sc+bo:print""tab(5)sc
  41. 252 restore
  42. 254 forx=0to24:pokes+x,0:next:pokes+24,15:pokes+5,85:pokes+6,85:pokes+4,33
  43. 255 forx=0to5:readh1,n1:pokes+1,h1:pokes,n1
  44. 256 ifh1=50thenfort=0to500:next
  45. 257 fort=0to200:next:next:pokes+4,0
  46. 258 bo=500:pokev+21,0:print""tab(5)bo:le=le+1:print""tab(33)le
  47. 260 ifle>2thenu=3:ez=253
  48. 261 ifle>6thenu=2:ez=254
  49. 262 ifle>14thenu=1:ez=255
  50. 270 gosub500:ifle>4thengosub550
  51. 271 gosub1112:ifle>6thenprint""tab(27)"\\\\\\\\\\\"
  52. 272 goto20
  53. 300 pokev+21,254:poke50432,254:print""tab(12)"[199] a m e   [207] v e r"
  54. 302 print"[158]"tab(8)"[208]ress [198]1 to [208]lay [193]gain"
  55. 304 printtab(05)"[208]ress [198]8 to [210]eturn to [213]p[212]ime"
  56. 305 poke198,0:poke53272,(peek(53272)and240)orb:b=b+2:ifb=8thenb=4
  57. 306 get a$:if a$="[133]"then310
  58. 307 if a$="[140]"then 320
  59. 308 goto306
  60. 310 li=5:bo=500:le=1:u=4:ez=252:ifsc>hsthenhs=sc
  61. 311 sc=0:gosub1104:goto20
  62. 320 poke53269,0:sys65418:pokev+21,0
  63. 330 poke648,4:poke56576,199:poke53272,21
  64. 340 print"[144][147]load"chr$(34)"upt.reboot"chr$(34)",8:"
  65. 350 print"run:"
  66. 360 poke 631,19:poke 632,13:poke 633,13:poke 198,3
  67. 370 new
  68. 500 ifle=1thenprint"[129]":return
  69. 502 ifle=2thenprint"[156]":return
  70. 503 ifle=3thenprint"":return
  71. 504 ifle=4thenprint"":return
  72. 505 ifle=5thenprint"[158]":return
  73. 506 x=int(5*rnd(9)+1):onxgosub510,511,512,513,514
  74. 508 return
  75. 510 print"[129]":return
  76. 511 print"[156]":return
  77. 512 print"":return
  78. 513 print"":return
  79. 514 print"[158]":return
  80. 550 print"":forx=0to12
  81. 551 printtab(2)"                                    ":next
  82. 554 x=int(3*rnd(6)+1):onxgosub560,565,570
  83. 555 return
  84. 560 print""tab(27)o$:print""tab(11)o$:return
  85. 565 print""tab(15)o$:print""tab(29)o$:return
  86. 570 print""tab(20)o$:print""tab(20)o$:return
  87. 572 print""tab(11)o$:print""tab(25)o$:return
  88. 1000 poke147,0:sys57812"sorcerer.sp",8,1:sys62631
  89. 1002 poke147,0:sys57812"sorcerer.font1",8,1:sys62631
  90. 1004 poke147,0:sys57812"sorcerer.font2",8,1:sys62631
  91. 1006 poke147,0:sys57812"sorcerer.mvt",8,1:sys62631
  92. 1007 poke147,0:sys57812"sorcerer.joy",8,1:sys62631
  93. 1010 print"[147]":poke53281,0:poke53280,0
  94. 1012 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or2
  95. 1014 poke53272,(peek(53272)and15)or16:poke648,68
  96. 1016 poke53272,(peek(53272)and240)or6
  97. 1017 print"[147]"
  98. 1020 v=53248:s=54272:q=16384:sc=0:hs=0:li=5:bo=500:le=1:l=1:p=193:u=4:ez=252
  99. 1021 p$="":a$="\\\\    \\\\    \\\\\\\\\\\\\\    \\      \\\\\\\\\\    \\\\"
  100. 1022 b$="     \\\\\\\\\\\\\\\\\\\    \\\\    \\\\\\\\    \\\\\\    \\    "
  101. 1023 c$="\\\\    \\\\    \\\\    \\\\    \\\\\\\\\\\\\\\\\\\\\\        \\\"
  102. 1024 d$="\\\\\\\    \\\\\\\\\\\\\\\\\\    \\\\\\    \\\\\\\\\\\\    \\\\   "
  103. 1025 p$=a$+b$+c$+d$:o$="\[157]\[157]\"
  104. 1026 forx=50432to50448:pokex,0:next:sys51104
  105. 1027 forx=39to46:pokev+x,7:next
  106. 1028 forx=2040+qto2046+qstep2:pokex,195:next
  107. 1030 forx=2041+qto2047+qstep2:pokex,196:next
  108. 1032 pokev+28,255:pokev+37,5:pokev+38,2
  109. 1034 z=5:a=10:forx=vtov+15step2:pokex,z+48:pokex+1,a+40
  110. 1035 z=z+25:a=a+25:next:pokev+16,0:pokev+27,255
  111. 1036 z=50433:h=247:e=1:forx=ztoz+16step2:pokex,h:pokex+1,e:h=h+1:e=e+1:next
  112. 1038 poke50688,255
  113. 1040 print"[147][154]"tab(9)"^^^^^^^^^^^^^^^^^^^^^"
  114. 1041 printtab(9)"^[211][207][210][195][197][210][197][210]'[211][160][205][207][213][206][212][193][201][206]^"
  115. 1042 print"[129]\\\\\\\\\[154]^^^^^^^^^^^^^^^^^^^^^[129]\\\\\\\\\":print"\"tab(38)"\"
  116. 1044 print"\ [155][199]reat wealth awaits those who are   [129]\"
  117. 1045 print"\ [155]brave and skillful enough to climb  [129]\"
  118. 1046 print"\ [155][211]orcerer's [205]ountain and reach the   [129]\"
  119. 1048 print"\ [155]pot of gold.  [213]se a joystick in [208][207][210][212][129]\"
  120. 1049 print"\ [155]2 to weave your way through the     [129]\"
  121. 1050 print"\ [155]magical flames which the sorcerer   [129]\"
  122. 1051 print"\ [155]has cast upon the forest.  [196]o not   [129]\"
  123. 1052 print"\ [155]run into a flame or a tree or you   [129]\"
  124. 1053 print"\ [155]will lose a life.  [193]n encounter with[129]\"
  125. 1054 print"\ [155]a [196][210][193][199][207][206] [205][207][206][211][212][197][210] will also cost you [129]\"
  126. 1055 print"\ [155]a life.  [212]he [194][207][206][213][211] clock starts each[129]\"
  127. 1056 print"\ [155]round with a value of 500 points.   [129]\"
  128. 1057 print"\ [155][217]ou must reach the gold before the  [129]\"
  129. 1058 print"\ [155]clock reaches zero or you will lose [129]\"
  130. 1059 print"\ [155]a life.  [212]o further complicate your [129]\"
  131. 1060 print"\ [155]quest, the sorcerer is hurtling     [129]\"
  132. 1061 print"\ [155]lightning bolts at you!  [199][207][207][196][160][204][213][195][203]!![129]\"
  133. 1062 print"\"tab(38)"\":print"\ [153]------------ [208][210][197][211][211][160][160][198]1 [153]------------ [129]\"
  134. 1063 print"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
  135. 1100 poke50432,255:pokev+21,255
  136. 1101 poke53272,(peek(53272)and240)or4:fort=0to60:next
  137. 1102 poke53272,(peek(53272)and240)or6:fort=0to50:next:geta$:if a$="[133]"then1104
  138. 1103 goto1101
  139. 1104 pokev+21,0:print"[147]":forx=50432to50448:pokex,0:next
  140. 1105 rem    playing screen
  141. 1106 print"[194]onus";bo;tab(13)"^^^^^^^^^^^^   [204]ives"li
  142. 1107 print"[211]core";sc;tab(13)"^[211][207][210][195][197][210][197][210]'[211]^   [204]evel"le
  143. 1108 print"[200]igh ";hs;tab(13)"^ [205][207][213][206][212][193][201][206] ^"
  144. 1109 print"[153]-------------^^^^^^^^^^^^[153]-------    ---"
  145. 1110 fort=0to18:print"-"tab(38)"-":next
  146. 1111 print"---------------------------------------[129]"
  147. 1112 print""tab(1);mid$(p$,int(215*rnd(9)+1),37)
  148. 1113 print""tab(1);mid$(p$,int(215*rnd(9)+1),37)
  149. 1114 print""tab(1);mid$(p$,int(215*rnd(9)+1),37)
  150. 1115 print""tab(1);mid$(p$,int(215*rnd(9)+1),37)
  151. 1116 rem    sprite setups
  152. 1118 pokev+27,0:pokev+16,144:pokev+28,123:pokev+37,5:pokev+38,2
  153. 1119 poke2040+q,193:pokev+39,1:pokev,168:pokev+1,214
  154. 1120 poke2041+q,192:pokev+40,1:pokev+2,168:pokev+3,62
  155. 1121 poke2042+q,197:pokev+41,1:pokev+4,168:pokev+5,70
  156. 1122 poke2043+q,196:pokev+42,7:pokev+6,070:pokev+7,180
  157. 1123 poke2044+q,195:pokev+43,7:pokev+8,040:pokev+9,86
  158. 1124 poke2045+q,196:pokev+44,7:pokev+10,168:pokev+11,118
  159. 1125 poke2046+q,196:pokev+45,7:pokev+12,100:pokev+13,86
  160. 1126 poke2047+q,203:pokev+46,7:pokev+14,30:pokev+15,60
  161. 1149 pokev+21,255:w1=peek(v+30):w2=peek(v+31)
  162. 1150 poke50435,253:poke50438,1:poke50439,1:poke50441,255:poke50443,2
  163. 1151 poke50688,255:poke50432,254
  164. 1152 return
  165. 2000 data 25,30,33,135,42,62,50,60,42,62,50,60,0,0
  166.