【おっぱい】MSXスレ Part26【最高!!】

じゃあ藤原以外のネタを

10 SCREEN 0: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

(続く)

(>>23の続き)

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 "ｱﾗ? ｱﾅﾀ ｲｶﾞｲ ﾆ ｿﾁﾝ ﾅﾉﾈ... ｶﾞｯｶﾘ ﾀﾞﾜ! ﾊﾞｲﾊﾞｲ!!"