Program post site for everyone
■説明
面が割れたあなた。
警察に捕まってしまいました。
しかし、牢屋の鍵を開けるのはお手の物。
さっさと抜け出し、警備員の目をかいくぐり建物の外へ脱出してください。
■操作
移動：←→↑↓
■早すぎるときは。。。
動きが早すぎる場合は60行のWAITで調整してみてください。
INKEYではなくBTN関数を使ったのでキー反応が早いかもしれません。
INKEYに改造して違いを知るのもいいかも。
■変数
A 警備員のナンバー（0～6）
B SCR
C 自分のキャラクターコード236
D 警備員のキャラクターコード250
E 警備員の移動方向増減 1 or -1
F WORK
G WORK
I FOR
J FOR
K FOR
L X増減
M Y増減
U BTN
X 自分X
Y 自分Y
[0] 敵1X
[1] 敵1Y
[2] 敵1DX
[3] 敵1DY
x7
■プログラム
10-20 初期設定、画面作成
30 敵の移動、当たり判定
40 自分の移動、当たり判定
50 成功処理
60 WAIT、30へ
70 失敗処理
10 CLS:CLV:VIDEO3:X=2:LET[0],4,4,0,-1,4,7,1,0,6,3,1,0,9,4,0,1,11,3,-1,0,10,7,-1,0,14,4,0,1:FORI=0TO15:LCI:?CHR$(6):LC0,I*(I<8):?CHR$(6):LC15,I*(I<8):?CHR$(6):LCI,8:?CHR$(6):NEXT:FORI=0TO1:FORJ=0TO2 20 LCJ*5+1,I*4+2:?CHR$(248):LCJ*5+2,I*4+2:?"H":FORK=0TO2:LCJ*5+K+1,I*4:?CHR$(6):LCJ*5,I*4+K:?CHR$(6):LCJ*5+3,I*4+K:?CHR$(6):NEXT:NEXT:NEXT:LC56:?CHR$(6):LC125:?CHR$(6):LC127:?CHR$(248):C=236:D=250:Y=1 30 @A:IFRND(2)F=[A*4+2]:G=[A*4+3]:L=[A*4]:M=[A*4+1]:B=SCR(L+F,M+G):E=(B<>6)-(B=6):[A*4+2]=F*E:[A*4+3]=G*E:LCL,M:?" ":[A*4]=L+F*E:[A*4+1]=M+G*E:LC[A*4],[A*4+1]:?CHR$(D):IFSCR(X,Y)=DGOTO@E 40 A=A+1-(A=6)*7:U=BTN(-1):LCX,Y:?" ":L=(U=2)-(U=1):M=(U=8)-(U=4):F=SCR(X+L,Y+M):X=X+L*(F<>6&&F<>72):Y=Y+M*(F<>6&&F<>72):IFSCR(X,Y)=DGOTO@EELSELCX,Y:?CHR$(C) 50 IFX=15LC0,9:?"タ゛ッシュツセイコウ!":END 60 WAIT0:GOTO@A 70 @E:LC0,9:?"ミツカッタ":WAIT60:RUN
