「PCN仙台 online」
zoomで集合、ブレイクアウト機能で初心者と中級者に分かれてそれぞれレッスン。中級者コースではRPGゲームづくりにチャレンジしてました。触発されて作ってみたものが右下の。元ネタはこどもの頃やっていたMSXでの投稿作品、モノクロームビーナス by TEIJIRO。 （レビュー発見！、ファンダムＲｅｂｏｒｎ-7 - モノクロームビーナス - | 石とＭＳＸ）
RPGづくりのはじめのいっぽ、まずは主人公を登場させて、歩かせ、敵に遭遇したら、どうにかする。ひとつひとつはシンプルなロジック、好きなように積み重ねて、作ってみよう！
IchigoJam用RPG「Beat the Z」のオープンニング画面です。
IchigoJamの遠隔講座や、プログラミング大喜利で便利な、IchigoJam web の小技。フルスクリーンにできるIchigoJam web ですが、停止させるためにESCを押すとウィンドウ表示に戻ってしまいますが、Ctrlを押しながらCを押すとプログラムは止まってもウィンドウ表示はそのままです。
オープンニング画面のプログラムはこちら！
1 CLS:LC10,5:?"Z ヲ タオシテ。。。":WAIT120
シンプルですね！一言加えるだけで、ぐっと遊びやすくなります。
「Beat the Z for IchigoJam」RUN IchigoJam on IchigoJam
おにぎりを食べるとHP全回復。打倒Z目指して、がんばってみてください！意外と悪くないゲームバランスになってます。
プログラム全文
1 CLS:LC10,5:?"Z ｦ ﾀｵｼﾃ｡｡｡":WAIT120 5 CLS 7 FOR I=0 TO 3:LC RND(32),RND(20):?"🍙":NEXT 10 FOR I=0 TO 25:LC RND(32),RND(20):?CHR$(ASC("A")+I):[I]=I+3:NEXT 20 X=15:Y=X:C=X:D=Y:L=1:H=5+L*5:A=3 25 LC X,Y:?CHR$(0):X=C:Y=D:LC X,Y:?"🐱" 26 LC0,21:?"LV:";L;" HP:";DEC$(H,3);" ATK:";A 27 IF H=0 GOTO 300 30 C=X-BTN(28)*(X>0)+BTN(29)*(X<31) 40 D=Y-BTN(30)*(Y>0)+BTN(31)*(Y<19) 50 IF C=X && D=Y GOTO 30 55 E=SCR(C,D):IF E GSB 200 70 GOTO 25 200 IF E=ASC("🍙") GSB500:?"HPｾﾞﾝｶｲﾌｸ!":H=5+L*5:RTN 205 E=E-ASC("A") 210 R=RND(A)+1:GSB500:?R;"ﾉ ﾀﾞﾒｰｼﾞｦ ｱﾀｴﾀ":[E]=[E]-R:LCC,D:?" ":WAIT10:LCC,D:?CHR$(E+ASC("A")):WAIT20 220 IF [E]<0 GSB500:?CHR$(E+ASC("A"));"ｦ ﾀｵｼﾀ!":A=A+2:L=L+1:IF E=25 GOTO400 ELSE RTN 230 R=RND(E+3)+1:GSB500:?R;"ﾉ ﾀﾞﾒｰｼﾞｦ ｸﾗｯﾀ!":LCX,Y:?" ":WAIT10:LCX,Y:?"🐱":WAIT20 240 H=H-R:IF H<0 H=0:RTN 250 C=X:D=Y:RTN 300 LC0,23:?"GAME OVER":END 400 LC10,5:?"ｾｶｲｶﾞ ﾍｲﾜﾆﾅｯﾀ!":WAIT180:END 500 LC0,22:?CHR$(24);:RTN
GSBを使って、機能毎にプログラムを分けてつくるのがコツ！戦闘シーンでアクションゲームにしたり、コマンド選択式にしたりしたい場合、プログラムを分けて、LRUN呼び出しがいいでしょう。
メッセージ表示で使っている技。?CHR$(24) は、IchigoJam用特殊キーコード、カーソルがある行を消せます。ファンクションキーF12と同じ機能。
第10回PCNこどもプロコンの反省会その1もオンライン開催。地球は一つ感ありますね！
PCN鯖江、Hana道場企画「#Hana道場師範チャレンジ」
こどもも大人も、IchigoJamでつくったオリジナルゲーム、大募集！（副賞あり）
#プログラミングして過ごそう！
links
- IchigoJam （1,500円〜買える、こどもパソコンIchigoJam）
- PCN チャンネル - YouTube (動画で学ぼう、プログラミング)
- 高橋名人のIchigoJam入門
Fri Night
