diff --git a/admin-sub.cgi b/admin-sub.cgi index 37eab50..37019da 100644 --- a/admin-sub.cgi +++ b/admin-sub.cgi @@ -7,7 +7,7 @@ DataRead(); CheckUserPass(); OutError('') if !$MASTER_USER || $USER ne 'soldoutadmin'; -OutError('ユーザが見つかりません') if !defined($name2idx{$Q{user}}); +OutError(l('ユーザが見つかりません')) if !defined($name2idx{$Q{user}}); my $DT=$DT[$name2idx{$Q{user}}]; # $Q{comment}="【".jcode::sjis($Q{comment})."】" if $Q{comment} ne ''; @@ -16,8 +16,8 @@ $Q{comment}="【".$Q{comment}."】" if $Q{comment} ne ''; #重複登録自動アクセス制限の個別対応 if($Q{nocheckip}) { - $disp.='重複登録チェック対象外としました',$DT->{nocheckip}=1 if $Q{nocheckip} eq 'nocheck'; - $disp.='重複登録チェック対象としました',$DT->{nocheckip}='' if $Q{nocheckip} eq 'check'; + $disp.=l('重複登録チェック対象外としました'),$DT->{nocheckip}=1 if $Q{nocheckip} eq 'nocheck'; + $disp.=l('重複登録チェック対象としました'),$DT->{nocheckip}='' if $Q{nocheckip} eq 'check'; } #アクセス制限制御 @@ -26,18 +26,18 @@ if($Q{blocklogin}) # $Q{blocklogin}=jcode::sjis($Q{blocklogin}); if($Q{blocklogin} eq 'off') { - $disp.='アクセス制限を解除しました'; + $disp.=l('アクセス制限を解除しました'); $DT->{blocklogin}=''; $DT->{lastlogin}=$NOW_TIME; } elsif($Q{blocklogin} eq 'stop') { - $disp.='経営休止に設定しました['.$Q{blocklogin}.']'; + $disp.=l('経営休止に設定しました[%1]',$Q{blocklogin}); $DT->{blocklogin}=$Q{blocklogin}; } elsif($Q{blocklogin} ne '') { - $disp.='アクセス制限をしました['.$Q{blocklogin}.']'; + $disp.=l('アクセス制限をしました[%1]',$Q{blocklogin}); $DT->{blocklogin}=$Q{blocklogin}; } } @@ -45,10 +45,10 @@ if($Q{blocklogin}) #追放 if($Q{closeshop} eq 'closeshop') { - CloseShop($DT->{id},'追放'); - PushLog(1,0,"$Q{comment}$DT->{shopname}は追放されました。") if (!$Q{log}); + CloseShop($DT->{id},l('追放')); + PushLog(1,0,l('%1%2は追放されました。',$Q{comment},$DT->{shopname})) if (!$Q{log}); - $disp.="追放完了"; + $disp.=l('追放完了'); $DTblockip=$DT->{remoteaddr}; } @@ -62,8 +62,8 @@ if($Q{senditem}) $itemcount=$ITEM->{limit} if $itemcount>$ITEM[$itemno]->{limit}; $DT->{item}->[$itemno-1]=$itemcount; - PushLog(2,0,"$Q{comment}$DT->{shopname}に$ITEM->{name}が贈られました。") if $Q{comment}; - $disp.="$ITEM->{name} $Q{count}$ITEM->{scale} 賞品授与完了"; + PushLog(2,0,l('%1%2に%3が贈られました。',$Q{comment},$DT->{shopname},$ITEM->{name})) if $Q{comment}; + $disp.=l('%1 %2%3 賞品授与完了',$ITEM->{name},$Q{count},$ITEM->{scale}); } #賞金授与(デバッグにも使用できます) @@ -72,27 +72,27 @@ if($Q{sendmoney}) $DT->{money}+=$Q{sendmoney}; #$DT->{saletoday}+=$Q{sendmoney}; - PushLog(2,0,"$Q{comment}$DT->{shopname}に賞金が贈られました。") if $Q{comment}; - $disp.=GetMoneyString($Q{sendmoney})." 賞金授与完了"; + PushLog(2,0,l('%1%2に賞金が贈られました。',$Q{comment},$DT->{shopname})) if $Q{comment}; + $disp.=l('%1 賞金授与完了',GetMoneyString($Q{sendmoney})); } #持ち時間授与(デバッグにも使用できます) if($Q{sendtime}) { - $disp.=$Q{sendtime}."時間 持ち時間授与完了"; + $disp.=l('%1時間 持ち時間授与完了',$Q{sendtime}); $Q{sendtime}=$Q{sendtime} * 3600; $DT->{time}-=$Q{sendtime}; - PushLog(2,0,"$Q{comment}$DT->{shopname}に「".GetTime2HMS($Q{sendtime})."」が贈られました。") if $Q{comment}; + PushLog(2,0,l('%1%2に「%3」が贈られました。',$Q{comment},$DT->{shopname},GetTime2HMS($Q{sendtime}))) if $Q{comment}; } #爵位授与(デバッグにも使用できます) if($Q{senddig}) { - $disp.=$Q{senddig}."ポイント 爵位経験値授与完了"; + $disp.=l('%1ポイント 爵位経験値授与完了',$Q{senddig}); $DT->{dignity}+=$Q{senddig}; - PushLog(2,0,"$Q{comment}$DT->{shopname}に爵位経験値".($Q{senddig}+0)."ポイントが贈られました。") if $Q{comment}; + PushLog(2,0,l('%1%2に爵位経験値%3ポイントが贈られました。',$Q{comment},$DT->{shopname},$Q{senddig}+0)) if $Q{comment}; } RenewLog(); @@ -100,7 +100,7 @@ DataWrite(); DataCommitOrAbort(); UnLock(); -$disp="行いたい処理とそのパラメータを正しく選択/記述してください" if $disp eq ''; +$disp=l('行いたい処理とそのパラメータを正しく選択/記述してください') if $disp eq ''; $disp.=" <-- $DT->{shopname} [$DT->{name}] $Q{comment}"; $NOMENU=1; diff --git a/admin-sub2.cgi b/admin-sub2.cgi index 6842055..3f05bb6 100644 --- a/admin-sub2.cgi +++ b/admin-sub2.cgi @@ -2,7 +2,7 @@ use utf8; # 全体管理 2004/01/20 由來 CheckUserPass(); -OutError("") if !$MASTER_USER; +OutError('') if !$MASTER_USER; $NOMENU=1; $Q{bk}="none"; @@ -15,7 +15,7 @@ if($Q{log}) elsif($Q{mode} eq "delitem") { $num=CheckCount($Q{num1},$Q{num2},0,$MAX_MONEY); - OutError('消去するアイテムを指定してください。') if !$num; + OutError(l('消去するアイテムを指定してください。')) if !$num; Lock(); DataRead(); @@ -33,7 +33,7 @@ elsif($Q{mode} eq "delitem") DataWrite(); DataCommitOrAbort(); UnLock(); - $disp.="アイテムNo.".$num."をプレイデータの中から消去しました。"; + $disp.=l("アイテムNo.%1をプレイデータの中から消去しました。",$num); OutSkin(); } elsif ($Q{ecode}) @@ -41,17 +41,17 @@ elsif ($Q{ecode}) $Q{tlyear}-=1900 if $Q{tlyear}>=2000; $time=0; $time=GetTimeLocal($Q{tlsec},$Q{tlmin},$Q{tlhour},$Q{tlday},$Q{tlmon}-1,$Q{tlyear}); - OutError('日付時刻設定が不正です。') if !$time; + OutError(l('日付時刻設定が不正です。')) if !$time; Lock(); DataRead(); require (GetPath($ITEM_DIR,"event")); my $key=$Q{ecode}; - OutError('正しいイベントコードを指定してください。') if !defined($EVENT{$key}); + OutError(l('正しいイベントコードを指定してください。')) if !defined($EVENT{$key}); $DTevent{$key}=$time; DataWrite(); DataCommitOrAbort(); UnLock(); - $disp.="イベントコード".$Q{ecode}."を発生させました。"; + $disp.=l('イベントコード%1を発生させました。',$Q{ecode}); OutSkin(); } else @@ -82,18 +82,18 @@ sub GetLog if($Q{log}eq'.') { - $disp.="
上記タブより閲覧したいログを選択してください
"; - $disp.="[$LOG_DELETESHOP_FILE] 閉店/移転した店舗のログ
"; - $disp.="[$LOG_ERROR_FILE] 各種エラーのログ
"; - $disp.="[$LOG_MOVESHOP_FILE] 移転受け入れのログ
"; - $disp.="[$LOG_DEBUG_FILE] デバッグログ
"; - $disp.="[$LOG_GLOBAL_MSG_FILE] 広域掲示板ログ
"; - $disp.="[$LOG_MARK_FILE] マークログ
"; - $disp.="
なお、表\示される内容には生のパスワードが含まれる可能\性もありますので、注意してください。"; + $disp.="
".l('上記タブより閲覧したいログを選択してください')."
"; + $disp.="[$LOG_DELETESHOP_FILE] ".l('閉店/移転した店舗のログ')."
"; + $disp.="[$LOG_ERROR_FILE] ".l('各種エラーのログ')."
"; + $disp.="[$LOG_MOVESHOP_FILE] ".l('移転受け入れのログ')."
"; + $disp.="[$LOG_DEBUG_FILE] ".l('デバッグログ')."
"; + $disp.="[$LOG_GLOBAL_MSG_FILE] ".l('広域掲示板ログ')."
"; + $disp.="[$LOG_MARK_FILE] ".l('マークログ')."
"; + $disp.="
".l('なお、表示される内容には生のパスワードが含まれる可能性もありますので、注意してください。'); } else { - open(IN,"<:encoding(UTF-8)",GetPath($LOG_DIR,$Q{log})) or OutError('存在しません '.$Q{log}); + open(IN,"<:encoding(UTF-8)",GetPath($LOG_DIR,$Q{log})) or OutError(l('存在しません %1',$Q{log})); my @data=reverse(); close(IN); @@ -149,7 +149,7 @@ sub GetMember $disp.=$TB; $disp.=$TR; - foreach(qw(IP No ID 名前 店名 創業 最終login 資金 ごみ 行動time 人気 売上 支出 平均 棚数 凍結 IP重複許可)) + foreach(qw(IP No ID ${\l('名前')} ${\l('店名')} ${\l('創業')} ${\l('最終login')} ${\l('資金')} ${\l('ごみ')} ${\l('行動time')} ${\l('人気')} ${\l('売上')} ${\l('支出')} ${\l('平均')} ${\l('棚数')} ${\l('凍結')} ${\l('IP重複許可')})) { $disp.=$TD.$_; } @@ -209,7 +209,7 @@ sub GetMember $disp.=$TD.$DT->{profitstock}; $disp.=$TD.$DT->{showcasecount}; $disp.=$TD.$DT->{blocklogin}; - $disp.=$TD.($DT->{nocheckip} ? '重複許可':''); + $disp.=$TD.($DT->{nocheckip} ? l('重複許可'):''); #$disp.=$TD.$DT->{comment}; $disp.=$TRE; @@ -226,19 +226,19 @@ sub GetMember my($date,$ip,$agent,$referer,$accept)=split(/\t/); if($sameA{"$ip\t$agent\t$referer\t$accept"}>1 && !$samecount{"$ip\t$agent\t$referer\t$accept"}) { - $warning.="●IP[$ip]&AGENT&ACCEPT&REFERER重複　"; + $warning.="●IP[$ip]&AGENT&ACCEPT&REFERER".l('重複')."　"; } elsif($sameB{"$ip\t$agent\t$accept"}>1 && !$samecount{"$ip\t$agent\t$accept"}) { - $warning.="●IP[$ip]&AGENT&ACCEPT重複　"; + $warning.="●IP[$ip]&AGENT&ACCEPT".l('重複')."　"; } elsif($sameC{"$ip\t$agent"}>1 && !$samecount{"$ip\t$agent"}) { - $warning.="●IP[$ip]&AGENT重複　"; + $warning.="●IP[$ip]&AGENT".l('重複')."　"; } elsif($sameD{"$ip"}>1 && !$samecount{"$ip"}) { - $warning.="●IP[$ip]重複　"; + $warning.="●IP[$ip]".l('重複')."　"; } $samecount{"$ip\t$agent\t$referer\t$accept"}++; $samecount{"$ip\t$agent\t$accept"}++; @@ -247,7 +247,7 @@ sub GetMember } if($count{$DT->{remoteaddr}}>1) { - $warning.="●TRUE IP[$DT->{remoteaddr}]重複　"; + $warning.="●TRUE IP[$DT->{remoteaddr}]".l('重複')."　"; } if($warning ne '') diff --git a/army-s.cgi b/army-s.cgi index a34d4d6..6f457b7 100644 --- a/army-s.cgi +++ b/army-s.cgi @@ -8,7 +8,7 @@ CheckUserPass(); ReadArmy(); my $functionname=$Q{mode}; -OutError("bad request") if !defined(&$functionname); +OutError('bad request') if !defined(&$functionname); &$functionname; WriteArmy(); @@ -18,8 +18,8 @@ DataCommitOrAbort(); UnLock(); $disp.=$TBT.$TRT.$TD.GetTagImgJob($DT->{job},$DT->{icon}); -$disp.=$TD.GetMenuTag('army', '[傭兵所へ]'); -$disp.=GetMenuTag('main','[自店に戻る]'); +$disp.=$TD.GetMenuTag('army', '['.l('傭兵所へ').']'); +$disp.=GetMenuTag('main','['.l('自店に戻る').']'); $disp.=$TRE.$TBE; $disp.="
".$ret; OutSkin(); @@ -34,38 +34,38 @@ my $usetime=60*40; UseTime($usetime); $num=CheckCount($Q{cnt1},$Q{cnt2},0,$limit); -OutError('数量を指定してください。') if !$num; +OutError(l('数量を指定してください。')) if !$num; $num=int($DT->{money}/$price) if $DT->{money}<$num*$price; $num=0 if $num<0; -OutError('資金が足りません。') if !$num; +OutError(l('資金が足りません。')) if !$num; $ARMY{$DT->{id}}+=$num; $DT->{money}-=$num*$price; -$ret="兵士駐屯所にてドワーフ兵士を".$num."人@".GetMoneyString($price)."(計".GetMoneyString($price*$num).")にて雇いました"; -$ret.="/".GetTime2HMS($usetime)."消費"; +$ret=l("兵士駐屯所にてドワーフ兵士を%1人@%2(計%3)にて雇いました",$num,GetMoneyString($price),GetMoneyString($price*$num)); +$ret.="/".l("%1消費",GetTime2HMS($usetime)); PushLog(0,$DT->{id},$ret); } sub fire { $num=CheckCount($Q{cnt1},$Q{cnt2},0,$ARMY{$DT->{id}}); -OutError('数量を指定してください。') if !$num; +OutError(l('数量を指定してください。')) if !$num; my $usetime=60*10; UseTime($usetime); $ARMY{$DT->{id}}-=$num; -$ret="ドワーフ兵士を".$num."人解雇しました"; -$ret.="/".GetTime2HMS($usetime)."消費"; +$ret=l("ドワーフ兵士を%1人解雇しました",$num); +$ret.="/".l("%1消費",GetTime2HMS($usetime)); PushLog(0,$DT->{id},$ret); } sub rebelon { -OutError('反乱を開始するには rebel と入力してください。') if ($Q{cmd} ne "rebel"); -OutError('兵士数が足りません。') if ($ARMY{$DT->{id}} < 2500); +OutError(l('反乱を開始するには rebel と入力してください。')) if ($Q{cmd} ne "rebel"); +OutError(l('兵士数が足りません。')) if ($ARMY{$DT->{id}} < 2500); my $usetime=60*30; UseTime($usetime); @@ -73,27 +73,27 @@ $DTevent{rebel}=$NOW_TIME+86400*3; $RIOT{$DT->{id}}=1; $STATE->{safety}=int($STATE->{safety} * 9 / 10) if ($STATE->{safety} > 5000); -$ret="ドワーフ兵士が武装蜂起。反乱が始まりました！"; -PushLog(2,0,$DT->{shopname}."の指揮で".$ret); -$ret.="/".GetTime2HMS($usetime)."消費"; +$ret=l("ドワーフ兵士が武装蜂起。反乱が始まりました！"); +PushLog(2,0,l("%1の指揮で%2",$DT->{shopname},$ret)); +$ret.="/".l("%1消費",GetTime2HMS($usetime)); } sub rside { -OutError('反乱に呼応するには rebel と入力してください。') if ($Q{cmd} ne "rebel"); +OutError(l('反乱に呼応するには rebel と入力してください。')) if ($Q{cmd} ne "rebel"); my $usetime=60*20; UseTime($usetime); $RIOT{$DT->{id}}=1; -$ret="反乱に呼応し，参戦しました！"; -PushLog(3,0,$DT->{shopname}."が".$ret); -$ret.="/".GetTime2HMS($usetime)."消費"; +$ret=l("反乱に呼応し，参戦しました！"); +PushLog(3,0,l("%1が%2",$DT->{shopname},$ret)); +$ret.="/".l("%1消費",GetTime2HMS($usetime)); } sub lside { -OutError('反乱に参加しながら領主の味方をすることはできません。') if ($RIOT{$DT->{id}}); +OutError(l('反乱に参加しながら領主の味方をすることはできません。')) if ($RIOT{$DT->{id}}); my $usetime=60*20; UseTime($usetime); @@ -104,10 +104,10 @@ if ($STATE->{leader}==$DT->{id}) else { $STATE->{robina}+=$ARMY{$DT->{id}}; - PushLog(3,0,$DT->{shopname}.'は領主に味方し，義勇兵を派遣しました。'); + PushLog(3,0,l('%1は領主に味方し，義勇兵を派遣しました。',$DT->{shopname})); } delete $ARMY{$DT->{id}}; -$ret="兵士を領主の護衛軍に派遣しました"; -$ret.="/".GetTime2HMS($usetime)."消費"; +$ret=l("兵士を領主の護衛軍に派遣しました"); +$ret.="/".l("%1消費",GetTime2HMS($usetime)); } diff --git a/army.cgi b/army.cgi index 7481d83..ed89b12 100644 --- a/army.cgi +++ b/army.cgi @@ -11,16 +11,16 @@ my $price=($DTevent{rebel}) ? 1500 : 1000; my $level=DignityDefine($DT->{dignity},2); $level=$DIGNITY[0] if !$level; -$disp.="●傭兵所

