home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 224 / 224.d81 / awari1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  124 lines
  1. 1 rem "awari1" 2003.05.05
  2. 2 poke55,0:poke56,27:clr
  3. 3000 :
  4. 3002 : rem init
  5. 3004 :
  6. 3006 poke53265,11
  7. 3008 rem ---
  8. 3010 dim cc%,cr%,cx%,cy%,i%,l1%,l2%,pp%,px%,py%,r1%,r2%,rg%,sc%
  9. 3012 dim a,b,d,f,h,i,j,k,l,ml,mm,mv,o,p,q,v,x
  10. 3014 dim f$
  11. 3016 dim b%(1),c%(10),p%(3,1),x%(3),y%(3)
  12. 3018 dim a(14),x(13)
  13. 3022 rem ---
  14. 3024 d=peek(186)
  15. 3026 v=53248
  16. 3028 rem ---
  17. 3030 gosub3502:gosub3502
  18. 3032 rem --- mouse
  19. 3033 gosub3502:ml=x:mv=ml+156:pokemv,47:pokemv+1,195
  20. 3034 a(0)=peek(mv)+peek(mv+1)*256
  21. 3035 gosub3502:mm=x:pokemm+9,0
  22. 3036 rem --- zml
  23. 3038 gosub3502:gosub3502:sys851(x),0:gosub3502
  24. 3040 a(2)=196*256:a(3)=a(2)+8:a(4)=a(3)+8:a(5)=a(4)+64:a(6)=a(5)+27
  25. 3042 a(7)=a(6)+3:a(8)=a(7)+1:a(9)=a(8)+4:a(10)=a(9)+1:a(11)=a(10)+32
  26. 3044 a(12)=a(11)+32:a(13)=a(12)+14:a(14)=a(13)+28
  27. 3046 rem ---
  28. 3048 fori=0to10:readc%(i):next
  29. 3050 forp=0to1:fori=0to3:readp%(i,p):next:next
  30. 3054 fori=0to7:pokea(2)+i,2^i:next
  31. 3056 fori=0to7:pokea(3)+i,2^(i+1)-1:next
  32. 3058 fori=0to13:readx:pokea(12)+i,x:next
  33. 3100 rem --- game
  34. 3102 print"[147]":poke53272,19:fori=0to4:poke53280+i,c%(i):next
  35. 3104 fori=42to49:readx:pokemv+i,x:next
  36. 3106 cc%=c%(2):sc%=64
  37. 3108 cy%=14:py%=cy%+5:cx%=6:fori=17to22:gosub3410:cx%=cx%+5:next
  38. 3110 cy%=5:py%=cy%+5:cx%=cx%-5:fori=24to29:gosub3410:cx%=cx%-5:next
  39. 3112 cy%=9:py%=cy%+9:cx%=36:cc%=c%(3):sc%=128:i=23:gosub3410
  40. 3114 cy%=6:py%=cy%+9:cx%=1:cc%=c%(4):sc%=192:i=30:gosub3410
  41. 3116 fori=42to49:readx:pokemv+i,x:next
  42. 3118 poke646,c%(9)
  43. 3120 cy%=20:cx%=6:cc%=c%(2):x=177:fori=5to10:gosub3418:cx%=cx%+5:x=x+1:next
  44. 3122 fori=42to49:readx:pokemv+i,x:next
  45. 3124 poke646,c%(10)
  46. 3126 cy%=4:cx%=31:cc%=c%(2):x=177:fori=11to16:gosub3418:cx%=cx%-5:x=x+1:next
  47. 3128 fori=42to49:readx:pokemv+i,x:next
  48. 3130 cy%=17:cx%=1:i=3:gosub3426:x%(0)=cx%:y%(0)=py%:x%(2)=37:y%(2)=20
  49. 3132 poke646,c%(9)
  50. 3134 sysml+12,cx%,py%,"[220][220][255]":sysml+12,cx%,cy%,"[219][193][221]":py%=(cy%+1)*8+52:gosub3434
  51. 3136 cy%=4:cx%=36:i=4:gosub3426:x%(1)=cx%:y%(1)=cy%:x%(3)=1:y%(3)=4
  52. 3138 poke646,c%(10)
  53. 3140 sysml+12,cx%,cy%,"[223][220][220]":sysml+12,cx%,py%,"[219][194][221]":py%=(cy%+1)*8+52-3:gosub3434
  54. 3142 poke646,c%(6)
  55. 3144 cy%=1:cx%=1:i=2:readf$:gosub3446:cx%=33:i=1:readf$:gosub3446:f$=""
  56. 3146 poke646,c%(5)
  57. 3148 sysml+30,13,25,0,2,32,c%(5)or16:sysml+12,15,1,"< = < > ?"
  58. 3150 p=1:sysml+30,x%(p),x%(p)+2,y%(p),y%(p),255,c%(2)
  59. 3152 forj=0to5:k=j+7:fori=0to2:pokex(j)+i,c%(6):pokex(k)+i,c%(6):next:next
  60. 3154 sysml+27,23,"by lance c. thomas"
  61. 3155 sysml+27,24,":; 2003 j & f publishing, inc."
  62. 3156 sysml+45,1,38,4,20,208*256
  63. 3158 pokemv+2,30:sysml+6,10*256:sysmm:sysml:sysml+18,0,38,0,22
  64. 3160 poke2042,41:pokev+41,c%(7)
  65. 3162 poke2043,42:pokev+42,c%(8)
  66. 3164 pokev+37,2:pokev+38,9:pokev+28,12
  67. 3166 load"0:awari2",d
  68. 3408 :
  69. 3410 : rem pit region
  70. 3412 :
  71. 3414 px%=cx%+2:gosub3454:sysml+36,i,sc%,cc%:x(i-17)=55296+cy%*40+cx%:return
  72. 3416 :
  73. 3418 : rem number region
  74. 3420 :
  75. 3422 px%=cx%+2:py%=cy%:gosub3454:sysml+12,cx%,cy%,"[219]"+chr$(x)+"[221]":return
  76. 3424 :
  77. 3426 : rem player region
  78. 3428 :
  79. 3430 px%=cx%+2:py%=cy%+3:gosub3454:sysml+36,i,96,cc%:return
  80. 3432 :
  81. 3434 : rem player sprite
  82. 3436 :
  83. 3438 j=i-1:px%=cx%*8+24:ifpx%>255thenpx%=px%-256:x=v+16:pokex,peek(x)or2^j
  84. 3440 pokev+j*2,px%:pokev+j*2+1,py%
  85. 3442 return
  86. 3444 :
  87. 3446 : rem command region
  88. 3448 :
  89. 3450 px%=cx%+5:py%=cy%:gosub3454:sysml+12,cx%,cy%,f$:return
  90. 3452 :
  91. 3454 : rem region
  92. 3456 :
  93. 3458 sysml+30,cx%-1,px%+1,cy%-1,py%+1,255,cc%or16
  94. 3460 sysml+15,i,cx%,px%,cy%,py%
  95. 3462 return
  96. 3500 :
  97. 3502 : rem bload
  98. 3504 :
  99. 3506 readl,h,f$:x=l+h*256
  100. 3508 sys57812f$,d,0:poke780,0:poke781,l:poke782,h:sys65493
  101. 3510 return
  102. 9000 :
  103. 9002 : rem data
  104. 9004 :
  105. 9006 data 000, 008, f.awari
  106. 9008 data 064, 010, spr.awari
  107. 9010 data 000, 197, mouse2.1 jr c500
  108. 9012 data 000, 207, mouse mate cf00
  109. 9014 data 052, 003, z64 rtl
  110. 9016 data 000, 224, awarix.zml
  111. 9018 data 000, 027, awari.lst 2853f
  112. 9020 rem ---
  113. 9022 data 11,11,15,14,10, 12,0, 10,6, 6,2
  114. 9024 data 0,0,5,6, 1,7,12,13
  115. 9028 data 3,3,3,3,3,3,0, 3,3,3,3,3,3,0
  116. 9032 rem ---
  117. 9034 data 33,34,35,36,37,47,39,40
  118. 9036 data 64,34,35,36,35,36,39,40
  119. 9038 data 33,64,35,36,37,47,35,36
  120. 9040 data 33,34,35,36,37,47,39,40
  121. 9042 data "[219][208][221][204][193][217]","[219][209][221][213][201][212]"
  122. 9998 :
  123. 10000 d=8:f$="0:awari1":open1,d,15,"s"+f$:close1:savef$,d:end
  124.