福野泰介の一日一創

今日は運動会。運動とカメラ撮影とプログラミングを楽しみました。IchigoJamの新しい良い点発見。砂埃を気にしなくていい！
Today is sports day. I enjoyed excercising, photo shooting and programming! I found a good point of IchigoJam. I don't worry about dust.

横スクロールシューティングゲーム「HELI SHOOT」
襲いかかる宇宙人を避けつつ、可能な限り生き延びるゲーム。スペースで打てるミサイルは5発のみ。時々でてくるアイテムで補充が可能。だんだんスピードと敵出現頻度がアップする。
Horizontal scroll shooting game "HELI SHOOT"
The game to avoid invaders. You can shoot 5 missiles to defeat the enemy.

1 'HELI-SHOOT 10 CLS:Y=3 20 LC 0,Y:?CHR$(243) 30 IF RND(10)=0 LC 15,RND(7):?CHR$(237); 33 K=INKEY() 35 Y=Y-(K=30)*(Y>0)+(K=31)*(Y<6) 40 WAIT 5 50 SCROLL LEFT 55 IF !SCR(0,Y) GOTO 20

はじめのいっぽの人気ゲーム「かわくだり」から横スクロールへの発展例
An example to make horizontal scroll shooting game.

1 'HELI-SHOOT 10 CLS:Y=3:X=0:P=0:M=5:CLT 15 FOR I=0 TO M-1:LCI,7:?CHR$(245);:NEXT 20 LC 0,Y:?CHR$(243) 30 IF RND(10-TICK()/60)=0 LC 15,RND(7):IF RND(16)=0 ?CHR$(245);ELSE?CHR$(237); 31 IF M LC M-1,7:?CHR$(245); 32 IF X GSB200 33 K=INKEY() 35 Y=Y-(K=30)*(Y>0)+(K=31)*(Y<6) 40 WAIT 5-TICK()/600 43 IF M IF X=0 IF K=32 M=M-1:X=1:Z=Y 50 SCROLL LEFT 55 H=SCR(0,Y):IF H=245 M=M+1:LC0,M:?CHR$(245);:H=0 56 IF !H GOTO 20 100 LC0,7:?"SCORE:";TICK()/60:END 200 Q=(SCR(X+1,Z)!=0)+(SCR(X+2,Z)!=0) 205 LC X,Z:?CHR$(0,0);:X=X+1:IF Q OR X>14 X=0:P=P+Q ELSE ?"=";:RTN 210 IF Q ?CHR$(0):Q=0 220 RTN

いろいろ要素を加えた完成形。Completed version.

*CHR$(245) = item to add missile ミサイル補充アイテム
*CHR$(243) = helicopter ヘリ
*CHR$(237) = invader うちゅうじん

もっと子供と触れ合うためには、GPSとか使った大きな遊びが必要。
I'll make new plays with GPS to spread fun of programming to kids.