"; -$disp.=$TB.$TR.$TD.$image[0].$TD."案内人：ここにはドワーフ兵たちが雇い手を求めて集まっています。
"; -$disp.="彼らを集めて反乱を起こすも，逆に領主を守るも，雇い主次第です。".$TRE.$TBE; - -$disp.="
●$DT->{shopname}の雇用状況

"; -$disp.="$TB$TR$TDB爵位$TD$level (経験値 ".($DT->{dignity}+0)."pt)$TRE"; -$disp.="$TR$TDB雇用最大数$TD".(($DT->{dignity}+0)*1000)."人$TRE"; -$disp.="$TR$TDB雇用費用$TD@".GetMoneyString($price)."$TRE"; -$disp.="$TR$TDB雇用数$TD".($ARMY{$DT->{id}}+0)."人$TRE"; -$disp.="$TR$TDB状態$TD".($RIOT{$DT->{id}} ? "反乱" : "待機").$TRE; +$disp.="●".l('傭兵所')."

"; +$disp.=$TB.$TR.$TD.$image[0].$TD."".l('案内人')."：".l('ここにはドワーフ兵たちが雇い手を求めて集まっています。')."
"; +$disp.=l("彼らを集めて反乱を起こすも，逆に領主を守るも，雇い主次第です。").$TRE.$TBE; + +$disp.="
●".l('%1の雇用状況',$DT->{shopname})."

