• Ichigojam

10 CLS:CLV:LET[0],13593,13657,17870,8662,23995,8209,6570,61024,58892,30110,22893,13763,22589,9682,6189,9686,60009,43833,6264,9346,35514,26912,50764,31974
20 A=6:B=249:D=247:E=22:F=230:H=239:J=2:L=9:V=2:W=2:R=14:S=10:M=16:N=12:GSB@S:GOTO@C
30 @B:K=INKEY():P=(K=29)-(K=28):Q=(K=31)-(K=30):IFP+Q=0GOTO@B
40 IFSCR(M+P,N+Q)=AGOTO@B
50 @C:LCM,N:?" ":M=M+P:N=N+Q:LCM,N:IFSCR()=EC=1
60 IFSCR()=FG=1
70 IFSCR()=64X=2:Y=5:CLS:GSB@S:GOTO@B
80 IFSCR()=D?"ダッシュツ!":END
90 ?CHR$(B):IFABS(M-R-2)=3ORABS(N-S-2)=3GSB@T:GSB@S:P=0:Q=0:GOTO@C
100 GOTO@B
110 @S:FORI=0TO3:LCR+I,S:?CHR$(A):LCR+I+1,S+4:?CHR$(A):LCR,S+I+1:?CHR$(A):LCR+4,S+I:?CHR$(A):NEXT:FORI=0TO3:Z=[X/4+Y*2]>>(X%4*4+I)&1:IF!ZLC16+(I=1)*2-(I=3)*2,12+(I=2)*2-(I=0)*2:?" "
120 NEXT:LCR+1,(S+2)*(X=0)*(Y=2)-1:?"@":LCR+1,(S+2)*(X=J)*(Y=L)-1:?CHR$(F):LCR+1,(S+2)*(X=V)*(Y=W)-1:?CHR$(E):LCR+1,(S+2)*(X=7)*(Y=4)-1:?CHR$(D):RTN
130 @T:LC0,0:?"         ":Z=(M=R-1)+(N=S-1)*2+(M=R+5)*3:X=X+P:Y=Y+Q:FORI=0TO3:SCROLLZ:M=M-P:N=N-Q:WAIT10:NEXT:IF!CCLS
140 LC0,(G=1)-1:?"X=";X;" Y=";Y:RTN

Kidspod運営チーム2017/07/03 17:27:33

アドベンチャーゲームの感じがして面白いです。パンとGPS装置がとても心強い味方になってくれました。アイテムなしで、更に地図を書かずにクリアするのは、かなりの難易度！

Pagetop