SNAKE GAME

高木 真 一郎

ttAU TO" コマンドが 定鵪 されて を 押す と ゲーム ガスター 卜する。 日 キーで 右に 動かす ことかで さるが、 に 衝突す ると、 へピは 死んで しま "5

いて、 行 番号 （フ ログ ラムの 左側の ちし1 & 途中で ゲームが Jt85 つてし この場合の 左右は ペピの 進行 方向に の だ 〇 3 匹のへ ピガ 死ぬ と ゲーム オ 数字） を 10 きざみに 自動的に 出力す まつだ 5、 エラーメッセージに 注目。 むかつて のちので ある ことに 注憊 すーゾ る。 フ □グラムを 丨 J ス卜通 <0 に 入力 L I ST 行 番号 U ターンで、 エラー る こと。 こんな ふ ラ にへ ビ在 左右に ★プログラムの 改良 ★

する。 1 行 入れ 終わる ごとに 必 す、 の あつだ 行を 出力 〇 Syntax error 動かして エサを 食べる。 ジョ イス テイ ツクを 使う ときは、 140

ターン" キーを 押す のを 麻れ す な 5 スペル S ス、 lllegul function エサは 初めは 1 つ だけ あらわれる 行の wST = 0" を VST = 1 " に

に。 最後まで 入れたら" CTRL" call な &、 数字が 間違えて いるは す が一 定時 間 内に 食べない と 3 個埔 変える。 また、 へ ビを增 やすとき は 14 キーを 押しな が £>，s TOP" キー だ 0 IJ ス卜 とに 6 めつ こして 窗 して える (時 閩は画 固 下に 格で 表示され 0 行の WSN = 3〃、 エサの 数を 変える を 押す 。これで、 A U T 0 状 慂か& < れ 。エラ一が 全部 なくなつ だ 5、 る) 。エサ 在 1 個 食べる ごとに 胴体は ときは 1160 行の L F =1〇i し V" の もとの 状態に 復帰、 入力 完了 だ。 も ラー 度 csave し 直す ことを 忘れす 畏< なつて <る0 定数を それぞれ 変える ことが 必要。

フロ ク ■ラム? t WRUN" する 前に、 に。 エサを 全部 食べる と 圃面上 中央に 面の 数を 増やしたい 場合は、 1150 行

テープに、、 CSAVE" して おこう。 ★遊び 方 ★ 出口が でき、 そこを ぬける と 次の 面 • 1380 行を 変更し、 (面 数は SO) プ

力 セッ 卜 テープを 錄音 状態に して、 * す RUN® で スタート すると、 に 進む ことができ るので ある。 バタ ロク •ラム 末尾に « を 描く サフ ル一 チ csave 、、snake" と 入力し だ 後 リタ . H 面に へピと エサが あ 5 われる。 ーン は、 6 面 3； であり、 パターンが 進 ンを 作れば 0K〇 ーン キーを 押す。、、 OK" の 文字； tf 出 へビ在 動かす には カーソル 移動 キー むに つれ 当然 難し < なつて ぐるので C5C S A V E 完了。' ' F 5" の キー 日日を 使 今。 へ ピは日 キーで 左に、 ご 注 憲 / 外側の 力べ や 自分の 劂体

1 〇 ’兴 关关长 兴长兴 兴兴兴 兴兴兴 长兴兴 关兴菁

30 •* SNAKE GAME *

40 •* *

50 ** FOR MSX BASIC *

60 ** *

70 BY S . T *

80 * *******************

90 •

100 SCREEN 2,0,0：COLOR ,0,0：DEFINT A-Z： A=RND( -TIME)

110 DIM X(500),Y(500)

120 GOSUB 1390： • キャラクタ テ'" 一夕 130 OPEN "GRP:" AS# 1 140 SC=1：SN=3：PO=0：LV=1：ST=0 150 GOSUB 1050： * シ 3 キカ'" メン 160 *

170 •«= シ ヨキ セツ テイ =：=：：= =

180 '

190 HD=0：LS=0：X(HD)=16：YCHD)=22：DL=5：DR=0：SF=1 ：KS=0：TI=255 ：SD=0 200 PSET (128,176),0:COLOR 8:DRAW HD$

210 FX=INT(RND(1 )*28)+l ：FY=INT(RND(1 )*20)+2 220 IF P0INT(FX*8+3，FY*8+3) THEN 210 230 PSET(FX*8,FY*8),0：COLOR14：DRAW FD$

240 *

250 *=== メイン ルーチン ===

260 *

270 IF LF=0 THEN 400

280 TI=TI-4：LINE(TI,187)-(TI+4,191 ),13,BF 290 IF TI>0 THEN 400

300 SF=SF+3:LF=LF+3:TI=255:LINE(0, 186)-(255, 191 ) ,2，BF

310 FOR N=1 TO 3

320 FX=INT(RND(1)*30+1)

330 FY=INT(RNDC1 )*20+2)

340 IF POINT(FX*8+4,FY*8+3)<>0 THEN 320

350 PSET(FX»8,FY»8),〇rCOLOR 14： DRAW FD$

360 NEXT 370 *

380 LINE(224,0)-(239,7)，0，BF:COLOR 15:PSET(224,0),0:PRINT 林 1,USINGM##";LF 390 *

400 KD=STICK(ST)

410 IF KD=KS THEN 430

420 DR=DR- ( KD=3 ) - ( KD=7 ) *3 ： DR=DRM0D4 ： KS=KD 430 SD=1-SD

440 IF SD THEN PLAYM06L32E" ELSE PLAY"06L32C"

450 HX=X(HD) ：HY=Y(HD)

460 NX=HX-(DR=1 )+(DR=3)

470 NY=HY-(DR=2)+(DR=0)

