シューティングゲームをつくろう！

UFOがせめてくるメインループ (ひこうき=ALT+G、UFO=ALT+H)

10 CLS:X=15 20 LC X,23:?"🚀"; 30 LC RND(32),0:?"🛸" 40 SCROLL DOWN 50 GOTO20

はやすぎ？

35 WAIT 3

テキおおすぎ？

30 IF RND(10)=0 LC RND(32),0:?"🛸"

カーソルさゆうで、そうさきるようにしよう

45 X=X-BTN(LEFT)+BTN(RIGHT)

あたりはんていをつけよう

41 IF SCR(X,23) ?"GAMEOVER":END

スペースキーで、たまはっしゃ！

34 IF BTN(32) FORI=22TO0STEP-1:LCX,I:?"|":WAIT1:LCX,I:?CHR$(0):NEXT

15びょういないになんてんとれるか？スコアきのうついか！

15 S=0:CLT 34 IF BTN(32) FORI=22TO0STEP-1:LCX,I:S=S+(SCR()>0):?"|":WAIT1:LCX,I:?CHR$(0):NEXT 42 IF TICK()>900 ?"SC:";S:END

やってみよう！
1. キャラクターをかえてみよう！
2. はやさをかえてみよう！
3. しゅつげんするテキのかずをかえてみよう！
4. ちがうテキをひょうじしてみよう！
5. せいげんじかんをかえてみよう！
6. スコアをおおきくしてみよう！