home *** CD-ROM | disk | FTP | other *** search
/ Phoenix Heaven Sunny 2 / APPARE2.BIN / tiff / ending / ending2.bas < prev    next >
BASIC Source File  |  1995-06-20  |  9KB  |  284 lines
  1. 10000 SCREEN 0:SCREEN@ 2
  2. 10010 DRG$="..\tiff\ending\"
  3. 10020 'DRS$="..\tif\ending\"
  4. 10030 DRSND$="..\snd\ending\"
  5. 10040 RANDOMIZE TIME
  6. 10050 CLS:PLAY STOP
  7. 10060 'PALETTE 7,[128,128,128]
  8. 10070 DIM PX(13),PY(13),SX1(7),SY1(7),SX2(7),SY2(7)
  9. 10080 DIM G%(308000/2),G1%(20000),S%(343634/2),BUT%(6000)
  10. 10090 '--------------------------------------
  11. 10100 'DIM G1%(7600*21)
  12. 10110 'FOR I=1 TO 21
  13. 10120  'X1$=STR$(I+100)
  14. 10130  'X$="ANImam25\ANImam"+RIGHT$(X1$,2)
  15. 10140  'LOAD@ DRG$+X$+".tif"
  16. 10150  'GET@A(160,287)-(343,368),G1%,7600*(I-1)
  17. 10160  'PUT@A(360,287)-(543,368),G1%,,,,,7600*(I-1)
  18. 10170 'NEXT I
  19. 10180 'KILL DRS$+"animam.pat"
  20. 10190 'SAVE@ DRS$+"animam.PAT",G1%
  21. 10200 'END 
  22. 10210  'LOAD@ DRG$+"ed2\butrev.tif"
  23. 10220  'LOAD@ DRG$+"butrev.pat",BUT%
  24. 10230  'GET@A(0,0)-(180,60),BUT%
  25. 10240  'KILL DRG$+"butrev.pat"
  26. 10250  'SAVE@ DRG$+"butrev.pat",BUT%
  27. 10260  'PUT@A (200,0)-(380,60),BUT%
  28. 10270 'END 
  29. 10280 '--------------------------------------
  30. 10290 MOUSE 0
  31. 10300 LOAD@ DRG$+"BUTREV.PAT",BUT%
  32. 10310 LOAD@ DRG$+"ED2\KAT01A.TIF"
  33. 10320 'LOAD@ DRG$+"ED2\OKATAZUK.TIF",(0,410)
  34. 10330 LOAD@ DRG$+"ED2\KAT01AC.TIF"
  35. 10340 LOAD@ DRSND$+"MANERU02.SND",S%
  36. 10350 'LOAD@ DRG$+"ED2\OKATAZUK.TIF",(0,410)
  37. 10360 PCMPLAY S%:WAIT 700
  38. 10370 LOAD@ DRG$+"ED2\KAT01A.TIF"
  39. 10380 LOAD@ DRG$+"ED2\OKATAZUK.TIF",(0,410)
  40. 10390 GOSUB *KATAZUKE
  41. 10400 GOSUB *ENDING
  42. 10410 GOSUB *HANTEI
  43. 10420 'GOSUB *EVENT
  44. 10430 'GOSUB *MAMA
  45. 10440 'GOSUB *CAR
  46. 10450 'GOSUB *POST
  47. 10460 'GOSUB *MENU1
  48. 10470 'GOSUB *MENU2
  49. 10480 END
  50. 10490 '======= KATAZUKE =======
  51. 10500 *KATAZUKE
  52. 10510 'SW1=-1:SW2=-1:X=0:Y=0:SEL=-1:SNSW=0
  53. 10520 LOAD@ DRG$+"KAT01B.PUT",G%:'GET@A(0,0)-(639,379),G%:SAVE@ DRG$+"KAT01B.PUT",G%
  54. 10530 'LOAD@ DRG$+"ed2\KAT01B.tif":GET@A(0,0)-(639,379),G%:SAVE@ DRG$+"KAT01B.PUT",G%
  55. 10540 'LOAD@ DRG$+"KAT01B.PUT",G%
  56. 10550 FOR I=0 TO 4:KATAZU(I)=0:NEXT I
  57. 10560 SX1(0)=24:SY1(0)=133:SX2(0)=85:SY2(0)=213:'TV
  58. 10570 SX1(1)=140:SY1(1)=296:SX2(1)=221:SY2(1)=326:'BOOK
  59. 10580 SX1(2)=76:SY1(2)=347:SX2(2)=147:SY2(2)=379:'TRASH
  60. 10590 SX1(3)=232:SY1(3)=303:SX2(3)=397:SY2(3)=375:'BLOCK
  61. 10600 SX1(4)=405:SY1(4)=196:SX2(4)=492:SY2(4)=334:'CHAIR
  62. 10610 SX1(5)=103:SY1(5)=165:SX2(5)=306:SY2(5)=254:'BED
  63. 10620 SX1(6)=461:SY1(6)=419:SX2(6)=528:SY2(6)=460:'tokei
  64. 10630 SX1(7)=552:SY1(7)=419:SX2(7)=619:SY2(7)=460:'owaru
  65. 10640 'moto no ichi
  66. 10650 ZX1(0)=24:ZY1(0)=133:ZX2(0)=85:ZY2(0)=213:'TV
  67. 10660 ZX1(1)=538:ZY1(1)=171:ZX2(1)=584:ZY2(1)=216:'BOOK
  68. 10670 ZX1(2)=520:ZY1(2)=280:ZX2(2)=584:ZY2(2)=305:'TRASH
  69. 10680 ZX1(3)=314:ZY1(3)=189:ZX2(3)=400:ZY2(3)=251:'BLOCK
  70. 10690 ZX1(4)=404:ZY1(4)=174:ZX2(4)=495:ZY2(4)=334:'CHAIR
  71. 10700 ZX1(5)=103:ZY1(5)=165:ZX2(5)=306:ZY2(5)=254:'BED
  72. 10710 *NX1_KATA:IF PLAY(2)<>0 THEN *NX1_KATA
  73. 10720 SEITON=0:BET=0
  74. 10730 MOUSE 1,320,240,1
  75. 10740 WHILE BET=0
  76. 10750   X=MOUSE(0):Y=MOUSE(1)
  77. 10760   WHILE MOUSE(2,0)=0
  78. 10770     IF SNSW=0 THEN LOAD@ DRSND$+"mekuri.SND",S%:SNSW=1
  79. 10780     IF PLAY(2)=0 THEN PCMPLAY S%
  80. 10790   WEND
  81. 10800   X=MOUSE(0):Y=MOUSE(1)
  82. 10810   SEL=-1:SW1=-1
  83. 10820   FOR I=0 TO 7
  84. 10830    IF X>SX1(I) AND X<SX2(I) AND Y>SY1(I) AND Y<SY2(I) THEN SW1=I:I=5
  85. 10840   NEXT I
  86. 10850   IF SW1=(-1) THEN *NX2_KATA
  87. 10860   IF SW1=5 AND SEITON>2 THEN
  88. 10870      BET=(-1):PLAY OFF:LOAD@ DRSND$+"CRICK.SND",S%:PCMPLAY S%:GOTO *NX2_KATA
  89. 10880   ENDIF
  90. 10890   IF SW1=5 THEN *NX2_KATA
  91. 10900   IF SW1=6 THEN 
  92. 10910     PLAY OFF
  93. 10920     LOAD@ DRSND$+"CRICK.SND",S%
  94. 10930     PCMPLAY S%
  95. 10940     JOB=1:GOTO *SHORI
  96. 10950   ENDIF
  97. 10960   IF SW1=7 THEN 
  98. 10970     PLAY OFF
  99. 10980     LOAD@ DRSND$+"CRICK.SND",S%
  100. 10990     PCMPLAY S%
  101. 11000     JOB=2:GOTO *SHORI
  102. 11010   ENDIF
  103. 11020   IF KATAZU(SW1)=0 THEN SEL=SW1
  104. 11030   IF SEL>=0 THEN
  105. 11040     SEITON=SEITON+1
  106. 11050     PLAY OFF
  107. 11060     LOAD@ DRSND$+"CRICK.SND",S%
  108. 11070     KATAZU(SEL)=1:SNSW=0
  109. 11080     PCMPLAY S%
  110. 11090     GOSUB *MOVE
  111. 11100   ENDIF
  112. 11110   *NX2_KATA
  113. 11120 WEND
  114. 11130 '
  115. 11140 'WHILE MOUSE(2,0)=0:WEND
  116. 11150 RETURN
  117. 11160 '===== MOVE =====
  118. 11170 *MOVE
  119. 11180 K&=INT(ZY1(SEL)*320+ZX1(SEL)/2)
  120. 11190 FOR YY=ZY1(SEL) TO ZY2(SEL)
  121. 11200   PUT@A(ZX1(SEL),YY)-(ZX2(SEL),YY),G%,,,,,K&:K&=K&+320 
  122. 11210 NEXT YY
  123. 11220 '
  124. 11230 K&=INT(SY1(SEL)*320+SX1(SEL)/2)
  125. 11240 FOR YY=SY1(SEL) TO SY2(SEL)
  126. 11250   PUT@A(SX1(SEL),YY)-(SX2(SEL),YY),G%,,,,,K&:K&=K&+320 
  127. 11260 NEXT YY
  128. 11270 RETURN
  129. 11280 '===== ENDING =====
  130. 11290 *ENDING
  131. 11300 WAIT 200
  132. 11310 LOAD@ DRSND$+"b12.snd",S%
  133. 11320 PCMPLAY S%
  134. 11330 LOAD@ DRG$+"ed2\KAT01D.tif"
  135. 11340 WAIT 400
  136. 11350 LOAD@ DRG$+"ED2\OYASUMI.TIF",(0,410)
  137. 11360 LOAD@ DRSND$+"a28.snd",S%
  138. 11370 PCMPLAY S%
  139. 11380 LOAD@ DRG$+"ED1\ED1.tif"
  140. 11390 '*NX2_ENDING:IF PLAY(2)<>0 THEN *NX2_ENDING
  141. 11400 WAIT 500
  142. 11410 LOAD@ DRG$+"ED3\ED3.tif"
  143. 11420 WAIT 500
  144. 11430 LOAD@ DRG$+"ED4\ED4.TIF"
  145. 11440 RETURN
  146. 11450 '===== HANTEI =====
  147. 11460 *HANTEI
  148. 11470 SEISEKI=0
  149. 11480 IF SEISEKI<=1 THEN
  150. 11490   LOAD@ DRG$+"ED4\ENDMAI01.TIF"
  151. 11500   LOAD@ DRSND$+"MANERU03.SND",S%
  152. 11510   PLAY OFF:PCMPLAY S%
  153. 11520   *NX1_HANTEI:IF PLAY(2)<>0 THEN *NX1_HANTEI
  154. 11530 ENDIF
  155. 11540 IF SEISEKI>=2 AND SEISEKI<=10 THEN
  156. 11550   LOAD@ DRG$+"ED4\ENDMAI02.TIF"
  157. 11560   LOAD@ DRSND$+"MANERU04.SND",S%
  158. 11570   PLAY OFF:PCMPLAY S%
  159. 11580   *NX2_HANTEI:IF PLAY(2)<>0 THEN *NX2_HANTEI
  160. 11590 ENDIF
  161. 11600 IF SEISEKI>=11 THEN
  162. 11610   LOAD@ DRG$+"ED4\ENDMAI03.TIF"
  163. 11620   LOAD@ DRSND$+"MANERU05.SND",S%
  164. 11630   PLAY OFF:PCMPLAY S%
  165. 11640   *NX3_HANTEI:IF PLAY(2)<>0 THEN *NX3_HANTEI
  166. 11650 ENDIF
  167. 11660 RETURN
  168. 11670 '===== action =====
  169. 11680 *CAR_ACT:
  170. 11690 LOAD@ DRSND$+"B02.SND",S%
  171. 11700 IF PLAY(2)=0 THEN PCMPLAY S%
  172. 11710 RETURN
  173. 11720 *POST_ACT:
  174. 11730 LOAD@ DRSND$+"B41.SND",S%
  175. 11740 IF PLAY(2)=0 THEN PCMPLAY S%:GOSUB *POST
  176. 11750 RETURN
  177. 11760 *DOG_ACT:
  178. 11770 LOAD@ DRSND$+"B42.SND",S%
  179. 11780 IF PLAY(2)=0 THEN
  180. 11790   PCMPLAY S%
  181. 11800   FOR I=1 TO 7
  182. 11810     PUT@A(506,308)-(610,386),G%,,,,,6400*(I-1):WAIT 5
  183. 11820   NEXT I
  184. 11830 ENDIF
  185. 11840 RETURN
  186. 11850 '===== yoake mae =====
  187. 11860 *YOAKEMAE
  188. 11870 LOAD@ DRG$+"op3\asa5.TIF":WAIT 300
  189. 11880 RETURN
  190. 11890 '======= CAR =======
  191. 11900 *CAR
  192. 11910 LOAD@ DRSND$+"B03.SND",S%
  193. 11920 IF PLAY(2)=0 THEN PCMPLAY S%
  194. 11930 LOAD@ DRG$+"anicar.pat",G%
  195. 11940 FOR I=1 TO 6
  196. 11950  PUT@A(0,283)-(191,464),G%,,,,,18000*(I-1):WAIT 50
  197. 11960 NEXT I
  198. 11970 *NX1_CAR:IF PLAY(2)<>0 THEN *NX1_CAR
  199. 11980 RETURN
  200. 11990 '======= MAMA =======
  201. 12000 *MAMA
  202. 12010 LOAD@ DRSND$+"B01.SND",S%
  203. 12020 IF PLAY(2)=0 THEN PCMPLAY S%
  204. 12030 LOAD@ DRG$+"animam.pat",G%
  205. 12040 FOR I=3 TO 21
  206. 12050  PUT@A(160,287)-(343,368),G%,,,,,7600*(I-1):WAIT 20
  207. 12060 NEXT I
  208. 12070  PUT@A(160,287)-(343,368),G%
  209. 12080 WAIT 200
  210. 12090 RETURN
  211. 12100 '======= POST =======
  212. 12110 *POST
  213. 12120 FOR I=1 TO 24
  214. 12130  X1$=STR$(I):X2$="0"+RIGHT$(X1$,LEN(X1$)-1)
  215. 12140  X$="ANIPOS25\ANIPOS"+RIGHT$(X2$,2)
  216. 12150  LOAD@ DRG$+X$+".tif"
  217. 12160 NEXT I
  218. 12170 RETURN
  219. 12180 '======= MENU =======
  220. 12190 *MENU1
  221. 12200 LOAD@ DRG$+"menu256\MENU.TIF"
  222. 12210 'WHILE MOUSE(2,0)=0:WEND
  223. 12220 RETURN
  224. 12230 *PICT
  225. 12240 RESTORE *PICTDAT
  226. 12250 FOR I=2 TO 13:READ PX(I),PY(I):NEXT I
  227. 12260 *PICTDAT
  228. 12270 DATA 60,50,300,200,60,50,300,200,60,50,300,200,60,50,300,200
  229. 12280 DATA 60,50,300,200,60,50,300,200
  230. 12290 I=1
  231. 12300 'WHILE MOUSE(2,0)=0
  232. 12310 *NX1_PICT
  233. 12320  I=I+1:IF I>13 THEN I=2
  234. 12330  X1$=STR$(I):X2$="0"+RIGHT$(X1$,LEN(X1$)-1)
  235. 12340  X$="OP2\OP2REC\OP2REC"+RIGHT$(X2$,2)
  236. 12350  LOAD@ DRG$+X$+".tif",(PX(I),PY(I)):WAIT 20
  237. 12360 'WEND
  238. 12370 IF PLAY(2)<>0 THEN *NX1_PICT
  239. 12380 RETURN
  240. 12390 '======= MENU2 =======
  241. 12400 '*MENU2
  242. 12410 SW1=-1:SW2=-1:X=0:Y=0:SEL=-1
  243. 12420 MOUSE 1,0,0,1
  244. 12430 LOAD@ DRG$+"MENUR.PUT",G%':GET@A(0,0)-(639,479),G%:SAVE@ DRG$+"menur.put",G%
  245. 12440 SX1(0)=220:SY1(0)=140:SX2(0)=492:SY2(0)=179
  246. 12450 SX1(1)=220:SY1(1)=180:SX2(1)=492:SY2(1)=239
  247. 12460 SX1(2)=220:SY1(2)=240:SX2(2)=492:SY2(2)=279
  248. 12470 SX1(3)=220:SY1(3)=280:SX2(3)=492:SY2(3)=319
  249. 12480 WHILE SEL<0
  250. 12490  MOUSE 1,,,1
  251. 12500  WHILE MOUSE(2,0)=0
  252. 12510 '  IF PLAY(2)=0 THEN PCMPLAY S%
  253. 12520  ''IF X<>MOUSE(0) OR Y<>MOUSE(1) THEN
  254. 12530    X=MOUSE(0):Y=MOUSE(1)
  255. 12540    'SW2=-1
  256. 12550    FOR I=0 TO 3
  257. 12560     IF X>SX1%(I) AND X<SX2%(I) AND Y>SY1%(I) AND Y<SY2%(I) THEN SW2=I:SEL=I:I=3
  258. 12570    NEXT I
  259. 12580    'IF SW1<>SW2 THEN
  260. 12590     MOUSE 1,,,0
  261. 12600     'IF SW1>=0 THEN PUT@A(SX1%(SW1),SY1%(SW1))-(SX2%(SW1),SY2%(SW1)),G1%
  262. 12610     IF SW2>=0 THEN
  263. 12620     'GET@A(SX1%(SW2),SY1%(SW2))-(SX2%(SW2),SY2%(SW2)),G1%
  264. 12630      K&=INT(SY1%(SW2)*320+SX1%(SW2)/2)
  265. 12640      FOR I=SY1%(SW2) TO SY2%(SW2)
  266. 12650       PUT@A(SX1%(SW2),I)-(SX2%(SW2),I),G%,,,,,K&:K&=K&+320
  267. 12660      NEXT I
  268. 12670     ENDIF
  269. 12680     SW1=SW2:MOUSE 1,,,1
  270. 12690    'ENDIF
  271. 12700   ''ENDIF
  272. 12710  WEND
  273. 12720  'FLG=SW1+1
  274. 12730  'IF FLG<>0 THEN IF SEL%(SENTAKU-1,FLG-1)<>0 THEN PLAY ,,,,,,"@2C":SW=SEL%(SENTAKU-1,FLG-1)
  275. 12740  'IF FLG=0 THEN
  276. 12750  ' IF X>OWR_X1 AND X<OWR_X2 AND Y>OWR_Y1 AND Y<OWR_Y2 THEN PLAY ,,,,,,"@2C":PUT@A(OWR_X1,OWR_Y1)-(OWR_X2,OWR_Y2),SW%,,,,,SW_LEN*2:SW=999:GOTO *END_RTN
  277. 12760   'IF X>MKJ_X1 AND X<MKJ_X2 AND Y>MKJ_Y1 AND Y<MKJ_Y2 THEN SW=99:PLAY ,,,,,,"@2C":PUT@A(MKJ_X1,MKJ_Y1)-(MKJ_X2,MKJ_Y2),SW%,,,,,SW_LEN
  278. 12770  'ENDIF
  279. 12780  IF SEL>=0 THEN SW=999
  280. 12790 WEND
  281. 12800 MOUSE 1,,,0
  282. 12810 WHILE PLAY(0)<>0 :WEND
  283. 12820 END
  284.