SHIROのIchigoJam日記

IchigoJamの電子工作とプログラミングをメインに

RPG(ロールプレイングゲーム)

シンプルなロールプレイングゲームです。パソコンクラブの教材用に試作しました。

  • 起動すると、自分のキャラ(人間)と、おにぎりが表示されます。おにぎりしかありませんが、世界のマップです(笑)
  • 自分のキャラは上下左右のカーソルキーで移動できます。
  • 歩いていると時々モンスターと出会い、戦闘画面になります。お互いに攻撃をくり返して、モンスターのHPを0以下にすると勝利です。自分のHPが0以下になるとゲームオーバーです。
  • おにぎりをゲットすると、自分のHPが満タン(100)に回復します。

MixJuiceでダウンロードできます。
?"MJ GET comich.net/ichigojam/rpg.txt"

本当は「村人と話す」「モンスターから逃げる」などの機能も作っていたのですが、1kバイトの壁に阻まれて泣く泣く削りました(^_^;)

1 '*RPG
2 CLV:H=100:GSB7:LET[0],64,10,237,20,239,30,240,40,241,50
3 U=X-BTN(LEFT)*(X>0)+BTN(RIGHT)*(X<31):V=Y-BTN(UP)*(Y>0)+BTN(DOWN)*(Y<22):C=SCR(U,V):IFC=235GSB10
4 LCX,Y:?" ":LCU,V:?CHR$(250):IF!RND(40)&&)((X<>U)OR(Y<>V))(GSB12
5 X=U:Y=V:WAIT5:IFH>0GOTO3
6 BEEP30,30:LC0,18:?"GAME OVER":END
7 CLS:LC0,23:?"HP=";H;:GSB8:RTN
8 A=RND(32):B=RND(23):IFSCR(A,B)GOTO8
9 LCA,B:?CHR$(235);:RTN
10 LC10,23:?"オニギリ ゲット";:WAIT90:LC10,23:?" ";
11 H=100:LC0,23:?"HP=";H;:GSB8:RTN
12 CLS:LC10,11:?CHR$(250):LC8,13:?"HP=";H
13 M=RND(5)*2:I=[M+1]+RND(21):LC22,11:?CHR$([M]):LC20,13:?"HP=";I:BEEP30,10:WAIT90
14 LC0,17:?"ユウシャ ノ コウゲキ!":FORJ=1TO3:LC22,11:?"*":BEEP10,5:WAIT5:LC22,11:?CHR$([M]):NEXT:A=RND(H/2):I=I-A:LC23,13:?I;" ":WAIT90
15 LC0,17:?" ":IFI<=0LC0,17:?"モンスター ヲ タオシタ!":BEEP10,30:WAIT90:GSB7:RTN
16 LC0,17:?"モンスター ノ コウゲキ!":FORJ=1TO3:LC10,11:?"*":BEEP30,5:WAIT5:LC10,11:?CHR$(250):NEXT:BEEP30,10:A=RND([M+1]/2):H=H-A:LC11,13:?H;" ":WAIT90
17 LC0,17:?" ":IFH<=0RTN
18 GOTO14