SHIROのIchigoJam日記

IchigoJamの電子工作とプログラミングをメインに

IchigoJamスペースバトル

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

PDFファイルはこちら。

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



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

1.うちゅうせん、はっしん!

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

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"

2.エイリアンをたおせ!

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

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"

3.ちきゅうへもどれ!

ぎゃくふんしゃでそくどをさげて、ちゃくりくせよ!
(スペースキーでぎゃくふんしゃ、そくど1いかでちゃくりくすればせいこう)

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"

3つ連続

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版