"; +$disp.="$TB$TR$TDB".l('爵位')."$TD$level (".l('経験値')." ".($DT->{dignity}+0)."pt)$TRE"; +$disp.="$TR$TDB".l('雇用最大数')."$TD".(($DT->{dignity}+0)*1000).l('人')."$TRE"; +$disp.="$TR$TDB".l('雇用費用')."$TD@".GetMoneyString($price)."$TRE"; +$disp.="$TR$TDB".l('雇用数')."$TD".($ARMY{$DT->{id}}+0)."人$TRE"; +$disp.="$TR$TDB".l('状態')."$TD".($RIOT{$DT->{id}} ? "".l('反乱')."" : l("待機")).$TRE; $disp.=$TBE; ArmyBuy(); @@ -39,9 +39,9 @@ sub ArmyBuy my $usetime=60*40; my $limit= ($DT->{dignity}+0)*1000 - $ARMY{$DT->{id}}; $disp.="
"; -$disp.='●兵士雇用：兵士を雇うには爵位を上げる必要があります
',return if $limit <= 0; -$disp.='●兵士雇用：資金が足りません
',return if $DT->{money}<$price; -$disp.='●兵士雇用：時間が足りません
',return if GetStockTime($DT->{time})<$usetime; +$disp.='●'.l('兵士雇用').'：'.l('兵士を雇うには爵位を上げる必要があります').'
',return if $limit <= 0; +$disp.='●'.l('兵士雇用').'：'.l('資金が足りません').'
',return if $DT->{money}<$price; +$disp.='●'.l('兵士雇用').'：'.l('時間が足りません').'
',return if GetStockTime($DT->{time})<$usetime; $disp.=< @@ -49,7 +49,7 @@ $disp.='●兵士雇用：時間が足りません
',return if Get $USERPASSFORM - ●兵士雇用： 兵士を + ●${\l('兵士雇用')}： ${\l('兵士を')} 人 - + ${\l('人、もしくは')} + ${\l('人')} + STR - $disp.="(消費時間:".GetTime2HMS($usetime).")"; + $disp.="(".l('消費時間').":".GetTime2HMS($usetime).")"; } @@ -82,7 +82,7 @@ sub ArmyFire my $usetime=60*10; my $stock=($ARMY{$DT->{id}}+0); $disp.="
"; -$disp.='●兵士解雇：時間が足りません
',return if GetStockTime($DT->{time})<$usetime; +$disp.='●'.l('兵士解雇').'：'.l('時間が足りません').'
',return if GetStockTime($DT->{time})<$usetime; $disp.=< @@ -90,7 +90,7 @@ $disp.='●兵士解雇：時間が足りません
',return if Get $USERPASSFORM - ●兵士解雇： 兵士を + ●${\l('兵士解雇')}： ${\l('兵士を')} 人 - + ${\l('人、もしくは')} + ${\l('人')} + STR - $disp.="(消費時間:".GetTime2HMS($usetime).")"; + $disp.="(".l('消費時間').":".GetTime2HMS($usetime).")"; } @@ -121,8 +121,8 @@ sub ArmyRebel return if ($STATE->{leader}==$DT->{id}); my $usetime=60*30; $disp.="
"; -$disp.='●武装蜂起：反乱に必要な兵士数が足りません。
',return if ($ARMY{$DT->{id}} < 2500); -$disp.='●武装蜂起：時間が足りません
',return if GetStockTime($DT->{time})<$usetime; +$disp.='●'.l('武装蜂起').'：'.l('反乱に必要な兵士数が足りません。').'
',return if ($ARMY{$DT->{id}} < 2500); +$disp.='●'.l('武装蜂起').'：'.l('時間が足りません').'
',return if GetStockTime($DT->{time})<$usetime; $disp.=< @@ -130,12 +130,12 @@ $disp.='●武装蜂起：時間が足りません
',return if Get $USERPASSFORM - ●武装蜂起： + ●${\l('武装蜂起')}： - (rebel と入力) - 反乱を + (${\l('rebel と入力')}) + ${\l('反乱を')} STR - $disp.="(消費時間:".GetTime2HMS($usetime).")"; + $disp.="(".l('消費時間').":".GetTime2HMS($usetime).")"; } @@ -143,7 +143,7 @@ sub ArmyAction { my $usetime=60*20; $disp.="
"; -$disp.='●反乱加勢：時間が足りません
',return if GetStockTime($DT->{time})<$usetime; +$disp.='●'.l('反乱加勢').'：'.l('時間が足りません').'
',return if GetStockTime($DT->{time})<$usetime; $disp.=< @@ -151,16 +151,16 @@ $disp.='●反乱加勢：時間が足りません
',return if Get $USERPASSFORM - ●反乱加勢： + ●${\l('反乱加勢')}： - (rebel と入力) - 反乱に + (${\l('rebel と入力')}) + ${\l('反乱に')} STR - $disp.="(消費時間:".GetTime2HMS($usetime).")"; + $disp.="(".l('消費時間').":".GetTime2HMS($usetime).")"; $usetime=60*20; $disp.="
"; -$disp.='●護衛協力：時間が足りません
',return if GetStockTime($DT->{time})<$usetime; +$disp.='●'.l('護衛協力').'：'.l('時間が足りません').'
',return if GetStockTime($DT->{time})<$usetime; $disp.=< @@ -168,8 +168,8 @@ $disp.='●護衛協力：時間が足りません
',return if Get $USERPASSFORM - ●護衛協力： - 兵士を領主の護衛軍に + ●${\l('護衛協力')}： + ${\l('兵士を領主の護衛軍に')} STR - $disp.="(消費時間:".GetTime2HMS($usetime).")"; + $disp.="(".l('消費時間').":".GetTime2HMS($usetime).")"; } diff --git a/bgm.cgi b/bgm.cgi index 5cdf692..e6bd19e 100644 --- a/bgm.cgi +++ b/bgm.cgi @@ -14,7 +14,7 @@ print <<"EOM"; -<body>フレーム非対応のブラウザの方はご利用できません</body> +<body>${\l('フレーム非対応のブラウザの方はご利用できません')}</body> diff --git a/bride.cgi b/bride.cgi index bee2b94..18aa0de 100644 --- a/bride.cgi +++ b/bride.cgi @@ -4,10 +4,10 @@ use utf8; @BRIDEnamelist=qw( no tm mode ida idb stbase ctbase money place reform ); -$image[0]='住宅共用倉庫'; -$image[1]='住宅一戸建て'; -$image[2]='プロポーズプロポーズ'; -$image[3]=GetTagImgKao("神父","father"); +$image[0]=''.l('住宅').''.l('共用倉庫'); +$image[1]=''.l('住宅').''.l('一戸建て'); +$image[2]=''.l('プロポーズ').''.l('プロポーズ'); +$image[3]=GetTagImgKao(l("神父"),"father"); Lock() if ($Q{mode}); # できるだけ早くロック。 DataRead(); @@ -21,7 +21,7 @@ RequireFile('inc-html-bride-list.cgi'); } else { -$disp.="●教会