480 PSET ( HX*8 , HY*8 ) , 0 ： COLORO ： DRAW HD$

490 PSET(HX*8,HY*8)，0:COLOR5:DRAW BD$

500 PN=P0 1 NT ( NX*8+ 4 , NY*8+ 3 )

510 IF PN THEN 620

520 PSET(NX#8,NY*8),0:COLOR8:DRAWHD$

530 HD=HD+1

540 IF HD=501 THEN HD=0

550 XCHD)=NX：Y(HD)=NY

560 IF D し THEN DL=DL—1 〖GOTO 600

570 PSET(X(LS)#8,Y(LS) 兴 8),0:CO し OR 0:DRAW BD$

580 し S=LS+1

590 IF LS=501 THEN LS=0

600 IF NX=16 AND NY=1 THEN 980 ELSE 250

これは 画面 上を はいまわる ペピを 動かして 次々 丨こ あ 5 われる エサを 食 ベる ゲームで ある。 比較的 短め だが

を 生かし だものに して ある。 ★プログラム 入力の 仕方 ★

ます 電源を入れ、 B AS I C が 起 動す るのを 確 明。 キーボード 左上の WF 2" の キーを 押す。 これには、

610 •

620 •=== 八ン テイ ===

630 •

640 IF PN< >14 THEN 840

650 PLAY"06L64C#" ， "06L64D" , "06L64G#"

660 LINE(0, 186)-(255,191 ),2,BF:TI=255 670 PO=PO+SC*10

680 PSET ( NX*8 , NY*8 ) , 0 ： COLORO ： DRAW FD$

690 DL=DL+8:PSET( NX*8,NY*8),0: COLOR 0: DRAW HD$

700 LF=LF-1

710 IF LF=0 THEN LINE( 120,8)-( 143, 15) ,8,BF：LINE( 128 720 LINE(224,0)-(239,7),0，BF

730 COLOR 15:PSET(224,0) ,0:PRINT #1 ,USING"## "•，し F

740 SF=SF-1

750 IF SF THEN 520

760 IF LF=0 THEN 810

770 SF=1

780 FX=INT(RND(1 )*30)+l ：FY=INT(RND(1 )*20)+2 790 IF POINT(FX*8+4,FY*8+3)<>0 THEN 780 800 PSET (FX*8,FY*8),0： COLOR 14： DRAW FD$

810 LINE(64,0)-(103,7)，0，BF:PSET(64,0),0:PRINT #1,U! 820 GOTO 520 830 •

840 • === GAME OVER ===

850 •

860 PLAY" 071250 L3CR64CR64L6CL6R64L2CR64L3D#R64L8DR6-

870 LINE( NX*8 + 3 , NY*8 + 3 ) - ( I NT ( RND ( 1 ) *256 ) , I NT ( RND (

880 IF PLAY(O) THEN 870

890 SN=SN-1

900 IF SN THEN 150

910 LINE(72,52)-(151,75),1，BF

920 PSET(80,60)，1:PRINT#1, "GAME OVER"

930 LINE(48,8)-(153，15),0,BF

940 PSET(50,8)，0:CO し OR 5:PRINT#1,"<- TO RE-PLAY H 950 IF STICK(ST)<>7 THEN 950 960 GOTO140 970 '

980 •=== 1 メン クリア ===

990 *

1000 PLAY"07L32C2DEFGABL408C07 "

1010 SC=SC+1 ：GOTO 150 1020 '

1030 •=== メンノ セツ テイ ===

1040 •

1050 CLS 1060 COLOR 2

1070 LINE(6，14)-(250,186)，，B

1080 PAINT(0,0)， 2,2

1090 LINE(16,0>-(103,7),0，BF

1100 COLOR15：PSETC16,0),1：PRINT #1 , US I NGM Score ：##### 1110 LINE(120,0)-(175,7),0,BF

1120 CO し OR15:PSET(l 20,0 ),1:PRINT #l,USING"Snake:#";SN 1130 LINE(184,0)-(239,7),0,BF 1140 •

1150 ON SC-1 GOSUB 11 80,120 0，1230 ,1280, 1320,1380 1160 し F= 10 兴し V:CO し OR 1 5 ： PSET ( 1 84 , 0 ) , 0 ： PRI NT #1 , "Food ： 1170 RETURN

1180 LINE(56,96)-(175, 103) ,2,BF

1190 RETURN

1200 LINE(56,96)-(175, 103) ,2,BF

1210 LINE(120,58)-(127,143),2，BF

1220 RETURN

1230 LINE(80,64)-(159,71 ),2，BF

1240 LINE(80,96)-(159,103) ,2,BF

1250 LINE(80，128)-(159,135),2,BF

1260 LINE(80,64)-(87, 135) ,2,BF

1270 RETURN

1280 LINE(56,56)-( 199, 143) ,2,BF

1290 LINE(64,64)-(191 ,136),0,BF

1300 LINE(1 20,56 )-( 135, 63), 0，BF 1310 RETURN

1320 LINE(56,56)-(199,143),2,BF

1330 LI NE ( 1 20 , 56 ) - ( 1 35 , 1 43 ) , 0 , BF 1340 LINE(64,64)-(112，136)，0，BF

1350 LINE(144,64)-(191 ,136)，0,BF

1360 LINE( 70,96 )-(l 50, 111 ),0，BF 1370 RETURN

1380 SC=1：LV=LV+1： RETURN

1390 • ==；= キャラクタ テ イキ ~ ===

1400 HD$="BR2R4F1D4G1L4H1U4E1"

1410 BD$="BD1BR4D3U1L1R2"

1 420 FD$= "BR3R2F1 L4G1 R5D1 L5F1R3G1 "

1430 RETURN