@@ITEM
no99
type本
codeuport-exp
name上級転職のススメ
infoもっと上の仕事に転職したい人のために
price20000
limit1
pop1d
scaleセット
plus8h
@@USE
time6h
action転職修行開始
argnocount
name刀屋へ転職したい
info他の職業の技術経験を全て捨て、刀屋に必要な技術を習得します
okmsg刀屋になれた気がします
param81,81:82:83:84:85:86:87:88:89:90:91:92:93:94:95:96:97:98:101:102:103:105:106,0.5,uweapon
use1上級転職のススメ
func_local_
######################################################################
# ★熟練度交換（指定アイテムへ、他のアイテムの熟練度を移動させる）
# param1 熟練度をプラスしたいアイテムの番号(1~)
# param2 熟練度をマイナスするアイテムの番号(1~) (:区切りで複数指定化)
# param3 熟練度を移動する際の係数（0~) (0.5だと半分にして移動)
# 注意：熟練度の合計チェックはしていないので、係数を1より大きくする
のはやめた方がいいです。
######################################################################
my $ret="";

if($USE->{param1})
{
my $exp1=$DT->{exp}{$USE->{param1}};
my $exp2=0;

foreach my $exps (split(/:/,$USE->{param2}))
{
my $exp=$DT->{exp}{$exps};
next if !$exp || $exps==$exp1;
$exp2+=$exp;
delete($DT->{exp}{$exps});
my $msg=$ITEM[$exps]->{name}."の熟練度 ".int($exp/10)."% が 0% にな
りました";
$ret.=$msg."<br>";
WriteLog(0,$DT->{id},$msg);
}
$exp2=int($exp2*$USE->{param3});
$exp1+=$exp2;
$exp1=1000 if $exp1>1000;
my $msg=$ITEM[$USE->{param1}]->{name}."の熟練度
".int($DT->{exp}{$USE->{param1}}/10)."%
が ".int($exp1/10)."% になりました";
$ret.=$msg."<br>";
WriteLog(0,$DT->{id},$msg);
$DT->{exp}{$USE->{param1}}=$exp1;
}

$DT->{job}=$USE->{param4},$ret.='職業が「'.$main::JOBTYPE{$USE->{param4}}.'
」になりました' if $USE->{param4} && $USE->{param4} ne '_default_';
$DT->{job}='',$ret.='職業が「不定」になりました' if $USE->{param4} eq
'_default_';

return $ret;
_local_
@@USE
time6h
action転職修行開始
argnocount
nameナイフ屋へ転職したい
info他の職業の技術経験を全て捨て、ナイフ屋に必要な技術を習得します
okmsgナイフ屋になれた気がします
func_local_1
param82,81:82:83:84:85:86:87:88:89:90:91:92:93:94:95:96:97:98:101:102:103:105:106,0.5,uweapon
use1上級転職のススメ