• Ichigojam

10 'チジョウダッシュツ
20 CLS:CLV:X=19:Y=1:F=1:A=#8F:B=#ED:C=#FA:[0]=21
30 FORI=0TO21:LC12,I:?CHR$(A):LC30,I:?CHR$(A):NEXT
40 IF[H]=0H=0
50 M=[H]&31:N=[H]&992>>5:IFN>20[H]=21:GOTO50
60 IFSCR(M,N+1)!=ALCM,N:?" ":N=N+1:IFN<>21LCM,N:?CHR$(B):GOTO110ELSEN=0:GOTO110
70 P=-([H]>>10=0)+([H]>>10=1)
80 IFSCR(M+P,N)!=ALCM,N:?" ":M=M+P:LCM,N:?CHR$(B):GOTO110
90 P=-P
100 IFSCR(M+P,N)!=ALCM,N:?" ":M=M+P:LCM,N:?CHR$(B)
110 [H]=M+N<<5+(P=1)*1024
120 IFN=18ANDX=MEND
130 LCX,18:?CHR$(C)
140 K=INKEY()
150 IFK=30GOTO200
160 D=(K=29)-(K=28)
170 IFSCR(X+D,18)!=ALCX,18:?" ":X=X+D
180 IFSCR(X,18)=BEND
190 H=H+1:GOTO40
200 IFSCR(X,17)=AGOTO40
210 IFSCR(X,17)=BEND
220 F=-F:S=S+1:LC0,0:?"カイ:";S 
230 IFS%3=0ANDQ!=20Q=Q+1:[Q]=21
240 IFF=1GOTO280
250 FORI=12TO30:LCI,1:?CHR$(A):NEXT
260 LC12,0:?CHR$(A):LC30,0:?CHR$(A)
270 FORI=0TO2:LC13+RND(17),1:?" ":NEXT:GOTO290
280 LC12,0:?CHR$(A):LC30,1:?CHR$(A)
290 LCX,18:?" ":SCROLL2:N=N+1:LC0,2:?"        "
300 FORI=0TOQ:[I]=[I]+32:NEXT:GOTO40

Kidspod運営チーム2017/03/24 12:39:57

投稿ありがとうございます！　敵の動きを先読みしながら進んでいくのが楽しいですね。

Pagetop