アイテムの使用でコンディションの変化があった場合のメッセージの不具合を修正します。
- library/base.cgiを開く
-
sub change_status: &M("<img src=$set::mim_dir/redcross.gif> <span class=sick>$Y</span>") if $Z; ↓ &M("<img src=$set::mim_dir/redcross.gif> <span class=sick>$Z</span>") if $Z;
装備で装備できない性別のときのメッセージの不具合を修正します。
- library/base.cgiを開く
-
sub compulsory_check: &M("$Si->{nm}は<img src=$set::mim_dir/$K.gif>専用です。") && return 0; ↓ &M("$Si->{nm}は<img src=$set::mim_dir/$V.gif>専用です。") && return 0;
釣りで魚が釣れても荷物に追加されない不具合を修正します。
- 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);
「服を作る」で作成した服を装備できない不具合を修正します。
- 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',class[Dr]がquality[Dr]と被るからちょっとよくないかも。
気になるので別解も掲載。
- library/equip.cgiを開く
-
sub fitting_room: elsif (($Si->{cl} eq 'Dr' || $Si->{cl} eq 'Ht') && !$I->{Sk}{Cz}) { ↓ elsif (($Si->{cl} eq 'Ds' || $Si->{cl} eq 'Ht') && !$I->{Sk}{Cz}) { - item/clothes.cgiを開く
-
dt => { nm => 'ギャバディン', cl => 'Ds', id => 'Gaberdine', ↓ dt => { nm => 'ギャバディン', cl => 'Ds', id => 'Gaberdine', ql => 'Bd', dt => { nm => '革のエプロン', cl => 'Ds', id => 'Leatherapron', ↓ dt => { nm => '革のエプロン', cl => 'Ds', id => 'Leatherapron', ql => 'Bd',
作成に成功してもアイテムが荷物に追加されない不具合を修正します。
- item/dish_soup.cgiを開く
-
dt => { nm => '豆のスープ', cl => 'Fd', id => 'Soupbeans', im => 'soup.gif', ↓ dt => { nm => '豆のスープ', cl => 'Fd', id => 'Soupbeans', im => 'soup.gif', qn => 1, dt => { nm => 'キノコのスープ', cl => 'Fd', id => 'Soupmushroom', im => 'soup.gif', ↓ dt => { nm => 'キノコのスープ', cl => 'Fd', id => 'Soupmushroom', im => 'soup.gif', qn => 1, dt => { nm => 'クリームスープ', cl => 'Fd', id => 'Creamsoup', im => 'creamsoup.gif', ↓ dt => { nm => 'クリームスープ', cl => 'Fd', id => 'Creamsoup', im => 'creamsoup.gif', qn => 1, dt => { nm => '森のシチュー', cl => 'Fd', id => 'Foreststew', im => 'soup.gif', ↓ dt => { nm => '森のシチュー', cl => 'Fd', id => 'Foreststew', im => 'soup.gif', qn => 1,qnがないものに追加 - item/dish_other.cgiを開く
-
dt => { nm => 'ベイクドポテト', cl => 'Fd', id => 'Bakedpotato', im => 'bakedpotato.gif', ↓ dt => { nm => 'ベイクドポテト', cl => 'Fd', id => 'Bakedpotato', im => 'bakedpotato.gif', qn => 1, dt => { nm => 'ベーコンエッグ', cl => 'Fd', id => 'Baconegg', im => 'baconegg.gif', ↓ dt => { nm => 'ベーコンエッグ', cl => 'Fd', id => 'Baconegg', im => 'baconegg.gif', qn => 1, dt => { nm => 'フライドチキン', cl => 'Fd', id => 'Friedchicken', im => 'lambchop.gif', ↓ dt => { nm => 'フライドチキン', cl => 'Fd', id => 'Friedchicken', im => 'lambchop.gif', qn => 1,同じくqnがないものに追加
設定ミスと思われる箇所を修正します。
- item/farm_sale_all.cgiを開く
-
{ nm => 'レタスの種', cl => 'Mt', id => 'Seedlettuce', ql => 'Sd', im => 'Lettuceseed.gif', ↓ { nm => 'レタスの種', cl => 'Mt', id => 'Seedlettuce', ql => 'Sd', im => 'lettuceseed.gif', - item/market_sale_fir.cgiを開く
-
{ nm => 'かまど', cl => 'Fi', id => 'Cookingstove', ql => 'Fu', im => 'Cookingstove.gif', ↓ { nm => 'かまど', cl => 'Fi', id => 'Cookingstove', ql => 'Fu', im => 'cookingstove.gif', - item/farm_sale_all.cgiを開く
-
{ nm => 'サトウキビの種', cl => 'Mt', id => 'Seedcane', ↓ { nm => 'サトウキビの種', cl => 'Mt', id => 'Seedsugarcane',
アイテム一覧表の修正
- item.htmlを開く
-
sub consumption_check: <td nowrap>無地の布</td> ↓ <td nowrap>普通の布</td> <td nowrap>水がめ</td> ↓ <td nowrap>水瓶</td> <td nowrap>空の水瓶</td> ↓ <td nowrap>空の水瓶</td> <td nowrap>りんご</td> ↓ <td nowrap>リンゴ</td> <td nowrap>食べかけのりんご</td> ↓ <td nowrap>食べかけのリンゴ</td> <tr> <td nowrap>黒ニンニク</td> <td><img src="./itemimage/blackgarlic.gif" width=16 height=16></td> <td nowrap>Fd</td> <td nowrap>Black Garlic</td> <td></td> </tr> を削除 <tr> <td nowrap>ガーリック</td> <td><img src="./itemimage/garlic.gif" width=16 height=16></td> <td nowrap>Mt</td> <td nowrap>Garlic</td> <td></td> </tr> の下に <tr> <td nowrap>黒ニンニク</td> <td><img src="./itemimage/blackgarlic.gif" width=16 height=16></td> <td nowrap>Mt</td> <td nowrap>Black Garlic</td> <td></td> </tr> を追加 <tr> <td nowrap>トウモロコシの種</td> <td><img src="./itemimage/cornseed.gif" width=16 height=16></td> <td nowrap>Mt</td> <td nowrap>Corn Seed</td> <td></td> </tr> の下に <tr> <td nowrap>サトウキビの種</td> <td><img src="./itemimage/beanseed.gif" width=16 height=16></td> <td nowrap>Mt</td> <td nowrap>Sugar Corn Seed</td> <td></td> </tr> を追加 <tr> <td nowrap>キュウリの種</td> <td><img src="./itemimage/cucumberseed.gif" width=16 height=16></td> <td nowrap>Mt</td> <td nowrap>Cucumber Seed</td> <td></td> </tr> の下に <tr> <td nowrap>綿花の種</td> <td><img src="./itemimage/cottonseed.gif" width=16 height=16></td> <td nowrap>Mt</td> <td nowrap>Cotton Seed</td> <td></td> </tr> を追加 <tr> <td nowrap>怪物の目玉</td> <td><img src="./itemimage/eyeball.gif" width=16 height=16></td> <td nowrap>Mt</td> <td nowrap>Eyeball</td> <td></td> </tr> の下に <tr> <td nowrap>乳酸菌</td> <td><img src="./itemimage/clearliquid.gif" width=16 height=16></td> <td nowrap>Mt</td> <td nowrap>Lactobacillus</td> <td></td> </tr> <tr> <td nowrap>イースト菌</td> <td><img src="./itemimage/clearliquid.gif" width=16 height=16></td> <td nowrap>Mt</td> <td nowrap>Yeast</td> <td></td> </tr> を追加
水を汲むで使い切った水瓶に水を汲むとき一度失敗する不具合を修正します。
- library/consumption.cgiを開く
-
sub consumption_check: else { $Si->{nm} = $FI{$Si->{id}}{nm}; $Si->{cl} = $FI{$Si->{id}}{cl}; ↓ else { $Si->{nm} = $FI{$Si->{id}}{nm}; $Si->{cl} = $FI{$Si->{id}}{cl}; $Si->{id} = $FI{$Si->{id}}{id};
買い物をするで治療が買えてしまう不具合を修正します。
- library/buy.cgiを開く
-
sub buy_before: next unless $Ui->{sp} && $Ui->{ct} ne 'Cu'; ↓ next unless $Ui->{sp} && $Ui->{cl} ne 'Cu';
不具合ではないけど、一応やってみたことです。
インフォメーション作成で文字実体参照が使えるように
- 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";
死亡しているときはVITを回復しないように
- library/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}; ↓ # VITの回復 if ($I->{da} ne 'Dd' && $set::rcv) { $I->{Vt} = int((time - $precode) / $set::rcv) / 10; $I->{vt} += $I->{Vt}; $I->{vt} = $I->{Mvt} if $I->{vt} > $I->{Mvt}; }
城に荷物スロットを増やす「賢い収納術講座」を追加
- set.cgiを開く
-
# 城 Castle ########################################### # $ddp = 800; # 販売権利書価格(現在の販売スロット + 1) * n $psp = 500; # パックスキル価格(現在のパックスキル + 1) * n $bkp = 600; # 銀行保管料金(現在の銀行保管料 + 1) * n ↓ # 城 Castle ########################################### # $ddp = 800; # 販売権利書価格(現在の販売スロット + 1) * n $psp = 500; # パックスキル価格(現在のパックスキル + 1) * n $bkp = 600; # 銀行保管料金(現在の銀行保管料 + 1) * n $bsp = 3000; # 賢い収納術講座参加費(現在の荷物スロット - $bbs + 1) * n $bs_max = 20; # 賢い収納術講座で上昇できる荷物スロットの上限値
- library/castle.cgiを開く
-
sub castle_before: $V3 = ($I->{bk} + 1) * $set::bkp; ↓ $V3 = ($I->{bk} + 1) * $set::bkp; $V4 = $I->{bs} >= $set::bbs ? ($I->{bs} - $set::bbs + 1) * $set::bsp : 0; $bs_disable = $I->{bs} >= $set::bs_max ? ' disabled' : ''; <input type=radio class=radio name=tp value=bk> 銀行保管料を支払う・・・$V3 $set::mny<br> ↓ <input type=radio class=radio name=tp value=bk> 銀行保管料を支払う・・・$V3 $set::mny<br> <input type=radio class=radio name=tp value=bs$bs_disable> 賢い収納術講座に参加する・・・$V4 $set::mny<br> sub castle_after: elsif ($F{tp} eq 'bk') { $V = ($I->{bk} + 1) * $set::bkp; &say("$set::lab{gl}が足りません",'castle_before') if $I->{gl} < $V; $I->{bk}++; &M("銀行保管スロットが増えました。"); } ↓ elsif ($F{tp} eq 'bk') { $V = ($I->{bk} + 1) * $set::bkp; &say("$set::lab{gl}が足りません",'castle_before') if $I->{gl} < $V; $I->{bk}++; &M("銀行保管スロットが増えました。"); } elsif ($F{tp} eq 'bs') { &say("これ以上荷物スロットを増やすことは出来ません。",'castle_before') if $I->{bs} >= $set::bs_max; $V = $I->{bs} >= $set::bbs ? ($I->{bs} - $set::bbs + 1) * $set::bsp : 0; &say("$set::lab{gl}が足りません",'castle_before') if $I->{gl} < $V; $I->{bs}++; &M("よりよい収納法を学び、荷物スロットを増やすことが出来ました。"); }
他の地へ移動した時のボタンに戻るを追加
- library/transfer.cgiを開く
-
sub transfer_after: &say("$I->{Pl}{nm}に移動しました",'CLOSE','Reload'); ↓ &say("$I->{Pl}{nm}に移動しました",'transfer_before','Reload');