ワンラインゲームメーカー
一行プログラム作成支援
１行の長さは２００文字までGOTOで行の途中に移動することはできません
１行しかないのでGOSUBは使えません
REM以降は無視されます
IF THEN ELSE は使い方が制限されます
FOR NEXTを使い変数が終値にならないようにすることでループさせます
変数を終値にするとループから出ます
10 VIDEO3
20 CLS
30 X=8
40 Y=9
50 FORI=0TO1
60 LC RND(15),0
70 ?"@";
80 U=X
90 V=Y
100 X=X-BTN(28)
110 X=X+BTN(29)
120 Y=Y-BTN(30)
130 Y=Y+BTN(31)
140 LCU,V
150 ?CHR$(0);
160 SCROLL2
170 IFSCR(X,Y)=0I=-1
180 LCX,Y
190 ?"A";
200 WAIT6
210 NEXT
220 LCX,Y
230 ?"*";
240 END
1 VIDEO 3:CLS:X=8:Y=9:FORI=0TO1:LC RND(15),0:?"@";:U=X:V=Y:X=X-BTN(28)*(X>1):X=X+BTN(29)*(X<14):Y=Y-BTN(30)*(Y>1):Y=Y+BTN(31)*(Y<10):LCU,V:?CHR$(0);:SCROLL2:IF SCR(X,Y)=0 I=-1:LCX,Y:?"A";:WAIT6:NEXT:LC X,Y:?"*";:END
エクセルワークシート結合して一行にまとめる
通常のプログラムを入力すると、結合して１行プログラムにします
分割して解読する
１行プログラムを入力すると分割し行番号を付加します
IchigoJamに転送して動作確認ができます
