スーパー野球拳

スーパー野球拳

• 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)