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

治療後、キャラクターのデータが保存されない不具合を修正します。

library/cure.cgiを開く

sub cure_after:
#    &set_item($U);

#    &set_user($I);
#    &set_user($U);
↓
    &set_item($U);

    &set_user($I);
    &set_user($U);

コメントアウトを外すだけ

【リストへ戻る】

ペットが寿命を迎えた際、信頼度と空腹度が「あの世でうらんでいる」「餓死」になる不具合を修正します。

library/pet.cgiを開く

sub pet:
        if ($Ip->{hg}) {
            if ($age > $Ip->{ls}) {
                $age .= '歳で天寿を全うした';
                $Ip->{hg} = 0;
                $Ip->{ls} = -1;
                $saveflag = 1;
            }
↓
        if ($Ip->{hg}) {
            if ($age > $Ip->{ls}) {
                $age .= '歳で天寿を全うした';
                $Ip->{hg} = 0;
                $Ip->{ls} = -1;
                $saveflag = 1;
                $confidence = $stomach = $Ip->{ls};
            }

【リストへ戻る】

ファイルロックを実装？します。

sos3.cgiを開く

sub action:
    &{$md};
↓
    &{$md};
    &unlock('unlock');

master.cgiを開く

exit;
↓
&unlock('unlock');
exit;

library/base.cgiを開く

sub get_user:
    ($L) = &open_dat("$dir/$id.cgi");
↓
    &lock($id) if $W ne 'A' && $W ne 'B';

    ($L) = &open_dat("$dir/$id.cgi");

sub set_user:
    &write_dat("$V/$S->{id}.cgi",join('<>',@L));
↓
    &write_dat("$V/$S->{id}.cgi",join('<>',@L));

    &unlock($S->{id});

sub lock:
sub lock {
my  $V = shift;
my  $T = $set::lky < 0 ? 1 : 0;	# true -> check only
my  $flag = 10;

    return if !$set::lky;
    &error('Reload Lock Error') if !$V;
    $lock::table{$V} = 1 if !$T;
    $V = "$set::loc_dir/$V";

    if (abs $set::lky == 1) {
        rmdir($V) if (time - (stat($V))[9] > 60);
        while ( $T ? -e $V : !mkdir($V,0755) ) {
            --$flag or &error('現在、ファイル更新中です。','lock');
            sleep(1);
        }
    }
    elsif (abs $set::lky == 2) {
        eval { symlink("",""); };
        if ($@) { &error('Symlink Lock Error') }
        unlink($V) if (time - (stat($V))[9] > 60);
        while ( $T ? -e $V : !symlink(".",$V) ) {
            --$flag or &error('現在、ファイル更新中です。','lock');
            sleep(1);
        }
    }
}

に置き換え

sub unlock:
sub unlock {
my  $V = shift;
my  @L;

    return if !$V;

    @L = $V eq 'unlock' ? keys %lock::table : ($V);

    foreach (@L) {
        $V = "$set::loc_dir/$_";
        if    ($set::lky == 1) { rmdir($V)  }
        elsif ($set::lky == 2) { unlink($V) }
        delete $lock::table{$_};
    }
}

に置き換え

sub error:
    $V ||= $I->{lock};
↓
    $V ||= 'unlock';

sub say:
    &unlock($I->{lock});
↓
    &unlock('unlock');

library/bounty.cgiを開く

sub bounty_after:
    &lock($F{ud});
と
    &unlock($F{ud});
を削除

library/buy.cgiを開く

sub bounty_after:
    &lock($F{ud});
と
    &unlock($F{ud});
を削除

library/cure.cgiを開く

sub bounty_after:
    &lock($F{ud});
と
    &unlock($F{ud});
を削除

library/destone.cgiを開く

sub bounty_after:
    &lock($F{ud});
と
    &unlock($F{ud});
を削除

library/fight.cgiを開く

sub fight_player:
    &lock($F{ud});
を削除

sub fight_player:
    &set_user($I);
    &set_user($U);
    &set_pet($I) if $I->{Co};
    &set_pet($U) if $U->{Co};

    &unlock($F{ud});
↓
    &set_pet($I) if $I->{Co};
    &set_pet($U) if $U->{Co};
    &set_user($I);
    &set_user($U);

library/mail.cgiを開く

sub mail_after:
    &lock($U->{id});
と
    &unlock($U->{id});
を削除

library/main.cgiを開く

sub main:
    &lock($F{id});
と
    &unlock($F{id});
を削除

sub departure_monitor:
        &lock($D->[0]);
と
            &lock($_);
と
            &unlock($_);
と
        &unlock($D->[0]);
を削除

library/message.cgiを開く

sub message_after:
    $U = &get_user('U');
↓
    $U = &get_user('U');
    &unlock($U->{id});

library/new.cgiを開く

sub new_after:
    &regist_check;
↓
    &lock($F{id});

    &regist_check;

library/partner.cgiを開く

sub partner:
    &unlock($I->{lock});
↓
    &unlock('unlock');

library/playerlist.cgiを開く

sub playerlist:
    &get_resident($I);
↓
    &get_resident($I);

    $set::lky *= -1;	# check only モード

library/trade.cgiを開く

sub trade_after:
    &lock($F{id});
と
    &unlock($U->{id});
を削除

$I->{lock} は $I = &get_user('I'); の時点で消えてしまうので %lock::table にしました。統一感ないけどどうだろう

【リストへ戻る】

レベルアップ直後の経験値が正しく表示されない不具合を修正します。

library/experience.cgiを開く

sub experience:
    &reload_data('ex') if $S->{id} eq $F{id};

    if ($S->{ex} >= $S->{lv} * $set::exl) {
        $S->{ex} -= $S->{lv} * $set::exl;
        $S->{lv}++ if $S->{lv} < $set::lvx;
        $S->{lb}+= $set::lub;
        &M("<span class=levelup>$S->{nm}の$set::lab{lv}がUP！</span>");
        &reload_data('lv') if $S->{id} eq $F{id};
        if ($S->{Sk}{Tb}) {
            $S->{Mlf} += $set::clf;
            &reload_gage('lf','V') if $S->{id} eq $F{id};
        }
    }
↓
    if ($S->{ex} >= $S->{lv} * $set::exl) {
        $S->{ex} -= $S->{lv} * $set::exl;
        $S->{lv}++ if $S->{lv} < $set::lvx;
        $S->{lb}+= $set::lub;
        &M("<span class=levelup>$S->{nm}の$set::lab{lv}がUP！</span>");
        &reload_data('lv') if $S->{id} eq $F{id};
        if ($S->{Sk}{Tb}) {
            $S->{Mlf} += $set::clf;
            &reload_gage('lf','V') if $S->{id} eq $F{id};
        }
    }

    &reload_data('ex') if $S->{id} eq $F{id};

【リストへ戻る】

状態異常によけいな「・」が表示される不具合を修正します。

library/base.cgiを開く

sub condition_initial:
        while (($K,$V) = each %{$S->{Cd}}) {
↓
        delete $S->{Cd}{in};
        while (($K,$V) = each %{$S->{Cd}}) {

$set::cnd{in}[0] がpushされていたのを修正

【リストへ戻る】

ペットで、同じ種類のペットを同時に複数屠殺すると計算どおりの収穫が得られない不具合を修正します。

library/butcher.cgiを開く

sub butcher_after:
        foreach $Ui (@{$FI{$Ip->{nm}}}) {
↓
        foreach $Ii (@{$FI{$Ip->{nm}}}) {
            $Ui = {%$Ii};

$Ui->{qn}を書き換えていたため計算が狂ってしまっていた

【リストへ戻る】

ログイン時の渡航チェックの際「○○は現在ログイン中です」となる不具合を修正します。

library/base.cgiを開く

sub login_check:
my  $T = shift; # value = 'noerror'
↓
my  $T = shift; # true -> return true, false -> error

sub login_check:
		if ($T eq 'noerror') { return 1 }
↓
        if ($T) { return 1 }

【リストへ戻る】

屠殺、伐採、採掘で装備が壊れない不具合を修正します。

library/break.cgiを開く

sub break_check:
    &get_equipment($I,$E);
↓
    &get_equipment($S,$e);

sub break_check:
        foreach $Ii (@{$I->{Bg}}) {
            if ($Ii->{eq} eq $E) {
↓
        foreach $Ii (@{$S->{Bg}}) {
            if ($Ii->{eq} eq $e) {

sub break_check:
                    $I->{bg} -= $Ii->{wt};
↓
                    &change_status($S,'bg',-$Ii->{wt});

library/butcher.cgiを開く

sub butcher_after:
    if ($I->{Rh}{ql}{Cp}) {
        &reload_data('rh') if &break_check('rh');
    }
    else {
        &reload_data('sb') if &break_check('sb');
    }
↓
    if ($I->{Rh}{ql}{Cp}) {
        &reload_data('rh') if &break_check($I,'rh');
    }
    else {
        &reload_data('sb') if &break_check($I,'sb');
    }

library/lumberjacking.cgiを開く

sub lumberjacking:
    if ($I->{Rh}{ql}{Lj}) {
        &reload_data('rh') if &break_check('rh');
    }
    else {
        &reload_data('sb') if &break_check('sb');
    }
↓
    if ($I->{Rh}{ql}{Lj}) {
        &reload_data('rh') if &break_check($I,'rh');
    }
    else {
        &reload_data('sb') if &break_check($I,'sb');
    }

library/mine.cgiを開く

sub mine_after:
    if ($I->{Rh}{ql}{Mn}) {
        &reload_data('rh') if &break_check('rh');
    }
    else {
        &reload_data('sb') if &break_check('sb');
    }
    &reload_data('lh') if &break_check('lh');
↓
    if ($I->{Rh}{ql}{Mn}) {
        &reload_data('rh') if &break_check($I,'rh');
    }
    else {
        &reload_data('sb') if &break_check($I,'sb');
    }
    &reload_data('lh') if &break_check($I,'lh');

【リストへ戻る】

販売中のペットが時間経過で死んでいても死んでいることが表示されない不具合を修正します。

library/buy.cgiを開く

sub buy_before:
        next if !$Up->{sp};
↓
        next if !$Up->{sp};
        $Up->{hg} = 0 if &get_passage($Up->{bt},$set::pyt) > $Up->{ls};

【リストへ戻る】

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

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

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/playerlist.cgiを開く

sub sales_information:
            # 販売価格が設定され予約者がいない
            next unless $Ui->{sp} && !$Ui->{rs};
            $Ui->{Id} = $U->{id};
            $Ui->{Nm} = $U->{nm};
↓
            # 販売価格が設定され予約者がいない
            next unless $Ui->{sp} && !$Ui->{rs};
            $Ui->{Id} = $U->{id};
            $Ui->{nm} = &decorate_item($Ui,2);
            $Ui->{Nm} = $U->{nm};

sub sales_information:
        $T->{nm} .= "+$T->{pl}" if $T->{pl};
        $T->{nm} .= " x $T->{qn}" if $T->{qn} > 1;
を削除

library/base.cgiを開く

sub decorate_item:
my  $T = shift; # Blackmarket = 1
↓
my  $T = shift; # Blackmarket = 1, Sales Information = 2

sub decorate_item:
    $V = $Si->{Nm} ? $Si->{Nm} : $Si->{nm};
↓
    $V = $T != 2 && $Si->{Nm} ? $Si->{Nm} : $Si->{nm};

sub decorate_item:
    $V .= " x $W" if $W > 1 && !$T;
    $V .= " = " . int($Y * $X) . " $set::mny" if $Y;
    $V .= " （$Z$set::wgt）" if $Z;
    $V .= "・・・在庫 $W" if $T;
    $V .= "<br>\n";
↓
    $V .= " x $W" if $W > 1 && $T != 1;
    $V .= " = " . int($Y * $X) . " $set::mny" if $Y && $T != 2;
    $V .= " （$Z$set::wgt）" if $Z && $T != 2;
    $V .= "・・・在庫 $W" if $T == 1;
    $V .= "<br>\n" if $T != 2;
    $V;

【リストへ戻る】

天寿を全うしたペットの寿命を迎えた年齢を表示してみる

library/pet.cgiを開く

sub pet:
        if ($Ip->{hg}) {
            if ($age > $Ip->{ls}) {
                $age .= '歳で天寿を全うした';
                $Ip->{hg} = 0;
                $Ip->{ls} = -1;
↓
        if ($Ip->{hg}) {
            if ($age > $Ip->{ls}) {
                $age .= '歳で天寿を全うした';
                $Ip->{hg} = 0;
                $Ip->{ls} = -1;
                $Ip->{up} = time;

sub pet:
        else {
            $age  = '死後' . &get_passage($Ip->{up},$set::pyt) . '年';
↓
        else {
            $age  = '死後' . &get_passage($Ip->{up},$set::pyt) . '年';
            $age .= '　' . &get_passage(time - $Ip->{up} + $Ip->{bt},$set::pyt) . '歳で天寿を全うした' if $Ip->{ls} == -1;

【リストへ戻る】

オーブを纏めて表示してみる

library/orb.cgiを開く

sub orb_before:
    foreach (@{$I->{Ob}}) {
        $i++;
        $checked = /[a-z]/ ? ' checked' : '';
        $_ = lc $_;
        $t1 .= "<input type=checkbox name=$i class=checkbox$checked> ";
        $t1 .= &orb_image($_);
        $t1 .= "$set::orb{$_}$set::orb{x}<br>\n";
    }
↓
    $t1 .= "<table class=orb>\n";

    foreach ('a' .. 'l') {
        $count = $tcount = 0;
        $count++  while $I->{ob} =~ /$_/ig; $count  ||= 0;
        $tcount++ while $I->{ob} =~ /$_/g ; $tcount ||= 0;
        $checked = $tcount ? ' checked' : '';
        if ($count) {
            $t1 .= "<tr>";
            $t1 .= "<td><input type=checkbox name=$_ class=checkbox$checked> ";
            $t1 .= &orb_image($_);
            $t1 .= "$set::orb{$_}$set::orb{x}</td>";
            $t1 .= "<td>所持：$count</td>";
            $t1 .= "<td>交換：<input type=textbox size=4 name=t$_ value=$tcount class=textbox$checked></td>";
            $t1 .= "</tr>\n";
        }
    }

    $t1 .= "</table><br>\n";

sub orb_before:
    <tt>トレードに出す$set::orb{x}にチェックを入れてください。</tt><br>
↓
    <tt>
    トレードに出す$set::orb{x}にチェックを入れ<br>
    トレードに出す個数を入力してください。
    </tt><br>

sub orb_after:
    @{$I->{Ob}} = split(//,$I->{ob});
↓
    @{$I->{Ob}} = split(//,lc $I->{ob});

sub orb_after:
        $i++;
        $_ = $F{$i} ? lc $_ : uc $_;
↓
        $_ = $F{$_} && $F{"t$_"} ? ($F{"t$_"}--, $_) : uc $_;

library/trade.cgiを開く

sub trade_before:
    @{$I->{Ob}} = grep { !$unique{$_}++ }
                  map  { $_ = lc $_ } split(//,$I->{ob});
    $checked = ' checked';
    foreach (@{$I->{Ob}}) {
        $t1 .= qq|<input type=radio name=Iob class=radio value="$_"$checked> |;
        $t1 .= &orb_image($_);
        $t1 .= "$set::orb{$_}$set::orb{x}<br>\n";
        $checked = '';
    }

    @{$U->{Ob}} = grep { /[a-z]/ } split(//,$U->{ob});
    $checked = ' checked';
    foreach (@{$U->{Ob}}) {
        $t2 .= qq|<input type=radio name=Uob class=radio value="$_"$checked> |;
        $t2 .= &orb_image($_);
        $t2 .= "$set::orb{$_}$set::orb{x}<br>\n";
        $checked = '';
    }
↓
    $checked = ' checked';
    $t1 .= "<table class=orb>\n";
    foreach ('a' .. 'l') {
        $count = 0;
        $count++ while $I->{ob} =~ /$_/ig; $count ||= 0;
        if ($count) {
            $t1 .= "<tr>";
            $t1 .= "<td><input type=radio name=Iob value=$_ class=radio$checked> ";
            $t1 .= &orb_image($_);
            $t1 .= "$set::orb{$_}$set::orb{x}</td>";
            $t1 .= "<td>所持：$count</td>";
            $t1 .= "</tr>\n";
            $checked = '';
        }
    }
    $t1 .= "</table><br>\n";

    $checked = ' checked';
    $t2 .= "<table class=orb>\n";
    foreach ('a' .. 'l') {
        $count = 0;
        $count++ while $U->{ob} =~ /$_/g; $count ||= 0;
        if ($count) {
            $t2 .= "<tr>";
            $t2 .= "<td><input type=radio name=Uob value=$_ class=radio$checked> ";
            $t2 .= &orb_image($_);
            $t2 .= "$set::orb{$_}$set::orb{x}</td>";
            $t2 .= "<td>交換：$count</td>";
            $t2 .= "</tr>\n";
            $checked = '';
        }
    }
    $t2 .= "</table><br>\n";

library/playerlist.cgiを開く

sub playerlist:
        @{$U->{Ob}} = map { &orb_image($_) }
                     grep { /[a-z]/ } split(//,$U->{ob});
↓
        undef %trade;
        $trade{$_}  = $U->{ob} =~ s/$_//g foreach ('a' .. 'l');
        @{$U->{Ob}} = map { $trade{$_} ? &orb_image($_)."x$trade{$_}" : () } sort keys %trade;

sub.cssを開く

/* オーブ */
.orb td {
  margin: 0;
  padding: 0 3px 0 0;
  vertical-align: middle;
}

を追加

【リストへ戻る】

パックを銀行でも出来るようにする

library/bank.cgiを開く

sub bank_before:
        $t2 .= qq|<input type=checkbox name=i$i class=checkbox> |;
↓
        $t2 .= qq|<input type=checkbox name=$i class=checkbox> |;

sub bank_before:
    <br>
    <div class=r>$set::but{OK} $set::but{CLOSE}</div>
↓
    <div class=r>
    <select id=mode name=md class=select onChange="DisableObject('input','o','mode','bank_after','normal');">
    <option value="bank_after">銀行を利用する</option>
    <option value="pack">パックにする</option>
    <option value="unpack_before">パックを分ける</option>
    <option value="dump">捨てる</option>
    </select>
    $set::but{OK}<br>
    <br>
    $set::but{CLOSE}
    </div>

sub bank_before:
    <input type=hidden name=md value="bank_after">
    <input type=hidden name=xx value="$I->{XX}">
↓
    <input type=hidden name=xx value="$I->{XX}">
    <input type=hidden name=fl value="bank_before">

sub bank_after:
        next if !$F{"i$i"};
↓
        next if !$F{"$i"};

javascript/GetView.jsを開く

function DisableObject(tag,hid,cid,keyvalue,flag) {
    try {
        var val1 = flag == 'reverse' ? true : false;
        var val2 = flag == 'reverse' ? false : true;
    	target1 = document.getElementsByTagName(tag);
    	target2 = GetObject(cid,self);
    	for (var i in target1) {
    	    if (target1[i].name && target1[i].name.indexOf(hid) == 0) {
    	        target1[i].disabled  = target2.value == keyvalue ? val1 : val2;
    	    }
    	}
    }
    catch (err) {}
}

を追加

【リストへ戻る】

アイテムの使用でもレベルアップ出来るようにしてみる

library/experience.cgiを開く

sub experience:
    if ($S->{ex} >= $S->{lv} * $set::exl) {
        $S->{ex} -= $S->{lv} * $set::exl;
        $S->{lv}++ if $S->{lv} < $set::lvx;
        $S->{lb}+= $set::lub;
        &M("<span class=levelup>$S->{nm}の$set::lab{lv}がUP！</span>");
        &reload_data('lv') if $S->{id} eq $F{id};
        if ($S->{Sk}{Tb}) {
            $S->{Mlf} += $set::clf;
            &reload_gage('lf','V') if $S->{id} eq $F{id};
        }
    }
↓
    &levelup_check($S);

# Sub Level Up #
sub levelup_check {
my  $S = shift;

    if ($S->{ex} >= $S->{lv} * $set::exl) {
        $S->{ex} -= $S->{lv} * $set::exl;
        $S->{lv}++ if $S->{lv} < $set::lvx;
        $S->{lb}+= $set::lub;
        &M("<span class=levelup>$S->{nm}の$set::lab{lv}がUP！</span>");
        &reload_data('lv') if $S->{id} eq $F{id};
        if ($S->{Sk}{Tb}) {
            $S->{Mlf} += $set::clf;
            &reload_gage('lf','V') if $S->{id} eq $F{id};
        }
    }
}

を追加

library/use.cgiを開く

sub type_expendable:
            &change_status($I,$K,$V,1);
↓
            &change_status($I,$K,$V,1);
            if ($K eq 'ex') { require "$set::lib_dir/experience.cgi",&levelup_check($I) }

表示が変わらないようにくふう。

【リストへ戻る】

ログイン中の人数の表示を正確に

library/logout.cgiを開く

sub logout:
    &set_code('on');
↓
    &set_code('on');
    utime(time, time - $set::lgi, "$set::Ucd_dir/$I->{id}.cgi");

ログアウトしたら最終更新時刻を $set::lgi 秒前に戻す

library/main.cgiを開く

sub main:
    $precode = (stat("$set::Ucd_dir/$I->{id}.cgi"))[9];
↓
    $precode = (stat("$set::Ucd_dir/$I->{id}.cgi"))[9];
    $precode += $I->{li} eq 'out' ? $set::lgi : 0;

library/new.cgiを開く

sub make_code:
    chmod($set::pms,"$set::Ucd_dir/$I->{id}.cgi");
↓
    chmod($set::pms,"$set::Ucd_dir/$I->{id}.cgi");
    utime(time, time - $set::lgi, "$set::Ucd_dir/$I->{id}.cgi");

新規登録も同じように

【リストへ戻る】

表示の揺らぎを吸収

sos3.cssを開く

/* 全ての要素 */
* {
  -moz-box-sizing: border-box ;
  box-sizing: border-box ;
}

を追加

Mozilla系/Operaでもpaddingの扱いをIEと同じように

【リストへ戻る】

スロット数に現在の所持数を表示してみる

library/base.cgiを開く

sub get_item:
    $S->{Bg} = [@K];
↓
    $S->{Bs} = @K if $T == 0;
    $S->{Bk} = @K if $T == 3;

    $S->{Bg} = [@K];

library/bag.cgiを開く

sub bag:
    <tt>荷物スロット：$I->{bs}</tt><br>
↓
    <tt>荷物スロット：$I->{Bs}/$I->{bs}</tt><br>

library/bank.cgiを開く

sub bank_before:
    <tt>$I->{Sp}{Bk}{nm}スロット：$I->{bk} $set::wgt</tt><br>
↓
    <tt>$I->{Sp}{Bk}{nm}スロット：$I->{Bk}/$I->{bk}</tt><br>

sub bank_before:
    <tt>荷物スロット：$I->{bs}</tt><br>
↓
    <tt>荷物スロット：$I->{Bs}/$I->{bs}</tt><br>
    <tt>パックスキル：$I->{pc}</tt>

ついでにパックスキルも表示

library/blackmarket.cgiを開く

sub blackmarket_before:
    &get_item($U,1);
↓
    &get_item($I);
    &get_item($U,1);

sub blackmarket_before:
    アイテム総重量：$I->{bg}/$I->{Mbg} $set::wgt<br>
↓
    アイテム総重量：$I->{bg}/$I->{Mbg} $set::wgt<br>
    荷物スロット：$I->{Bs}/$I->{bs}<br>
    パックスキル：$I->{pc}<br>

荷物スロットのために &get_item …

library/buy.cgiを開く

sub buy_before:
    &get_item($U);
↓
    &get_item($I);
    &get_item($U);

sub buy_before:
    アイテム総重量：$I->{bg}/$I->{Mbg} $set::wgt<br>
↓
    アイテム総重量：$I->{bg}/$I->{Mbg} $set::wgt<br>
    荷物スロット：$I->{Bs}/$I->{bs}<br>
    パックスキル：$I->{pc}<br>

荷物スロットのために &get_item …

library/compose.cgiを開く

sub compose:
    <div class=r>
    <tt>アイテム総重量：$I->{bg}/$I->{Mbg} $set::wgt</tt><br>
    </div>
↓
    <div class=r><tt>
    アイテム総重量：$I->{bg}/$I->{Mbg} $set::wgt<br>
    荷物スロット：$I->{Bs}/$I->{bs}<br>
    パックスキル：$I->{pc}
    </tt></div>

library/farm.cgiを開く

sub farm_before:
    require "$set::itm_dir/$I->{Pl}{fm}";
↓
    &get_item($I);

    require "$set::itm_dir/$I->{Pl}{fm}";

sub farm_before:
    <div class=r><tt>アイテム総重量：$I->{bg}/$I->{Mbg} $set::wgt</tt></div>
↓
    <div class=r><tt>
    アイテム総重量：$I->{bg}/$I->{Mbg} $set::wgt<br>
    荷物スロット：$I->{Bs}/$I->{bs}<br>
    パックスキル：$I->{pc}
    </tt></div>

荷物スロットのために &get_item …

library/price.cgiを開く

sub price_before:
    foreach $Ii (@{$I->{Bg}}) {
        $i++;
↓
    $I->{Sl} = 0;

    foreach $Ii (@{$I->{Bg}}) {
        $i++;
        $I->{Sl}++ if $Ii->{sp} && $Ii->{cl} ne 'Cu';

sub price_before:
    <div class=r><tt>販売スロット：$I->{vx}</tt></div>
↓
    <div class=r><tt>販売スロット：$I->{Sl}/$I->{vx}</tt></div>

library/shopping.cgiを開く

sub shopping_before:
    &get_item($I);
↓
    &get_item($I);

    require "$set::itm_dir/$I->{Pl}{mk}";

sub shopping_before:
    アイテム総重量：$I->{bg}/$I->{Mbg} $set::wgt<br>
↓
    アイテム総重量：$I->{bg}/$I->{Mbg} $set::wgt<br>
    荷物スロット：$I->{Bs}/$I->{bs}<br>
    パックスキル：$I->{pc}<br>

荷物スロットのために &get_item …

library/unpack.cgiを開く

sub unpack_before:
    <div class=r><tt>荷物スロット：$I->{bs}</tt></div>
↓
    <div class=r><tt>荷物スロット：$I->{Bs}/$I->{bs}</tt></div>

アイテムの購入フォームを統一を導入した際に便利そうな場所にも追加してみました

【リストへ戻る】

戦闘時のメッセージをちょっと整形してみる

library/fight.cgiを開く

sub fight_player:
        &M("$I->{Nm}が暴\走した！");
↓
        &M("$I->{Nm}が暴\走した！");
        &M();

sub fight_player:
        &concrete_battle($A,$D,'の攻撃。');
        &concrete_battle($D,$A,'の攻撃。');
↓
        &concrete_battle($A,$D,'の攻撃。');
        &concrete_battle($D,$A,'の攻撃。');
        &M();

sub fight_player:
        &concrete_battle($A,$D,'のカウンター！');
↓
        &concrete_battle($A,$D,'のカウンター！');
        &M();

sub first_battle:
    if ($S->{Sk}{Sa}) {
        &concrete_battle($S,$O,'による闇討ち！',1);
    }
    elsif ($V1) {
        &initiative($V1);
        if ($A->{Rh}{cl} eq 'Bo') {
            &concrete_battle($A,$D,'の先制攻撃！',1);
        }
    }
    elsif ($V2) {
        &initiative($V2);
        &throw_weapon($A,$D,"は$A->{Rh}{nm}を投げた！",1);
    }
    elsif ($V3) {
        &initiative($V3);
        if (&skill_roll($A,$set::sQg,$A->{in} * 3)) {
            &concrete_battle($A,$D,"は$SK{Qg}を放った！",1);
        }
    }
    elsif ($V4) {
        &initiative($V4);
        if (&skill_roll($A,$set::sQd,$A->{in} * 3)) {
            &concrete_battle($A,$D,"の$SK{Qd}！",1);
            $V5 = $V4 * -1;
            $set::frd--;
        }
    }
↓
    if ($S->{Sk}{Sa}) {
        &concrete_battle($S,$O,'による闇討ち！',1);
        &M();
    }
    elsif ($V1) {
        &initiative($V1);
        if ($A->{Rh}{cl} eq 'Bo') {
            &concrete_battle($A,$D,'の先制攻撃！',1);
            &M();
        }
    }
    elsif ($V2) {
        &initiative($V2);
        &throw_weapon($A,$D,"は$A->{Rh}{nm}を投げた！",1);
        &M();
    }
    elsif ($V3) {
        &initiative($V3);
        if (&skill_roll($A,$set::sQg,$A->{in} * 3)) {
            &concrete_battle($A,$D,"は$SK{Qg}を放った！",1);
            &M();
        }
    }
    elsif ($V4) {
        &initiative($V4);
        if (&skill_roll($A,$set::sQd,$A->{in} * 3)) {
            &concrete_battle($A,$D,"の$SK{Qd}！",1);
            &M();
            $V5 = $V4 * -1;
            $set::frd--;
        }
    }

交戦の後に &M() で改行を入れました

【リストへ戻る】

作成後の表示を変えてみる

library/compose.cgiを開く

sub compose_after:
        $Ui->{Im} = &item_image($Ui->{dt});
        &M("$Ui->{Im}$Ui->{dt}{nm} x $Ui->{dt}{qn}を作成しました。");

を削除

sub compose_after:
        &deluxe_roll($I,$Ui->{dt}) if $Ui->{dt}{cl} eq 'Fd';
        &double_roll($I,$Ui->{dt}) if $Ui->{dt}{cl} eq 'Mt';
↓
        &deluxe_roll($I,$Ui->{dt}) if $Ui->{dt}{cl} eq 'Fd';
        &double_roll($I,$Ui->{dt}) if $Ui->{dt}{cl} eq 'Mt';
        &M(&decorate_item($Ui->{dt},2)."を作成しました。");
        &M("<span class=effect>$Ui->{dt}{nm}は<span class=Ex>エクセレント品</span>です。</span>") if $Ui->{dt}{Ql}{Ex};
        &M("<span class=effect>$Ui->{dt}{nm}は<span class=Dx>デラックス品</span>です。</span>")   if $Ui->{dt}{Ql}{Dx};
        &M("<span class=effect>いつもの二倍の量を作成する事に成功しました。</span>")              if $Ui->{dt}{DB};

sub excellent_roll:
        &M("$Si->{nm}は<span class=Ex>エクセレント品</span>です。");
↓
        $Si->{Ql}{Ex} = 1;

sub deluxe_roll:
        &M("$Si->{nm}は<span class=Dx>デラックス品</span>です。");
↓
        $Si->{Ql}{Dx} = 1;

sub double_roll:
        &M("いつもの二倍の量を作成する事に成功しました。");
↓
        $Si->{DB} = 1;

販売情報に記載されるアイテムデータを詳しくを先に行う必要があります

【リストへ戻る】

接触した相手がログイン中の場合に戻るボタンを表示してみる

library/base.cgiを開く

sub login_check:
my  $T = shift; # value = 'noerror'
↓
my  $T = shift; # mode -> say, true -> return true, false -> error

sub login_check:
        if ($T) { return 1 }
↓
        if ($T =~ /\D/) { &say("$S->{nm}は現在ログイン中です",$T) }
        if ($T) { return 1 }

ログイン時の渡航チェックの際「○○は現在ログイン中です」となる不具合の修正を先に行う必要があります

library/bounty.cgiを開く

sub bounty_after:
    &login_check($U);
↓
    &login_check($U,'bounty_before');

library/buy.cgiを開く

sub buy_before:
    &login_check($U);
↓
    &login_check($U,'contact_before');

sub buy_after:
    &login_check($U);
↓
    &login_check($U,'contact_before');

library/contact.cgiを開く

sub contact_after:
    &login_check($U);
↓
    &login_check($U,'contact_before');

library/cure.cgiを開く

sub cure_before:
    &login_check($U);
↓
    &login_check($U,'contact_before');

sub cure_after:
    &login_check($U);
↓
    &login_check($U,'contact_before');

library/destone.cgiを開く

sub destone:
    &login_check($U);
↓
    &login_check($U,'contact_before');

library/fight.cgiを開く

sub fight_player:
    &login_check($U);
↓
    &login_check($U,'contact_before');

library/playerlist.cgiを開く

sub playerlist:
        $U->{Li} = &login_check($U,'noerror') ? '○' : '●';
↓
        $U->{Li} = &login_check($U,1) ? '○' : '●';

library/trade.cgiを開く

sub trade_before:
    &login_check($U);
↓
    &login_check($U,'contact_before');

【リストへ戻る】

パックするアイテムがないときのメッセージを追加してみる

library/pack.cgiを開く

sub pack:
    &set_code;
↓
    &say("アイテムが選択されていません",$F{fl}) if !$id;

    &set_code;

【リストへ戻る】

モンスターの出る地域でお金を拾えるように

library/find.cgiを開く

sub encounter:
    &found($I,'it',$set::fvt,'探索','つ手に入れました',0,'monster');
↓
    &found($I,'it',$set::fvt,'探索','つ手に入れました',1,'monster');

【リストへ戻る】

耐久力減少

set.cgiを開く

# その他 Others ###################################### #
$edb = 10;                   # 生産時の装備耐久度減少確率(n%)
$fdb = 10;                   # 戦闘時の装備耐久度減少確率(n%)

library/base.cgiを開く

# Sub Set Equipment #
sub set_equipment {
my  $S = shift;
my  $Si = shift;

    $S->{$Si->{eq}} = "$Si->{nm}/$Si->{cl}/$Si->{ql}/$Si->{ef}/$Si->{db}/$Si->{im}/$Si->{gd}/$Si->{pl}/$Si->{cr}";
}

を追加。

library/break.cgiを開く

sub break_check:
        $S->{$e} = '';
        undef $S->{$E};
        return 1;
    }
↓
        $S->{$e} = '';
        undef $S->{$E};
        return 1;
    }
    elsif (&roll_dice(100) <= $set::edb) {
        foreach $Ii (@{$S->{Bg}}) {
            if ($Ii->{eq} eq $e) {
                &M("$S->{$E}{nm}の耐久力が下がりました。");
                $Ii->{db}--;
                &set_equipment($S,$Ii);
                last;
            }
        }
        return 0;
    }

library/consumption.cgiを開く

sub consumption_check:
            else {
                &change_status($I,'bg',-$Si->{wt});
                $Si->{qn} = 0;
            }
            $I->{$Si->{eq}} = '';
            &reload_data($Si->{eq});
        }
↓
            else {
                &change_status($I,'bg',-$Si->{wt});
                $Si->{qn} = 0;
            }
            $I->{$Si->{eq}} = '';
            &reload_data($Si->{eq});
        }
        elsif (&roll_dice(100) <= $set::edb) {
            &M("$Si->{nm}の耐久力が下がりました。");
            $Si->{db}--;
            &set_equipment($I,$Si);
        }

library/equip.cgiを開く

sub fitting_room:
    $I->{$E} = "$Si->{nm}/$Si->{cl}/$Si->{ql}/$Si->{ef}/$Si->{db}/$Si->{im}/$Si->{gd}/$Si->{pl}/$Si->{cr}";
    $Si->{sp} = $Si->{rs} = '';
    $Si->{eq} = $E;
↓
    $Si->{sp} = $Si->{rs} = '';
    $Si->{eq} = $E;
    &set_equipment($I,$Si);

library/fight.cgiを開く

sub fight_player:
    # 奪取チェック #
    &steal_check($I) if !$U->{Op}{Sc};
↓
    # 奪取チェック #
    &steal_check($I) if !$U->{Op}{Sc};

    # 装備耐久度減少チェック #
    &equip_wear_check($I);
    &equip_wear_check($U);
    &M();

sub fight_creature:
    &baggage_check($I) if ref $I->{BI};
↓
    &equip_wear_check($I);
    &baggage_check($I) if ref $I->{BI};

sub baggage_check:
        next if !$F;
↓
        next if !$F;
        if ($F == 2) {
            if (--$Ii->{db} > 0) {
                &set_equipment($S,$Ii);
            }
            else {
                &destruction_check($S,$Ii->{eq});
                $F = 1;
            }
        }
        next if $F == 2;

# Sub Equip Wear Check #
sub equip_wear_check {
my  $S = shift;
my ($e,$E);

    return if !$set::fdb;
    return if $S->{Op}{Ub};

    foreach $e (keys %set::eqp) {
        $E = ucfirst($e);
        next if $S->{$e} eq '';
        next if $e eq 'rh' && $S->{Rh}{nm} eq '';
        next if $S->{BI}{$e};

        if (&roll_dice(100) <= $set::fdb) {
            $S->{BI}{$e} = 2;
            &M("$S->{Nm}の$S->{$E}{nm}の耐久力が減少した。");
        }
    }
}


を追加

【リストへ戻る】

オートパッキングを実装してみる

library/bag.cgiを開く

sub bag:
    <option value="pack">パックにする</option>
↓
    <option value="pack">パックにする</option>
    <option value="pack_all">全てをパックにする</option>

library/bank.cgiを開く

sub bank_before:
    <option value="pack">パックにする</option>
↓
    <option value="pack">パックにする</option>
    <option value="pack_all">全てをパックにする</option>

library/compose.cgiを開く

sub compose:
    <option value="pack">パックにする</option>
↓
    <option value="pack">パックにする</option>
    <option value="pack_all">全てをパックにする</option>

library/pack.cgiを開く

# Sub Pack All #
sub pack_all {
    $I = &get_user('I');
    &say("パックスキルがありません",$F{fl}) if $I->{pc} < 2;

    &get_item($I);

    &auto_pack($I,$I->{Bg});

    &set_code;

    &sort_item($I);

    &set_item($I);

    &say("可能\なアイテムを全てパックにしました。",$F{fl});
}

# Sub Auto Pack #
sub auto_pack {
my  $S = shift;
my  $V = shift; # Bag
my  $T = shift; # Bank Slot
my ($Ii,$i,%P);

    foreach $Ii (@{$V}) {
        next if !$Ii;
        next if &item_class_check($Ii) ne 'M';
        next if $Ii->{qn} >= $S->{pc};
        if ($P{"$Ii->{id}:$Ii->{ql}:$Ii->{gd}"}) {
            foreach $i (0 .. $Ii->{qn}) {
                $Ii->{Qn} = $i;
                last if $P{"$Ii->{id}:$Ii->{ql}:$Ii->{gd}"}{qn} + $i >= $S->{pc};
            }
            $Ii->{qn}                               -= $Ii->{Qn};
            $P{"$Ii->{id}:$Ii->{ql}:$Ii->{gd}"}{qn} += $Ii->{Qn};
            $P{"$Ii->{id}:$Ii->{ql}:$Ii->{gd}"}{sp} = $Ii->{sp} = '' if $Ii->{Qn};

            if (!$Ii->{qn}) {
                $T->{Sl}-- if $T;
                undef $Ii; delete $P{"$Ii->{id}:$Ii->{ql}:$Ii->{gd}"};
            }
            else {
                $P{"$Ii->{id}:$Ii->{ql}:$Ii->{gd}"} = $Ii;
            }
        }
        else {
            $P{"$Ii->{id}:$Ii->{ql}:$Ii->{gd}"} = $Ii;
        }
    }
}

を追加

可能な限りすべてパック。パックスキル以上の量をパックしているものは無視するので安心

【リストへ戻る】

銀行に指定個数取引/銀行自動整理機能追加

javascript/GetCookie.jsを開く

function GetValue:
	document.loginform.ps.value = GetCookie("ps");
↓
	document.loginform.ps.value = GetCookie("ps");
	document.loginform.bk.value = GetCookie("bk");

function BankAutoCheck() {
	document.bank.bk.checked = GetCookie("bk") != "" ? true : false;
}

を追加

library/base.cgiを開く

sub set_cookie:
    $ck = "id\:$F{id}\,ps\:$F{ps}\,";
↓
    $ck = "id\:$F{id}\,ps\:$F{ps}\,bk\:$F{bk}\,";

library/bank.cgiを開く

sub bank_before:
        $t1 .= qq|<input type=checkbox name=o$i class=checkbox> |;
        $t1 .= &decorate_item($Ii);
↓
        $t1 .= qq|<tr>\n<td>\n|;
        $t1 .= qq|<input type=checkbox name=o$i class=checkbox> |;
        $t1 .= &decorate_item($Ii);
        $t1 .= qq|</td>\n<td class=r>|;
        $Ii->{qn} ||= 1;
        $t1 .= qq|<input type=textbox name=ot$i class=textbox size=5 value=$Ii->{qn}>|;
        $t1 .= qq|</td>\n</tr>\n|;

sub bank_before:
        $t2 .= qq|<input type=checkbox name=$i class=checkbox> |;
        $t2 .= &decorate_item($Ii);
↓
        $t2 .= qq|<tr>\n<td>\n|;
        $t2 .= qq|<input type=checkbox name=$i class=checkbox> |;
        $t2 .= &decorate_item($Ii);
        $t2 .= qq|</td>\n<td class=r>|;
        $Ii->{qn} ||= 1;
        $t2 .= qq|<input type=textbox name=it$i class=textbox size=5 value=$Ii->{qn}>|;
        $t2 .= qq|</td>\n</tr>\n|;

sub bank_before:
    &header(CSS=>'sub',JavaScript=>'GetView');
↓
    &header(CSS=>'sub',JavaScript=>'GetCookie,GetView',Body=>' onLoad="BankAutoCheck();"');

sub bank_before:
    <form method=post action=$set::cgi_url>
↓
    <form name=bank method=post action=$set::cgi_url>

sub bank_before:
    $I->{Sp}{Bk}{nm}からアイテムを出す<br>
    <br>
    $t1
↓
    <table class=item>
    <tr class=first>
    <td>$I->{Sp}{Bk}{nm}からアイテムを出す</td>
    <td class=r>引出個数</td>
    </tr>
    $t1
    </table>

sub bank_before:
    $I->{Sp}{Bk}{nm}にアイテムを保管する<br>
    <br>
    $t2
↓
    <table class=item>
    <tr class=first>
    <td>$I->{Sp}{Bk}{nm}にアイテムを保管する</td>
    <td class=r>預入個数</td>
    </tr>
    $t2
    </table>

sub bank_before:
    <tt>荷物スロット：$I->{bs}</tt><br>
↓
    <tt>荷物スロット：$I->{bs}</tt><br>
    <tt>パックスキル：$I->{pc}</tt>

sub bank_before:
    <div class=r>$set::but{OK} $set::but{CLOSE}</div>
↓
    <div class=r>
    <tt>銀行自動整理：<input type=checkbox name=bk class=checkbox></tt><br>
    <br>
    $set::but{OK} $set::but{CLOSE}
    </div>

sub bank_after:
my  $Ui;
↓
my  $Ui;
my  $Si;

sub bank_after:
        &say("$Ii->{nm}は装備中です。",'bank_before') if $Ii->{eq};
↓
        &say("$Ii->{nm}は装備中です。",'bank_before') if $Ii->{eq};
        &say("$Ii->{nm}：数値以外は使用出来ません。",'bank_before') if $F{"it$i"} =~ /\D/;

sub bank_after:
        $I->{bg} -= $Ii->{qn} * $Ii->{wt};
        $Ii->{sp} = '';
        push(@{$U->{Bg}},$Ii);
        undef $Ii;
↓
        $F{"it$i"} = $Ii->{qn} if $F{"it$i"} > $Ii->{qn};
        $F{"it$i"} = 1         if $F{"it$i"} <= 0;
        $I->{bg} -= $F{"it$i"} * $Ii->{wt};
        $Ii->{sp} = '';
        $Ii->{qn} -= $F{"it$i"};

        $Si = {%$Ii};
        $Si->{qn} = $F{"it$i"};
        push(@{$U->{Bg}},$Si);
        if (!$Ii->{qn}) { undef $Ii }

銀行で、値段設定してあるアイテムを引き出すと販売スロットより多くアイテムを販売できる不具合の修正を先にやっておく必要があります

sub bank_after:
        $U->{Sl}--;
        $I->{bg} += $Ui->{qn} * $Ui->{wt};
        push(@{$I->{Bg}},$Ui);
        undef $Ui;
↓
        &say("$Ui->{nm}：数値以外は使用出来ません。",'bank_before') if $F{"ot$i"} =~ /\D/;
        $F{"ot$i"} = $Ui->{qn} if $F{"ot$i"} > $Ui->{qn};
        $F{"ot$i"} = 1         if $F{"ot$i"} <= 0;
        $I->{bg} += $F{"ot$i"} * $Ui->{wt};
        $Ui->{qn} -= $F{"ot$i"};

        $Si = {%$Ui};
        $Si->{qn} = $F{"ot$i"};
        push(@{$I->{Bg}},$Si);
        if (!$Ui->{qn}) { undef $Ui; $U->{Sl}-- }

sub bank_after:
    &say("$I->{Sp}{Bk}{nm}スロットがいっぱいです。",'bank_before') if $U->{Sl} > $I->{bk};
↓
    if ($F{bk}) {
        require "$set::lib_dir/pack.cgi";
        &auto_pack($I,$U->{Bg},$U);
    }

    &say("$I->{Sp}{Bk}{nm}スロットがいっぱいです。",'bank_before') if $U->{Sl} > $I->{bk};

オートパッキングを先に行う必要があります

sub bank_after:
    &set_user($I);
↓
    &set_user($I);

    &set_cookie;

library/top.cgiを開く

sub top:
<input type=hidden name=md value="main">
↓
<input type=hidden name=md value="main">
<input type=hidden name=bk>

sub.cssを開く

/* アイテム */
.item {
  width: 100%;
}
.item .first td {
  padding-bottom: 5px;
  font-size: 11px;
  font-family: monospace;
  color: #005533;
}
.item td {
  margin: 0;
  padding: 0;
  font-size: 12px;
}
.item td.r {
  vertical-align: bottom;
}


を追加

【リストへ戻る】

アイテムの購入フォームを統一してみる

市場・闇市・農場・パートナーで、購入フォームの仕様を統一します。
買いたいアイテムにチェックを入れ、欲しい数を指定して購入します。
パックできるものはパックされ、パックスキル以上の量を買ったときは分割されて荷物に入ります。
つまりパックスキルを超えた量をパックする目的で買い物をすることが出来なくなります。
値段設定は単価を指定することになります。
パックスキルの価値がぐんと上がる一方で、棚の価値が多少下がるかと思います。
ただ、パックスキルが低い・いろんな種類のアイテムを販売したいときは棚が必要になるので深刻なほどではないと思います。

※ パックスキルを超えてのパックを許可するかの設定を追加しました。
※ 購入個数を指定できるようにするかの設定を追加しました。
※ 「値段を設定する」で単価を入力するか全体価格を入力するかの設定をを追加しました。

set.cgiを開く

# 市場 Market ######################################## #
$uop = 1;                    # 値段を設定するで単価を入力する(yes=1,no=0)
%mpc = (Mk=>0,Fm=>0,         # 市場,農場,闇市,対人での購入でパックスキルを超えてのパックを許可する(yes=1,no=0)
        Bm=>0,Xx=>0);
%mif = (Mk=>1,Fm=>1,         # 市場,農場,闇市,対人での購入で購入個数を指定出来るようにする(yes=1,no=0)
        Bm=>1,Xx=>1);

data/place.cgiを開く

    'Bm' => { 'nm' => '闇市'},
↓
    'Bm' => { 'md' => 'blackmarket_before',
              'nm' => '闇市'},

library/purchase.cgiを作成する

# --------------------------------------------------- #
# Script of Saga III Purchase.cgi Version 1 (1.4)
# Copyright (C) 2005-2007 Missing Link.
# --------------------------------------------------- #

# Sub Purchase Item #
sub purchase_item {
my  $V = shift; # item ref
my  $P = shift; # place
my  $R = shift; # return mode
my  $T;
my  $G;
my  $M;
my  $Ii;
my  $Ui;
my  $buyitemflag;
my ($i,$n);
my ($keychck,$keytext);

    $I->{Ap} ||= 1;

    $R ||= $I->{Sp}{$P}{md};

    $T = $P eq 'Xx' ? 2 :
         $P eq 'Bm' ? 1 : 0;

    $G = !$T || $T == 2 && !$set::mif{$P} ? 1 : 0;

    foreach $Ui (@$V) {
        $i++;
        $keychck = $T == 2 ?   "$i-$Ui->{id}-$Ui->{sp}" :   "$Ui->{id}_$Ui->{gd}";
        $keytext = $T == 2 ? "t-$i-$Ui->{id}-$Ui->{sp}" : "t_$Ui->{id}_$Ui->{gd}";

        $F{$keytext} = !$set::mif{$P} ? $T == 2 ? $Ui->{qn} : 1 : $F{$keytext};

        next if !$F{$keychck} || !$F{$keytext};

        if ($F{dl}) { $Ui->{qn} = 0; next }

        &error('Price Error') if $T == 2 && !$Ui->{sp};
        &error('Quantity Error') if !$Ui->{qn};


        if ($F{$keytext} =~ /\D/) {
            $T == 2 && &M("$Ui->{nm}：数値以外は使用出来ません") && next;
            &say("$Ui->{nm}：数値以外は使用出来ません",$R);
        }
        $F{$keytext} = $Ui->{qn} if $T && $F{$keytext} > $Ui->{qn};


        $Ui->{Qn} = $T ? $F{$keytext} : $Ui->{qn} * $F{$keytext};
        $Ui->{Wt} = $Ui->{wt} * $Ui->{Qn};
        $Ui->{sp} = $Ui->{bp} * $set::mtp + $set::mpp if $T != 2;
        $Ui->{sp}/= $Ui->{qn} if $T == 2 && !$set::uop;
        $Ui->{sP} = int($Ui->{sp});
        $Ui->{Sp} = $Ui->{sP} * $Ui->{Qn};
        $Ui->{SP} = $G ? int($Ui->{sP} * $Ui->{qn} * $I->{Ap})
                       : int($Ui->{sP} * $I->{Ap}) * $Ui->{Qn};
        $Ui->{SP}*= $F{$keytext} if !$T;


        if ($Ui->{rs} && $Ui->{rs} ne $I->{id}) {
            $T == 2 && &M("$Ui->{nm}は他の人に予\約されています。") && next;
            &say("$Ui->{nm}は他の人に予\約されています",$R);
        }
        elsif ($I->{bg} + $Ui->{Wt} > $I->{Mbg}) {
            $T == 2 && &M("これ以上は重くて持てません。") && next;
            &say('これ以上は重くて持てません',$R);
        }
        elsif ($Ui->{SP} > $I->{gl}) {
            $T == 2 && &M("$Ui->{nm}を買うお金がありません。") && next;
            &say('お金が足りません',$R);
        }


        # パック不可アイテムの場合バラで追加 #
        if (&item_class_check($Ui) ne 'M') {
            $Ii = {%$Ui};
            $Ii->{sp} = '';
            $Ii->{rs} = '';
            push (@{$I->{Bg}},$Ii) foreach 1 .. $F{$keytext};
        }
        # パックスキルを超えてのパックが許可されている場合 #
        elsif ($set::mpc{$P}) {
            $Ii = {%$Ui};
            $Ii->{qn} = $Ui->{Qn};
            $Ii->{sp} = '';
            $Ii->{rs} = '';
            push (@{$I->{Bg}},$Ii);
        }
        # パックスキルを超えてのパックが許可されていない場合 #
        else {
            $Ui->{QN} = $Ui->{Qn};
            $Ui->{qN} = !$T ? $Ui->{qn} : 1; # フラグがなければパックの状態をひとつとして、そうでなければバラで判定

            # 購入個数ぶん荷物に収まるまで追加 #
            while ($Ui->{QN} > 0) {
                # パックスキルをチェックし、できるだけパック #
                foreach (1 .. $F{$keytext}) {
                    $n = $_;
                    $n-- && last if $Ui->{qN} * $n > $I->{pc};
                }
                $n = 1 if $n < 1;

                $Ii = {%$Ui};
                $Ii->{qn} = $Ui->{qN} * $n;
                $Ii->{sp} = '';
                $Ii->{rs} = '';
                push (@{$I->{Bg}},$Ii);

                $F{$keytext} -= $n;
                $Ui->{QN} -= $Ii->{qn};
            }
        }

        if (@{$I->{Bg}} > $I->{bs}) {
            $T == 2 && &M("荷物スロットが一杯です。") && next;
            &say("荷物スロットが一杯です",$R);
        }


        $M .= &beat_price($Ui) if $T == 2;

        &change_status($U,'gl',$Ui->{Sp});
        &change_status($I,'bg',$Ui->{Wt});
        &change_status($I,'gl',-$Ui->{SP});
        &change_status($U,'bg',-$Ui->{Wt});

        $Ui->{qn}-= $Ui->{Qn};
        $Ui->{sp}*= $Ui->{qn} if $T == 2 && !$set::uop;
        $Ui->{Im} = &item_image($Ui);

        $M .= "$Ui->{Im}$I->{nm}は$Ui->{nm}を$Ui->{Qn}つ、$Ui->{Sp} $set::mnyで購入しました。<br>\n";
        &M("$Ui->{Im}$Ui->{nm}を$Ui->{Qn}つ、$Ui->{SP} $set::mnyで購入しました。");

        $buyitemflag = 1;
    }

    return $buyitemflag ? $M : '';
}

# Sub Purchase Pet #
sub purchase_pet {
my  $V = shift; # item ref
my  $P = shift; # place
my  $R = shift; # return mode
my  $T;
my  $Q;
my  $Ii;
my  $Ui;
my  $buypetsflag;
my ($i,$n);
my ($keychck,$keytext);

    $I->{Ap} ||= 1;

    $R ||= $I->{Sp}{$P}{md};

    $T = $P eq 'Xx' ? 2 :
         $P eq 'Bm' ? 1 : 0;

    $Q = $T == 2 || !$set::mif{$P} ? 1 : 0;

    foreach $Up (@$V) {
        $i++;
        $keychck = $T == 2 ?   "$i-$Up->{id}-$Up->{sp}" :   "$Up->{id}_$Up->{gd}";
        $keytext = $T == 2 ? "t-$i-$Up->{id}-$Up->{sp}" : "t_$Up->{id}_$Up->{gd}";
        $F{$keytext} = 1 if $Q;
        next if !$F{$keychck} || !$F{$keytext};
        &error('Price Error') if $T == 2 && !$Up->{sp};
        if ($F{dl}) { $Up->{id} = ''; next }

        if ($F{$keytext} =~ /\D/) {
            $T == 2 && &M("$Ui->{nm}：数値以外は使用出来ません") && next;
            &say("$Ui->{nm}：数値以外は使用出来ません",$R);
        }

        $Up->{Qn} = $F{$keytext};
        $Up->{Sl} = $Up->{sl} * $Up->{Qn};
        $Up->{sp} = $Up->{bp} * $set::mtp + $set::mpp if $T != 2;
        $Up->{Sp} = $Up->{sp} * $Up->{Qn};
        $Up->{SP} = int($Up->{sp} * $I->{Ap}) * $Up->{Qn};

        if ($Up->{rs} && $Up->{rs} ne $I->{id}) {
            $T == 2 && &M("$Up->{nm}は他の人に予\約されています。") && next;
            &say("$Up->{nm}は他の人に予\約されています",$R);
        }
        elsif ($I->{px} + $Up->{Sl} > $I->{Mpx}) {
            &M("$Up->{nm}のためのスロットが空いていません。") && next;
            &say("スロットの空きが足りません",$R);
        }
        elsif ($Up->{SP} > $I->{gl}) {
            $T == 2 && &M("$Up->{nm}を買うお金がありません。") && next;
            &say('お金が足りません',$R);
        }

        $M .= &beat_price($Up);

        &change_status($U,'gl',$Up->{Sp});
        &change_status($I,'px',$Up->{Sl});
        &change_status($I,'gl',-$Up->{SP});
        &change_status($U,'px',-$Up->{Sl});

        $Up->{Im} = &item_image($Up);

        $M .= "$Up->{Im}$I->{nm}は$Up->{nm}を$Up->{Sp} $set::mnyで購入しました。<br>\n";
        &M("$Up->{Im}$Up->{nm}を$Up->{Qn}匹、$Up->{SP} $set::mnyで購入しました。");

        $Up->{sp} = '';
        $Up->{rs} = '';
        foreach (1 .. $F{$keytext}) {
            if ($T != 2) {
                $Up->{up} = $Up->{bt} = time;
                $Up->{pd} = time if $Up->{pd};
                $Up->{ch} = &roll_dice(4) - 1;
            }
            push (@{$I->{Pt}},{%$Up});
        }
        $Up->{id} = '';
        $buypetsflag = 1;
    }

    return $buypetsflag ? $M : '';
}

# Beat the Price #
sub beat_price {
my  $Si = shift;

    # 値切り #
    if ($I->{Sk}{Bp} && &roll_dice(100 + $I->{Map} - $I->{ap}) <= $set::sBp) {
        $Si->{sp} -= int($Si->{sp} * $set::uBp / 100);
        $Si->{Sp} -= int($Si->{Sp} * $set::uBp / 100);
        &M("$U->{nm}は$Si->{nm}を$set::uBp%引きの$Si->{Sp} $set::mnyにしてくれました。");
        return "$Si->{nm}を$set::uBp%引きにしてあげました。<br>\n";
    }
    return '';
}

# --------------------------------------------------- #
1;

上を purchase.cgi という名前で保存。libraryに収納

library/base.cgiを開く

sub decorate_item:
my  $T = shift; # Blackmarket = 1, Sales Information = 2
↓
my  $T = shift; # Blackmarket = 1, Sales Information = 2, Market = 3

販売情報に記載されるアイテムデータを詳しくを先に行う必要があります

sub decorate_item:
    $Z = $Si->{wt} if $T;
↓
    $Z = $Si->{wt} if $T == 1;

sub decorate_item:
    $V .= " x $W" if $W > 1 && $T != 1;
↓
    $V .= " x $W" if $W > 1 && (!$Y || $T == 2 || $T == 3);

sub decorate_item:
    $V .= "・・・在庫 $W" if $T == 1;
↓
    $V .= "・・・在庫 $W" if $Y && $W && ($T == 0 || $T == 1);

library/blackmarket.cgiを開く

sub blackmarket_before:
    &say("めぼしい商品はないようです・・・",'market') if !$U->{Bg};
↓
    &say("めぼしい商品はないようです・・・",'market') if !$U->{Bg};

    $t1 .= <<"    END_OF_HTML" if $set::mif{Bm};
    <tr class=first>
    <td colspan=2 class=r>購入個数</td>
    </tr>
    END_OF_HTML

sub blackmarket_before:
        $t1 .= qq|<input type=radio name=ui class=radio value="$Ui->{id}_$Ui->{gd}"> |;
        $t1 .= &decorate_item($Ui,1);
↓
        $t1 .= qq|<tr>\n<td>\n|;
        $t1 .= qq|<input type=checkbox name=$Ui->{id}_$Ui->{gd} class=checkbox> |;
        $t1 .= &decorate_item($Ui,1);
        $t1 .= qq|</td>\n<td class=r>|;
        $t1 .= qq|<input type=textbox name=t_$Ui->{id}_$Ui->{gd} class=textbox size=5 value=1>| if $set::mif{Bm};
        $t1 .= qq|</td>\n</tr>\n|;

sub blackmarket_before:
    $t1 .= qq|<p><input type=checkbox name=dl class=checkbox> 買わずに削除する</p>\n| if $I->{Sk}{Rm};
↓
    $t1 .= qq|<tr><td colspan=2><br><input type=checkbox name=dl class=checkbox> 買わずに削除する</td></tr>\n| if $I->{Sk}{Rm};

sub blackmarket_before:
    $t1
↓
    <table class=item>
    $t1
    </table>

sub blackmarket_before:
    個数：<input type=textbox name=hm class=textbox size=2 value="1"><br>

を削除

sub blackmarket_after:
my  $Ii;
my  $Ui;

    &say("個数には数値以外使用できません",'blackmarket_before') if $F{hm} =~ /[^\d]/;
    &say("個数を設定して下さい",'blackmarket_before') if !$F{hm};
    &say("商品が選択されていません",'blackmarket_before') if !$F{ui};

    $F{hm} = int($F{hm});

を削除

sub blackmarket_after:
    &lock($I->{Pl}{bm});

    &get_item($I);
    &get_item($U,1);

    foreach $Ui (@{$U->{Bg}}) {
        if ($F{ui} eq "$Ui->{id}_$Ui->{gd}") {
            if ($F{dl}) { $Ui->{qn} = 0; last }
            $F{hm} = $Ui->{qn} if $F{hm} > $Ui->{qn};
            $Ui->{Sp} = int(($Ui->{bp} * $set::mtp + $set::mpp) * $I->{Ap}) * $F{hm};

            &say('これ以上は重くて持てません','blackmarket_before') if $I->{bg} + $Ui->{wt} * $F{hm} > $I->{Mbg};
            &say('お金が足りません','blackmarket_before') if $Ui->{Sp} > $I->{gl};

            &change_status($I,'gl',-$Ui->{Sp});
            &change_status($I,'bg',$Ui->{wt} * $F{hm});

            $Ui->{Im} = &item_image($Ui);

            &M("$Ui->{Im}$Ui->{nm}を$F{hm}つ購入しました。");

            $Ii = {%$Ui};

            $Ui->{qn}-= $F{hm};
            $Ii->{qn} = $F{hm};

            push (@{$I->{Bg}},$Ii);

            undef $F{ui};
            last;
        }
    }

#    &say('売り切れです','blackmarket_before') if !$F{ui};

    &sort_item($I);

    &set_item($I);
    &set_item($U,1);
↓
    require "$set::lib_dir/purchase.cgi";

    &lock($I->{Pl}{bm});

    &get_item($I);
    &get_item($U,1);

    if (&purchase_item($U->{Bg},'Bm')) {
        &sort_item($I);
        &set_item($I);
        &set_item($U,1);
    }

library/buy.cgiを開く

sub buy_before:
        $t1 .= "<input type=checkbox name=$i-$Ui->{id}-$Ui->{sp} class=checkbox> ";
        $t1 .= &decorate_item($Ui);
↓
        $t1 .= qq|<tr>\n<td>\n|;
        $t1 .= qq|<input type=checkbox name=$i-$Ui->{id}-$Ui->{sp} class=checkbox> |;
        if ($set::mif{Xx}) {
            $Ui->{Sp} = $set::uop ? $Ui->{sp} : int($Ui->{sp} / $Ui->{qn});
            $t1 .= &decorate_item($Ui,1);
            $t1 .= qq|</td>\n<td class=r>|;
            $t1 .= qq|<input type=textbox name=t-$i-$Ui->{id}-$Ui->{sp} class=textbox size=5 value=1>|;
        }
        else {
            $Ui->{Sp} = $set::uop ? $Ui->{sp} * $Ui->{qn} : $Ui->{sp};
            $t1 .= &decorate_item($Ui,3);
        }
        $t1 .= qq|</td>\n</tr>\n|;

sub buy_before:
        $t2 .= "<input type=checkbox name=$i-$Up->{id}-$Up->{sp} class=checkbox> ";
        $t2 .= &decorate_item($Up);
↓
        $t2 .= qq|<tr>\n<td>\n|;
        $t2 .= qq|<input type=checkbox name=$i-$Up->{id}-$Up->{sp} class=checkbox> |;
        $t2 .= &decorate_item($Up,1);
        $t2 .= qq|</td>\n</tr>\n|;

sub buy_before:
    &get_code;
↓
    $t1 = <<"    END_OF_HTML" if $t1 && $set::mif{Xx};
    <tr class=first>
    <td colspan=2 class=r>購入個数</td>
    </tr>
    $t1
    END_OF_HTML

    &get_code;

sub buy_before:
    $t1
↓
    <table class=item>
    $t1
    </table>

sub buy_before:
    $t2
↓
    <br>
    <table class=item>
    $t2
    </table>

sub buy_after:
my  $i;
my ($Ii,$Ui,$Ip,$Up,$V);
my  $buyitemflag;
my  $buypetsflag;
↓
my  $M;

sub buy_after:
    &get_item($I);
    &get_item($U);

    &set_code;

    foreach $Ui (@{$U->{Bg}}) {
        $i++;
        next if !$F{"$i-$Ui->{id}-$Ui->{sp}"};
        &error('Price Error') if !$Ui->{sp};
        $Ui->{Wt} = $Ui->{wt} * $Ui->{qn};
        $Ui->{Sp} = int($Ui->{sp} * $I->{Ap});
        if (@{$I->{Bg}} >= $I->{bs}) {
            &M("荷物スロットが一杯です。") && last;
        }
        elsif ($Ui->{rs} && $Ui->{rs} ne $I->{id}) {
            &M("$Ui->{nm}は他の人に予\約されています。") && next;
        }
        elsif ($I->{bg} + $Ui->{Wt} > $I->{Mbg}) {
            &M("これ以上は重くて持てません。") && next;
        }
        elsif ($Ui->{Sp} > $I->{gl}) {
            &M("$Ui->{nm}を買うお金がありません。") && next;
        }

        $M .= &beat_price($Ui);

        &change_status($U,'gl',$Ui->{sp});
        &change_status($I,'bg',$Ui->{Wt});
        &change_status($I,'gl',-$Ui->{Sp});
        &change_status($U,'bg',-$Ui->{Wt});

        $Ui->{Im} = &item_image($Ui);

        $M .= "$Ui->{Im}$I->{nm}は$Ui->{nm}を$Ui->{qn}つ、$Ui->{sp} $set::mnyで購入しました。<br>\n";
        &M("$Ui->{Im}$Ui->{nm}を$Ui->{qn}つ購入しました。");

        $Ui->{sp} = '';
        $Ui->{rs} = '';

        $Ii = {%{$Ui}};
        push (@{$I->{Bg}},$Ii);
        $Ui->{qn} = 0;
        $buyitemflag = 1;
    }

    if ($buyitemflag) {
        &sort_item($I);
        &set_item($I);
        &set_item($U) if !$U->{Sk}{Ms}; # Mass Selling
    }

    &get_pet($I);
    &get_pet($U);

    undef $i;

    foreach $Up (@{$U->{Pt}}) {
        $i++;
        next if !$F{"$i-$Up->{id}-$Up->{sp}"};
        &error('Price Error') if !$Up->{sp};
        $Up->{Sp} = int($Up->{sp} * $I->{Ap});
        if ($Up->{rs} && $Up->{rs} ne $I->{id}) {
            &M("$Up->{nm}は他の人に予\約されています。") && next;
        }
        elsif ($I->{px} + $Up->{sl} > $I->{Mpx}) {
            &M("$Up->{nm}のためのスロットが空いていません。") && next;
        }
        elsif ($Up->{Sp} > $I->{gl}) {
            &M("$Up->{nm}を買うお金がありません。") && next;
        }

        $M .= &beat_price($Up);

        &change_status($U,'gl',$Up->{sp});
        &change_status($I,'px',$Up->{sl});
        &change_status($I,'gl',-$Up->{Sp});
        &change_status($U,'px',-$Up->{sl});

        $Up->{Im} = &item_image($Up);

        $M .= "$Up->{Im}$I->{nm}は$Up->{nm}を$Up->{sp} $set::mnyで購入しました。<br>\n";
        &M("$Up->{Im}$Up->{nm}を購入しました。");

        $Up->{sp} = '';
        $Up->{rs} = '';

        $Ip = {%{$Up}};
        push (@{$I->{Pt}},$Ip);
        $Up->{id} = '';
        $buypetsflag = 1;
    }

    if ($buypetsflag) {
        &sort_pet($I);
        &set_pet($I);
        &set_pet($U);
    }
↓
    &set_code;

    require "$set::lib_dir/purchase.cgi";

    &get_item($I);
    &get_item($U);

    if ($M .= &purchase_item($U->{Bg},'Xx')) {
        &sort_item($I);
        &set_item($I);
        &set_item($U) if !$U->{Sk}{Ms}; # Mass Selling
    }

    &get_pet($I);
    &get_pet($U);

    if ($M .= &purchase_pet($U->{Pt},'Xx')) {
        &sort_pet($I);
        &set_pet($I);
        &set_pet($U);
    }

# Beat the Price #
sub beat_price {
my  $Si = shift;

    # 値切り #
    if ($I->{Sk}{Bp} && &roll_dice(100 + $I->{Map} - $I->{ap}) <= $set::sBp) {
        $Si->{sp} -= int($Si->{sp} * $set::uBp / 100);
        $Si->{Sp} -= int($Si->{Sp} * $set::uBp / 100);
        &M("$U->{nm}は$Si->{nm}を$set::uBp%引きの$Si->{Sp} $set::mnyにしてくれました。");
        return "$Si->{nm}を$set::uBp%引きにしてあげました。<br>\n";
    }
    return '';
}

を削除

library/purchase.cgiのほうに移動しました

library/farm.cgiを開く

sub farm_before:
        $t1 .= qq|<input type=checkbox name=$Ui->{id} class=checkbox> |;
        $t1 .= &decorate_item($Ui);
↓
        $t1 .= qq|<tr>\n<td>\n|;
        $t1 .= qq|<input type=checkbox name=$Ui->{id}_$Ui->{gd} class=checkbox> |;
        $t1 .= &decorate_item($Ui,3);
        if ($set::mif{Fm}) {
            $t1 .= qq|</td>\n<td class=r>|;
            $t1 .= qq|x <input type=textbox name=t_$Ui->{id}_$Ui->{gd} class=textbox size=5 value=1>|;
        }
        $t1 .= qq|</td>\n</tr>\n|;

sub farm_before:
    require "$set::itm_dir/$I->{Pl}{ls}";
↓
    $t1 = $t1 && $set::mif{Fm} ? qq|<td class=r>購入個数</td>\n</tr>\n$t1| : qq|</tr>\n$t1|;

    $t1 = <<"    END_OF_HTML";
    <tr class=first>
    <td>農場で販売しているアイテム</td>
    $t1
    END_OF_HTML

    require "$set::itm_dir/$I->{Pl}{ls}";

sub farm_before:
        $t2 .= qq|<input type=checkbox name=$Up->{id} class=checkbox> |;
        $t2 .= &decorate_item($Up);
↓
        $t2 .= qq|<tr>\n<td>\n|;
        $t2 .= qq|<input type=checkbox name=$Up->{id}_$Ui->{gd} class=checkbox> |;
        $t2 .= &decorate_item($Up,3);
        if ($set::mif{Fm}) {
            $t2 .= qq|</td>\n<td class=r>|;
            $t2 .= qq|x <input type=textbox name=t_$Up->{id}_$Up->{gd} class=textbox size=5 value=1>|;
        }
        $t2 .= qq|</td>\n</tr>\n|;

sub farm_before:
    &get_code;
↓
    $t2 = $t2 && $set::mif{Fm} ? qq|<td class=r>購入頭数</td>\n</tr>\n$t2| : qq|</tr>\n$t2|;

    $t2 = <<"    END_OF_HTML";
    <tr class=first>
    <td>農場で販売している動物</td>
    $t2
    END_OF_HTML

    &get_code;

sub farm_before:
    <tt>農場で販売しているアイテム</tt><br>
    $t1
↓
    <table class=item>
    $t1
    </table>

sub farm_before:
    <tt>農場で販売している動物</tt><br>
    $t2
↓
    <table class=item>
    $t2
    </table>

sub farm_after:
my  $Ii;
my  $Ui;
my  $Up;
my  $buyitemflag;
my  $buypetsflag;

を削除

sub farm_after:
    &get_item($I);

    require "$set::itm_dir/$I->{Pl}{fm}";

    foreach $Ui (@FI) {
        next if !$F{$Ui->{id}};
        $Ui->{Sp} = int($Ui->{bp} * $set::mtp + $set::mpp) * $Ui->{qn};

        &say('これ以上は重くて持てません','farm_before') if $I->{bg} + $Ui->{wt} * $Ui->{qn} > $I->{Mbg};
        &say('お金が足りません','farm_before') if $Ui->{Sp} > $I->{gl};
        &say("荷物スロットが一杯です",'farm_before') if @{$I->{Bg}} >= $I->{bs};

        &change_status($I,'gl',-$Ui->{Sp});
        &change_status($I,'bg',$Ui->{wt} * $Ui->{qn});

        $Ui->{Im} = &item_image($Ui);

        &M("$Ui->{Im}$Ui->{nm}を$Ui->{qn}つ購入しました。");

        push (@{$I->{Bg}},$Ui);
        $buyitemflag = 1;
    }

    if ($buyitemflag) {
        &sort_item($I);
        &set_item($I);
    }

    &get_pet($I);
    require "$set::itm_dir/$I->{Pl}{ls}";

    foreach $Up (@FI) {
        next if !$F{$Up->{id}};
        $Up->{Sp} = int($Up->{bp} * $set::mtp + $set::mpp);

        &say('スロットが空いていません','farm_before') if $I->{px} + $Up->{sl} > $I->{Mpx};
        &say('お金が足りません','farm_before') if $Up->{Sp} > $I->{gl};

        &change_status($I,'gl',-$Up->{Sp});
        &change_status($I,'px',$Up->{sl});

        $Up->{Im} = &item_image($Up);

        &M("$Up->{Im}$Up->{nm}を購入しました。");

        $Up->{up} = $Up->{bt} = time;
        $Up->{pd} = time if $Up->{pd};
        $Up->{ch} = &roll_dice(4) - 1;
        push (@{$I->{Pt}},$Up);
        $buypetsflag = 1;
    }

    if ($buypetsflag) {
        &sort_pet($I);
        &set_pet($I);
    }
↓
    require "$set::lib_dir/purchase.cgi";

    &get_item($I);

    require "$set::itm_dir/$I->{Pl}{fm}";
    if (&purchase_item(\@FI,'Fm')) {
        &sort_item($I);
        &set_item($I);
    }

    &get_pet($I);

    require "$set::itm_dir/$I->{Pl}{ls}";
    if (&purchase_pet(\@FI,'Fm')) {
        &sort_pet($I);
        &set_pet($I);
    }

library/shopping.cgiを開く

sub shopping_before:
        $t1 .= qq|<input type=radio name=ui class=radio value="$Ui->{id}"> |;
        $t1 .= &decorate_item($Ui);
↓
        $t1 .= qq|<tr>\n<td>\n|;
        $t1 .= qq|<input type=checkbox name=$Ui->{id}_$Ui->{gd} class=checkbox> |;
        $t1 .= &decorate_item($Ui,3);
        if ($set::mif{Mk}) {
            $t1 .= qq|</td>\n<td class=r>|;
            $t1 .= qq|x <input type=textbox name=t_$Ui->{id}_$Ui->{gd} class=textbox size=5 value=1>|;
        }
        $t1 .= qq|</td>\n</tr>\n|;

sub shopping_before:
    &get_code;
↓
    $t1 = <<"    END_OF_HTML" if $t1 && $set::mif{Bm};
    <tr class=first>
    <td colspan=2 class=r>購入個数</td>
    </tr>
    $t1
    END_OF_HTML

    &get_code;

sub shopping_before:
    $t1
↓
    <table class=item>
    $t1
    </table>

sub shopping_before:
    個数：<input type=textbox name=hm class=textbox size=2 value="1"><br>

を削除

sub shopping_after:
my  $Ii;
my  $Ui;

    &say("個数には数値以外使用できません",'shopping_before') if $F{hm} =~ /[^\d]/;
    &say("個数を設定して下さい",'shopping_before') if !$F{hm};
    &say("商品が選択されていません",'shopping_before') if !$F{ui};

    $F{hm} = int($F{hm});

を削除

sub shopping_after:
    require "$set::itm_dir/$I->{Pl}{mk}";

    foreach $Ui (@FI) {
        if ($F{ui} eq $Ui->{id}) {
            $Ui->{Sp} = int(($Ui->{bp} * $set::mtp + $set::mpp) * $I->{Ap}) * $F{hm};

            &say('これ以上は重くて持てません','shopping_before') if $I->{bg} + $Ui->{wt} * $F{hm} > $I->{Mbg};
            &say('お金が足りません','shopping_before') if $Ui->{Sp} > $I->{gl};

            &change_status($I,'gl',-$Ui->{Sp});
            &change_status($I,'bg',$Ui->{wt} * $F{hm});

            $Ui->{Im} = &item_image($Ui);

            &M("$Ui->{Im}$Ui->{nm}を$F{hm}つ購入しました。");

            &get_quality($Ui);

            # バラで追加
            if ($Ui->{cl} ne 'Fd' && $Ui->{cl} ne 'Mt') {
                $Ui->{qn} = 1;
                for (1..$F{hm}) { push(@{$I->{Bg}},$Ui) }
            }
            # パックで追加
            else {
                $Ui->{qn} = $F{hm};
                push(@{$I->{Bg}},$Ui);
            }
            &say("荷物スロットが一杯です",'shopping_before') if @{$I->{Bg}} > $I->{bs};
            last;
        }
    }

    &sort_item($I);

    &set_item($I);
↓
    require "$set::lib_dir/purchase.cgi";

    require "$set::itm_dir/$I->{Pl}{mk}";
    if (&purchase_item(\@FI,'Mk','shopping_before')) {
        &sort_item($I);
        &set_item($I);
    }

library/bag.cgiを開く

        $t1 .= &decorate_item($Ii);
↓
        if ($set::mif{Xx}) {
            $Ii->{Sp} = $set::uop ? $Ii->{sp} : int($Ii->{sp} / $Ii->{qn});
            $t1 .= &decorate_item($Ii);
        }
        else {
            $Ii->{Sp} = $set::uop ? $Ii->{sp} * $Ii->{qn} : $Ii->{sp};
            $t1 .= &decorate_item($Ii,3);
        }

library/playerlist.cgiを開く

sub playerlist:
            $t2 .= "x$Ui->{qn}" if $Ui->{qn} > 1;
            push(@T,"$t2=$Ui->{sp}$set::mny");
↓
            $t2  = "[$t2=$Ui->{sp}$set::mny]" if $set::mif{Xx};
            $t2 .= "x$Ui->{qn}" if $Ui->{qn} > 1;
            $t2 .= "=$Ui->{sp}$set::mny" if !$set::mif{Xx};
            push(@T,$t2);

sub sales_information:
            $Ui->{nm} = &decorate_item($Ui,2);
↓
            $Ui->{qn} ||= 1;
            $Ui->{Sp} = $set::mif{Xx} && !$set::uop ? int($Ui->{sp} / $Ui->{qn}) :
                        !$set::mif{Xx} && $set::uop ? $Ui->{sp} * $Ui->{qn} : $Ui->{sp};
            $Ui->{nm} = &decorate_item($Ui,2);

library/price.cgiを開く

sub price_before:
my ($t1,$t2);
↓
my ($t1,$t2,$t3);

    $t3 = $set::uop ? 'ひとつ当たりの' : '';

sub price_before:
            $Ii->{qn} = 1 if $F{fl} eq 'pet';
            $Ii->{Sp} = $Ii->{bp} * $Ii->{qn} + $set::lip;
            $t1 .= qq|<input type=textbox name=$i class=textbox size=5 value="$Ii->{Sp}"> |;
            $t1 .= &decorate_item($Ii);
↓
            if ($set::uop) {
                $Ii->{Sp} = $Ii->{bp} + $set::lip;
                $t1 .= qq|<input type=textbox name=$i class=textbox size=5 value="$Ii->{Sp}"> |;
                $t1 .= &decorate_item($Ii,1);
            }
            else {
                $Ii->{qn} = 1 if $F{fl} eq 'pet';
                $Ii->{Sp} = $Ii->{bp} * $Ii->{qn} + $set::lip;
                $t1 .= qq|<input type=textbox name=$i class=textbox size=5 value="$Ii->{Sp}"> |;
                $t1 .= &decorate_item($Ii,3);
            }

sub price_before:
    <tt>数値を入力して値段を設定して下さい。<br>表\示される値段は最低販売価格</tt><br>
↓
    <tt>数値を入力して$t3値段を設定して下さい。<br>表\示される値段は最低販売価格</tt><br>

sub price_after:
            next if !$F{$i};
↓
            next if !$F{$i};
            $Ii->{Bp} = $set::uop ? $Ii->{bp} : $Ii->{bp} * $Ii->{qn};

sub price_after:
            elsif ($F{$i} < $Ii->{bp} * $Ii->{qn} + $set::lip) {
↓
            elsif ($F{$i} < $Ii->{Bp} + $set::lip) {

sub.cssを開く

/* アイテム */
.item {
  width: 100%;
}
.item .first td {
  padding-bottom: 5px;
  font-size: 11px;
  font-family: monospace;
  color: #005533;
}
.item td {
  margin: 0;
  padding: 0;
  font-size: 12px;
}
.item td.r {
  vertical-align: bottom;
}

を追加

銀行に指定個数取引/銀行自動整理機能追加で追加したものと同じです

【リストへ戻る】

対戦相手の履歴に自分が載っていても時間経過していれば再戦可能にしてみる

set.cgiを開く

# 戦闘 Fight ######################################### #
$elt = 24;                   # 戦闘相手の履歴にあってもn時間経過していれば戦闘可能にする(yes=時間,no=0)

library/fight.cgiを開く

sub fight_player:
    @Den = grep { $_ eq $I->{id} } @Uen;
↓
    @Den = grep { $_->[0] eq $I->{id} &&
                (!$set::elt || time - $_->[1] < $set::elt * 3600) } map  { [split /:/] } @Uen;

sub fight_player:
    $U->{en} = join(',',$I->{id},@Uen);
↓
    $U->{en} = join(',',"$I->{id}:".time,@Uen);

【リストへ戻る】