Translate application to Korean and convert encodings to UTF-8
This commit is contained in:
sanjeok77
Regular → Executable
+91
-91
@@ -1,91 +1,91 @@
|
||||
#-----------------------------------------------------------#
|
||||
# 罪と罰++ 二律背反 #
|
||||
# Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD #
|
||||
# Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] #
|
||||
# BLANK BOARD [ http://pom.to/ ] #
|
||||
#-----------------------------------------------------------#
|
||||
# 討伐 Version 1.0
|
||||
#--- [注意事項] --------------------------------------------#
|
||||
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
|
||||
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
|
||||
#-----------------------------------------------------------#
|
||||
|
||||
#-------------------------------------------------------------------------------
|
||||
#討伐メニュー
|
||||
sub subdue{
|
||||
|
||||
if(!$type){
|
||||
|
||||
$log .= "ｴﾙﾀﾆｱの地に蔓延る魑魅魍魎を討伐します。<br>成功すると地位と賞金が獲得できます。<br>\n";
|
||||
$tm=0;
|
||||
$type='討伐';
|
||||
&call_mapdata if($mv_mode eq 'pc');
|
||||
|
||||
&subdue_menu;
|
||||
|
||||
}elsif($type eq '討伐'){ &subdue_exe }
|
||||
|
||||
&dat_write;
|
||||
}
|
||||
|
||||
sub subdue_menu{
|
||||
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
|
||||
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
|
||||
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
|
||||
|
||||
$log2 .=qq|<select name="cmd" size="1">\n|;
|
||||
$log2 .=qq|<option value="0">やめる</option>\n|;
|
||||
foreach(1 .. $#cmp){ $log2 .=qq|<option value="$_">$cmp[$_]</option>\n|;}
|
||||
$log2 .=qq|</select><br>\n|;
|
||||
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------------------
|
||||
#討伐処理(討伐 >> 討伐中へ移行まで)
|
||||
sub subdue_exe{
|
||||
|
||||
if(!$tm){
|
||||
|
||||
if($cmd<=0 || $cmd>$#cmp){
|
||||
$log .= "またお越しください…<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
$type='';
|
||||
&call_main_st;
|
||||
}elsif($cmd){
|
||||
|
||||
if($camp<1){
|
||||
$log .= "放浪の身で討伐は行えません<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&call_main_st;
|
||||
}else{
|
||||
my $x = int($g_p[$rank]/3);
|
||||
if($max_sol<=$my_cs){
|
||||
$sol= $max_sol;
|
||||
}elsif($max_sol>$my_cs){
|
||||
$sol= $my_cs;
|
||||
}
|
||||
my $y = int($sol/10);
|
||||
|
||||
$log .= "$cmp[$cmd]の魑魅魍魎を討伐します<br>\n";
|
||||
|
||||
$log .= "探索を開始します。<br>\n";
|
||||
$nation=$cmd;
|
||||
$tm=0;
|
||||
$type='討伐中';
|
||||
|
||||
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
|
||||
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
|
||||
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
|
||||
|
||||
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
|
||||
}
|
||||
}
|
||||
}
|
||||
&dat_write;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
#-----------------------------------------------------------#
|
||||
# 죄와 벌++ 이율배반 #
|
||||
# Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD #
|
||||
# Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] #
|
||||
# BLANK BOARD [ http://pom.to/ ] #
|
||||
#-----------------------------------------------------------#
|
||||
# 토벌 Version 1.0
|
||||
#--- [주의사항] --------------------------------------------#
|
||||
# 1.이 스크립트는 이하의 이용규정에 따라 배포되고 있습니다. #
|
||||
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
|
||||
#-----------------------------------------------------------#
|
||||
|
||||
#-------------------------------------------------------------------------------
|
||||
#토벌 메뉴
|
||||
sub subdue{
|
||||
|
||||
if(!$type){
|
||||
|
||||
$log .= "엘타니아 땅에 만연한 이매망량을 토벌합니다.<br>성공하면 지위와 상금을 획득할 수 있습니다.<br>\n";
|
||||
$tm=0;
|
||||
$type='토벌';
|
||||
&call_mapdata if($mv_mode eq 'pc');
|
||||
|
||||
&subdue_menu;
|
||||
|
||||
}elsif($type eq '토벌'){ &subdue_exe }
|
||||
|
||||
&dat_write;
|
||||
}
|
||||
|
||||
sub subdue_menu{
|
||||
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
|
||||
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
|
||||
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
|
||||
|
||||
$log2 .=qq|<select name="cmd" size="1">\n|;
|
||||
$log2 .=qq|<option value="0">그만두기</option>\n|;
|
||||
foreach(1 .. $#cmp){ $log2 .=qq|<option value="$_">$cmp[$_]</option>\n|;}
|
||||
$log2 .=qq|</select><br>\n|;
|
||||
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------------------
|
||||
#토벌 처리(토벌 >> 토벌 중으로 이행까지)
|
||||
sub subdue_exe{
|
||||
|
||||
if(!$tm){
|
||||
|
||||
if($cmd<=0 || $cmd>$#cmp){
|
||||
$log .= "다음에 또 오십시오…<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
$type='';
|
||||
&call_main_st;
|
||||
}elsif($cmd){
|
||||
|
||||
if($camp<1){
|
||||
$log .= "방랑자 신분으로는 토벌을 진행할 수 없습니다<br>\n";
|
||||
$tm = $cmd = 0;
|
||||
&call_main_st;
|
||||
}else{
|
||||
my $x = int($g_p[$rank]/3);
|
||||
if($max_sol<=$my_cs){
|
||||
$sol= $max_sol;
|
||||
}elsif($max_sol>$my_cs){
|
||||
$sol= $my_cs;
|
||||
}
|
||||
my $y = int($sol/10);
|
||||
|
||||
$log .= "$cmp[$cmd]의 이매망량을 토벌합니다<br>\n";
|
||||
|
||||
$log .= "탐색을 시작합니다.<br>\n";
|
||||
$nation=$cmd;
|
||||
$tm=0;
|
||||
$type='토벌 중';
|
||||
|
||||
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
|
||||
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
|
||||
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
|
||||
|
||||
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
|
||||
}
|
||||
}
|
||||
}
|
||||
&dat_write;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
Reference in New Issue
Block a user