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

2019/02/21 17:04:03

MixJuice GET URL : kidspod.club/mj/748

SpaceShip

"川下り"を改造してみた。

SCROLL2で上から下にスクロール
Aを:で消すことで軌跡を表します。

SOURCE CODE

10 'SpaceShip
20 CLS:CLT:X=16:Y=RND(2)*2-1
30 @LP:LCRND(31),0:?"*"
40 Z=BTN(29)-BTN(28):IFZ<>0THENY=Z
50 IFX=0Y=1
60 IFX=31Y=-1
70 X=X+Y:SCROLL2
80 IFSCR(X,20)=42GOTO@ED
90 LCX,20:?"A":LCX-Y,21:?":":WAIT8:GOTO@LP
100 @ED:?TICK()/6:END

COMMENT