home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 45 / 045.d81 / dragonwick (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  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:poke