"; +$disp.="●".l('教会')."

"; RequireFile('inc-html-bride.cgi'); } diff --git a/buy-s.cgi b/buy-s.cgi index 8baf34a..6ba8df9 100644 --- a/buy-s.cgi +++ b/buy-s.cgi @@ -13,7 +13,7 @@ DataRead(); CheckUserPass(); $num=CheckCount($Q{num1},$Q{num2},0,$ITEM[$itemno]->{limit}-$DT->{item}[$itemno-1]); -OutError('数量を指定してください。') if !$num; +OutError(l('数量を指定してください。')) if !$num; if($id==0) { @@ -24,10 +24,10 @@ if($id==0) else { # 一般店 - OutError('店終いしたかもしれません') if !defined($id2idx{$id}); + OutError(l('店終いしたかもしれません')) if !defined($id2idx{$id}); $DTS=$DT[$id2idx{$id}]; } -OutError('自分の店から買うことはできません') if $DT->{id}==$DTS->{id}; +OutError(l('自分の店から買うことはできません')) if $DT->{id}==$DTS->{id}; CheckShowCaseNumber($DTS,$showcase); CheckItemNo($itemno,$DTS); @@ -40,14 +40,14 @@ if($itemno!= $DTS->{showcase}[$showcase] || !$DTS->{item}[$itemno-1] ) { - OutError('商品や価格が変化したようです'); + OutError(l('商品や価格が変化したようです')); } $num=$DTS->{item}[$itemno-1] if $DTS->{item}[$itemno-1]<$num; $num=int($DT->{money}/$price) if ($DT->{money}<$num*$price && $price > 0); $num=0 if $num<0; -OutError('冷やかしですか？') if !$num; +OutError(l('冷やかしですか？')) if !$num; $TIME_SEND_ITEM=int($TIME_SEND_ITEM/2) if !$id; my $usetime=GetTimeDeal($baseprice*$num,$itemno,$num); @@ -79,11 +79,11 @@ if($DTS->{item}[$itemno-1]==0 && $guild!=1 && $guild!=-1) $DTS->{rank}=0 if $DTS->{rank}<0; } -$ret=$DTS->{shopname}."より".$ITEM[$itemno]->{name}."を".$num.$ITEM[$itemno]->{scale}.'@'.GetMoneyString($price)."(計".GetMoneyString($price*$num).")"; -$ret.=(($ITEM[$itemno]->{flag}=~/h/) ? "にて雇いました" : "にて仕入れました"); -$ret.="/".GetTime2HMS($usetime)."消費"; -$ret.="/".('ギルド内割引','ギルド間割増')[$guild-1].'@'.GetMoneyString($guildmargin) if $guild>0; -$ret.="/ギルド内割引補助なし" if $guild==-1; +$ret=l("%1より%2を%3@%4(計%5)",$DTS->{shopname},$ITEM[$itemno]->{name},$num.$ITEM[$itemno]->{scale},GetMoneyString($price),GetMoneyString($price*$num)); +$ret.=(($ITEM[$itemno]->{flag}=~/h/) ? l("にて雇いました") : l("にて仕入れました")); +$ret.="/".l("%1消費",GetTime2HMS($usetime)); +$ret.="/".(l('ギルド内割引'),l('ギルド間割増'))[$guild-1].'@'.GetMoneyString($guildmargin) if $guild>0; +$ret.="/".l('ギルド内割引補助なし') if $guild==-1; PushLog(0,$DT->{id},$ret); @item::DT=@DT; @@ -132,8 +132,8 @@ DataCommitOrAbort(); UnLock(); $disp.=$TBT.$TRT.$TD.GetTagImgJob($DT->{job},$DT->{icon}); -$disp.=$TD.GetMenuTag('stock', '[倉庫へ]'); -$disp.=($id==0) ? GetMenuTag('shop-m','[仕入れを続ける]') : GetMenuTag('shop-a','[買い物を続ける]','&t=2'); +$disp.=$TD.GetMenuTag('stock', '['.l('倉庫へ').']'); +$disp.=($id==0) ? GetMenuTag('shop-m','['.l('仕入れを続ける').']') : GetMenuTag('shop-a','['.l('買い物を続ける').']','&t=2'); $disp.=$TRE.$TBE; $disp.="
".$ret; diff --git a/buy.cgi b/buy.cgi index a4eb00a..74d23e2 100644 --- a/buy.cgi +++ b/buy.cgi @@ -23,8 +23,8 @@ else $showcase=CheckShowCaseNumber($DTS,$showcase); ($itemno,$price,$stock)=CheckShowCaseItem($DTS,$showcase); -OutError("陳列棚には何もありません") if !$itemno || !$stock; -OutError("陳列が変化したようです") if $itemno!=$mstno; +OutError(l('陳列棚には何もありません')) if !$itemno || !$stock; +OutError(l('陳列が変化したようです')) if $itemno!=$mstno; RequireFile('inc-html-ownerinfo.cgi'); @@ -36,34 +36,34 @@ my($guild,$guildrate,$guildmargin)=CheckGuild($DT,$DTS,$baseprice); my $saleprice=$baseprice+($guild==1 ? -$guildmargin : $guildmargin); $price=$saleprice; -$disp.="●購入

