home *** CD-ROM | disk | FTP | other *** search
/ Phoenix Heaven Sunny 2 / APPARE2.BIN / oh_towns / luck / src / luck486.bas < prev   
BASIC Source File  |  1995-06-20  |  26KB  |  643 lines
  1. 10 '［ＬＵＣＫＹ　ＧＡＭＥ  ＴＯＷＮＳ　ＳＰＥＣＩＡＬ］
  2. 20 '  ｐｒｏｇｒａｍｅｄ　ｂｙ　Ｔ．Ｍｉｔａｍｕｒａ
  3. 30 CLEAR ,,10096,430000
  4. 40 RANDOMIZE TIME
  5. 50 SCREEN 0:SCREEN @0
  6. 60 SCREEN @2:CLS
  7. 70 PALETTE
  8. 80 FOR I=0 TO 255:PALETTE I,[0,0,0]:NEXT
  9. 90 PALETTE 2,[255,255,255]
  10. 100 E$="ＷＡＩＴ　Ａ　ＭＯＭＥＮＴ．"
  11. 110 FOR I=1 TO LEN(E$) STEP 2
  12. 120 EE$=MID$(E$,I,2)
  13. 130 IF  EE$<>"　" THEN PLAY "@37O4C32"
  14. 140 WAIT 1
  15. 150 SYMBOL(190+I*8,360),EE$,1,1,%2,,,13
  16. 160 NEXT
  17. 170 DEF FNA(TGG)=INT(RND(1)*TGG)+1
  18. 180 DEF FNC(TGG)=INT(RND(1)*TGG)+1
  19. 190 DEF FNB(RX,RY)=POINT(RX,RY)
  20. 200 GOSUB *SE1
  21. 210 P$="T255O4L32V10"
  22. 220 PLAY "@25"+P$,P$,P$,P$,P$,P$,P$,P$,P$
  23. 230 OFT=48*24:OFT2=284*7:OFT3=96*24
  24. 240 PX=210:PY=40:MOUSE 0
  25. 250 LOAD@ "TITLE.TIF",(150,70)
  26. 260 SYMBOL(0,450),"『ＬＵＣＫＹ　ＧＡＭＥ』　ｆｏｒ　ＦＭ－ＴＯＷＮＳ．ＰＲＥＳＥＮＴＥＤ　ＢＹ　Ｔ．ＭＩＴＡＭＵＲＡ ＆ Ｏｈ！ＦＭＴＯＷＮＳ",.65!,.5!,%2
  27. 270 WAIT 20:PLAY "V15@41O4C1&C1&c1"
  28. 280 FOR J=1 TO 15
  29. 290 FOR I=0 TO 15:II=II+1
  30. 300 'BEEP 363523,1,II*2:'IF (I MOD 4)=0 THEN PLAY "@36O3A128"
  31. 310 PALETTE 160+I,[0,69+I*12,0]
  32. 320 PALETTE 176+I,[I*13,J*16,I*13]
  33. 330 NEXT
  34. 340 P1=P1+12:P2=P2+17
  35. 350 NEXT
  36. 360 PLAY "O7@44C8"
  37. 370 DIM A1%(32000),B1%(32000),C1%(32000),D1%(32000),UK%(12000),BL%(700)
  38. 380 DIM PM%(20000),FV%(12000),QN$(16),E1%(32000)
  39. 390 LOAD@ "E_DRUMS.PMB"
  40. 400 LOAD@ "FM_1.FMB"
  41. 410 LOAD@ "DAT_1.DAT",A1%
  42. 420 LOAD@ "DAT_2.DAT",B1%
  43. 430 LOAD@ "DAT_3.DAT",C1%
  44. 440 LOAD@ "DAT_4.DAT",D1%
  45. 450 LOAD@ "DAT_5.DAT",E1%
  46. 460 LOAD@ "FEVER.DAT",FV%
  47. 470 PLAY "@41O4C1V12":FOR J=160 TO 191:WAIT 2:PALETTE J,[0,0,0]:NEXT
  48. 480 LOAD@ "BGV.TIF",(0,0)
  49. 490 RESTORE *QDATA
  50. 500 FOR I=0 TO 15
  51. 510 READ QN$(I)
  52. 520 NEXT
  53. 530 GET@A(35,98)-(35+12,109),BL%
  54. 540 LINE(35,98)-(35+12,109),PSET,0,BF
  55. 550 GET@A(32,110)-(32+283,110+14),UK%
  56. 560 GET@A(32,439)-(607,463),PM%
  57. 570 'LINE(32,439)-(607,463),PSET,0,BF
  58. 580 'GET@A(32,110+204)-(32+283,110+204+14),UK%,OFT2*2
  59. 590 'PUT@A(132,110)-(132+283,110+14),UK%,PSET,1,1,,OFT2
  60. 600 RC=50:MSC=2000
  61. 610 AD(0)=0:AD(1)=0:AD(2)=1:AD(3)=1:AD(4)=2:AD(5)=2:AD(6)=3:AD(7)=3
  62. 620 'IF PTRIG(1)=0 THEN 330
  63. 630 *ALLSTART
  64. 640 SD=4:CPT=0:EDF=0:OO=0:FG=0:EEG=0:JP(D)=0:LX=1:LY=1:V1=1
  65. 650 FOR D=0 TO 7:BG(D)=0:HT(D)=0:GD(D)=0:ED(D)=0:MM(D)=0
  66. 660 IF CHT=1 THEN PALETTE 64+D,[80,80,0]
  67. 670 DX=-(D>3)*293:DY=D*102:IF D>3 THEN DY=(D-4)*102
  68. 680 BX=32+DX:BY=96+DY
  69. 690 LINE(BX,BY)-(BX+168,BY+14),PSET,0,BF
  70. 700 SX=83:SY=35
  71. 710 LINE(DX+SX,DY+SY-2)-(DX+SX+12*9+3,DY+SY+32+16+15),PSET,0,BF
  72. 720 'GOSUB *HATENA
  73. 730 A1(D)=7*SD:A2(D)=7*SD:IF D<2 THEN A1(D)=3*SD:A2(D)=3*SD
  74. 740 IF AD(D)=0 THEN SE(D)=13+FNA(8):PK(D)=8+FNA(15):LG(D)=18+FNA(10):SB(D)=8+FNA(8)
  75. 750 IF AD(D)=1 THEN SE(D)=22+FNA(10):PK(D)=10+FNA(10):LG(D)=13+FNA(6):SB(D)=8+FNA(15)
  76. 760 IF AD(D)=2 THEN SE(D)=17+FNA(10):PK(D)=18+FNA(10):LG(D)=15+FNA(12):SB(D)=11+FNA(8)
  77. 770 IF AD(D)=3 THEN SE(D)=15+FNA(10):PK(D)=15+FNA(15):LG(D)=13+FNA(12):SB(D)=10+FNA(8)
  78. 780 IF AD(D)=4 THEN SE(D)=19+FNA(10):PK(D)=60+FNA(15):LG(D)=13:SB(D)=7+FNA(8)
  79. 790 SB=0:GOSUB *SHIBA
  80. 800 IF FNA(4)=2 THEN MG(D)=1
  81. 810 GOSUB *CUP
  82. 820 GOSUB *APUT
  83. 830 NEXT
  84. 840 XX=1:IF CHT=1 THEN *WHAT
  85. 850 FOR J=0 TO 255 STEP 6
  86. 860 FOR I=0 TO 15
  87. 870 PALETTE 0,[J,J,J]
  88. 880 NEXT:NEXT
  89. 890 CHT=1:LOAD@ "PLT.TIF",(0,0):PLAY "O7@44C4":WAIT 20
  90. 900 *WHAT
  91. 901 WAIT 20
  92. 910 XX=0:OX=34+10*16:TS$="":PLAY "O2@25"
  93. 920 FOR D=0 TO 7
  94. 930 SC(D)=0
  95. 940 GD(D)=0
  96. 950 ED(D)=0
  97. 960 NEXT:GOSUB *SSC
  98. 970 LINE(32,439)-(607,463),PSET,0,BF
  99. 980 SYMBOL(34,442),"何人で遊びますか？（１２３４５６）[B]=説明 [SELECT]=変更 [RUN]=台解説",1,1,7
  100. 990 *W_ROOP
  101. 1000 LINE(OX,442)-(OX+15,442+15),XOR,7,BF
  102. 1010 IF PTRIG(1)=1 OR PTRIG(2)=1 OR MOUSE(2,0) THEN PLAY "O4C32":KZ=XX:GOTO *SELECT
  103. 1020 IF PTRIG(1)=8 THEN PLAY "O4C32":GOTO *OPT
  104. 1030 IF PTRIG(1)=4 THEN FOR D=0 TO 7:GOSUB *HATENA:NEXT
  105. 1040 IF PTRIG(1)=2 THEN *HATENA2
  106. 1050 IF PAD(1)=0 AND MOUSE(2,1)=0 THEN 1010
  107. 1060 PLAY "@25O3C32"
  108. 1070 IF (PAD(1)=3 OR PAD(2)=3) AND XX<>5 THEN XX=XX+1
  109. 1080 IF (PAD(1)=7 OR PAD(2)=7) AND XX<>0 THEN XX=XX-1
  110. 1090 IF MOUSE(2,1) THEN XX=XX+1:IF XX=6 THEN XX=0
  111. 1100 LINE(OX,442)-(OX+15,442+15),XOR,7,BF
  112. 1110 OX=34+(10+XX)*16
  113. 1120 WAIT 10
  114. 1130 GOTO *W_ROOP
  115. 1140 *HATENA2
  116. 1150 WAIT 10:LINE(32,439)-(607,463),PSET,0,BF
  117. 1160 A$="『ＬＵＣＫＹ　ＧＡＭＥ』一般ルール解説　［Ａ］＝次　［Ｂ］＝ＯＫ":GOSUB *HITKEY
  118. 1170 A$="穴の位置を確かめパワーメーターを見て、Ａボタンを押してください":GOSUB *HITKEY
  119. 1180 A$="マウスの左ボタンでもＯＫです。":GOSUB *HITKEY
  120. 1190 A$="上手く穴にボールが入るとデジタルが回転します。":GOSUB *HITKEY
  121. 1200 A$="ボールを１つ使うには、スコア２０点必要です。":GOSUB *HITKEY
  122. 1210 A$="ボールが入ると幾らかの得点が入ります。（台によって変わります。）":GOSUB *HITKEY
  123. 1220 A$="スコアが０点以下になるとチップが増加し、スコアが１００点加算されます":GOSUB *HITKEY
  124. 1230 A$="誰かのスコアが左上部に表示されているリミットに達するとゲーム終了です":GOSUB *HITKEY
  125. 1240 A$="ゲーム途中台変更は［Ｂ］ボタンです。（マウスの場合は右ボタン）":GOSUB *HITKEY
  126. 1250 A$="ゲーム途中台変更の時、チップが増えます。":GOSUB *HITKEY
  127. 1260 A$="モーニング狙いはチップレート分、その他の台は２０チップが増えます。":GOSUB *HITKEY
  128. 1270 A$="ゲーム途中強制終了は［ＳＥＬＥＣＴ］ボタンです。":GOSUB *HITKEY
  129. 1280 A$="３７・７３がでると、スーパーリーチのフラグが立ちます。":GOSUB *HITKEY
  130. 1290 A$="３７・７３がでると、チップが減ります。":GOSUB *HITKEY
  131. 1300 A$="４９・９４がでると、スコアが減り、チップが増えてしまいます。（全台）":GOSUB *HITKEY
  132. 1310 A$="７７がでると、１００％確率変動突入":GOSUB *HITKEY
  133. 1320 A$="３３がでると、３分の１で確率変動。３分の２でパンク":GOSUB *HITKEY
  134. 1330 A$="４４がでると、チップが２０増加し、確率変動が２分の１でパンク":GOSUB *HITKEY
  135. 1340 A$="９９がでると、確率変動が３分の１でパンク":GOSUB *HITKEY
  136. 1350 A$="台によって、多少状況が変わりますが、台説明をお読みください。":GOSUB *HITKEY
  137. 1360 A$="それでは、ＧＯＯＤ　ＬＵＣＫ！":GOSUB *HITKEY
  138. 1370 GOTO *WHAT
  139. 1380 *HITKEY
  140. 1390 LINE(32,439)-(607,463),PSET,0,BF
  141. 1400 SYMBOL(34,442),A$,1,1,7
  142. 1410 WAIT 8
  143. 1420 IF PTRIG(1)=1 THEN PLAY "O4C32":RETURN
  144. 1430 IF PTRIG(1)=2 THEN PLAY "O3C32":WAIT 30:RETURN *WHAT
  145. 1440 GOTO 1420
  146. 1450 *OPT
  147. 1460 WAIT 10:LINE(32,439)-(607,463),PSET,0,BF
  148. 1470 SYMBOL(34,442),"［Ａ］＝数値変更　［Ｂ］＝台変更",1,1,7
  149. 1480 IF PTRIG(1)=1 THEN *OPTC
  150. 1490 IF PTRIG(1)=2 THEN *DAIC
  151. 1500 GOTO 1480
  152. 1510 *DAIC
  153. 1520 XX=0:YY=0:LINE(32,439)-(607,463),PSET,0,BF:WAIT 2
  154. 1530 SYMBOL(34,442),"［Ａ］＝台変更　［ＲＵＮ］＝ＯＫ！",1,1,7
  155. 1540 DX=XX:DY=YY:WAIT 7
  156. 1550 *DAI_ROOP
  157. 1560 FG=0
  158. 1570 DX=XX:DY=YY
  159. 1580 LINE(32+DX*293,31+DY*102)-(32+DX*293+280,31+DY*102+96),XOR,2,BF
  160. 1590 IF PTRIG(1)=1 THEN PLAY "O4C32":FG=1
  161. 1600 IF PTRIG(1)=2 THEN PLAY "O4C32":FG=4
  162. 1610 IF PTRIG(1)=4 THEN PLAY "O3C32":FG=2
  163. 1620 IF PAD(1)=3 THEN XX=1:FG=3
  164. 1630 IF PAD(1)=7 THEN XX=0:FG=3
  165. 1640 IF PAD(1)=1 AND YY<>0 THEN YY=YY-1:FG=3
  166. 1650 IF PAD(1)=5 AND YY<>3 THEN YY=YY+1:FG=3
  167. 1660 IF FG=0 THEN 1590
  168. 1670 PLAY "O3C32"
  169. 1680 LINE(32+DX*293,31+DY*102)-(32+DX*293+280,31+DY*102+96),XOR,2,BF
  170. 1690 D=XX*4+YY
  171. 1700 IF FG=1 THEN AD(D)=AD(D)+1:IF AD(D)=5 THEN AD(D)=0
  172. 1710 IF FG=4 THEN AD(D)=AD(D)-1:IF AD(D)=-1 THEN AD(D)=4
  173. 1720 IF FG=1 OR FG=4 THEN GOSUB *APUT
  174. 1730 IF FG=2 THEN *ALLSTART
  175. 1740 WAIT 8
  176. 1750 GOTO *DAI_ROOP
  177. 1760 *OPTC
  178. 1770 WAIT 10:LINE(32,439)-(607,463),PSET,0,BF
  179. 1780 SYMBOL(34,442),"チップレート＝"+STR$(RC)+" パッド上下で選択  ＲＵＮ＝ＯＫ！",1,1,7
  180. 1790 IF PTRIG(1)=4 OR PTRIG(2)=4 THEN *OPTS
  181. 1800 IF PAD(1)=0 AND PAD(2)=0 THEN 1790
  182. 1810 PLAY "E"
  183. 1820 IF (PAD(1)=1 OR PAD(2)=1) AND RC<999 THEN RC=RC+10
  184. 1830 IF (PAD(1)=5 OR PAD(2)=5) AND RC>0 THEN RC=RC-10
  185. 1840 GOTO *OPTC
  186. 1850 *OPTS
  187. 1860 PLAY "CE"
  188. 1870 WAIT 30
  189. 1880 LINE(32,439)-(607,463),PSET,0,BF
  190. 1890 SYMBOL(34,442),"終了スコア＝"+STR$(MSC)+" パッド上下で選択  ＲＵＮ＝ＯＫ！",1,1,7
  191. 1900 IF PTRIG(1)=4 OR PTRIG(2)=4 THEN PLAY "CD":GOTO *WHAT
  192. 1910 IF PAD(1)=0 AND PAD(2)=0 THEN 1900
  193. 1920 PLAY "E"
  194. 1930 IF (PAD(1)=1 OR PAD(2)=1) AND MSC<9950 THEN MSC=MSC+500
  195. 1940 IF (PAD(1)=5 OR PAD(2)=5) AND MSC>500 THEN MSC=MSC-500
  196. 1950 GOTO *OPTS
  197. 1960 *SSC
  198. 1970 LINE(5,3)-(153,8+9),PSET,0,BF
  199. 1980 SYMBOL(5,3),"LIMIT="+STR$(MSC)+" RATE="+STR$(RC),.74!,.74!,7,,,1
  200. 1990 RETURN
  201. 2000 *QUIT
  202. 2010 LINE(32,439)-(607,463),PSET,0,BF
  203. 2020 TS$="チップ 台交換には２０（新台はﾚｰﾄ）"
  204. 2030 AR=0:D=N:CPT=1:OO=0
  205. 2040 GOSUB *KOJIN
  206. 2050 IF OO=0 THEN D=GD(N):RETURN *POWER
  207. 2060 CP(D)=CP(D)+AR:GOSUB *SC
  208. 2070 RETURN *KKKK
  209. 2080 *SELECT
  210. 2090 WAIT 10
  211. 2100 FOR D=0 TO KZ
  212. 2110 *KOJIN
  213. 2120 LINE(32,439)-(607,463),PSET,0,BF
  214. 2130 SYMBOL(34,442),"ＰＬＡＹＥＲ"+STR$(D+1)+"の台を選んでください。"+TS$,1,1,7
  215. 2140 WAIT 5
  216. 2150 IF CPT=0 THEN SC(D)=100:HT(D)=0:CP(D)=RC:ET(D)=0:HC(D)=0
  217. 2160 XX=0:YY=0:FG=0
  218. 2170 IF CPT=1 THEN XX=MX(N):YY=MY(N)
  219. 2180 *S_ROOP
  220. 2190 DX=XX:DY=YY
  221. 2200 LINE(32+DX*293,31+DY*102)-(32+DX*293+280,31+DY*102+96),XOR,2,BF
  222. 2210 IF (PTRIG(1)=1 OR MOUSE(2,0)) AND ED(XX*4+YY)=N+1 AND CPT=1 THEN PLAY "O4C32":OO=0:FG=1
  223. 2220 IF (PTRIG(1)=1 OR MOUSE(2,0)) AND ED(XX*4+YY)=0 THEN PLAY "O4C32":FG=1:OO=1
  224. 2230 IF (PTRIG(1)=2) THEN IF CPT=0 THEN PLAY "O3C32E32":FG=2 ELSE OO=0:FG=1
  225. 2240 IF PAD(1)=0 AND PAD(2)=0 AND MOUSE(2,1)=0 AND FG=0 THEN 2210
  226. 2250 PLAY "O3C32"
  227. 2260 IF PAD(1)=3 OR PAD(2)=3 THEN XX=1
  228. 2270 IF PAD(1)=7 OR PAD(2)=7 THEN XX=0
  229. 2280 IF (PAD(1)=1 OR PAD(2)=1) AND YY<>0 THEN YY=YY-1
  230. 2290 IF (PAD(1)=5 OR PAD(2)=5) AND YY<>3 THEN YY=YY+1
  231. 2300 IF MOUSE(2,1) THEN YY=YY+1:IF YY>3 THEN XX=-(XX=0):YY=0 
  232. 2310 LINE(32+DX*293,31+DY*102)-(32+DX*293+280,31+DY*102+96),XOR,2,BF
  233. 2320 WAIT 25
  234. 2330 IF FG=2 THEN *ALLSTART
  235. 2340 IF FG=0 THEN *S_ROOP
  236. 2350 IF CPT=1 AND OO=0 THEN RETURN
  237. 2360 IF CPT=1 THEN ED(MX(D)*4+MY(D))=0:GOSUB *CSC
  238. 2370 MX(D)=XX:MY(D)=YY
  239. 2380 GD(D)=XX*4+YY:ED(XX*4+YY)=D+1
  240. 2390 IF MM(GD(D))=0 THEN AR=RC ELSE AR=20
  241. 2400 MM((GD(D)))=1
  242. 2410 N=D:GOSUB *CSC:GOSUB *SCORE
  243. 2420 GOSUB *SC
  244. 2430 IF CPT=1 THEN RETURN
  245. 2440 NEXT
  246. 2450 WX=32+6*16:WY=439
  247. 2460 *MAIN
  248. 2470 IF EDF=1 THEN *ENDING
  249. 2480 FOR N=0 TO KZ
  250. 2490 *KKKK
  251. 2500 D=GD(N)
  252. 2510 CX=32+MX(N)*293:CY=98+MY(N)*102
  253. 2520 LINE(CX,CY)-(CX+280,CY+11),PSET,0,BF
  254. 2530 GOSUB *BL
  255. 2540 GOSUB *SHIBA:GOSUB *CUP
  256. 2550 IF FNA(SE(D))=4 THEN MG(D)=1
  257. 2560 IF FNA(20)=1 THEN MG(D)=1
  258. 2570 IF FNA(PK(D))<3 THEN MG(D)=0:JP(D)=0:BG(D)=0
  259. 2580 IF MG(D)=1 OR BG(D)=1 THEN JP(D)=1
  260. 2590 IF JP(D)=1 THEN IF FNA(7)<>2 THEN GOSUB *LGT
  261. 2600 IF FNA(PK(D))=2 AND FNA(20)=1 THEN GOSUB *LGT
  262. 2610 PALETTE 64+GD(N),[55,255,55]
  263. 2620 IF BG(D)=1 THEN PALETTE 64+GD(N),[185,185,20]
  264. 2630 *POWER
  265. 2640 PUT@A(32,439)-(607,463),PM%,PSET
  266. 2650 I$="":'LINE(32,439)-(607,463),PSET,2,BF,0
  267. 2660 'SYMBOL(34,442),"PLAYER"+STR$(N+1),1.2!,1.2!,%200,,,1
  268. 2670 'LINE(WX,439)-(607,463),PSET,0,BF:PW=0 
  269. 2680 PW=0:WW=4
  270. 2690 *P_ROOP
  271. 2700 LINE(88+PW*4,445)-(88+PW*4+3,457),XOR,2,BF
  272. 2710 IF PTRIG(1)=1 OR PTRIG(2)=1 OR MOUSE(2,0) THEN *MOVE
  273. 2720 IF PTRIG(1)=2 OR PTRIG(2)=2 OR MOUSE(2,1) THEN WAIT 20:GOSUB *QUIT
  274. 2730 IF PTRIG(1)=4 THEN *ENDING
  275. 2740 PW=PW+1
  276. 2750 BEEP 363523,4,400+PW*10
  277. 2760 WAIT 1
  278. 2770 IF PW>127 THEN PUT@A(32,439)-(607,463),PM%,PSET:PW=0 
  279. 2780 GOTO *P_ROOP
  280. 2790 *MOVE
  281. 2800 PLAY "o4@36c4","o4@37c4"
  282. 2810 PALETTE 64+GD(N),[50,50,0]
  283. 2820 SC(N)=SC(N)-20:D=N:GOSUB *SC
  284. 2830 PW=INT((PW*1.8!))+15:MP=PW
  285. 2840 *M_ROOP
  286. 2850 CX=CX+1
  287. 2860 GOSUB *BL
  288. 2870 PW=PW-1
  289. 2880 IF MP/10>PW THEN WAIT 1
  290. 2890 IF PW<1 THEN *HANTEI
  291. 2900 IF PW<1 THEN *SLOT
  292. 2910 IF PW MOD 2=0 THEN WAIT 1
  293. 2920 GOTO *M_ROOP
  294. 2930 *HANTEI
  295. 2940 CCK=0:GX=0:GY=0:FGA=0
  296. 2950 *H_ROOP
  297. 2960 IF FNB(CX,CY+12)=0 AND FNB(CX+12,CY+12)=0 THEN GY=1:GX=0:CCK=1
  298. 2970 IF FNB(CX,CY+12)=0 AND FNB(CX+12,CY+12) THEN GY=0:GX=-1
  299. 2980 IF FNB(CX,CY+12) AND FNB(CX+12,CY+12)=0 THEN GY=0:GX=1
  300. 2990 IF CCK=0 AND GX=0 AND GY=0 THEN WAIT 20:GOTO *END
  301. 3000 IF CCK=1 AND FNB(CX,CY+12) THEN *SLOT
  302. 3010 CX=CX+GX:CY=CY+GY
  303. 3020 GOSUB *BL:IF GY=0 THEN WAIT 1
  304. 3030 GOTO *H_ROOP
  305. 3040 *SLOT
  306. 3050 D=GD(N):PT=0:SDD=8:GOSUB *BAI:EDD=0:NM=1:EEG=0:EEG2=0:EEG3=0:EEG4=0:EEG5=0:EEG6=0:EEG7=0:EEG8=0:FV=0:TMC=3
  307. 3060 IF FGA=0 THEN PLAY "O3@70C.RCC8.","O2@39C.RCC8."
  308. 3070 P$="":P1$="":P2$=""
  309. 3080 IF PLAY(0) THEN 3080
  310. 3090 IF AD(D)=0 THEN PLAY "@75","@40":SDD=8:GOSUB *BAI:NM=-1
  311. 3100 IF AD(D)=1 THEN PLAY "@75","@75":SDD=8:GOSUB *BAI
  312. 3110 IF AD(D)=2 THEN PLAY "@49","@40":SDD=8:GOSUB *BAI:TMC=2
  313. 3120 IF AD(D)=3 THEN PLAY "@37","@40":NM=1:SDD=8:GOSUB *BAI:IF FNA(3)=1 THEN NM=1:IF FNA(20)=1 THEN PT=FNA(7)
  314. 3130 IF AD(D)=4 THEN PLAY "@41","@37":NM=1:SDD=4:GOSUB *BAI:TMC=1
  315. 3140 IF JP(D) THEN PT=FNA(14):IF AD(D)=3 THEN PT=FNA(9)
  316. 3150 IF PT=1 THEN SDD=2:GOSUB *BAI
  317. 3160 IF PT=2 THEN SDD=2:GOSUB *BAI:IF AD(D)<>2 THEN TMC=1
  318. 3170 IF PT=3 THEN SDD=16:GOSUB *BAI
  319. 3180 IF PT=10 THEN SDD=1:GOSUB *BAI
  320. 3190 IF PT=11 THEN SDD=2:GOSUB *BAI
  321. 3200 IF PT=4 THEN PLAY "@39","@40"
  322. 3210 IF PT=5 THEN NM=-1
  323. 3220 IF PT=10 THEN PLAY "@72","@40"
  324. 3230 IF PT=11 THEN PLAY "@43","@40"
  325. 3240 V1=(3+FNA(9))*SD:V2=(FNA(12)+7)*SD+V1
  326. 3250 IF AD(D)=2 AND PT=0 AND FNA(10)=1 THEN V2=V2+15*SD:IF FNA(3)=1 THEN EEG8=1
  327. 3260 IF FNA(15)=2 AND PT=0 AND AD(D)<>2 THEN V2=V2+(10+FNA(10))*SD:IF FNA(4)=1 THEN EEG8=1
  328. 3270 IF FNA(3)=1 AND (AD(D)=1) THEN V2=V2+(4+FNA(10))*SD:IF FNA(12)=1 THEN PT=FNA(6)
  329. 3280 IF PT=3 THEN V1=FNA(3)*SD:V2=V1
  330. 3290 'IF ad(d)=1 THEN V2=FNA(18)*SD
  331. 3300 IF PT=8 THEN V2=V1
  332. 3310 IF AD(D)=0 AND FNA(10)=1 THEN V2=V1
  333. 3320 IF FNA(25)=1 THEN V2=V1
  334. 3330 IF AD(D)=3 THEN V2=V2+14*SD
  335. 3340 *SL_ROOP
  336. 3350 IF V1>0 THEN P1$="C128" ELSE IF EEG3=0 THEN EEG3=1:P1$="@36C64" ELSE P1$=""
  337. 3360 IF V2>0 THEN P2$="E128"
  338. 3370 IF PT=6 AND SD=2 THEN P2$=""
  339. 3380 IF PT=3 THEN P1$="":P2$=""
  340. 3390 IF V1=0 AND (A1(D)=7*SD OR A1(D)=3*SD) AND AD(D)<>1 AND EEG7=0 THEN EEG7=1:IF FNA(3)=1 THEN V1=SD
  341. 3400 IF V1=0 AND (A1(D)/SD MOD 2)=0 AND (AD(D)=1) THEN V2=0:GOTO *S_END
  342. 3410 IF V1=0 AND (AD(D)=2) AND EEG5=0 THEN EEG5=1:SDD=4:GOSUB *BAI:V2=FNA(14)*SD:IF V2/SD>12 AND FNA(4)=1 THEN PT=6 
  343. 3420 IF V1=0 AND A1(D)=A2(D) AND AD(D)=3 AND EEG4=0 THEN EEG4=1:SDD=4:GOSUB *BAI:V2=FNA(15)*SD:T4=0:PLAY "O2@38","O2@25":IF V2/SD>13 AND FNA(2)=1 THEN V2=(12+FNA(3))*SD
  344. 3430 IF V1=0 AND A1(D)=A2(D) AND (PT=10 OR PT=11) THEN A2(D)=0
  345. 3440 IF V1=0 AND V2<12 AND PT=0 AND EDD=0 AND SD<=8 AND AD(D)<>3 THEN WAIT 13-V2
  346. 3450 IF NM=1 THEN GOSUB *KAITEN1 ELSE GOSUB *KAITEN2
  347. 3460 IF EEG4=1 AND (V2 MOD SD)=0 THEN IF T4<16 THEN P1$="v6@70L16"+QN$(T4)+"v10":P2$="@4L16"+QN$(T4):T4=T4+1:WAIT T4 ELSE P1$="":P2$=""
  348. 3470 IF V1=0 AND (AD(D)=2) AND PT=0 THEN IF (V2 MOD SD)=0 THEN P2$="@70O6L64C64R64d64r64d64r64E64R64":P1$="":WAIT 8 ELSE P1$="":P2$=""
  349. 3480 WAIT TMC
  350. 3490 GOSUB *APUT
  351. 3500 IF V1=0 AND V2=0 THEN EDD=1 ELSE EDD=0
  352. 3510 IF EDD=1 AND A1(D)=A2(D) THEN FV=1
  353. 3520 IF FNA(PK(D))=2 AND FV=0 AND EDD=1 THEN FV=1
  354. 3530 IF FNA(PK(D))<7 AND FV=0 AND EDD=1 AND (A1(D)/SD)=7 THEN FV=1
  355. 3540 IF EDD=1 AND PT=4 AND EEG=0 THEN NM=-NM:EEG=1
  356. 3550 IF EDD=1 AND PT=3 THEN SDD=4:GOSUB *BAI
  357. 3560 IF EDD=1 AND PT=7 THEN SDD=4:GOSUB *BAI
  358. 3570 IF EDD=1 AND PT AND EEG2=0 THEN EEG2=1:IF FNA(3)=1 THEN WAIT 20+FNA(35)
  359. 3580 IF EDD=1 AND PT>9 THEN SDD=2:GOSUB *BAI
  360. 3590 IF EDD=1 AND EEG8=1 THEN PT=9
  361. 3600 IF EDD=1 AND PT=9 THEN SDD=1:GOSUB *BAI
  362. 3610 IF EDD=1 AND PT=6 THEN EEG6=1:PLAY ,"@69o4C16e16":WAIT 12:SDD=2:GOSUB *BAI
  363. 3620 IF EDD=1 AND PT AND FV=1 AND FNA(6)=2 THEN FV=0
  364. 3630 IF EDD=1 AND PT AND FV=0 THEN V2=V2+1*SD:EDD=0
  365. 3640 IF EDD=1 THEN *S_END
  366. 3650 PLAY P1$,P2$:WAIT 1
  367. 3660 GOTO *SL_ROOP
  368. 3670 *APUT
  369. 3680 IF PT AND PT=8 THEN GOSUB *LLT
  370. 3690 IF AD(D)=0 THEN GOSUB *PUT
  371. 3700 IF AD(D)=1 THEN GOSUB *PUT2
  372. 3710 IF AD(D)=2 THEN GOSUB *PUT3
  373. 3720 IF AD(D)=3 THEN GOSUB *PUT4
  374. 3730 IF AD(D)=4 THEN GOSUB *PUT5
  375. 3740 RETURN
  376. 3750 *KAITEN1
  377. 3760 IF V1>0 THEN V1=V1-1:A1(D)=A1(D)+1:IF A1(D)=14*SD THEN A1(D)=0
  378. 3770 IF V2>0 THEN V2=V2-1:A2(D)=A2(D)+1:IF A2(D)=14*SD THEN A2(D)=0
  379. 3780 RETURN
  380. 3790 *KAITEN2
  381. 3800 IF V1>0 THEN IF A1(D)=0 THEN A1(D)=14*SD
  382. 3810 IF V1>0 THEN V1=V1-1:A1(D)=A1(D)-1
  383. 3820 IF V2>0 THEN IF A2(D)=0 THEN A2(D)=14*SD
  384. 3830 IF V2>0 THEN V2=V2-1:A2(D)=A2(D)-1
  385. 3840 RETURN
  386. 3850 *S_END
  387. 3860 BN=0:CC=0:BG=0:JP(D)=0:MG(D)=0
  388. 3870 PLAY "O4@4","O4@4"
  389. 3880 E1=A1(D)/SD:E2=A2(D)/SD
  390. 3890 IF E1<>E2 AND PT=0 AND (D<2 OR D>3) AND FNA(SE(D))=2 THEN D=GD(N):PT=9:GOTO *SL_ROOP
  391. 3900 IF AD(D)=0 THEN IF E1>0 AND E1<10 THEN E1=10-E1
  392. 3910 IF AD(D)=0 THEN IF E2>0 AND E2<10 THEN E2=10-E2
  393. 3920 IF AD(D)=0 THEN BN=E1+E2
  394. 3930 IF AD(D)=1 THEN BN=10
  395. 3940 IF AD(D)=2 THEN BN=10+E1
  396. 3950 IF AD(D)=3 THEN BN=10
  397. 3960 IF AD(D)=4 THEN BN=20
  398. 3970 IF E1=7 AND E2=7 THEN GOSUB *BN7
  399. 3980 IF E1=5 AND E2=5 AND (AD(D)=3) THEN IF FNA(2)=1 THEN BG=1:BG(D)=1:GOSUB *BN7 ELSE BG=0:BG(D)=0 
  400. 3990 IF E1=3 AND E2=3 THEN GOSUB *BN3:IF FNA(3)=1 THEN BG=1:BG(D)=1 ELSE BG(D)=0
  401. 4000 IF E1=E2 THEN FGA=1 ELSE FGA=0
  402. 4010 IF E1=E2 AND (E1 MOD 2)=0 AND (AD(D)=1) THEN FGA=0
  403. 4020 IF FGA=1 AND (AD(D)=1) THEN BG(D)=1:BG=1
  404. 4030 IF FGA=1 AND FNA(3)=1 THEN WAIT 12+FNA(30)
  405. 4040 IF FGA=1 THEN GOSUB *BONUS:GOSUB *FEVER:IF AD(D)<=1 OR AD(D)=1 THEN IF FNA(5)=2 THEN JP(D)=1
  406. 4050 IF E1=7 AND E2=3 THEN JP(D)=1:CC=-RC
  407. 4060 IF E1=3 AND E2=7 THEN JP(D)=1:CC=-RC
  408. 4070 IF E1=3 AND (E2=13 OR E2=7) AND (AD(D)=3) THEN JP(D)=FNA(2)-1:CC=-RC
  409. 4080 IF E1=7 AND (E2=13 OR E2=3) AND (AD(D)=3) THEN JP(D)=FNA(2)-1:CC=-RC
  410. 4090 IF E1=13 AND (E2=3 OR E2=7) AND (AD(D)=3) THEN JP(D)=FNA(2)-1:CC=-RC
  411. 4100 IF E1=4 AND E2=9 THEN JP(D)=0:CC=RC:BG(D)=0:SC(N)=SC(N)-100:IF AD(D)=3 THEN CC=RC*2
  412. 4110 IF E1=9 AND E2=4 THEN JP(D)=0:CC=RC:BG(D)=0:SC(N)=SC(N)-100:IF AD(D)=3 THEN CC=RC*2
  413. 4120 IF E1=4 AND E2=4 THEN JP(D)=0:CC=20:IF FNA(2)=1 THEN BG(D)=0
  414. 4130 IF E1=9 AND E2=9 THEN JP(D)=0:IF FNA(3)=1 THEN BG(D)=0
  415. 4140 IF E1=1 AND E2=11 AND (AD(D)=2) THEN BN=111:PLAY "O5C16E16"
  416. 4150 IF E1=11 AND E2=1 AND (AD(D)=2) THEN BN=111:PLAY "O5C16E16"
  417. 4160 IF E1=0 AND E2=0 AND FNA(3)=1 THEN JP(D)=1
  418. 4170 SDD=4:GOSUB *BAI
  419. 4180 D=N:MP=0:GOSUB *MES:SC(N)=SC(N)+BN:GOSUB *SC:WAIT 20
  420. 4190 IF FGA=1 AND FNC(SB(GD(N)))=2 AND FNA(2)=1 THEN D=GD(N):JP(D)=1:GOTO *SLOT
  421. 4200 IF FGA=1 AND AD(D)=4 AND FNC(4)=2 THEN D=GD(N):JP(D)=1:GOTO *SLOT
  422. 4210 IF CC THEN MP=1:GOSUB *MES:CP(N)=CP(N)+CC:WAIT 20:GOSUB *SC
  423. 4220 NEXT
  424. 4230 WAIT 30
  425. 4240 GOTO *MAIN
  426. 4250 *END
  427. 4260 MG(GD(N))=0:JP(GD(N))=0:BG(GD(N))=0
  428. 4270 NEXT
  429. 4280 GOTO *MAIN
  430. 4290 *BN7
  431. 4300 PLAY "C4C8C8C8.D4D8D8D8.","E4E8E8E8.F4F8F8F8."
  432. 4310 BN=BN+100:BG(D)=1:WAIT 20
  433. 4320 RETURN
  434. 4330 *BN3
  435. 4340 PLAY "C8D8E8D8E8F8","E8F8G8F8G8A8"
  436. 4350 RETURN
  437. 4360 *BONUS
  438. 4370 PLAY "E8E8E8.F8F8F8.>C2","G8G8G8.A8A8A8.>E2"
  439. 4380 IF AD(D)=0 THEN BN=BN+120+E1*10:IF FNA(20)=2 THEN BG(D)=0
  440. 4390 IF AD(D)=1 THEN BN=BN+300+FNA(3)*10
  441. 4400 IF AD(D)=2 THEN BN=BN+100+E1*10:IF E1=2 OR E1=4 OR E1=6 OR E1=8 THEN BG(D)=0
  442. 4410 IF AD(D)=3 THEN BN=BN+200
  443. 4420 IF AD(D)=4 THEN BN=BN+200
  444. 4430 'IF BG=1 AND (ad(d)=3) THEN BN=BN+200
  445. 4440 'IF BG=1 THEN BN=BN+50
  446. 4450 RETURN
  447. 4460 *BAI
  448. 4470 G1=A1(D)/SD:G2=A2(D)/SD
  449. 4480 A1(D)=G1*SDD:A2(D)=G2*SDD
  450. 4490 SD=SDD
  451. 4500 RETURN
  452. 4510 *PUT
  453. 4520 DX=-(D>3)*293:DY=D*102:IF D>3 THEN DY=(D-4)*102
  454. 4530 PUT@A(PX+DX   ,PY+DY)-(PX+47+DX   ,PY+DY+47),A1%,PSET,1,1,,OFT*A1(D)/SD
  455. 4540 PUT@A(PX+DX+48,PY+DY)-(PX+48+47+DX,PY+DY+47),A1%,PSET,LX,LY,,OFT*A2(D)/SD
  456. 4550 RETURN
  457. 4560 *PUT2
  458. 4570 DX=-(D>3)*293:DY=D*102:IF D>3 THEN DY=(D-4)*102
  459. 4580 PUT@A(PX+DX   ,PY+DY)-(PX+47+DX   ,PY+DY+47),B1%,PSET,1,1,,OFT*A1(D)/SD
  460. 4590 PUT@A(PX+DX+48,PY+DY)-(PX+48+47+DX,PY+DY+47),B1%,PSET,LX,LY,,OFT*A2(D)/SD
  461. 4600 RETURN
  462. 4610 *PUT3
  463. 4620 DX=-(D>3)*293:DY=D*102:IF D>3 THEN DY=(D-4)*102
  464. 4630 PUT@A(PX+DX   ,PY+DY)-(PX+47+DX   ,PY+DY+47),C1%,PSET,1,1,,OFT*A1(D)/SD
  465. 4640 PUT@A(PX+DX+48,PY+DY)-(PX+48+47+DX,PY+DY+47),C1%,PSET,LX,LY,,OFT*A2(D)/SD
  466. 4650 RETURN
  467. 4660 *PUT4
  468. 4670 DX=-(D>3)*293:DY=D*102:IF D>3 THEN DY=(D-4)*102
  469. 4680 PUT@A(PX+DX   ,PY+DY)-(PX+47+DX   ,PY+DY+47),D1%,PSET,1,1,,OFT*A1(D)/SD
  470. 4690 PUT@A(PX+DX+48,PY+DY)-(PX+48+47+DX,PY+DY+47),D1%,PSET,LX,LY,,OFT*A2(D)/SD
  471. 4700 RETURN
  472. 4710 *PUT5
  473. 4720 DX=-(D>3)*293:DY=D*102:IF D>3 THEN DY=(D-4)*102
  474. 4730 PUT@A(PX+DX   ,PY+DY)-(PX+47+DX   ,PY+DY+47),E1%,PSET,1,1,,OFT*A1(D)/SD
  475. 4740 PUT@A(PX+DX+48,PY+DY)-(PX+48+47+DX,PY+DY+47),E1%,PSET,LX,LY,,OFT*A2(D)/SD
  476. 4750 RETURN
  477. 4760 *LLT
  478. 4770 DX=-(D>3)*293:DY=D*102:IF D>3 THEN DY=(D-4)*102
  479. 4780 LINE(PX+DX   ,PY+DY)-(PX+47+DX   ,PY+DY+47),XOR,%128,BF
  480. 4790 LINE(PX+DX+48,PY+DY)-(PX+48+47+DX,PY+DY+47),XOR,%228,BF
  481. 4800 RETURN
  482. 4810 *FEVER
  483. 4820 DX=-(D>3)*293:DY=D*102:IF D>3 THEN DY=(D-4)*102
  484. 4830 ED=-(AD(D)=1)*1-(AD(D)=2)*2-(AD(D)=3)*3-(AD(D)=4)*4
  485. 4840 HT(D)=HT(D)+1
  486. 4850 FOR I=47 TO 0 STEP -1
  487. 4860 PUT@A(PX+DX   ,PY+DY+I)-(PX+48+47+DX   ,PY+DY+47),FV%,PSET,1,1,,OFT3*ED
  488. 4870 WAIT 2:IF BG=1 THEN WAIT 1
  489. 4880 NEXT:WAIT 70
  490. 4890 ON ED+1 GOSUB *PUT,*PUT2,*PUT3,*PUT4,*PUT5
  491. 4900 RETURN
  492. 4910 *SCORE
  493. 4920 SX=83:SY=35
  494. 4930 DX=MX(D)*293:DY=MY(D)*102
  495. 4940 SYMBOL(SX+DX,SY+DY),"ＰＬＡＹＥＲ"+STR$(D+1),1,1,5,,,13
  496. 4950 SYMBOL(SX+DX,SY+DY+16),"ＳＣＯＲＥ",.5!,1,6
  497. 4960 SYMBOL(SX+DX,SY+DY+32),"ＣＨＩＰ",.5!,1,7
  498. 4970 RETURN
  499. 4980 *HATENA
  500. 4990 SX=83:SY=35
  501. 5000 DX=-(D>3)*293:DY=D*102:IF D>3 THEN DY=(D-4)*102
  502. 5010 BX=32+DX:BY=83+DY
  503. 5020 IF AD(D)=0 THEN MS1$="デジ雀　賞球 平均１５点":MS2$="確率変動　７万・３万":MS3$="大":MS4$="約２００点":MS5$="パンク率は高めだが・・・"
  504. 5030 IF AD(D)=1 THEN MS1$="ボンバー　賞球 １０点":MS2$="チャンス　奇数・絵柄":MS3$="最大":MS4$="３００点":MS5$="最大の爆発台。一発台"
  505. 5040 IF AD(D)=2 THEN MS1$="デジケープ　賞球 出目合計":MS2$="確率変動　７・（３）":MS3$="小":MS4$="約２５０点":MS5$="変動後、22･44･66･88でパンク"
  506. 5050 IF AD(D)=3 THEN MS1$="デジスロ　賞球 １０点":MS2$="確率変動　赤7･(青7･蛙）":MS3$="中":MS4$="２００点":MS5$="期待のリーチ、多彩なボーナス"
  507. 5060 IF AD(D)=4 THEN MS1$="ラッキー　賞球 ２０点":MS2$="確率変動　７･(３）":MS3$="大":MS4$="２００点":MS5$="？？？？"
  508. 5070 SYMBOL(SX+DX,SY+DY),MS1$,.5!,1,5
  509. 5080 SYMBOL(SX+DX,SY+DY+32),MS2$,.5!,1,%72
  510. 5090 SYMBOL(SX+DX,SY+DY+16),"連チャン性･"+MS3$+" 出玉"+MS4$,.5!,1,%128
  511. 5100 SYMBOL(SX+DX,SY+DY+16+32),MS5$,.5!,1,%255
  512. 5110 RETURN
  513. 5120 *SC
  514. 5130 SX=83:SY=35
  515. 5140 DX=MX(D)*293:DY=MY(D)*102
  516. 5150 LINE(SX+DX+6*8,SY+DY+16)-(SX+DX+12*8,SY+DY+31),PSET,0,BF
  517. 5160 LINE(SX+DX+6*8,SY+DY+32)-(SX+DX+12*8,SY+DY+32+15),PSET,0,BF
  518. 5170 IF SC(D)<0 THEN SC(D)=SC(D)+100:CP(D)=CP(D)+RC
  519. 5180 IF CP(D)<0 THEN CP(D)=0
  520. 5190 SYMBOL(SX+DX+6*8,SY+DY+16),STR$(SC(D)),1,1,7,,,1
  521. 5200 SYMBOL(SX+DX+6*8,SY+DY+32),STR$(CP(D)),1,1,%129,,,1
  522. 5210 IF SC(D)=>MSC THEN EDF=1
  523. 5220 RETURN
  524. 5230 *CSC
  525. 5240 SX=83:SY=35
  526. 5250 DX=MX(N)*293:DY=MY(N)*102
  527. 5260 LINE(SX+DX,SY+DY-3)-(SX+DX+12*9+3,SY+DY+32+16+15),PSET,0,BF
  528. 5270 PALETTE 64+GD(N),[50,50,0]
  529. 5280 CX=32+MX(N)*293:CY=100+MY(N)*102
  530. 5290 LINE(CX,CY-1)-(CX+263,CY+9),PSET,0,BF
  531. 5300 RETURN
  532. 5310 *MES
  533. 5320 CX=32+MX(D)*293:CY=98+MY(D)*102
  534. 5330 LINE(CX,CY)-(CX+278,CY+11),PSET,0,BF
  535. 5340 IF MP=0 AND BN>90 THEN SYMBOL(CX,CY+2),"BONUS="+STR$(BN),2,.7!,6,,,13
  536. 5350 IF MP=1 AND CC>0 THEN PLAY "o3@4E4ccc","O3@25E4GEC":SYMBOL(CX,CY+2),"NO! CHIP="+STR$(CC),2,.7!,2,,,13
  537. 5360 IF MP=1 AND CC<0 THEN PLAY "o5@4ceceg","O4@25CECGB":SYMBOL(CX,CY+2),"OK! CHIP="+STR$(CC),2,.7!,5,,,13
  538. 5370 IF MP=3 THEN SYMBOL(CX,CY+2),"ＢＥＳＴ＝"+STR$(BT),2,.7!,7,,,13
  539. 5380 RETURN
  540. 5390 *SHIBA
  541. 5400 DX=-(D>3)*293:DY=D*102:IF D>3 THEN DY=(D-4)*102
  542. 5410 BX=32+DX:BY=110+DY
  543. 5420 PUT@A(BX,BY)-(BX+283,BY+14),UK%,PSET,1,1:',,OFT2*SB
  544. 5430 RETURN
  545. 5440 *CUP
  546. 5450 DX=-(D>3)*293:DY=D*102:IF D>3 THEN DY=(D-4)*102
  547. 5460 BX=DX+58+FNA(210):BY=110+DY
  548. 5470 LINE(BX,BY)-(BX+LG(D),BY+8),PSET,0,BF
  549. 5480 RETURN
  550. 5490 *LGT
  551. 5500 IF FNA(4)=3 THEN *LGT2
  552. 5510 IF FNA(4)=3 THEN *LGT6
  553. 5520 IF FNA(6)=2 THEN GOSUB *LGT3
  554. 5530 IF FNA(7)=4 THEN GOSUB *LGT4
  555. 5540 IF FNA(8)=4 THEN GOSUB *LGT5
  556. 5550 IF FNA(10)=4 THEN RETURN
  557. 5560 FOR I=0 TO 1+FNA(2)
  558. 5570 PALETTE 64+GD(N),[255,255,0]
  559. 5580 WAIT 5
  560. 5590 PALETTE 64+GD(N),[50,50,0]
  561. 5600 WAIT 5
  562. 5610 NEXT
  563. 5620 RETURN
  564. 5630 *LGT2
  565. 5640 D=N:FOR I=1 TO 6:GOSUB *SC:WAIT 2:GOSUB *SC:NEXT:D=GD(N)
  566. 5650 RETURN
  567. 5660 *LGT3
  568. 5670 DX=MX(N)*293:DY=MY(N)*102
  569. 5680 LINE(32+DX*293,31+DY*102)-(32+DX*293+280,31+DY*102+96),XOR,2,BF
  570. 5690 WAIT 12
  571. 5700 LINE(32+DX*293,31+DY*102)-(32+DX*293+280,31+DY*102+96),XOR,2,BF
  572. 5710 RETURN
  573. 5720 *LGT4
  574. 5730 FOR I=0 TO 255 STEP 2
  575. 5740 PALETTE 64+GD(N),[I,I,0]
  576. 5750 NEXT
  577. 5760 RETURN
  578. 5770 *LGT5
  579. 5780 PLAY "O5@65CCC"
  580. 5790 RETURN
  581. 5800 *LGT6
  582. 5810 DX=-(GD(N)>3)*293:DY=GD(N)*102:IF GD(N)>3 THEN DY=(GD(N)-4)*102
  583. 5820 LINE(PX+DX,PY+DY)-(PX+48+47+DX,PY+DY+47),XOR,%228,BF
  584. 5830 WAIT 3:LINE(PX+DX,PY+DY)-(PX+48+47+DX,PY+DY+47),XOR,%228,BF
  585. 5840 RETURN
  586. 5850 *BL
  587. 5860 'CX=32+MX(D)*293:CY=98+MY(D)*102
  588. 5870 PUT@A(CX,CY)-(CX+12,CY+11),BL%,PSET
  589. 5880 RETURN
  590. 5890 *SAMPLE
  591. 5900 RC=100:KZ=5:FOR N=0 TO KZ:MX(N)=0:MY(N)=N/2:CP(N)=100+N:SC(N)=INT(RND(1)*6)+1:NEXT
  592. 5910 *ENDING
  593. 5920 HC=0:HSC=0:HS=0:EN=0:ET=1
  594. 5930 *順位
  595. 5940 WHILE ET=<KZ+1
  596. 5950 FOR N=0 TO KZ
  597. 5960 IF HS=<SC(N) AND ET(N)=0 THEN HS=SC(N)
  598. 5970 NEXT
  599. 5980 FOR N=0 TO KZ
  600. 5990 IF HS=SC(N) AND ET(N)=0 THEN HS=0:ET(N)=ET:IF ET=1 THEN TP=N
  601. 6000 NEXT:ET=ET+1
  602. 6010 WEND
  603. 6020 FOR N=0 TO KZ
  604. 6030 IF ET(N)<>1 THEN HC(N)=-CP(N)-(ET(N)-2)*RC:AC=HC(N)
  605. 6040 IF ET(N)<>1 THEN HC(TP)=HC(TP)-AC
  606. 6050 NEXT
  607. 6060 FOR N=0 TO KZ
  608. 6070 CX=32+MX(N)*293:CY=98+MY(N)*102
  609. 6080 'LINE(CX,CY)-(CX+278,CY+14),PSET,0,BF
  610. 6090 IF ET(N)=1 THEN CL=6 ELSE CL=7
  611. 6100 PALETTE 64+GD(N),[255+(ET(N)<>1)*140,255-ET(N)*20,-(ET(N)<>1)*240]
  612. 6110 SYMBOL(CX+2,CY+2),"順位"+STR$(ET(N))+"位 チップ"+STR$(HC(N)),1.5!,1,%64+GD(N),,,13
  613. 6120 NEXT
  614. 6130 WAIT 30
  615. 6140 IF PTRIG(1)=8 THEN GOSUB *DDD
  616. 6150 IF PTRIG(1)<>2 THEN 6140
  617. 6160 FOR N=0 TO KZ
  618. 6170 GOSUB *CSC
  619. 6180 NEXT
  620. 6190 GOTO *ALLSTART
  621. 6200 *DDD
  622. 6210 FOR D=0 TO 7
  623. 6220 SX=83:SY=35
  624. 6230 DX=-(D>3)*293:DY=D*102:IF D>3 THEN DY=(D-4)*102
  625. 6240 LINE(DX+SX,DY+SY-2)-(DX+SX+12*9+3,DY+SY+32+16),PSET,0,BF
  626. 6250 'BX=32+DX:BY=96+DY
  627. 6260 'LINE(BX,BY)-(BX+168,BY+14),PSET,0,BF
  628. 6270 MS1$="フラグ確率 ":MS2$="パンク確率 ":MS4$="大当たり回数 ":MS3$="連チャン確率"
  629. 6280 SYMBOL(SX+DX,SY+DY),MS1$+"1/"+STR$(SE(D)),.7!,1,5,,,1
  630. 6290 SYMBOL(SX+DX,SY+DY+16),MS2$+"1/"+STR$(PK(D)),.7!,1,%72,,,1
  631. 6300 SYMBOL(SX+DX,SY+DY+32),MS3$+"1/"+STR$(SB(D)),.7!,1,%101,,,1
  632. 6310 SYMBOL(SX+DX,SY+DY+32+16),MS4$+STR$(HT(D)),.7!,1,%128,,,1
  633. 6320 NEXT
  634. 6330 RETURN
  635. 6340 *QDATA
  636. 6350 DATA "CDE","DEF","EFG","FGA","GAB","AB>C","<B>CD"
  637. 6360 DATA "CDE","DEF","EFG","FGA","GAB","AB>C","CCC","CCC","D4"
  638. 6370 *SE1
  639. 6380 P$="T200C16C16C4.R4g4b4a8a16a16A+8B8A8A+8B8>C8C+8"
  640. 6390 P1$="T200E16E16E4.R4E4E4E8E16E16F8E8E8F8E8>E8E8"
  641. 6400 PLAY "O4@13"+P$,"O4@12"+P$,"O4@12"+P1$,"O3@25"+P$,"O3@25"+P1$
  642. 6410 RETURN
  643.