*冒険者ギルド・・・スポンサーですアクアさんではありません [#ucba94f3]
-↓にアップロードしてあるんで取って行ってください。
-追加変数は $aa $bb $cc $dd $ee $ff $gtm $gmes です。
**設置のしかた[#w1787dc4]
-変数を追加↑参照。
-ショップメニューに追加 shop_menu
sub shop_menu{
# ショッピングモ−ル
my @sg = ('去る','武具屋','防具屋','道具屋','金融業','プチロト','診療所','冒険者ギルド');
-メニューの処理追加
-#ショッピングモ−ル処理
sub shop_exe{
# 行き先選択
if(!$tm){
if($cmd<=0){
・・・(省略)・・・
}elsif($cmd==6){
$log .= "いらっしゃい。罪罰診療所にようこそ。<br>\n";
$tm=120;
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>やめる</option>\n|;
$log2 .=qq|<option value=1>治療</option>\n|;
$log2 .=qq|<option value=2>性転換</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}elsif($cmd==7){ # ショップメニューに追加した数字に合わせる
$log .= "ここは冒険者ギルドだ。なんか用か?<br>\n";
$tm=100; # tmは自分用に合わせてください
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
$log2 .=qq|<select name=cmd size=1>\n|;
$log2 .=qq|<option value=0>いいえ</option>\n|;
$log2 .=qq|<option value=1>依頼を引き受ける</option>\n|;
$log2 .=qq|<option value=3>報酬を貰う</option>\n|;
$log2 .=qq|<option value=4>依頼解除</option>\n|;
$log2 .=qq|<option value=5>依頼回数</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-したの方に
# 冒険者ギルド
elsif($tm>=0 && $tm<300){require './inc/ore_sub-shop-girudo.cgi';&girudo;}
-を追加あとバトル処理
}else{
# 敵キャラ通常攻撃処理
&bogu_bt;
}
} else { #
&bogu_bt; # ここが変更場所
} #
}
$log .="</font>\n";
# 負け処理
&battle_lost if($hp <= 0 && $type eq '修行中');
-あとore_の初期メニューに
elsif(!$type && $cmd==13 && $act_cnt<$act_cnt_limit) { require './inc/ore_sub-girub.cgi'; &giru; }
-を追加 続行メニューに
elsif($type eq 'ギルド依頼') { require './inc/ore_sub-girubtime.cgi';&gi_st; }
elsif($type eq 'ギルド') { require './inc/ore_sub-girub.cgi'; &giru_exe; }
-を追加
-以上でオッケイなはず。
-実行については0、1、3とつずいてますのでカット
-スポンサーです。アクアさんではありません。 -- [[スポンサー]] &new{2004-05-16 (日) 19:04:37};
-書き込みありがとうございます。で設置ですが、ore_sub-shop.cgiの下のほうにも呼び出しが必要なのでは? -- [[あくあ]] &new{2004-05-16 (日) 22:03:57};
-あともうひとつこのページを見つけやすくする為に「罪罰改造」か「罪罰改造掲示板」にリンクを張りますがどうしましょうか? -- [[あくあ]] &new{2004-05-16 (日) 22:05:11};
-いろいろ書き忘れました・・・リンクお願いします。 -- [[スポンサー]] &new{2004-05-17 (月) 07:59:48};
#comment