"; +$disp.="●".l('購入')."

"; my $ITEM=$ITEM[$itemno]; -$disp.=$TB.$TR.$TDB."店名".$TD.GetTagImgGuild($DTS->{guild}).$DTS->{shopname}.$TRE; +$disp.=$TB.$TR.$TDB.l("店名").$TD.GetTagImgGuild($DTS->{guild}).$DTS->{shopname}.$TRE; $disp.=$TR.$TDB; -$disp.=(($ITEM->{flag}=~/h/)? "名前" : "商品"); +$disp.=(($ITEM->{flag}=~/h/)? l("名前") : l("商品")); $disp.=$TD.GetTagImgItemType($itemno).$ITEM->{name}.$TRE; $disp.=$TR.$TDB.$TD.$ITEM->{info}.$TRE; -$disp.=$TR.$TDB."価格".$TD.'@'.GetMoneyString($baseprice).$TRE; -$disp.=$TR.$TDB.("ギルド内割引価格","ギルド間割増価格")[$guild-1].$TD.'@'.GetMoneyString($saleprice).$TRE if $guild>0; -$disp.=$TR.$TDB."ギルド資金不足".$TD."ギルド内割引補助はありません".$TRE if $guild==-1; -$disp.=$TR.$TDB."販売在庫数".$TD.$stock.$ITEM->{scale}.$TRE; -$disp.=$TR.$TDB.'自店保有数'.$TD.($DT->{item}[$itemno-1]+0).$ITEM->{scale}.$TRE; +$disp.=$TR.$TDB.l("価格").$TD.'@'.GetMoneyString($baseprice).$TRE; +$disp.=$TR.$TDB.(l("ギルド内割引価格","ギルド間割増価格"))[$guild-1].$TD.'@'.GetMoneyString($saleprice).$TRE if $guild>0; +$disp.=$TR.$TDB.l("ギルド資金不足".$TD."ギルド内割引補助はありません").$TRE if $guild==-1; +$disp.=$TR.$TDB.l("販売在庫数").$TD.$stock.$ITEM->{scale}.$TRE; +$disp.=$TR.$TDB.l('自店保有数').$TD.($DT->{item}[$itemno-1]+0).$ITEM->{scale}.$TRE; $disp.=$TBE; if ($ITEM->{flag}!~/s/) { # s 陳列不可 - $disp.="※この商品は陳列しても売れません
" if ($ITEM->{popular}==0); - $disp.="※この商品は陳列してもほとんど売れません
" if ($ITEM->{popular} > 800000); + $disp.="※".l('この商品は陳列しても売れません')."
" if ($ITEM->{popular}==0); + $disp.="※".l('この商品は陳列してもほとんど売れません')."
" if ($ITEM->{popular} > 800000); } $disp.="
"; if($DT->{item}[$itemno-1]>=$ITEM->{limit}) - {$disp.='
もう倉庫は'.$ITEM->{name}.'が一杯です
';} + {$disp.='
'.l('もう倉庫は%1が一杯です',$ITEM->{name}).'
';} elsif($DT->{money}<$price && $price > 0) - {$disp.='
資金が足りません
';} + {$disp.='
'.l('資金が足りません').'
';} elsif(GetStockTime($DT->{time})<$usetime) - {$disp.='
時間が足りません
';} + {$disp.='
'.l('時間が足りません').'
';} else { $disp.="
"; @@ -74,7 +74,7 @@ else $disp.=""; $disp.=""; $disp.=""; - $disp.="上記を "; + $disp.=l("上記を")." "; $limit=$ITEM[$itemno]->{limit}-$DT->{item}[$itemno-1]; my $money=$MAX_MONEY; $money=int($DT->{money}/$price) if $price; @@ -83,9 +83,9 @@ else $msg{100}=100; $msg{1000}=1000; $msg{10000}=10000; - $msg{$stock}="$stock(全部)"; - $msg{$limit}="$limit(倉庫最大)"; - $msg{$money}="$money(資金最大)"; + $msg{$stock}="$stock(".l('全部').")"; + $msg{$limit}="$limit(".l('倉庫最大').")"; + $msg{$money}="$money(".l('資金最大').")"; $disp.=" $ITEM[$itemno]->{scale}、もしくは "; $disp.=" $ITEM[$itemno]->{scale} "; - if ($ITEM->{flag}=~/h/) { $disp.=""; } - else { $disp.=""; } + if ($ITEM->{flag}=~/h/) { $disp.=""; } + else { $disp.=""; } - $disp.="
(消費時間:".GetTime2HMS($usetime).")"; + $disp.="
(".l('消費時間').":".GetTime2HMS($usetime).")"; $disp.="
"; } diff --git a/convert.cgi b/convert.cgi index 48b6f1f..42ba20e 100644 --- a/convert.cgi +++ b/convert.cgi @@ -14,7 +14,7 @@ OldLog("2"); DataWrite(); DataCommitOrAbort(); UnLock(); -$disp.="正常に変換できました。"; +$disp.=l("正常に変換できました。"); OutSkin(); exit; @@ -70,13 +70,13 @@ sub OldLog sub DataReadOld { my $datafile=GetPath("data"); - OutError("実行できません") unless -e $datafile; + OutError(l('実行できません')) unless -e $datafile; open(IN,"<:encoding(UTF-8)",$datafile); read(IN,my $buf,-s $datafile); close(IN); my @DATA=split(/\n/,$buf); - OutError("no data") if !@DATA; + OutError('no data') if !@DATA; my $idx=0; my $maxdata=@DATA; diff --git a/dwarf.cgi b/dwarf.cgi index 7d14481..fb5bf73 100644 --- a/dwarf.cgi +++ b/dwarf.cgi @@ -1,7 +1,7 @@ use utf8; # ドワーフ宅配便 2004/01/20 由來 -$image[0]=GetTagImgKao("住み込みドワーフ","dwarf"); +$image[0]=GetTagImgKao(l("住み込みドワーフ"),"dwarf"); $Q{mode}='new', if ($Q{form} eq "make")&&($Q{ok}); # 送信モード切替 Lock() if $Q{mode}; diff --git a/gd-b.cgi b/gd-b.cgi index bcb812b..712caca 100644 --- a/gd-b.cgi +++ b/gd-b.cgi @@ -6,10 +6,10 @@ DataRead(); CheckUserPass(); ReadGuild(); ReadGuildData(); -$image[0]=GetTagImgKao("ギルド受付","guild"); +$image[0]=GetTagImgKao(l("ギルド受付"),"guild"); $Q{er}='gd-f'; -$disp.="●ギルド公館

