home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 74 / 074.d81 / game2game2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  143 lines
  1. 10 goto8000
  2. 20 sw=w
  3. 30 sys49391(sw,c*255,w,d,x,y,l,h,0,0,t):return
  4. 50 a=fre(0):geta$:return
  5. 100 l=141-int(cos(m*(NULL)/6+(NULL)/2)*6+.9):h=28-int(sin(m*(NULL)/6+(NULL)/2)*8+.9):goto130
  6. 110 l=141-int(cos(n*(NULL)/6+(NULL)/2)*11+.9):h=28-int(sin(n*(NULL)/6+(NULL)/2)*15+.9)
  7. 130 sys49391(141,l,28,h,0,0,170+z*85,9-8*z,0,0,50317):return
  8. 200 z=1:gosub110:ifm=norn=11thengosub100
  9. 220 n=n+1:ifn=12thenn=0:m=m+1+(m=11)*12
  10. 240 z=0:gosub110:gosub100:ifn=0and(u=0andm=0)or(u=1andm=5)thena$="[136]":r=0:g=0
  11. 250 return
  12. 300 gosub450:gosub480:w=9:d=7:x=31:y=0:l=y:h=64:gosub20:m=8:n=11:gosub200:w=1
  13. 305 d=3:l=240:h=94:y=1:a=16-int(peek(8188)/2):forx=atoa+6+peek(8188):gosub20
  14. 310 next:w=peek(8188):d=1:x=a+3:y=2:l=20:h=154:g=0:gosub20
  15. 320 forj=0to9:a=10:x=1+j*4:gosub370
  16. 325 ifx=9orx=21thenw=1:l=248:x=x+3:gosub20:x=x-3
  17. 330 next:return
  18. 370 y=10:w=3:d=2:l=20324+60*a:goto900
  19. 380 a=10:c=0:gosub370:c=1:goto370
  20. 400 x=12+8*i+(i>2)*20:y=14-(i>2)*4:sw=11:w=7:d=4:l=80:h=69:gosub30:l=18924+280*i
  21. 410 goto900
  22. 420 d=2:y=10:l=170:h=154:t=49328:gosub20:t=49152:z=1:fora=1to15+s*5+(s=2)*20
  23. 430 c=0:gosub20:c=1:gosub20:gosub990:next:return
  24. 450 w=11:d=11:x=0:y=14:l=50:h=69:gosub20
  25. 460 w=11:d=11:x=0:y=14:l=50:h=69:t=49908:gosub20:sw=11:w=1:t=49152:d=10
  26. 470 forx=11to28:gosub30:next:w=11:d=11:gosub20:t=49908:gosub20:t=49152:return
  27. 480 w=10:d=7:x=0:y=13:l=118:h=66:goto20
  28. 500 w=1:d=w:y=int((c(k)-1)/3):x=c(k)-y*3+3:y=y+15:l=12:h=82:ifc(k)=0theny=18:x=5
  29. 510 gosub20:poke54273,30+c(k)*5:poke54276,33:z=1:gosub990:poke54276,0:goto480
  30. 550 w=18:d=1:l=36:h=118:goto20
  31. 580 z=.1:fork=1to20:poke54273,200:poke54276,33:gosub990:poke54276,17:gosub990
  32. 590 next:poke54276,0:return
  33. 600 w=21:d=19:x=18:y=2:l=180:h=94:goto20
  34. 650 gosub700:w=15:d=21:x=1:y=2:l=22:h=82:gosub20:w=6-int(peek(8188)/2):d=1:x=2
  35. 655 y=0:l=240:h=94:gosub20:x=x+w:w=w+peek(8188):l=20:h=154:gosub20
  36. 660 w=2:d=4:x=16:y=7:l=100:h=94:gosub20:goto600
  37. 700 sys49744:print"[147]":poke53281,3:poke53280,3:return
  38. 750 x=24:y=5
  39. 760 w=13:d=1:l=126:h=153:gosub20:l=74:h=110:x=x+peek(8187):w=1:goto20
  40. 800 poke198,0
  41. 810 gosub50:ifa$<>" "then810
  42. 820 return
  43. 900 gosub910:goto20
  44. 910 h=int(l/256):l=l-h*256:return
  45. 950 w=15:d=1:l=84:h=110:goto20
  46. 990 fordd=1to100*z:next:return
  47. 1000 gosub700:gosub300
  48. 1005 w=21:d=5:x=12:y=15:l=234:h=110:gosub20:x=11:y=24:gosub550:poke198,0
  49. 1020 gosub50:ifa$<>"1"anda$<>"2"then1020
  50. 1030 u=val(a$)-1:gosub460:w=20:d=4:x=12:y=16:l=4:h=115:gosub20:poke198,0
  51. 1040 gosub50:ifa$<>"1"anda$<>"2"anda$<>"3"then1040
  52. 1050 v=val(a$)-1:gosub460:w=18:d=1:x=11:y=24:c=0:gosub20:c=1
  53. 1100 fori=0to4:gosub400:next
  54. 1110 r=1:gosub5000:ifa$(0)=""andv=2thengosub460:goto1005
  55. 1111 fori=0to4:gosub320:poke54273,100:poke54276,33:x=12+8*i+(i>2)*20:l=80:h=69
  56. 1113 sw=11:w=7:d=4:y=14-(i>2)*4:gosub30:z=1:gosub990:poke54276,0:gosub400
  57. 1115 forj=0tob(i):a=a(i,j):x=37-(b(i)-j)*4:gosub370
  58. 1120 next:w=j*4-1:x=40-w:gosub420:gosub320:w=20:d=1:x=10:y=24:l=216:h=118
  59. 1130 gosub20:s=0:w=20:d=1:x=10:y=24:l=216:h=118:gosub20:gosub200
  60. 1132 forj=0tob(i):c(j)=-1:next:gosub320:g=1:poke198,0
  61. 1135 forj=0tob(i)
  62. 1137 x=37-(b(i)-j)*4:ifc(j)<>-1then1170
  63. 1140 gosub50:g=g+1:ifg=int(g/15)*15thengosub200
  64. 1145 ifa$=""thengosub380:goto1140
  65. 1147 ifa$="[136]"thenj=10:i=5:goto1170
  66. 1148 ifa$="_"thenc(j)=-1:a=10:gosub370:j=j-1-(j=0):c(j)=-1:goto1137
  67. 1150 ifa$<"0"ora$>"9"thengosub380:goto1140
  68. 1160 a=val(a$):gosub370:c(j)=a
  69. 1170 next:ifj=11then1300
  70. 1180 gosub50:g=g+1:ifg=int(g/120)*120thengosub200
  71. 1185 ifa$="[136]"theni=5:goto1300
  72. 1186 ifa$="_"thenc(b(i))=-1:a=10:gosub370:goto1135
  73. 1187 ifa$<>chr$(13)then1180
  74. 1200 s=s+1:q=1:fork=0tob(i):gosub500:ifc(k)<>a(i,k)thenq=0
  75. 1210 next:ifq=0then1230
  76. 1215 gosub580:sw=11:w=7:d=4:l=80:h=69:x=12+8*i+(i>2)*20:y=14-(i>2)*4:gosub30
  77. 1220 fork=1to15:poke54273,20+7*k:poke54276,33:next:poke54276,0:goto1300
  78. 1230 ifs=3thenr=0:goto1260
  79. 1233 ifs=2then1250
  80. 1245 gosub320:forj=0tob(i):x=37-(b(i)-j)*4:a=a(i,j):gosub370:c(j)=-1:next
  81. 1247 w=j*4-1:x=40-w:gosub420:gosub320:goto1135
  82. 1250 forj=0tob(i):w=3:forj=0tob(i):ifc(j)=a(i,j)then1255
  83. 1253 x=37-(b(i)-j)*4:a=a(i,j):gosub370:gosub420:c(j)=-1
  84. 1255 next:forj=0tob(i):ifc(j)=-1thena=10:x=37-(b(i)-j)*4:gosub370
  85. 1257 next:goto1135
  86. 1260 gosub320:forj=0tob(i):a=a(i,j):x=37-(b(i)-j)*4:gosub370:next
  87. 1265 w=20:d=1:x=10:y=24:l=84:h=110:c=0:gosub20:w=15:x=12:c=1:gosub20:poke198,0
  88. 1270 gosub50:g=g+1:ifg=int(g/120)*120thengosub200
  89. 1275 ifa$="[136]"theni=5:goto1300
  90. 1277 ifa$<>" "then1270
  91. 1278 c=0:gosub20:c=1
  92. 1300 next:ifi=5then1350
  93. 1305 ifg>0then1400
  94. 1310 poke54273,70:forz=1to100:poke54276,33:poke54276,17:next:goto1380
  95. 1350 ifr=0then1380
  96. 1355 rr=rr+r:w=27:d=3:x=3:y=6:l=160:h=119:gosub20:x=6:y=7:gosub760:a$=str$(rr)
  97. 1360 w=1:d=1:y=8:x=24:fork=2tolen(a$):l=36988+10*val(mid$(a$,k,1)):gosub900
  98. 1370 x=x+1:next:l=74:h=110:gosub20:l=124:h=144:fork=1to3:x=x+1:gosub20:next
  99. 1380 poke54276,0:w=20:d=1:x=10:y=24:c=0:gosub20
  100. 1390 c=1:x=12:y=24:gosub950:gosub800
  101. 1400 gosub650
  102. 1410 ifr=0thenw=21:d=6:x=18:y=5:l=0:h=197:gosub20:x=21:y=23:gosub950:gosub800
  103. 1420 gosub600:w=19:d=13:x=19:y=5:l=202:h=122:gosub20
  104. 1425 gosub750:x=19:y=23:gosub550:poke198,0
  105. 1430 gosub50:ifa$=""then1430
  106. 1440 ifa$<"1"ora$>"5"then1430
  107. 1450 onval(a$)goto1470,1500,1000,1460,2000
  108. 1460 gosub700:gosub300:goto1100
  109. 1470 gosub600:w=20:d=8:x=19:y=6:l=46:h=133:gosub20:poke198,0
  110. 1480 gosub50:ifa$="4"then1420
  111. 1485 ifa$<"1"ora$>"3"then1480
  112. 1490 gosub700:gosub300:goto1050
  113. 1500 gosub600:w=21:d=6:x=18:y=6:l=144:h=139:gosub20:poke198,0
  114. 1505 gosub50:ifa$="1"thenu=0:goto1460
  115. 1510 ifa$="2"thenu=1:goto1460
  116. 1520 ifa$<>"3"then1505
  117. 1530 goto1420
  118. 2000 f$="pic4":sl=62:sh=142:gosub9900
  119. 2005 gosub600:w=20:d=5:x=19:y=7:l=62:h=142:gosub20:w=18:d=3:x=20:y=14:l=38:h=146
  120. 2007 gosub20:c=0:x=19:y=23:gosub550
  121. 2010 goto2010
  122. 5000 a$(0)="":ifv=2then5030
  123. 5010 forx=0to4:fory=0to9:a(x,y)=int(rnd(1)*(10+2*(y=0)))-2*(y=0):next:next
  124. 5020 forx=0to4:b(x)=v*9-(v=0)*(int(rnd(1)*2)*3+3):next:return
  125. 5030 open2,8,0,"0:no":fork=0to4:input#2,a$(k):next:close2:ifa$(0)=""then5060
  126. 5040 forx=0to4:b(x)=len(a$(x))-1:fory=0tob(x):a(x,y)=val(mid$(a$(x),y+1,1)):next
  127. 5050 next:return
  128. 5060 gosub460:l=224:h=144:w=23:d=6:x=12:y=15:gosub20:poke198,0
  129. 5070 gosub50:ifa$="[133]"thenpoke8189,1:goto10000
  130. 5080 ifa$<>chr$(13)then5070
  131. 5090 return
  132. 8000 dima(4,9),b(4),c(9),a$(4):c=1:t=49152
  133. 8010 f$="pic3":sl=234:sh=110:gosub9900:goto1000
  134. 9900 poke251,len(f$):poke252,sl:poke253,sh:fori=1tolen(f$)
  135. 9910 poke678+i,asc(mid$(f$,i,1)):next:sys49709:return
  136. 10000 sys49799:print"[147]":poke53281,14:poke53280,14
  137. 10010 print"[147]            program loading[154]"
  138. 10020 print"";:fori=1104to1121:reada:poke54272+i,14:pokei,a:next
  139. 10030 fori=1304to1306:reada:poke54272+i,14:pokei,a:next
  140. 10040 poke198,2:poke631,13:poke632,13:new:end
  141. 10050 data12,15,1,4,34,7,1,13,5,49,7,1,13,5,49,34,44,56
  142. 10060 data18,21,14
  143.