SHIROのIchigoJam日記

マイコン「IchigoJam」(イチゴジャム)の電子工作とプログラミングをメインに

人間っぽくよけるかわくだりデモ2

★この記事は「IchigoJam Advent Calendar 2025」に登録しています。

3年前に「人間っぽくよけるかわくだりデモ」プログラムを作ったのですが、ちょっと改造して、時々ミスするようにしました。
プレイ動画はこちら。

www.youtube.com

  • 岩が来るまではまっすぐ進みます。
  • 岩に当たりそうになると左右によけます。が、時々ミスします。
  • しばらく左右に進むとまっすぐに戻ります。

プログラムリスト

10 CLS:CLT:X=16:D=0
20 X=X-D:D=(RND(9)-4)/4
30 IF D && !RND(4) D=0
40 X=X+D:X=X&31
50 IF SCR(X,5) IF RND(10) GOTO 20 ELSE ?TICK()/60:END
60 LC X,5:?"O"
70 WAIT 3
80 Z=RND(32):LC Z,23:?"*";
90 IF Z<31 ?
100 GOTO 30