顔画像リストが表示されない不具合を修正します。
- image.htmlを開く
-
<script language="JavaScript" src="javascript/GetObject.js"></script> ↓ <script language="JavaScript" src="javascript/GetView.js"></script> sex = opener.newform.sx.value; ↓ sex = window.opener.document.newform.sx.value; tag += "<th><img src=" + ImageDirectory + sex + ++count + ImageFileType + "><br>" + count + "</th>"; ↓ tag += "<th><img src=" + MainImageDirectory + sex + ++count + ImageFileType + "><br>" + count + "</th>";b1.1で修正されたようだけど、ファイルが差し替えられてない？
自己紹介設定で、相手がアイテムを買うときのメッセージが詳細な自己紹介に書き換えられてしまう不具合を修正します。
- library/words.cgiを開く
-
sub words_before: 相手がアイテムを買う時 <tt>全角$set::wx3文字まで （改行可）</tt><br> <textarea class=textarea name=w3 cols=40 rows=3>$I->{w2}</textarea><br> ↓ 相手がアイテムを買う時 <tt>全角$set::wx3文字まで （改行可）</tt><br> <textarea class=textarea name=w3 cols=40 rows=3>$I->{w3}</textarea><br>
おなじ相手と連戦しようとしたときにメッセージが正しく表示されない不具合を修正します。
- library/fight.cgiを開く
-
sub fight_player: &partner('',"$Unmとは暫く戦えません・・・") if @Den; ↓ &partner('',"$U->{nm}とは暫く戦えません・・・") if @Den;
釣りで魚が釣れても荷物に追加されない不具合を修正します。
- library/fishing.cgiを開く
-
sub fishing: $Ii = $I->{Bg}[$F{ft}]; ↓ $Ui = $I->{Bg}[$F{ft}]; &error('エラー：釣り道具を選択し直して下さい') if $Ii->{cl} ne 'Fr'; ↓ &error('エラー：釣り道具を選択し直して下さい') if $Ui->{cl} ne 'Fr'; &consumption_check($Ii); ↓ &consumption_check($Ui);
値段を設定をしているアイテムをパックすると最低販売価格以下で販売できてしまう不具合を修正します。
- library/pack.cgiを開く
-
sub pack: push(@{$I->{Bg}},$Ui); ↓ $Ui->{sp} = ''; push(@{$I->{Bg}},$Ui);パックしたアイテムは値段の設定を解除するように修正。
アイテムの作成に失敗しても荷物に作成したアイテムが追加される不具合を修正します。
- library/compose.cgiを開く
-
sub compose_after: else { &M("$Ui->{dt}{nm}の作成に失敗しました。"); &change_status($I,'hy',-1,1); $Ui->{ex} &&= int($Ui->{ex} / 2); } ↓ else { &M("$Ui->{dt}{nm}の作成に失敗しました。"); $Ui->{dt}{qn} = 0; &change_status($I,'hy',-1,1); $Ui->{ex} &&= int($Ui->{ex} / 2); }失敗した場合は入手するアイテムの数を0に。
EX品・DX品の作成に成功しても通常のアイテムと変化がない・メッセージに品名が表示されない不具合を修正します。
- library/compose.cgiを開く
-
sub compose_after: &excellent_roll($Ui->{dt}) if $Ui->{dt}{cl} =~ /(Sw|Kt|Sp|Ax|Cl|Hm|Ar|Bt|Rg|Ac|Sh|Wn|Bo|Cl|Ht|Ds|Bt|Tl)/; &deluxe_roll($Ui->{dt}) if $Ui->{dt}{cl} eq 'Fd'; ↓ &excellent_roll($I,$Ui->{dt}) if $Ui->{dt}{cl} =~ /(Sw|Kt|Sp|Ax|Cl|Hm|Ar|Bt|Rg|Ac|Sh|Wn|Bo|Cl|Ht|Ds|Bt|Tl)/; &deluxe_roll($I,$Ui->{dt}) if $Ui->{dt}{cl} eq 'Fd';
相手から複数個アイテムを買うと買ったアイテムが最後に買ったものにすべて置き換えられてしまう不具合を修正します。
- library/buy.cgiを開く
-
sub buy_after: %$Ii = %$Ui; push (@{$I->{Bg}},$Ii); ↓ push (@{$I->{Bg}},{%{$Ui}}); %$Ip = %$Up; push (@{$I->{Pt}},$Ip); ↓ push (@{$I->{Pt}},{%{$Up}});
作成に必要なLIFと残りLIFが等しいときに作成を行うとLIFが0になる不具合を修正します。
- library/compose.cgiを開く
-
sub compose_after: foreach (split(/,/,$Ui->{gv})) { ($K,$V) = split(/=/); &say("$set::lab{$K}が $V 必要です",'compose') if $I->{$K} < $V; &change_status($I,$K,-$V); &reload_gage($K,'V') if ${"M$K"}; } ↓ foreach (split(/,/,$Ui->{gv})) { ($K,$V) = split(/=/); &say("$set::lab{$K}が $V 必要です",'compose') if $K eq 'lf' ? $I->{$K} < $V+1 : $I->{$K} < $V; &change_status($I,$K,-$V); &reload_gage($K,'V') if ${"M$K"}; }
「服を作る」でCGIプログラムエラーになる不具合を修正します。
- item/clothes.cgiを開く
-
{ id => { Leather => 2 } cl => { Sk => 1 }, ↓ { id => { Leather => 2 }, cl => { Sk => 1 },syntax error at ./item/clothes.cgi line 36
「服を作る」で作成した服を装備できない不具合を修正します。
- item/clothes.cgiを開く
-
dt => { nm => 'ギャバディン', cl => 'Ds', id => 'Gaberdine', ↓ dt => { nm => 'ギャバディン', cl => 'Dr', id => 'Gaberdine', ql => 'Bd', dt => { nm => '革のエプロン', cl => 'Ds', id => 'Leatherapron', ↓ dt => { nm => '革のエプロン', cl => 'Dr', id => 'Leatherapron', ql => 'Bd',
ログイン中に戦闘を仕掛けられる、マイレコードを見ても新着メッセージのアラートが消えない等の不具合を修正します。
- library/base.cgiを開く
-
sub set_code: return; ↓ #return;
LIFが回復しないのでゲームが進まなくなる不具合を修正します。
- data/set.cgiを開く
-
# 時間 Time ########################################## # $rcv = 90; # VITが0.1回復するのに必要な秒数 ↓ # 時間 Time ########################################## # $rcl = 60; # LIFが0.1回復するのに必要な秒数 $rcv = 90; # VITが0.1回復するのに必要な秒数
設定はお好みで変えてください。 - data/main.cgiを開く
-
sub main: # VITの回復 $I->{Vt} = int((time - $precode) / $set::rcv) / 10; $I->{vt} += $I->{Vt}; $I->{vt} = $I->{Mvt} if $I->{vt} > $I->{Mvt}; $I->{Vt} = int($I->{vt}); $I->{li} = 'in'; の上に # LIFの回復 if ($I->{da} ne 'Dd') { $I->{Lf} = int((time - $precode) / $set::rcl) / 10; $I->{lf} += $I->{Lf}; $I->{lf} = $I->{Mlf} if $I->{lf} > $I->{Mlf}; } $I->{Lf} = int($I->{lf}); を追加 <td nowrap class=r><span id=lf>$I->{lf}</span></td> ↓ <td nowrap class=r><span id=lf>$I->{Lf}/$I->{Mlf}</span></td>
教会で蘇生してもらうときに支払う金額が、解毒に必要な額と同じになっている不具合を修正します。
- church.cgiを開く
-
sub church_after: if ($F{tp} eq 'Dd') { &say("$set::cnd{'Dd'}[1]していません",'church_before') if $I->{da} ne 'Dd'; $V = $set::acm * $I->{lv}; ↓ if ($F{tp} eq 'Dd') { &say("$set::cnd{'Dd'}[1]していません",'church_before') if $I->{da} ne 'Dd'; $V = $set::rvm * $I->{lv};
不具合ではないけど、一応やってみたことです。
インフォメーション作成で文字実体参照が使えるようにします（問題が起こりそうなのでやらないほうがいいかも）
- master.cgiを開く
-
sub edit_information: $t1 =~ s/<br>/\n/g; ↓ $t1 =~ s/<br>/\n/g; $t1 =~ s/&/&/g; sub make_information: $F{in} =~ s/</</g; $F{in} =~ s/>/>/g; ↓ $F{in} =~ s/</</g; $F{in} =~ s/>/>/g; $F{in} =~ s/&/&/g;
ホームページに戻るリンクがないような気がしたので
- library/rights.cgiを開く
-
sub rights: print qq|<br>Edit：$set::edt\n| if $set::edt; ↓ print qq|<br><a href="$set::rtn">Edit：$set::edt</a>\n| if $set::edt;
Spetial Thanksのアンカーを無効に
- library/rights.cgiを開く
-
sub rights: print qq|<a href="#" onClick="GetView('creators')">$creators_label</a>\n| if !$set::stv; ↓ print qq|<a href="#" onClick="GetView('creators');return false">$creators_label</a>\n| if !$set::stv;
作成で作成用アイテムデータがないときのエラーメッセージを追加
- library/compose.cgiを開く
-
compose_before: require "$set::itm_dir/$K.cgi"; ↓ &error('未実装') if ! -e "$set::itm_dir/$K.cgi"; require "$set::itm_dir/$K.cgi";