Program post site for everyone
■説明
パックマン風のゲームです。
「・」を全部食べるとクリアです。
「・」は161個あります。
クリアするとクリアタイムが表示されます。
移動は左右と上です。下には移動できません。
上に移動すると、一番下のラインが一番上に来ます。
■操作
↑
← →
■変数
A 面の描写時に使用（キャラコード）
D 自分の向き
E 移動増減（X）
F 移動増減（Y）
I FOR
M INKEY
P 面の描写時に使用（X座標）、自分の移動前X座標
Q 面の描写時に使用（Y座標）
S SCORE
X 自分のX座標
Z エサがあるかのチェック
■プログラム
10 初期設定
20 面作成
30 自分表示、キー入力チェック、自分の向き処理、スコア処理
40 クリア処理
50 自分消し、スクロール処理
60 30からを繰り返す
■？？？
プログラムサイズは小さく、まだ500バイト以上余っています。
改造大歓迎です。
敵ありも作成中です。
10 CLV:CLS:LET[0],16062,128,27627,2056,15838,128,31407,672,16062:X=1:D=1 20 FORI=0TO19:LC0,I:?CHR$(6):LC16,I:?CHR$(6):NEXT:FORI=0TO149:P=I%15+1:Q=I/15+1:A=165-[I/15]>>(I%15)&1*159:LCP,Q:?CHR$(A):LCP,20-Q:?CHR$(A):NEXT:CLT 30 @B:LCX,19:Z=SCR():?CHR$(252-D):P=X:M=INKEY():E=(M=29)-(M=28):F=(M=30)*(SCR(X,18)!=6):D=D*!E+E:X=X+E*(SCR(X+E,19)!=6):S=S+(Z=165) 40 LC1,22:?"SCORE:";S;"/161":IFS=161?"CLEAR!":?TICK()/60;"s":END 50 LCP,19:?" ":IFFCOPY#B9F,#B7F,-640:COPY#920,#B80,17 60 GOTO@B
