Skip to content

Commit

Permalink
feat: 完成多國語言化
Browse files Browse the repository at this point in the history
  • Loading branch information
@katelynn620
katelynn620 committed Sep 14, 2022
1 parent 2deda50 commit 605435f
Show file tree
Hide file tree
Showing 139 changed files with 17,076 additions and 2,129 deletions.
36 changes: 18 additions & 18 deletions admin-sub.cgi
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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 '';
Expand All @@ -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';
}

#アクセス制限制御
Expand All @@ -26,29 +26,29 @@ 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};
}
}

#追放
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};
}

Expand All @@ -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});
}

#賞金授与(デバッグにも使用できます)
Expand All @@ -72,35 +72,35 @@ 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();
DataWrite();
DataCommitOrAbort();
UnLock();

$disp="行いたい処理とそのパラメータを正しく選択/記述してください" if $disp eq '';
$disp=l('行いたい処理とそのパラメータを正しく選択/記述してください') if $disp eq '';
$disp.=" <-- $DT->{shopname} [$DT->{name}] $Q{comment}";

$NOMENU=1;
Expand Down
44 changes: 22 additions & 22 deletions admin-sub2.cgi
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ use utf8;
# 全体管理 2004/01/20 由來

CheckUserPass();
OutError("") if !$MASTER_USER;
OutError('') if !$MASTER_USER;

$NOMENU=1;
$Q{bk}="none";
Expand All @@ -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();
Expand All @@ -33,25 +33,25 @@ elsif($Q{mode} eq "delitem")
DataWrite();
DataCommitOrAbort();
UnLock();
$disp.="アイテムNo.".$num."をプレイデータの中から消去しました。";
$disp.=l("アイテムNo.%1をプレイデータの中から消去しました。",$num);
OutSkin();
}
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
Expand Down Expand Up @@ -82,18 +82,18 @@ sub GetLog

if($Q{log}eq'.')
{
$disp.="<hr>上記タブより閲覧したいログを選択してください<br>";
$disp.="[$LOG_DELETESHOP_FILE] 閉店/移転した店舗のログ<br>";
$disp.="[$LOG_ERROR_FILE] 各種エラーのログ<br>";
$disp.="[$LOG_MOVESHOP_FILE] 移転受け入れのログ<br>";
$disp.="[$LOG_DEBUG_FILE] デバッグログ<br>";
$disp.="[$LOG_GLOBAL_MSG_FILE] 広域掲示板ログ<br>";
$disp.="[$LOG_MARK_FILE] マークログ<br>";
$disp.="<hr>なお、表\示される内容には生のパスワードが含まれる可能\性もありますので、注意してください。";
$disp.="<hr>".l('上記タブより閲覧したいログを選択してください')."<br>";
$disp.="[$LOG_DELETESHOP_FILE] ".l('閉店/移転した店舗のログ')."<br>";
$disp.="[$LOG_ERROR_FILE] ".l('各種エラーのログ')."<br>";
$disp.="[$LOG_MOVESHOP_FILE] ".l('移転受け入れのログ')."<br>";
$disp.="[$LOG_DEBUG_FILE] ".l('デバッグログ')."<br>";
$disp.="[$LOG_GLOBAL_MSG_FILE] ".l('広域掲示板ログ')."<br>";
$disp.="[$LOG_MARK_FILE] ".l('マークログ')."<br>";
$disp.="<hr>".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(<IN>);
close(IN);

Expand Down Expand Up @@ -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.$_;
}
Expand Down Expand Up @@ -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;

Expand All @@ -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"}++;
Expand All @@ -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 '')
Expand Down
46 changes: 23 additions & 23 deletions army-s.cgi
View file
Original file line number Diff line number Diff line change
Expand Up @@ -8,7 +8,7 @@ CheckUserPass();
ReadArmy();

my $functionname=$Q{mode};
OutError("bad request") if !defined(&$functionname);
OutError('bad request') if !defined(&$functionname);
&$functionname;

WriteArmy();
Expand All @@ -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.="<br>".$ret;
OutSkin();
Expand All @@ -34,66 +34,66 @@ 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);
$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);
Expand All @@ -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));
}
Loading

0 comments on commit 605435f

Please sign in to comment.