この 付 譟は取 0 はず して 保存して 下さい。

MSX マガジン B 月 号付鑤

鹂鏡 鎭 郝

市 川 治 •市 川 至

■二の プログラムは 実 除に 動作した ものを、 そのまま プリントアウトし、 縮小 掲載した も のです。 うま く 動作し ない 場合は タイプ ミス の 可能性が 非常に 大きいで すので 注意 して 入 力して ください。

■この プログラム 4 ン トロール キーを} •

押す) によ っ て 止めた とき、 文字 か •見えな くな って しまう 場合 か •あります。 これは 文字の 色 と 背景 色が II じに なって いるた めです。 文字 か* 見えない ままで かまい ま せんから、 『COLO — ~ ilj を ダイレクト モード

R15, 5, 7〇

誤り だけでなく、 変数の 型、 カッコの 数、 ユ ー ザー閱 数の 定義な どが 照 因 となる 二と あ •ります。 十分に チェックして ください 〇 ■Illegal function call の 場合、 エラー 行 だけ でな く、 その 行で 使用して いる 明 数 や 命令の パラメータ （変数） を 定義して いる 行 や、 デ ータの 誤りに 注意して チェック してく ださ

今回 お届けす るのは、 T V ゲームの 古典、 『ブロック くずし j。

APPLEII の rLITTLE BRICK OUTj をべ 一 ス に、 MS X お得 意の スプラ イト 檐 能を 使つ て、 スピーディーな ゲーム/) 壤 しめる ように してみ ました。

もう じき _〇 雨の 休日は カラフルな _ で、 あのな つかしい ゲームを もう 一度’

•遊 ひ 方 _

RUNl RETURN It •スタート 》 ォーブ ニン グ 音楽と ともに タイ トル 画面が 表示され、 次 に I 明 J X 5 段の ブロック が 画面 上部に 現われ る。 自動的に サーブされ るので、 カーソル キ 一の 日日を 押して ラケットを 動かし、 飛ん できた ボールを 打ち返す。 ラケットを 画面の 端に もってい くと、 壁を つき 抜けて 反対 個の 端から ラケッ トが 出て く るので、 ピンチの 時 はこの 手を 使おう。

ポールが ブロ ッ クを つき 破つ て 反対側に 出 ，て 連続く ずれが 起こる が、

:、 天井に 反射して 連 -ッ トの 幅が 半分に な

、ゲームが その 、 ポール も 停止す る。 も ：/ 卜も 止まる A、 ら インチキ :ぃの だ •もぅ i MkroPl キ 一を き 力、' はじまる。

2) ブロックの 段 数を 変えたい とき ——

120 行の rT=5j で 定義して いる 数 値が ブロ ックの g 缴に なつて いるので、 この 値を 変える。 I 段から 14© まで、 テクニックに 合わせて ど’ ぞ。

3) ポールを 増やしたい とき ——

ポールは 5 個 あるが、 1 140 行の1 "B L = 5j の 数値を 変えれば、 何個に でも できる。 ただし 画面には 2 ケタし か 表 示で# ない のでよ ろしく。

4) ジ a イス ティ ツクで 遊びたい とき 一 480 行の rA = STIGK (0)j の カツ コの 中の 〇を丨 に 変える と、 ポート I

嫌した ジ 3 イス テイ ツクが 使え

5) 『 むずかし 一な 一j と 思わず 考え込ん でし まつ たと# —

の rA=X-x I :, S= …… j の て rA = x-X I : S =

I 的 行の rA し j を 取 r

0 PUT SPRITE 1,(X1, 183),

560 PUT SPRITE 2,(X1+8*V,1 570 IF Y>27+T*8 THEN 390 580 IF Y>30 THEN GOSUB 260s IF Q=19*T THEN 600 ELSE 390 590 GOTO 390

600 PUT SPRITE 0, (0,0), 0,0: CE=CE+1 : GOSUB 1000SLINE (0,116)-(48, 124), 15, BF：PSET < 0,U6),15：PRINT #1,USING*####H* ;CE+1 sQ=0：GOTO 320 610 '

620 " Game Over

640 IF HS<SC THEN HS=SC . .

