home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 45 / 045.d81 / dragonwick (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  6.8 KB  |  219 lines
  1. 5 rem    dragonwick-ver4.0-jc hilty-9/87
  2. 6 ifa=0thena=1:load"wick.sprt",8,1
  3. 7 ifa=1thena=2:load"wick.ml",8,1
  4. 8 open3,8,3,"king":input#3,hs$,hs:close3:sys51459:poke53280,.:poke53281,.
  5. 9 sp$="                                       "
  6. 10 goto1000
  7. 11 poke49600,0:sys49376:forx=49601to49616:pokex,0:next:poke49700,255
  8. 12 print"[147]":poke53281,0:poke53280,0
  9. 13 s=54272:v=53248:sc=0:li=6:bo=400:le=1:p=194:lp=1:rm=20:jx=49501
  10. 14 gosub700
  11. 15 l=int(rnd(4)*60)+100
  12. 16 r=int(rnd(2)*50)+160
  13. 19 gosub800
  14. 20 pokev+21,255:gosub612
  15. 21 w1=peek(v+30):w2=peek(v+31):poke49600,112
  16. 24 fg=peek(v+16)
  17. 30 xq=peek(v):yq=peek(v+1):sys(jx):sys(jx):w2=peek(v+31):ifw2and1then450
  18. 31 w2=peek(v+31):ifw2and1then450
  19. 32 w2=peek(v+31):ifw2and1then450
  20. 34 w1=peek(v+30):ifw1and1then200
  21. 35 onlpgoto45,50,60,65,70,75,80
  22. 36 lp=lp+1:iflp=8thenlp=1
  23. 38 goto30
  24. 45 ifpeek(v+13)<130thenpoke49614,2:poke49700,64
  25. 46 ifpeek(v+13)>140thenpoke49614,254:poke49700,64
  26. 47 goto36
  27. 50 poke2046,p:p=p+1:ifp=196thenp=194
  28. 52 goto36
  29. 60 k=peek(v):ifpeek(v+16)and1thenk=k+255
  30. 61 e=peek(v+8):ifpeek(v+16)and16thene=e+255
  31. 62 ife<kthenpoke49609,2:poke49700,16
  32. 63 ife>kthenpoke49609,254:poke49700,16
  33. 64 goto36
  34. 65 ifpeek(v+9)>peek(v+1)thenpoke49610,254:poke49700,16
  35. 66 ifpeek(v+9)<peek(v+1)thenpoke49610,2:poke49700,16
  36. 67 goto36
  37. 70 ifpeek(v+10)<lthenpoke49611,2:poke49700,32
  38. 71 ifpeek(v+10)>rthenpoke49611,254:poke49700,32
  39. 72 goto36
  40. 75 ifpeek(v+11)>200thenpoke49612,254:poke49700,32
  41. 76 ifpeek(v+11)<80thenpoke49612,2:poke49700,32
  42. 77 goto36
  43. 80 bo=bo-5:print""tab(30)"    ":print""tab(29)bo:ifbo=0then300
  44. 81 goto36
  45. 200 poke49600,0
  46. 201 ifw1and128thenu=128:goto210
  47. 202 ifw1and2thenu=2:goto210
  48. 203 ifw1and4thenu=4:goto210
  49. 204 ifw1and8thenu=8:goto210
  50. 206 goto300
  51. 210 pokev+21,peek(v+21)-u:gosub604
  52. 212 sc=sc+bo:print""tab(29)sc
  53. 213 ifpeek(v+21)=113then400
  54. 214 w1=peek(v+30):goto21
  55. 300 poke49600,0:poke2040,202:gosub612
  56. 304 li=li-1:print""tab(12)li:ifli=0then500
  57. 305 ifbo=0thenbo=400:goto404
  58. 306 ifle>9then320
  59. 310 gosub800:w2=peek(v+31):w1=peek(v+30):goto21
  60. 320 ifro=2thengosub720:gosub800:w2=peek(v+31):w1=peek(v+30):goto21
  61. 321 ifro=1thengosub700:gosub800:w2=peek(v+31):w1=peek(v+30):goto21
  62. 322 ifro=3thengosub736:gosub800:w2=peek(v+31):w1=peek(v+30):goto21
  63. 400 le=le+1:bo=400:ifle=6thengosub2000
  64. 401 ifle=2thengosub720:goto410
  65. 402 ifle=3thengosub736:goto410
  66. 404 ro=int(3*rnd(4))+1:onrogosub700,720,736
  67. 410 w1=peek(v+30):w2=peek(v+31):goto15
  68. 450 ifle>5then300
  69. 451 forx=0to24:pokes+x,0:next:pokes,150:pokes+1,200:pokes+6,240:pokes+24,15
  70. 452 pokes+4,17:fort=0to20:next:pokes+4,16
  71. 455 ifpeek(v+16)and1then462
  72. 456 ifxq<20thenpokev+16,peek(v+16)+1
  73. 457 pokev,xq:pokev+1,yq
  74. 460 w2=peek(v+31):goto34
  75. 462 ifxq>50thenpokev+16,peek(v+16)-1
  76. 463 pokev,xq:pokev+1,yq
  77. 464 w2=peek(v+31):goto34
  78. 500 poke49600,0:pokev+21,0:ifsc>hsthengosub950
  79. 502 sys65418:goto1000
  80. 520 poke2046,p:p=p+1:ifp=196thenp=194
  81. 522 fort=0to50:next:goto514
  82. 540 pokev+21,0:poke49600,0
  83. 541 print"[147]":sc=0:li=6:bo=400:le=1:p=194:q=199:rm=20:lp=1:goto14
  84. 600 rem    sounds and music
  85. 602 rem    grab the gold sound
  86. 604 forx=0to24:pokes+x,0:next:pokes+24,15:q=200
  87. 605 forqz=100to130step5:pokes+4,0:pokes+1,qz:pokes,100:pokes+4,33
  88. 606 poke2040,q:q=q-1:ifq=198thenq=200
  89. 607 next
  90. 608 pokes+4,0:pokes+1,160:pokes,100:pokes+5,5:pokes+6,5:pokes+4,33
  91. 609 poke2040,199:return
  92. 610 rem    lose a life sound
  93. 612 forx=0to24:pokes+x,0:next:pokes+24,143:pokes+5,16:pokes+19,16:pokes+6,252
  94. 614 pokes+20,249:pokes+4,21:pokes+18,17:pokes+1,2:pokes+15,34:fort=0to200:next
  95. 616 pokes+4,20:pokes+18,16:fort=0to300:next:pokes+4,21:pokes+18,17
  96. 618 pokes+1,2:pokes+15,30:fort=0to200:next:pokes+4,20:pokes+18,16
  97. 620 fort=0to300:next:pokes+4,21:pokes+18,17:pokes+1,2:pokes+15,34
  98. 622 fort=0to500:next:pokes+4,20:pokes+18,16
  99. 624 return
  100. 699 rem    ghost gallery
  101. 700 print"[147]"tab(2)"[154]level"le:printtab(2)"[158]ghost gallery"tab(24)"[154]bonus"bo
  102. 702 printtab(2)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  103. 703 printtab(2)"[166]"tab(36)"[166]":printtab(2)"[166]"tab(36)"[166]"
  104. 704 printtab(2)"[166]"tab(36)"[166]":fort=0to1
  105. 705 printtab(2)"[166]   [166]"tab(16)"[166]    [166]"tab(36)"[166]":next
  106. 706 printtab(2)"[166]   [166][166][166]    [166][166][166][166]    [166][166][166][166]       [166]   [166]":fort=0to2
  107. 707 printtab(2)"[166]"tab(13)"[166]"tab(24)"[166]"tab(32)"[166]   [166]":next
  108. 708 printtab(2)"[166]"tab(8)"[166]    [166]"tab(24)"[166]"tab(32)"[166]   [166]"
  109. 709 printtab(2)"[166]"tab(8)"[166]    [166][166][166][166]    [166][166][166][166]"tab(32)"[166]   [166]"
  110. 710 fort=0to1:printtab(2)"[166]     [166]"tab(32)"[166]   [166]":next
  111. 711 printtab(2)"[166]     [166]"tab(36)"[166]"
  112. 712 printtab(2)"[166]    [166][166]"tab(16)"[166][166][166][166][166][166][166][166][166][166]"tab(36)"[166]"
  113. 713 fort=0to2:printtab(2)"[166]"tab(25)"[166]"tab(36)"[166]":next
  114. 714 printtab(2)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  115. 715 printtab(7)"[154]lives"li;tab(24)"[154]score"sc
  116. 716 poke2044,196:poke2045,196:pokev+43,7:pokev+44,3:ro=1:return
  117. 719 rem    pumpkin pad
  118. 720 print"[147][156]"tab(2)"[154]level"le:printtab(2)"[158]pumpkin pad"tab(24)"[154]bonus"bo
  119. 721 printtab(2)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":forx=0to2
  120. 722 printtab(2)"[166]"tab(17)"[166]"tab(36)"[166]":next
  121. 723 printtab(2)"[166]    [166][166][166]    [166][166][166][166]    [166][166][166][166][166][166][166][166][166][166]    [166]":forx=0to1
  122. 724 printtab(2)"[166]    [166]"tab(17)"[166]    [166]"tab(29)"[166]      [166]":next
  123. 725 printtab(2)"[166]"tab(29)"[166]      [166]":fort=0to1:printtab(2)"[166]"tab(36)"[166]":next
  124. 726 printtab(2)"[166][166][166][166][166][166]   [166]   [166]"tab(22)"[166][166][166][166]"tab(36)"[166]"
  125. 727 printtab(2)"[166]"tab(11)"[166]   [166]"tab(29)"[166][166][166][166]   [166]"
  126. 728 forx=0to1:printtab(2)"[166]"tab(11)"[166]   [166]"tab(36)"[166]":next
  127. 729 printtab(2)"[166]"tab(11)"[166]   [166][166][166][166][166][166][166][166]"tab(36)"[166]"
  128. 730 forx=0to3:printtab(2)"[166]    [166]"tab(29)"[166]      [166]":next
  129. 731 printtab(2)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  130. 732 printtab(7)"[154]lives"litab(24)"[154]score"sc
  131. 733 poke2044,197:poke2045,197:pokev+43,7:pokev+44,8:ro=2:return
  132. 735 rem    batty belfry
  133. 736 print"[147][152]"tab(2)"[154]level"le:printtab(2)"[158]batty belfry"tab(24)"[154]bonus"bo
  134. 737 printtab(2)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  135. 738 forx=0to3:printtab(2)"[166]"tab(36)"[166]":next
  136. 739 printtab(2)"[166][166][166][166][166][166][166][166][166]   [166][166][166]    [166][166][166]            [166]"
  137. 740 forx=0to2:printtab(2)"[166]"tab(14)"[166]"tab(23)"[166]   [166]"tab(36)"[166]":next
  138. 741 printtab(2)"[166]"tab(14)"[166]"tab(23)"[166]"tab(36)"[166]"
  139. 742 printtab(2)"[166]    [166][166][166][166]   [166]"tab(23)"[166]"tab(36)"[166]"
  140. 743 printtab(2)"[166]    [166]"tab(36)"[166]":printtab(2)"[166]    [166]"tab(28)"        [166]"
  141. 744 printtab(2)"[166]    [166]"tab(32)"[166]   [166]"
  142. 745 printtab(2)"[166]    [166]    [166][166][166][166][166][166][166][166][166][166][166][166]"tab(32)"[166]   [166]"
  143. 746 forx=0to3:printtab(2)"[166]"tab(36)"[166]":next
  144. 747 printtab(2)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  145. 748 printtab(7)"[154]lives"litab(24)"[154]score"sc
  146. 749 poke2044,198:poke2045,198:pokev+43,3:pokev+44,9:ro=3:return
  147. 799 rem    initial sprite setups
  148. 800 pokev+16,12:forx=2041to2043:pokex,201:next:forx=40to42:pokev+x,15:next
  149. 801 poke2047,201:pokev+46,15:poke2040,199
  150. 802 poke2046,p:pokev,164:pokev+1,126:pokev+2,48:pokev+3,194
  151. 804 pokev+4,32:pokev+5,74:pokev+6,32:pokev+7,194
  152. 806 pokev+8,100:pokev+9,90:pokev+10,180:pokev+11,200
  153. 808 pokev+28,65 :pokev+37,8:pokev+38,5:pokev+45,7:pokev+39,1
  154. 810 pokev+29,64:pokev+12,24:pokev+13,130:pokev+14,48 :pokev+15,74
  155. 812 poke49609,255:poke49610,1:poke49611,1:poke49612,255:poke49613,2
  156. 814 poke49614,254:poke49700,112
  157. 820 return
  158. 950 hs=sc:print"[147]  [158]a new dragonslayer king is crowned!"
  159. 952 print"[154]enter your name so your bravery can be"
  160. 953 print"recorded in dragonwick's hall of fame:"
  161. 954 print"--->";:gosub60500:hs$=b$
  162. 958 open3,8,3,"@0:king,s,w"
  163. 959 print#3,hs$
  164. 960 print#3,hs
  165. 962 close3
  166. 964 return
  167. 1000 print"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  168. 1005 print"[221]              [158]dragonwick              [221]";
  169. 1010 print"[221]           [158]by j. c. hilty             [221]";
  170. 1015 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]";
  171. 1020 print"          p [154]- play dragonwick"
  172. 1025 print"          c [154]- clear high score"
  173. 1030 print"          q [154]- quit"
  174. 1040 print"             press p, c [154]or q[154]."
  175. 1041 tab=20-len("high score:"+str$(hs))/2
  176. 1042 print"                                      [145][145][145]"
  177. 1043 print""tab(tab)"[129]high score:"hs
  178. 1045 tab=20-len("warrior: "+hs$)/2
  179. 1046 print"                                      [145][145]"
  180. 1047 print""tab(tab)"[129]warrior: "hs$
  181. 1048 print"[145][145][145][145][145][145][145][145][145]"
  182. 1050 a=peek(203):ifa<>62anda<>41anda<>20then1050
  183. 1055 ifa=20thengosub4000:goto1040
  184. 1060 ifa=62thengosub60000:goto1040
  185. 1070 goto11
  186. 2000 pokev+21,.:print"[147]    [150]beware, mighty warrior, the walls"
  187. 2010 print"      in the remaining levels are":poke198,.
  188. 2020 fora=1to150
  189. 2030 forb=2to10step8
  190. 2040 poke646,b:printtab(14)"[145]electrified"
  191. 2045 ifpeek(198)>.thena=150:b=10
  192. 2050 next:next:pokev+21,255
  193. 2060 return
  194. 4000 print"     [154]are you sure you want to clear"
  195. 4010 print"          the high score?  (y[154]/n[154])"
  196. 4020 a=peek(203):ifa<>25anda<>39then4020
  197. 4025 ifa=39then4070
  198. 4030 open3,8,3,"@0:king,s,w"
  199. 4035 hs=0:hs$="loadstar"
  200. 4040 print#3,hs$
  201. 4050 print#3,hs
  202. 4060 close3
  203. 4070 print"[145][145]"sp$:printsp$"[145]":return
  204. 59999 stop
  205. 60000 print"  [154]are you sure you want to quit? (y[154]/n[154])"
  206. 60010 a=peek(203):ifa<>25anda<>39then60010
  207. 60020 ifa=39thenprint"[145]"sp$"[145]":return
  208. 60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  209. 60040 ifer<>63thenend
  210. 60050 load"hello connect",8
  211. 60500 b$="":poke198,.:print"[164]";
  212. 60510 fora=1to31
  213. 60520 geta$:ifa$=""then60520
  214. 60530 ifa$=chr$(13)thenprint"[157] ":return
  215. 60540 ifa$=chr$(20)anda>1thenprint"[157][157]  [157][157][164]";:a=a-1:b$=left$(b$,a-1):goto60520
  216. 60545 ifa=31then60520
  217. 60550 ifa$<" "ora$>"z"then60520
  218. 60560 print"[157]"a$;:poke212,.:print"[164]";:b$=b$+a$:next
  219.