●ERROR● USE func port-exp:no1 Unrecognized character \x82 at (eval 4246) line 1. USE func uport-exp:no1 Unrecognized character \x82 at (eval 4274) line 1.
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_';
ITEM 99 上級転職のススメ USE 0 刀屋へ転職したい 10800 local func USE 1 ナイフ屋へ転職したい 10800 USE 2 槍屋へ転職したい 10800 USE 3 鎌屋へ転職したい 10800 USE 4 ブーメラン屋へ転職したい 10800 USE 5 宝石屋へ転職したい 10800 USE 6 サーベル屋へ転職したい 10800 USE 7 包丁屋へ転職したい 10800 USE 8 矛屋へ転職したい 10800 USE 9 斧屋へ転職したい 10800 USE 10 手裏剣屋へ転職したい 10800 USE 11 シミター屋へ転職したい 10800 USE 12 錘屋へ転職したい 10800 USE 13 上級手裏剣屋へ転職したい 10800 USE 14 上級剣屋へ転職したい 10800 USE 15 上級盾屋へ転職したい 10800 USE 16 上級鎧屋へ転職したい 10800 USE 17 上級杖屋へ転職したい 10800 USE 18 上級弓屋へ転職したい 10800 USE 19 白魔法研究家へ転職したい 10800 USE 20 黒魔法研究家へ転職したい 10800 USE 21 白魔法武具屋へ転職したい 10800 USE 22 黒魔法武具屋へ転職したい 10800 ITEM 78 転職のススメ USE 0 薬屋へ転職したい 10800 local func USE 1 革細工屋へ転職したい 10800 USE 2 木工細工屋へ転職したい 10800 USE 3 装飾細工屋へ転職したい 10800 USE 4 剣屋へ転職したい 10800 USE 5 盾屋へ転職したい 10800 USE 6 鎧屋へ転職したい 10800 USE 7 杖屋へ転職したい 10800 USE 8 弓屋へ転職したい 10800 USE 9 探鉱夫へ転職したい 10800 USE 10 木こりへ転職したい 10800 USE 11 洞窟探検家へ転職したい 10800 USE 12 本屋へ転職したい 10800 USE 13 酪農家へ転職したい 10800 USE 14 行商人へ転職したい 10800 USE 15 看板を下ろしたい 10800