650 LINE (0,8)-(46,15>,15,BF：PSET(0,9),15sPRINT #1 .USING '###### |HS 660 PSET (74,100〉 ，0:COLOR 15:PRINT Hl/TRY AGAIN(Y/N)?' • • ^ …

670 H$=INKEY$:IF INSTR( ' YyNn',H$)<2 THEN 670 ELSE IF H$= Y OR H$= y THEN COLO R 1,1 5: GOSUB 113 0: GOSUB 1000: GOSUB 1 140 :Q=0: GOTO 320 680 COLOR 15, 4, 7: KEY ON: CLOSE: END 690 SOUND 7, 44： SOUND 8, 9: SOUND 1,4: SOUND 1 700 BL=BL-1

D 13,0: FOR A=0 TO 200： NEXT A： SOUND 8,16

3 IF BL<0 THEN 640 ELSE 320

720 '

730 " Screen mode & Sprite Patterns 740 '

750 COLOR 1,15,1

760 SCREEN 2,0 ,0:CLS:OPEN 'GRP:' AS #1 770 A1 $=CHR$ ( &B00 111000)

780 A2$=CHR$(&B 011101 00)

790 A3$=CHR$(&B11111110)

800 A4$=CHR$ < &B1 1 1 1 10 10 )

810 A5$=CHR$(&B11111010)

820 A6$=CHR$<&B11111010)

830 A7$=CHR$ ( &B0 1 1 10 100 )

840 A8$=CHR$ ( &B00 1 〃 、

850 A$=A1$+A2$+A3$

860 A1$=CHR$(&B111_

870 A2$=CHR$ (&B11111111)

880 A3$=CHR$(&B11111111)

ゲー ムオ u ン ピック _ 催 中/

890 M$=CHR$(&B11111111)

900 A5$=CHR$ (&B11111111)

910 A6$=CHR$< &B 00000000 )

920 A7$=CHR$(&B 000000 00)

930 A8$=CHR$( &B0 0000000 )

940 B$=A1$+A2$+A3$+A4$+A5$+A6$+A7$+A8$

950 GOSUB 1000:GOSUB 1140 960 GOTO 290 970 /

980 Brick Pattern Display 990 '

1000 LINE (54, 191)-(208, 0),1,BF 1010 FOR A=0 TO T-l

1020 LINE < 56 , 32+A*8 ) - ( 206 , 37+A*8 ) , 1+T-A , BF

1030 NEXT A

1040 FOR A=0 TO T-2

1050 LINE < 56 , 38+A*8 ) - ( 206 , 39+A*8 ) , 1 , BF 1060 NEXT A

1080 ； High Score & Score Display

1150 PSET <1,1),0：PRINT #1， _HISCORE ■: PRINT #1,_ 0 •: PRINT #1, ' SCORE •: PRINT

#1," 0 •: PSET (8,108),15：PRINT #1 • 'SCENE •: PRINT #1, ' l':PSET (8,145),15:

PRINT *1 /LEFT •: PRINT #1 , * BALL" : RETURN 1160 KEY OFF: SCREEN 1,0: COLOR 15,4,2 1170 LOCATE 7,11 1180 PRINT'MSX フ "09 ク

1190 PLAY ■ S0M10000T 1 10O5L8GL16GGG2L8G+GG+GL16GGG2 ' , " S0M6000T1 10O5L8EL16EEE2L8E+E E+EL16EEE2', 'S0M 6000111005 L8CL16CCC2L8C+CC+CL16CCC2'

1200 IF PLAY(0) THEN 1200 ELSE RETURN

•主催： コナミ エ業 株式 会 fet/ コナ 參 期間： 5 月 1 日〜 8 月 31 日 （当日

法： ハイパーオリンピック 1、 2 に チャレンジして いただき 高 得点を 競って いただきます。 籲応 募 方法： 各種 目の 最高記録^ または 1、 2 の 総合 得点が 写し出された テレビの 画面を 写真に 撮り 事務局へ 郵送して いただきます。 （総合 部門に ついては、 1 または 2 だけの 終 合 得点 だけ では 失格と なります）

•参加 費 格： 特に 問いません。

籲 応募 先： X102 東京都 千代 田 区 九 段 南 2 丁目 3-14 靖国 九 段 南 ビル コナミ 株式会社 内 パイパー オリンピック 大会 事務局 宛

參応 募の 方は： 住所、 氏名、 年令、 職業、 電話番号、 性別、 御 使用 中の M S X 相雜 (お持ちの 方の み)、 身長、 体重、 希望す る ソフトの タイトル、 を必 、ず 明記して 下さい。

鲁 発表： バソコ ン各誌 10 月 号 誌上に て。

* フェアプレー 賞 （1,00 略） について は 郵送を もって 発表 ■

HET3IT