「ダンジョンの作り方」の編集履歴（バックアップ）一覧はこちら
ダンジョンの作り方 - (2009/04/27 (月) 23:12:49) の１つ前との変更点
追加された行は緑色になります。
削除された行は赤色になります。
絶対必要の文字
S＝パーティーのスタート地点
B＝ボスキャラ
0＝道
1＝壁
2＝宝箱（これについてはhttp://houjo.kakoku.net/map/1/2.txt ）をみてください
ここから
----
# 最大ターン
$max_round = **;
# マップ
@maps = (
[1,1,1,I,0,0,I,B],
[1,1,C,1,1,1,1,D],
[0,0,0,0,0,0,I,0],
[I,1,1,1,1,I,1,1],
[0,0,S,A,1,0,0,0],
);
# イベント
sub event_2 { return if $event =~ /2/; $event .= '2'; &_add_treasure; }
# 敵と宝の設定
require "$stagedir/$$.cgi";
1; # 削除不可
----
ここまでコピちゃってください
**には最大ターンを。
$$には異世魔界などの数字をいれてください
(なぞのばしょなら0・・・異世魔界なら14)
隠し通路など作るときには
----
$map_imgs{I} = '■';
sub event_I { $npc_com .= "なんと！壁ではなく隠し通路になっていた！"; }
----
を入れてください。
キラーシェルのやらないかなど 特定のセリフをだすには
----
sub event_& { $npc_com .= "セリフ"; }
----
&にはS,0,1,2,B,I 以外の英数字を入れてください。じゃないと暗転たんです。
鍵、扉などは
----
$map_imgs{K} = '★' if $event !~ /K/;
$map_imgs{D} = '扉' if $event !~ /D/;
sub event_K { return if $event =~ /K/; $event .= 'K'; $npc_com.="扉の鍵を拾った！"; }
sub event_D {
return if $event =~ /D/;
if ($m{job} eq '9') {
$com .= "<br />$m{mes}" if $m{mes};
$npc_com .= "$mは細いナイフと針金のようなもので、扉のカギ穴をｶﾞﾁｬｶﾞﾁｬした！…ｶﾞﾁｬﾝｯ！なんと、扉が開いたようだ！";
$event .= 'D';
}
elsif ($event =~ /K/) {
$npc_com .= "$mは拾ったカギをトビラ扉に差し込んでみた！…ｺﾞｺﾞｺﾞｺﾞｺﾞ…重い音をたてて扉が開いていく！";
$event .= 'D';
}
else {
$npc_com .= "$mは扉を押したり引いたりしてみたが、ビクともしない…";
++$px;
}
}
----
追加してください
絶対必要の文字
S＝パーティーのスタート地点
B＝ボスキャラ
0＝道
1＝壁
2＝宝箱（これについてはhttp://houjo.kakoku.net/map/1/2.txt ）をみてください
ここから
----
# 最大ターン
$max_round = %%;
# マップ
@maps = (
[1,1,1,I,0,0,I,B],
[1,1,C,1,1,1,1,D],
[0,0,0,0,0,0,I,0],
[I,1,1,1,1,I,1,1],
[0,0,S,A,1,0,0,0],
);
# イベント
sub event_2 { return if $event =~ /2/; $event .= '2'; &_add_treasure; }
# 敵と宝の設定
require "$stagedir/$$.cgi";
1; # 削除不可
----
ここまでコピちゃってください
%%には最大ターンを。
$$には異世魔界などの数字をいれてください
(なぞのばしょなら0・・・異世魔界なら14)
隠し通路など作るときには
----
$map_imgs{I} = '■';
sub event_I { $npc_com .= "なんと！壁ではなく隠し通路になっていた！"; }
----
を入れてください。
キラーシェルのやらないかなど 特定のセリフをだすには
----
sub event_& { $npc_com .= "セリフ"; }
----
&にはS,0,1,2,B,I 以外の英数字を入れてください。じゃないと暗転たんです。
鍵、扉などは
----
$map_imgs{K} = '★' if $event !~ /K/;
$map_imgs{D} = '扉' if $event !~ /D/;
sub event_K { return if $event =~ /K/; $event .= 'K'; $npc_com.="扉の鍵を拾った！"; }
sub event_D {
return if $event =~ /D/;
if ($m{job} eq '9') {
$com .= "<br />$m{mes}" if $m{mes};
$npc_com .= "$mは細いナイフと針金のようなもので、扉のカギ穴をｶﾞﾁｬｶﾞﾁｬした！…ｶﾞﾁｬﾝｯ！なんと、扉が開いたようだ！";
$event .= 'D';
}
elsif ($event =~ /K/) {
$npc_com .= "$mは拾ったカギをトビラ扉に差し込んでみた！…ｺﾞｺﾞｺﾞｺﾞｺﾞ…重い音をたてて扉が開いていく！";
$event .= 'D';
}
else {
$npc_com .= "$mは扉を押したり引いたりしてみたが、ビクともしない…";
++$px;
}
}
----
追加してください
