IchigoJamスペースバトル

スペースバトルを題材にしたミニプログラム3本です。
福野さんがブログに書いた「7行シューティング」からアイデアをいただきました（プログラム2本目は9割方そのまま）。
3本とも入力すると、続けて遊べます。
このペーパーやプログラムはCC BYライセンスとします。教室などでご自由にお使いください。

PDFファイルはこちら。

PDFやプログラムは、こちらからもダウンロードできます。
http://comich.net/ichigojam/

---

うちゅうのかなたから、エイリアンがせめてきた！
うちゅうせんにのりこんで、エイリアンをたおせ！
いかの３つのミッションを、それぞれ３びょういないにたっせいせよ！

１．うちゅうせん、はっしん！

ダッシュでうちゅうせんへのりこめ！
（スペースキーをれんだしてダッシュ）

10 X=0:I=15:CLT

20 CLS:LC I,22:?"A":LC X,22:?"O";

30 IF !BTN(SPACE) CONT

40 IF BTN(SPACE) CONT

50 X=X+1

60 IF X<=I AND TICK()<180 GOTO 20

70 IF X<=I ?"FAILED":END

80 ?"SUCCEEDED!":WAIT 120

web版
MixJuice: ?"MJ GET comich.net/ichigojam/ichigospacebattle1.txt"

２．エイリアンをたおせ！

エイリアンをビームでうて！
（上やじるし・下やじるしキーでいどう、スペースキーでビームはっしゃ）

110 E=RND(22):Y=12:CLT

120 CLS:LC 31,E:?"@":LC 0,Y:?"A";

130 Y=Y-BTN(UP)+BTN(DOWN):WAIT 2

140 IF !BTN(SPACE) AND TICK()<180 GOTO 120

150 FOR I=1 TO 30:?"-";:NEXT

160 IF Y!=E ?"-FAILED":END

170 ?"*SUCCEEDED!":WAIT 120

web版
MixJuice: ?"MJ GET comich.net/ichigojam/ichigospacebattle2.txt"

３．ちきゅうへもどれ！

ぎゃくふんしゃでそくどをさげて、ちゃくりくせよ！
（スペースキーでぎゃくふんしゃ、そくど１いかでちゃくりくすればせいこう）

210 Y=0:V=0:CLT

220 CLS:?V:LC 15,Y:?"A";

230 V=V+(TICK()%10<2)-BTN(SPACE)

240 Y=Y+V:WAIT 2

250 IF TICK()>180 GOTO 280

260 IF Y<23 GOTO 220

270 IF V>1 ?"FAILED":END

280 ?"SUCCEEDED!"

web版
MixJuice: ?"MJ GET comich.net/ichigojam/ichigospacebattle3.txt"

３つ連続

10 X=0:I=15:CLT

20 CLS:LC I,22:?"A":LC X,22:?"O";

30 IF !BTN(SPACE) CONT

40 IF BTN(SPACE) CONT

50 X=X+1

60 IF X<=I AND TICK()<180 GOTO 20

70 IF X<=I ?"FAILED":END

80 ?"SUCCEEDED!":WAIT 120

110 E=RND(22):Y=12:CLT

120 CLS:LC 31,E:?"@":LC 0,Y:?"A";

130 Y=Y-BTN(UP)+BTN(DOWN):WAIT 2

140 IF !BTN(SPACE) AND TICK()<180 GOTO 120

150 FOR I=1 TO 30:?"-";:NEXT

160 IF Y!=E ?"-FAILED":END

170 ?"*SUCCEEDED!":WAIT 120

210 Y=0:V=0:CLT

220 CLS:?V:LC 15,Y:?"A";

230 V=V+(TICK()%10<2)-BTN(SPACE)

240 Y=Y+V:WAIT 2

250 IF TICK()>180 GOTO 280

260 IF Y<23 GOTO 220

270 IF V>1 ?"FAILED":END

280 ?"SUCCEEDED!"

web版