Script of Saga III 肋弥毁辩 - 稍恶圭の饯赖 Ver b2.1 -

侯喇で、哳澜を侯ることが叫丸ない
侯喇で、稍赖なデ〖タを流ることで素ど链てのアイテムを侯喇できる

侯喇で、哳澜を侯ることが叫丸ない稍恶圭を饯赖します。

library/compose.cgiを倡く

    if ($I->{Sk}{Sm}) { $t2 .= qq|<option value="smokedfood=Sm">哳澜を侯る</option>\n| }

    if ($I->{Sk}{Sf}) { $t2 .= qq|<option value="smokedfood=Sf">哳澜を侯る</option>\n| }

Sm ⅹ Sf

≮リストへ提る≯

侯喇で、稍赖なデ〖タを流ることで素ど链てのアイテムを侯喇できる稍恶圭を饯赖します。

library/compose.cgiを倡く

# Sub Compose #
sub compose {

require "$set::dat_dir/compose.cgi";

# Sub Compose #
sub compose {

sub compose:
    if ($I->{Sk}{Bs}) { $t2 .= qq|<option value="arms=Bs">妹剃をする</option>\n| }
    if ($I->{Sk}{Tk}) { $t2 .= qq|<option value="silverwork=Tk">术峻墒を侯る</option>\n| }
    if ($I->{Sk}{Ck}) { $t2 .= qq|<option value="dish_soup=Ck">拇妄する∈ス〖プ∷</option>\n| }
    if ($I->{Sk}{Ck}) { $t2 .= qq|<option value="dish_sandwich=Ck">拇妄する∈サンドイッチ∷</option>\n| }
    if ($I->{Sk}{Ck}) { $t2 .= qq|<option value="dish_sweets=Ck">拇妄する∈槽灰∷</option>\n| }
    if ($I->{Sk}{Ck}) { $t2 .= qq|<option value="dish_other=Ck">拇妄する∈その戮∷</option>\n| }
    if ($I->{Sk}{Bg}) { $t2 .= qq|<option value="liquor=Bg">胞湿を侯る</option>\n| }
    if ($I->{Sk}{Wv}) { $t2 .= qq|<option value="cloth=Wv">邵を骏る</option>\n| }
    if ($I->{Sk}{Tl}) { $t2 .= qq|<option value="hat=Tl">斯灰を侯る</option>\n| }
    if ($I->{Sk}{Tl}) { $t2 .= qq|<option value="clothes=Tl">绳を侯る</option>\n| }
    if ($I->{Sk}{Tl}) { $t2 .= qq|<option value="leathercraft=Tl">匙澜墒を侯る</option>\n| }
    if ($I->{Sk}{Pl}) { $t2 .= qq|<option value="crops=Pl">抢侯湿を侯る</option>\n| }
    if ($I->{Sk}{Dp}) { $t2 .= qq|<option value="dairyproduct=Dp">讫澜墒を侯る</option>\n| }
    if ($I->{Sk}{By}) { $t2 .= qq|<option value="bread=By">パンを酒く</option>\n| }
    if ($I->{Sk}{Sm}) { $t2 .= qq|<option value="smokedfood=Sm">哳澜を侯る</option>\n| }
    if ($I->{Sk}{Ca}) { $t2 .= qq|<option value="woodwork=Ca">腾供澜墒を侯る</option>\n| }
    if ($I->{Sk}{Vt}) { $t2 .= qq|<option value="animaldrug=Vt">瓢湿挑を侯喇する</option>\n| }
    if ($I->{Sk}{Ph}) { $t2 .= qq|<option value="drug=Ph">拇恨する</option>\n| }
    if ($I->{Sk}{Cu}) { $t2 .= qq|<option value="preparation=Cu">迹闻の洁洒をする</option>\n| }

    foreach (sort { $CO{$a}{n} <=> $CO{$b}{n} } keys %CO) {
        $t2 .= qq|<option value="$_">$CO{$_}{lab}</option>\n| if $I->{Sk}{$CO{$_}{sk}};
    }

sub compose:
    <select id=type style="visibility:visible" name=tp class=select>

    <select id=type style="visibility:visible" name=fi class=select>

sub compose_before:
    ($K,$V) = split(/=/,$F{tp});

    &error('踏悸刘') if ! -e "$set::itm_dir/$K.cgi";
    require "$set::itm_dir/$K.cgi";

    &error('稍赖なエラ〖') if !$F{fi} || $F{fi} =~ /[^a-z_]/;
    &error('Compose Skill Error') if $CO{$F{fi}}{sk} && !$I->{Sk}{$CO{$F{fi}}{sk}};
    &error('踏悸刘') if ! -e "$set::itm_dir/$F{fi}.cgi";
    require "$set::itm_dir/$F{fi}.cgi";

sub compose_before:
    <input type=hidden name=fi value="$K">
    <input type=hidden name=sk value="$V">

    <input type=hidden name=fi value="$F{fi}">

sub compose_after:
    &error('Compose Skill Error') if $F{sk} && !$I->{Sk}{$F{sk}};

    &error('Compose Skill Error') if $CO{$F{fi}}{sk} && !$I->{Sk}{$CO{$F{fi}}{sk}};

sub compose_after:
    $Ui = $FI[$F{ci}-1];
    $Ui->{dt}{qn} ||= 1;

    $Ui = $FI[$F{ci}-1];
    $Ui->{dt}{qn} ||= 1;

    &error('稍赖なエラ〖') unless &creativity_check($I,$Ui);

笆布を compose.cgi という叹涟で data フォルダに瘦赂

# --------------------------------------------------- #
# Script of Saga III Compose.cgi Version 1 (2.1)
# 
# --------------------------------------------------- #

# 侯喇肋年
# n   = ラベルの戎规。1から界に事ぶ。
# sk  = 侯喇に涩妥なスキル。
# lab = リストのラベル。

%CO = (
    'arms'          => { n => 1,  sk => 'Bs', lab => '妹剃をする' },
    'silverwork'    => { n => 2,  sk => 'Tk', lab => '术峻墒を侯る' },
    'dish_soup'     => { n => 3,  sk => 'Ck', lab => '拇妄する∈ス〖プ∷' },
    'dish_sandwich' => { n => 4,  sk => 'Ck', lab => '拇妄する∈サンドイッチ∷' },
    'dish_sweets'   => { n => 5,  sk => 'Ck', lab => '拇妄する∈槽灰∷' },
    'dish_other'    => { n => 6,  sk => 'Ck', lab => '拇妄する∈その戮∷' },
    'liquor'        => { n => 7,  sk => 'Bg', lab => '胞湿を侯る' },
    'cloth'         => { n => 8,  sk => 'Wv', lab => '邵を骏る' },
    'hat'           => { n => 9,  sk => 'Tl', lab => '斯灰を侯る' },
    'clothes'       => { n => 10, sk => 'Tl', lab => '绳を侯る' },
    'leathercraft'  => { n => 11, sk => 'Tl', lab => '匙澜墒を侯る' },
    'crops'         => { n => 12, sk => 'Pl', lab => '抢侯湿を侯る' },
    'dairyproduct'  => { n => 13, sk => 'Dp', lab => '讫澜墒を侯る' },
    'bread'         => { n => 14, sk => 'By', lab => 'パンを酒く' },
    'smokedfood'    => { n => 15, sk => 'Sf', lab => '哳澜を侯る' },
    'woodwork'      => { n => 16, sk => 'Ca', lab => '腾供澜墒を侯る' },
    'animaldrug'    => { n => 17, sk => 'Vt', lab => '瓢湿挑を侯喇する' },
    'drug'          => { n => 18, sk => 'Ph', lab => '拇恨する' },
    'preparation'   => { n => 19, sk => 'Cu', lab => '迹闻の洁洒をする' },
);

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

≮リストへ提る≯

≮トップへ提る≯

その戮の饯赖

滦客の倾い湿で、改眶回年任卿でない眷圭に脚翁の山绩が赖しくない
孟哭で、附哼孟奶梦肋年を≈フレンドにのみ奶梦∽にしていても链てのプレイヤ〖に附哼孟を梦られてしまう

滦客の倾い湿で、改眶回年任卿でない眷圭に脚翁の山绩が赖しくない稍恶圭を饯赖します。

library/base.cgiを倡く

sub decorate_item:
        $Y *= $W if $F == 1;

        $Y *= $W if $F == 1;
        $Z *= $W if $T == 2;

≮リストへ提る≯

孟哭で、附哼孟奶梦肋年を≈フレンドにのみ奶梦∽にしていても链てのプレイヤ〖に附哼孟を梦られてしまう稍恶圭を饯赖します。

library/map.cgiを倡く

sub map:
        $Z = (split(/,/,$U->{fr},2))[0];
        push(@{$V{$U->{pl}}},[$U->{id},$U->{nm},$U->{sx}.'f']) if $Z eq 'on' || $Z eq 'only' && grep { (split /\//)[0] eq $U->{id} } @FR;

        ($Z,@{$U->{Fr}}) = split(/,/,$U->{fr});
        push(@{$V{$U->{pl}}},[$U->{id},$U->{nm},$U->{sx}.'f']) if $Z eq 'on' || $Z eq 'only' && grep { (split /\//)[0] eq $I->{id} } @{$U->{Fr}};

陵缄のフレンドリストに极尸がいるかを玫さないといけないのに极尸のリストから陵缄を玫すというぼけたことをしてました∧すみません

≮リストへ提る≯

≮トップへ提る≯

ちょっとしたこと

インフォメ〖ション侯喇で矢机悸挛徊救が蝗えるように
Spetial Thanksのアンカ〖を痰跟に
儡卡した陵缄がログイン面の眷圭に提るボタン
モンスタ〖の叫る孟拌でお垛を溅えるように
抢眷でもAPPによって任卿擦呈が恃瓢するように
剩眶オ〖ブトレ〖ド
いつもの2擒侯喇に喇根したら惩评沸赋猛も2擒に
グレ〖ドを矢机で山绩

稍恶圭ではないけどやってみたことです。

インフォメ〖ション侯喇で矢机悸挛徊救が蝗えるように(啼玛が弹こりそうなのでやらないほうがいいかも)

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;

≮リストへ提る≯

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/base.cgiを倡く

sub login_check:
my  $T = shift; # true -> return true, false -> error

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/trade.cgiを倡く

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

sub trade_after:
    &login_check($U);

    &login_check($U,'contact_before');

≮リストへ提る≯

モンスタ〖の叫る孟拌でお垛を溅えるようにしてみる。

library/find.cgiを倡く

sub find:
        &found($I,"monster_$I->{pl}",$set::fvt,'玫瑚','つ缄に掐れました',0,'monster');

        &found($I,"monster_$I->{pl}",$set::fvt,'玫瑚','つ缄に掐れました',1,'monster');

sub find:
    &reload_data('gl') if !$I->{Pl}{ev}{Ms};

    &reload_data('gl');

≮リストへ提る≯

抢眷でもAPPによって任卿擦呈が恃瓢するようにしてみる。

library/farm.cgiを倡く

# Sub Farm Before #

require "$set::lib_dir/status.cgi";

# Sub Farm Before #

sub farm_before:
    &dead_check($I,'CLOSE');

    &dead_check($I,'CLOSE');

    &get_appearance($I);

sub farm_after:
    $I = &get_user('I');

    $I = &get_user('I');

    &get_appearance($I);

≮リストへ提る≯

剩眶オ〖ブトレ〖ドを悸刘してみる。

library/trade.cgiを倡く

sub trade_before:
my  $checked;
と
    $checked = ' checked';
と
            $checked = '';
を链て猴近

sub trade_before:
            $t1 .= qq|<input type=radio name=Iob class=radio value="$_"$checked> |;

            $t1 .= "<input type=checkbox name=I$_ class=checkbox> ";
            $t1 .= "<input type=text size=2 name=tI$_ class=textbox value=1> ";

sub trade_before:
            $t2 .= qq|<input type=radio name=Uob class=radio value="$_"$checked> |;

            $t2 .= "<input type=checkbox name=U$_ class=checkbox> ";
            $t2 .= "<input type=text size=2 name=tU$_ class=textbox value=1> ";

sub trade_before:
    <tt>それぞれトレ〖ドする$set::orb{x}を联买してください。</tt><br>

    <tt>それぞれトレ〖ドする$set::orb{x}にチェックを掐れ、改眶をあわせて$set::okbボタンを病してしてください。</tt><br>

sub trade_after:
sub trade_after {

sub trade_after {
my ($t1,$t2);
my ($Itc,$Utc,$count);

sub trade_after:
    unless ($I->{ob} =~ s/$F{Iob}// || $I->{ob} =~ s/$F{Iob}//i) { &say('トレ〖ドに己窃しました','trade_before') }
    else { @{$I->{Ob}} = split(//,$I->{ob}.uc($F{Uob})) }
    &set_orb($I);

    unless ($U->{ob} =~ s/$F{Uob}//) { &say('トレ〖ドに己窃しました','trade_before') }
    else { @{$U->{Ob}} = split(//,$U->{ob}.uc($F{Iob})) }
    &set_orb($U);

    foreach ('a' .. 'l') {
        $count = 0;
        while ($F{"I$_"} && $count < $F{"tI$_"}) {
            $I->{ob} =~ s/$_// || $I->{ob} =~ s/$_//i || &say("$U->{nm}に畔す$set::orb{$_}$set::orb{x}が颅りません",'trade_before');

            $t1 .= &orb_image($_);
            $U->{ob} .= uc($_);

            $Itc++;
            $count++;
        }

        $count = 0;
        while ($F{"U$_"} && $count < $F{"tU$_"}) {
            $U->{ob} =~ s/$_// || &say("$I->{nm}に畔す$set::orb{$_}$set::orb{x}が颅りません",'trade_before');

            $t2 .= &orb_image($_);
            $I->{ob} .= uc($_);

            $Utc++;
            $count++;
        }
    }

    &say("トレ〖ドする$set::orb{x}の眶が办米しません",'trade_before') if $Itc != $Utc;

    @{$I->{Ob}} = split(//,$I->{ob});
    @{$U->{Ob}} = split(//,$U->{ob});

    &set_orb($I);
    &set_orb($U);

sub trade_after:
    lc $F{Iob};
    lc $F{Uob};

    &set_record("$I->{nm}が$set::orb{$F{Iob}}$set::orb{x}を$U->{nm}の$set::orb{$F{Uob}}$set::orb{x}とトレ〖ドしました。");
    &get_words($U);
    &partner('',"$set::orb{x}をトレ〖ドしました");

    &set_record("$I->{nm}が$set::orb{x}のトレ〖ドに丸ました。<br>\n$t1¨$I->{nm}の叫した$set::orb{x}<br>\n$t2¨$U->{nm}の叫した$set::orb{x}");
    &get_words($U);
    &partner($U->{w10},"$set::orb{x}をトレ〖ドしました。<br>\n$t1¨$I->{nm}の叫した$set::orb{x}<br>\n$t2¨$U->{nm}の叫した$set::orb{x}");

≮リストへ提る≯

いつもの2擒侯喇に喇根したら惩评沸赋猛も2擒にしてみる。

set.cgiを倡く

# 圭喇 Compose ####################################### #
$dex = 2;                    # ダブルロ〖ルに喇根したときは惩评沸赋猛をn擒にする

library/compose.cgiを倡く

sub compose_after:
        &double_roll($I,$Ui->{dt}) if $Ui->{dt}{cl} =~ /(Fd|Mt)/;

        &double_roll($I,$Ui->{dt}) if $Ui->{dt}{cl} =~ /(Fd|Mt)/;
        $Ui->{ex} = int($Ui->{ex} * $set::dex) if $I->{DB};

sub double_roll:
        $Si->{qn} *= $set::ddu;

        $Si->{qn} *= $set::ddu;
        $S->{DB} = 1;

炳脱でエクセレントロ〖ルのときも叫丸ますね。

≮リストへ提る≯

グレ〖ドを矢机で山绩してみる。

グレ〖ド2笆惧のアイテムを≈腾の饶:G2∽のように山绩します。
咖尸けされていても尸かりにくい箕にやってみてください。

library/base.cgiを倡く

sub decorate_item:
    $V = $Si->{Nm} ? $Si->{Nm} : $Si->{nm};

    $V = $Si->{Nm} ? $Si->{Nm} : $Si->{nm};
    $V .= ":G$Si->{gd}" if $Si->{gd} > 1;

≮リストへ提る≯

≮トップへ提る≯