福野泰介の一日一創

永平寺開発センターにて、福井県永平寺町のこどもプログラミングのキックオフ！ 越前がにロボコンや、PCNこどもプロコンなど、創造的人材育成に向けた継続的な活動、応援します！

検温・飛沫防止・疎、コロナ対策万全でリアル開催。

なんと、オリジナルイチゴマスクをご用意いただいてました！

今日、仲良くなる予定のコンピューター、IchigoDyhookをさしこみます。

ちっちゃくてかわいいコンピューター、でもその実力はあなどれません！エルチカで仕事の速いコンピューターくんを体験し、コンピューターとの距離がぐっと縮まるエルチカゲーム。

休憩時間は、ドローンのラジコンが人気！ドローンにもコンピューター、姿勢制御しながら無線でコントローラーの動きに応えてます。

作ったゲームが動いた！

10 CLT:CLS:X=15:PLAY"$CDE2" 20 LC X,5:?"V" 30 LC RND(32),23:?"**" 35 WAIT 3 36 X=X-BTN(28)+BTN(29) 37 X=X&31 39 IF SCR(X,5) BEEP:?TICK():END 40 GOTO20

キャラクターを変えて、点数を付けて、BGMとゲームオーバー時の効果音を付けたかわくだりゲーム。

更に、改造リクエストに応えます。

1000点でクリアとしたい！

34 IF TICK()>1000 ?"OME!":END

（メインループ内に、時間＝スコアが1000を超えていたらメッセージ表示と終了を追加）

即死ではなく、ダメージ制にしたい！

10 CLT:CLS:X=15:L=3:PLAY"$CDE2" 39 IF SCR(X,5) BEEP:L=L-1:IF L=0 ?TICK():END

（ライフの残数を表すLを追加し、当たり判定でLを引き算、0になったときだけゲームオーバー）

回復アイテムをつくりたい！

30 LC RND(32),23:IF RND(10)=0 ?"%" ELSE ?"**" 38 IF SCR(X,5)=ASC("%") BEEP5:L=L+1 39 IF SCR(X,5)=ASC("*") BEEP:L=L-1:IF L=0 ?TICK():END

（1/10の確率で敵*ではなくアイテム%を表示するようにして、38行でアイテムだったらライフ+1、敵だったら当たり判定処理と変更）

BGMの音を高くしたい！

10 CLT:CLS:X=15:L=3:PLAY"$O5CDE2"

BGMのテンポを速くしたい！

10 CLT:CLS:X=15:L=3:PLAY"$O5T240CDE2"

BGMのテンポをもっと速くしたい！

10 CLT:CLS:X=15:L=3:PLAY"$O5T2400CDE2"

BGM、ドから高いドまで鳴らしたい！

10 CLT:CLS:X=15:L=3:PLAY"$O5T240CDEFGAB<C"

（<で1オクターブアップ、>で1オクターブダウン）

「IchigoJamミニゲームズ」「IchigoJamプリント」や「IchigoJam BASIC 1.4 コマンド一覧」を見て、いろいろチャレンジしてみよう！

福井市少年少女発明クラブの会長、高橋さんと！

まちづくり株式会社ZENコネクトの方から動画インタビューに受けている様子。いちごづくし。

地域のIT人材育成、IoTによる事業創出、オープンデータによる支援に関心ある自治体の方にオススメのプログラム。まずは大人もプログラミング、体験してDXしましょう！
「地域情報化アドバイザー派遣制度 - 総務省」地域情報化アドバイザー一覧

links
- 神山町、遠隔プログラミングワークショップとPS/2ゲーミングキーボードの実力を計測！（オンライン開催）