【プチコン講座】ステータスウィンドウを実装してみよう
こんにちは。継続の錬金術士なおキーヌです。
ブログ毎日更新は147日目になります。
前回「【プチコン講座】ウィンドウ生成を関数化＆宝箱イベントを完成させよう」でようやく宝箱イベントを完成させることができました。
更に、ウィンドウを関数化したので自由にウィンドウを生成することが出来るようになっています！
今回はXボタンを押したらステータス画面を表示できるようにしていきましょう。
プレイヤーのステータスは既に配列として作成しているので、
それをウィンドウに描写するだけなので結構簡単だと思います。
それではプチコンでRPG作り第19回目を始めましょう。
ウィンドウ生成関数を使ってみよう
ウィンドウ関数を作ったので一回自由にウィンドウを表示してみましょう。
「D_WINDWOW_DRAW」関数をループ開始前に適当につかってみてください。
ウィンドウを好きな所に好きな大きさで表示できれば問題ないです。
D_WINDWOW_DRAW 0, 0, 50,50
D_WINDWOW_DRAW 100, 0, 50,300
D_WINDWOW_DRAW 50, 100, 100,20
実行すると好き勝手にウィンドウが開いている状態になっていると思います。
しかし、ちょっと設計ミスかもしれません。
左上の基準値が背景の左上になっていて、フレームを考慮していない状態になっています。
気になる人は関数を修正してみてください。
1つ基準値を変えれば全部変わってくれると思います。
ゲーム作りの進行にはあまり影響しないので私はこのまま進めます。
ステータスウィンドウをどう作るか考えてみよう
本来のRPGならメニュー画面を開いてからステータスなのですが、
今作っている1画面RPGは特にメニューはないのでステータス画面だけにします。
正直あまり見る意味もないのですが、一応RPG作成講座なので今後のためにも作っておこうと思います。
実は大半の構築は前回までで終わっているのであとはウィンドウを描写して、
保持しているステータスをウィンドウに描写するだけです。
問題はどこに表示するかなのですが、これは好きな所で構いません。
ステータス画面を開いている時は、メッセージウィンドウが開いている時と同じで
別シーンという扱いにした方が良いでしょう。
メニューを開いている時に動ける状態では都合が悪かったりするので止めておくのがベターです。
メニューを開いていても動くリアルタイムなゲームであればいいかもしれませんが、
大半のRPGでそれをやってしまうとユーザーのストレスになってしまいます。
ゲーム実況にするなら面白いかもしれませんが、普通にRPGをプレイするうえで
ステータス画面を開いている時にゲームが進行し続けているのはストレスにしかなりません。
ステータス画面描写の座標を決める
好きな所でいいと言ったものの初心者の方は戸惑うかと思うので、
ドラクエ1のステータスを参考にステータスウィンドウを作ってみましょう。
なのでステータスウィンドウを開くときに呼ばれる関数を作って、
その中で文字を描写するという形がスマートだと思います。
Xボタンが押されたらその関数を呼び出せばいいだけですからね。
それではウィンドウの座標を決めてしまいましょう。
VAR G_WINDOW_SIZES_LEN = 8
# ウィンドウサイズ用
@WINDOWSIZE
DATA 80,150,240,58, 10,10,112,77
# ステータスウィンドウ描写
DEF D_STATUS_WINDOW_DRAW
D_WINDWOW_DRAW G_WINDOW_SIZES[4], G_WINDOW_SIZES[5], G_WINDOW_SIZES[6], G_WINDOW_SIZES[7]
END
ウィンドウサイズのデータにステータスウィンドウの座標と大きさを追加して、
ウィンドウサイズの配列の長さを8にしておきます。
そして、新たに「D_STATUS_WINDOW_DRAW」という関数を作って
その中でウィンドウを生成して先ほど作った座標を渡します。
一度関数を実行して左上のいい感じの位置にウィンドウがきていればOKです。
ステータスウィンドウにステータスを描写しよう
ウィンドウが用意できたので次は実際にステータスをウィンドウに描写してみましょう。
やることはメッセージ表示と殆ど同じでかなり簡単です。
既にプレイヤーステータスとして用意している配列「G_PLAYER_STATUS」から、
値を取り出してステータスウィンドウに描写します。
その前に、まずは一番数値が大きい時の状態で表示位置を決めたいので
まずはリテラルで文字を打ち込んで文字位置を調整しましょう。
後、グローバル配列を書くとプチコンエディタでは見にくくなるので、
ローカル配列を作って見やすくしましょう。
その前に、システムワードを少し変更します。
STRやらDEFになってたと思うので、順番とひらがなを変更してみました。
後、ポーションの数である「ヶ」は別に要らないかなと判断しました。
これも好みの問題なので会った方が良いという人は付けてみても大丈夫です。
先頭の「STATUS」はリテラルで問題ないと思うので一旦省きます。
「NEXT」も スラッシュで区切るので消しました。
@SYSTEMWORD
DATA "STATUS", "ポーション", "ヶ", "Lv", "HP", "STR", "DEF", "AGI", "EXP", "NEXT"
↓
@SYSTEMWORD
DATA "Lv", "HP", "こうげき", "ぼうぎょ", "すばやさ", "けいけんち", "ポーション"
これに伴いシステムワードの数も変更しておきました。
VAR G_SYSTEM_WORDS_LEN = 7それではまずはリテラルでステータスの最大値を表示してみましょう！
# ステータスウィンドウ描写
DEF D_STATUS_WINDOW_DRAW
# ローカル配列定義
DIM WS[0]
# グローバル配列の参照を格納
WS = G_WINDOW_SIZES
# ウィンドウの描写
D_WINDWOW_DRAW WS[4], WS[5], WS[6], WS[7]
# ステータス文字の描写
GPUTCHR WS[4]+5, WS[5]+5, "Ｌv : 99"
GPUTCHR WS[4]+5, WS[5]+15, "ＨＰ : 99/99"
GPUTCHR WS[4]+5, WS[5]+25, "こうげき : 99"
GPUTCHR WS[4]+5, WS[5]+35, "ぼうぎょ : 99"
GPUTCHR WS[4]+5, WS[5]+40, "すばやさ : 99"
GPUTCHR WS[4]+5, WS[5]+55, "けいけんち:999/999"
GPUTCHR WS[4]+5, WS[5]+65, "ポーション: 99"
END
まずはこれで一回表示してみましょう。
いい感じにステータスウィンドウが出来上がったのではないでしょうか？
ステータス文字描写の部分、一定の規則性があると思うので
これをリライトしてみましょう。
# ステータスウィンドウ描写
DEF D_STATUS_WINDOW_DRAW
~~~省略~~~
# ステータス文字の描写
FOR G_I = 0 TO LEN(G_SYSTEM_WORDS_LEN)-1
VAR STATUS = ""
IF G_I == 0 THEN
STATUS = "Ｌv : 99"
ELSEIF G_I == 1 THEN
STATUS = "ＨＰ : 99/99"
ELSEIF G_I == 2 THEN
STATUS = "こうげき : 99"
ELSEIF G_I == 3 THEN
STATUS = "ぼうぎょ : 99"
ELSEIF G_I == 4 THEN
STATUS = "すばやさ : 99"
ELSEIF G_I == 5 THEN
STATUS = "けいけんち:999/999"
ELSEIF G_I == 6 THEN
STATUS = "ポーション: 99"
ENDIF
# 実際のステータスの描写
GPUCHR WS[4]+5, WS[5]+5 + (G_I*10), STATUS
NEXT
END
……なんか逆に長くなった感じがします。
同じ感じに描写できていれば、次はこれを変数に置き換えてみましょう。
まずは空白無しで変数同士をコロンで挟んで表示してみます。
# ステータスウィンドウ描写
DEF D_STATUS_WINDOW_DRAW
~~~省略~~~
# ステータス文字の描写
VAR STATUS = ""
FOR G_I = 0 TO G_SYSTEM_WORDS_LEN-1
IF G_I == 0 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[0])
ELSEIF G_I == 1 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[1])+"/"+STR$(G_PLAYER_STATUS[2])
ELSEIF G_I == 2 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[3])
ELSEIF G_I == 3 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[4])
ELSEIF G_I == 4 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[5])
ELSEIF G_I == 5 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[6])+"/999"
ELSEIF G_I == 6 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[7])
ENDIF
# 実際のステータスの描写
GPUCHR WS[4]+5, WS[5]+5 + (G_I*10), STATUS
NEXT
END
経験値のレベルアップテーブルはまだ用意していないので一旦999にでもしておいてください。
このまま最大値を表記しててもいいし、NEXT値にしてもいいです。好きな方で。
これを決めるのはゲーム完成前ぐらいでいいかと思います。
バランス調整もありますからね。
さて、描写してみましょう。
……いい感じにステータスを描写できましたが、ズレまくっているのが気になります。
コロンは揃えたいところですね。
プチコンというかプログラミング言語にには文字列の数を数える機能があります。
合計の文字数が満たない場合は空白を入れて調整するという関数を作っておいて、
いい感じにレイアウトをそろえるのがいいですが、今は面倒なので手動でやりましょう。
たぶん上手くやればこの分岐をずらーって書いているところを２・３行で書けそうです。
ですが今のところゲームシステムに影響はない場所なので最適化はせずに進めます。
もしレイアウトが気になる人は整えてみてください。
数値の桁を合わせたり結構面倒ですが、プログラミングの訓練になります。
ここの最適化はまた別の記事を1つ設けてそこでやろうかなとおもいました。
とりあえず関数の完成版コードを載せておきます。
# ステータスウィンドウ描写
DEF D_STATUS_WINDOW_DRAW
# ローカル配列定義
VAR STATUS = ""
DIM WS[0]
# グローバル配列の参照を格納
WS = G_WINDOW_SIZES
# ウィンドウの描写
D_WINDWOW_DRAW WS[4], WS[5], WS[6], WS[7]
# ステータス文字の描写
FOR G_I = 0 TO G_SYSTEM_WORDS_LEN-1
# ステータス文字の描写準備
IF G_I == 0 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[0])
ELSEIF G_I == 1 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[1])+"/"+STR$(G_PLAYER_STATUS[2])
ELSEIF G_I == 2 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[3])
ELSEIF G_I == 3 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[4])
ELSEIF G_I == 4 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[5])
ELSEIF G_I == 5 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[6])+"/999"
ELSEIF G_I == 6 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[7])
ENDIF
# 実際のステータスの描写
GPUCHR WS[4]+5, WS[5]+5 + (G_I*10), STATUS
NEXT
END
ステータス画面の開閉をできるようにしよう
ステータスの描写が出来たので、Xボタンを押して開閉できるようにしてみましょう。
まずはシーンのことは気にせずボタンを押したら開く・もう一度押したら閉じる関数を作ってみましょう。
VAR G_STATUS_FLAG = FALSE
DEF D_STATUS_WINDOW_TOGGLE
# フラグを反転させる
G_STATUS_FLAG = NOT G_STATUS_FLAG
# フラグによって開くか閉じるかを決める
IF STATUS_FLAG THEN
D_STATUS_WINDOW_DRAW
ELSE
GCLS
ENDIF
END
この関数を1回呼べば開いて、もう一度呼べば閉じます。
「D_STATUS_WINDOW_TOGGLE」をマップのXキーを押したときに呼び出してみましょう。
現状、起動したときにウィンドウを表示している状態になっているのでそれを消して下記に変更します。
# マップ用コントローラー関数
DEF D_CTRL_MAP_MODE
~~~ 省略 ~~~
IF G_BTN_PRESS_COUNT[6] == 1 THEN
PRINT "Xボタンが押されたよ！"
D_STATUS_WINDOW_TOGGLE
ENDIF
END
実行してみて、マップを移動中にXキーを押せば開くようになります。
あれ……意外とこのままでもいい気がしてきました。
ウィンドウの透明度をあげれば邪魔になりませんし意外とこのままでもいいかもしれません。
が、このままだとメッセージイベントが終わったらフラグが切り替わらないままステータス画面も消えてしまうので、
ステータスシーンは別途作っていきます。
ステータスシーンを作ろう
もうステータス画面を表示非表示が出来てしまったので、あとは専用のシーンを作るだけですね。
現状、マップモードでXボタンを押すと表示非表示が出来る状態になっていると思います。
それをシーン切り替えにしてフラグをステータスシーンのモノにしてみましょう。
# シーンの大元
DEF SCENE_PARENT
IF G_SCENE_FLAG == 0 THEN
D_CTRL_MAP_MODE
ELSEIF G_SCENE_FLAG == 1 THEN
IF G_EV_Q_FLAG == 0 THEN
D_SHIFT_EV_DATA
ELSEIF EV_Q_FLAG == 1 THEN
D_EV_STOP_A_BTN
ENDIF
ELSEIF G_SCENE_FLAG == 2 THEN
D_STATUS_MODE
ENDIF
D_BTN_PRESS
END
# マップ用コントローラー関数
DEF D_CTRL_MAP_MODE
~~~ 省略 ~~~
IF G_BTN_PRESS_COUNT[6] == 1 THEN
PRINT "Xボタンが押されたよ！"
G_SCENE_FLAG = 2
ENDIF
END
# ステータスフラグ反転
DEF D_STATUS_WINDOW_TOGGLE
# フラグを反転させる
G_STATUS_FLAG = NOT G_STATUS_FLAG
# フラグによって開くか閉じるかを決める
IF STATUS_FLAG THEN
D_STATUS_WINDOW_DRAW
ELSE
# グラフィック全消去
GCLS
# シーンを元に戻す
G_SCENE_FLAG = 0
ENDIF
END
# ステータスモード
DEF D_STATUS_MODE
# 初回にステータスウィンドウフラグをONにしておく
IF NOT G_STATUS_FLAG THEN
D_STATUS_WINDOW_TOGGLE
ENDIF
# Xボタン監視
IF G_BTN_PRESS_COUNT[6] == 1 THEN
D_STATUS_WINDOW_TOGGLE
ENDIF
END
実行してみましょう。
移動中にXキーを押すとグリッド移動中でもプレイヤーが止まってメニューが表示されます。
そして話すと移動が再開します。
現在ポーションの値が１になっているので、宝箱を開いてポーションを獲得してみましょう。
そしてもう一度ステータスを開いてポーションの数が2になっていれば完璧です！
──次回からついにバトルシステムを構築していきます。
いきなりアクロバティックな動きがあるような戦闘シーンを作ることは難しいので、
かなりシンプルなバトルにするつもりです。
javascript版はキーを押して攻撃か回復かを選ぶターン性だったのですが、
プチコンではちょっとATB風のバトルを予定しています。
メーターが溜まったら攻撃を選択できる状態にします。
ターン性よりは作る難易度があがってしまいますが、
まったく同じことをやっていても私自信が成長しないのチャレンジします。
私が書くゲーム制作講座は過去の私のための講座です。
こんな講座があったらいいのになっていう講座にしあげていっています。
なのでチャレンジします。
最後に恒例のソースコードを貼っておきます。
流石にコードがかなり長くなってきましたね……
しかしバトルイベントが構築出来たらもうすぐ完成は見えてきます。
最後の踏ん張りどころなので頑張りましょう！
それでは。
ACLS
#------------------
# 変数定義
#------------------
VAR G_STOP_FLAG = TRUE # ゲームループフラグ
VAR G_I # 汎用変数
# シーンフラグ
VAR G_SCENE_FLAG = 0
VAR G_STATUS_FLAG = FALSE
# イベント用
VAR G_EV_Q_FLAG = 0 # イベントキューがあるかどうか
DIM G_EV_ID[32] # イベント用情報の配列(初回DATA読み込み用)
VAR G_EV_ID_NOW = 0 # 現在のイベントナンバー
VAR G_EV_STEP = 4 # 1つのイベントデータ数
DIM G_EV_QUEUE[0] # イベントキュー配列
# プレイヤー用
VAR G_PLAYER_NAME$ = ""
VAR G_PLAYER_STATUS_LEN = 8
DIM G_PLAYER_STATUS[0]
# ウィンドウサイズ用
VAR G_WINDOW_SIZES_LEN = 8
DIM G_WINDOW_SIZES[0]
# アイテム名用
VAR G_ITEMS_NAMES_LEN = 2
DIM G_ITEMS_NAMES[0]
# システムワード
VAR G_SYSTEM_WORDS_LEN = 7
DIM G_SYSTEM_WORDS[0]
# 敵用
VAR G_ENEMY_NAMES_LEN = 5
DIM G_ENEMY_NAMES[0]
# メッセージ用
VAR G_MSG_DATAS_LEN = 4
DIM G_MSG_DATAS[0]
# ボタン分の配列を用意
DIM G_BTN_PRESS_COUNT[13] # 全ボタンカウント配列
FILL G_BTN_PRESS_COUNT,0 # 一応定義したボタン配列を0で初期化しておく
# BG関連
VAR G_OX = 0, G_OY = 0 # ＢＧ読み込みのオフセット
VAR G_SZ=16, G_MW, G_MH # チップサイズ、マップ幅、マップ高さ
VAR G_BGW = CEIL(400/G_SZ), G_BGH = CEIL(240/G_SZ) # BG読み込み準備
DIM G_MAP[0] # マップレイヤー4枚＋イベントレイヤー分
# スプライト用
VAR G_SP_PLAYER = 0 # PLAYERスプライトNo.
DIM G_SP_ANIM_NO[9] # スプライトアニメーション初期値変数 添え字＝ID
#------------------
# データベース定義
#------------------
# 開始時に読み込むDATA軍（ラベル付けたほうが安全かもしれない
DATA 500,1040,920,1000,980,1020,269,269,269
DATA 1,5,5,2, 2,23,13,2, 3,4,11,2, 4,13,3,2, 5,22,4,2
DATA 6,6,7,1, 7,3,11,1, 8,22,3,1
# 宝箱イベントデータ
@EVENT006
DATA 7, 10,95,400 3,1,268 2,0,1 1,1,0, 10,12,0 1,2,0, 0,1,1
@EVENT006_1
DATA 2, 1,3,0, 0,0,0
# プレイヤー初期ステータス
@PLAYER_INIT_STATUS
DATA 1,20,20,3,2,3,0,1
# ウィンドウサイズ用
@WINDOWSIZE
DATA 80,150,240,58, 10,10,112,77
# ステータスウィンドウ用ワード
@SYSTEMWORD
DATA "Lv", "HP", "こうげき", "ぼうぎょ", "すばやさ", "けいけんち", "ポーション"
# アイテム名リスト
@ITEMDATA
DATA "ライフポーション", "せいすい"
# モンスター名リスト
@ENEMYNAME
DATA "リトルバット", "ゴブリン", "スケルトン", "マミー", "ゴースト"
# 定型文リスト
@MESSAGEDATA
DATA "は たからばこを あけた", "たからばこ には", "が はいっていた！", "からっぽ！"
# アニメーション配列初期値代入
D_FIRST_DATA_READ G_SP_ANIM_NO
# イベントID,X座標,Y座標代入
D_FIRST_DATA_READ G_EV_ID
# マップデータ準備
LOAD "DAT:TEST", G_MAP, 0 # マップデータのロード
G_MW = SHIFT(G_MAP) # 読み込んだデータ配列の0個目を配列から切り離して取得(1638415という数字が入ってる)
G_MH = G_MW AND &HFFFF : G_MW = G_MW >> 16 AND &HFFFF # 取り出したデータからシフト演算やらビット演算をする
# マップデータ描写
FOR G_I=0 TO 3
BGSCREEN G_I, G_BGW, G_BGH, G_SZ # 1画面分のＢＧ
BGOFS 0,0,4-G_I
BGLOAD I, -G_OX, ( -G_OY - ( G_I * G_MH )), G_MW, G_MH * ( G_I + 1 ), G_MAP # マップ描写
NEXT
# プレイヤー配置
D_SP_SETUP G_SP_PLAYER, 1, 0
# イベント配置
FOR G_I=0 TO LEN(G_EV_ID)-1 STEP G_EV_STEP
D_SP_SETUP G_EV_ID[G_I], G_EV_ID[G_I+1], EV_ID[G_I+2]
NEXT
# 各種データの読み込み
D_DB_LOAD 0, G_PLAYER_STATUS_LEN, G_PLAYER_STATUS
D_DB_LOAD 1, G_SYSTEM_WORDS_LEN, G_SYSTEM_WORDS
D_DB_LOAD 2, G_ITEM_NAMES_LEN, G_ITEM_NAMES
D_DB_LOAD 3, G_ENEMY_NAMES_LEN, G_ENEMY_NAMES
D_DB_LOAD 4, G_MSG_DATAS_LEN, G_MSD_DATAS
# グラフィック画面を一番手前に
GPRIO 0
# ゲームループ
WHILE G_STOP_FLAG
D_SCENE_PARENT
VSYNC 1
WEND
# シーンの大元
DEF SCENE_PARENT
IF G_SCENE_FLAG == 0 THEN
D_CTRL_MAP_MODE
ELSEIF G_SCENE_FLAG == 1 THEN
IF G_EV_Q_FLAG == 0 THEN
D_SHIFT_EV_DATA
ELSEIF EV_Q_FLAG == 1 THEN
D_EV_STOP_A_BTN
ENDIF
ELSEIF G_SCENE_FLAG == 2 THEN
D_STATUS_MODE
ENDIF
D_BTN_PRESS
END
# マップ用コントローラー関数
DEF D_CTRL_MAP_MODE
IF SPVAR(SP_PLAYER, 2) != 1 THEN
VAR B = BUTTON()
IF (B AND #UP) > 0 THEN
IF D_CHECK_COLLISION(G_SP_PLAYER, #UP) == 1 THEN
D_DIRECTION_MOVE SP_PLAYER, #UP
ENDIF
ELSEIF (B AND #DOWN) > 0 THEN
IF D_CHECK_COLLISION(G_SP_PLAYER, #DOWN) == 1 THEN
D_DIRECTION_MOVE SP_PLAYER, #DOWN
ENDIF
ELSEIF (B AND #LEFT) > 0 THEN
IF D_CHECK_COLLISION(G_SP_PLAYER, #LEFT) == 1 THEN
D_DIRECTION_MOVE SP_PLAYER, #LEFT
ENDIF
ELSEIF (B AND #RIGHT) > 0 THEN
IF D_CHECK_COLLISION(G_SP_PLAYER, #RIGHT) == 1 THEN
D_DIRECTION_MOVE SP_PLAYER, #RIGHT
ENDIF
ENDIF
ELSE
D_GRID_MOVE SP_PLAYER, (SPVAR SP_PLAYER, 3)
ENDIF
# 移動中もボタンを押せるようにしておく
IF G_BTN_PRESS_COUNT[4] == 1 THEN
PRINT "Aボタンが押されたよ！"
D_EV_CHECK G_SP_PLAYER SPVAR(G_SP_PLAYER, 3)
ENDIF
IF G_BTN_PRESS_COUNT[6] == 1 THEN
PRINT "Xボタンが押されたよ！"
G_SCENE_FLAG = 2
ENDIF
END
# 向きと移動フラグを設定
DEF D_DIRECTION_MOVE A_SPRITE_NO, A_SPRITE_DIRECTION
SPVAR A_SPRITE_NO, 2, 1
SPVAR A_SPRITE_NO, 3, A_DIRECTION
END
# 向いている方向に止まるまで歩き続ける(グリッド移動)
DEF D_GRID_MOVE SPRITE_NO, SPRITE_DIRECTION
# 渡されたスプライトと向きによって移動方向を決定
IF SPRITE_DIRECTION == #UP THEN
SPVAR SPRITE_NO, 1, (SPVAR SPRITE_NO, 1) - 1
ELSEIF SPRITE_DIRECTION == #DOWN THEN
SPVAR SPRITE_NO, 1, (SPVAR SPRITE_NO, 1) + 1
ELSEIF SPRITE_DIRECTION == #LEFT THEN
SPVAR SPRITE_NO, 0, (SPVAR SPRITE_NO, 0) - 1
ELSEIF SPRITE_DIRECTION == #RIGHT THEN
SPVAR SPRITE_NO, 0, (SPVAR SPRITE_NO, 0) + 1
ENDIF
# 移動させる
SPOFS SPRITE_NO,(SPVAR SPRITE_NO, 0),(SPVAR SPRITE_NO, 1)
# 割った余りが0になったら動きを止める
IF (SPVAR SPRITE_NO, 0) MOD G_SZ == 0 && (SPVAR G_SPRITE_NO, 1) MOD G_SZ == 0 THEN
SPVAR G_SPRITE_NO, 2, 0
ENDIF
END
# ドット座標からグリッド座標に変換
DEF D_GET_GRID_XY(A_X_OR_Y)
RETURN A_X_OR_Y / G_SZ
END
# MAP配列のどこにいるかチェック
DEF D_GET_MAP_POSITION(A_X, A_Y, A_LAYER)
VAR RETURN_POS = 0
VAR GRID_X = D_GET_GRID_XY(A_X)
VAR GRID_Y = D_GET_GRID_XY(A_Y)
VAR PULS_LAYER = (G_MW * G_MH) * A_LAYER
IF A_Y <= 0 THEN
RETURN_POS = GRID_X + PLUS_LAYER
ELSE
RETURN_POS = (GRID_X + (GRID_Y * G_MW)) + PLUS_LAYER
ENDIF
RETURN RETURN_POS
END
# 当たり判定チェック
DEF D_CHECK_COLLISION(A_NO, A_DIRECTION)
VAR MP1_SUM_POS = 0
VAR EV_SUM_POS = 0
VAR DIRECT = D_GET_DIRECT_POINT(A_DIRECTION)
VAR MAP_POS = D_GET_MAP_POSITION(SPVAR(A_NO,0), SPVAR(A_NO,1), 1)
VAR EVENT_POS = D_GET_MAP_POSITION(SPVAR(A_NO,0), SPVAR(A_NO,1), 3)
MP1_SUM_POS = MAP_POS + DIRECT
EV_SUM_POS = EVENT_POS + DIRECT
IF G_MAP[MP1_SUM_POS] == 0 THEN
IF G_MAP[EV_SUM_POS] == 0 THEN
D_EV_LAYER_REWRITE A_NO, A_DIRECTION, 1
RETURN 1
ELSE
RETURN 0
ENDIF
ELSE
RETURN 0
ENDIF
END
# スプライトセットアップ
DEF D_SP_SETUP A_NO, A_X, A_Y
VAR F = 20
VAR ANIM = G_SP_ANIM_NO[A_NO]
SPSET A_NO ANIM
SPVAR A_NO 0, G_SZ * A_X
SPVAR A_NO 1, G_SZ * A_Y
SPVAR A_NO 2, 0
SPVAR A_NO 3, #DOWN
SPOFS A_NO SPVAR(A_NO,0), SPVAR(A_NO,1),1
D_EV_LAYER_REWRITE A_NO, 0, 1
IF A_NO == 0 || G_EV_ID[(G_EV_STEP * A_NO)-1] == 2 THEN
SPANIM A_NO, "I", F,ANIM, F,ANIM+1, F,ANIM+2, F,ANIM+3, 0
ENDIF
END
# イベントレイヤー書き換え
DEF D_EV_LAYER_REWRITE A_NO, A_DIRECT, A_FLAG
VAR POS = D_GET_MAP_POSITION(SPVAR(A_NO,0), SPVAR(A_NO,1), 3)
IF A_FLAG > 0 THEN
IF A_DIRECT > 0 THEN
VAR AFTER_POS = POS + D_GET_DIRECT_POINT(A_DIRECT)
G_MAP[AFTER_POS] = A_NO
ELSE
G_MAP[POS] = A_NO
ENDIF
ELSE
VAR BEFORE_POS = POS - D_GET_DIRECT_POINT(A_DIRECT)
G_MAP[BEFORE_POS] = 0
ENDIF
END
# 方向定数から1歩前のグリッド座標を得るための値を得る
DEF D_GET_DIRECT_POINT(A_DIRECTION)
IF A_DIRECTION == #UP THEN
RETURN DIRECT = -MW
ELSEIF A_DIRECTION == #DOWN THEN
RETURN DIRECT = MW
ELSEIF A_DIRECTION == #LEFT THEN
RETURN DIRECT = -1
ELSEIF A_DIRECTION == #RIGHT THEN
RETURN DIRECT = 1
ENDIF
END
# DATA初期読み込み
DEF D_FIRST_DATA_READ A_ARRAY
FOR G_I=0 TO LEN(G_EV_ID)-1
VAR N=0: READ N
G_EV_ID[G_I] = N
NEXT
END
# ボタンカウント関数
DEF D_BTN_PRESS_COUNT
VAR B = BUTTON()
# Aボタンカウント
IF (B AND #A) > 0 THEN
IF G_BTN_PRESS_COUNT[4] < 255 THEN
INC G_BTN_PRESS_COUNT[4]
ENDIF
ELSE
# 1回でも離されたらカウントリセット
G_BTN_PRESS_COUNT[4] = 0
ENDIF
# Xボタンカウント
IF (B AND #X) > 0 THEN
IF G_BTN_PRESS_COUNT[6] < 255 THEN
INC G_BTN_PRESS_COUNT[6]
ENDIF
ELSE
# 1回でも離されたらカウントリセット
G_BTN_PRESS_COUNT[6] = 0
ENDIF
END
# 前方のイベントをチェックする
DEF D_EV_CHECK A_NO A_DIRECT
VAR POS = D_GET_MAP_POSITION(SPVAR(A_NO,0), SPVAR(A_NO,1), 3)
VAR AFTER_POS = POS + D_GET_DIRECT_POINT(A_DIRECT)
VAR EV_ID = G_MAP[AFTER_POS]
D_GET_EV_DATA EV_ID
END
# イベントリストからイベントキューへ挿入
DEF D_GET_EV_DATA A_ID
VAR EV_COUNT = 0
VAR EV_DATA = 0
IF A_ID == 6 THEN
IF SPVAR(A_ID, 4) == 0 THEN
RESTORE @EVENT006
ELSEIF SPVAR(A_ID, 4) == 1 THEN
RESTORE @EVENT006_1
ENDIF
READ EV_COUNT
FOR G_I=1 TO (EV_COUNT * 3)-1
READ EV_DATA
PUSH G_EV_QUEUE, EV_DATA
NEXT
ENDIF
IF LEN(G_EV_QUEUE) > 0 THEN
G_EV_ID_NOW = A_ID
G_SCENE_FLAG = 1
ENDIF
END
# イベントキュー取り出し
DEF D_SHIFT_EV_DATA
VAR TYPE = SHIFT(G_EV_QUEUE)
VAR EVENT = SHIFT(G_EV_QUEUE)
VAR RESERVE = SHIFT(G_EV_QUEUE)
IF TYPE== 0 THEN
IF EVENT == 1 THEN
SPVAR G_EV_ID_NOW, 4, RESERVE
ENDIF
ELSEIF TYPE == 1 THEN
GCLS
D_WINDOW_DRAW G_WINDOW_SIZES[0], G_WINDOW_SIZES[1], G_WINDOW_SIZES[2], G_WINDOW_SIZES[3]
D_MSG_DRAW G_WINDOW_SIZES[0], G_WINDOW_SIZES[1], EVENT RESERVE
G_EV_Q_FLAG = 1
ELSEIF TYPE == 2 THEN
IF EVENT == 1 THEN
PRINT "ポーションのかず：" + STR$(G_PLAYER_STATUS[7])
INC G_PLAYER_STATUS[7], RESERVE
PRINT "ポーションのかず：" + STR$(G_PLAYER_STATUS[7])
ENDIF
ELSEIF TYPE == 3 THEN
IF EVENT == 1 THEN
SPSET G_EV_ID_NOW, RESERVE
ENDIF
ELSEIF TYPE == 10 THEN
BEEP EVENT, RESERVE
ENDIF
IF LEN(G_EV_QUEUE) <= 0 THEN
GCLS
G_SCENE_FLAG = 0
ENDIF
END
# ウィンドウクリエイター
DEF D_WINDOW_DRAW A_X, A_Y, A_W, A_H
# カラー配列を定義
VAR WC_BACK = RGB(0, 21, 151) # 背景色
VAR WC_FRAME = RGB(128,126,129) # フレーム色
VAR WC_HIGHLITE = RGB(255,255,255) # ハイライト色
# 右下を計算
VAR EX = A_W + A_X
VAR EY = A_H + A_Y
# 背景描写(塗りつぶし有り矩形)
GFILL A_X, A_Y, EX, EY, WC_BACK
# 矩形フレーム描写(塗りつぶし無し矩形)
GBOX A_X-1, A_Y-1, EX+1, EY+1, WC_FRAME
GBOX A_X-2, A_Y-2, EX+2, EY+2, WC_FRAME
GBOX A_X-3, A_Y-3, EX+3, EY+3, WC_FRAME
# ハイライトの角の部分(点)
GPSET A_X-2, A_Y-2, WC_HIGHLITE
GPSET A_X-2, EY+2, WC_HIGHLITE
GPSET EX+2, A_Y-2, WC_HIGHLITE
GPSET EX+2, EY+2, WC_HIGHLITE
# ハイライトとフレームの直線部分
GLINE A_X-3, A_Y-1, A_X-3, EY+1, WC_HIGHLITE
GLINE A_X-4, A_Y-1, A_X-4, EY+1, WC_FRAME
GLINE EX+3, A_Y-1, EX+3, EY+1, WC_HIGHLITE
GLINE EX+4, A_Y-1, EX+4, EY+1, WC_FRAME
GLINE A_X-1, A_Y-3, EX+1, A_Y-3, WC_HIGHLITE
GLINE A_X-1, A_Y-4, EX+1, A_Y-4, WC_FRAME
GLINE A_X-1, EY+3, EX+1, EY+3, WC_HIGHLITE
GLINE A_X-1, EY+4, EX+1, EY+4, WC_FRAME
END
# メッセージ送り用
DEF D_EV_STOP_A_BTN
IF G_BTN_PRESS_COUNT[4] == 1 THEN
G_EV_Q_FLAG = 0
ENDIF
END
# メッセージイベント
DEF D_MSG_DRAW A_X, A_Y, A_EVENT A_RESERVE
IF A_EVENT == 1 THEN
GPUTCHR A_X+5, A_Y+5, "プレイヤー" + G_MSG_DATAS[0]
ELSEIF A_EVENT == 2 THEN
GPUTCHR A_X+5, A_Y+5, G_MSG_DATAS[1] + G_ITEMS_NAMES[A_RESERVE] + G_MSG_DATAS[2]
ELSEIF A_EVENT == 3 THEN
GPUTCHR A_X+5, A_Y+5, G_MSG_DATAS[3]
ENDIF
END
# データベースローダー
DEF D_DB_LOAD A_ID, A_LEN, A_ARY
IF A_ID == 0 THEN
VAR ARY_WORD = 0
ELSE
VAR ARY_WORD = ""
ENDIF
IF A_ID == 0 THEN
RESTORE @PLAYER_INIT_STATUS
ELSEIF A_ID == 1 THEN
RESTORE @SYSTEMWORD
ELSEIF A_ID == 2 THEN
RESTORE @ITEMNAME
ELSEIF A_ID == 3 THEN
RESTORE @ENEMYNAME
ELSEIF A_ID == 4 THEN
RESTPRE @MESSAGEDATA
ENDIF
FOR G_I=0 to A_LEN-1
READ ARY_WORD
PUSH A_ARY, ARY_WORDS
# 読み込み確認用
PRINT A_ARY[G_I]
NEXT
END
# ステータスウィンドウ描写
DEF D_STATUS_WINDOW_DRAW
D_WINDWOW_DRAW G_WINDOW_SIZES[4], G_WINDOW_SIZES[5], G_WINDOW_SIZES[6], G_WINDOW_SIZES[7]
END
# ステータスウィンドウ描写
DEF D_STATUS_WINDOW_DRAW
# ローカル配列定義
VAR STATUS = ""
DIM WS[0]
# グローバル配列の参照を格納
WS = G_WINDOW_SIZES
# ウィンドウの描写
D_WINDWOW_DRAW WS[4], WS[5], WS[6], WS[7]
# ステータス文字の描写
FOR G_I = 0 TO G_SYSTEM_WORDS_LEN-1
# ステータス文字の描写準備
IF G_I == 0 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[0])
ELSEIF G_I == 1 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[1])+"/"+STR$(G_PLAYER_STATUS[2])
ELSEIF G_I == 2 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[3])
ELSEIF G_I == 3 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[4])
ELSEIF G_I == 4 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[5])
ELSEIF G_I == 5 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[6])+"/999"
ELSEIF G_I == 6 THEN
STATUS = G_SYSTEM_WORDS[G_I]+":"+ STR$(G_PLAYER_STATUS[7])
ENDIF
# 実際のステータスの描写
GPUCHR WS[4]+5, WS[5]+5 + (G_I*10), STATUS
NEXT
END
# ウィンドウトグル
DEF D_STATUS_WINDOW_TOGGLE
# フラグを反転させる
G_STATUS_FLAG = NOT G_STATUS_FLAG
# フラグによって開くか閉じるかを決める
IF STATUS_FLAG THEN
D_STATUS_WINDOW_DRAW
ELSE
GCLS
ENDIF
END
# ステータスモード
DEF D_STATUS_MODE
# 初回にステータスウィンドウフラグをONにしておく
IF NOT G_STATUS_FLAG THEN
D_STATUS_WINDOW_TOGGLE
ENDIF
# Xボタン監視
IF G_BTN_PRESS_COUNT[6] == 1 THEN
D_STATUS_WINDOW_TOGGLE
ENDIF
END
