sdim dt_op_text,64000
dt_op_text={"// このプログラムが起動されて最初の文章の叙述
this @OP@
bstr1 newgame
next1 @OP_a@
bstr2 continue
next2 @OP_b@
nm_bt 2
stext テキストＲＰＧサンプル
etext
// オープニングテキスト
this @OP_a@
bstr1 NEXT
next1 @TOWN@
nm_bt 1
stext ナイトとは国家のいしずえである
ptext 町外れにあるダンジョンの最下層に辿りついたものだけが
ptext ナイトの称号を得る事ができるのである
ptext さあ 若者よ立ち上がれ！
ptext 剣を取って険しきその試練へと立ち向かうのだ！
etext
// 最初にCONTINUEを選んだ場合
this @OP_b@
bstr1 NEXT
next1 @OP_b1@
nm_bt 1
stext continueしました
etext
// データのロード
sub @OP_b1@
next @TOWN@
gosub *player_dat_load
// 町でのコマンド入力受付 ここが全てのコマンドの起点となる
this @TOWN@
bstr1 shop
next1 @SHOP@
bstr2 guild
next2 @TALK@
bstr3 save
next3 @SAVE@
bstr4 load
next4 @LOAD@
bstr5 dungeon
next5 @DG@
bstr6 HELP
next6 @HELP@
nm_bt 6
stext town
ptext 何をしますか？
etext
d_sta
// お店の処理
this @SHOP@
bstr1 ポーションLV1
next1 @SHOP_1@
bstr2 ポーションLV2
next2 @SHOP_2@
bstr3 ポーションLV3
next3 @SHOP_3@
bstr4 ポーションLV4
next4 @SHOP_4@
bstr5 ポーションLV5
next5 @SHOP_5@
bstr6 戻る
next6 @TOWN@
nm_bt 6
stext shop
ptext どのポーションを買いますか？
ptext
ptext ポーションLV1 5GP 回復量 30
ptext ポーションLV2 10GP 回復量 60
ptext ポーションLV3 20GP 回復量 120
ptext ポーションLV4 40GP 回復量 240
ptext ポーションLV5 80GP 回復量 480
etext
d_sta
// ポーションの購入
sub @SHOP_1@
gosub *buy_pos_LV1
sub @SHOP_2@
gosub *buy_pos_LV2
sub @SHOP_3@
gosub *buy_pos_LV3
sub @SHOP_4@
gosub *buy_pos_LV4
sub @SHOP_5@
gosub *buy_pos_LV5
// ポーション購入の記述
this @SHOP_xa@
bstr1 NEXT
next1 @SHOP@
nm_bt 1
stext shop
ptext ポーションLV$sl_pos_lv$を購入した
ptext
ptext ポーションLV1 5GP 回復量 30
ptext ポーションLV2 10GP 回復量 60
ptext ポーションLV3 20GP 回復量 120
ptext ポーションLV4 40GP 回復量 240
ptext ポーションLV5 80GP 回復量 480
etext
d_sta
// お金が足りなくてポーションが買えなかった場合
this @SHOP_xb@
bstr1 NEXT
next1 @SHOP@
nm_bt 1
stext shop
ptext お金が足りません
ptext
ptext ポーションLV1 5GP 回復量 30
ptext ポーションLV2 10GP 回復量 60
ptext ポーションLV3 20GP 回復量 120
ptext ポーションLV4 40GP 回復量 240
ptext ポーションLV5 80GP 回復量 480
etext
d_sta
// guild内のコマンド誰に話しかけるかを選んでいます
this @TALK@
bstr1 ジョン
next1 @TALK_a@
bstr2 スティーブ
next2 @TALK_b@
bstr3 ヨハン
next3 @TALK_c@
bstr4 戻る
next4 @TOWN@
nm_bt 4
stext guild
ptext 誰に話しかけますか？
etext
d_sta
this @TALK_a@
bstr1 NEXT
next1 @TALK@
nm_bt 1
stext ジョン
ptext ポーションは余裕を持って
ptext たくさん買っておいた方がいいよ
etext
d_sta
this @TALK_b@
bstr1 NEXT
next1 @TALK@
nm_bt 1
stext スティーブ
ptext ダンジョンでモンスターを一匹倒したからって
ptext いい気にならない方がいいよ
ptext モンスターを何匹も倒さないと
ptext お金も経験値も手に入れられないのだから
etext
d_sta
this @TALK_c@
bstr1 NEXT
next1 @TALK@
nm_bt 1
stext ヨハン
ptext ダンジョンに挑戦するのかい？
ptext 止めた方がいい その方が身のためだよ
etext
d_sta
// SAVEコマンド
this @SAVE@
bstr1 YES
next1 @SAVE_1@
bstr2 NO
next2 @TOWN@
nm_bt 2
stext save
ptext SAVEしますか？
etext
d_sta
sub @SAVE_1@
next @SAVE_1a@
gosub *player_dat_save
this @SAVE_1a@
bstr1 NEXT
next1 @TOWN@
nm_bt 1
stext save
ptext SAVEしました
etext
d_sta
// LOADコマンド
this @LOAD@
bstr1 YES
next1 @LOAD_1@
bstr2 NO
next2 @TOWN@
nm_bt 2
stext load
ptext LOADしますか？
etext
d_sta
sub @LOAD_1@
next @LOAD_1a@
gosub *player_dat_load
this @LOAD_1a@
bstr1 NEXT
next1 @TOWN@
nm_bt 1
stext load
ptext LOADしました
etext
d_sta
// ダンジョンコマンドここでは何LVのダンジョンに入るか選んでいますね
this @DG@
bstr1 LV1
next1 @DG_1@
bstr2 LV2
next2 @DG_2@
bstr3 LV3
next3 @DG_3@
bstr4 LV4
next4 @DG_4@
bstr5 LV5
next5 @DG_5@
bstr6 戻る
next6 @TOWN@
nm_bt 6
stext dungeon
ptext ダンジョンLV何に入りますか？
etext
d_sta
// 何LVのダンジョンに入ったか代入しています
// このLVのダンジョンで出現する敵のステータスの代入も行っています
sub @DG_1@
next @DG_xa@
gosub *dg_enter_1
sub @DG_2@
next @DG_xa@
gosub *dg_enter_2
sub @DG_3@
next @DG_xa@
gosub *dg_enter_3
sub @DG_4@
next @DG_xa@
gosub *dg_enter_4
sub @DG_5@
next @DG_xa@
gosub *dg_enter_5
// ダンジョン内でのコマンド
this @DG_xa@
bstr1 探索
next1 @DG_xa1@
bstr2 ポーション使用
next2 @DG_xab@
bstr3 探索終了
next3 @DG_xac@
nm_bt 3
stext ダンジョンLV$enter_dglv$
ptext 何をしますか？
etext
d_sta
// 探索を選んだ場合敵のHPの設定も行っています
sub @DG_xa1@
next @BT@
gosub *dg_ene_hp_set
// 実際に敵が現れたようです
this @BT@
bstr1 NEXT
next1 @BT_a@
nm_bt 1
stext ダンジョンLV$enter_dglv$ 探索
ptext $ene_name$が現れた！
etext
d_sta
// 戦闘中のコマンドの入力
this @BT_a@
bstr1 BATTLE
next1 @BT_a1@
bstr2 ESCAPE
next2 @BT_ab@
nm_bt 2
stext 対$ene_name$ 戦闘
ptext どうしますか？
etext
d_sta
// BATTLEを選んだ場合、勝利、敗北、戦闘継続の条件分岐も行っています
sub @BT_a1@
gosub *bt_main
// 戦闘継続
this @BT_a1a@
bstr1 NEXT
next1 @BT_a@
nm_bt 1
stext 対$ene_name$ 戦闘
ptext 冒険者の攻撃！ $player_atack$のダメージ！
ptext $ene_name$の反撃！ $ene_atp$のダメージ！
etext
d_sta
// 戦闘に敗北した場合
this @BT_a1b@
bstr1 NEXT
next1 @BT_a1ba@
nm_bt 1
stext 対$ene_name$ 戦闘
ptext 冒険者の攻撃！ $player_atack$のダメージ！
ptext $ene_name$の反撃！ $ene_atp$のダメージ！
ptext 冒険者は戦いに敗れてしまった
etext
d_sta
this @BT_a1ba@
bstr1 NEXT
next1 @BT_a1ba1@
nm_bt 1
stext 対$ene_name$ 戦闘
ptext 冒険者は志半ばでその意思を絶たれてしまった
ptext 嗚呼！意識が遠のいていく
ptext 気がついた時、君は病院のベッドの上だった
etext
d_sta
sub @BT_a1ba1@
next @TOWN@
gosub *hp_kaihuku
// 戦闘に勝利した場合
this @BT_a1c@
bstr1 NEXT
next1 @BT_a1c1@
nm_bt 1
stext 対$ene_name$ 戦闘
ptext 冒険者の攻撃！ $player_atack$のダメージ！
ptext $ene_name$は倒れた
ptext 冒険者の勝利！
etext
d_sta
// 探索が終了したか？エンディングへの分岐も行っています
sub @BT_a1c1@
gosub *bt_bunnki
// ダンジョンの探索を終了した場合
this @BT_a1c1b@
bstr1 NEXT
next1 @BT_a1c1b1@
nm_bt 1
stext ダンジョンLV$enter_dglv$ 探索
ptext 戦いの後君は財宝をみつけた！
ptext ダンジョンLV$enter_dglv$の探索は成功に終わったのだ！
ptext $ene_exp$Pの経験値と$ene_gpp$Pのお金を獲得した！
etext
d_sta
// お金と経験値の取得、LVアップの条件分岐も行っています
sub @BT_a1c1b1@
gosub *bt_get2
// LVが上がった場合
this @BT_a1c1b1a@
bstr1 NEXT
next1 @BT_a1c1b1a1@
nm_bt 1
stext ダンジョンLV$enter_dglv$ 探索
ptext 冒険者はLVが上がった！
etext
d_sta
sub @BT_a1c1b1a1@
next @BT_a1c1b1a1a@
gosub *bt_lvup2
this @BT_a1c1b1a1a@
bstr1 NEXT
next1 @BT_a1c1b1b@
nm_bt 1
stext ダンジョンLV$enter_dglv$ 探索
ptext 最大HPが$player_mhp$になった！
ptext 攻撃力が$player_atack$になった！
etext
d_sta
// 探索終了
this @BT_a1c1b1b@
bstr1 NEXT
next1 @BT_a1c1b1b1@
nm_bt 1
stext ダンジョンLV$enter_dglv$ 探索
ptext 戦いを終え財宝をみつけた君は町へと帰還した
etext
d_sta
sub @BT_a1c1b1b1@
next @TOWN@
gosub *hp_kaihuku
// ESCAPEを選んだ場合
this @BT_ab@
bstr1 NEXT
next1 @DG_xa@
nm_bt 1
stext 対$ene_name$ 戦闘
ptext 君は戦闘の場から逃走した
etext
d_sta
// ポーションの使用
this @DG_xab@
bstr1 ポーションLV1
next1 @DG_xab1@
bstr2 ポーションLV2
next2 @DG_xab2@
bstr3 ポーションLV3
next3 @DG_xab3@
bstr4 ポーションLV4
next4 @DG_xab4@
bstr5 ポーションLV5
next5 @DG_xab5@
bstr6 戻る
next6 @DG_xa@
nm_bt 6
stext ダンジョンLV$enter_dglv$ ポーション使用
ptext どのポーションを使用しますか？
ptext ポーションLV1 回復量 30
ptext ポーションLV2 回復量 60
ptext ポーションLV3 回復量 120
ptext ポーションLV4 回復量 240
ptext ポーションLV5 回復量 480
etext
d_sta
// ポーションを使用して回復を行っています
sub @DG_xab1@
gosub *use_pos_LV1
sub @DG_xab2@
gosub *use_pos_LV2
sub @DG_xab3@
gosub *use_pos_LV3
sub @DG_xab4@
gosub *use_pos_LV4
sub @DG_xab5@
gosub *use_pos_LV5
// ポーションを使用したという記述
this @DG_xabxa@
bstr1 NEXT
next1 @DG_xa@
nm_bt 1
stext ダンジョンLV$enter_dglv$ ポーション使用
ptext ポーションLV$sl_pos_lv$を使用しました
ptext ポーションLV1 回復量 30
ptext ポーションLV2 回復量 60
ptext ポーションLV3 回復量 120
ptext ポーションLV4 回復量 240
ptext ポーションLV5 回復量 480
etext
d_sta
// ポーションが足りなかった場合
this @DG_xabxb@
bstr1 NEXT
next1 @DG_xa@
nm_bt 1
stext ダンジョンLV$enter_dglv$ ポーション使用
ptext ポーションが足りません
ptext ポーションLV1 回復量 30
ptext ポーションLV2 回復量 60
ptext ポーションLV3 回復量 120
ptext ポーションLV4 回復量 240
ptext ポーションLV5 回復量 480
etext
d_sta
// 探索終了を選んだ場合
this @DG_xac@
bstr1 NEXT
next1 @DG_xac1@
nm_bt 1
stext ダンジョンLV$enter_dglv$ 探索終了
ptext 探索を途中で打ち切ってダンジョンを後にした
etext
d_sta
sub @DG_xac1@
next @TOWN@
gosub *hp_kaihuku
// エンディング
this @ED@
bstr1 NEXT
next1 @ED_a@
nm_bt 1
stext ダンジョンLV$enter_dglv$ 探索
ptext ダンジョンLV$enter_dglv$の探索は成功に終わった！
ptext 戦いの後君は一組のサークレットを目にした
ptext 君はそのサークレットに触れてみた
ptext 君の体に電撃に似た衝撃が走る！
ptext 君は全てのダンジョンを制覇した実感を得たのだった
etext
d_sta
this @ED_a@
bstr1 NEXT
next1 @ED_a1@
nm_bt 1
stext ダンジョンLV$enter_dglv$ 探索
ptext 一組のサークレットを手にした君は町へと帰還した
etext
d_sta
sub @ED_a1@
next @ED_a1a@
gosub *hp_kaihuku
this @ED_a1a@
bstr1 NEXT
next1 @OP@
nm_bt 1
stext 帰還した君はナイトの称号を与えられた
ptext 試練を乗り越え ナイトとして認められた君は
ptext 生涯国家のために忠誠を誓っていくのだろう
ptext THE END
etext
d_sta
// ヘルプの表示
this @HELP@
bstr1 町の中で
next1 @HELP_a@
bstr2 ﾀﾞﾝｼﾞｮﾝの中で
next2 @HELP_b@
bstr3 戦闘中に
next3 @HELP_c@
bstr4 戻る
next4 @TOWN@
nm_bt 4
stext HELP
ptext どの項目に関するヘルプを読みますか？
etext
this @HELP_a@
bstr1 NEXT
next1 @HELP@
nm_bt 1
stext 町の中でのコマンド
ptext shop ポーションを購入します
ptext guild 様々な人から冒険に役立つアドバイスを聞けます
ptext save データを保存します
ptext load データを読み込みます
ptext dungeon モンスターの潜むダンジョンへと
ptext 財宝と名声を求めて挑みます
ptext HELP このゲームのヘルプです
etext
this @HELP_b@
bstr1 NEXT
next1 @HELP@
nm_bt 1
stext ダンジョン内でのコマンド
ptext 探索
ptext ダンジョンを探索します
ptext ダンジョンを探索しているとモンスターが現れるので
ptext 力の限りを尽くしてモンスターと戦いましょう
ptext ポーション使用
ptext ポーションを使用してHPを回復します
ptext 探索終了
ptext ダンジョンの探索をあきらめて町へと帰還します
etext
this @HELP_c@
bstr1 NEXT
next1 @HELP@
nm_bt 1
stext 戦闘中のコマンド\n
ptext battle 力を尽くしてモンスターと戦います
ptext escape モンスターとの戦闘をあきらめて戦線を離脱します\n
ptext 注
ptext このゲームは一匹倒すごとにお金と経験値が
ptext 手に入るシステムでは無いので
ptext 一匹倒したからといって満足せずに
ptext そのまま探索を継続しましょう
ptext モンスターを何匹か倒してダンジョンの探索に無事成功すると
ptext 見事お金と経験値が手に入ります
etext
end "}
|