Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2019/05/15 15:50:46

MixJuice GET URL : kidspod.club/mj/833

宇宙船A　川下りの改造用基本プログラム

ゲーム改造用のベースとなる基本形です。
マルチステートメントは使わずに冗長に記述しています。

120 SCROLL 2　でスクロールの方向が決まります。

X,Yが"A"の位置。U,Vが消すために座標記憶
画面の一番端へは行かないように制限を掛けています。

カーソルキーで上下左右に動きます。Yの変化はコメントアウトしてもよい。

  • 1
  • 1

SOURCE CODE

10 'SS-A
20 VIDEO 3:CLS
30 X=8:Y=9
40 @LP
50 LC RND(15),0:?"@";
60 U=X:V=Y
70 X=X-BTN(28)*(X>1)
80 X=X+BTN(29)*(X<14)
90 Y=Y-BTN(30)*(Y>1)
100 Y=Y+BTN(31)*(Y<10)
110 LCU,V:?CHR$(0);
120 SCROLL2
130 IF SCR(X,Y)<>0 GOTO@ED
140 LCX,Y:?"A";
150 WAIT6
160 GOTO@LP
170 @ED
180 LC X,Y:?"*";
190 END

COMMENT