福野泰介の一日一創

BBQも佳境に入ると、おもしろいことになる。焼き鳥＆焼きおにぎり祭。

剣豪、佐々木小次郎が必殺技「燕返し」を編み出したとされる場所、一乗滝へプチ遠足。

滝の水は冷たく美しい！

パワーアップしていたさいころコレクション。提供、さいころ部。

帰途、さすが元気な18歳！と思ったら、バスでは爆睡だった様子
→ インターンブログ「←BBQ楽しんできた勢→ - jigintern2016’s diary」

ひさびさのケイドロ、体、頭共に良い運動になって楽しすぎたので、IchigoJamでゲーム化！

まずはカーソルで動く主人公（ケイ）をつくる。"K"はALT+Pで人を出してもいい。

10 X=16:Y=12 20 X=X-BTN(28)+BTN(29) 30 Y=Y-BTN(30)+BTN(31) 40 CLS 50 LC X,Y:?"K" 60 WAIT 3 70 GOTO 20

20行と30行、28〜31が左右上下のカーソルのキーコード。X,Yとマイナスから書くと28〜31まで並ぶので覚えやすい。 忘れてしまったら、?LEFT などでキーコードを確認！チラツキ抑えるコツは、画面表示直前にCLS。

次に敵キャラ（ドロ）を登場させる。上から迫ってきて、一番下まで到達されたら負け。"D"はALT+Dで宇宙人とか。

15 Q=16:R=0 34 IF RND(5)=0 R=R+1:IF R=22 END 35 IF X=Q AND Y=R Q=RND(32):R=0 51 LC Q,R:?"D"

捕まえた数をスコアにする

10 X=16:Y=12:S=0 35 IF X=Q AND Y=R Q=RND(32):R=0:S=S+1 42 LC 5,0:?"SCORE:";S

10行、35行はLIST表示して、追記しよう。

画面端にいってしまうとおかしくなるのを防ぐ。左右はループするように、上下はその位置で止まるようにプログラム追加。

21 IF X<0 X=31 22 IF X>31 X=0 31 IF Y<0 Y=0 32 IF Y>21 Y=21

ケイドロの醍醐味、複数のドロからいかにして守るかを表現するために、敵キャラをもう一体出す。

15 Q=16:R=0:T=6:U=0 36 IF RND(5)=0 U=U+1:IF U=22 END 37 IF X=T AND Y=U T=RND(32):U=0:S=S+1 52 LC T,U:?"D"

34行、35行をLISTで表示し、行番号と変数だけを書き換えると楽。
これでケイドロゲームのできあがり！

やってみよう！
- キャラクターを自分好みに変えてみよう。
- 敵が迫ってくる速度を変えてみよう。
- 敵をもう一体追加してみよう。

10 X=16:Y=12:S=0 15 Q=16:R=0:T=6:U=0 20 X=X-BTN(28)+BTN(29) 30 Y=Y-BTN(30)+BTN(31) 21 IF X<0 X=31 22 IF X>31 X=0 31 IF Y<0 Y=0 32 IF Y>21 Y=21 34 IF RND(5)=0 R=R+1:IF R=22 END 35 IF X=Q AND Y=R Q=RND(32):R=0:S=S+1 36 IF RND(5)=0 U=U+1:IF U=22 END 37 IF X=T AND Y=U T=RND(32):U=0:S=S+1 40 CLS 42 LC 5,0:?"SCORE:";S 50 LC X,Y:?"K" 51 LC Q,R:?"D" 52 LC T,U:?"D" 60 WAIT 3 70 GOTO 20

ケイドロ on IchigoJam