Script of Saga III 設置支援 - 不具合の修正 Ver b1.3 -

使用するで、LIFが0になる不具合を修正します。

library/use.cgiを開く

sub type_expendable:
            &change_status($I,$K,$V,1);
↓
            if ($K eq 'lf' && $I->{$K}+$V < 1) { $I->{$K} = abs($V) + 1 }
            &change_status($I,$K,$V,1);

作成でLIFが0にならないのならこちらも

使用するで、生のものを食べることが出来てしまう不具合を修正します。

library/use.cgiを開く

sub use:
        elsif ($Si->{Ql}{Rf} && !$I->{Sk}{Wb}) { &M("$Ii->{nm}は生で食べられない食材です。") }
↓
        elsif ($Ii->{Ql}{Rf} && !$I->{Sk}{Wb}) { &M("$Ii->{nm}は生で食べられない食材です。") }

【トップへ戻る】

アイテムデータの設定の不具合修正

設定ミスと思われる箇所を修正します。

item/arms.cgiを開く

          dt => { nm => '小剣の刃',
                  cl => 'Mt',
                  id => 'Midiumblade',
                  im => 'midiumblade.gif',
↓
          dt => { nm => '小剣の刃',
                  cl => 'Mt',
                  id => 'Mediumblade',
                  im => 'mediumblade.gif',


Midiumblade
を
Mediumblade
にすべて置き換え

【トップへ戻る】

マニュアルの修正

アイテム一覧表の修正

manual/item01.htmlを開く

    <td nowrap>水がめ</td>
↓
    <td nowrap>水瓶</td>


    <td nowrap>空の水がめ</td>
↓
    <td nowrap>空の水瓶</td>

manual/item02.htmlを開く

    <td nowrap>りんご</td>
↓
    <td nowrap>リンゴ</td>


    <td nowrap>食べかけのりんご</td>
↓
    <td nowrap>食べかけのリンゴ</td>

【トップへ戻る】

その他の修正

武具を宝飾するで、失敗してプラスが0に下がったときのメッセージが「変化なし」になる不具合を修正します。

library/ornament.cgiを開く

sub ornament_after:
            &change_status($Si,'pl',-1);
            $M = $Si->{pl} ? "$Si->{nm}のプラスが1下がりました。" : "$Si->{nm}のプラスに変化はありません。";
↓
            $M = $Si->{pl} ? "$Si->{nm}のプラスが1下がりました。" : "$Si->{nm}のプラスに変化はありません。";
            &change_status($Si,'pl',-1);

治療をしてもらうで、CGIプログラムエラーになる不具合を修正します。

library/cure.cgiを開く

sub cure_after:
    require "$set::lib_dir/partner.cgi";
↓
    require "$set::lib_dir/partner.cgi";
    require "$set::lib_dir/myrecord.cgi";

【トップへ戻る】

ちょっとしたこと

不具合ではないけど、一応やってみたことです。

インフォメーション作成で文字実体参照が使えるように(問題が起こりそうなのでやらないほうがいいかも)

master.cgiを開く

sub edit_information:
    $t1 =~ s/<br>/\n/g;
↓
    $t1 =~ s/<br>/\n/g;
    $t1 =~ s/&/&amp;/g;

sub make_information:
    $F{in} =~ s/&lt;/</g;
    $F{in} =~ s/&gt;/>/g;
↓
    $F{in} =~ s/&lt;/</g;
    $F{in} =~ s/&gt;/>/g;
    $F{in} =~ s/&amp;/&/g;

library/base.cgiを開く

sub decode:
        $V =~ s/</&lt;/g;
        $V =~ s/>/&gt;/g;
↓
	$V =~ s/&/&amp;/g;
        $V =~ s/</&lt;/g;
        $V =~ s/>/&gt;/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};
    }

他の地へ移動した時のボタンに戻るを追加

library/transfer.cgiを開く

sub transfer_after:
    &say("$I->{Pl}{nm}に移動しました",'CLOSE','Reload');
↓
    &say("$I->{Pl}{nm}に移動しました",'transfer_before','Reload');

【トップへ戻る】