"; +$disp.="●".l('ギルド公館')."

"; $Q{url}="http://" if $Q{url} eq ""; $Q{leadt}=$MYDIR; @@ -18,7 +18,7 @@ $Q{leader}=$DT->{id}; @MAX=(30,12,4,4,6,30,120,120,10,10,60); foreach my $i(0..$#GLIST) { - OutError('記入されていない項目があります - '.$GLIST[$i]) if (!$Q{$GLIST[$i]}); + OutError(l('記入されていない項目があります - %1',$GLIST[$i])) if (!$Q{$GLIST[$i]}); # $Q{$GLIST[$i]}=CutStr(jcode::sjis($Q{$GLIST[$i]},$CHAR_SHIFT_JIS&&'sjis'),$MAX[$i]); $Q{$GLIST[$i]}=CutStr($Q{$GLIST[$i]},$MAX[$i]); $Q{$GLIST[$i]}=~s/&/&/g; @@ -26,13 +26,13 @@ foreach my $i(0..$#GLIST) $Q{$GLIST[$i]}=~s/ 500) || ($Q{dealrate} < 10); -OutError('会費率は10～500の間の数値で指定してください') if ($Q{feerate} > 500) || ($Q{feerate} < 10); -OutError('ギルドコードに使用できない文字が含まれています') if ($Q{code} =~ /([^a-z])/); -OutError('ギルド設立に画像ファイルは必須です') if (!$Q{upfile})&&($Q{mode} ne "edit"); +OutError(l('会費率や割引増率に使用できない文字が含まれています')) if ($Q{dealrate} =~ /([^0-9])/)||($Q{feerate} =~ /([^0-9])/); +OutError(l('割引増率は10～500の間の数値で指定してください')) if ($Q{dealrate} > 500) || ($Q{dealrate} < 10); +OutError(l('会費率は10～500の間の数値で指定してください')) if ($Q{feerate} > 500) || ($Q{feerate} < 10); +OutError(l('ギルドコードに使用できない文字が含まれています')) if ($Q{code} =~ /([^a-z])/); +OutError(l('ギルド設立に画像ファイルは必須です')) if (!$Q{upfile})&&($Q{mode} ne "edit"); -OutError('同じギルドコードがすでに存在しています') if (-e $COMMON_DIR."/".$Q{code}.".pl")&&($Q{mode} ne "edit"); +OutError(l('同じギルドコードがすでに存在しています')) if (-e $COMMON_DIR."/".$Q{code}.".pl")&&($Q{mode} ne "edit"); GuildImgUp() if ($Q{upfile}); BuildGuild(); @@ -52,8 +52,8 @@ if ($Q{mode} ne "edit") $disp.=<<"HTML"; $TB$TR $TD$image[0]$TD -ギルド受付：手続が完了しました。数分後に反映されると思います。
-楽しいギルドになっていくといいですね。頑張ってください。 +${\l('ギルド受付')}：${\l('手続が完了しました。数分後に反映されると思います。')}
+${\l('楽しいギルドになっていくといいですね。頑張ってください。')} $TRE$TBE HTML OutSkin(); @@ -76,7 +76,7 @@ sub GuildImgUp } else { - OutError('gif画像ファイルではないようです。'.$MIMETYPE{upfile}); + OutError(l('gif画像ファイルではないようです。 %1',$MIMETYPE{upfile})); } } diff --git a/gd-bbs.cgi b/gd-bbs.cgi index 2c36265..976e620 100644 --- a/gd-bbs.cgi +++ b/gd-bbs.cgi @@ -8,11 +8,11 @@ RequireFile('inc-gd.cgi'); my $code = $DT->{guild}; $code=$Q{code} if $MASTER_USER; -OutError('使用不可です') if !$code; +OutError(l('使用不可です')) if !$code; -$disp.=$TB.$TR.$TD.$image[0].$TD."ギルド受付：こちらは".GetTagImgGuild($DT->{guild}); -$disp.="".$GUILD{$DT->{guild}}->[$GUILDIDX_name]." 作戦室です。
"; -$disp.="メンバーからの伝言は，こちらです。".$TRE.$TBE; +$disp.=$TB.$TR.$TD.$image[0].$TD."".l('ギルド受付')."：".l("こちらは").GetTagImgGuild($DT->{guild}); +$disp.=l("%1 作戦室です。",$GUILD{$DT->{guild}}->[$GUILDIDX_name])."
"; +$disp.=l("メンバーからの伝言は，こちらです。").$TRE.$TBE; $LOG_FILE='bbslog-'.$code; if ($Q{msg}) @@ -33,7 +33,7 @@ $MYFORM$USERPASSFORM $errormsg - + STR @@ -50,7 +50,7 @@ foreach(@MESSAGE[$pagestart..$pageend]) $tm=GetTime2FormatTime($tm); if(!$to) { - $sname="★管理者"; + $sname=l("★管理者"); } $disp.=$TR; diff --git a/gd-e.cgi b/gd-e.cgi index 7079b97..e6eee5d 100644 --- a/gd-e.cgi +++ b/gd-e.cgi @@ -9,7 +9,7 @@ RequireFile('inc-gd.cgi'); $Q{er}='gd'; my $functionname=$Q{mode}; $functionname||="leave"; -OutError("bad request") if !defined(&$functionname); +OutError('bad request') if !defined(&$functionname); &$functionname; OutSkin(); @@ -18,39 +18,39 @@ OutSkin(); sub leave { -OutError("bad request") if (!$DT->{guild}); +OutError('bad request') if (!$DT->{guild}); $disp.=<<"HTML"; $TB$TR $TD$image[0]$TD -ギルド受付：ギルドを退団しますか？
-メンバーに連絡してから退団することをおすすめします。 +${\l('ギルド受付')}：${\l('ギルドを退団しますか？')}
+${\l('メンバーに連絡してから退団することをおすすめします。')} $TRE$TBE
HTML -$disp.="ギルド戦中は退団できません",return if ($DTevent{guildbattle}); +$disp.=l("ギルド戦中は退団できません"),return if ($DTevent{guildbattle}); $disp.=< $USERPASSFORM - ギルド退団 + ${\l('ギルド退団')} - (leaveと入力) - + (${\l('leaveと入力')}) + STR } sub submit { -OutError("bad request") if (!$DT->{guild}); +OutError('bad request') if (!$DT->{guild}); my $checkok; $ckeckok=1 if ($GUILD_DETAIL{$DT->{guild}}->{leadt} eq $MYDIR && $GUILD_DETAIL{$DT->{guild}}->{leader} == $DT->{id}); $ckeckok=1 if ($GUILD_DETAIL{$DT->{guild}}->{$MYDIR} == $DT->{id}); -OutError("bad request") if (!$ckeckok); +OutError('bad request') if (!$ckeckok); $disp.=<<"HTML"; $TB$TR $TD$image[0]$TD -ギルド受付：人事室では，メンバーに肩書きをつけたり，退団させたりできます。
-ただし，この街のメンバーに限りますのでご注意ください。 +${\l('ギルド受付')}：${\l('人事室では，メンバーに肩書きをつけたり，退団させたりできます。')}
+${\l('ただし，この街のメンバーに限りますのでご注意ください。')} $TRE$TBE
HTML @@ -64,47 +64,47 @@ foreach(@DT) $disp.=< $MYFORM$USERPASSFORM -●肩書き命名： +●${\l('肩書き命名')}： の肩書きを + ${\l('の肩書きを')} -と (20文字以内) +と (${\l('%1文字以内',20)})
$MYFORM$USERPASSFORM -退団処分： +${\l('退団処分')}： を + を -(leaveと入力) +(${\l('leaveと入力')})
STR } sub name { -OutError("bad request") if (!$DT->{guild}); +OutError('bad request') if (!$DT->{guild}); my $checkok; $ckeckok=1 if ($GUILD_DETAIL{$DT->{guild}}->{leadt} eq $MYDIR && $GUILD_DETAIL{$DT->{guild}}->{leader} == $DT->{id}); $ckeckok=1 if ($GUILD_DETAIL{$DT->{guild}}->{$MYDIR} == $DT->{id}); -OutError("bad request") if (!$ckeckok); +OutError('bad request') if (!$ckeckok); -OutError('命名する相手を選んでください。') if !$Q{id}; -OutError('存在しない店舗です。') if !defined($id2idx{$Q{id}}); +OutError(l('命名する相手を選んでください。')) if !$Q{id}; +OutError(l('存在しない店舗です。')) if !defined($id2idx{$Q{id}}); my $tg=$id2idx{$Q{id}}; -OutError('命名権限がありません。') if ($DT[$tg]->{guild} ne $DT->{guild}); -OutError('肩書きが長すぎです。') if length($Q{name})>20; +OutError(l('命名権限がありません。')) if ($DT[$tg]->{guild} ne $DT->{guild}); +OutError(l('肩書きが長すぎです。')) if length($Q{name})>20; $DT[$tg]->{user}{_so_e}=$Q{name}; -my $ret=$DT[$tg]->{shopname}."を「".$Q{name}."」に叙しました。"; -PushLog(2,0,"ギルド「".$GUILD{$DT->{guild}}->[$GUILDIDX_name]."」は".$ret); +my $ret=l("%1を「%2」に叙しました。",$DT[$tg]->{shopname},$Q{name}); +PushLog(2,0,l("ギルド「%1」は%2",$GUILD{$DT->{guild}}->[$GUILDIDX_name],$ret)); $disp.=$ret; RenewLog(); @@ -115,23 +115,23 @@ UnLock(); sub fire { -OutError("bad request") if (!$DT->{guild}); +OutError('bad request') if (!$DT->{guild}); my $checkok; $ckeckok=1 if ($GUILD_DETAIL{$DT->{guild}}->{leadt} eq $MYDIR && $GUILD_DETAIL{$DT->{guild}}->{leader} == $DT->{id}); $ckeckok=1 if ($GUILD_DETAIL{$DT->{guild}}->{$MYDIR} == $DT->{id}); -OutError("bad request") if (!$ckeckok); +OutError('bad request') if (!$ckeckok); -OutError('退団させるメンバーを選んでください。') if !$Q{id}; -OutError('存在しない店舗です。') if !defined($id2idx{$Q{id}}); +OutError(l('退団させるメンバーを選んでください。')) if !$Q{id}; +OutError(l('存在しない店舗です。')) if !defined($id2idx{$Q{id}}); my $tg=$id2idx{$Q{id}}; -OutError('権限がありません。') if ($DT[$tg]->{guild} ne $DT->{guild}); -OutError('団長を退団させることはできません。') if ($GUILD_DETAIL{$DT->{guild}}->{leadt} eq $MYDIR && $GUILD_DETAIL{$DT->{guild}}->{leader} == $Q{id}); -OutError('退団させるにはleaveと入力してください') if $Q{guild} ne 'leave'; +OutError(l('権限がありません。')) if ($DT[$tg]->{guild} ne $DT->{guild}); +OutError(l('団長を退団させることはできません。')) if ($GUILD_DETAIL{$DT->{guild}}->{leadt} eq $MYDIR && $GUILD_DETAIL{$DT->{guild}}->{leader} == $Q{id}); +OutError(l('退団させるにはleaveと入力してください')) if $Q{guild} ne 'leave'; delete $DT[$tg]->{user}{_so_e}; $DT[$tg]->{guild}=""; my $name=$GUILD{$DT->{guild}}->[$GUILDIDX_name]; -PushLog(1,0,$DT[$tg]->{shopname}."がギルド「".$name."」から除名されました。"); +PushLog(1,0,l("%1がギルド「%2」から除名されました。",$DT[$tg]->{shopname},$name)); $disp.=$DT[$tg]->{shopname}."を退団させました。"; RenewLog(); diff --git a/gd-f.cgi b/gd-f.cgi index 11a3474..2321e29 100644 --- a/gd-f.cgi +++ b/gd-f.cgi @@ -12,9 +12,9 @@ GuildEditMenu(); } elsif ($DT->{dignity} < $DIG_FORGUILD) { -$disp.=$TB.$TR.$TD.$image[0].$TD."ギルド受付：こちらはギルド結成届出所です。
"; -$disp.="ギルドを結成するには，$DIG_FORGUILDポイント以上の爵位が必要となります。".$TRE.$TBE."
"; -$disp.="条件を満たしていません"; +$disp.=$TB.$TR.$TD.$image[0].$TD."".l('ギルド受付')."：".l('こちらはギルド結成届出所です。')."
"; +$disp.=l('ギルドを結成するには，$DIG_FORGUILDポイント以上の爵位が必要となります。').$TRE.$TBE."
"; +$disp.=l("条件を満たしていません"); } else { @@ -27,13 +27,13 @@ OutSkin(); sub GuildEditMenu { my $leaderid=$GUILD_DETAIL{$DT->{guild}}->{leader}; -OutError('ギルドを変更できるのは団長だけです') if (defined($id2idx{$leaderid}) && $leaderid != $DT->{id}); +OutError(l('ギルドを変更できるのは団長だけです')) if (defined($id2idx{$leaderid}) && $leaderid != $DT->{id}); ReadLetterName(); $code=$DT->{guild}; $GUILD_DETAIL{$code}->{url}="http://" if !$GUILD_DETAIL{$code}->{url}; -$disp.=$TB.$TR.$TD.$image[0].$TD."ギルド受付：こちらは".GetTagImgGuild($code); -$disp.="".$GUILD{$code}->[$GUILDIDX_name]." 執務室です。
"; -$disp.="団長様，今後のギルドをどのようになさるおつもりですか？".$TRE.$TBE."
"; +$disp.=$TB.$TR.$TD.$image[0].$TD."".l('ギルド受付')."：".l("こちらは").GetTagImgGuild($code); +$disp.=l("%1 執務室です。",$GUILD{$code}->[$GUILDIDX_name])."
"; +$disp.=l("団長様，今後のギルドをどのようになさるおつもりですか？").$TRE.$TBE."
"; my $i=GuildCommonForm(); $disp.=<<"HTML"; @@ -43,12 +43,12 @@ $USERPASSFORM $TB$TR$TDBギルドコード $code$TRE -$TR$TDBギルド画像
(32*16pt) -gif形式画像のみ（指定しないと現状のまま）
$TRE -$TR$TDBギルドホームページ
(60文字以内) -一般向けホームページ
$TRE +$TR$TDB${\l('ギルド画像')}
(32*16pt) +${\l('gif形式画像のみ（指定しないと現状のまま）')}
$TRE +$TR$TDB${\l('ギルドホームページ')}
(${\l('60文字以内')}) +${\l('一般向けホームページ')}
$TRE $i -$TR$TDB軍師任命
(各街 1名まで) +$TR$TDB${\l('軍師任命')}
(${\l('各街 1名まで')}) HTML my $r=int(scalar(@OtherDir) / 2 + 0.5);$r||=1; @@ -56,7 +56,7 @@ foreach(0..$#OtherDir) { my $pg=$OtherDir[$_]; $disp.=( ($_ % $r) ? "
" : $TD); - $disp.="$Tname{$pg}