home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 3 / FreeSoftwareCollection3pd199x-jp.img / oh_fm / final / final2 / f2ed.bas next >
BASIC Source File  |  1980-01-02  |  11KB  |  239 lines
  1. 30000 '===================================
  2. 30010 '     file name : "F2-ED"
  3. 30020 '     file code : 1990-001-003
  4. 30030 '       version : 1.00
  5. 30040 '===================================
  6. 30050 '
  7. 30060 '    ☆★  キャッチフレーズ  ★☆
  8. 30070 ' シリアスシーンと おちゃらけシーンが
  9. 30080 '               交互に 君を襲う！
  10. 30090 '
  11. 30100 CLS:ON ERROR GOTO 32280:RANDOMIZE TIME/3
  12. 30110 DA$(0)="2.00":DA$(1)="0.05":DA$(2)="0.003"
  13. 30120 ON I GOTO 30130,30260,30740
  14. 30130 '====  Game Over [1] ====
  15. 30140 RESTORE 30210
  16. 30150 FOR J=7 TO 1 STEP -1:FOR K=1 TO 7:W=40:GOSUB 32240:COLOR=(J,K):NEXT K:W=30:GOSUB 32240:NEXT J:W=800:GOSUB 32240:COLOR 2,1:WIDTH 80,25
  17. 30160 Y=4
  18. 30170 READ X,LE:IF X=0 THEN COLOR=(1,1):COLOR=(2,7):W=3000:GOSUB 32240:GOTO 30690
  19. 30180 FOR J=1 TO LE:READ JI$
  20. 30190 XX=(X+J)*18:YY=Y*20:GOSUB 32260
  21. 30200 NEXT J:Y=Y+1:GOTO 30170
  22. 30210 ' 文字データ [Ｘ座標,文字数,ＪＩＳコード～]
  23. 30220 DATA 5,24,3675,4A6C,2551,2548,256A,2537,2522,244F,2122,4154,4553,2460,244A,2437,242F,2121,3324,4C4C,323C,244B,4B57,2437,243F,2123
  24. 30230 DATA 4,14,243D,244E,4154,4064,244A,406F,2424,2472,434E,246B,2462,244E,244F,2122
  25. 30240 DATA 7,24,4748,3456,244B,493A,2426,4C35,3F74,244E,474B,4A52,2448,4038,4348,242B,2424,3D45,4C7D,244E,245F,2447,2422,2443,243F,2123
  26. 30250 DATA 0,0
  27. 30260 '====  Game Over [2] ====
  28. 30270 RESTORE 30600
  29. 30280 FOR J=7 TO 1 STEP -1:W=200:GOSUB 32240:COLOR=(J,2):NEXT J
  30. 30290 FOR J=7 TO 1 STEP -1:W=200:GOSUB 32240:COLOR=(J,0):NEXT J
  31. 30300 W=900:GOSUB 32240
  32. 30310 WIDTH 80,25:FOR J=0 TO 7:COLOR=(J,J):NEXT J
  33. 30320 COLOR 7
  34. 30330 READ X,LE:IF X=0 THEN 30690
  35. 30340 FOR J=1 TO LE:READ JI$:JI1$=JI$
  36. 30350 IF LEFT$(JI$,1)>"0" THEN 30400
  37. 30360 '
  38. 30370 ON VAL(RIGHT$(JI$,1)) GOSUB 30470,30480,30490,30500,30510:K=2:WHILE MID$(STR$(NUMBER),K,1)<>"":GOSUB 30520
  39. 30380 XX=(X+J)*19:YY=184:JI$=HEX$(&H2330+VAL(MID$(STR$(NUMBER),K,1))):GOSUB 32260
  40. 30390 X=X+1:K=K+1:WEND:X=X-1:GOTO 30440
  41. 30400 '
  42. 30410 GOSUB 30520
  43. 30420 XX=(X+J)*19:YY=184:JI$=JI1$:GOSUB 32260
  44. 30430 '
  45. 30440 NEXT J
  46. 30450 ROLL -16:ROLL -16:ROLL -16:GOTO 30330
  47. 30460 '
  48. 30470 NUMBER=17*RND+1:RETURN
  49. 30480 NUMBER=TIM:RETURN
  50. 30490 NUMBER=5*RND+24:RETURN
  51. 30500 NUMBER=INT((6000-LNG1)*.01!)*100:RETURN
  52. 30510 NUMBER=INT(5*RND+33):RETURN
  53. 30520 ' Impact
  54. 30530 XX=(X+J)*19:YY=184:JI$="2223":GOSUB 32260:W=15:GOSUB 32240
  55. 30540 COLOR 0
  56. 30550 GOSUB 32260
  57. 30560 COLOR 7
  58. 30570 ' Sound Effect
  59. 30580 BEEP 1:BEEP 0
  60. 30590 RETURN
  61. 30600 ' 戦闘報告書 文字データ [Ｘ座標,文字数,ＪＩＳコード～]
  62. 30610 DATA 10,5,406F,462E,4A73,3970,3D71
  63. 30620 DATA 13,12,3038,2121,2555,256C,2543,2541,2563,213C,3675,3733,3470,434F
  64. 30630 DATA 13,9,482F,2121,4268,0001,3952,3675,3936,3762,4262
  65. 30640 DATA 2,25,0002,3B7E,0003,4A2C,2122,2539,2557,256B,213C,2522,2573,2539,4F51,2468,246A,2121,466E,466E,456C,2121,4C73,0004,3324,4E24,244E
  66. 30650 DATA 1,28,4D4E,3E65,244B,3177,2424,2446,2122,3675,4A6C,2551,2548,256A,2537,2522,2472,4A61,422A,2122,4631,0005,4A2C,2121,2433,246C,2472,3762,4440,2123
  67. 30660 DATA 2,10,3324,3E65,244B,323F,4A2A,2462,4727,2461,243A,2123
  68. 30670 DATA 12,3,304A,3E65,2123
  69. 30680 DATA 0,0
  70. 30690 '**** Retry ****
  71. 30700 W=800:GOSUB 32240
  72. 30710 LOCATE 45,23:COLOR=(7,7):COLOR 7:PRINT"Replay ?  (Y/N)"
  73. 30720 J=INSTR("***Yyﾝ0Nnﾐ"+CHR$(13),INKEY$)\4:IF J>2 OR J<1 THEN 30720 ELSE IF J=2 THEN FOR J=1 TO 7:COLOR=(J,J):NEXT J:COLOR 7,0:WIDTH 80,25:END
  74. 30730 RUN "F2OP.BAS"
  75. 30740 '====  Normal End ====
  76. 30750 '
  77. 30760 '   酷！  エンディングと称し
  78. 30770 '  山のような データを 打ち込ませる、鬼投稿者
  79. 30780 '
  80. 30790 ' ストーリー進行
  81. 30800 WINDOW(0,0)-(639,399):VIEW(0,40)-(639,439):COL=4:GOSUB 30870:COLOR 0:Y=1:RESTORE 30910
  82. 30810 READ X,LE:IF X=0 THEN W=1700:GOSUB 32240:COL=0:GOSUB 30870:GOTO 31020
  83. 30820 FOR J=1 TO LE:READ JI$
  84. 30830 IF LEFT$(JI$,1)="0" THEN W=VAL(JI$)*13:GOSUB 32240:X=X-1:GOTO 30850
  85. 30840 XX=(X+J)*18:YY=Y*20:GOSUB 32260
  86. 30850 W=40:GOSUB 32240
  87. 30860 NEXT J:Y=Y+1:GOTO 30810
  88. 30870 ' LINE
  89. 30880 FOR J=1 TO 200*AJ-1 STEP 2
  90. 30890 LINE(0,J)-(639,J),PSET,COL:LINE(0,200*AJ-1-J)-(639,200*AJ-1-J),PSET,COL
  91. 30900 NEXT J:RETURN
  92. 30910 ' 文字データ [Ｘ座標,文字数,ＪＩＳコード～]
  93. 30920 DATA 3,13,2156,406F,344F,2566,254B,2533,213C,2573,2468,246A,467E,4545,2123
  94. 30930 DATA 5,25,2158,365B,355E,3F2E,2121,2121,483F,4D70,244E,4B56,482F,244B,3572,246A,2122,2433,2433,244B,2344,3757,3268,244E,482F,4630,2472
  95. 30940 DATA 10,21,406B,3840,2439,246B,2123,0060,2433,246C,244B,3470,2445,242D,2122,352E,344F,242C,4B5C,344F,244E,3B58,3478
  96. 30950 DATA 10,22,323C,244B,467E,246B,2433,2448,2472,2122,422E,2464,242B,244B,334E,4727,2435,246C,243F,2437,2123,2159,2157,0030
  97. 30960 DATA 3,32,2156,2344,3757,3268,2145,2145,0080,323F,2440,2122,243D,246C,244F,2123,0030,2566,254B,2533,213C,2573,244B,4C64,2424,3967,246F,243B,2446,245F,246D,2123,2157,0030
  98. 30970 DATA 3,15,2156,344F,4439,2122,4177,3F2E,405F,4877,244F,245E,2440,2145,2123,2157,0060
  99. 30980 DATA 3,23,2156,243D,2426,242B,2145,2145,0090,3B64,242C,3954,242F,2437,242B,244A,2424,2448,2424,2426,246F,2431,242B,2123,0050
  100. 30990 DATA 7,11,497B,4439,2122,3865,244F,4D6A,2473,2440,243E,2123,2157
  101. 31000 DATA 14,16,0120,2354,234F,2121,2342,2345,2121,2343,234F,234E,2354,2349,234E,2355,2345,2344
  102. 31010 DATA 0,0
  103. 31020 ' Credit Titles
  104. 31030 WIDTH 80,25:DIM G1%(20*AJ)
  105. 31040 RESTORE 31480:WINDOW(0,0)-(639,479):VIEW(0,0)-(639,479)
  106. 31050 FOR J=1 TO 7:COLOR=(J,J):NEXT J
  107. 31060 PALETTE 10,0:PALETTE 11,[0,255,0]:PALETTE 12,[255,255,255]
  108. 31070 COUNT=0:SYMBOL(0,0),"",1,2
  109. 31080 COUNT=COUNT+1
  110. 31090 READ KIND,LE,X,Y:IF COUNT>17 AND KYOKO>-1 THEN IF COUNT=18 THEN RESTORE 31690:GOTO 31080 ELSE Y=Y-4
  111. 31100 Y=Y*16*AJ
  112. 31110 LINE(158,0)-(436,16*AJ),PSET,0,BF:COLOR 2:FOR J=1 TO LE:READ JI$
  113. 31120 XX=(X+J)*16:YY=8:GOSUB 32260
  114. 31130 NEXT J
  115. 31140 ON KIND GOTO 31730,31150,31240,31370
  116. 31150 '
  117. 31160 LO=0
  118. 31170 FOR YADJ=0 TO 16
  119. 31180 FOR PM=1 TO -1 STEP -2
  120. 31190 LO=LO+1:COL=VAL(MID$("7777777676666663303",LO\AJ+1,1))
  121. 31200 GET@(158,16+PM*YADJ)-(436,16+PM*YADJ),G1%
  122. 31210 PUT@(158,Y+PM*YADJ)-(436,Y+PM*YADJ),G1%,PSET,COL
  123. 31220 NEXT PM
  124. 31230 NEXT YADJ:GOTO 31080
  125. 31240 '
  126. 31250 '
  127. 31260 LO=0:FOR J=0 TO 16*AJ-1
  128. 31270 '
  129. 31280 GET@(158,J)-(436,J),G1%
  130. 31290 LO=LO+1:COL=VAL(MID$("11155555544444444",LO\AJ+1,1))
  131. 31300 FOR YADJ=Y+16*AJ-1 TO Y+J STEP -1
  132. 31310 PUT@(158,YADJ)-(436,YADJ),G1%,PSET,COL
  133. 31320 LINE(158,YADJ+1)-(436,YADJ+1),PRESET
  134. 31330 NEXT YADJ
  135. 31340 NEXT J
  136. 31350 '
  137. 31360 GOTO 31080
  138. 31370 ' Sound Effect
  139. 31380 FOR I=0 TO 10:BEEP 1:FOR J=0 TO 1:NEXT:BEEP 0:FOR J=0 TO 1:NEXT:NEXT
  140. 31390 FOR J=1 TO 2
  141. 31400 COLOR=(1,5):COLOR=(5,7):COLOR=(4,1)
  142. 31410 W=14:GOSUB 32240
  143. 31420 COLOR=(1,7):COLOR=(5,1):COLOR=(4,5)
  144. 31430 W=14:GOSUB 32240
  145. 31440 COLOR=(1,1):COLOR=(5,5):COLOR=(4,7)
  146. 31450 NEXT J
  147. 31460 ' Scroll
  148. 31470 W=1700:GOSUB 32240:FOR J=1 TO 6:ROLL -64:NEXT :GOTO 31080
  149. 31480 ' クレジットタイトル 文字データ [種別,文字数,Ｘ座標,Ｙ座標,ＪＩＳコード～]
  150. 31490 DATA 2,5,9,2,3446,4644,2126,3169,3D50
  151. 31500 DATA 3,5,10,3,455A,346F,3C6A,2121,4B3F
  152. 31510 DATA 2,4,9,5,323B,3641,387A,324C
  153. 31520 DATA 3,5,10,6,375D,473D,3B33,3E6B,3971
  154. 31530 DATA 2,7,9,8,2547,213C,253F,256A,2535,213C,2541
  155. 31540 DATA 3,4,10,9,2348,2343,2349,2341
  156. 31550 DATA 4,1,0,0,0000
  157. 31560 DATA 2,7,9,2,2551,2569,2561,213C,253F,405F,446A
  158. 31570 DATA 3,11,12,3,3835,2156,2350,2369,234F,2157,3026,4649,3C54,4F22,3967
  159. 31580 DATA 3,16,10,4,2158,2350,2369,234F,2121,2350,2369,234F,2121,2528,2557,256D,2573,244E,3271,2159
  160. 31590 DATA 2,9,9,6,3268,4C4C,2539,252F,256D,213C,256B,3D68,4D7D
  161. 31600 DATA 3,12,10,7,2346,234D,4847,253C,2553,2526,2539,3826,3566,3051,3077,3271
  162. 31610 DATA 2,4,9,9,392D,4A73,4334,4576
  163. 31620 DATA 3,6,10,10,392D,4A73,3B59,3167,4974,4262
  164. 31630 DATA 4,1,0,0,0000
  165. 31640 DATA 2,6,9,2,4029,3A6E,3B59,3167,4344,424E
  166. 31650 DATA 3,8,10,3,467C,4B5C,256D,213C,2547,2523,2539,455E
  167. 31660 DATA 2,4,9,5,4643,4A4C,3D50,3169
  168. 31670 DATA 3,5,10,6,4666,244E,3449,4D7D,3F4D
  169. 31680 DATA 3,15,11,7,2224,2121,4378,3A6E,3822,4B21,2129,323F,2447,2439,242B,2122,243D,246C,2129
  170. 31690 DATA 2,5,9,9,4029,3A6E,2126,4378,3A6E
  171. 31700 DATA 3,14,10,10,234D,2361,2369,2373,236F,236E,2121,2350,2372,236F,236A,2365,2363,2374
  172. 31710 DATA 4,1,0,0,0000
  173. 31720 DATA 1,1,0,0,0000
  174. 31730 '
  175. 31740 '  ハードウェア無改造
  176. 31750 '   「あなたのＣＲＴを ＴＶ放送対応に」
  177. 31760 '      （但し、ＴＶ放送休止時のみ）
  178. 31770 '               ↑ＪＡＲＯを、お呼び！！
  179. 31780 '
  180. 31790 '             『きょう水』仕様準拠
  181. 31800 '
  182. 31810 :CLS:FOR J=0 TO 7:COLOR=(J,J):NEXT J:PALETTE @
  183. 31820 COLOR 7:WINDOW (0,0)-(639,399):VIEW(0,0)-(639,479)
  184. 31830 RESTORE 31970
  185. 31840 READ KIND,LE,X,Y:IF KIND=0 THEN W=8086:GOSUB 32240:GOTO 32070 ELSE IF KIND>1 THEN 31890
  186. 31850 FOR J=1 TO LE:READ JI$
  187. 31860 XX=(X+J)*20:YY=Y*19:GOSUB 32260
  188. 31870 NEXT J
  189. 31880 GOTO 31840
  190. 31890 '
  191. 31900 XX=XX+30
  192. 31910 FOR J=1 TO LEN(DA$(KIND-2)):J$=MID$(DA$(KIND-2),J,1):IF J$="." THEN JI$="2125":GOSUB 32260:XX=XX+6 ELSE IF J$>"/" AND J$<":" THEN JI$=HEX$(&H2330+VAL(J$)):GOSUB 32260:XX=XX+16
  193. 31920 NEXT
  194. 31930 XX=XX+6
  195. 31940 FOR J=0 TO 2
  196. 31950 J$=MID$("MHzkW*kW*",KIND*3-5+J,1):IF J$<>"*" THEN JI$=HEX$(ASC(J$)+&H2300):GOSUB 32260:XX=XX+18
  197. 31960 NEXT:GOTO 31840
  198. 31970 ' 文字データ [種別,文字数,Ｘ座標,Ｙ座標,ＪＩＳコード～]
  199. 31980 DATA 1,21,4,3,4B5C,467C,244E,2557,256D,2530,2569,2560,244F,2121,2433,246C,2447,3D2A,4E3B,4357,2437,245E,2437,243F,2123
  200. 31990 DATA 1,25,2,4,4C40,467C,2462,2121,2158,2346,2349,234E,2341,234C,2121,2357,2349,234E,234E,2345,2352,2159,2472,2121,2468,246D,2437,242F,2123
  201. 32000 DATA 1,18,4,7,2345,234B,234F,234A,213D,2354,2356,2121,2121,2121,252F,256D,2543,252F,3C7E,4748,3F74,2127
  202. 32010 DATA 2,0,0,0
  203. 32020 DATA 1,5,17,8,3147,417C,3D50,4E4F,2127
  204. 32030 DATA 3,0,0,0
  205. 32040 DATA 1,5,17,9,323B,403C,3D50,4E4F,2127
  206. 32050 DATA 4,0,0,0
  207. 32060 DATA 0,0,0,0
  208. 32070 ' Color Bar
  209. 32080 CLS
  210. 32090 FOR J=0 TO 6:LINE(J*91,0)-(J*91+90,150*AJ),PSET,7-J,BF:NEXT J
  211. 32100 FOR J=0 TO 6:LINE(J*91,151*AJ)-(J*91+90,165*AJ),PSET,VAL(MID$("1030507",J+1,1)),BF:NEXT J
  212. 32110 FOR J=0 TO 4:LINE(J*127,166*AJ)-(J*127+126,199*AJ),PSET,VAL(MID$("07100",J+1,1)),BF:NEXT J
  213. 32120 FOR J=0 TO 126 STEP 3:LINE(J,166*AJ)-(J,199*AJ),PSET,1:NEXT J
  214. 32130 FOR J=254 TO 380 STEP 2:LINE(J,166*AJ)-(J,199*AJ),PSET,0:NEXT J
  215. 32140 RESTORE 32180
  216. 32150 XX=450:YY=180
  217. 32160 FOR J=1 TO 7:READ JI$:GOSUB 32260:XX=XX+22:NEXT J
  218. 32170 BEEP 1:W=6809:GOSUB 32240:BEEP 0
  219. 32180 DATA 3B6E,3833,4545,4748,482F,3C4D,4366
  220. 32190 ' Message
  221. 32200 CLS
  222. 32210 MES$(0)="!!!MPOH!!HPPE.CZ":MES$(1)="TP"+MID$(MES$(0),3,5)+CHR$(&H22)
  223. 32220 FOR K=0 TO 1:FOR J=1 TO LEN(MES$(K)):MID$(MES$(K),J,1)=CHR$(ASC(MID$(MES$(K),J,1))-1):NEXT J,K
  224. 32230 FOR J=0 TO 1:W=1234:GOSUB 32240:COLOR 7:LOCATE 0,0:PRINT MES$(J):NEXT J:LOCATE 0,1:END
  225. 32240 ' Wait
  226. 32250 FOR WW=1 TO W*WA:NEXT WW:RETURN
  227. 32260 ' PRINT@
  228. 32270 IF JI$<>"0000" THEN PRINT@(XX,YY*AJ),VAL("&h"+JI$);:RETURN ELSE RETURN 
  229. 32280 ' Error trap
  230. 32290 LOCATE 38,19:COLOR 7:COLOR=(7,7):BEEP:PRINT"ERROR";ERR;"in";ERL:END
  231. 32300 '
  232. 32310 '  B.G.M   ｢ MUSIC SOUR ｣
  233. 32320 '          ｢ Music Shake ｣
  234. 32330 '               &
  235. 32340 '          ｢ Loving Heart ｣
  236. 32350 '
  237. 32360 '     SOMEDAY
  238. 32370 '          SOMETIME
  239.