- 追加された行はこの色です。
- 削除された行はこの色です。
- 罪罰武器装備 へ行く。
[[罪罰改造]] / [[罪罰道具装備]]
-複数の武器を持つことができ、装備を変更できるようにする
-現状では、情報画面で装備を変更する
-罪罰道具装備をベースにしたほうがよいです
*武具パラメータを追加 ./inc/ore_sub-system.cgi [#j1ae9c04]
**キャラパラメータに追加(罪罰/変数の追加を参照) [#b3f0081c]
$dg_a = $DAT{'dg_a'};
$dg_cnt = $DAT{'dg_cnt'}; # 武具 回数
上付近に以下の項目を追加する
$dg_a1 = $DAT{'dg_a1'};
$dg_cnt1 = $DAT{'dg_cnt1'}; # 武具 回数
$dg_a2 = $DAT{'dg_a2'};
$dg_cnt2 = $DAT{'dg_cnt2'}; # 武具 回数
$dg_a3 = $DAT{'dg_a3'};
$dg_cnt3 = $DAT{'dg_cnt3'}; # 武具 回数
**書き込み [#kb434a26]
sub dat_writeにこんな風に追加して、キャラデータに書き込み(罪罰/変数の追加を参照)
dg_a;$dg_a,dg_cnt;$dg_cnt
,dg_a1;$dg_a1,dg_cnt1;$dg_cnt1
,dg_a2;$dg_a2,dg_cnt2;$dg_cnt2
,dg_a3;$dg_a3,dg_cnt3;$dg_cnt3,
**持ち替える [#nf5f81c9]
sub decodeを変更して
下で追加するフォームから送られてくる持ち替える武具の値を受け取る
$cmd = $in{'cmd'};
$com = $in{'com'};
$id = $in{'id'};
$mode = $in{'mode'};
$equip = $in{'equip'}; # この1行を追加
*情報画面 ./inc/ore_sub-infomation_pc.cgi [#r1971f21]
この画面で装備を替えることに抵抗はあるけど簡単なので(汗
**装備を持ち替える [#i09e67f9]
sub infomation_com{
if($com){
# ・・・( 省 略 )・・・
if(length($com)>80){ &error("全角40文字までです。",1); }
$com =~ s/\n//g;
$info_mes=$com;
}
#-------------------------------------ここから追加
# 武具の持ち替え
if($equip ne ''){
if($equip==1){
my $tmp_dg_a = $dg_a;
my $tmp_dg_cnt = $dg_cnt;
$dg_a = $dg_a1;
$dg_cnt = $dg_cnt1;
$dg_a1 = $tmp_dg_a;
$dg_cnt1 = $tmp_dg_cnt;
} elsif ($equip==2){
my $tmp_dg_a = $dg_a;
my $tmp_dg_cnt = $dg_cnt;
$dg_a = $dg_a2;
$dg_cnt = $dg_cnt2;
$dg_a2 = $tmp_dg_a;
$dg_cnt2 = $tmp_dg_cnt;
} elsif ($equip==3){
my $tmp_dg_a = $dg_a;
my $tmp_dg_cnt = $dg_cnt;
$dg_a = $dg_a3;
$dg_cnt = $dg_cnt3;
$dg_a3 = $tmp_dg_a;
$dg_cnt3 = $tmp_dg_cnt;
}
}
#-------------------------------------ここまで追加
**最初に武具名を取得する [#xfd72f05]
$log .="</table>\n"; # ←この辺を探して
# 持っている武具
if($dg_a!=""){$DG_A_0 = $dg_data[$dg_a][1]; }
if($dg_a1!=""){$DG_A_1 = $dg_data[$dg_a1][1]; }
if($dg_a2!=""){$DG_A_2 = $dg_data[$dg_a2][1]; }
if($dg_a3!=""){$DG_A_3 = $dg_data[$dg_a3][1]; }
$log.=<<EOM; # ←この辺を探して
**さっき取得した武具名をこのフォーム内の好きな位置に [#rbf50853]
<form method="$method" action="$script" name="ore_"> # ←この辺を探して
装備の変更:
<select name=equip >
<option value=0 >装備:$DG_A_0</option> }
<option value=1 >[1]$DG_A_1</option>
<option value=2 >[2]$DG_A_2</option>
<option value=3 >[3]$DG_A_3</option>
</select><br>\n
*武具屋での武器の持ち替え [#e8062c11]
**./inc/ore_sub_shop.cgi [#v23f6004]
$log .= "$dg_data[$_][2]Gを支払い、$dg_data[$_][1] を購入しました。<br>\n";
$gold -= $dg_data[$_][2]; # ←この辺を探して
# アイテムを持ち替える
if($dg_a3>0){
$dg_a0 = $dg_a3;
$dg_cnt0 = $dg_cnt3;
$dg_a3 = 0;
$dg_cnt3 = 0;
}
if($dg_a2>0){
$dg_a3 = $dg_a2;
$dg_cnt3 = $dg_cnt2;
$dg_a2 = 0;
$dg_cnt2 = 0;
}
if($dg_a1>0){
$dg_a2 = $dg_a1;
$dg_cnt2 = $dg_cnt1;
$dg_a1 = 0;
$dg_cnt1 = 0;
}
if($dg_a>0){
$dg_a1 = $dg_a;
$dg_cnt1 = $dg_cnt;
$dg_a = 0;
$dg_cnt = 0;
}
if($dg_a1==0 && $dg_a0>0){
$dg_a1=$dg_a0;
$dg_cnt1=$dg_cnt0;
}
$dg_a = $_;
$dg_cnt = $dg_data[$_][3];
*関連 [#q43a3aa2]
[[罪罰アイテム]]