「スーパー野球拳」の編集履歴（バックアップ）一覧はこちら
「スーパー野球拳」(2009/12/06 (日) 20:07:45) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
*スーパー野球拳
#ref(yakyu_ss1.png)
-BASICリスト(MSX BASIC1.0以降)
10 SCREEN 0:KEY OFF:WIDTH 38:CLS:C=0:L=0:DIM T$(3),S$(12),M$(12):T$(1)="ｸﾞｰ":T$(2)="ﾁｮｷ":T$(3)="ﾊﾟｰ"
20 RESTORE 220:FOR I=1 TO 12:READ S$(I):NEXT I:RESTORE 260:FOR I=1 TO 12:READ M$(I):NEXT I
30 PRINT "*** ｽｰﾊﾟｰ ﾔｷｭｳｹﾝ ***":PRINT:PRINT "ｿｳｻ ﾎｳｿｳ : 1=ｸﾞｰ / 2=ﾁｮｷ / 3=ﾊﾟｰ":PRINT:GOSUB 170
40 PRINT "<< GAME START! >>":PRINT:PLAY "T120O5S1M10000L16G8ED8EG8ED8EG8ED8EG8.G4":FOR I=1 TO 8:PRINT S$(I);" ";:FOR J=0 TO 300:NEXT J:IF (I MOD 4)=0 THEN PRINT
50 NEXT I
60 PRINT:FOR I=9 TO 11:PRINT S$(I);" ";:PLAY "T180O5S1M3000E8E4":IF I=11 THEN PLAY "E8"
70 FOR J=0 TO 300:NEXT J,I
80 K$=INKEY$:IF K$<>"1" AND K$<>"2" AND K$<>"3" THEN 80
90 PLAY "T180O6S1M10000G4":A=VAL(K$)-1:R=INT(RND(-TIME)*3)
100 PRINT S$(12):PRINT:PRINT " ｱﾅﾀ =(";T$(A+1);") vs (";T$(R+1);")= ｱﾀｼ":PRINT
110 IF R=A THEN PRINT "ｱｲｺ!":PRINT:PRINT S$(11);" ";:PLAY "T180O5S1M3000L8EE4E":GOTO 80
120 PRINT "ｱﾅﾀ ﾉ ";:IF ((R+1) MOD 3)=A THEN PRINT "ﾏｹﾖ!":L=L+1:PLAY "T140O2V14C4":GOTO 150 ELSE PRINT "ｶﾁﾖ!":C=C+1:PLAY "T180O5S1M10000L16GEGEGE4"
130 PRINT:PRINT M$(C):PRINT:IF C<5 THEN PRINT "ﾂｷﾞ ﾊ ﾏｹﾅｲ ﾜﾖ!";:GOSUB 170:GOTO 60
140 PRINT M$(6):PRINT:PRINT "*** CONGRATULATIONS! ***":GOTO 200
150 PRINT:PRINT M$(L+6):PRINT:IF L<5 THEN PRINT "ﾂｷﾞ ﾊ ｶﾞﾝﾊﾞｯﾃ ﾈ!";:GOSUB 170:GOTO 60
160 PRINT M$(12):PRINT:PRINT "--- GAME OVER ---":GOTO 200
170 PRINT " [HIT SPACE BER]":PRINT
180 IF INKEY$<>" " THEN 180
190 RETURN
200 END
210 '
220 DATA "ﾔ-ｷｭｳ-","ｽ-ﾙﾅﾗ-","ｺｳｲｳ ｸﾞｱｲ ﾆ","ｼﾔｼｬﾝｾ-"
230 DATA "ﾅ-ｹﾞﾀﾗ-","ｺｳ ｳｯﾃ-","ﾗﾝﾅｰ ﾆ ﾅｯﾀﾗ","ｴｯｻｯｻ-"
240 DATA "ｱｳﾄ!","ｾｰﾌ!","ﾖﾖｲ ﾉ..","ﾖｲ!!"
250 '
260 DATA "ﾘﾗｯｸｽ ｽﾙﾀﾒﾆ ｸﾂｼﾀ ｦ ﾇｸﾞﾜﾈ..."
270 DATA "ｿﾚﾆ ｼﾃﾓ ｷｮｳ ﾊ ｱﾂｲ ﾜﾈ.. ﾁｮｯﾄ ｳﾜｷﾞ ｦ ﾇｸﾞﾜ."
280 DATA "ﾔﾀﾞ! ｻｯｷ ﾀﾍﾞｽｷﾞﾁｬｯﾀ ｶﾅｰ.. ｳｪｽﾄ ｶﾞ ｷﾂｲ ｶﾗ ｽｶｰﾄ ｦ ﾇｸﾞﾜﾈ. ｱﾏﾘ ﾐﾅｲﾃﾞ..."
290 DATA "ﾌﾞﾗ ｶﾞ ｷﾂｲﾜ.. ｺｰﾌﾝ ｼﾃ ｷﾁｬｯﾀ ﾉ ｶｼﾗ? ﾌﾞﾗｼﾞｬｰ ｦ ﾄﾙﾜﾈ. ｳﾌﾌ..ｵｲｼｿｳ ﾃﾞｼｮ?"
300 DATA "ｻｯｷ ｶﾗ ﾊﾟﾝﾃｨｰ ﾉ ﾅｶｶﾞ ﾇﾚﾃﾙ ﾉ... ｷﾓﾁﾜﾙｲ ｶﾗ ﾇｸﾞﾜﾈ..."
310 DATA "ﾂｲﾃﾞ ﾆ ｺﾉ ﾎﾃｯﾀ ｶﾗﾀﾞ ｦ ｼｽﾞﾒﾃ ﾁｮｳﾀﾞｲ... ｱｧ..ｿｺ... ｽﾃｷ ﾖ..."
320 '
330 DATA "ﾈｸﾀｲ ｦ ﾄｯﾃ ｱｹﾞﾙ ﾜﾈ!"
340 DATA "ｱﾗ? ｱﾅﾀ ｱｾ ﾀﾞｸ ﾈ. ｳﾜｷﾞ ｦ ﾇｲﾀﾞﾗ?"
350 DATA "ｻｯｻ ﾄ ｼｬﾂ ｦ ﾇｲﾃﾞﾈ!"
360 DATA "ｻｧ! ｽﾞﾎﾞﾝ ｦ ﾇｷﾞﾅｻｲ!"
370 DATA "ｻｲｺﾞ ﾊ ｿﾉ ﾊﾟﾝﾂ 1ﾏｲ ﾀﾞｹﾈ..."
380 DATA "ｱﾗ? ｱﾅﾀ ｲｶﾞｲ ﾆ ｿﾁﾝ ﾅﾉﾈ... ｶﾞｯｶﾘ ﾀﾞﾜ! ﾊﾞｲﾊﾞｲ!!"
----
*MSX2対応変更差分
-ゲーム進行はテキスト版と同じ。
-勝ったらCGを表示して、[RETURN]キーでゲーム再開。
-スクリーンモードは好きなものをどうぞ。(画像サイズは以下の通り)
--SCREEN 5 : 256×212 16色
--SCREEN 7 : 512×212 16色
--SCREEN 8 : 256×212 256色
-CGデータ名はYAKYU000.SC{5|7|8}～YAKYU006.SC{5|7|8}で各自用意のこと。
--YAKYU000...通常(スタート画面)
--YAKYU001...靴下
--YAKYU002...上着
--YAKYU003...スカート
--YAKYU004...ブラ
--YAKYU005...パンツ
--YAKYU006...XXX
-絵師様へ：適当にページを作って、SC{5|7|8}形式でファイルをアップして下さい。([[CGデータサンプルページ]])
--漢字対応版にて、システムカラーとして、黒、青、赤、マゼンタ、緑、シアン、黄、白の8色を予約しています。(カラーコードは任意に変更可能)
--ゲーム中に絵を表示させたい場合などはご留意下さい。
--SCREEN 8の場合は特に気にしなくて良いです。
--テキスト版では、ベタにフルスクリーン表示するだけなので、パレットの制約はありません。
-SCREEN 5の場合
15 COLOR 15,0,0:SC=5:W=255
-SCREEN 7の場合
15 COLOR 15,0,0:SC=7:W=511
-SCREEN 8の場合
15 COLOR 15,0,0:SC=8:W=255
-以下、共通ルーチン
35 GOSUB 1000:SCREEN 0
125 GOSUB 170:GOSUB 1000:SCREEN 0
140 C=C+1:PRINT M$(C):GOSUB 170:GOSUB 1000:SCREEN 0:PRINT "*** CONGRATULATIONS! ***":GOTO 200
1000 SCREEN SC:A$=STR$(C):A$="YAKYU"+RIGHT$("00"+RIGHT$(A$,LEN(A$)-1),3)+".SC"+RIGHT$(STR$(SC),1)
1010 SET PAGE 0,1:BLOAD A$,S:COLOR=RESTORE
1020 FOR I=0 TO 210 STEP 2:J=211-I:COPY(0,I)-(W,I),1TO(0,I),0:COPY(0,J)-(W,J),1TO(0,J),0:NEXT I
1030 IF INKEY$<>CHR$(13) THEN 1030
1040 RETURN
----
*漢字ROM対応版
[[スーパー野球拳(漢字ROM対応版)]]
----
要望とか
#comment
*スーパー野球拳
#ref(yakyu_ss1.png)
-BASICリスト(MSX BASIC1.0以降)
10 SCREEN 0:KEY OFF:WIDTH 38:CLS:C=0:L=0:DIM T$(3),S$(12),M$(12):T$(1)="ｸﾞｰ":T$(2)="ﾁｮｷ":T$(3)="ﾊﾟｰ"
20 RESTORE 220:FOR I=1 TO 12:READ S$(I):NEXT I:RESTORE 260:FOR I=1 TO 12:READ M$(I):NEXT I
30 PRINT "*** ｽｰﾊﾟｰ ﾔｷｭｳｹﾝ ***":PRINT:PRINT "ｿｳｻ ﾎｳｿｳ : 1=ｸﾞｰ / 2=ﾁｮｷ / 3=ﾊﾟｰ":PRINT:GOSUB 170
40 PRINT "<< GAME START! >>":PRINT:PLAY "T120O5S1M10000L16G8ED8EG8ED8EG8ED8EG8.G4":FOR I=1 TO 8:PRINT S$(I);" ";:FOR J=0 TO 300:NEXT J:IF (I MOD 4)=0 THEN PRINT
50 NEXT I
60 PRINT:FOR I=9 TO 11:PRINT S$(I);" ";:PLAY "T180O5S1M3000E8E4":IF I=11 THEN PLAY "E8"
70 FOR J=0 TO 300:NEXT J,I
80 K$=INKEY$:IF K$<>"1" AND K$<>"2" AND K$<>"3" THEN 80
90 PLAY "T180O6S1M10000G4":A=VAL(K$)-1:R=INT(RND(-TIME)*3)
100 PRINT S$(12):PRINT:PRINT " ｱﾅﾀ =(";T$(A+1);") vs (";T$(R+1);")= ｱﾀｼ":PRINT
110 IF R=A THEN PRINT "ｱｲｺ!":PRINT:PRINT S$(11);" ";:PLAY "T180O5S1M3000L8EE4E":GOTO 80
120 PRINT "ｱﾅﾀ ﾉ ";:IF ((R+1) MOD 3)=A THEN PRINT "ﾏｹﾖ!":L=L+1:PLAY "T140O2V14C4":GOTO 150 ELSE PRINT "ｶﾁﾖ!":C=C+1:PLAY "T180O5S1M10000L16GEGEGE4"
130 PRINT:PRINT M$(C):PRINT:IF C<5 THEN PRINT "ﾂｷﾞ ﾊ ﾏｹﾅｲ ﾜﾖ!";:GOSUB 170:GOTO 60
140 PRINT M$(6):PRINT:PRINT "*** CONGRATULATIONS! ***":GOTO 200
150 PRINT:PRINT M$(L+6):PRINT:IF L<5 THEN PRINT "ﾂｷﾞ ﾊ ｶﾞﾝﾊﾞｯﾃ ﾈ!";:GOSUB 170:GOTO 60
160 PRINT M$(12):PRINT:PRINT "--- GAME OVER ---":GOTO 200
170 PRINT " [HIT SPACE BER]":PRINT
180 IF INKEY$<>" " THEN 180
190 RETURN
200 END
210 '
220 DATA "ﾔ-ｷｭｳ-","ｽ-ﾙﾅﾗ-","ｺｳｲｳ ｸﾞｱｲ ﾆ","ｼﾔｼｬﾝｾ-"
230 DATA "ﾅ-ｹﾞﾀﾗ-","ｺｳ ｳｯﾃ-","ﾗﾝﾅｰ ﾆ ﾅｯﾀﾗ","ｴｯｻｯｻ-"
240 DATA "ｱｳﾄ!","ｾｰﾌ!","ﾖﾖｲ ﾉ..","ﾖｲ!!"
250 '
260 DATA "ﾘﾗｯｸｽ ｽﾙﾀﾒﾆ ｸﾂｼﾀ ｦ ﾇｸﾞﾜﾈ..."
270 DATA "ｿﾚﾆ ｼﾃﾓ ｷｮｳ ﾊ ｱﾂｲ ﾜﾈ.. ﾁｮｯﾄ ｳﾜｷﾞ ｦ ﾇｸﾞﾜ."
280 DATA "ﾔﾀﾞ! ｻｯｷ ﾀﾍﾞｽｷﾞﾁｬｯﾀ ｶﾅｰ.. ｳｪｽﾄ ｶﾞ ｷﾂｲ ｶﾗ ｽｶｰﾄ ｦ ﾇｸﾞﾜﾈ. ｱﾏﾘ ﾐﾅｲﾃﾞ..."
290 DATA "ﾌﾞﾗ ｶﾞ ｷﾂｲﾜ.. ｺｰﾌﾝ ｼﾃ ｷﾁｬｯﾀ ﾉ ｶｼﾗ? ﾌﾞﾗｼﾞｬｰ ｦ ﾄﾙﾜﾈ. ｳﾌﾌ..ｵｲｼｿｳ ﾃﾞｼｮ?"
300 DATA "ｻｯｷ ｶﾗ ﾊﾟﾝﾃｨｰ ﾉ ﾅｶｶﾞ ﾇﾚﾃﾙ ﾉ... ｷﾓﾁﾜﾙｲ ｶﾗ ﾇｸﾞﾜﾈ..."
310 DATA "ﾂｲﾃﾞ ﾆ ｺﾉ ﾎﾃｯﾀ ｶﾗﾀﾞ ｦ ｼｽﾞﾒﾃ ﾁｮｳﾀﾞｲ... ｱｧ..ｿｺ... ｽﾃｷ ﾖ..."
320 '
330 DATA "ﾈｸﾀｲ ｦ ﾄｯﾃ ｱｹﾞﾙ ﾜﾈ!"
340 DATA "ｱﾗ? ｱﾅﾀ ｱｾ ﾀﾞｸ ﾈ. ｳﾜｷﾞ ｦ ﾇｲﾀﾞﾗ?"
350 DATA "ｻｯｻ ﾄ ｼｬﾂ ｦ ﾇｲﾃﾞﾈ!"
360 DATA "ｻｧ! ｽﾞﾎﾞﾝ ｦ ﾇｷﾞﾅｻｲ!"
370 DATA "ｻｲｺﾞ ﾊ ｿﾉ ﾊﾟﾝﾂ 1ﾏｲ ﾀﾞｹﾈ..."
380 DATA "ｱﾗ? ｱﾅﾀ ｲｶﾞｲ ﾆ ｿﾁﾝ ﾅﾉﾈ... ｶﾞｯｶﾘ ﾀﾞﾜ! ﾊﾞｲﾊﾞｲ!!"
----
*MSX2対応変更差分
-ゲーム進行はテキスト版と同じ。
-勝ったらCGを表示して、[RETURN]キーでゲーム再開。
-スクリーンモードは好きなものをどうぞ。(画像サイズは以下の通り)
--SCREEN 5 : 256×212 16色
--SCREEN 7 : 512×212 16色
--SCREEN 8 : 256×212 256色
-CGデータ名はYAKYU000.SC{5|7|8}～YAKYU006.SC{5|7|8}で各自用意のこと。
--YAKYU000...通常(スタート画面)
--YAKYU001...靴下
--YAKYU002...上着
--YAKYU003...スカート
--YAKYU004...ブラ
--YAKYU005...パンツ
--YAKYU006...XXX
-絵師様へ：適当にページを作って、SC{5|7|8}形式でファイルをアップして下さい。([[CGデータサンプルページ]])
--漢字対応版にて、システムカラーとして、黒、青、赤、マゼンタ、緑、シアン、黄、白の8色を予約しています。(カラーコードは任意に変更可能)
--ゲーム中に絵を表示させたい場合などはご留意下さい。
--SCREEN 8の場合は特に気にしなくて良いです。
--テキスト版では、ベタにフルスクリーン表示するだけなので、パレットの制約はありません。
-SCREEN 5の場合
15 COLOR 15,0,0:SC=5:W=255
-SCREEN 7の場合
15 COLOR 15,0,0:SC=7:W=511
-SCREEN 8の場合
15 COLOR 15,0,0:SC=8:W=255
-以下、共通ルーチン
35 GOSUB 1000:SCREEN 0
125 GOSUB 170:GOSUB 1000:SCREEN 0
140 C=C+1:PRINT M$(C):GOSUB 170:GOSUB 1000:SCREEN 0:PRINT "*** CONGRATULATIONS! ***":GOTO 200
1000 SCREEN SC:A$=STR$(C):A$="YAKYU"+RIGHT$("00"+RIGHT$(A$,LEN(A$)-1),3)+".SC"+RIGHT$(STR$(SC),1)
1010 SET PAGE 0,1:BLOAD A$,S:COLOR=RESTORE
1020 FOR I=0 TO 210 STEP 2:J=211-I:COPY(0,I)-(W,I),1TO(0,I),0:COPY(0,J)-(W,J),1TO(0,J),0:NEXT I
1030 IF INKEY$<>CHR$(13) THEN 1030
1040 RETURN
----
*漢字ROM対応版
[[スーパー野球拳(漢字ROM対応版)]]
----
要望とか
- あ -- あ (2009-12-06 20:07:45)
#comment
