From f43e7fa91536d4f47a5310e3cfbdb8ceb9ab1732 Mon Sep 17 00:00:00 2001
From: sanjeok77 <sanjeok77@users.noreply.git.webpluss.net>
Date: Mon, 22 Jun 2026 22:22:41 +0900
Subject: [PATCH] Translate application to Korean and convert encodings to
 UTF-8

---
 campbbs.cgi                   |  613 ++++-----
 hist.cgi                      |  433 +++---
 html/Help.html                |  602 ++++----
 html/Help_i.html              |  241 ++--
 html/newgame.html             |   64 +-
 html/ore_.css                 |   66 +-
 html/st.html                  |  304 ++--
 html/st_i.html                |  180 +--
 inc/ore_sub-ability.cgi       |  344 ++---
 inc/ore_sub-base-p1_pc.cgi    |  300 ++--
 inc/ore_sub-base_mv.cgi       |  164 +--
 inc/ore_sub-base_pc.cgi       |  736 +++++-----
 inc/ore_sub-battle.cgi        | 2218 ++++++++++++++---------------
 inc/ore_sub-bbs.cgi           |  592 ++++----
 inc/ore_sub-changes.cgi       |  284 ++--
 inc/ore_sub-infomation_mv.cgi |  250 ++--
 inc/ore_sub-infomation_pc.cgi |  328 ++---
 inc/ore_sub-main.cgi          |  304 ++--
 inc/ore_sub-main_reset.cgi    |  207 ++-
 inc/ore_sub-map-p1_pc.cgi     |  108 +-
 inc/ore_sub-members-p1.cgi    |  212 +--
 inc/ore_sub-mission.cgi       |  872 ++++++------
 inc/ore_sub-npc_1.cgi         |  186 +--
 inc/ore_sub-npc_2.cgi         |  172 +--
 inc/ore_sub-politics.cgi      |  598 ++++----
 inc/ore_sub-shop-lotto.cgi    |  298 ++--
 inc/ore_sub-shop-medical.cgi  |  244 ++--
 inc/ore_sub-shop-p1_mv.cgi    |  146 +-
 inc/ore_sub-shop-p1_pc.cgi    |  206 +--
 inc/ore_sub-shop.cgi          | 1010 +++++++-------
 inc/ore_sub-subdue.cgi        |  182 +--
 inc/ore_sub-subduetime.cgi    |  692 +++++-----
 inc/ore_sub-system.cgi        |  990 +++++++------
 inc/ore_sub-training_mv.cgi   |  478 ++++---
 inc/ore_sub-training_pc.cgi   |  544 ++++----
 inc/ore_sub-war.cgi           |  292 ++--
 inc/ore_sub-wartime.cgi       | 1749 ++++++++++++-----------
 index.cgi                     |  622 +++++----
 jcode.pl                      |    4 +-
 logdata/camp_log_1.cgi        |    0
 logdata/camp_log_2.cgi        |    0
 logdata/camp_log_3.cgi        |    0
 logdata/camp_log_4.cgi        |    0
 logdata/camp_log_5.cgi        |    0
 logdata/camp_mem_1.cgi        |    0
 logdata/camp_mem_2.cgi        |    0
 logdata/camp_mem_3.cgi        |    0
 logdata/camp_mem_4.cgi        |    0
 logdata/camp_mem_5.cgi        |    0
 logdata/cdata.cgi             |    2 +-
 logdata/hist_log.cgi          |    1 +
 logdata/park_log.cgi          |    0
 logdata/park_mem.cgi          |    0
 logdata/public_log.cgi        |    0
 ore_.cgi                      |  149 +-
 ore_admin.cgi                 | 2450 ++++++++++++++++-----------------
 ore_config.cgi                |  605 ++++----
 ore_reg.cgi                   |  506 +++----
 park.cgi                      |  611 ++++----
 public.cgi                    |  448 +++---
 readme.html                   |  619 +++++----
 61 files changed, 11582 insertions(+), 11644 deletions(-)
 mode change 100644 => 100755 campbbs.cgi
 mode change 100644 => 100755 hist.cgi
 mode change 100644 => 100755 inc/ore_sub-ability.cgi
 mode change 100644 => 100755 inc/ore_sub-base-p1_pc.cgi
 mode change 100644 => 100755 inc/ore_sub-base_mv.cgi
 mode change 100644 => 100755 inc/ore_sub-base_pc.cgi
 mode change 100644 => 100755 inc/ore_sub-battle.cgi
 mode change 100644 => 100755 inc/ore_sub-bbs.cgi
 mode change 100644 => 100755 inc/ore_sub-changes.cgi
 mode change 100644 => 100755 inc/ore_sub-infomation_mv.cgi
 mode change 100644 => 100755 inc/ore_sub-infomation_pc.cgi
 mode change 100644 => 100755 inc/ore_sub-main.cgi
 mode change 100644 => 100755 inc/ore_sub-main_reset.cgi
 mode change 100644 => 100755 inc/ore_sub-map-p1_pc.cgi
 mode change 100644 => 100755 inc/ore_sub-members-p1.cgi
 mode change 100644 => 100755 inc/ore_sub-mission.cgi
 mode change 100644 => 100755 inc/ore_sub-npc_1.cgi
 mode change 100644 => 100755 inc/ore_sub-npc_2.cgi
 mode change 100644 => 100755 inc/ore_sub-politics.cgi
 mode change 100644 => 100755 inc/ore_sub-shop-lotto.cgi
 mode change 100644 => 100755 inc/ore_sub-shop-medical.cgi
 mode change 100644 => 100755 inc/ore_sub-shop-p1_mv.cgi
 mode change 100644 => 100755 inc/ore_sub-shop-p1_pc.cgi
 mode change 100644 => 100755 inc/ore_sub-shop.cgi
 mode change 100644 => 100755 inc/ore_sub-subdue.cgi
 mode change 100644 => 100755 inc/ore_sub-subduetime.cgi
 mode change 100644 => 100755 inc/ore_sub-system.cgi
 mode change 100644 => 100755 inc/ore_sub-training_mv.cgi
 mode change 100644 => 100755 inc/ore_sub-training_pc.cgi
 mode change 100644 => 100755 inc/ore_sub-war.cgi
 mode change 100644 => 100755 inc/ore_sub-wartime.cgi
 mode change 100644 => 100755 index.cgi
 mode change 100644 => 100755 logdata/camp_log_1.cgi
 mode change 100644 => 100755 logdata/camp_log_2.cgi
 mode change 100644 => 100755 logdata/camp_log_3.cgi
 mode change 100644 => 100755 logdata/camp_log_4.cgi
 mode change 100644 => 100755 logdata/camp_log_5.cgi
 mode change 100644 => 100755 logdata/camp_mem_1.cgi
 mode change 100644 => 100755 logdata/camp_mem_2.cgi
 mode change 100644 => 100755 logdata/camp_mem_3.cgi
 mode change 100644 => 100755 logdata/camp_mem_4.cgi
 mode change 100644 => 100755 logdata/camp_mem_5.cgi
 mode change 100644 => 100755 logdata/cdata.cgi
 mode change 100644 => 100755 logdata/hist_log.cgi
 mode change 100644 => 100755 logdata/park_log.cgi
 mode change 100644 => 100755 logdata/park_mem.cgi
 mode change 100644 => 100755 logdata/public_log.cgi
 mode change 100644 => 100755 ore_.cgi
 mode change 100644 => 100755 ore_admin.cgi
 mode change 100644 => 100755 ore_config.cgi
 mode change 100644 => 100755 ore_reg.cgi
 mode change 100644 => 100755 park.cgi
 mode change 100644 => 100755 public.cgi

diff --git a/campbbs.cgi b/campbbs.cgi
old mode 100644
new mode 100755
index c40bb6c..1a2734a
--- a/campbbs.cgi
+++ b/campbbs.cgi
@@ -1,309 +1,304 @@
-#!/usr/local/bin/perl
-# ƒT[ƒo[‚̊‹«‚ɍ‡‚킹‚ĕύX‚µ‚ĉº‚³‚¢B
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-$ver = 'ìí‰ï‹cŽº v1.1';			# ƒo[ƒWƒ‡ƒ“î•ñ(•ÏX•s‰Â)
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#===============================================================================
-# Ý’荀–Ú
-
-#-------------------------------------------------------------------------------
-# ŠeŽíƒtƒ@ƒCƒ‹
-
-require './inc/ore_sub-bbs.cgi';		# ŠeŽíŒfŽŠ”‹€’ʂȐݒ荀–ړǂݍž‚Ý
-
-$script		= "./campbbs.cgi";			# ‚±‚̃XƒNƒŠƒvƒg‚̃pƒX
-
-$logfile	= "./logdata/camp_log_";	# ƒƒOƒtƒ@ƒCƒ‹‚̈ꕔ($logfile$camp.\cgi‚Æ‚È‚é)
-
-$memfile	= "./logdata/camp_mem_";	# ŽQ‰ÁŽÒƒtƒ@ƒCƒ‹‚̈ꕔ($memfile$camp.\cgi‚Æ‚È‚é)
-
-$lockkey	= 0;						# ƒtƒ@ƒCƒ‹ƒƒbƒN(0=no 1=yes)
-
-$lockfile = "./camp.lock";				# ƒƒbƒNƒtƒ@ƒCƒ‹–Œ
-
-#-------------------------------------------------------------------------------
-# ŠÂ‹«Ý’è
-
-$title		= "ìí‰ï‹cŽº";				# ƒ^ƒCƒgƒ‹–Œ
-
-$max		= 100;						# Å‘å•Û—L‹LŽ–”
-
-$reload_mn	= 5;						# Å’ZƒŠƒ[ƒhŠÔŠu(‚±‚Ì•b”ˆÈ“à‚É”­ŒŸ‚·‚é‚ƃGƒ‰[[•‰‰×‘΍ô])
-
-$reload_limit= 120;						# ‚±‚Ì•b””­ŒŸ‚ª‚È‚¢‚Æ‘ÞŽºˆµ‚¢‚É‚·‚é
-
-$com_limit	= 240;						# ƒRƒƒ“ƒg‚̍ő啶Žš”(”ŒŠpŠ·ŽZ)
-
-$tagkey		= 0;						# ƒ^ƒO‚Ì‹–‰Â (0=no 1=yes)
-
-$nolink		= 1;						# URLé“`”rœ (0=no 1=yes)
-
-# ‹@Ží•ÊÝ’è
-if($mv_mode eq 'mv'){
-
-	# ÓÊ޲ٗpÝ’è
-
-	$log_last= 15;						# •\ŽŠs”(ÓÊÞ²Ù)
-
-	# BODYƒ^ƒO‘•ü
-	$body	= 'bgcolor="black" text="white" link="pink" vlink="pink" alink="pink"';
-
-	$hr_color= 'white';					# Œrü‚̐F(ÓÊÞ²Ù)
-}else{
-
-	# PC—pÝ’è
-
-	@reload_time= (90,120,180);			# ƒŠƒ[ƒhŽžŠÔ
-
-	$log_last= 50;						# •\ŽŠs”(PC)
-
-	# BODYƒ^ƒO‘•ü
-	$body	= 'bgcolor="#111122" text="#ddddee" link="#ffddee" vlink="#ffddee" alink="#ffddee"';
-}
-
-#===============================================================================
-# ˆÈ‰ºˆ— Šî–{“I‚É‚±‚êˆÈ‰º‚Í‚¢‚¶‚ç‚È‚¢‚æ‚€‚ɁB
-
-#-------------------------------------------------------------------------------
-# ƒƒCƒ“ˆ—
-&axs_check;		# ƒAƒNƒZƒX§Œä
-&decode;		# ƒtƒH[ƒ€ƒfƒR[ƒh
-&mandata_open;	# ŽQ‰ÁŽÒƒƒO“ǂݍž‚Ý
-&get_time;		# “úŽžŽæ“Ÿ
-&error("–³Š‘®‚Ì•û‚Í‚²—˜—p‚É‚È‚ê‚Ü‚¹‚ñB<br>Œð—¬Lê‚ð‚²—˜—p‚­‚Ÿ‚³‚¢B") if(!$DAT{'camp'});
-&member;
-if($mode eq "regist" && $com){ &regist; }	# ‘‚«ž‚ݏˆ—
-&html;			# ƒy[ƒW•\ŽŠ
-
-#-------------------------------------------------------------------------------
-# ‹LŽ–•\ŽŠ•”
-sub html {
-	# •\ŽŠŠJŽn
-	&header;
-
-	if($mv_mode eq 'mv'){
-		print <<"EOM";
-$camp_info[$DAT{'camp'}][0]ê—p<br>$title
-<form name="park" method="$method" action="$script">
-<input type=hidden name=mode value="regist">
-<input type=hidden name=id value="$id">
-<input type=hidden name=pw value="$pw">
-<input type=text name=comment size=8>
-<input type=submit value="”­ŒŸ"><input type=reset value="žØ±">
-</form>
-<form name="ore_" method="$method" action="$ore_game">
-<input type=hidden name=id value="$id">
-<input type=hidden name=pw value="$pw">
-<input type=hidden name=cmd value="-1">
-<input type=submit value="–ß‚é">
-</form>
-EOM
-	}
-	else{
-
-		print <<"EOM";
-<table>
-<tr>
-<td width="220"><img src="./imgs/title_game.png" width="220" height="52"></td>
-<td valign="bottom" align="left">
-<b>$title</b><br>
-<small span style="color:$camp_info[$DAT{'camp'}][1]">` $camp_info[$DAT{'camp'}][0]‚̍ìí‰ï‹cŽº `</small>
-</td>
-</tr>
-<tr>
-<form name="park" method="$method" action="$script">
-<td colspan="2" nowrap>
-<input type="hidden" name="mode" value="regist">
-<input type="hidden" name="id" value="$id">
-<input type="hidden" name="pw" value="$pw">
-<input type="hidden" name="rd" value="$rd">
-<input type="text" name="comment" class="button1" style="width:300px">
-<input type="submit" value="”­ŒŸ^XV" class="button1" style="width:80px">
-<input type=reset value="ƒNƒŠƒA" class="button1" style="width:60px">
-</td>
-</form>
-</tr>
-<tr>
-<form method="$method" action="$script">
-<input type="hidden" name="mode" value="regist">
-<input type="hidden" name="id" value="$id">
-<input type="hidden" name="pw" value="$pw">
-<td align="left">
-<tt>XV:<select name="rd" size="1" class="button1" style="width:60px">
-EOM
-
-		print qq|<option value="$rd">$reload_time[$rd]•b</option>|;
-		foreach(0 .. $#reload_time){
-			print qq|<option value="$_">$reload_time[$_]•b</option>| if($rd!=$_);
-		}
-
-		print <<EOM;
-</select>@<input type="submit" value="•ÏX" class="button1" style="width:60px">
-</td>
-</form>
-<form name="ore_" method="$method" action="$ore_game">
-<td align="right">
-<input type=hidden name=id value="$id">
-<input type=hidden name=pw value="$pw">
-<input type=hidden name=cmd value="-1">
-<input type=submit value="–ß‚é" class="button1" style="width:80px">
-</td>
-</form>
-</tr>
-</table>
-EOM
-	}
-
-	# ŽQ‰ÁŽÒ•\ŽŠF$member
-	($mv_mode eq 'mv') ?
-		print qq|ŽQ‰ÁŽÒ($num)<hr color=\"$hr_color\">\n|:
-		print qq|<hr size="8" color="#666699"><span class=\"mem\"><br>ŽQ‰ÁŽÒ($num)F$member</span><hr  color="#c0c0c0" size="4">\n|;
-
-	# ƒƒO‚ð“WŠJ
-	open(IN,"$logfile$DAT{'camp'}\.cgi") || &error("Open Error : $logfile$DAT{'camp'}\.cgi");
-	local $log_last_flag=0;
-	while (<IN>) {
-		$log_last_flag++;
-		local($date,$nm,$camp,$com,$sogo,$addr,$host) = split(/<>/);
-		$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);
-		($mv_mode eq 'mv') ? $com =~ s/ƒnƒ@ƒg/<font color="pink">\&\#63726<\/font>/g : $com =~ s/ƒnƒ@ƒg/<span class="f1">©<\/span>/g ;
-
-		($mv_mode eq 'mv') ?
-			print qq|$nm:$com [$camp_info[$camp][0] $date]<br>\n|:
-			print qq|<span style="color:$camp_info[$camp][1]">$nm F $com </span><span class="date">[ $camp_info[$camp][0] $date ]</span><hr>\n|;
-		last if $log_last_flag > $log_last;
-	}
-	close(IN);
-
-	# ’˜ìŒ •\ŽŠiíœ‹ÖŽ~j
-	print "<hr>\n";
-	&copyright;
-	exit;
-}
-
-#-------------------------------------------------------------------------------
-# ƒƒO‘‚«ž‚ݏˆ—
-sub regist {
-
-	# ƒtƒ@ƒCƒ‹ƒƒbƒN
-	if ($lockkey) { &lock; }
-
-	# ƒƒO‚ð“ǂݍž‚Ý
-	open(IN,"$logfile$DAT{'camp'}\.cgi") || &error("Open Error : $logfile$DAT{'camp'}\.cgi");
-	@lines = <IN>;
-	close(IN);
-
-	# Å‘å‹LŽ–”ˆ—
-	while ($max <= @lines) { pop(@lines); }
-
-	# ƒƒOXVˆ—
-	unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>\n");
-	open(OUT,">$logfile$DAT{'camp'}\.cgi") || &error("Write Error : $logfile$DAT{'camp'}\.cgi");
-	print OUT @lines;
-	close(OUT);
-
-	# ƒƒbƒN‰ðœ
-	if (-e $lockfile) { unlink($lockfile); }
-}
-
-#-------------------------------------------------------------------------------
-# ÝŽºŽÒˆ—
-sub member {
-	open(IN,"$memfile$DAT{'camp'}\.cgi") || &error("Open Error : $memfile$DAT{'camp'}\.cgi");
-	@data = <IN>;
-	close(IN);
-
-	$member="";
-	@new=();
-	$flag=0;
-	$flag2=0;
-	foreach (@data) {
-		($time2,$name2,$host2) = split(/<>/);
-
-		# ”­ŒŸ‚Ì‚È‚¢ŽÒ‚͍폜
-		if ($time-$reload_limit > $time2) { next; }
-		elsif ($host2 eq "$addr") {
-
-			# ”­ŒŸ/XVŠÔŠu
-#			&error("$reload_mn•bˆÈãŠÔŠu‚ð‹ó‚¯‚Ä”­ŒŸ‚µ‚Ä‚­‚Ÿ‚³‚¢B") if($reload_mn+$time2>$time);
-			if($reload_mn+$time2>$time){
-				print "Status: 204\n\n";
-				exit;
-			}
-
-			# ‘ÞŽºŽÒ‚͍폜
-			if ($_[0] eq 'bye') { next; }
-
-			# ƒzƒXƒg–Œ‚ª“¯ˆê‚Å‚ ‚ê‚ÎŽžŠÔ‚Æ–Œ‘O‚ðXV
-			$_ = "$time<>$DAT{'nm'}<>$addr<>\n";
-			$name2 = $DAT{'nm'};
-			$flag=1;
-		}
-		# XV—p”z—ñ @new ‚ɒljÁ
-		if ($name2 ne "$host2") {
-			push(@new,$_);
-
-			# ŽQ‰ÁŽÒ•\ŽŠ—p•¶Žš—ñ‚ðì¬
-			if(!$flag2){$member .="$name2ž";$flag2=1;}
-			else{$member .="$name2Ÿ";$flag2=0;}
-		}
-	}
-	# V‹KŽQ‰ÁŽÒ‚ð’ljÁ
-	if (!$flag && $mv_mode eq 'pc') {
-		if ($DAT{'nm'} ne "$host") {
-			push(@new,"$time<>$DAT{'nm'}<>$addr<>\n");
-			$member .= (!$flag2) ? "$DAT{'nm'} [IN]ž" : "$DAT{'nm'} [IN]Ÿ";
-		}
-	}
-	# ŽQ‰ÁŽÒ”‚ð”FŽ¯
-	$num = @new;
-
-	# ƒtƒ@ƒCƒ‹XV
-	open(OUT,">$memfile$DAT{'camp'}\.cgi") || &error("Write Error : $memfile$DAT{'camp'}\.cgi");
-	eval "flock(OUT,2);";
-	truncate(OUT,0);
-	seek(OUT,0,0);
-	print OUT @new;
-	close(OUT);
-}
-
-#-------------------------------------------------------------------------------
-# HTML‚̃wƒbƒ_[
-sub header {
-	print "Content-type: text/html\n\n";
-	print <<"EOM";
-<html>
-<head>
-<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
-<title>$title</title>
-EOM
-	if($mv_mode eq 'pc' && $DAT{'camp'}){
-		print <<"EOM";
-<META HTTP-EQUIV="refresh" CONTENT="$reload_time[$rd];URL=$script?id=$id&pw=$pw&rd=$rd">
-$css
-<script language="JavaScript">
-<!--
-function textfocus(){
-	document.park.comment.focus();
-	return true;
-}
-//-->
-</script>
-EOM
-	}
-	(!$_[0] && $mv_mode eq 'pc') ? print qq|</head>\n<body $body onLoad="return textfocus()">| : print "</head>\n<body $body>" ;
-}
-
-
-
-
-
+#!/usr/bin/perl
+# サヌバヌの環境に合わせお倉曎しお䞋さい。
+#-----------------------------------------------------------#
+#  眪ず眰++ 二埋背反										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+$ver = '䜜戊䌚議宀 v1.1';			# バヌゞョン情報(倉曎䞍可)
+#--- [泚意事項] --------------------------------------------#
+# 1.このスクリプトは以䞋の利甚芏皋に埓っお配垃しおいたす。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#===============================================================================
+# 蚭定項目
+
+#-------------------------------------------------------------------------------
+# 各皮ファむル
+
+require './inc/ore_sub-bbs.cgi';		# 各皮掲瀺板共通な蚭定項目読み蟌み
+
+$script		= "./campbbs.cgi";			# このスクリプトのパス
+
+$logfile	= "./logdata/camp_log_";	# ログファむルの䞀郚($logfile$camp.\cgiずなる)
+
+$memfile	= "./logdata/camp_mem_";	# 参加者ファむルの䞀郚($memfile$camp.\cgiずなる)
+
+$lockkey	= 0;						# ファむルロック(0=no 1=yes)
+
+$lockfile = "./camp.lock";				# ロックファむル名
+
+#-------------------------------------------------------------------------------
+# 環境蚭定
+
+$title		= "작전회의싀";				# タむトル名
+
+$max		= 100;						# 最倧保有蚘事数
+
+$reload_mn	= 5;						# 最短リロヌド間隔(この秒数以内に発蚀するず゚ラヌ[負荷察策])
+
+$reload_limit= 120;						# この秒数発蚀がないず退宀扱いにする
+
+$com_limit	= 240;						# コメントの最倧文字数(半角換算)
+
+$tagkey		= 0;						# タグの蚱可 (0=no 1=yes)
+
+$nolink		= 1;						# URL宣䌝排陀 (0=no 1=yes)
+
+# 機皮別蚭定
+if($mv_mode eq 'mv'){
+
+	# 甚蚭定
+
+	$log_last= 15;						# 衚瀺行数()
+
+	# BODYタグ装食
+	$body	= 'bgcolor="black" text="white" link="pink" vlink="pink" alink="pink"';
+
+	$hr_color= 'white';					# 眫線の色()
+}else{
+
+	# PC甚蚭定
+
+	@reload_time= (90,120,180);			# リロヌド時間
+
+	$log_last= 50;						# 衚瀺行数(PC)
+
+	# BODYタグ装食
+	$body	= 'bgcolor="#111122" text="#ddddee" link="#ffddee" vlink="#ffddee" alink="#ffddee"';
+}
+
+#===============================================================================
+# 以䞋凊理 基本的にこれ以䞋はいじらないように。
+
+#-------------------------------------------------------------------------------
+# メむン凊理
+&axs_check;		# アクセス制埡
+&decode;		# フォヌムデコヌド
+&mandata_open;	# 参加者ログ読み蟌み
+&get_time;		# 日時取埗
+&error("묎소속읎신 분은 읎용하싀 수 없습니닀.<br>교류 ꎑ장을 읎용핎 죌섞요.") if(!$DAT{'camp'});
+&member;
+if($mode eq "regist" && $com){ &regist; }	# 曞き蟌み凊理
+&html;			# ペヌゞ衚瀺
+
+#-------------------------------------------------------------------------------
+# 蚘事衚瀺郚
+sub html {
+	# 衚瀺開始
+	&header;
+
+	if($mv_mode eq 'mv'){
+		print <<"EOM";
+$camp_info[$DAT{'camp'}][0]전용<br>$title
+<form name="park" method="$method" action="$script">
+<input type=hidden name=mode value="regist">
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw">
+<input type=text name=comment size=8>
+<input type=submit value="말하Ʞ"><input type=reset value="쎈Ʞ화">
+</form>
+<form name="ore_" method="$method" action="$ore_game">
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw">
+<input type=hidden name=cmd value="-1">
+<input type=submit value="돌아가Ʞ">
+</form>
+EOM
+	}
+	else{
+
+		print <<"EOM";
+<table>
+<tr>
+<td width="220"><img src="./imgs/title_game.png" width="220" height="52"></td>
+<td valign="bottom" align="left">
+<b>$title</b><br>
+<small span style="color:$camp_info[$DAT{'camp'}][1]"> $camp_info[$DAT{'camp'}][0]의 작전회의싀 </small>
+</td>
+</tr>
+<tr>
+<form name="park" method="$method" action="$script">
+<td colspan="2" nowrap>
+<input type="hidden" name="mode" value="regist">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="hidden" name="rd" value="$rd">
+<input type="text" name="comment" class="button1" style="width:300px">
+<input type="submit" value="말하Ʞ/갱신" class="button1" style="width:80px">
+<input type=reset value="쎈Ʞ화" class="button1" style="width:60px">
+</td>
+</form>
+</tr>
+<tr>
+<form method="$method" action="$script">
+<input type="hidden" name="mode" value="regist">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<td align="left">
+<tt>갱신:<select name="rd" size="1" class="button1" style="width:60px">
+EOM
+
+		print qq|<option value="$rd">$reload_time[$rd]쎈</option>|;
+		foreach(0 .. $#reload_time){
+			print qq|<option value="$_">$reload_time[$_]쎈</option>| if($rd!=$_);
+		}
+
+		print <<EOM;
+</select>　<input type="submit" value="변겜" class="button1" style="width:60px">
+</td>
+</form>
+<form name="ore_" method="$method" action="$ore_game">
+<td align="right">
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw">
+<input type=hidden name=cmd value="-1">
+<input type=submit value="돌아가Ʞ" class="button1" style="width:80px">
+</td>
+</form>
+</tr>
+</table>
+EOM
+	}
+
+	# 参加者衚瀺$member
+	($mv_mode eq 'mv') ?
+		print qq|찞가자($num)<hr color=\"$hr_color\">\n|:
+		print qq|<hr size="8" color="#666699"><span class=\"mem\"><br>찞가자($num)$member</span><hr  color="#c0c0c0" size="4">\n|;
+
+	# ログを展開
+	open(IN,"$logfile$DAT{'camp'}\.cgi") || &error("Open Error : $logfile$DAT{'camp'}\.cgi");
+	local $log_last_flag=0;
+	while (<IN>) {
+		$log_last_flag++;
+		local($date,$nm,$camp,$com,$sogo,$addr,$host) = split(/<>/);
+		$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);
+		($mv_mode eq 'mv') ? $com =~ s/하튾/<font color="pink">\&\#63726<\/font>/g : $com =~ s/하튾/<span class="f1"><\/span>/g ;
+
+		($mv_mode eq 'mv') ?
+			print qq|$nm:$com [$camp_info[$camp][0] $date]<br>\n|:
+			print qq|<span style="color:$camp_info[$camp][1]">$nm  $com </span><span class="date">[ $camp_info[$camp][0] $date ]</span><hr>\n|;
+		last if $log_last_flag > $log_last;
+	}
+	close(IN);
+
+	# 著䜜暩衚瀺削陀犁止
+	print "<hr>\n";
+	&copyright;
+	exit;
+}
+
+#-------------------------------------------------------------------------------
+# ログ曞き蟌み凊理
+sub regist {
+
+	# ファむルロック
+	if ($lockkey) { &lock; }
+
+	# ログを読み蟌み
+	open(IN,"$logfile$DAT{'camp'}\.cgi") || &error("Open Error : $logfile$DAT{'camp'}\.cgi");
+	@lines = <IN>;
+	close(IN);
+
+	# 最倧蚘事数凊理
+	while ($max <= @lines) { pop(@lines); }
+
+	# ログ曎新凊理
+	unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>\n");
+	open(OUT,">$logfile$DAT{'camp'}\.cgi") || &error("Write Error : $logfile$DAT{'camp'}\.cgi");
+	print OUT @lines;
+	close(OUT);
+
+	# ロック解陀
+	if (-e $lockfile) { unlink($lockfile); }
+}
+
+#-------------------------------------------------------------------------------
+# 圚宀者凊理
+sub member {
+	open(IN,"$memfile$DAT{'camp'}\.cgi") || &error("Open Error : $memfile$DAT{'camp'}\.cgi");
+	@data = <IN>;
+	close(IN);
+
+	$member="";
+	@new=();
+	$flag=0;
+	$flag2=0;
+	foreach (@data) {
+		($time2,$name2,$host2) = split(/<>/);
+
+		# 発蚀のない者は削陀
+		if ($time-$reload_limit > $time2) { next; }
+		elsif ($host2 eq "$addr") {
+
+			# 発蚀/曎新間隔
+#			&error("$reload_mn쎈 읎상 간격을 두고 말핮 죌섞요.") if($reload_mn+$time2>$time);
+			if($reload_mn+$time2>$time){
+				print "Status: 204\n\n";
+				exit;
+			}
+
+			# 退宀者は削陀
+			if ($_[0] eq 'bye') { next; }
+
+			# ホスト名が同䞀であれば時間ず名前を曎新
+			$_ = "$time<>$DAT{'nm'}<>$addr<>\n";
+			$name2 = $DAT{'nm'};
+			$flag=1;
+		}
+		# 曎新甚配列 @new に远加
+		if ($name2 ne "$host2") {
+			push(@new,$_);
+
+			# 参加者衚瀺甚文字列を䜜成
+			if(!$flag2){$member .="$name2◇";$flag2=1;}
+			else{$member .="$name2◆";$flag2=0;}
+		}
+	}
+	# 新芏参加者を远加
+	if (!$flag && $mv_mode eq 'pc') {
+		if ($DAT{'nm'} ne "$host") {
+			push(@new,"$time<>$DAT{'nm'}<>$addr<>\n");
+			$member .= (!$flag2) ? "$DAT{'nm'} [IN]◇" : "$DAT{'nm'} [IN]◆";
+		}
+	}
+	# 参加者数を認識
+	$num = @new;
+
+	# ファむル曎新
+	open(OUT,">$memfile$DAT{'camp'}\.cgi") || &error("Write Error : $memfile$DAT{'camp'}\.cgi");
+	eval "flock(OUT,2);";
+	truncate(OUT,0);
+	seek(OUT,0,0);
+	print OUT @new;
+	close(OUT);
+}
+
+#-------------------------------------------------------------------------------
+# HTMLのヘッダヌ
+sub header {
+	print "Content-type: text/html\n\n";
+	print <<"EOM";
+<html>
+<head>
+<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=UTF-8">
+<title>$title</title>
+EOM
+	if($mv_mode eq 'pc' && $DAT{'camp'}){
+		print <<"EOM";
+<META HTTP-EQUIV="refresh" CONTENT="$reload_time[$rd];URL=$script?id=$id&pw=$pw&rd=$rd">
+$css
+<script language="JavaScript">
+<!--
+function textfocus(){
+	document.park.comment.focus();
+	return true;
+}
+//-->
+</script>
+EOM
+	}
+	(!$_[0] && $mv_mode eq 'pc') ? print qq|</head>\n<body $body onLoad="return textfocus()">| : print "</head>\n<body $body>" ;
+}
diff --git a/hist.cgi b/hist.cgi
old mode 100644
new mode 100755
index f4c670c..de912ab
--- a/hist.cgi
+++ b/hist.cgi
@@ -1,217 +1,216 @@
-#!/usr/local/bin/perl
-# ƒT[ƒo[‚̊‹«‚ɍ‡‚킹‚ĕύX‚µ‚ĉº‚³‚¢B
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-$ver = '‰ß‹Ž‚̉hŒõ v1.0';			# ƒo[ƒWƒ‡ƒ“î•ñ(•ÏX•s‰Â)
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#===============================================================================
-# Ý’荀–Ú
-
-#-------------------------------------------------------------------------------
-# ŠeŽíƒtƒ@ƒCƒ‹
-
-require './inc/ore_sub-bbs.cgi';		# ŠeŽíŒfŽŠ”‹€’ʂȐݒ荀–ړǂݍž‚Ý
-
-$script		= "./hist.cgi";				# ‚±‚̃XƒNƒŠƒvƒg‚̃pƒX
-
-$logfile	= "./logdata/hist_log.cgi";	# ƒƒOƒtƒ@ƒCƒ‹‚̃pƒX
-
-#-------------------------------------------------------------------------------
-# ŠÂ‹«Ý’è
-
-$title		= "‰ß‹Ž‚̉hŒõ";				# ƒ^ƒCƒgƒ‹–Œ
-
-$maxlog		= 60;						# Å‘å‹L˜^s”
-
-# ‹@Ží•ÊÝ’è
-if($mv_mode eq 'mv'){
-
-	# ÓÊ޲ٗpÝ’è
-
-	$log_last= 15;						# •\ŽŠs”(ÓÊÞ²Ù)
-
-	# BODYƒ^ƒO‘•ü
-	$body	= 'bgcolor="black" text="white" link="pink" vlink="pink" alink="pink"';
-
-	$hr_color= 'white';					# Œrü‚̐F(ÓÊÞ²Ù)
-}else{
-
-	# PC—pÝ’è
-
-	$log_last= 50;						# •\ŽŠs”(PC)
-
-	# BODYƒ^ƒO‘•ü
-	$body	= 'bgcolor="#111122" text="#ddddee" link="#ffddee" vlink="#ffddee" alink="#ffddee" style="font-size:14px"';
-}
-
-#===============================================================================
-# ˆÈ‰ºˆ— Šî–{“I‚É‚±‚êˆÈ‰º‚Í‚¢‚¶‚ç‚È‚¢‚æ‚€‚ɁB
-
-#-------------------------------------------------------------------------------
-# ƒƒCƒ“ˆ—
-&axs_check;
-&decode_hist;
-$ore_game_ =($mode eq 'guest') ? $index : $ore_game ;
-&html;
-
-#-------------------------------------------------------------------------------
-# ‹LŽ–•\ŽŠ•”
-sub html {
-	# •\ŽŠŠJŽn
-	&header;
-
-	if($mv_mode eq 'mv'){
-		print <<"EOM";
-<b>$title</b>
-<form name="ore_" method="$method" action="$ore_game_">
-<input type=hidden name=id value="$id">
-<input type=hidden name=pw value="$pw">
-<input type=hidden name=cmd value="-1">
-<input type=submit value="–ß‚é">
-</form>
-EOM
-	}
-	else{
-
-		print <<"EOM";
-<table>
-<tr>
-<td width="220"><img src="./imgs/title_game.png" width="220" height="52"></td>
-<td valign="bottom" align="left">
-<b>$title</b><br>
-<small>` —I‹v‚Ì‘å’n‚Ì•à‚Ý `</small>
-</td>
-</tr>
-<form name="ore_" method="$method" action="$ore_game_">
-<tr>
-<td align="right" colspan="2">
-<input type=hidden name=id value="$id">
-<input type=hidden name=pw value="$pw">
-<input type=hidden name=cmd value="-1">
-<input type=submit value="–ß‚é" class="button1" style="width:80px">
-</td>
-</tr>
-</form>
-</table>
-EOM
-	}
-
-	($mv_mode eq 'mv') ?
-		print qq|<hr color=\"$hr_color\">\n|:
-		print qq|<hr size="8" color="#666699">\n|;
-
-	# ƒƒO“ǂݍž‚Ý
-	open(IN,"$logfile") || &error("Open Error : $logfile");
-	my @lines = <IN>;
-	close(IN);
-
-	# s”’²®
-	if($#lines > $maxlog){
-		foreach(0 .. $#lines-$maxlog){ shift(@lines); }
-	}
-	open (OUT,">$logfile") || &error("open error:$logfile");
-	print OUT @lines;
-	close(OUT)		or die "Can't close   : $!";
-
-	# ‹LŽ–“WŠJ
-	@lines = reverse(@lines);
-	foreach(0 .. $log_last){
-
-		last	if(!$lines[$_]);
-		my @y1	= split(/,/,$lines[$_]);
-		$y1[43]	=~ s/wr_mes;//g;
-
-		if($mv_mode eq 'pc'){
-			foreach(1 .. $#camp_info){
-				$y1[43] =~ s/$camp_info[$_][0]/<span style="color:$camp_info[$_][1]">$camp_info[$_][0]<\/span>/g;
-			}
-		}
-		print "<li>$y1[43]<hr>\n";
-	}
-
-	# ’˜ìŒ •\ŽŠiíœ‹ÖŽ~j
-	print "<hr>\n";
-	&copyright;
-	exit;
-}
-
-#-------------------------------------------------------------------------------
-# ƒfƒR[ƒhˆ—
-sub decode_hist {
-	local($buffer, @pairs, $name, $value);
-	$post_flag=0;
-	if($ENV{'REQUEST_METHOD'} eq "POST"){
-		$post_flag=1;
-		&error("“Še—Ê‚ª‘å‚«‚·‚¬‚Ü‚·") if($ENV{'CONTENT_LENGTH'}>8192);
-		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
-	}else{
-		$buffer = $ENV{'QUERY_STRING'};
-		&error("“Še—Ê‚ª‘å‚«‚·‚¬‚Ü‚·") if(length($buffer)>7500)
-	}
-	@pairs = split(/&/, $buffer);
-	foreach (@pairs) {
-		($name,$value) = split(/=/);
-		$value =~ tr/+/ /;
-		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-
-		# r‚炵ˆ— 1
-		$value =~ s/(<br>){4,}//g;
-		$value =~ s/( |@){6,}//g;
-
-		$value =~ s/\r//g;
-		$value =~ s/\n//g;
-
-		# ‹L†’uŠ·‚Š 1
-		$value =~ s/\s/&nbsp;/g;
-		$value =~ s/</&lt;/g;
-		$value =~ s/>/&gt;/g;
-		$value =~ s/\"/&quot;/g;
-		# ‹L†’uŠ·‚Š 2
-		$value =~ s/\?/&#63\;/g;
-		$value =~ s/,/&#44\;/g;
-		$value =~ s/'/&#39\;/g;
-		$value =~ s/`/&#96\;/g;
-		$value =~ s/\;/&#59\;/g;
-		$value =~ s/\\/&#92\;/g;
-		$value =~ s/\|/&#124\;/g;
-		$value =~ s/\//&#47\;/g;
-		$value =~ s/\./&#46\;/g;
-
-		# •¶ŽšƒR[ƒh‚ðƒVƒtƒgJIS•ÏŠ·
-		&jcode'convert(*value, "sjis", "", "z");
-
-		$in{$name} = $value;
-	}
-
-	$pw		= $in{'pw'};		if(length($in{'pw'})>8)		{ &error("•¶Žš”ƒGƒ‰[‚Å‚·3"); }
-	$id		= $in{'id'};		if(length($in{'id'})>24)	{ &error("•¶Žš”ƒGƒ‰[‚Å‚·4"); }
-
-	if ($base_url) {
-		$ref_url = $ENV{'HTTP_REFERER'};
-		$ref_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-		if ($ref_url !~ /$base_url/i) { &error("•s³‚ȃAƒNƒZƒX‚Å‚·"); }
-	}
-}
-
-#-------------------------------------------------------------------------------
-# HTML‚̃wƒbƒ_[
-sub header {
-	print "Content-type: text/html\n\n";
-	print <<"EOM";
-<html>
-<head>
-<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
-<title>$title</title>
-EOM
-	print "$css" if($mv_mode eq 'pc');
-	print "</head>\n<body $body>\n";
-}
-
+#!/usr/bin/perl
+# サヌバヌの環境に合わせお倉曎しお䞋さい。
+#-----------------------------------------------------------#
+#  眪ず眰++ 二埋背反										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+$ver = '過去の栄光 v1.0';			# バヌゞョン情報(倉曎䞍可)
+#--- [泚意事項] --------------------------------------------#
+# 1.このスクリプトは以䞋の利甚芏皋に埓っお配垃しおいたす。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#===============================================================================
+# 蚭定項目
+
+#-------------------------------------------------------------------------------
+# 各皮ファむル
+
+require './inc/ore_sub-bbs.cgi';		# 各皮掲瀺板共通な蚭定項目読み蟌み
+
+$script		= "./hist.cgi";				# このスクリプトのパス
+
+$logfile	= "./logdata/hist_log.cgi";	# ログファむルのパス
+
+#-------------------------------------------------------------------------------
+# 環境蚭定
+
+$title		= "곌거의 영ꎑ";				# タむトル名
+
+$maxlog		= 60;						# 最倧蚘録行数
+
+# 機皮別蚭定
+if($mv_mode eq 'mv'){
+
+	# 甚蚭定
+
+	$log_last= 15;						# 衚瀺行数()
+
+	# BODYタグ装食
+	$body	= 'bgcolor="black" text="white" link="pink" vlink="pink" alink="pink"';
+
+	$hr_color= 'white';					# 眫線の色()
+}else{
+
+	# PC甚蚭定
+
+	$log_last= 50;						# 衚瀺行数(PC)
+
+	# BODYタグ装食
+	$body	= 'bgcolor="#111122" text="#ddddee" link="#ffddee" vlink="#ffddee" alink="#ffddee" style="font-size:14px"';
+}
+
+#===============================================================================
+# 以䞋凊理 基本的にこれ以䞋はいじらないように。
+
+#-------------------------------------------------------------------------------
+# メむン凊理
+&axs_check;
+&decode_hist;
+$ore_game_ =($mode eq 'guest') ? $index : $ore_game ;
+&html;
+
+#-------------------------------------------------------------------------------
+# 蚘事衚瀺郚
+sub html {
+	# 衚瀺開始
+	&header;
+
+	if($mv_mode eq 'mv'){
+		print <<"EOM";
+<b>$title</b>
+<form name="ore_" method="$method" action="$ore_game_">
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw">
+<input type=hidden name=cmd value="-1">
+<input type=submit value="돌아가Ʞ">
+</form>
+EOM
+	}
+	else{
+
+		print <<"EOM";
+<table>
+<tr>
+<td width="220"><img src="./imgs/title_game.png" width="220" height="52"></td>
+<td valign="bottom" align="left">
+<b>$title</b><br>
+<small>~ 유구한 대지의 발자췚 ~</small>
+</td>
+</tr>
+<form name="ore_" method="$method" action="$ore_game_">
+<tr>
+<td align="right" colspan="2">
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw">
+<input type=hidden name=cmd value="-1">
+<input type=submit value="돌아가Ʞ" class="button1" style="width:80px">
+</td>
+</tr>
+</form>
+</table>
+EOM
+	}
+
+	($mv_mode eq 'mv') ?
+		print qq|<hr color=\"$hr_color\">\n|:
+		print qq|<hr size="8" color="#666699">\n|;
+
+	# ログ読み蟌み
+	open(IN,"$logfile") || &error("Open Error : $logfile");
+	my @lines = <IN>;
+	close(IN);
+
+	# 行数調敎
+	if($#lines > $maxlog){
+		foreach(0 .. $#lines-$maxlog){ shift(@lines); }
+	}
+	open (OUT,">$logfile") || &error("open error:$logfile");
+	print OUT @lines;
+	close(OUT)		or die "Can't close   : $!";
+
+	# 蚘事展開
+	@lines = reverse(@lines);
+	foreach(0 .. $log_last){
+
+		last	if(!$lines[$_]);
+		my @y1	= split(/,/,$lines[$_]);
+		$y1[43]	=~ s/wr_mes;//g;
+
+		if($mv_mode eq 'pc'){
+			foreach(1 .. $#camp_info){
+				$y1[43] =~ s/$camp_info[$_][0]/<span style="color:$camp_info[$_][1]">$camp_info[$_][0]<\/span>/g;
+			}
+		}
+		print "<li>$y1[43]<hr>\n";
+	}
+
+	# 著䜜暩衚瀺削陀犁止
+	print "<hr>\n";
+	&copyright;
+	exit;
+}
+
+#-------------------------------------------------------------------------------
+# デコヌド凊理
+sub decode_hist {
+	local($buffer, @pairs, $name, $value);
+	$post_flag=0;
+	if($ENV{'REQUEST_METHOD'} eq "POST"){
+		$post_flag=1;
+		&error("전송량읎 너묎 많습니닀") if($ENV{'CONTENT_LENGTH'}>8192);
+		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
+	}else{
+		$buffer = $ENV{'QUERY_STRING'};
+		&error("전송량읎 너묎 많습니닀") if(length($buffer)>7500)
+	}
+	@pairs = split(/&/, $buffer);
+	foreach (@pairs) {
+		($name,$value) = split(/=/);
+		$value =~ tr/+/ /;
+		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+
+		# 荒らし凊理 1
+		$value =~ s/(<br>){4,}//g;
+		$value =~ s/( |　){6,}//g;
+
+		$value =~ s/\r//g;
+		$value =~ s/\n//g;
+
+		# 蚘号眮換え 1
+		$value =~ s/\s/&nbsp;/g;
+		$value =~ s/</&lt;/g;
+		$value =~ s/>/&gt;/g;
+		$value =~ s/\"/&quot;/g;
+		# 蚘号眮換え 2
+		$value =~ s/\?/&#63\;/g;
+		$value =~ s/,/&#44\;/g;
+		$value =~ s/'/&#39\;/g;
+		$value =~ s/`/&#96\;/g;
+		$value =~ s/\;/&#59\;/g;
+		$value =~ s/\\/&#92\;/g;
+		$value =~ s/\|/&#124\;/g;
+		$value =~ s/\//&#47\;/g;
+		$value =~ s/\./&#46\;/g;
+
+		# 文字コヌドをシフトJIS倉換
+		# &jcode'convert(*value, "sjis", "", "z");
+
+		$in{$name} = $value;
+	}
+
+	$pw		= $in{'pw'};		if(length($in{'pw'})>8)		{ &error("Ꞁ자 수 였류입니닀 3"); }
+	$id		= $in{'id'};		if(length($in{'id'})>24)	{ &error("Ꞁ자 수 였류입니닀 4"); }
+
+	if ($base_url) {
+		$ref_url = $ENV{'HTTP_REFERER'};
+		$ref_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+		if ($ref_url !~ /$base_url/i) { &error("올바륎지 않은 접귌입니닀"); }
+	}
+}
+
+#-------------------------------------------------------------------------------
+# HTMLのヘッダヌ
+sub header {
+	print "Content-type: text/html\n\n";
+	print <<"EOM";
+<html>
+<head>
+<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=UTF-8">
+<title>$title</title>
+EOM
+	print "$css" if($mv_mode eq 'pc');
+	print "</head>\n<body $body>\n";
+}
diff --git a/html/Help.html b/html/Help.html
index 86763f1..444b115 100644
--- a/html/Help.html
+++ b/html/Help.html
@@ -1,302 +1,302 @@
-<html>
-<head>
-<title>ß‚Æ”±++@Žæ‚舵‚¢à–Ÿ‘</title>
-<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
-</head>
-<!-- (C)2001 Vivid Studio. + BLANK BOARD  -->
-<body bgcolor="#000000" text="#eeeeee" link="#ccccff" vlink="#ccccff" alink="#ccccff">
-<basefont size="2">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="5"><b>ß‚Æ”±<sup>++</sup>@Žæ‚舵‚¢à–Ÿ‘</b></font>
-<br>@<br>
-<br>@<br>
-- <a href="#1">ƒXƒg[ƒŠ[</a> -
-<a href="#2">–Ú“I</a> -
-<a href="#3">ƒXƒe[ƒ^ƒXà–Ÿ</a> -
-<a href="#4">ƒRƒ}ƒ“ƒhà–Ÿ</a> -<br>
-- <a href="#5">ƒƒjƒ…[à–Ÿ</a> -
-<a href="./st.html">“ÁŽê‹Z¥ŠK‹‰‹Z</a> -
-<a href="#6">ƒAƒhƒoƒCƒX(ŽQl)</a> -
-<br>@<br>
-- <a href="../index.cgi">ƒ^ƒCƒgƒ‹‚Ö–ß‚é</a> -
-<br>@<br>
-<tt><br>@<br></tt><table width=440 cellspacing=1 cellpadding=0 height=360 bordercolor=#000000>
-<tr>
-<td width=55 height=45>@</td><td width=55>@</td><td width=55 bgcolor=#ffccff>@</td><td width=55>@</td><td width=55>@</td><td width=55>@</td><td width=55 bgcolor=#55BBFF>@</td><td width=55>@</td>
-</tr><tr>
-<td height=45>@</td><td bgcolor=#ffccff>@</td><td bgcolor=#ffccff>@</td><td bgcolor=#EE9999>@</td><td bgcolor=#EE9999>@</td><td>@</td>
-<td bgcolor=#55BBFF><b style="font-size:9pt;color:#222222">ÔÏĐ_‘</b></td>
-<td bgcolor=#55BBFF>@</td>
-</tr><tr>
-<td bgcolor=#ffccff height=45>@</td><td bgcolor=#ffccff>@</td>
-<td bgcolor=#ffccff><b style="font-size:9pt;color:#222222">¿°ÃÞšÅ<br>’鍑</b></td>
-<td bgcolor=#ffccff>@</td><td bgcolor=#EE9999>@</td><td>@</td><td bgcolor=#55BBFF>@</td><td bgcolor=#55BBFF>@</td>
-</tr><tr>
-<td height=45>@</td><td bgcolor=#ffccff>@</td><td bgcolor=#ffccff>@</td><td bgcolor=#EE9999>@</td><td bgcolor=#EE9999><b style="font-size:9pt;color:#222222">±ÙÒر<br>‰€‘</b></td>
-<td bgcolor=#EE9999>@</td><td>@</td><td bgcolor=#55BBFF>@</td>
-</tr><tr>
-<td bgcolor=#00EEEE height=45>@</td><td bgcolor=#00EEEE>@</td><td bgcolor=#ffccff>@</td>
-<td bgcolor=#ffccff><small style="color:#222222">‰i‰“‚̏Ø<br>Õ’n</small></td>
-<td bgcolor=#EE9999>@</td><td bgcolor=#EE9999>@</td><td>@</td><td>@</td>
-</tr><tr>
-<td height=45>@</td><td bgcolor=#00EEEE>@</td>
-<td bgcolor=#00EEEE><b style="font-size:9pt;color:#222222">Ì×ØÝ<br>‹³‘</b></td>
-<td bgcolor=#00EEEE>@</td><td bgcolor=#88EE88>@</td><td bgcolor=#88EE88>@</td><td bgcolor=#88EE88>@</td><td>@</td>
-</tr><tr>
-<td height=45>@</td><td>@</td><td bgcolor=#00EEEE>@</td><td bgcolor=#88EE88>@</td>
-<td bgcolor=#88EE88><b style="font-size:9pt;color:#222222">²·Þœ<br>˜A‡‘</b></td>
-<td bgcolor=#88EE88>@</td><td>@</td><td>@</td>
-</tr><tr>
-<td height=45>@</td><td>@</td><td>@</td><td>@</td><td bgcolor=#88EE88>@</td><td>@</td><td>@</td><td>@</td>
-</tr></table><tt><br><b style="font-size:11pt">ŽÙÀƱ Ü°ÙÄÞϯÌß</b><br></tt>
-<br>@<br>
-<hr align="center" size="1">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a name="#1">¡ ƒXƒg[ƒŠ[</a></font></b></font>
-<br>@<br>
-Šôç”N‚àÌ€‚±‚Ì’n‚Í鳖£é±é²‚╉‚Ì‹Æ‚É“h‚ê‚œ¬“ׂɂæ‚Á‚ÄŽx”z‚³‚ê‚Ä‚¢‚œ¡<br>
-‚±‚Ì’n‚̐_X‚Í焈Ղµ€ˆÀ‘§‚Ì’n‚ð‘n‘¢‚·‚é‚ׂ­‚»‚Ì’n‚Ì’†S‚Ɉʒu‚·‚é‘å—€‚𗲋N‚³‚¹‰ºŠE‚ÆŠu‚Ä‚œ¡<br>
-‚»‚Ì‘å’n‚̓Gƒ‹ƒ^ƒjƒA‚Æ–Œ‚¯‚ç‚ê‚œ¡<br>
-_X‚ÍŽ©‚ç‚̗͂ƈø‚«Š·‚Š‚ɃGƒ‹ƒ^ƒjƒA‚Ì’†S‚ɐ¹–Ø¢‰i‰“‚̏أ‚ðˆç‚ñ‚Ÿ¡<br>
-‰i‰“‚̏؂͑å’n‚ɍª•t‚«€‚»‚̍ª‚Í•‰‚Ì‹Æ‚ðò‰»‚µ’˜‚𐶂ݏo‚·‚Æ‚¢‚€¡<br>
-<br>@<br>
-ƒGƒ‹ƒ^ƒjƒA‚ɂЂµ‚ß‚«‡‚€‘‰Æ‚Í€‰i‰“‚̏؂̉ÁŒì‚É‚æ‚耒·‚ç‚­•œ˜a‚ÈŽž‚ð‚ñ‚Å‚¢‚œ¡<br>
-<br>@<br>
-Žž‚̓Gƒ‹ƒ^ƒjƒA—ï591”N<br>
-’·‚ç‚­‘¶‘±‚µ‚Ä‚¢‚œ’˜‚ªI‚í‚è‚ðŒ}‚Š‚é¡<br>
-‰i‚¢Žž‚ðŒo‚ĉi‰“‚̏؂ɒ]‚Ñ‚ª¶‚¶‚Ä‚¢‚œ‚Ì‚Å‚ ‚é¡<br>
-<br>@<br>
-‚»‚µ‚Ä’]‚Ñ‚ª•—ŒŠ‚Ö‚Æ•Ï‚í‚é‚Æ‚«€<br>
-ƒGƒ‹ƒ^ƒjƒA‚Í•‰‚Ì‹Æ‚É“h‚ê‚œ¬“ׂ̈łւƕï‚Ü‚ê‚œ¡<br>
-<br>@<br>
-‘å—€–k•û‚ðŽx”z‚·‚é‘卑€ƒ\[ƒfƒBƒi‰€‘‚Å€“Ë”@‘å‹K–Í‚È“à—‚ª”­¶¡<br>
-‰€‰Æ‚͍ªâ‚₳‚ꀐV‚œ‚ɍɑŠ‚Å‚ ‚Á‚œƒMƒUƒƒt‚ª‰€ˆÊ‚ɂ‚«€<br>
-ƒ\[ƒfƒBƒi‰€‘‚àƒ\[ƒfƒBƒi’鍑‚Æ‚»‚Ì–Œ‚ð•Ï‚Š‚Ä‚µ‚Ü‚Á‚œ‚Ì‚Ÿ¡<br>
-X‚ɍc’é‚Æ‚È‚Á‚œƒMƒUƒƒt‚ªÅ‰‚ɍs‚È‚Á‚œ–œ—߀<br>
-‚»‚ê‚Í€‘å—€‚Ì‘S‘‰Æ‚ɑ΂µˆêØ‚̍~•š‚â÷•à‚ð<br>
-”F‚ß‚È‚¢—â“O‚Ȑéí•z‚Å‚ ‚Á‚œ¡<br>
-c’éƒMƒUƒƒt—Š‚¢‚éƒ\[ƒfƒBƒi’鍑ŒR‚Í‘Œ‚ðŠñ‚¹•t‚¯‚È‚¢ˆ³“|“I‚È‹­‚³‚Å‘Œ‘‚ðŽŸX‚ÆŽx”z‚µ‚Ä‚¢‚Á‚œ¡<br>
-<br>@<br>
-‚»‚ñ‚È’†€‘å—€‚̐Œ‚Ɉʒu‚µ•—E‚Å–Œ‚ð’y‚¹‚éƒAƒ‹ƒƒŠƒA‰€‘‚Æ€<br>
-‘å—€‚̍‘‹³‚Å‚ ‚éƒ}[ƒi‹³‚̐¹’n€ƒtƒ‰ƒŠƒ“‹³‘‚àŒÈ‚ÌŽv˜f‚Ƃ͕ʂɐ헐‚ÉŠª‚«ž‚Ü‚ê‚鎖‚Æ‚È‚Á‚œ¡<br>
-—Bˆê€‘召‚̍‘‚©‚ç‚È‚é‘å—€“ì•û‚̍‘€ƒCƒMƒX˜A‡‹€˜a‘‚ª“O’êRí‚̍\‚Š‚ðŒ©‚¹‚Ä‚¢‚œ‚ª€<br>
-­Ž¡“I‚Ü‚Æ‚Ü‚è‚ðŒ‡‚­˜A‡‘‚Í“S‚ÌŒ‹‘©—Í‚ðŽ‚Âƒ\[ƒfƒBƒi’鍑ŒR‚Ì‘O‚ɏ™X‚É’Ç‚¢ž‚Ü‚ê‚Ä‚¢‚Á‚œ¡<br>
-<br>@<br>
-¹–Ø¢‰i‰“‚̏أ‚ɐ¶‚¶‚œ•—ŒŠ‚ÍŠg‘å‚̈ê“r‚ð’H‚è€<br>
-ƒGƒ‹ƒ^ƒjƒA—ï603”N€‰i‰“‚̏؂͂‚¢‚ɏÁ–Å¡‚»‚Ì‚±‚Æ‚É‚æ‚艺ŠE‚ÆŠu‚Ä‚Ä‚¢‚œŒ‹ŠE‚ª•ö‰ó‚µ‚œ¡<br>
-‰ºŠE‚É‚š‚¢‚ăGƒ‹ƒ^ƒjƒA‘å—€‚Ì–k‚Ɉʒu‚·‚éŒÇ“‡ƒ„ƒ}ƒg¡<br>
-‚»‚Ì’n‚ðŽx”z‚µ‚Ä‚¢‚œƒ„ƒ}ƒg_‘‚à€Œ‹ŠE•ö‰ó‚É‚æ‚èƒGƒ‹ƒ^ƒjƒA‚Ì”eŒ ‚ð‘_‚€¡<br>
-<br>@<br>
-‚±‚±‚ɐ헐‚ÌŽž‘オ–‹‚ðŠJ‚¯‚œ‚Ì‚Å‚ ‚éc 
-<br>@<br>
-<br>@<br>
-<hr align="center" size="1">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a name="#2">¡ –Ú“I</a></font></b></font>
-<br>@<br>
-“Á‚É‚ ‚è‚Ü‚¹‚ñ¡<br>ƒvƒŒƒCƒ„[ŽŸ‘æ‚Å‚·¡
-–{ƒQ[ƒ€‚́A‚Ђœ‚·‚çCs‚µ‚čŋ­ƒLƒƒƒ‰‚É‚È‚é‚Ì‚à—Ç‚µA<br>
-í‘ˆ‚ð‹N‚±‚µ‚ăGƒ‹ƒ^ƒjƒA‚Ì’n‚𓝈ꂷ‚é‚Ì‚à—Ç‚µA<br>
-‰ºŽã‚̐¢‚ōô—ª‚ð—û‚Á‚Ä‚à—Ç‚µA<br>
-ƒGƒ‹ƒ^ƒjƒA‚Ì’n‚É– ‰„‚é鳖£é±é²‚ð“¢”°‚µ‚ĉp—Y‚É‚È‚é‚Ì‚à—Ç‚µA‚È‚Ç<br>
-‚Æ‚Ä‚àŽ©—R“x‚̍‚‚¢ƒQ[ƒ€‚ÉŽdã‚ª‚Á‚Ä‚¢‚Ü‚·B
-<br>@<br>
-<br>@<br>
-<hr align="center" size="1">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a name="#3">¡ ƒXƒe[ƒ^ƒXà–Ÿ</a></font></b></font>
-<br>@<br>
-<b>NAME(–Œ‘O)</b> - ƒvƒŒƒCƒ„[‚Ì–Œ‘O<br>
-<br>@<br>
-<b>LEVEL(ƒŒƒxƒ‹)</b> - ƒvƒŒƒCƒ„[‚̃Œƒxƒ‹@ƒŒƒxƒ‹~ƒŒƒxƒ‹~10‚Å1ƒŒƒxƒ‹UP<br>
-<br>@<br>
-<b>‘Ì—Í(HP)</b> - ƒLƒƒƒ‰ƒNƒ^‚̐¶–œ—́@‚±‚ꂪƒ[ƒ‚É‚È‚é‚Ɛ퓬‚Å”s–k‚µ‚Ü‚·<br>
-<br>@<br>
-<b>ž_(MP)</b> - ƒLƒƒƒ‰ƒNƒ^‚̐ž_—́@‚±‚ê‚ðÁ”ï‚·‚鎖‚Å—lX‚È•KŽE‹Z‚ªŽg—p‚Å‚«‚Ü‚·<br>
-<br>@<br>
-<font color="#FF0000">*’ - ‚±‚̃Q[ƒ€‚Å‚ÍHP¥MP‚ð‰ñ•œ‚·‚éƒRƒ}ƒ“ƒh‚ÍŠî–{“I‚É‚ ‚è‚Ü‚¹‚ñ¡<br>
-@@@@‘Ì—Í¥ž_‹€‚É–ˆ•ª1ƒ|ƒCƒ“ƒg‚Ž©‘R‚ɉñ•œ‚µ‚Ü‚·¡<br>
-@@@@‚‚܂è‘Ì—Í‚ð10‰ñ•œ‚µ‚œ‚¢‚È‚ç10•ª‘҂ĂΗǂ¢‚Æ‚¢‚€Ž–‚Å‚·¡‚¿‚Ȃ݂ɃŠƒ[ƒh‚µ‚Ü‚­‚Á‚Ä‚é‚Æ‘S‘R‰ñ•œ‚µ‚Ü‚¹‚ñ(Î</font><br>
-<br>@<br>
-<b>UA</b> - ƒLƒƒƒ‰ƒNƒ^‚̍UŒ‚—́@‚±‚ꂪ‚‚¯‚ê‚΍‚‚¢’ö€‘ŠŽè‚É—^‚Š‚éƒ_ƒ[ƒW‚ª‘å‚«‚­‚È‚è‚Ü‚·<br>
-<br>@<br>
-<b>UD</b> - ƒLƒƒƒ‰ƒNƒ^‚Ì–hŒä—́@‚±‚ꂪ‚‚¯‚ê‚΍‚‚¢’ö€‘ŠŽè‚©‚çŽó‚¯‚éƒ_ƒ[ƒW‚ª­‚È‚­‚È‚è‚Ü‚·<br>
-<br>@<br>
-<b>LR</b> - ƒLƒƒƒ‰ƒNƒ^‚ÌŽwŠö—́@‚±‚ꂪ‚‚¯‚ê‚΍‚‚¢’ö€­Ž¡Œø—Š¥•”‘à”\—Í‚ªã‚ª‚è‚Ü‚·<br>
-<br>@<br>
-<b>GOLD(‚š‹à)</b> - ƒLƒƒƒ‰ƒNƒ^‚̏ŠŽ‹à@”\—Í‚ðã‚°‚œ‚蕺‚ðŒÙ‚Á‚œ‚è‚·‚éˆ×‚É•K—v‚Å‚·¡<br>
-<font color="#FF0000">@@@@@@@@@@@@@@@@@ ‘‚É‘®‚µ‚Ä‚¢‚é‚ÆŠK‹‰‚ɉž‚¶‚ĘZŽžŠÔ–ˆ‚É‹‹—^‚ªo‚Ü‚·¡<br>
-@@@@@@@@@@@@@@@@@ ‚±‚ê‚ÍŽdŠ¯‚µ‚Ä‚©‚ç€‚à‚µ‚­‚͍Ōã‚É‹‹—^‚ð–á‚Á‚Ä‚©‚ç˜ZŽžŠÔŒã‚Æ‚¢‚€Ž–‚É‚È‚è‚Ü‚·¡<br>
-@@@@@@@@@@@@@@@@@ ‚»‚µ‚Ä€‰Œ‚É12ŽžŠÔ‚Ù‚Á‚Æ‚¢‚œ‚©‚瀋‹—^‚ª2‰ñ•ª‚Å‚é‚Æ‚¢‚€Ž–‚Í‚ ‚è‚Ü‚¹‚ñ¡<br>
-@@@@ @@@@@@@@@@@@@Œã‚͏C‹Æ‚ŏŸ—˜‚µ‚œê‡‚âí‘ˆ‚ŏŸ—˜‚·‚é‚Æ“Ÿ‚ç‚ê‚Ü‚·</font><br>
-<br>@<br>
-<b>ŒoŒ±’l</b> - ƒLƒƒƒ‰ƒNƒ^‚ÌŒoŒ±’l@ˆê’è’l‚܂ŏグ‚鎖‚É‚æ‚Á‚ăŒƒxƒ‹‚ªãž‚µ‚Ü‚·<br>
-<br>@<br>
-<b>Ì†</b> - Œ»ÝƒLƒƒƒ‰ƒNƒ^‚ªŽæ“Ÿ‚µ‚Ä‚¢‚éÌ†‚Å‚·B<br>
-<br>@<br>
-<b>•‹ï</b> - Œ»ÝƒLƒƒƒ‰ƒNƒ^‚ª‘•”õ‚µ‚Ä‚¢‚镐‹ï‚Å‚·B‘•”õ‚·‚é‚Ɛ퓬’†‚̒ʏíUŒ‚‚ª‹­‰»‚µ‚Ü‚·B•‹ï‚Í‚P‚‚µ‚©Ž‚‚±‚Æ‚ªo—ˆ‚Ü‚¹‚ñB<br>
-<br>@<br>
-<b>“¹‹ï</b> - Œ»ÝƒLƒƒƒ‰ƒNƒ^‚ªŠŽ‚µ‚Ä‚¢‚铹‹ï‚Å‚·Bí“¬’†‚ÉŽg—p‚·‚邱‚Æ‚ª‚Å‚«‚Ü‚·B“¹‹ï‚Í‚P‚‚µ‚©Ž‚‚±‚Æ‚ªo—ˆ‚Ü‚¹‚ñB<br>
-<br>@<br>
-<b>Š‘®</b> - ƒLƒƒƒ‰ƒNƒ^‚̏Š‘®@Œ»Ý‚̃Lƒƒƒ‰ƒNƒ^‚̏Š‘®‚Å‚·¡‘‚É‘®‚µ‚Ä‚¢‚é‚ƍ‘‚Ì–Œ‘O‚ª€•ú˜Q‚µ‚Ä‚¢‚é‚Æ–³Š‘®‚Æ•\ŽŠ‚³‚ê‚Ü‚·<br>
-<br>@<br>
-<b>•º”</b> - ƒLƒƒƒ‰ƒNƒ^‚Ì•º@Œ»Ý€ƒLƒƒƒ‰ƒNƒ^‚ªŽwŠö‚µ‚Ä‚¢‚é•”‘à‚̍ő啺”‚Å‚·¡@ŠK‹‰‚É‚æ‚Á‚ÄŽwŠö‚Å‚«‚镺”‚͈Ⴂ‚Ü‚·<br>
-<br>@<br>
-<b>RANK(ŠK‹‰)</b> - ƒLƒƒƒ‰ƒNƒ^‚ÌŠK‹‰@ƒLƒƒƒ‰ƒNƒ^‚ÌŒ»Ý‚ÌŠK‹‰‚Å‚·¡‘‚ÌŽdŽ–‚ɏ]Ž–‚µ‚œ‚èí‘ˆ‚ŏŸ—˜‚·‚鎖‚ŏ㏞‚µ‚Ü‚·<br>
-<br>@<br>
-<b>‘‘—Í</b> - Œ»Ý‚ÌŠe‘‚Ì‘‡“I‚ȍ‘—Í‚Å‚·¡‚±‚̐”’l‚Å‹‹—^‚ª‘Œž‚µ‚Ü‚·¡‚Ü‚œŠe‘‚Ì‚Ç‚ê‚©‚ª1–œ‚ð’Ž‚Š‚é‚ƈꉞƒQ[ƒ€I—¹‚Å‚·¡<br>
- @@@@@@ ƒQ[ƒ€ƒNƒŠƒA‚É‚È‚é‚ƍ‘ƒf[ƒ^‚ª‘‚úó‘Ô‚É–ß‚è‚Ü‚·¡ƒLƒƒƒ‰ƒNƒ^ƒf[ƒ^‚ɕω»‚Í‚ ‚è‚Ü‚¹‚ñ¡<br>
-<br>@<br>
-<b>‘‰Æ—\ŽZ</b> - Œ»Ý‚ÌŠe‘‚̍‘‰Æ—\ŽZ‚Å‚·¡‚±‚ꂪ‚È‚¢‚Ɛ푈‚ª‹N‚±‚¹‚Ü‚¹‚ñ¡€‹Æ‚ð‚š‚±‚È‚€Ž–‚Å‘‚Š‚Ü‚·¡<br>
-<br>@<br>
-<b>•º—Æ</b> - Œ»Ý‚ÌŠe‘‚Ì•º—Æ‚Å‚·¡‚±‚ꂪ‚È‚¢‚Ɛ푈‚ª‹N‚±‚¹‚Ü‚¹‚ñ¡”_‹Æ‚ð‚š‚±‚È‚€Ž–‚Å‘‚Š‚Ü‚·¡<br>
-<br>@<br>
-<b>‘•ºŽm”</b> - Œ»Ý‚ÌŠe‘‚Ì•ºŽm”‚Å‚·¡‚±‚ꂪ‚È‚¢‚Ɛ푈‚ð‹N‚±‚¹‚Ü‚¹‚ñ¡<br>
-@@@@@@@ ‚Ü‚œ“G‚ɍU‚ߍž‚Ü‚ê‚œê‡‚É‚È‚¢‚Æ€íŽž’¥•º‚ª‚š‚±‚È‚í‚ê‚鎖‚É‚È‚è€<br>
-@@@@@@@ ‘•ºŽm”‚Í–h‰q‚ɏo‚œ•”‘à‚̍ő吔‚É‚È‚è‚Ü‚·‚ª€‘—Í‚ª’˜‚µ‚­’ቺ‚µ‚Ü‚·¡’ˆÓ‚ª•K—v‚Å‚·¡<br>
-<br>@<br>
- @@@<font color="#FF0000">’ - ˆê‰žŒŸ‚Á‚Ä‚š‚«‚Ü‚·‚ª‘ƒf[ƒ^‚̓vƒŒƒCƒ„[‘Sˆõ‚Ì‹€—L•š‚Å‚·¡</font><br>
-<br>@<br>
-<b>’èˆõ</b> - Še‘‚ÌŽQ‰Á’èˆõ‚Å‚·B‚±‚ê‚ð‰z‚·‚ƈꎞ“I‚É“ü‘§ŒÀ‚ª‚©‚©‚è‚Ü‚·B<br>
-<br>@<br>
-<hr align="center" size="1">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a name="#4">¡@ƒRƒ}ƒ“ƒhà–Ÿ</a></font></b></font>
-<br>@<br>
-<b>Cs</b> - “o˜^ƒLƒƒƒ‰ƒNƒ^‚Æ‚Ì‘Îí¡Š‘®‚É‚æ‚鐧ŒÀ‚È‚µ¡<br>
-@@@@@@ ƒŠƒXƒg‚©‚ç‘ΐ푊Žè‚ð‘I‚ѐ퓬‚ðs‚€¡Ÿ—˜‚·‚é‚Æ‚š‹à‚ÆŒoŒ±’l‚ðŠl“Ÿ‚Å‚«‚é¡<br>
-@@@@@@ ‚œ‚Ÿ‚µ€Ž©ƒLƒƒƒ‰‚Æ“GƒLƒƒƒ‰‚̃Œƒxƒ‹·‚Å“üŽèŒoŒ±’l‚Æ‚š‹à‚ÌŠz‚ª•Ï‰»‚·‚é‚Ì‚Å’ˆÓ<br>
-<br>
- @@@@@<b>í“¬‚ÌŽd•û</b> -<br>
-<br>
-@@@@@@@@C‹ÆŽž‚̐퓬‚̓vƒŒƒCƒ„[ƒLƒƒƒ‰ƒNƒ^æU‚ÅŒðŒÝ‚ɍUŒ‚‚ðŒJ‚è•Ô‚µ‚čs‚í‚ê‚Ü‚·¡<br>
-@@@@@@@@ƒRƒ}ƒ“ƒh‚͍ŏ‰‚́wUŒ‚xƒRƒ}ƒ“ƒh‚µ‚©‚ ‚è‚Ü‚¹‚ñ‚ª€ƒŒƒxƒ‹‚ªã‚ª‚Á‚Ä‚¢‚­‚ƃRƒ}ƒ“ƒh‚ª‘‚Š‚Ü‚·¡<br>
-@@@@@@@@‚»‚ê‚ð“ÁŽêƒRƒ}ƒ“ƒh‚Æ‚¢‚¢€‚‚܂èRPG‚Å‚¢‚€Š‚Ì–‚–@‚Å‚·¡<br>
-@@@@@@@@ž_‚ðÁ”‚Ü‚·‚ª€“ÁŽêƒRƒ}ƒ“ƒh‚Í‹­—͂ȍUŒ‚‚È‚Ì‚Å’ZŠú‚ÉŒˆ’…‚ð‚‚¯‚œ‚¢ê‡‚È‚Ç‚ÉŽg‚€‚Æ—Ç‚¢‚Å‚µ‚å‚€¡<br>
-@@@@@@@@‚¿‚È‚Ý‚É“ÁŽêUŒ‚‚̓Œƒxƒ‹‚ª5‚Ì”{”‚Šo‚Š‚Ü‚·¡LV5€LV10€LV15c<br>
-<font color="#FF0000">@@@@@@@@ŠK‹‰‚ªã‹‰‹RŽmˆÈã‚Ì¢ŠK‹‰‹Z£‚Æ‚¢‚€€‹Z‚ðŽg—p‚Å‚«‚é‚æ‚€‚É‚È‚è‚Ü‚·¡<br>
-@@@@@@@@ŠK‹‰‹Z‚̓Œƒxƒ‹‚ÉŠÖŒW‚È‚­Žg—p‚·‚邱‚Æ‚ª‚Å‚«‚Ü‚·¡‚¿‚È‚Ý‚É4Ží—Þ‚ÌŠK‹‰‹Z‚ª‘¶Ý‚µ‚Ü‚·¡</font><br>
- @@@@@@@@› - <a href="./st.html">“ÁŽê‹Z¥ŠK‹‰‹Z</a><br>
-
-<br>@<br>
-<b>“à­</b> - ‘‚ɏŠ‘®‚µ‚Ä‚¢‚éê‡‚ÉŽÀs‰Â”\‚ȃRƒ}ƒ“ƒh¡<br>
-<br>
-@@@@ <b>”_‹Æ</b> - ”_ì‚ðs‚¢•º—Æ‚ð’~‚Š‚é¡<br>
-@@@@ <b>€‹Æ</b> - €‹Æ‚ðs‚¢‘‰Æ—\ŽZ‚𑝂₷<br>
-@@@@ <b>ŒR”õ</b> - í‘ˆ‚É”õ‚ŠŒR”õ‚ð‹­‰»‚·‚é<br>
-@@@@ <b>ŒR”õƒRƒ}ƒ“ƒh</b> - ŒR”õ‚ðs‚¢‚Ü‚·¡<br>
-@@@@@@@@@@<b>•º‚ðŒÙ‚€</b> - •º‚ðŒÙ‚¢‚Ü‚·¡‚±‚ÌŽžŽg‚í‚ê‚é‚̂̓Lƒƒƒ‰ƒNƒ^‚Ì‚š‹à‚Å‚·¡<br>
-@@@@@@@@@@<b>•º‚ðŒP—û‚·‚é</b> - ƒLƒƒƒ‰ƒNƒ^‚Ì•”‘à‚Ì•º‚ðŒP—û‚µ‚Ü‚·¡Å‘å‚Í100¡<br>
-@@@@<br>
-@@@@ “à­‚ðs‚È‚€Ž–‚É‚æ‚Á‚ăLƒƒƒ‰ƒNƒ^‚Ì•]‰¿‚ª‚‚Ü‚èˆê’è‚É‚È‚é–ˆ‚ÉŠK‹‰‚ªã‚ª‚é¡<br>
-@@@@ ŠK‹‰‚ªã‚ª‚ê‚΋‹—^‚ª‘‚Š‚顃Lƒƒƒ‰ƒNƒ^‚ª—Š‚¢‚é•”‘à”‚ª‘‚Š‚é¡<br>
-@@@@ ‚¿‚È‚Ý‚É–³Š‘®‚ÉŠK‹‰‚Í‚ ‚è‚Ü‚¹‚ñ¡–³Š‘®‚Å‚Í‹‹—^‚͏o‚Ü‚¹‚ñ¡–³Š‘®‚Å‚Í•”‘àŽ©‘ÌŽ‚Ä‚Ü‚¹‚ñ¡<br>
-<font color="#FF0000">@@@@ ŠK‹‰‚ªã‹‰‹RŽmˆÈã‚̏ꍇ€“à­‚ðs‚€‚ÆŒ÷˜J‹à‚ª‚à‚ç‚Š‚Ü‚·¡<br>
-@@@@ Œ÷˜J‹à‚ÍŠK‹‰‚ª‚‚¢‚قǍ‚Šz‚É‚È‚è‚Ü‚·¡</font><br>
-
-<br>
-           <b>•º‚ðŒP—û‚·‚é</b> -<br>
-<br>
-@@@@ ƒLƒƒƒ‰ƒNƒ^‚Ì—Š‚¢‚é•”‘à‚ðŒP—û‚µ‚Ü‚·¡ŒP—û‚·‚鎖‚Ő푈Žž‚Ì•”‘à”\—Í‚ªãž‚µ‚Ü‚·¡<br>
-<br>@<br>
-<b>í‘ˆ</b> - ‘‚ɏŠ‘®‚µ‚Ä‚¢‚éê‡‚ÉŽÀs‰Â”\‚ȃRƒ}ƒ“ƒh¡<br>
-@@@@ ƒLƒƒƒ‰ƒNƒ^‚Ì•”‘à‘”‚ɑ΂µ‚č‘‰Æ—\ŽZ‚ª1/10 •º—Æ‚ª1/1ˆÈã‚ ‚ê‚ΑŒ‘‚ɍU‚ߍž‚ß‚Ü‚·¡<br>
-@@@@ “G‘‚ɍU‚ߍž‚ݏŸ—˜‚·‚鎖‚Å“G‘‚̍‘—Í‚ð’D‚Š‚Ü‚·¡‘—Í=—Ì“y‚ƍl‚Š‚ĉº‚³‚¢¡<br>
-<br>
-@@@@ í‘ˆ‚ªŽn‚Ü‚é‚Æ“G‘‚©‚ç“K“–‚É‘I‚΂ꂜƒvƒŒƒCƒ„[ƒLƒƒƒ‰ƒNƒ^€‚Ü‚œ‚ÍNPC‚ª–h‰q•”‘à‚Æ‚µ‚ďoŒ»‚µ‚Ü‚·¡<br>
-<br>
-@@@@ <b>- í‘ˆ‚̐i‚ß•û -</b><br>
-<br>
-@@@@ í‘ˆ‚ł̓Wƒƒƒ“ƒPƒ“‚Ì—v—̂Ő퓬‚ðs‚¢‚Ü‚·¡<br>
-<br>
-@@@@ UŒ‚wŒ`š–hŒäwŒ`š“ËŒ‚wŒ`šUŒ‚wŒ`c<br>
-<br>
-@@@@ ‚Æ‚¢‚€‹ï‡‚É€“G‚ª–hŒäwŒ`Žž‚ɍUŒ‚wŒ`‚ðŽæ‚ê‚΀‘ŠŽè‚É‘œ‘å‚È‘¹ŠQ‚ð—^‚Š‚鎖‚ª‚Å‚«€<br>
-@@@@ ”œ‘΂ɓG‚ªUŒ‚wŒ`Žž‚É–hŒäwŒ`‚ðŽæ‚Á‚Ä‚µ‚Ü‚€‚Æ€Ž©•”‘à‚ɐr‘å‚È”íŠQ‚ª‚Å‚Ä‚µ‚Ü‚€‚Ì‚Å‚·¡<br>
-<br>
-@@@@<b>- ˆê‹R“¢‚¿ -</b><br>
-<br>
-@@@@@ó‹µ‚É‚æ‚Á‚Ä“G‚©‚çˆê‹R“¢‚¿‚ð\‚µž‚Ü‚ê‚éê‡‚ª‚ ‚è‚Ü‚·¡<br>
-@@@@@’f‚é‚Ì‚àŽó‚¯‚é‚Ì‚àŽ©—R‚Å‚·‚ª’f‚é‚Æ•]‰¿‚ª‚·‚±‚µ‰º‚ª‚èŽó‚¯‚ê‚΂·‚±‚µã‚ª‚è‚Ü‚·¡<br>
-@@@@@ˆê‹R“¢‚¿‚Ì—¬‚ê‚͏C‹Æƒ‚[ƒh‚Æ‚Ü‚Á‚œ‚­•Ï‚í‚è‚Ü‚¹‚ñ¡‘ŠŽè‚ÌHP‚ð0‚É‚·‚ê‚ΏŸ‚¿‚Å‚·¡<br>
-@@@@@ˆê‹R“¢‚¿‚ɏŸ—˜‚·‚é‚Æ•’i‚æ‚è‘œ‚ß‚É•]‰¿’l‚ªãž‚µ€•‰‚¯‚é‚Æ‘œ‚߂ɉº‚ª‚è‚Ü‚·¡‹C‚ð‚‚¯‚ĉº‚³‚¢¡<br>
-<br>
-@@@@í‘ˆ‚ł͏Ÿ‚Á‚Ä‚à•‰‚¯‚Ä‚àŒoŒ±’l‚Æ‚š‹à‚ªŽè‚É“ü‚è‚Ü‚·‚ª€“P‘Þ‚µ‚œê‡‚Í–³•ñV‚Å‚·¡<br>
-@@@@‚œ‚Ÿ“P‘Þ‚·‚ê‚Εº—Í‚Í‚»‚ÌŽž“_‚̐”’l‚ō‘‚Ì‘•ºŽm”‚É–ß‚è‚Ü‚·‚©‚瀏Ÿ‚Ä‚È‚¢‘ŠŽè‚Æ“–‚œ‚Á‚Ä‚µ‚Ü‚Á‚œ‚ç“P‘Þ‚µ‚œ•û‚ª—˜Œû‚Å‚·¡<br>
-@@@@–³ˆÅ‚ɐí‚Á‚Ä•º—Í‚ªƒ[ƒ‚É‚È‚é‚܂Őí‚Á‚Ä‚µ‚Ü‚€‚Æ€Šm‚©‚É‹Í‚©‚ÈŒoŒ±’l‚Æ‚š‹à‚ªŽè‚É“ü‚è‚Ü‚·‚ª€<br>
-@@@@‘•ºŽm”‚͏oŒ‚‚µ‚œƒLƒƒƒ‰ƒNƒ^•”‘à‚Ì•ºŽm”‚Ÿ‚¯ƒh[ƒ“‚ÆŒž‚Á‚Ä‚µ‚Ü‚¢‚Ü‚·¡<br>
-@@@@•ºŽm‚̓vƒŒƒCƒ„[‘Sˆõ‚Ì‹€—L•š‚Æ‚¢‚€Ž–‚ð—Ç‚­l‚Š‚Đ퓬‚É–]‚ñ‚Å‚­‚Ÿ‚³‚¢¡<br>
-<br>@<br>
-<b>”\—Í</b> - ƒLƒƒƒ‰ƒNƒ^‚Ì”\—͏㏞ƒRƒ}ƒ“ƒh¡Š‘®‚É‚æ‚鐧ŒÀ‚È‚µ¡<br>
-@@@@ ‚š‹à‚ð1–œGŽx•¥‚€Ž–‚ÅŠe”\—Í(HP€MP€UA€UD€LR)‚ðãž‚³‚¹‚鎖‚ªo—ˆ‚Ü‚·¡<br>
-@@@@@ŠeƒXƒe[ƒ^ƒX‚̏ãŒÀ‚Í‘Ì—Í¥ž_‚Í9999¡‘Œ‚Í999‚Å‚·¡<br>
-<br>@<br>
-<b>ŽdŠ¯</b> - ƒLƒƒƒ‰ƒNƒ^‚ð‘‚ÉŽdŠ¯‚³‚¹‚œ‚耖ì‚ɉº‚Á‚œ‚è‚·‚éˆ×‚̃Rƒ}ƒ“ƒh‚Å‚·¡<br>
-@@@@ ‚±‚̃Q[ƒ€‚ł̓Xƒ^[ƒg’ŒŒã‚Í‘Sˆõ–³Š‘®‚Å‚·¡<br>
-@@@@ ‚Å‚·‚©‚玩•ª‚̍D‚«‚ȍ‘‚É‚±‚̃Rƒ}ƒ“ƒh‚ÅŽdŠ¯‚µ‚ĉº‚³‚¢¡<br>
-@@@@ˆê‰žŒŸ‚Á‚Ä‚š‚«‚Ü‚·‚ª€‚±‚̃Q[ƒ€‚Å–³Š‘®‚µ‚Ä‚¢‚Ä‚à—Ç‚¢Ž–‚Í‚Ð‚Æ‚Â‚à‚ ‚è‚Ü‚¹‚ñ¡<br>
-@@@@ ‚Ü‚œ‘Œ‘‚É–S–œ‚µ‚œê‡‚ÍŠK‹‰‚ª1`5‰º‚ª‚è‚Ü‚·‚Ì‚Å’ˆÓ‚µ‚ĉº‚³‚¢¡<br>
-<font color="#FF0000">@@@@ŽdŠ¯‚̓Œƒxƒ‹2‚©‚ç‚Å‚·¡<br>
-@@@@Še‘‚É‚Í‚»‚ê‚Œ‚ê’èˆõ‚ª‚ ‚è‚Ü‚·¡‚±‚ê‚ð’Ž‚Š‚é‚ƈꎞ“I‚É“ü‘•s‰Â‚É‚È‚è‚Ü‚·¡<br>
-@@@@‘Œ‘‚â–³Š‘®‚É–S–œ‚µ‚œê‡€Œ³‘‚ɈڐЗ¿‚𕥂¢‚Ü‚·¡ˆÚÐ—¿‚Ì‚€‚¿”÷—Ê‚ðŒ³‘‚̍‘‰Æ—\ŽZ‚ÉŠ„‚è“–‚Ä‚ç‚ê‚Ü‚·¡<br>
-@@@@ˆÚÐ—¿‚ÍŠK‹‰‚ª‚‚­‚È‚é‚ƈÀ‚­‚Ȃ而³‘‚̍‘‰Æ—\ŽZ‚ÉŠ„‚è“–‚Ä‚ç‚ê‚é‹àŠz‚ª‘‚Š‚Ü‚·¡</font><br>
-<br>@<br>
-<b>î•ñ</b> - Œ»ÝŠ‘®‚µ‚Ä‚¢‚鍑‚̏î•ñ‚ªŒ©‚ê‚Ü‚·¡<br>
-<br>@<br>
-<b>‰ñ•œ</b> - ‘å‹à‚ðŽx•¥‚€‚±‚Æ‚ÅHP/MP‚ðuŽž‚É‘S‰ñ•œ‚³‚¹‚Ü‚·¡ƒŒƒxƒ‹‚ª‚‚¢‚قǍ‚Šz‚É‚È‚è‚Ü‚·¡<br>
-@@@@ ‚œ‚Ÿ‚µ€ƒŒƒxƒ‹40ˆÈã‚ÍŠz‚ªã‚ª‚è‚Ü‚¹‚ñ¡<br>
-<br>@<br>
-<b>•ó‚­‚¶</b> - 1‰ñ500G‚Å•ó‚­‚¶‚ðs‚Š‚Ü‚·¡–ñ”Œ”‚Ì•û‚ÍŒ³‚ª‚Æ‚ê‚邱‚Æ‚Å‚µ‚å‚€¡<br>
-<br>
-@@@@ <b>ˆë“™Ü</b> - 10–œG<br>
-@@@@ <b>“󓙏Ü</b> - 5–œG<br>
-@@@@ <b>ŽQ“™Ü</b> - 1–œG<br>
-@@@@ <b>Žl“™Ü</b> - 1çG<br>
-@@@@ <b>K‰^Ü</b> - HP‚à‚µ‚­‚ÍMP‘S‰ñ•œ<br>
-@@@@ <b>•sKÜ</b> - HP‚à‚µ‚­‚ÍMP”ŒŒž<br>
-@@@@ <b>ß”±Ü</b> - ƒnƒOƒŒƒƒ^ƒ‹‚ÌŒ•(Šó­)<br>
-<br>@<br>
-<b>“¢”°</b> - ƒGƒ‹ƒ^ƒjƒA‚Ì’n‚É– ‰„‚é鳖£é±é²‚𐪔°‚µ‚Ü‚·B<br>
-@@@@ “¢”°‚ɐ¬Œ÷‚·‚é‚Æ’nˆÊ‚Ə܋à‚ðŠl“Ÿ‚Å‚«‚Ü‚·B鳖£é±é²‚͂ƂÂà‚È‚­‹­‘å‚Å‚·B<br>
-@@@@ “¢”°‚ðŒJ‚è•Ô‚·‚±‚ƂŁAƒGƒ‹ƒ^ƒjƒA‚̉p—Y‚ɂȂ邱‚Æ‚ª‚Å‚«‚Ü‚·B<br>
-@@@@ ‚Ü‚œA鳖£é±é²‚Í‚²‚­‹H‚ɉB‚µ•‹ï‚â‰B‚µƒAƒCƒeƒ€‚ð—Ž‚Æ‚·‚±‚Æ‚ª‚ ‚è‚Ü‚·B<br>
-<br>@<br>
-<b>ŒRŽ–</b> - “G‘‚ɑ΂·‚éí—ª<br>
-<br>
-@@@@ <b>’³•ñ</b> - “G‘‚É’³•ñˆõ‚𑗂荞‚ÝŽ‘‹à’²’Bƒ‹[ƒg‚ðö—‚³‚¹‚éB“G‘‚̍‘‰Æ—\ŽZ‚ð’DŽæ<br>
-@@@@ <b>‹­’D</b> - “G‘‚ÉŠïPUŒ‚‚ð‚©‚¯A•º—Æ‚ð’DŽæ<br>
-@@@@ <b>ô”]</b> - “G‘‚Ì•ºŽmw‚ðô”]‚µAŽ©‘‚Ɉø‚«“ü‚ê‚éB“G‘‚Ì•ºŽm”‚ð’DŽæ<br>
-<br>@<br>
-<br>@<br>
-<hr align="center" size="1">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a name="#5">¡@ƒƒjƒ…[à–Ÿ</a></font></b></font>
-<br>@<br>
-<b>‘ÛŒð—¬Žðê</b> - ß”±<sup>++</sup>ƒvƒŒƒCƒ„[‚Ì‚œ‚߂̃`ƒƒƒbƒg¥¥¥¥Œ`Š[‰»‚µ‚Ä‚¢‚é‚æ‚€‚È¥¥<br>
-<br>@<br>
-<b>‘ÛŒð—¬Lê</b> - ƒvƒŒƒCƒ„[“¯Žm‚̌𗬂̏ê<br>
-<br>@<br>
-<b>Še‘ìí‰ï‹c</b> - Še‘ê—p‚̍ìí‰ï‹cŽº¡–³Š‘®‚Í—˜—p‚Å‚«‚Ü‚¹‚ñ¡<br>
-<br>@<br>
-<b>ƒVƒ‡ƒbƒsƒ“ƒOƒ‚[ƒ‹</b> - •‹ï‚⓹‹ï‚Ì”„”ƒA‚š‹à‚Ì—ZŽ‘‚ȂǁB
-<br>@<br>
-@@@@ <b>•‹ï</b> - •‹ï‚𔃂Á‚œ‚蔄‚Á‚œ‚è‚Å‚«‚Ü‚·B<br>
-@@@@ <b>“¹‹ï</b> - “¹‹ï‚𔃂Á‚œ‚蔄‚Á‚œ‚è‚Å‚«‚Ü‚·B<br>
-@@@@ <b>‹à—Z</b> - ‚š‹à‚ðŽØ‚è‚ê‚Ü‚·BŽØ‹à‚ð‚·‚é‚ƕԍς܂ł̊úŠÔAà€ˆó‚ð‰Ÿ‚³‚ê‚Ü‚·B<br>
-@@@@@@@@@@@@@@@@à€ˆó‚̏̍†‚ª•t‰Á‚³‚ê‚é‚ƁA‚¢‚­‚‚©‚̍s“®‚ª§ŒÀ‚³‚ê‚é‚Ì‚Å’ˆÓ‚Å‚·B<br>
-@@@@@@@@@@@@@@@@‚Ü‚œAŽØ‹à‚É‚Í—˜‘§‚ª‚‚«‚Ü‚·‚̂ŁA‚Å‚«‚é‚Ÿ‚¯‘‚߂ɕԍςµ‚Ä‚­‚Ÿ‚³‚¢B
-<br>@<br>
-<b>ŒöŽ®ð–ñ</b> - Še‘ŠÔ‚ÅŒ‹‚ñ‚Ÿð–ñ‚⓯–¿‚È‚Ç¥¥¥¥Œ`Š[‰»‚µ‚Ä‚¢‚é‚æ‚€‚È¥¥<br>
-<br>@<br>
-<b>‰ß‹Ž‚̉hŒõ</b> - ‰ß‹Ž‚ɍs‚í‚ê‚œŠe‘‚̍U–h‚Ì‹L˜^<br>
-<br>@<br>
-<br>@<br>
-<hr align="center" size="1">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a name="#6">¡@ƒAƒhƒoƒCƒX(ŽQl)</a></font></b></font>
-<br>@<br>
-ß”±<sup>++</sup>‚Í€ƒvƒŒƒCƒ„[‚Ì•û‚ªŽv‚Á‚Ä‚¢‚éˆÈã‚ÉŒ‹\ŠÈ’P‚ɏd•¡“o˜^‚ÍŒ©”j‚ê‚Ü‚·¡<br>
-‚È‚Ì‚Å€d•¡“o˜^‚Í‚µ‚È‚¢‚æ‚€‚É‚µ‚ĉº‚³‚¢¡Œ©‚‚¯ŽŸ‘æ‘SƒLƒƒƒ‰íœ‚µ‚Ü‚·¡ƒ‹[ƒ‹ˆá”œ‚Í‚¢‚¯‚Ü‚¹‚ñ¡<br>
-‚¿‚È‚Ý‚ÉŽQ‰Ál”‚͍őå‚Å170–Œ‚Å‚·¡<br>
-<br>@<br>
-<br>@<br>
-<br>@<br>
-<br>@<br>
-<br>@<br>
-<br>@<br>
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a href="../index.cgi">¡@ƒ^ƒCƒgƒ‹‚Ö–ß‚é</a></font></b></font>
-</body>
+<html>
+<head>
+<title>죄와 벌++ 사용섀명서</title>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+</head>
+<!-- (C)2001 Vivid Studio. + BLANK BOARD  -->
+<body bgcolor="#000000" text="#eeeeee" link="#ccccff" vlink="#ccccff" alink="#ccccff">
+<basefont size="2">
+<font face=" 明朝, 现明朝䜓" size="5"><b>죄와 벌<sup>++</sup> 사용섀명서</b></font>
+<br>　<br>
+<br>　<br>
+- <a href="#1">슀토늬</a> -
+<a href="#2">목적</a> -
+<a href="#3">능력치(슀탯) 섀명</a> -
+<a href="#4">명령얎 섀명</a> -<br>
+- <a href="#5">메뉎 섀명</a> -
+<a href="./st.html">특수Ʞ·계꞉Ʞ</a> -
+<a href="#6">도움말(ì°žê³ )</a> -
+<br>　<br>
+- <a href="../index.cgi">메읞 화멎윌로 돌아가Ʞ</a> -
+<br>　<br>
+<tt><br>　<br></tt><table width=440 cellspacing=1 cellpadding=0 height=360 bordercolor=#000000>
+<tr>
+<td width=55 height=45>　</td><td width=55>　</td><td width=55 bgcolor=#ffccff>　</td><td width=55>　</td><td width=55>　</td><td width=55>　</td><td width=55 bgcolor=#55BBFF>　</td><td width=55>　</td>
+</tr><tr>
+<td height=45>　</td><td bgcolor=#ffccff>　</td><td bgcolor=#ffccff>　</td><td bgcolor=#EE9999>　</td><td bgcolor=#EE9999>　</td><td>　</td>
+<td bgcolor=#55BBFF><b style="font-size:9pt;color:#222222">알마토 신국</b></td>
+<td bgcolor=#55BBFF>　</td>
+</tr><tr>
+<td bgcolor=#ffccff height=45>　</td><td bgcolor=#ffccff>　</td>
+<td bgcolor=#ffccff><b style="font-size:9pt;color:#222222">소디나<br>제국</b></td>
+<td bgcolor=#ffccff>　</td><td bgcolor=#EE9999>　</td><td>　</td><td bgcolor=#55BBFF>　</td><td bgcolor=#55BBFF>　</td>
+</tr><tr>
+<td height=45>　</td><td bgcolor=#ffccff>　</td><td bgcolor=#ffccff>　</td><td bgcolor=#EE9999>　</td><td bgcolor=#EE9999><b style="font-size:9pt;color:#222222">알메늬아<br>왕국</b></td>
+<td bgcolor=#EE9999>　</td><td>　</td><td bgcolor=#55BBFF>　</td>
+</tr><tr>
+<td bgcolor=#00EEEE height=45>　</td><td bgcolor=#00EEEE>　</td><td bgcolor=#ffccff>　</td>
+<td bgcolor=#ffccff><small style="color:#222222">영원의 슝표<br>터</small></td>
+<td bgcolor=#EE9999>　</td><td bgcolor=#EE9999>　</td><td>　</td><td>　</td>
+</tr><tr>
+<td height=45>　</td><td bgcolor=#00EEEE>　</td>
+<td bgcolor=#00EEEE><b style="font-size:9pt;color:#222222">플띌늰<br>교국</b></td>
+<td bgcolor=#00EEEE>　</td><td bgcolor=#88EE88>　</td><td bgcolor=#88EE88>　</td><td bgcolor=#88EE88>　</td><td>　</td>
+</tr><tr>
+<td height=45>　</td><td>　</td><td bgcolor=#00EEEE>　</td><td bgcolor=#88EE88>　</td>
+<td bgcolor=#88EE88><b style="font-size:9pt;color:#222222">읎Ʞ슀<br>연합국</b></td>
+<td bgcolor=#88EE88>　</td><td>　</td><td>　</td>
+</tr><tr>
+<td height=45>　</td><td>　</td><td>　</td><td>　</td><td bgcolor=#88EE88>　</td><td>　</td><td>　</td><td>　</td>
+</tr></table><tt><br><b style="font-size:11pt">엘타니아 월드맵</b><br></tt>
+<br>　<br>
+<hr align="center" size="1">
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a name="#1">■ 슀토늬</a></font></b></font>
+<br>　<br>
+수천 년 전, 읎 땅은 읎맀망량곌 음산한 칎륎마로 뒀덮읞 혌돈에 의핎 지배되고 있었닀.<br>
+읎 땅의 신듀은 탄식하며 안식처륌 찜조하고자 ê·ž 땅의 쀑심에 위치한 대륙을 융Ʞ시쌜 하계와 격늬했닀.<br>
+ê·ž 대지는 엘타니아띌 명명되었닀.<br>
+신듀은 슀슀로의 힘을 대가로 바쳐 엘타니아의 쀑심에 성슀러욎 나묎 '영원의 슝표'륌 Ꞟ러냈닀.<br>
+'영원의 슝표'는 대지에 뿌늬륌 ë‚Žë žê³ , ê·ž 뿌늬는 사악한 업을 정화하며 질서륌 만듀얎 냈닀고 전핎진닀.<br>
+<br>　<br>
+엘타니아의 수많은 국가듀은 '영원의 슝표'의 가혞 아래 였랫동안 평화로욎 섞월을 볎낎고 있었닀.<br>
+<br>　<br>
+때는 엘타니아력 591년<br>
+였랫동안 지속되었던 질서가 종말을 고한닀.<br>
+Ʞ나ꞎ 섞월읎 흐륎며 '영원의 슝표'에 균엎읎 생ꞰꞰ 시작한 것읎닀.<br>
+<br>　<br>
+귞늬고 균엎읎 컀닀란 바람구멍윌로 변했을 때,<br>
+엘타니아는 사악한 칎륎마로 가득 ì°¬ 혌돈의 ì–Žë‘  속윌로 휩싞였닀.<br>
+<br>　<br>
+대륙 북방을 지배하는 대국 소디나 왕국에서 갑작슀럜게 대규몚 낎란읎 발생.<br>
+왕가는 멞족당하였고, 새로욎 왕윌로 재상읎었던 Ʞ자로프가 등극하멎서,<br>
+소디나 왕국 역시 소디나 제국윌로 ê·ž 읎늄을 바꟞고 말았닀.<br>
+나아가 황제가 된 Ʞ자로프가 가장 뚌저 낮며 명령,<br>
+귞것은 대륙의 몚든 국가륌 향핎 음첎의 항복읎나 양볎륌<br>
+허용하지 않는 냉혹한 선전포고였닀.<br>
+황제 Ʞ자로프가 읎끄는 소디나 제국군은 적수륌 찟을 수 없는 압도적읞 묎력윌로 타국을 찚례찚례 지배핎 나갔닀.<br>
+<br>　<br>
+귞러한 소용돌읎 속에서 대륙 서쪜에 위치하여 묎용윌로 읎늄을 떚치던 알메늬아 왕국곌,<br>
+대륙의 국교읞 마나교의 성지 플띌늰 교국도 자신듀의 의도와는 묎ꎀ하게 전란의 불Ꞟ 속에 휩싞읎게 되었닀.<br>
+유음하게 대소의 국가듀로 구성된 대륙 낚방의 나띌 읎Ʞ슀 연합 공화국읎 철저한 항전의 태섞륌 갖추었윌나,<br>
+정치적 결속력읎 부족했던 연합국은 철의 결속력을 자랑하는 소디나 제국군 앞에 서서히 파멞의 êžžë¡œ 몰렞닀.<br>
+<br>　<br>
+성슀러욎 나묎 '영원의 슝표'에 생ꞎ 구멍은 계속핎서 컀젞만 갔고,<br>
+엘타니아력 603년, 마칚낎 '영원의 슝표'가 완전히 소멞했닀. 읎와 핚께 하계와의 겜계륌 유지하던 결계가 붕ꎎ했닀.<br>
+하계에서 엘타니아 대륙 북쪜에 자늬한 왞딎 섬 알마토.<br>
+ê·ž 땅을 지배하던 알마토 신국 역시 결계 붕ꎎ륌 틈타 엘타니아의 팚권을 거뚞쥐고자 칚공을 선얞했닀.<br>
+<br>　<br>
+읎늬하여 전란의 시대가 마칚낎 막을 올늰 것읎닀... 
+<br>　<br>
+<br>　<br>
+<hr align="center" size="1">
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a name="#2">■ 목적</a></font></b></font>
+<br>　<br>
+특별히 정핎진 것은 없습니닀.<br>플레읎얎의 선택에 달렀 있습니닀.<br>
+볞 게임은 였로지 수행을 거듭하여 최강의 캐늭터가 되는 것도 좋고,<br>
+전쟁을 음윌쌜 엘타니아 대륙을 통음하는 것도 좋윌며,<br>
+하극상의 섞상 속에서 책략을 ꟞믞는 것도 좋고,<br>
+엘타니아 땅에 도사늬는 읎맀망량을 토벌하여 영웅읎 되는 것도 좋은 등,<br>
+맀우 자유도 높은 플레읎 방식을 지원합니닀.
+<br>　<br>
+<br>　<br>
+<hr align="center" size="1">
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a name="#3">■ 능력치(슀탯) 섀명</a></font></b></font>
+<br>　<br>
+<b>NAME(읎늄)</b> - 플레읎얎의 읎늄<br>
+<br>　<br>
+<b>LEVEL(레벚)</b> - 플레읎얎의 레벚 (레벚 × 레벚 × 10만큌 겜험치륌 쌓윌멎 1레벚 상승)<br>
+<br>　<br>
+<b>첎력(HP)</b> - 캐늭터의 생명력. 읎 수치가 0읎 되멎 전투에서 팚배합니닀.<br>
+<br>　<br>
+<b>정신(MP)</b> - 캐늭터의 정신력. 읎륌 소비하여 닀양한 필삎Ʞ륌 사용할 수 있습니닀.<br>
+<br>　<br>
+<font color="#FF0000">*죌의 - 볞 게임에는 HP 및 MP륌 슉시 회복하는 명령얎가 Ʞ볞적윌로 제공되지 않습니닀.<br>
+　　　　첎력곌 정신 몚두 1분마닀 1포읞튞씩 자연 회복됩니닀.<br>
+　　　　슉, 첎력을 10 회복하고 싶닀멎 10분을 대Ʞ하멎 됩니닀. ì°žê³ ë¡œ 새로고칚(F5)을 연타하고 있윌멎 전혀 회복되지 않습니닀. (웃음</font><br>
+<br>　<br>
+<b>UA</b> - 캐늭터의 공격력. 읎 수치가 높을수록 적에게 죌는 플핎가 컀집니닀.<br>
+<br>　<br>
+<b>UD</b> - 캐늭터의 ë°©ì–Žë ¥. 읎 수치가 높을수록 적에게 받는 플핎가 겜감됩니닀.<br>
+<br>　<br>
+<b>LR</b> - 캐늭터의 지휘력. 읎 수치가 높을수록 ë‚Žì • 횚윚 및 부대 전투력읎 상승합니닀.<br>
+<br>　<br>
+<b>GOLD(소지ꞈ)</b> - 캐늭터가 볎유한 돈. 능력치륌 올늬거나 병사륌 고용하는 데 필요합니닀.<br>
+<font color="#FF0000">　　　　　　　　　　　　　　　　　 국가에 소속되얎 있윌멎 계꞉에 따띌 6시간마닀 월꞉읎 지꞉됩니닀.<br>
+　　　　　　　　　　　　　　　　　 읎는 임ꎀ한 시점 혹은 마지막윌로 월꞉을 받은 시점윌로부터 6시간짞에 지꞉됚을 의믞합니닀.<br>
+　　　　　　　　　　　　　　　　　 따띌서 접속 없읎 12시간을 방치했닀고 í•Žì„œ 월꞉읎 2회분 누적되얎 지꞉되지는 않습니닀.<br>
+　　　　 　　　　　　　　　　　　　귞 왞에도 수행 및 전쟁에서 승늬하여 획득할 수도 있습니닀.</font><br>
+<br>　<br>
+<b>겜험치</b> - 캐늭터의 겜험치. 음정 수치까지 쌓윌멎 레벚읎 상승합니닀.<br>
+<br>　<br>
+<b>칭혞</b> - 현재 캐늭터가 획득한 칭혞입니닀。<br>
+<br>　<br>
+<b>묎구</b> - 현재 캐늭터가 장착 쀑읞 장비입니닀. 장착 시 전투 쀑의 음반 공격력읎 강화됩니닀. 묎구는 당 하나만 소지할 수 있습니닀。<br>
+<br>　<br>
+<b>도구</b> - 현재 캐늭터가 소지하고 있는 아읎템입니닀. 전투 쀑에 사용할 수 있습니닀. 도구는 당 하나만 소지할 수 있습니닀。<br>
+<br>　<br>
+<b>소속</b> - 캐늭터의 현재 소속 국가입니닀. 소속된 국가가 있닀멎 국가 읎늄읎, 방랑 상태띌멎 '묎소속'윌로 표시됩니닀。<br>
+<br>　<br>
+<b>병력 수</b> - 캐늭터가 통솔하는 부대의 최대 병력 수입니닀. 계꞉에 따띌 지휘할 수 있는 부대 규몚가 닀늅니닀。<br>
+<br>　<br>
+<b>RANK(계꞉)</b> - 캐늭터의 현재 계꞉입니닀. 국가 낎정에 종사하거나 전쟁에서 승늬하멎 상승합니닀。<br>
+<br>　<br>
+<b>쎝 êµ­ë ¥</b> - 현재 각 국가의 종합적읞 êµ­ë ¥ 수치입니닀. 읎 수치에 따띌 월꞉읎 슝감합니닀. 또한 얎느 한 국가의 국력읎 10,000을 돌파하멎 게임읎 음닚 완전히 종료(큎늬얎)됩니닀。<br>
+ 　　　　　　 게임 큎늬얎 시 몚든 국가 데읎터는 쎈Ʞ 상태로 재섀정되지만, 캐늭터 데읎터는 볎졎됩니닀<br>
+<br>　<br>
+<b>囜家予算</b> - 현재 각 국가의 예산 잔액입니닀. 예산읎 부족하멎 전쟁을 개시할 수 없습니닀. 상업 낎정을 싀행하멎 늘얎납니닀<br>
+<br>　<br>
+<b>군량(식량)</b> - 현재 각 국가의 군량 볎유량입니닀. 군량읎 부족하멎 전쟁을 개시할 수 없습니닀. 농업 낎정을 싀행하멎 늘얎납니닀<br>
+<br>　<br>
+<b>쎝 병사 수</b> - 현재 각 국가의 예비 병력 수입니닀. 병사가 부족하멎 전쟁을 음윌킬 수 없습니닀<br>
+　　　　　　　 또한 적국읎 칚공핎 왔을 때 예비 병력읎 부족하멎 강제 '전시 징병'읎 싀행됩니닀<br>
+　　　　　　　 읎 겜우 쎝 병사 수는 방얎전에 출전하는 부대의 최대 규몚 수쀀윌로 충당되지만, 대신 국력읎 심각하게 깎읎므로 철저한 대비가 요구됩니닀<br>
+<br>　<br>
+ 　　　<font color="#FF0000">죌의 - 국가 정볎(êµ­ë ¥, 예산 등)는 몚든 플레읎얎가 공유하는 자원입니닀</font><br>
+<br>　<br>
+<b>정원</b> - 각 국가별 최대 수용 읞원입니닀. 정원을 쎈곌하멎 음시적윌로 신규 입국읎 제한됩니닀<br>
+<br>　<br>
+<hr align="center" size="1">
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a name="#4">■ 명령얎 섀명</a></font></b></font>
+<br>　<br>
+<b>수행</b> - 등록된 캐늭터듀곌의 대전 몚드입니닀. 소속 국가 제한 없읎 읎용할 수 있습니닀<br>
+　　　　　　 목록에서 대전 상대륌 지목하여 전투륌 치륎며, 승늬 시 돈곌 겜험치륌 획득합니닀<br>
+　　　　　　 당, 대전자와 볞읞 캐늭터의 레벚 찚읎에 따띌 획득하는 ꞈ액곌 겜험치가 크게 달띌지므로 죌의하십시였<br>
+<br>
+ 　　　　　<b>전투 방식</b> -<br>
+<br>
+ 　　　　　　　　수행 시의 전투는 Ʞ볞적윌로 유저가 선제 공격권을 가지며, 턎마닀 교대로 타격을 죌고받습니닀<br>
+ 　　　　　　　　처음에는 '공격' 컀맚드만 활성화되얎 있윌나, 레벚읎 였늄에 따띌 닀양한 Ʞ술 컀맚드가 추가됩니닀<br>
+ 　　　　　　　　읎륌 '특수Ʞ'띌고 부륎며, RPG 장륎의 마법읎나 슀킬에 핎당합니닀<br>
+ 　　　　　　　　정신(MP)을 소몚하지만 대당히 강력하므로 전투륌 닚숚에 끝낎고 싶을 때 활용하멎 유용합니닀<br>
+ 　　　　　　　　찞고로 특수Ʞ는 레벚읎 5의 배수가 될 때마닀 습득합니닀. (Lv.5, Lv.10, Lv.15...)<br>
+<font color="#FF0000"> 　　　　　　　　계꞉읎 '상꞉Ʞ사' 읎상에 도달하멎 '계꞉Ʞ'띌는 전용 Ʞ술을 구사할 수 있게 됩니닀<br>
+ 　　　　　　　　계꞉Ʞ는 캐늭터의 레벚곌 묎ꎀ하게 사용읎 가능합니닀. 계꞉Ʞ는 쎝 4종류가 졎재합니닀</font><br>
+ 　　　　　　　　○ - <a href="./st.html">특수Ʞ·계꞉Ʞ 섀명</a><br>
+ 
+<br>　<br>
+<b>ë‚Žì •</b> - 국가에 소속된 겜우에만 싀행할 수 있는 명령얎입니닀<br>
+<br>
+ 　　　　 <b>농업</b> - 식량을 재배하여 국가의 군량을 비축합니닀<br>
+ 　　　　 <b>상업</b> - 상업 활동을 활성화하여 국가 예산을 확볎합니닀<br>
+ 　　　　 <b>군비</b> - 닀가올 전쟁에 대비핎 군비륌 확장합니닀<br>
+ 　　　　 <b>군비 명령얎</b> - 군비 강화륌 진행합니닀<br>
+ 　　　　　　　　　　<b>병사 고용</b> - 부대원을 몚집합니닀. 읎때 지출되는 자ꞈ은 캐늭터의 소ꞈ(GOLD)입니닀<br>
+ 　　　　　　　　　　<b>부대 훈령</b> - 거느늬고 있는 부대원을 훈렚합니닀. 최대 훈령도는 100입니닀<br>
+ 　　　　<br>
+ 　　　　 낎정을 수행하멎 캐늭터의 공헌도(평가)가 쌓읎고, Ʞ쀀치륌 돌파할 때마닀 계꞉읎 상승합니닀<br>
+ 　　　　 계꞉읎 였륎멎 월꞉읎 였륎고, 읞솔할 수 있는 부대의 최대 병력 수도 슝가합니닀<br>
+ 　　　　 ì°žê³ ë¡œ 묎소속 상태에서는 계꞉도, 월꞉도 졎재하지 않윌며 부대륌 소유할 수도 없습니닀<br>
+<font color="#FF0000"> 　　　　 계꞉읎 상꞉Ʞ사 읎상읞 겜우, ë‚Žì • 명령을 낮멮 때마닀 포상ꞈ을 받습니닀<br>
+ 　　　　 포상ꞈ은 계꞉읎 올띌갈수록 액수가 높아집니닀</font><br>
+ 
+<br>
+ <b>부대 훈령</b> -<br>
+<br>
+ 　　　　 거느늬고 있는 부대륌 훈렚시킵니닀. 훈렚도가 높을수록 싀제 전쟁 시 부대의 종합 능력치가 큰 폭윌로 볎강됩니닀<br>
+<br>　<br>
+<b>전쟁</b> - 국가에 소속되얎 있을 때만 Ʞ획할 수 있는 명령얎입니닀<br>
+ 　　　　 출전하렀는 쎝 병력 대비 국가 예산 1/10 읎상, 군량읎 1/1 읎상 확볎되얎 있윌멎 타국을 공격할 수 있습니닀<br>
+ 　　　　 적국을 쳐듀얎가 승늬륌 거두멎 상대국의 국력을 강탈할 수 있습니닀. 국력은 영토의 개념윌로 읎핎하시멎 펞합니닀<br>
+<br>
+ 　　　　 전쟁읎 발발하멎 ë°©ì–Ž ìž¡ 국가에서 묎작위로 선별된 유저 캐늭터 혹은 NPC 부대가 수비대로 출현합니닀<br>
+<br>
+ 　　　　 <b>- 전쟁 수행 절찚 -</b><br>
+<br>
+ 　　　　 전쟁 시에는 가위바위볎와 유사한 속성 연쇄 방식윌로 전투륌 치늅니닀<br>
+<br>
+ 　　　　 공격 진형 → ë°©ì–Ž 진형 → 돌격 진형 → 공격 진형 ...<br>
+<br>
+ 　　　　 슉, 적 부대가 ë°©ì–Ž 진형음 때 아군읎 공격 진형을 선택하멎 적에게 치명적읞 플핎륌 입힐 수 있윌나,<br>
+ 　　　　 반대로 적읎 공격 진형음 때 ë°©ì–Ž 진형을 ì·ší•Ž 버늬멎 아군 부대가 막대한 ꎎ멞 플핎륌 입게 됩니닀<br>
+<br>
+ 　　　　<b>- 음대음 결투 (음Ʞ토) -</b><br>
+<br>
+ 　　　　　전투 진행 상황에 따띌 적장윌로부터 음대음 결투 신청읎 듀얎였는 겜우가 있습니닀<br>
+ 　　　　　결투 신청을 거절하든 수띜하든 자유지만 거절하멎 평판읎 소폭 하띜하고, 수띜하멎 앜간 상승합니닀<br>
+ 　　　　　결투 방식은 수행 몚드와 동음합니닀. 적의 첎력(HP)을 뚌저 0윌로 만드는 쪜읎 승늬합니닀<br>
+ 　　　　　결투에서 읎Ʞ멎 평판 점수가 크게 가산되지만, 팚배하멎 대량 감점되므로 신쀑하게 판닚하십시였<br>
+<br>
+ 　　　　전쟁을 치륎멎 승팚에 상ꎀ없읎 겜험치와 자ꞈ을 얻지만, 전장에서 도쀑에 퇎각하멎 아묎런 볎상도 받지 못합니닀<br>
+ 　　　　닀만 퇎각할 겜우 삎아낚은 병력은 핎당 시점 Ʞ쀀윌로 고슀란히 아국의 쎝 병력윌로 볎졎되얎 반환되므로, 도저히 읎Ꞟ 수 없는 강적을 만났닀멎 묎늬하지 않고 후퇮하는 펞읎 현명합니닀<br>
+ 　　　　끝까지 버티닀 부대가 완전히 ì „ë©ž(병력 0)하멎 아죌 적은 량의 돈곌 겜험치는 볎전되겠윌나,<br>
+ 　　　　나띌 전첎의 쎝 예비 병력풀에서 핎당 출전 부대의 ì „ë©ží•œ 규몚만큌 고슀란히 날아가 버늬게 됩니닀<br>
+ 　　　　병사 자원은 국가에 속한 몚든 플레읎얎의 공유 자산임을 잊지 마시고 전략적윌로 움직여 죌십시였<br>
+<br>　<br>
+<b>능력</b> - 캐늭터의 슀탯 강화 명령얎입니닀. 소속 국가 제한읎 없습니닀<br>
+ 　　　　 자ꞈ 10,000G륌 지불하여 각 슀탯(HP, MP, UA, UD, LR)을 직접 육성할 수 있습니닀<br>
+ 　　　　 능력치별 최대 육성 한도는 첎력/정신읎 9,999읎며, 나뚞지 슀탯은 999까지 올늎 수 있습니닀<br>
+<br>　<br>
+<b>임ꎀ/하알</b> - 캐늭터륌 특정 국가에 충성 서앜(임ꎀ)시킀거나 하알하여 ë°©ëž‘êžž(묎소속)에 나섀 때 쓰읎는 메뉎입니닀<br>
+ 　　　　 처음 가입하멎 몚든 플레읎얎가 묎소속 상태로 시작합니닀<br>
+ 　　　　 원하시는 국가륌 정한 ë’€ 읎 명령얎로 임ꎀ하시Ʞ 바랍니닀<br>
+ 　　　　 닚얞컚대 묎소속윌로 지낎는 동안에는 성장에 ì–Žë– í•œ 메늬튞도 죌얎지지 않습니닀<br>
+ 　　　　 또한 타국윌로 망명할 시에는 소속 계꞉읎 1~5닚계 강등되므로 죌의륌 요합니닀<br>
+<font color="#FF0000"> 　　　　임ꎀ은 레벚 2부터 가능합니닀<br>
+ 　　　　각 국가마닀 찞여할 수 있는 정원읎 한정되얎 있얎, 한도가 ì°šë©Ž 음시적윌로 가입할 수 없습니닀<br>
+ 　　　　타국윌로 망명하거나 알읞윌로 돌아갈 시 읎전 국가에 읎적료륌 치러알 합니닀. 읎적료의 음부는 직전 국가의 국가 예산윌로 펞입됩니닀<br>
+ 　　　　읎적료는 볞읞의 원래 계꞉읎 높을수록 감멎되며, êž°ì¡Ž 국가 예산윌로 êµ­ê³  볎조되는 액수의 비윚은 늘얎납니닀</font><br>
+<br>　<br>
+<b>정볎</b> - 현재 볞읞읎 소속된 국가의 현황(êµ­ë ¥ 및 재정 정볎 등)을 엎람합니닀<br>
+<br>　<br>
+<b>치료</b> - 막대한 자ꞈ을 지출하여 아군의 첎력(HP)곌 정신력(MP)을 슉석에서 완전 충전합니닀. 레벚읎 였륌수록 비용읎 슝가합니닀<br>
+ 　　　　 당, 레벚 40 읎후로는 ꞈ액읎 고정되얎 상승하지 않습니닀<br>
+<br>　<br>
+<b>믞니로또</b> - 1회당 500G륌 듀여 믞니로또 추첚에 응합니닀. ì•œ 50%의 높은 확률로 볞전을 뜑윌싀 수 있습니닀<br>
+<br>
+ 　　　　 <b>1등상</b> - 10만 G<br>
+ 　　　　 <b>2등상</b> - 5만 G<br>
+ 　　　　 <b>3등상</b> - 1만 G<br>
+ 　　　　 <b>4등상</b> - 1천 G<br>
+ 　　　　 <b>행욎상</b> - HP 혹은 MP 완전 회복<br>
+ 　　　　 <b>불행상</b> - HP 혹은 MP 절반윌로 감소<br>
+ 　　　　 <b>죄벌상</b> - 하구레메탈의 검(희귀 장비)<br>
+<br>　<br>
+<b>토벌</b> - 엘타니아 전역을 활개치는 ꎎ수와 흉악한 읎맀망량듀을 소탕합니닀<br>
+ 　　　　 토벌을 완수하멎 귞에 따륞 공적치와 엄청난 현상ꞈ을 손에 넣습니닀. 당, 출현하는 몬슀터듀은 묎시묎시하게 강력합니닀<br>
+ 　　　　 끊임없읎 몬슀터 사냥을 성공시쌜 대륙의 불멞의 영웅 반엎에 올띌 볎십시였<br>
+ 　　　　 또한 토벌 도쀑 맀우 낮은 확률로 필드 전용 유니크 묎구나 히든 아읎템을 녾획할 수 있습니닀<br>
+<br>　<br>
+<b>군사</b> - 적대국을 앜화시킀Ʞ 위한 특수 파ꎎ 및 첩볎 공작 전략입니닀<br>
+<br>
+ 　　　　 <b>첩볎</b> - 적국 심장부에 간첩을 투입하여 유통망을 마비시킀고 상대 국가의 재정을 몰수합니닀<br>
+ 　　　　 <b>강탈</b> - 겜비가 허술한 적진 볎꞉찜을 Ʞ습하여 적국의 식량(군량)을 가로챕니닀<br>
+ 　　　　 <b>섞뇌</b> - 적국의 수비대 대원듀을 교묘하게 유읞 및 섞뇌하여 아군윌로 전향시킵니닀. 적의 징집 병력을 빌앗아 옵니닀<br>
+<br>　<br>
+<br>　<br>
+<hr align="center" size="1">
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a name="#5">■ 메뉎 섀명</a></font></b></font>
+<br>　<br>
+<b>국제 교류 죌점</b> - 플레읎얎 친목 도몚륌 위한 싀시간 채팅방. 현재는 거의 사용되지 않는 분위Ʞ지만...<br>
+<br>　<br>
+<b>국제 교류 ꎑ장</b> - 유저 간 자유로욎 소통곌 정볎 교류륌 나누는 자유 게시판입니닀<br>
+<br>　<br>
+<b>各囜䜜戊䌚議</b> - 아국 동맹원듀끌늬만 사용하는 비공개 작전 볞부입니닀. 묎소속은 입장할 수 없습니닀<br>
+<br>　<br>
+<b>쇌핑몰</b> - 장비 및 아읎템 거래소, ꞈ융 대출 및 Ʞ타 부가 시섀읎 입점한 종합 상가 구역입니닀.
+<br>　<br>
+ 　　　　 <b>묎구 상점</b> - 전투용 묎Ʞ 및 방얎구륌 구맀하거나 불필요한 묎구륌 처분합니닀<br>
+ 　　　　 <b>도구 상점</b> - 음회성 소비 아읎템읎나 유틞늬티 도구륌 거래합니닀<br>
+ 　　　　 <b>ꞈ융(대출)</b> - ꞉전읎 필요할 때 자ꞈ을 빌늜니닀. 당, 채묎가 ë‚šì•„ 있는 동안에는 불명예슀러욎 '낙읞'읎 찍힙니닀<br>
+ 　　　　　　　　　　　　　　　　낙읞 칭혞가 유지되는 동안에는 게임 낮 음부 윘텐잠나 행동 제앜읎 따륎게 되니 맀우 유의하셔알 합니닀<br>
+ 　　　　　　　　　　　　　　　　또한 채묎 잔액에는 상응하는 읎자가 복늬로 발생하므로 최대한 신속하게 상환하시Ʞ륌 권장합니닀.
+<br>　<br>
+<b>공식 ì¡°ì•œ</b> - 각 ì„žë ¥ 간의 동맹, 평화 협정 및 공동 조앜을 게시하는 공간입니닀. 마찬가지로 거의 사용되지 않지만...<br>
+<br>　<br>
+<b>명예의 전당</b> - 읎전 띌욎드에서 화렀한 활앜을 펌치며 승늬륌 장식했던 Ʞ록듀을 연대Ʞ 형태로 제공합니닀<br>
+<br>　<br>
+<br>　<br>
+<hr align="center" size="1">
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a name="#6">■ 도움말(ì°žê³ )</a></font></b></font>
+<br>　<br>
+죄와 벌<sup>++</sup>은 닀쀑 계정(닀쀑 등록)을 시슀템상윌로 쉜게 몚니터링하고 ì°Ÿì•„ë‚Œ 수 있습니닀<br>
+따띌서 닀쀑 가입은 절대 엄ꞈ하며, 적발 시 예왞 없읎 전 계정 삭제 처늬하였니 읎용 규칙을 쀀수핎 죌십시였<br>
+ì°žê³ ë¡œ 서버의 최대 ì°žê°€ 허용 정원은 170명입니닀<br>
+<br>　<br>
+<br>　<br>
+<br>　<br>
+<br>　<br>
+<br>　<br>
+<br>　<br>
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a href="../index.cgi">■ 메읞 화멎윌로 돌아가Ʞ</a></font></b></font>
+</body>
 </html>
\ No newline at end of file
diff --git a/html/Help_i.html b/html/Help_i.html
index 89ca528..23561d6 100644
--- a/html/Help_i.html
+++ b/html/Help_i.html
@@ -1,120 +1,121 @@
-<html>
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
-<title>à–Ÿ‘[ÓÊ޲ٔÅ]</title>
-</head>
-<body bgcolor="#000000" text="#eeeeee" link="#ccccff" vlink="#ccccff" alink="#ccccff">
-<a href="../index.cgi" ACCESSKEY="9">[9] įÌ߂ɖ߂é</a>
-<hr color="white">
-<a name="#0">à–Ÿ‘</a>
-<br>
-<a href="#1" accesskey="1">[1] ‚Ç‚ñ‚ȹްÑ?</a>
-/<a href="#2" accesskey="2">[2] œÃ°Àœà–Ÿ</a>
-/<a href="#3" accesskey="3">[3] ºÏÝÄÞà–Ÿ</a>
-/<a href="#4" accesskey="4">[4] ÒÆ­°à–Ÿ</a>
-/<a href="./st_i.html" accesskey="5">[5] ŠK‹‰¥“ÁŽê‹Z</a>
-
-<hr color="white">
-<a name="#1">1 ‚Ç‚ñ‚ȹްÑ?</a>
-<pre>
-ß‚Æ”±++ ‚Í€—I‹v‚Ì‘å’n¢ŽÙÀƱ£‚ð•‘‘ä‚Æ‚·‚éÏÙÁÌßÚ²RPG‚Å‚·¡
-‚±‚̹ްтɂ͖ړI‚ª‚ ‚è‚Ü‚¹‚ñ¡Ž©‚ç‚ð’b‚ŠÅ‹­‚Ì·¬×‚Ɉç‚Ä‚Š‚é‚à—Ç‚µ€‘‚ɏŠ‘®‚µ‚ÄŽÙÀƱ‚Ì”eŒ ‚ð‘_‚€‚à—Ç‚µ€é³–£é±é²‚ð“¢”°‚µ‚ĉp—Y‚É‚È‚é‚Ì‚à—Ç‚µ‚Æ€ÌßÚ²Ô°‚ÍŽ©—R‚ɍs“®‰Â”\‚Å‚·¡ 
-‚Ü‚œ€ÌßÚ²Ô°ŠÔ‚̺Эƹ°Œ®Ý‚ªÅ‚àd—v‚ÈÎß²ÝĂƂȂÁ‚Ä‚¢‚é‚œ‚߀a‚¢¹Þ°Ñ‚ÌŠ„‚É‚Í€‰œŒÌ‚© ¶¯Ìßّ±o‚Ì‚°`‚Þ ‚Å‚·¡ 
-</pre>
-<a href="#0" accesskey="0">[0] æ“ª‚É–ß‚é</a>
-<hr color="white">
-<a name="2">2 œÃ°Àœà–Ÿ</a>
-<pre>
-NM - –Œ‘O
-LV - ÚÍÞÙ &gt;&gt;ÚÍÞف~ÚÍÞف~10‚Å1ÚÍÞÙUP
-HP - ¶–œ—Í
-MP - ž_—Í &gt;&gt;“ÁŽê‹Z¥ŠK‹‰‹Z‚É•K—v
-UA - UŒ‚—Í
-UD - –hŒä—Í
-LR - ŽwŠö—Í &gt;&gt;­Ž¡Œø—Š¥•”‘à”\—͂ɉe‹¿
-GOLD - ŠŽ‹à 
-ŒoŒ±’l - ÚÍÞÙ±¯Ì߂ɕK—v
-Ì† - Žæ“Ÿ‚µ‚Ä‚¢‚éÌ†
-•‹ï - ‘•”õ‚µ‚Ä‚¢‚镐‹ï
-“¹‹ï - ŠŽ‚µ‚Ä‚¢‚铹‹ï
-Š‘® - ‘Ð &gt;&gt;•ú˜Q‚µ‚Ä‚¢‚é‚Æ–³Š‘®
-•º” - ŽwŠö‚µ‚Ä‚¢‚é•”‘à‚̍ő啺” &gt;&gt; ŠK‹‰‚É‚æ‚葝Œž
-ŠK‹‰ - Œ»Ý‚ÌŠK‹‰ &gt;&gt;“à­‚âí‘ˆ‚ɏŸ—˜‚·‚é‚Ə㏞
-
-‘‘—Í - ‚±‚̐”’l‚Å‹‹—^‚ª‘Œž‚µ‚Ü‚·¡Šù’è’l‚É’B‚·‚é‚ƹްўر‚É‚È‚èA‘ÃÞ°À‚ª‘‚úó‘Ô‚É–ß‚é¡·¬×žÀÃÞ°À‚͕ω»‚µ‚È‚¢¡
-‘‰Æ—\ŽZ - í‘ˆ‚ð‹N‚±‚·‚Ì‚É•K—v¡€‹Æ‚ð‚š‚±‚È‚€‚Æ‘‰Á
-•º—Æ - í‘ˆ‚ð‹N‚±‚·‚Ì‚É•K—v¡”_‹Æ‚ð‚š‚±‚È‚€‚Æ‘‰Á
-‘•ºŽm” - í‘ˆ‚ð‹N‚±‚·‚Ì‚É•K—v¡­‚È‚¢‚Æ“G‚ɍU‚ߍž‚Ü‚ê‚œŽž‚ɍ‘—Í‚ª’˜‚µ‚­’ቺ‚·‚éê‡‚ª‚ ‚é
-</pre>
-<a href="#0" accesskey="0">[0] æ“ª‚É–ß‚é</a>
-<hr color="white">
-<a name="3">3 ºÏÝÄÞà–Ÿ</a>
-<pre>
-Cs - “o˜^·¬×žÀ‚Ƃ̑ΐí
-C‹ÆŽž‚̐퓬‚ÍÌßÚ²Ô°·¬×žÀæU‚ÅŒðŒÝ‚ɍUŒ‚‚ðŒJ‚è•Ô‚µ‚čs‚í‚ê‚é¡
-ºÏÝÄނ͍ŏ‰‚́wUŒ‚xºÏÝÄނµ‚©‚ ‚è‚Ü‚¹‚ñ‚ª€ÚÍÞقªã‚ª‚Á‚Ä‚¢‚­‚Æ“ÁŽê‹Z‚ª—˜—p‰Â”\B
-ž_‚ðÁ”‚Ü‚·‚ª€“ÁŽêºÏÝÄނ͋­—͂ȍUŒ‚‚È‚Ì‚Å’ZŠú‚ÉŒˆ’…‚ð‚‚¯‚œ‚¢ê‡‚È‚Ç‚ÉŽg‚€‚Æ—Ç‚¢
-“ÁŽê‹Z‚ÍÚÍÞقª5‚Ì”{”‚Šo‚Š‚é¡LV5€LV10€LV15c
-ŠK‹‰‚ªã‹‰‹RŽmˆÈã‚Ì¢ŠK‹‰‹Z£‚ðŽg—p‰Â”\¡
-ŠK‹‰‹Z‚ÍÚÍÞقɊ֌W‚È‚­Žg—p‰Â”\¡4Ží—Þ‚ÌŠK‹‰‹Z‚ª‘¶Ý‚·‚é
-
-“à­ - ‘‚ɏŠ‘®‚µ‚Ä‚¢‚éê‡‚ÉŽÀs‰Â”\‚ȺÏÝÄÞ
-”_‹Æ - •º—Æ‘‰Á
-€‹Æ - ‘‰Æ—\ŽZ‘‰Á
-ŒR”õ - í‘ˆ‚É”õ‚ŠŒR”õ‚Ì‹­‰»
-ŒR”õºÏÝÄÞ -
-¥•º‚ðŒÙ‚€ - •º‚ðŒÙ‚€¡Žg‚í‚ê‚é‚Ì‚Í·¬×žÀŽ‚¿‚Å‚·¡
-¥•º‚ðŒP—û‚·‚é - ·¬×žÀ‚Ì•”‘à‚Ì•º‚ðŒP—û¡Å‘å‚Í100¡
-¥•º‚ðŒP—û‚·‚é - ·¬×žÀ‚Ì—Š‚¢‚é•”‘à‚ðŒP—û¡ŒP—û‚·‚鎖‚Ő푈Žž‚Ì•”‘à”\—Í‚ªãž¡
-
-í‘ˆ - ‘Š‘®‚̏ꍇ‚ÉŽÀs‰Â”\
-·¬×žÀ‚Ì•”‘à‘”‚ɑ΂µ‚č‘‰Æ—\ŽZ‚ª1/10 •º—Æ‚ª1/1ˆÈã‚ ‚ê‚ΑŒ‘‚ɍU‚ߍž‚ß‚é¡
-“G‘‚ɍU‚ߍž‚ݏŸ—˜‚·‚鎖‚Å“G‘‚̍‘—Í‚ð’D‚Š‚é¡
-í‘ˆ‚ªŽn‚Ü‚é‚Æ“G‘‚©‚ç“K“–‚É‘I‚΂ꂜÌßÚ²Ô°·¬×žÀ€‚Ü‚œ‚ÍNPC‚ª–h‰q•”‘à‚Æ‚µ‚ďoŒ»¡
-- í‘ˆ‚̐i‚ß•û -
-í‘ˆ‚ł͌ެݹ݂̗v—̂Ő퓬‚ðs‚€¡
-UŒ‚wŒ`š–hŒäwŒ`š“ËŒ‚wŒ`šUŒ‚wŒ`c
-‚Æ‚¢‚€‹ï‡‚É€“G‚ª–hŒäwŒ`Žž‚ɍUŒ‚wŒ`‚ðŽæ‚ê‚΀‘ŠŽè‚É‘œ‘å‚È‘¹ŠQ‚ð—^‚Š‚鎖‚ª‚Å‚«€
-”œ‘΂ɓG‚ªUŒ‚wŒ`Žž‚É–hŒäwŒ`‚ðŽæ‚Á‚Ä‚µ‚Ü‚€‚Æ€Ž©•”‘à‚ɐr‘å‚È”íŠQ‚ª‚Å‚Ä‚µ‚Ü‚€¡
-- ˆê‹R“¢‚¿ -
-’f‚é‚Æ•]‰¿‚ª­‚µ‰º‚ª‚èAŽó‚¯‚ê‚Ώ­‚µãž¡
-ˆê‹R“¢‚¿‚ɏŸ—˜‚·‚é‚Æ‘œ‚ß‚É•]‰¿’l‚ªãž‚µ€•‰‚¯‚é‚Æ‘œ‚ß‚ÉŒž­¡
-Ÿ‚Á‚Ä‚à•‰‚¯‚Ä‚àŒoŒ±’l‚Æ‚š‹à‚ªŽè‚É“ü‚邪€“P‘Þ‚Í–³•ñV¡
-‚œ‚Ÿ“P‘Þ‚·‚ê‚Εº—Í‚Í‚»‚ÌŽž“_‚̐”’l‚ō‘‚Ì‘•ºŽm”‚É–ß‚é‚©‚瀏Ÿ‚Ä‚È‚¢‘ŠŽè‚̏ꍇ‚Í“P‘Þ‚µ‚œ•û‚ª—˜Œû¡
-
-”\—Í - ”\—͏㏞ºÏÝÄށBŠ‘®‚É‚æ‚鐧ŒÀ‚È‚µ¡
-
-ŽdŠ¯ - ‘‚ÉŽdŠ¯‚µ‚œ‚耕ú˜Q‚̐g‚É‚È‚Á‚œ‚è‚·‚é¡
-–³Š‘®‚µ‚Ä‚¢‚Ä‚à—Ç‚¢Ž–‚͂ЂƂ‚à‚È‚¢¡ŽdŠ¯‚ÍÚÍÞÙ2‚©‚ç
-
-î•ñ - Œ»ÝŠ‘®‚µ‚Ä‚¢‚鍑‚̏î•ñ
-
-‰ñ•œ - HP/MP‚ðuŽž‚É‘S‰ñ•œ
-
-•ó‚­‚¶ - 1‰ñ500G
-ˆë“™10–œG/“ó“™5–œG/ŽQ“™1–œG/Žl“™1çG/K‰^ HP‚à‚µ‚­‚ÍMP‘S‰ñ•œ/•sK HP MP”ŒŒž/ß”± ÊžÞÚÒÀق̌•
-
-“¢”° - 鳖£é±é²‚𐪔°¡
-“¢”°‚ɐ¬Œ÷‚·‚é‚Æ’nˆÊ‚Ə܋à‚ðŠl“ŸB
-‚²‚­‹H‚ɉB‚µ•‹ï‚â‰B‚µ±²Ãт𗎂Ƃ·‚±‚Æ‚ª‚ ‚é¡
-‘œ‚­“¢”°‚·‚é‚Ɖp—Y‚É‚È‚ê‚é¡
-
-ŒRŽ– - “G‘‚ɑ΂·‚éí—ª
-’³•ñ - ‘‰Æ—\ŽZ‚ð’DŽæ
-‹­’D - •º—Æ‚ð’DŽæ
-ô”] - “G‘‚Ì•ºŽm”‚ð’DŽæ
-</pre>
-<a href="#0" accesskey="0">[0] æ“ª‚É–ß‚é</a>
-<hr color="white">
-<a name="4">4 ÒÆ­°à–Ÿ</a> 
-<pre>
-Œð—¬Lê - ÌßÚ²Ô°“¯Žm‚̌𗬏ê
-ìí‰ï‹c - ìí‰ï‹cŽº¡–³Š‘®‚Í—˜—p•s‰Â¡
-Œ®¯ËßÝžÞ - •‹ï‚⓹‹ï‚Ì”„”ƒ€‚š‹à‚Ì—ZŽ‘‚È‚Ç¡ 
-‹à—Z‚ÅŽØ‹à‚ð‚·‚é‚ƕԍς܂Åà€ˆó‚̏̍†‚ª•t‰Á‚³‚êA‚¢‚­‚‚©‚̍s“®‚ª§ŒÀ‚³‚ê‚é‚Ì‚Å’ˆÓ¡ 
-ŒöŽ®ð–ñ - Še‘ŠÔ‚ÅŒ‹‚ñ‚Ÿð–ñ‚⓯–¿‚È‚Ç
-‰ß‹Ž‚̉hŒõ - ‰ß‹Ž‚ɍs‚í‚ê‚œŠe‘‚̍U–h‚Ì‹L˜^
-</pre>
-<a href="#0" accesskey="0">[0] æ“ª‚É–ß‚é</a>
-</body>
-</html>
+<html>
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+<title>섀명서 [몚바음 버전]</title>
+</head>
+<body bgcolor="#000000" text="#eeeeee" link="#ccccff" vlink="#ccccff" alink="#ccccff">
+<a href="../index.cgi" ACCESSKEY="9">[9] 메읞 화멎윌로</a>
+<hr color="white">
+<a name="#0">섀명서</a>
+<br>
+<a href="#1" accesskey="1">[1] ì–Žë–€ 게임읞가요?</a>
+/<a href="#2" accesskey="2">[2] 슀탯 섀명</a>
+/<a href="#3" accesskey="3">[3] 명령얎 섀명</a>
+/<a href="#4" accesskey="4">[4] 메뉎 섀명</a>
+/<a href="./st_i.html" accesskey="5">[5] 계꞉·특수Ʞ</a>
+
+<hr color="white">
+<a name="#1">1 ì–Žë–€ 게임읞가요?</a>
+<pre>
+죄와 벌++은 유구한 대지 '엘타니아'륌 묎대로 하는 멀티플레읎 RPG입니닀.
+읎 게임에는 정핎진 목적읎 없습니닀. 자신을 닚렚하여 최강의 캐늭터로 킀우는 것도 좋고, 국가에 소속되얎 엘타니아의 팚권을 녞늬는 것도 좋윌며, 읎맀망량을 토벌하여 영웅읎 되는 것도 좋은 등 플레읎얎는 자유롭게 행동할 수 있습니닀. 
+또한 플레읎얎 간의 컀뮀니쌀읎션읎 가장 쀑요한 포읞튞읎Ʞ 때묞에, 겉볎Ʞ와 달늬 왠지 몚륎게 컀플읎 속출하는 게임읎Ʞ도 합니닀. 
+</pre>
+<a href="#0" accesskey="0">[0] 처음윌로</a>
+<hr color="white">
+<a name="2">2 슀탯 섀명</a>
+<pre>
+NM - 읎늄
+LV - 레벚 >> 레벚 × 레벚 × 10만큌 겜험치륌 쌓윌멎 1레벚 상승
+HP - 생명력
+MP - 정신력 >> 특수Ʞ·계꞉Ʞ에 필요
+UA - 공격력
+UD - ë°©ì–Žë ¥
+LR - 지휘력 >> ë‚Žì • 횚윚·부대 능력에 영향
+GOLD - 소지ꞈ 
+겜험치 - 레벚업에 필요
+칭혞 - 획득한 칭혞
+묎구 - 장착 쀑읞 묎구
+도구 - 소지 쀑읞 도구
+소속 - 국적 >> 방랑 시 묎소속윌로 표시
+병력 수 - 지휘 쀑읞 부대의 최대 병력 수 >> 계꞉에 따띌 슝감
+계꞉ - 현재 계꞉ >> ë‚Žì • 수행읎나 전쟁 승늬 시 상승
+
+쎝 êµ­ë ¥ - 읎 수치에 따띌 월꞉읎 슝감합니닀. 목표치에 도달하멎 게임 큎늬얎가 되며, 몚든 국가 데읎터는 쎈Ʞ화됩니닀. 캐늭터 데읎터는 볎졎됩니닀.
+국가 예산 - 전쟁을 음윌킀는 데 필요. 상업 낎정을 하멎 슝가
+군량 - 전쟁을 음윌킀는 데 필요. 농업 낎정을 하멎 슝가
+쎝 병사 수 - 전쟁을 음윌킀는 데 필요. 부족하멎 적의 칚공 시 국력읎 큰 폭윌로 감소할 수 있음
+</pre>
+<a href="#0" accesskey="0">[0] 처음윌로</a>
+<hr color="white">
+<a name="3">3 명령얎 섀명</a>
+<pre>
+수행 - 등록된 캐늭터와의 대전
+수행 쀑의 전투는 플레읎얎 캐늭터 선공윌로 턎마닀 교대로 공격을 죌고받습니닀.
+컀맚드는 처음에는 '공격' 컀맚드만 있지만, 레벚읎 였륎멎 특수Ʞ륌 사용할 수 있습니닀.
+정신을 소몚하지만 강력한 Ʞ술읎므로 전투륌 빚늬 끝낎고 싶을 때 유용합니닀.
+특수Ʞ는 레벚읎 5의 배수가 될 때마닀 배웁니닀. Lv.5, Lv.10, Lv.15...
+계꞉읎 상꞉Ʞ사 읎상읎멎 '계꞉Ʞ'륌 사용할 수 있습니닀.
+계꞉Ʞ는 레벚곌 묎ꎀ하게 사용할 수 있윌며, 4종류의 계꞉Ʞ가 졎재합니닀.
+
+ë‚Žì • - 국가 소속 상태음 때 싀행할 수 있는 명령얎
+농업 - 군량 슝가
+상업 - 국가 예산 슝가
+군비 - 전쟁 대비 군비 강화
+군비 명령얎 -
+· 병사 고용 - 부대원을 고용합니닀. 소몚되는 자ꞈ은 캐늭터의 소지ꞈ입니닀.
+· 부대 훈령 - 아군 부대륌 훈렚합니닀. 최대 수치는 100입니닀.
+· 부대 훈령 - 거느늰 부대륌 훈렚하며, 훈렚도에 따띌 전쟁 시 부대 전투력읎 상승합니닀.
+
+전쟁 - 국가 소속 상태음 때 싀행 가능
+출전할 부대 규몚 대비 국가 예산 1/10 읎상, 군량 1/1 읎상 볎유 시 타국을 칚공할 수 있습니닀.
+적국을 칚략하여 승늬하멎 상대국의 국력을 뺏얎옵니닀.
+전쟁읎 개시되멎 적국에서 임의로 선정된 유저 캐늭터 혹은 NPC 부대가 수비대로 출현합니닀.
+- 전쟁 수행 절찚 -
+전쟁 시에는 가위바위볎와 비슷한 상성 방식윌로 전투륌 치늅니닀.
+공격 진형 → ë°©ì–Ž 진형 → 돌격 진형 → 공격 진형 ...
+슉, 적읎 ë°©ì–Ž 진형음 때 아군읎 공격 진형을 선택하멎 큰 플핎륌 쀄 수 있윌며,
+반대로 적읎 공격 진형음 때 ë°©ì–Ž 진형을 ì·ší•Ž 버늬멎 아군 부대가 막대한 플핎륌 입게 됩니닀.
+- 음대음 결투 (음Ʞ토) -
+거절하멎 평판읎 소폭 하띜하고, 수띜하멎 앜간 상승합니닀.
+결투에서 읎Ʞ멎 평판읎 크게 였륎고, 지멎 큰 폭윌로 깎입니닀.
+승팚와 묎ꎀ하게 겜험치와 자ꞈ을 받지만, 쀑도 퇎각은 볎상읎 없습니닀.
+닀만 퇎각 시에는 삎아낚은 병력읎 아군의 쎝 병력윌로 볎전되므로, 읎Ꞟ 수 없는 상대띌멎 후퇮하는 것읎 현명합니닀.
+
+능력 - 능력치 강화 명령얎. 소속 제한 없음.
+
+임ꎀ - 국가에 임ꎀ하거나 하알하여 방랑합니닀.
+묎소속윌로 있는 동안에는 읎득읎 전혀 없습니닀. 임ꎀ은 레벚 2부터 가능합니닀.
+
+정볎 - 현재 소속된 국가의 현황 정볎
+
+치료 - 첎력(HP)곌 정신력(MP)을 슉시 완전 회복
+
+믞니로또 - 1회 500G
+1등 10만 G / 2등 5만 G / 3등 1만 G / 4등 1천 G / 행욎 HP 혹은 MP 완전 회복 / 불행 HP, MP 절반 / 죄벌 하구레메탈의 검
+
+토벌 - 읎맀망량 소탕.
+토벌 성공 시 공헌도와 현상ꞈ 획득.
+극히 드묞 확률로 필드 전용 묎구나 히든 아읎템 획득 가능.
+토벌 횟수륌 쌓아 영웅읎 될 수 있습니닀.
+
+군사 - 적국에 대한 파ꎎ 공작
+첩볎 - 국가 예산 강탈
+강탈 - 군량 강탈
+섞뇌 - 적국의 수비대원 섞뇌 포섭
+</pre>
+<a href="#0" accesskey="0">[0] 처음윌로</a>
+<hr color="white">
+<a name="4">4 메뉎 섀명</a>
+<pre>
+교류 ꎑ장 - 유저 간 소통곌 교류륌 위한 공간
+작전 회의 - 국가별 작전볞부. 묎소속 입장 불가.
+쇌핑 - 묎구 및 도구 거래, 대출 등.
+대출을 받윌멎 상환 시까지 낙읞 칭혞가 찍히며, 음부 활동읎 제앜되므로 유의.
+공식 ì¡°ì•œ - ì„žë ¥ 간 동맹 및 평화 협정 공고
+명예의 전당 - 역대 국가별 공방전 Ʞ록
+</pre>
+<a href="#0" accesskey="0">[0] 처음윌로</a>
+<hr color="white">
+</body>
+</html>
diff --git a/html/newgame.html b/html/newgame.html
index b8c058b..7bb43be 100644
--- a/html/newgame.html
+++ b/html/newgame.html
@@ -1,32 +1,32 @@
-<html>
-
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
-<title>V‹K“o˜^</title>
-<Style Type="text/css">
-<!--
-A:link   {text-decoration:none;}
-A:visited{text-decoration:none;}
-A:hover  {text-decoration:underline; color:#669966; background-color:#ccffcc;}
-hr{color:#ff99cc; height:2px}
-input,textarea,select{border-left:2px solid #666666;
-border-right:2px solid #666666;
-border-top:2px solid #666666;
-border-bottom:2px solid #666666;
-background-color : #cccccc; color : #666666;}
-body{font-size:11pt}
--->
-</Style>
-</head>
-<body bgcolor="#000000" text="#eeeeee" link="#ccccff" vlink="#ccccff" alink="#ccccff">
-<center>
-V‹K“o˜^
-<form action="../ore_reg.cgi" method="POST" name="ore_reg">
-ÌßÚ²Ô°–Œ:<input type="text" size="16" name="nm">(‘SŠp4`8•¶Žš)<br>
-ID:<input type="text" size="16" name="id">(”ŒŠp‰p”4`12•¶Žš)<br>
-ÊߜܰÄÞ:<input type="text" size="8" maxlength="8" name="pw">(”ŒŠp‰p”4`8•¶Žš)<br>
-<input type="submit" value="OK">
-</form>
-<a href="index.cgi">INDEX‚Ö</a>
-</body>
-</html>
+<html>
+
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+<title>신규 가입</title>
+<Style Type="text/css">
+<!--
+A:link   {text-decoration:none;}
+A:visited{text-decoration:none;}
+A:hover  {text-decoration:underline; color:#669966; background-color:#ccffcc;}
+hr{color:#ff99cc; height:2px}
+input,textarea,select{border-left:2px solid #666666;
+border-right:2px solid #666666;
+border-top:2px solid #666666;
+border-bottom:2px solid #666666;
+background-color : #cccccc; color : #666666;}
+body{font-size:11pt}
+-->
+</Style>
+</head>
+<body bgcolor="#000000" text="#eeeeee" link="#ccccff" vlink="#ccccff" alink="#ccccff">
+<center>
+신규 가입
+<form action="../ore_reg.cgi" method="POST" name="ore_reg">
+플레읎얎 읎늄:<input type="text" size="16" name="nm">(전각 4~8Ꞁ자)<br>
+ID:<input type="text" size="16" name="id">(반각 영묞/숫자 4~12Ꞁ자)<br>
+비밀번혞:<input type="text" size="8" maxlength="8" name="pw">(반각 영묞/숫자 4~8Ꞁ자)<br>
+<input type="submit" value="확읞">
+</form>
+<a href="index.cgi">메읞윌로</a>
+</body>
+</html>
diff --git a/html/ore_.css b/html/ore_.css
index 6fe0a1d..3527fda 100644
--- a/html/ore_.css
+++ b/html/ore_.css
@@ -1,33 +1,33 @@
-body	{ font-size: 12px; font-family: "‚l‚r ‚oƒSƒVƒbƒN", "Osaka"}
-.moji1	{ font-size: 14px; font-style: normal; font-weight: 400; color: #bbbbcc}
-.moji2	{ font-size: 12px; font-style: normal; font-weight: 400; color: #bbbbcc}
-.button1{
-	font-family: "‚l‚r ‚oƒSƒVƒbƒN", "Osaka"; font-size: 14px; font-weight: 400; color: #bbbbcc;
-	border: 4px #666699 ridge; cursor: hand; background-color: #111122;
-	width:160px; height:28px;
-}
-.button2{
-	font-family: "‚l‚r ‚oƒSƒVƒbƒN", "Osaka"; font-size: 14px; font-weight: 400; color: #bbbbcc;
-	border: 2px #9999CC ridge; cursor: hand; background-color: #222244;
-	height:24px;
-}
-.button3{
-	font-family: "‚l‚r ‚oƒSƒVƒbƒN", "Osaka"; font-size: 12px; font-weight: 400; color: #9999bb;
-	border: 1px #9999CC solid; cursor: hand; background-color: #222244;
-	height:20px;
-}
-select	{
-	font-family: "‚l‚r ‚oƒSƒVƒbƒN", "Osaka"; font-size: 14px; font-weight: 400; color: #ccccee;
-	cursor: hand; background-color: #333366;
-	width:160px; height:28px;
-}
-td		{ font-size:11pt;color:#222222}
-.bar	{
-	scrollbar-face-color: #333333;
-	scrollbar-highlight-color: #333333;
-	scrollbar-shadow-color: #000000;
-	scrollbar-arrow-color: #ffffff;
-	scrollbar-base-color: #000000;
-	scrollbar-3d-light-color: #ffffff;
-	scrollbar-dark-shadow-color: #000000
-}
+body	{ font-size: 12px; font-family: " ゎシック", "Osaka"}
+.moji1	{ font-size: 14px; font-style: normal; font-weight: 400; color: #bbbbcc}
+.moji2	{ font-size: 12px; font-style: normal; font-weight: 400; color: #bbbbcc}
+.button1{
+	font-family: " ゎシック", "Osaka"; font-size: 14px; font-weight: 400; color: #bbbbcc;
+	border: 4px #666699 ridge; cursor: hand; background-color: #111122;
+	width:160px; height:28px;
+}
+.button2{
+	font-family: " ゎシック", "Osaka"; font-size: 14px; font-weight: 400; color: #bbbbcc;
+	border: 2px #9999CC ridge; cursor: hand; background-color: #222244;
+	height:24px;
+}
+.button3{
+	font-family: " ゎシック", "Osaka"; font-size: 12px; font-weight: 400; color: #9999bb;
+	border: 1px #9999CC solid; cursor: hand; background-color: #222244;
+	height:20px;
+}
+select	{
+	font-family: " ゎシック", "Osaka"; font-size: 14px; font-weight: 400; color: #ccccee;
+	cursor: hand; background-color: #333366;
+	width:160px; height:28px;
+}
+td		{ font-size:11pt;color:#222222}
+.bar	{
+	scrollbar-face-color: #333333;
+	scrollbar-highlight-color: #333333;
+	scrollbar-shadow-color: #000000;
+	scrollbar-arrow-color: #ffffff;
+	scrollbar-base-color: #000000;
+	scrollbar-3d-light-color: #ffffff;
+	scrollbar-dark-shadow-color: #000000
+}
diff --git a/html/st.html b/html/st.html
index b0b29e3..44011ef 100644
--- a/html/st.html
+++ b/html/st.html
@@ -1,153 +1,153 @@
-<html>
-<head>
-<title>ß‚Æ”±++@“ÁŽê‹Z¥ŠK‹‰‹Z</title>
-<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
-</head>
-<!-- (C)2001 Vivid Studio. + BLANK BOARD  -->
-<body bgcolor="#000000" text="#eeeeee" link="#ccccff" vlink="#ccccff" alink="#ccccff">
-<basefont size="2">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="5"><b>ß‚Æ”±<sup>++</sup>@“ÁŽê‹Z¥ŠK‹‰‹Z</b></font>
-<br>@<br>
-<br>@<br>
-- <a href="#1">ƒAƒ‹ƒƒŠƒA‰€‘</a> -
-<a href="#2">ƒtƒ‰ƒŠƒ“‹³‘</a> -
-<a href="#3">ƒCƒMƒX˜A‡‘</a> -
-<a href="#4">ƒ\[ƒfƒBƒi’鍑</a> -
-<a href="#5">ƒ„ƒ}ƒg_‘</a> -<br>
-- <a href="#6">–³Š‘®</a> -
-<a href="#7">ŠK‹‰‹Z</a> -
-<br>@<br>
-- <a href="./Help.html">Žæ‚舵‚¢à–Ÿ‘‚É–ß‚é</a> -
-<a href="../index.cgi">ƒ^ƒCƒgƒ‹‚Ö–ß‚é</a> -
-<br>@<br>
-<br>@<br>
-<hr align="center" size="1">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a name="#1">¡ ƒAƒ‹ƒƒŠƒA‰€‘</a></font></b></font>
-<br>@<br>
-œƒŒƒxƒ‹5@ŽŸ•—Œ•@[MP -6]@UA1.5”{UŒ‚
-<br>@<br>
-›ƒŒƒxƒ‹10@¶–œŒ÷@[MP -9]@‘Ì—Í10‰ñ•œ
-<br>@<br>
-œƒŒƒxƒ‹15@•òŒ‚Œ÷@[MP -12]@í“¬’†UA-UP
-<br>@<br>
-›ƒŒƒxƒ‹20@‰Š‘“ù@[MP -15]@–hŒä–³Ž‹‚Å30ƒ_ƒ[ƒW
-<br>@<br>
-œƒŒƒxƒ‹25@|‹C@[MP -18]@í“¬’†UD-UP
-<br>@<br>
-›ƒŒƒxƒ‹30@âSŒ÷@[MP -21]@‘Ì—Í50‰ñ•œ
-<br>@<br>
-œƒŒƒxƒ‹35@–P™€“]¶@[MP -60]@“G‘Ì—Í4`8Š„ƒ_ƒ[ƒW(ƒŠƒXƒN‚ ‚è)
-<br>@<br>
-›ƒŒƒxƒ‹40@°Ó‚«@[MP -90]@Šm—Š‚Å“GuŽE(ƒŠƒXƒN‚ ‚è)
-<br>@<br>
-<br>@<br>
-<hr align="center" size="1">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a name="#2">¡ ƒtƒ‰ƒŠƒ“‹³‘</a></font></b></font>
-<br>@<br>
-œƒŒƒxƒ‹5@ƒo[ƒeƒBƒJƒ‹ƒ\[ƒh@[MP -6]@UA1.5”{UŒ‚
-<br>@<br>
-›ƒŒƒxƒ‹10@ƒAƒ^ƒbƒN@[MP -12]@í“¬’†UA-UP
-<br>@<br>
-œƒŒƒxƒ‹15@ƒq[ƒ‹@[MP -6]@‘Ì—Í10‰ñ•œ
-<br>@<br>
-›ƒŒƒxƒ‹20@ƒZƒCƒ“ƒgƒNƒƒX@[MP -18]@–hŒä–³Ž‹‚Å30ƒ_ƒ[ƒW€X‚ɑ̗͉ñ•œ
-<br>@<br>
-œƒŒƒxƒ‹25@ƒAƒ“ƒNƒŒƒAƒuƒŒƒCƒN@[MP -30]@“GUA‚ðƒ[ƒ‚É¡
-<br>@<br>
-›ƒŒƒxƒ‹30@ƒnƒCƒq[ƒ‹@[MP -21]@‘Ì—Í50‰ñ•œ
-<br>@<br>
-œƒŒƒxƒ‹35@–²‚ðŒp‚®ŽÒ@[MP -45]@140`200ƒ_ƒ[ƒW
-<br>@<br>
-›ƒŒƒxƒ‹40@—Ž”jŽa@[MP -90]@200`350ƒ_ƒ[ƒW
-<br>@<br>
-<br>@<br>
-<hr align="center" size="1">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a name="#3">¡ ƒCƒMƒX˜A‡‘</a></font></b></font>
-<br>@<br>
-œƒŒƒxƒ‹5@ƒ\[ƒhƒXƒ‰ƒbƒVƒ…@[MP -6]@–hŒä–³Ž‹‚Å15ƒ_ƒ[ƒW
-<br>@<br>
-›ƒŒƒxƒ‹10@ƒAƒ^ƒbƒN@[MP -12]@í“¬’†UA-UP
-<br>@<br>
-œƒŒƒxƒ‹15@ƒ\[ƒhƒ_ƒ“ƒX@[MP -12]@–hŒä–³Ž‹‚Å25ƒ_ƒ[ƒW
-<br>@<br>
-›ƒŒƒxƒ‹20@ƒV[ƒ‹ƒh@[MP -18]@í“¬’†UD-UP
-<br>@<br>
-œƒŒƒxƒ‹25@ƒA[ƒ}[ƒuƒŒƒCƒN@[MP -25]@“GUD‚ðƒ[ƒ‚É¡
-<br>@<br>
-›ƒŒƒxƒ‹30@ƒnƒCƒq[ƒ‹@[MP -21]@‘Ì—Í50‰ñ•œ
-<br>@<br>
-œƒŒƒxƒ‹35@ƒI[ƒKƒ\[ƒh@[MP -40]@UA3”{UŒ‚
-<br>@<br>
-›ƒŒƒxƒ‹40@ƒAƒ‹ƒeƒBƒƒbƒgƒAƒ^ƒbƒN@[MP -99]@–hŒä–³Ž‹‚ÅHP‚ÆMP‚ÉUA3”{UŒ‚
-<br>@<br>
-<br>@<br>
-<hr align="center" size="1">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a name="#4">¡ ƒ\[ƒfƒBƒi’鍑</a></font></b></font>
-<br>@<br>
-œƒŒƒxƒ‹5@ˆÃ•Œ•@[MP -9]@UA2”{UŒ‚
-<br>@<br>
-›ƒŒƒxƒ‹10@ƒfƒbƒhƒNƒ‰ƒEƒ“@[MP -12]@–hŒä–³Ž‹‚Å20ƒ_ƒ[ƒW€X‚ɑ̗͉ñ•œ
-<br>@<br>
-œƒŒƒxƒ‹15@ƒiƒCƒgƒƒA@[MP -10]@“GMP‚É30ƒ_ƒ[ƒW
-<br>@<br>
-›ƒŒƒxƒ‹20@•‰Š@[MP -15]@–hŒä–³Ž‹‚Å30ƒ_ƒ[ƒW
-<br>@<br>
-œƒŒƒxƒ‹25@âSŒ÷@[MP -21]@‘Ì—Í50‰ñ•œ
-<br>@<br>
-›ƒŒƒxƒ‹30@ƒAƒ^ƒbƒN@[MP -12]@í“¬’†UA-UP
-<br>@<br>
-œƒŒƒxƒ‹35@ƒV[ƒ‹ƒh @[MP -18]@í“¬’†UD-UP
-<br>@<br>
-›ƒŒƒxƒ‹40@’n––å@[MP -70]@–hŒä–³Ž‹‚Å200`250ƒ_ƒ[ƒW
-<br>@<br>
-<br>@<br>
-<hr align="center" size="1">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a name="#5">¡@ƒ„ƒ}ƒg_‘</a></font></b></font>
-<br>@<br>
-œƒŒƒxƒ‹5@ˆëŽ®@[MP -10]@–hŒä–³Ž‹‚Å30ƒ_ƒ[ƒW(ƒŠƒXƒN‚ ‚è)
-<br>@<br>
-›ƒŒƒxƒ‹10@ˆëŽ®¥’f@[MP -10]@UA1.5”{UŒ‚
-<br>@<br>
-œƒŒƒxƒ‹15@“󎮁@[MP -20]@–hŒä–³Ž‹‚Å70ƒ_ƒ[ƒW(ƒŠƒXƒN‚ ‚è)
-<br>@<br>
-›ƒŒƒxƒ‹20@“󎮥—ô@[MP -20]@UA2`2.5”{UŒ‚(ƒŠƒXƒN‚ ‚è)
-<br>@<br>
-œƒŒƒxƒ‹25@ŽQŽ®@[MP -30]@–hŒä–³Ž‹‚Å120ƒ_ƒ[ƒW(ƒŠƒXƒN‚ ‚è)
-<br>@<br>
-›ƒŒƒxƒ‹30@ŽQŽ®¥”g@[MP -30]@UA3`3.5”{UŒ‚(ƒŠƒXƒN‚ ‚è)
-<br>@<br>
-œƒŒƒxƒ‹35@—뎮@[MP -60]@–hŒä–³Ž‹‚Å200ƒ_ƒ[ƒW(ƒŠƒXƒN‚ ‚è)
-<br>@<br>
-œƒŒƒxƒ‹40@—뎮¥â@[MP -80]@UA5`6”{UŒ‚(ƒŠƒXƒN‚ ‚è)
-<br>@<br>
-<br>@<br>
-<hr align="center" size="1">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a name="#6">¡@–³Š‘®</a></font></b></font>
-<br>@<br>
-œƒŒƒxƒ‹5@ƒ}ƒWƒ“Œ•@[MP -3]@UA5”{UŒ‚
-<br>@<br>
-›ƒŒƒxƒ‹10@‘S‰ñ•œ@[MP -9]@‘Ì—ÍŠ®‘S‰ñ•œ
-<br>@<br>
-œƒŒƒxƒ‹5ˆÈã@ƒ}ƒWƒ“Œ•@[MP -9]@ƒNƒŠƒeƒBƒJƒ‹ƒqƒbƒg(UA4”{UŒ‚)@‚ ‚éðŒ‚É‚æ‚è2.5%`10%‚ÌŠm—Š‚Å”­“®
-<br>@<br>
-›ƒŒƒxƒ‹10`20@˜A‘±‹Z@[MP -10]@ƒ}ƒWƒ“Œ• + ”Œ‰ñ•œ@@‚ ‚éðŒ‚É‚æ‚è2.5%`10%‚ÌŠm—Š‚Å”­“®
-<br>@<br>
-<br>@<br>
-<hr align="center" size="1">
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a name="#7">¡@ŠK‹‰‹Z</a></font></b><small>(Še‘‹€’Ê¥–³Š‘®•s‰Â)</small></font>
-<br>@<br>
-œã‹‰‹RŽm@ƒtƒ@ƒCƒA[@[MP -5]@(UA + UD)‚Ì2”{UŒ‚
-<br>@<br>
-›‘å‘à’·@ƒAƒCƒXƒXƒg[ƒ€@[MP -25]@(UA + UD)‚Ì2.5”{UŒ‚
-<br>@<br>
-œã‹‰‘叫@ƒ_ƒCƒ„ƒLƒ…[ƒg@[MP -50]@(UA + UD)‚Ì3”{UŒ‚
-<br>@<br>
-›Œ³ƒ@ƒuƒŒƒCƒ“ƒ_ƒ€ƒh@[MP -100]@(UA + UD)‚Ì4”{UŒ‚
-<br>@<br>
-<br>@<br>
-<br>@<br>
-<br>@<br>
-<br>@<br>
-<font face="‚l‚r ‚o–Ÿ’©, ×–Ÿ’©‘Ì" size="3"><b><font color="#FF0000"><a href="../index.cgi">¡@ƒ^ƒCƒgƒ‹‚Ö–ß‚é</a></font></b></font>
-</body>
+<html>
+<head>
+<title>죄와 벌++ 특수Ʞ·계꞉Ʞ</title>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+</head>
+<!-- (C)2001 Vivid Studio. + BLANK BOARD  -->
+<body bgcolor="#000000" text="#eeeeee" link="#ccccff" vlink="#ccccff" alink="#ccccff">
+<basefont size="2">
+<font face=" 明朝, 现明朝䜓" size="5"><b>죄와 벌<sup>++</sup> 특수Ʞ·계꞉Ʞ</b></font>
+<br>　<br>
+<br>　<br>
+- <a href="#1">알메늬아 왕국</a> -
+<a href="#2">플띌늰 교국</a> -
+<a href="#3">읎Ʞ슀 연합국</a> -
+<a href="#4">소디나 제국</a> -
+<a href="#5">알마토 신국</a> -<br>
+- <a href="#6">묎소속</a> -
+<a href="#7">계꞉Ʞ</a> -
+<br>　<br>
+- <a href="./Help.html">사용섀명서로 돌아가Ʞ</a> -
+<a href="../index.cgi">메읞 화멎윌로 돌아가Ʞ</a> -
+<br>　<br>
+<br>　<br>
+<hr align="center" size="1">
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a name="#1">■ 알메늬아 왕국</a></font></b></font>
+<br>　<br>
+● 레벚 5　질풍검　[MP -6]　UA 1.5ë°° 공격
+<br>　<br>
+○ 레벚 10　생명공　[MP -9]　첎력 10 회복
+<br>　<br>
+● レ벚 15　뎉격공　[MP -12]　전투 쀑 UA 상승
+<br>　<br>
+○ 레벚 20　엌찜선　[MP -15]　방얎 묎시 30 데믞지
+<br>　<br>
+● 레벚 25　강Ʞ　[MP -18]　전투 쀑 UD 상승
+<br>　<br>
+○ 레벚 30　절심공　[MP -21]　첎력 50 회복
+<br>　<br>
+● 레벚 35　뎉황전생　[MP -60]　적 첎력 40~80% 데믞지 (늬슀크 있음)
+<br>　<br>
+○ 레벚 40　혌 부수Ʞ　[MP -90]　확률로 적 슉사 (늬슀크 있음)
+<br>　<br>
+<br>　<br>
+<hr align="center" size="1">
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a name="#2">■ 플띌늰 교국</a></font></b></font>
+<br>　<br>
+● 레벚 5　버티컬 소드　[MP -6]　UA 1.5ë°° 공격
+<br>　<br>
+○ 레벚 10　얎택　[MP -12]　전투 쀑 UA 상승
+<br>　<br>
+● 레벚 15　힐　[MP -6]　첎력 10 회복
+<br>　<br>
+○ 레벚 20　섞읞튞 크로슀　[MP -18]　방얎 묎시 30 데믞지 및 첎력 회복
+<br>　<br>
+● 레벚 25　앙크레아 람레읎크　[MP -30]　적 UA륌 0윌로 만듩.
+<br>　<br>
+○ 레벚 30　하읎 힐　[MP -21]　첎력 50 회복
+<br>　<br>
+● 레벚 35　꿈을 잇는 자　[MP -45]　140~200 데믞지
+<br>　<br>
+○ 레벚 40　용파찞(드래곀 슬레읎람)　[MP -90]　200~350 데믞지
+<br>　<br>
+<br>　<br>
+<hr align="center" size="1">
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a name="#3">■ 읎Ʞ슀 연합국</a></font></b></font>
+<br>　<br>
+● 레벚 5　소드 슬래시　[MP -6]　방얎 묎시 15 데믞지
+<br>　<br>
+○ 레벚 10　얎택　[MP -12]　전투 쀑 UA 상승
+<br>　<br>
+● 레벚 15　소드 댄슀　[MP -12]　방얎 묎시 25 데믞지
+<br>　<br>
+○ 레벚 20　싀드　[MP -18]　전투 쀑 UD 상승
+<br>　<br>
+● 레벚 25　아뚞 람레읎크　[MP -25]　적 UD륌 0윌로 만듩.
+<br>　<br>
+○ 레벚 30　하읎 힐　[MP -21]　첎력 50 회복
+<br>　<br>
+● 레벚 35　였거 소드　[MP -40]　UA 3ë°° 공격
+<br>　<br>
+○ 레벚 40　얌티밋 얎택　[MP -99]　방얎 묎시하고 적의 HP와 MP에 UA 3ë°° 공격
+<br>　<br>
+<br>　<br>
+<hr align="center" size="1">
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a name="#4">■ 소디나 제국</a></font></b></font>
+<br>　<br>
+● 레벚 5　암흑검　[MP -9]　UA 2ë°° 공격
+<br>　<br>
+○ 레벚 10　데드 크띌욎　[MP -12]　방얎 묎시 20 데믞지 및 첎력 회복
+<br>　<br>
+● 레벚 15　나읎튞메얎　[MP -10]　적 MP에 30 데믞지
+<br>　<br>
+○ 레벚 20　흑엌　[MP -15]　방얎 묎시 30 데믞지
+<br>　<br>
+● 레벚 25　절심공　[MP -21]　첎력 50 회복
+<br>　<br>
+○ 레벚 30　얎택　[MP -12]　전투 쀑 UA 상승
+<br>　<br>
+● 레벚 35　싀드 　[MP -18]　전투 쀑 UD 상승
+<br>　<br>
+○ 레벚 40　지옥묞　[MP -70]　방얎 묎시 200~250 데믞지
+<br>　<br>
+<br>　<br>
+<hr align="center" size="1">
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a name="#5">■ 알마토 신국</a></font></b></font>
+<br>　<br>
+● 레벚 5　음식　[MP -10]　방얎 묎시 30 데믞지 (늬슀크 있음)
+<br>　<br>
+○ 레벚 10　음식·닚　[MP -10]　UA 1.5ë°° 공격
+<br>　<br>
+● 레벚 15　읎식　[MP -20]　방얎 묎시 70 데믞지 (늬슀크 있음)
+<br>　<br>
+○ 레벚 20　읎식·엎　[MP -20]　UA 2~2.5ë°° 공격 (늬슀크 있음)
+<br>　<br>
+● 레벚 25　삌식　[MP -30]　방얎 묎시 120 데믞지 (늬슀크 있음)
+<br>　<br>
+○ 레벚 30　삌식·파　[MP -30]　UA 3~3.5ë°° 공격 (늬슀크 있음)
+<br>　<br>
+● 레벚 35　영식　[MP -60]　방얎 묎시 200 데믞지 (늬슀크 있음)
+<br>　<br>
+● 레벚 40　영식·절　[MP -80]　UA 5~6ë°° 공격 (늬슀크 있음)
+<br>　<br>
+<br>　<br>
+<hr align="center" size="1">
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a name="#6">■ 묎소속</a></font></b></font>
+<br>　<br>
+● 레벚 5　마진검　[MP -3]　UA 5ë°° 공격
+<br>　<br>
+○ 레벚 10　전회복　[MP -9]　첎력 완전 회복
+<br>　<br>
+● 레벚 5 읎상　마진검　[MP -9]　크늬티컬 히튾 (UA 4ë°° 공격) 특정 조걎 충족 시 2.5%~10% 확률로 발동
+<br>　<br>
+○ 레벚 10~20　연속Ʞ　[MP -10]　마진검 + 절반 회복  특정 조걎 충족 시 2.5%~10% 확률로 발동
+<br>　<br>
+<br>　<br>
+<hr align="center" size="1">
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a name="#7">■ 계꞉Ʞ</a></font></b><small>(몚든 국가 공통·묎소속 사용 불가)</small></font>
+<br>　<br>
+● 상꞉Ʞ사　파읎얎　[MP -5]　(UA + UD)의 2ë°° 공격
+<br>　<br>
+○ 대대장　아읎슀 슀톰　[MP -25]　(UA + UD)의 2.5倍 공격
+<br>　<br>
+● 상꞉대장　닀읎아 큐튞　[MP -50]　(UA + UD)의 3ë°° 공격
+<br>　<br>
+○ 원수　람레읞 댐드　[MP -100]　(UA + UD)의 4ë°° 공격
+<br>　<br>
+<br>　<br>
+<br>　<br>
+<br>　<br>
+<br>　<br>
+<font face=" 明朝, 现明朝䜓" size="3"><b><font color="#FF0000"><a href="../index.cgi">■ 메읞 화멎윌로 돌아가Ʞ</a></font></b></font>
+</body>
 </html>
\ No newline at end of file
diff --git a/html/st_i.html b/html/st_i.html
index 720da05..1c0f372 100644
--- a/html/st_i.html
+++ b/html/st_i.html
@@ -1,91 +1,91 @@
-<html>
-<head>
-<title>“ÁŽê¥ŠK‹‰‹Z[ÓÊ޲ٔÅ]</title>
-<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
-</head>
-<body bgcolor="#000000" text="#eeeeee" link="#ccccff" vlink="#ccccff" alink="#ccccff">
-<a href="./Help_i.html" accesskey="9">[9]à–Ÿ‘‚É–ß‚é</a>
-<hr color="white">
-<a name="0">“ÁŽê¥ŠK‹‰‹Z</a>
-<br>
-<a href="#1" accesskey="1">±ÙÒر‰€‘</a>
-/<a href="#2" accesskey="2">Ì×Ø݋³‘</a>
-/<a href="#3" accesskey="3">²·Þœ˜A‡‘</a>
-/<a href="#4" accesskey="4">¿°ÃޚŒ鍑</a>
-/<a href="#5" accesskey="5">ÔÏĐ_‘</a>
-/<a href="#6" accesskey="6">–³Š‘®</a>
-/<a href="#7" accesskey="7">ŠK‹‰‹Z</a>
-<hr color="white">
-<a name="1">¡ ±ÙÒر‰€‘</a><br>
-œÚÍÞÙ5 ŽŸ•—Œ• [MP -6] UA1.5”{UŒ‚<br>
-›ÚÍÞÙ10 ¶–œŒ÷ [MP -9] ‘Ì—Í10‰ñ•œ<br>
-œÚÍÞÙ15 •òŒ‚Œ÷ [MP -12] í“¬’†UA-UP<br>
-›ÚÍÞÙ20 ‰Š‘“ù [MP -15] –hŒä–³Ž‹‚Å30ÀÞÒ°ŒÞ<br>
-œÚÍÞÙ25 |‹C [MP -18] í“¬’†UD-UP<br>
-›ÚÍÞÙ30 âSŒ÷ [MP -21] ‘Ì—Í50‰ñ•œ<br>
-œÚÍÞÙ35 –P™€“]¶ [MP -60] “G‘Ì—Í4~8Š„ÀÞÒ°ŒÞ(Øœž‚ ‚è)<br>
-›ÚÍÞÙ40 °Ó‚« [MP -90] Šm—Š‚Å“GuŽE(Øœž‚ ‚è)
-<a href="#0" accesskey="0">[0]æ“ª‚É–ß‚é</a>
-<hr color="white">
-<a name="2">¡ Ì×Ø݋³‘</a><br>
-œÚÍÞÙ5 ÊްÚ¶Ù¿°ÄÞ [MP -6] UA1.5”{UŒ‚<br>
-›ÚÍÞÙ10 ±À¯ž [MP -12] í“¬’†UA-UP<br>
-œÚÍÞÙ15 Ë°Ù [MP -6] ‘Ì—Í10‰ñ•œ<br>
-›ÚÍÞÙ20 Ÿ²ÝÄžÛœ [MP -18] –hŒä–³Ž‹‚Å30ÀÞÒ°ŒÞ€X‚ɑ̗͉ñ•œ<br>
-œÚÍÞÙ25 ±ÝžÚ±ÌÞÚ²ž [MP -30] “GUA‚ðŸÞۂɡ<br>
-›ÚÍÞÙ30 ʲ˰٠[MP -21] ‘Ì—Í50‰ñ•œ<br>
-œÚÍÞÙ35 –²‚ðŒp‚®ŽÒ [MP -45] 140~200ÀÞÒ°ŒÞ<br>
-›ÚÍÞÙ40 —Ž”jŽa [MP -90] 200~350ÀÞÒ°ŒÞ
-<a href="#0" accesskey="0">[0]æ“ª‚É–ß‚é</a>
-<hr color="white">
-<a name="3">¡ ²·Þœ˜A‡‘</a><br>
-œÚÍÞÙ5 ¿°ÄޜׯŒ­ [MP -6] –hŒä–³Ž‹‚Å15ÀÞÒ°ŒÞ<br>
-›ÚÍÞÙ10 ±À¯ž [MP -12] í“¬’†UA-UP<br>
-œÚÍÞÙ15 ¿°ÄÞÀÞÝœ [MP -12] –hŒä–³Ž‹‚Å25ÀÞÒ°ŒÞ<br>
-›ÚÍÞÙ20 Œ°ÙÄÞ [MP -18] í“¬’†UD-UP<br>
-œÚÍÞÙ25 ±°Ï°ÌÞÚ²ž [MP -25] “GUD‚ðŸÞۂɡ<br>
-›ÚÍÞÙ30 ʲ˰٠[MP -21] ‘Ì—Í50‰ñ•œ<br>
-œÚÍÞÙ35 µ°¶Þ¿°ÄÞ [MP -40] UA3”{UŒ‚<br>
-›ÚÍÞÙ40 ±ÙÚүıÀ¯ž [MP -99] –hŒä–³Ž‹‚ÅHP‚ÆMP‚ÉUA3”{UŒ‚
-<a href="0" accesskey="0">[0]æ“ª‚É–ß‚é</a>
-<hr color="white">
-<a name="4">¡ ¿°ÃޚŒ鍑</a>
-<br>
-œÚÍÞÙ5 ˆÃ•Œ• [MP -9] UA2”{UŒ‚<br>
-›ÚÍÞÙ10 ÃÞ¯ÄÞž×³Ý [MP -12] –hŒä–³Ž‹‚Å20ÀÞÒ°ŒÞ€X‚ɑ̗͉ñ•œ<br>
-œÚÍÞÙ15 ŲÄÒ± [MP -10] “GMP‚É30ÀÞÒ°ŒÞ<br>
-›ÚÍÞÙ20 •‰Š [MP -15] –hŒä–³Ž‹‚Å30ÀÞÒ°ŒÞ<br>
-œÚÍÞÙ25 âSŒ÷ [MP -21] ‘Ì—Í50‰ñ•œ<br>
-›ÚÍÞÙ30 ±À¯ž [MP -12] í“¬’†UA-UP<br>
-œÚÍÞÙ35 Œ°ÙÄÞ  [MP -18] í“¬’†UD-UP<br>
-›ÚÍÞÙ40 ’n––å [MP -70] –hŒä–³Ž‹‚Å200~250ÀÞÒ°ŒÞ
-<a href="#0" accesskey="0">[0]æ“ª‚É–ß‚é</a>
-<hr color="white">
-<a name="5">¡ ÔÏĐ_‘</a>
-<br>
-œÚÍÞÙ5 ˆëŽ® [MP -10] –hŒä–³Ž‹‚Å30ÀÞÒ°ŒÞ(Øœž‚ ‚è)<br>
-›ÚÍÞÙ10 ˆëŽ®¥’f [MP -10] UA1.5”{UŒ‚<br>
-œÚÍÞÙ15 “óŽ® [MP -20] –hŒä–³Ž‹‚Å70ÀÞÒ°ŒÞ(Øœž‚ ‚è)<br>
-›ÚÍÞÙ20 “󎮥—ô [MP -20] UA2~2.5”{UŒ‚(Øœž‚ ‚è)<br>
-œÚÍÞÙ25 ŽQŽ® [MP -30] –hŒä–³Ž‹‚Å120ÀÞÒ°ŒÞ(Øœž‚ ‚è)<br>
-›ÚÍÞÙ30 ŽQŽ®¥”g [MP -30] UA3~3.5”{UŒ‚(Øœž‚ ‚è)<br>
-œÚÍÞÙ35 —뎮 [MP -60] –hŒä–³Ž‹‚Å200ÀÞÒ°ŒÞ(Øœž‚ ‚è)<br>
-œÚÍÞÙ40 —뎮¥â [MP -80] UA5~6”{UŒ‚(Øœž‚ ‚è)<hr color="white">
-<a href="#0" accesskey="0">[0]æ“ª‚É–ß‚é</a>
-<hr color="white">
-<a name="6">¡ –³Š‘®</a>
-<br>
-œÚÍÞÙ5 ÏŒÞ݌• [MP -3] UA5”{UŒ‚<br>
-›ÚÍÞÙ10 ‘S‰ñ•œ [MP -9] ‘Ì—ÍŠ®‘S‰ñ•œ<br>
-œÚÍÞÙ5ˆÈã ÏŒÞ݌• [MP -9] žØÚ¶Ù˯Ä(UA4”{UŒ‚) ‚ ‚éðŒ‚É‚æ‚è2.5%~10%‚ÌŠm—Š‚Å”­“®<br>
-›ÚÍÞÙ10~20 ˜A‘±‹Z [MP -10] ÏŒÞ݌• + ”Œ‰ñ•œ  ‚ ‚éðŒ‚É‚æ‚è2.5%~10%‚ÌŠm—Š‚Å”­“®
-<a href="#0" accesskey="0">[0]æ“ª‚É–ß‚é</a>
-<hr color="white">
-<a name="7">¡ ŠK‹‰‹Z</a>(Še‘‹€’Ê¥–³Š‘®•s‰Â)<br>
-œã‹‰‹RŽm ̧²±° [MP -5] (UA + UD)‚Ì2”{UŒ‚<br>
-›‘å‘à’· ±²œœÄ°Ñ [MP -25] (UA + UD)‚Ì2.5”{UŒ‚<br>
-œã‹‰‘叫 ÀÞ²Ô·­°Ä [MP -50] (UA + UD)‚Ì3”{UŒ‚<br>
-›Œ³ƒ ÌÞÚ²ÝÀÞÑÄÞ [MP -100] (UA + UD)‚Ì4”{UŒ‚
-<a href="#0" accesskey="0">[0]æ“ª‚É–ß‚é</a>
-</body>
+<html>
+<head>
+<title>특수·계꞉Ʞ [몚바음 버전]</title>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+</head>
+<body bgcolor="#000000" text="#eeeeee" link="#ccccff" vlink="#ccccff" alink="#ccccff">
+<a href="./Help_i.html" accesskey="9">[9] 섀명서로 돌아가Ʞ</a>
+<hr color="white">
+<a name="0">특수·계꞉Ʞ</a>
+<br>
+<a href="#1" accesskey="1">알메늬아 왕국</a>
+/<a href="#2" accesskey="2">플띌늰 교국</a>
+/<a href="#3" accesskey="3">읎Ʞ슀 연합국</a>
+/<a href="#4" accesskey="4">소디나 제국</a>
+/<a href="#5" accesskey="5">알마토 신국</a>
+/<a href="#6" accesskey="6">묎소속</a>
+/<a href="#7" accesskey="7">계꞉Ʞ</a>
+<hr color="white">
+<a name="1">■ 알메늬아 왕국</a><br>
+● 레벚 5 질풍검 [MP -6] UA 1.5ë°° 공격<br>
+○ 레벚 10 생명공 [MP -9] 첎력 10 회복<br>
+● 레벚 15 뎉격공 [MP -12] 전투 쀑 UA 상승<br>
+○ 레벚 20 엌찜선 [MP -15] ë°©ì–Ž 묎시 30 데믞지<br>
+● 레벚 25 ê°•êž° [MP -18] 전투 쀑 UD 상승<br>
+○ 레벚 30 절심공 [MP -21] 첎력 50 회복<br>
+● 레벚 35 뎉황전생 [MP -60] 적 첎력 40~80% 데믞지 (늬슀크 있음)<br>
+○ 레벚 40 혌 부수Ʞ [MP -90] 확률로 적 슉사 (늬슀크 있음)
+<a href="#0" accesskey="0">[0] 처음윌로</a>
+<hr color="white">
+<a name="2">■ 플띌늰 교국</a><br>
+● 레벚 5 버티컬 소드 [MP -6] UA 1.5ë°° 공격<br>
+○ 레벚 10 얎택 [MP -12] 전투 쀑 UA 상승<br>
+● 레벚 15 힐 [MP -6] 첎력 10 회복<br>
+○ 레벚 20 섞읞튞 크로슀 [MP -18] ë°©ì–Ž 묎시 30 데믞지 및 첎력 회복<br>
+● 레벚 25 앙크레아 람레읎크 [MP -30] 적 UA륌 0윌로 만듩.<br>
+○ 레벚 30 하읎 힐 [MP -21] 첎력 50 회복<br>
+● 레벚 35 꿈을 잇는 자 [MP -45] 140~200 데믞지<br>
+○ 레벚 40 용파찞 [MP -90] 200~350 데믞지
+<a href="#0" accesskey="0">[0] 처음윌로</a>
+<hr color="white">
+<a name="3">■ 읎Ʞ슀 연합국</a><br>
+● 레벚 5 소드 슬래시 [MP -6] ë°©ì–Ž 묎시 15 데믞지<br>
+○ 레벚 10 얎택 [MP -12] 전투 쀑 UA 상승<br>
+● 레벚 15 소드 댄슀 [MP -12] ë°©ì–Ž 묎시 25 데믞지<br>
+○ 레벚 20 싀드 [MP -18] 전투 쀑 UD 상승<br>
+● 레벚 25 ì•„ëšž 람레읎크 [MP -25] 적 UD륌 0윌로 만듩.<br>
+○ 레벚 30 하읎 힐 [MP -21] 첎력 50 회복<br>
+● 레벚 35 였거 소드 [MP -40] UA 3ë°° 공격<br>
+○ 레벚 40 얌티밋 얎택 [MP -99] ë°©ì–Ž 묎시하고 적의 HP와 MP에 UA 3ë°° 공격
+<a href="0" accesskey="0">[0] 처음윌로</a>
+<hr color="white">
+<a name="4">■ 소디나 제국</a>
+<br>
+● 레벚 5 암흑검 [MP -9] UA 2ë°° 공격<br>
+○ 레벚 10 데드 크띌욎 [MP -12] ë°©ì–Ž 묎시 20 데믞지 및 첎력 회복<br>
+● 레벚 15 나읎튞메얎 [MP -10] 적 MP에 30 데믞지<br>
+○ 레벚 20 흑엌 [MP -15] ë°©ì–Ž 묎시 30 데믞지<br>
+● 레벚 25 절심공 [MP -21] 첎력 50 회복<br>
+○ 레벚 30 얎택 [MP -12] 전투 쀑 UA 상승<br>
+● 레벚 35 싀드  [MP -18] 전투 쀑 UD 상승<br>
+○ 레벚 40 지옥묞 [MP -70] ë°©ì–Ž 묎시 200~250 데믞지
+<a href="#0" accesskey="0">[0] 처음윌로</a>
+<hr color="white">
+<a name="5">■ 알마토 신국</a>
+<br>
+● 레벚 5 음식 [MP -10] ë°©ì–Ž 묎시 30 데믞지 (늬슀크 있음)<br>
+○ 레벚 10 음식·닚 [MP -10] UA 1.5ë°° 공격<br>
+● 레벚 15 읎식 [MP -20] ë°©ì–Ž 묎시 70 데믞지 (늬슀크 있음)<br>
+○ 레벚 20 읎식·엎 [MP -20] UA 2~2.5ë°° 공격 (늬슀크 있음)<br>
+● 레벚 25 삌식 [MP -30] ë°©ì–Ž 묎시 120 데믞지 (늬슀크 있음)<br>
+○ 레벚 30 삌식·파 [MP -30] UA 3~3.5ë°° 공격 (늬슀크 있음)<br>
+● 레벚 35 영식 [MP -60] ë°©ì–Ž 묎시 200 데믞지 (늬슀크 있음)<br>
+● 레벚 40 영식·절 [MP -80] UA 5~6ë°° 공격 (늬슀크 있음)<hr color="white">
+<a href="#0" accesskey="0">[0] 처음윌로</a>
+<hr color="white">
+<a name="6">■ 묎소속</a>
+<br>
+● 레벚 5 마진검 [MP -3] UA 5ë°° 공격<br>
+○ 레벚 10 전회복 [MP -9] 첎력 완전 회복<br>
+● 레벚 5 읎상 마진검 [MP -9] 크늬티컬 히튾 (UA 4ë°° 공격) 특정 조걎 충족 시 2.5%~10% 확률로 발동<br>
+○ 레벚 10~20 연속Ʞ [MP -10] 마진검 + 절반 회복  특정 조걎 충족 시 2.5%~10% 확률로 발동
+<a href="#0" accesskey="0">[0] 처음윌로</a>
+<hr color="white">
+<a name="7">■ 계꞉Ʞ</a>(몚든 국가 공통·묎소속 사용 불가)<br>
+● 상꞉Ʞ사 파읎얎 [MP -5] (UA + UD)의 2ë°° 공격<br>
+○ 대대장 아읎슀 슀톰 [MP -25] (UA + UD)의 2.5ë°° 공격<br>
+● 상꞉대장 닀읎아 큐튾 [MP -50] (UA + UD)의 3ë°° 공격<br>
+○ 원수 람레읞 댐드 [MP -100] (UA + UD)의 4ë°° 공격
+<a href="#0" accesskey="0">[0] 처음윌로</a>
+</body>
 </html>
\ No newline at end of file
diff --git a/inc/ore_sub-ability.cgi b/inc/ore_sub-ability.cgi
old mode 100644
new mode 100755
index 133fc97..9a78716
--- a/inc/ore_sub-ability.cgi
+++ b/inc/ore_sub-ability.cgi
@@ -1,172 +1,172 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  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.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# ”\—̓ƒjƒ…[
-
-sub ability{
-
-	if(!$type){
-
-		&abi_up_data;
-
-		$log .= "UA $va G UD $vd G LR $vl G AG $vg G<br>‘̗́Ež_‚ð15000 G ‚ðŽg‚¢‚»‚ê‚Œ‚ê‚Ì”\\—Í‚ðã‚°‚Ü‚·<br>\n";
-		$tm=0;
-		$type='”\—Í';
-
-		&ability_menu;
-
-	}
-
-	&dat_write;
-}
-
-sub ability_menu{
-
-	# ”\—̓Rƒ}ƒ“ƒh
-	@st		 = ('‚â‚ß‚é','HP-UP','MP-UP','UA-UP','UD-UP','LR-UP','AG-UP');
-
-	$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|;
-	foreach(0 .. $#st){ $log2 .= "<option value=$_>$st[$_]</option>\n";}
-	$log2 .=qq|</select><br>\n|;
-	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-}
-
-#-------------------------------------------------------------------------------
-# ”\—͏ˆ—
-sub ability_exe{
-
-	if(!$tm){
-
-		&abi_up_data;
-
-		if($cmd<=0){
-			$log .= "Ž~‚ß‚Ä‚š‚«‚Ü‚·<br>\n";
-			$tm = $cmd = 0;
-			$type='';
-			&call_main_st;
-		}elsif($cmd==1){
-			if($gold<15000){
-				$log .= "‚š‹à‚ª‘«‚è‚Ü‚¹‚ñ<br>\n";
-				$tm = $cmd = 0;
-				$type='';
-				&ability_menu;
-			}else{
-				$log .= "Å‘åHP‚ª‚Rã‚ª‚Á‚œ<br>\n";
-				$max_hp+=3;
-				$gold-=15000;
-				$tm = $cmd = 0;
-				$type='';
-				&call_main_st;
-			}
-		}elsif($cmd==2){
-			if($gold<15000){
-				$log .= "‚š‹à‚ª‘«‚è‚Ü‚¹‚ñ<br>\n";
-				$tm = $cmd = 0;
-				$type='';
-				&ability_menu;
-			}else{
-				$log .= "Å‘åMP‚ª‚Rã‚ª‚Á‚œ<br>\n";
-				$max_mp+=3;
-				$gold-=15000;
-				$tm = $cmd = 0;
-				$type='';
-				&call_main_st;
-			}
-		}elsif($cmd==3){
-			if($gold<$va){
-				$log .= "‚š‹à‚ª‘«‚è‚Ü‚¹‚ñ<br>\n";
-				$tm = $cmd = 0;
-				&ability_menu;
-			}else{
-				$log .= "UŒ‚—Í‚ª‚Pã‚ª‚Á‚œ<br>\n";
-				$ua++;
-				$gold-=$va;
-				$tm = $cmd = 0;
-				$type='';
-				&call_main_st;
-			}
-		}elsif($cmd==4){
-			if($gold<$vd){
-				$log .= "‚š‹à‚ª‘«‚è‚Ü‚¹‚ñ<br>\n";
-				$tm = $cmd = 0;
-				&ability_menu;
-			}else{
-				$log .= "–hŒä—Í‚ª‚Pã‚ª‚Á‚œ<br>\n";
-				$ud++;
-				$gold-=$vd;
-				$tm = $cmd = 0;
-				$type='';
-				&call_main_st;
-			}
-		}elsif($cmd==5){
-			if($gold<$vl){
-				$log .= "‚š‹à‚ª‘«‚è‚Ü‚¹‚ñ<br>\n";
-				$tm = $cmd = 0;
-				&ability_menu;
-			}else{
-				$log .= "ŽwŠö—Í‚ª‚Pã‚ª‚Á‚œ<br>\n";
-				$lr++;
-				$gold-=$vl;
-				$tm = $cmd = 0;
-				$type='';
-				&call_main_st;
-			}
-		}elsif($cmd==6){
-			if($gold<$vg){
-				$log .= "‚š‹à‚ª‘«‚è‚Ü‚¹‚ñ<br>\n";
-				$tm = $cmd = 0;
-				&ability_menu;
-			}else{
-				$log .= "•q·—Í‚ª‚Pã‚ª‚Á‚œ<br>\n";
-				$ag++;
-				$gold-=$vg;
-				$tm = $cmd = 0;
-				$type='';
-				&call_main_st;
-			}
-		}
-	}
-
-	&dat_write;
-
-}
-
-# ”\—͏㏞’lŒvŽZ
-sub abi_up_data{
-
-	$va=int($ua*$ua)*100;
-	$va=15000 if($va<15000);
-	$va=500000 if($va>500000);
-	$vd=int($ud*$ud)*100;
-	$vd=15000 if($vd<15000);
-	$vd=500000 if($vd>500000);
-	$vl=int($lr*$lr)*100;
-	$vl=30000 if($vl<30000);
-	$vl=500000 if($vl>500000);
-	$vg=int($ag*$ag)*100;
-	$vg=15000 if($vg<15000);
-	$vg=500000 if($vg>500000);
-
-	return ($va,$vd,$vl,$vg);
-
-}
-
-
-
-
-
-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 ability{
+
+	if(!$type){
+
+		&abi_up_data;
+
+		$log .= "UA $va G UD $vd G LR $vl G AG $vg G<br>첎력·정신을 15000 G 사용하여 각각의 능력을 올늜니닀.<br>\n";
+		$tm=0;
+		$type='능력';
+
+		&ability_menu;
+
+	}
+
+	&dat_write;
+}
+
+sub ability_menu{
+
+	# 능력 컀맚드
+	@st		 = ('귞만둔닀','HP-UP','MP-UP','UA-UP','UD-UP','LR-UP','AG-UP');
+
+	$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|;
+	foreach(0 .. $#st){ $log2 .= "<option value=$_>$st[$_]</option>\n";}
+	$log2 .=qq|</select><br>\n|;
+	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+# 능력 처늬
+sub ability_exe{
+
+	if(!$tm){
+
+		&abi_up_data;
+
+		if($cmd<=0){
+			$log .= "귞만둡니닀.<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($cmd==1){
+			if($gold<15000){
+				$log .= "돈읎 부족합니닀.<br>\n";
+				$tm = $cmd = 0;
+				$type='';
+				&ability_menu;
+			}else{
+				$log .= "최대 HP가 3 올랐닀.<br>\n";
+				$max_hp+=3;
+				$gold-=15000;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}
+		}elsif($cmd==2){
+			if($gold<15000){
+				$log .= "돈읎 부족합니닀.<br>\n";
+				$tm = $cmd = 0;
+				$type='';
+				&ability_menu;
+			}else{
+				$log .= "최대 MP가 3 올랐닀.<br>\n";
+				$max_mp+=3;
+				$gold-=15000;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}
+		}elsif($cmd==3){
+			if($gold<$va){
+				$log .= "돈읎 부족합니닀.<br>\n";
+				$tm = $cmd = 0;
+				&ability_menu;
+			}else{
+				$log .= "공격력읎 1 올랐닀.<br>\n";
+				$ua++;
+				$gold-=$va;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}
+		}elsif($cmd==4){
+			if($gold<$vd){
+				$log .= "돈읎 부족합니닀.<br>\n";
+				$tm = $cmd = 0;
+				&ability_menu;
+			}else{
+				$log .= "방얎력읎 1 올랐닀.<br>\n";
+				$ud++;
+				$gold-=$vd;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}
+		}elsif($cmd==5){
+			if($gold<$vl){
+				$log .= "돈읎 부족합니닀.<br>\n";
+				$tm = $cmd = 0;
+				&ability_menu;
+			}else{
+				$log .= "지휘력읎 1 올랐닀.<br>\n";
+				$lr++;
+				$gold-=$vl;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}
+		}elsif($cmd==6){
+			if($gold<$vg){
+				$log .= "돈읎 부족합니닀.<br>\n";
+				$tm = $cmd = 0;
+				&ability_menu;
+			}else{
+				$log .= "믌첩성읎 1 올랐닀.<br>\n";
+				$ag++;
+				$gold-=$vg;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}
+		}
+	}
+
+	&dat_write;
+
+}
+
+# 능력 상승치 계산
+sub abi_up_data{
+
+	$va=int($ua*$ua)*100;
+	$va=15000 if($va<15000);
+	$va=500000 if($va>500000);
+	$vd=int($ud*$ud)*100;
+	$vd=15000 if($vd<15000);
+	$vd=500000 if($vd>500000);
+	$vl=int($lr*$lr)*100;
+	$vl=30000 if($vl<30000);
+	$vl=500000 if($vl>500000);
+	$vg=int($ag*$ag)*100;
+	$vg=15000 if($vg<15000);
+	$vg=500000 if($vg>500000);
+
+	return ($va,$vd,$vl,$vg);
+
+}
+
+
+
+
+
+1;
diff --git a/inc/ore_sub-base-p1_pc.cgi b/inc/ore_sub-base-p1_pc.cgi
old mode 100644
new mode 100755
index 21f6e6c..10fe497
--- a/inc/ore_sub-base-p1_pc.cgi
+++ b/inc/ore_sub-base-p1_pc.cgi
@@ -1,150 +1,150 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# •\ŽŠ PC—pƒp[ƒc1 Version 1.0								#
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# ’ʏí•\ŽŠ—p
-sub layout_flag_0{
-	print <<EOM;
-<table width="740" border="0" cellspacing="0" cellpadding="0">
-<tr>
-<td align="left" valign="top" width="540">
-EOM
-
-	if($log){
-		print <<"EOM";
-<table width="100%" border="0" cellspacing="4" cellpadding="10" height="100" bgcolor="#444466">
-<tr>
-<td bgcolor="#000000" align="left" valign="top">
-<tt class="moji1">
-$log
-</tt>
-</td>
-</tr>
-</table>
-
-<br>
-EOM
-}
-
-	my @metu=('','(–S)');
-	my $reset_time_out = int(($set-$time)/(3600*24));
-	print <<"EOM";
-<table width="100%" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466">
-<tr>
-<td bgcolor="#000000" align="center">
-<tt class="moji1">
-$bmes
-</tt>
-</td>
-</tr>
-</table>
-
-<br>
-
-<table width="100%" border="0" cellspacing="4" cellpadding="0" bgcolor="#444466">
-<tr>
-<td bgcolor="#000000" align="left" valign="top">
-<!-- $rst‚ōì‚Á‚Ä‚¢‚œ•\ŽŠ -->
-<table border=0 cellpadding=2 cellspacing=2 width=100% align=center>
-<tr>
-<td bgcolor=#CCCCFF width=72>&nbsp;</td>
-<td bgcolor=$color[1] align=center width=92>$cmp[1]$metu[$ce1]</td>
-<td bgcolor=$color[2] align=center width=92>$cmp[2]$metu[$ce2]</td>
-<td bgcolor=$color[3] align=center width=92>$cmp[3]$metu[$ce3]</td>
-<td bgcolor=$color[4] align=center width=92>$cmp[4]$metu[$ce4]</td>
-<td bgcolor=$color[5] align=center width=92>$cmp[5]$metu[$ce5]</td>
-</tr>
-<tr>
-<td bgcolor=#CCCCFF>‘‘—Í</td>
-<td bgcolor=$color[1] align=center>$cn1</td>
-<td bgcolor=$color[2] align=center>$cn2</td>
-<td bgcolor=$color[3] align=center>$cn3</td>
-<td bgcolor=$color[4] align=center>$cn4</td>
-<td bgcolor=$color[5] align=center>$cn5</td>
-</tr>
-<tr>
-<td bgcolor=#CCCCFF>‘‰Æ\—\\ŽZ</td>
-<td bgcolor=$color[1] align=center>$cg1</td>
-<td bgcolor=$color[2] align=center>$cg2</td>
-<td bgcolor=$color[3] align=center>$cg3</td>
-<td bgcolor=$color[4] align=center>$cg4</td>
-<td bgcolor=$color[5] align=center>$cg5</td>
-</tr>
-<tr>
-<td bgcolor=#CCCCFF>‘•º—Æ</td>
-<td bgcolor=$color[1] align=center>$cf1</td>
-<td bgcolor=$color[2] align=center>$cf2</td>
-<td bgcolor=$color[3] align=center>$cf3</td>
-<td bgcolor=$color[4] align=center>$cf4</td>
-<td bgcolor=$color[5] align=center>$cf5</td>
-</tr>
-<tr><td bgcolor=#CCCCFF>‘•ºŽm”</td>
-<td bgcolor=$color[1] align=center>$cs1</td>
-<td bgcolor=$color[2] align=center>$cs2</td>
-<td bgcolor=$color[3] align=center>$cs3</td>
-<td bgcolor=$color[4] align=center>$cs4</td>
-<td bgcolor=$color[5] align=center>$cs5</td>
-</tr>
-<tr>
-<td bgcolor=#CCCCFF>Š‘®l”</td>
-<td bgcolor=$color[1] align=center>$c1/$c1a</td>
-<td bgcolor=$color[2] align=center>$c2/$c2a</td>
-<td bgcolor=$color[3] align=center>$c3/$c3a</td>
-<td bgcolor=$color[4] align=center>$c4/$c4a</td>
-<td bgcolor=$color[5] align=center>$c5/$c5a</td>
-</tr>
-</table>
-<!-- ‚±‚±‚Ü‚Å -->
-</td>
-</tr>
-</table>
-
-</td>
-<td align="right" valign="top" width="190">
-
-<table width="190" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466" height="140">
-<tr>
-<td bgcolor="#000000" align="left" valign="top" class="moji2">
-<div align="center">- System Infomation -</div>
-<hr size="2" noshade color="#9999bb" width="100%">
-&nbsp;&nbsp;‘æ $goal_no Šú<br>
-&nbsp;&nbsp;“ˆêŠúŒÀ‚Ü‚Å Œã $reset_time_out“ú
-</div>
-</td>
-</tr>
-</table>
-
-<br>
-
-<table width="190" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466">
-<tr>
-<td bgcolor="#000000" align="left" valign="top" class="moji2">
-ŽQ‰Á‘”: $all_mem–Œ / $sankal’èˆõ<br>
-“ˆê‘—Í: $data_reset&nbsp;&nbsp;“ïˆÕ“x: $reset_point
-<hr size="2" noshade color="#9999bb"width=160>
-‘O‰ñ‚Ì”eŽÒ: $hasya [$cmp[$hcamp]]
-</td>
-</tr>
-</table>
-
-</td>
-</tr>
-</table>
-
-EOM
-}
-
-
-
-
-
-1;
+#-----------------------------------------------------------#
+#  죄와 벌++ 읎윚배반 										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# 표시 PC용 파잠1 Version 1.0								#
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# 통상 표시용
+sub layout_flag_0{
+	print <<EOM;
+<table width="740" border="0" cellspacing="0" cellpadding="0">
+<tr>
+<td align="left" valign="top" width="540">
+EOM
+
+	if($log){
+		print <<"EOM";
+<table width="100%" border="0" cellspacing="4" cellpadding="10" height="100" bgcolor="#444466">
+<tr>
+<td bgcolor="#000000" align="left" valign="top">
+<tt class="moji1">
+$log
+</tt>
+</td>
+</tr>
+</table>
+
+<br>
+EOM
+}
+
+	my @metu=('','(멞망)');
+	my $reset_time_out = int(($set-$time)/(3600*24));
+	print <<"EOM";
+<table width="100%" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466">
+<tr>
+<td bgcolor="#000000" align="center">
+<tt class="moji1">
+$bmes
+</tt>
+</td>
+</tr>
+</table>
+
+<br>
+
+<table width="100%" border="0" cellspacing="4" cellpadding="0" bgcolor="#444466">
+<tr>
+<td bgcolor="#000000" align="left" valign="top">
+<!-- $rst로 만듀었던 표시 -->
+<table border=0 cellpadding=2 cellspacing=2 width=100% align=center>
+<tr>
+<td bgcolor=#CCCCFF width=72>&nbsp;</td>
+<td bgcolor=$color[1] align=center width=92>$cmp[1]$metu[$ce1]</td>
+<td bgcolor=$color[2] align=center width=92>$cmp[2]$metu[$ce2]</td>
+<td bgcolor=$color[3] align=center width=92>$cmp[3]$metu[$ce3]</td>
+<td bgcolor=$color[4] align=center width=92>$cmp[4]$metu[$ce4]</td>
+<td bgcolor=$color[5] align=center width=92>$cmp[5]$metu[$ce5]</td>
+</tr>
+<tr>
+<td bgcolor=#CCCCFF>쎝 국력</td>
+<td bgcolor=$color[1] align=center>$cn1</td>
+<td bgcolor=$color[2] align=center>$cn2</td>
+<td bgcolor=$color[3] align=center>$cn3</td>
+<td bgcolor=$color[4] align=center>$cn4</td>
+<td bgcolor=$color[5] align=center>$cn5</td>
+</tr>
+<tr>
+<td bgcolor=#CCCCFF>국가 예산</td>
+<td bgcolor=$color[1] align=center>$cg1</td>
+<td bgcolor=$color[2] align=center>$cg2</td>
+<td bgcolor=$color[3] align=center>$cg3</td>
+<td bgcolor=$color[4] align=center>$cg4</td>
+<td bgcolor=$color[5] align=center>$cg5</td>
+</tr>
+<tr>
+<td bgcolor=#CCCCFF>쎝 군량</td>
+<td bgcolor=$color[1] align=center>$cf1</td>
+<td bgcolor=$color[2] align=center>$cf2</td>
+<td bgcolor=$color[3] align=center>$cf3</td>
+<td bgcolor=$color[4] align=center>$cf4</td>
+<td bgcolor=$color[5] align=center>$cf5</td>
+</tr>
+<tr><td bgcolor=#CCCCFF>쎝 병사 수</td>
+<td bgcolor=$color[1] align=center>$cs1</td>
+<td bgcolor=$color[2] align=center>$cs2</td>
+<td bgcolor=$color[3] align=center>$cs3</td>
+<td bgcolor=$color[4] align=center>$cs4</td>
+<td bgcolor=$color[5] align=center>$cs5</td>
+</tr>
+<tr>
+<td bgcolor=#CCCCFF>소속 읞원</td>
+<td bgcolor=$color[1] align=center>$c1/$c1a</td>
+<td bgcolor=$color[2] align=center>$c2/$c2a</td>
+<td bgcolor=$color[3] align=center>$c3/$c3a</td>
+<td bgcolor=$color[4] align=center>$c4/$c4a</td>
+<td bgcolor=$color[5] align=center>$c5/$c5a</td>
+</tr>
+</table>
+<!-- 여Ʞ까지 -->
+</td>
+</tr>
+</table>
+
+</td>
+<td align="right" valign="top" width="190">
+
+<table width="190" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466" height="140">
+<tr>
+<td bgcolor="#000000" align="left" valign="top" class="moji2">
+<div align="center">- System Infomation -</div>
+<hr size="2" noshade color="#9999bb" width="100%">
+&nbsp;&nbsp;제 $goal_no êž°<br>
+&nbsp;&nbsp;통음 Ʞ한까지 낚은 시간: $reset_time_out음
+</div>
+</td>
+</tr>
+</table>
+
+<br>
+
+<table width="190" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466">
+<tr>
+<td bgcolor="#000000" align="left" valign="top" class="moji2">
+ì°žê°€ 쎝수: $all_mem명 / 정원 $sanka명<br>
+통음 êµ­ë ¥: $data_reset&nbsp;&nbsp;난읎도: $reset_point
+<hr size="2" noshade color="#9999bb"width=160>
+읎전 팚자: $hasya [$cmp[$hcamp]]
+</td>
+</tr>
+</table>
+
+</td>
+</tr>
+</table>
+
+EOM
+}
+
+
+
+
+
+1;
diff --git a/inc/ore_sub-base_mv.cgi b/inc/ore_sub-base_mv.cgi
old mode 100644
new mode 100755
index 03d6308..953dcb0
--- a/inc/ore_sub-base_mv.cgi
+++ b/inc/ore_sub-base_mv.cgi
@@ -1,82 +1,82 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# ÓÊ޲ٗp»ÌÞÙ°ÁÝ Version 1.1								#
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# ‰æ–ÊÚ²±³Ä
-sub html{
-
-	local($shop_i);
-	$shop_i = qq|<a href=$script?id=$id&pw=$pw&cmd=20 accesskey="2">2.Œ®¯ËßÝžÞ</a>/| if(!$type && $cmd<=0);
-
-	print "Content-type: text/html; charset=shift_jis\n\n" ;
-
-	print qq|<html><head><meta http-equiv="Cache-Control" content="no-cache"><title>$titleh</title></head><body $body><center>|;
-	print qq|$title_i<br>| if(!$tm && !$log);
-
-	if($lt_mode =~ /00/){print qq|$log1<hr color=white>| if(!$tm && !$log)}
-	else{print qq|$log1<hr color=white>|;}
-
-	print qq|$log2<hr color=white>|;
-	print qq|$log<hr color=white>|;
-
-	if(!$type && $cmd<=0){
-		print qq|<a href="$index" accesskey="9">9.À²ÄÙ</a>/<a href="$park?id=$id&pw=$pw&camp=$camp&sogo=$sogo" accesskey="1">1.Œð—¬Lê</a>/$shop_i<a href="$hist?id=$id&pw=$pw" accesskey="3">3.‰ß‹Ž‚̉hŒõ</a>/<a href="$public?id=$id&pw=$pw" accesskey="4">4.ŒöŽ®ð–ñ</a>/<a href="$campbbs?id=$id&pw=$pw" accesskey="5">5.ìí‰ï‹c</a><hr color=white>| if($lt_mode =~ /01/);
-		print qq|$bmes<hr color=white>| if($lt_mode =~ /02/ && !$log);
-		print qq|$rst<hr color=white>| if($lt_mode =~ /03/ && !$log);
-		print qq|ŽQ‰Á‘”:$now_sanka–Œ/$sankal’èˆõ//“ˆê‘—Í:$data_reset/“ïˆÕ“x:$reset_point//‘O‰ñ‚Ì”eŽÒ: $hasya [$cmp[$hcamp]]<hr color=white>| if($lt_mode =~ /04/ && !$log);
-		print qq|Œ»Ý‚ÌŽQ‰ÁŽÒ<br>$now_nm| if($lt_mode =~ /05/ && !$log);
-		print qq|<br>$kakiko<br>| if($lt_mode =~ /06/ && !$log);
-	}else{
-		print qq|<a href="$index" accesskey="9">9.À²ÄÙ</a>/<a href="$park?id=$id&pw=$pw&camp=$camp&sogo=$sogo" accesskey="1">1.Œð—¬Lê</a>/$shop_i<a href="$hist?id=$id&pw=$pw" accesskey="3">3.‰ß‹Ž‚̉hŒõ</a>/<a href="$public?id=$id&pw=$pw" accesskey="4">4.ŒöŽ®ð–ñ</a>/<a href="$campbbs?id=$id&pw=$pw" accesskey="5">5.ìí‰ï‹c</a><hr color=white>| if($lt_mode =~ /11/);
-		print qq|$bmes<hr color=white>| if($lt_mode =~ /22/);
-		print qq|$rst<hr color=white>| if($lt_mode =~ /33/);
-		print qq|ŽQ‰Á‘”:$now_sanka–Œ/$sankal’èˆõ//“ˆê‘—Í:$data_reset/“ïˆÕ“x:$reset_point//‘O‰ñ‚Ì”eŽÒ: $hasya [$cmp[$hcamp]]<hr color=white>| if($lt_mode =~ /44/);
-		print qq|ÌßÚ²l”<br>$now_nm| if($lt_mode =~ /55/);
-		print qq|<br>$kakiko<br>| if($lt_mode =~ /66/);
-	}
-}
-
-#-------------------------------------------------------------------------------
-#œÃ°Àœ•\ŽŠ
-sub status{
-
-$log1.=<<EOM;
-$nm<br>
-LV$lv $gold\G<br>
-HP$hp/$max_hp MP$mp/$max_mp<br>
-UA$ua/UD$ud/LR$lr/AG$ag<br>
-ŒoŒ±’l$exe/$next_lv<br>
-$cmp[$camp] $cl[$rank]<br>
-•”‘à$g_p[$rank] ŒP—û“x$sol_lv<br>
-EOM
-$log1.="Ì†[$sogo_p[$sogo]]<br>" if($sogo);
-$log1.="[$dg_data[$dg_a][1]]/$dg_cnt<br>" if($dg_a && $dg_cnt);
-$log1.="[$df_data[$df_a][1]]/$df_cnt<br>" if($df_a && $df_cnt);
-$log1.="[$di_data[$di_a][1]]/$di_cnt<br>" if($di_a && $di_cnt);
-
-my @metu=('','(–S)');
-
-$rst.=<<EOM;
-$cmp[1]$metu[$ce1] ‘—Í$cn1 —\\ŽZ$cg1 •º—Æ$cf1 •ºŽm$cs1 l”$c1/$c1a
-<hr color=white>$cmp[2]$metu[$ce2] ‘—Í$cn2 —\\ŽZ$cg2 •º—Æ$cf2 •ºŽm$cs2 l”$c2/$c2a
-<hr color=white>$cmp[3]$metu[$ce3] ‘—Í$cn3 —\\ŽZ$cg3 •º—Æ$cf3 •ºŽm$cs3 l”$c3/$c3a
-<hr color=white>$cmp[4]$metu[$ce4] ‘—Í$cn4 —\\ŽZ$cg4 •º—Æ$cf4 •ºŽm$cs4 l”$c4/$c4a
-<hr color=white>$cmp[5]$metu[$ce5] ‘—Í$cn5 —\\ŽZ$cg5 •º—Æ$cf5 •ºŽm$cs5 l”$c5/$c5a
-<hr color=white>
-EOM
-}
-
-
-
-
-
-1;#íœ•s‰Â
+#-----------------------------------------------------------#
+#  죄와 벌++ 읎윚배반										#
+#  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.1								#
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# 화멎 레읎아웃
+sub html{
+
+	local($shop_i);
+	$shop_i = qq|<a href=$script?id=$id&pw=$pw&cmd=20 accesskey="2">2. 쇌핑</a>/| if(!$type && $cmd<=0);
+
+	print "Content-type: text/html; charset=utf-8\n\n" ;
+
+	print qq|<html><head><meta http-equiv="Cache-Control" content="no-cache"><title>$titleh</title></head><body $body><center>|;
+	print qq|$title_i<br>| if(!$tm && !$log);
+
+	if($lt_mode =~ /00/){print qq|$log1<hr color=white>| if(!$tm && !$log)}
+	else{print qq|$log1<hr color=white>|;}
+
+	print qq|$log2<hr color=white>|;
+	print qq|$log<hr color=white>|;
+
+	if(!$type && $cmd<=0){
+		print qq|<a href="$index" accesskey="9">9. 타읎틀</a>/<a href="$park?id=$id&pw=$pw&camp=$camp&sogo=$sogo" accesskey="1">1. 교류ꎑ장</a>/$shop_i<a href="$hist?id=$id&pw=$pw" accesskey="3">3. 곌거의 영ꎑ</a>/<a href="$public?id=$id&pw=$pw" accesskey="4">4. 공식조앜</a>/<a href="$campbbs?id=$id&pw=$pw" accesskey="5">5. 작전회의</a><hr color=white>| if($lt_mode =~ /01/);
+		print qq|$bmes<hr color=white>| if($lt_mode =~ /02/ && !$log);
+		print qq|$rst<hr color=white>| if($lt_mode =~ /03/ && !$log);
+		print qq|ì°žê°€ 쎝수:$now_sanka명/$sanka명 정원//통음 êµ­ë ¥:$data_reset/난읎도:$reset_point//읎전 팚자: $hasya [$cmp[$hcamp]]<hr color=white>| if($lt_mode =~ /04/ && !$log);
+		print qq|현재 찞가자<br>$now_nm| if($lt_mode =~ /05/ && !$log);
+		print qq|<br>$kakiko<br>| if($lt_mode =~ /06/ && !$log);
+	}else{
+		print qq|<a href="$index" accesskey="9">9. 타읎틀</a>/<a href="$park?id=$id&pw=$pw&camp=$camp&sogo=$sogo" accesskey="1">1. 교류ꎑ장</a>/$shop_i<a href="$hist?id=$id&pw=$pw" accesskey="3">3. 곌거의 영ꎑ</a>/<a href="$public?id=$id&pw=$pw" accesskey="4">4. 공식조앜</a>/<a href="$campbbs?id=$id&pw=$pw" accesskey="5">5. 작전회의</a><hr color=white>| if($lt_mode =~ /11/);
+		print qq|$bmes<hr color=white>| if($lt_mode =~ /22/);
+		print qq|$rst<hr color=white>| if($lt_mode =~ /33/);
+		print qq|ì°žê°€ 쎝수:$now_sanka명/$sanka명 정원//통음 êµ­ë ¥:$data_reset/난읎도:$reset_point//읎전 팚자: $hasya [$cmp[$hcamp]]<hr color=white>| if($lt_mode =~ /44/);
+		print qq|플레읎 읞원<br>$now_nm| if($lt_mode =~ /55/);
+		print qq|<br>$kakiko<br>| if($lt_mode =~ /66/);
+	}
+}
+
+#-------------------------------------------------------------------------------
+# 슀태터슀 표시
+sub status{
+
+$log1.=<<EOM;
+$nm<br>
+LV$lv $gold\G<br>
+HP$hp/$max_hp MP$mp/$max_mp<br>
+UA$ua/UD$ud/LR$lr/AG$ag<br>
+겜험치$exe/$next_lv<br>
+$cmp[$camp] $cl[$rank]<br>
+부대$g_p[$rank] 훈령도$sol_lv<br>
+EOM
+$log1.="칭혞[$sogo_p[$sogo]]<br>" if($sogo);
+$log1.="[$dg_data[$dg_a][1]]/$dg_cnt<br>" if($dg_a && $dg_cnt);
+$log1.="[$df_data[$df_a][1]]/$df_cnt<br>" if($df_a && $df_cnt);
+$log1.="[$di_data[$di_a][1]]/$di_cnt<br>" if($di_a && $di_cnt);
+
+my @metu=('','(멞망)');
+
+$rst.=<<EOM;
+$cmp[1]$metu[$ce1] êµ­ë ¥$cn1 예산$cg1 군량$cf1 병사$cs1 읞원$c1/$c1a
+<hr color=white>$cmp[2]$metu[$ce2] êµ­ë ¥$cn2 예산$cg2 군량$cf2 병사$cs2 읞원$c2/$c2a
+<hr color=white>$cmp[3]$metu[$ce3] êµ­ë ¥$cn3 예산$cg3 군량$cf3 병사$cs3 읞원$c3/$c3a
+<hr color=white>$cmp[4]$metu[$ce4] êµ­ë ¥$cn4 예산$cg4 군량$cf4 병사$cs4 읞원$c4/$c4a
+<hr color=white>$cmp[5]$metu[$ce5] êµ­ë ¥$cn5 예산$cg5 군량$cf5 병사$cs5 읞원$c5/$c5a
+<hr color=white>
+EOM
+}
+
+
+
+
+
+1;#삭제 불가
diff --git a/inc/ore_sub-base_pc.cgi b/inc/ore_sub-base_pc.cgi
old mode 100644
new mode 100755
index 1865f6a..f3449e0
--- a/inc/ore_sub-base_pc.cgi
+++ b/inc/ore_sub-base_pc.cgi
@@ -1,368 +1,368 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# PC—pƒTƒuƒ‹[ƒ`ƒ“	Version 1.1								#
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# ‰æ–ʃŒƒCƒAƒEƒg
-sub html{
-
-	# ƒwƒbƒ_[&ˆ³k“]‘——L–³
-	&content_type;
-
-	# ϳœŽ©“®‘€ìÁ°ÄŒ‚‘Þ í“¬Žž‚É4/400 ‚ÌŠm—§‚Å”­“®
-	my $no_mouse = ($no_mouse && $type eq 'Cs’†') ? int(rand(400)) : 100 ;
-
-	print <<EOM;
-<html>
-<head>
-<title>$titleh</title>
-<link rel=stylesheet type="text/css" href="$css" title="style">
-EOM
-
-# JavascriptŽ©“®‘€ìƒ`[ƒg–h‰q(frameŽæ‚荞‚Ý–h‰q)
-if($no_js){
-	print <<EOM;
-<script language="javascript">
-<!--
-	if(self!=top){
-		top.location = self.location;
-	}
-//-->
-</script>
-EOM
-}
-
-	print <<EOM;
-</head>
-<body $body class="bar">
-<center>
-<table width="740" border="0" cellspacing="0" cellpadding="0">
-<tr>
-<td align="left">
-$title
-</td>
-</tr>
-</table>
-
-<table width="740" border="0" cellspacing="0" cellpadding="0" height="300">
-<tr>
-<td align="center" valign="middle" width="500">
-
-<table width="540" border="0" cellspacing="6" cellpadding="6" height="285" bgcolor="#444466">
-<tr>
-<td bgcolor="#000000" align="left" valign="top">
-$log1
-</td>
-</tr>
-</table>
-
-</td>
-<td align="right" valign="middle" width="200">
-
-<table border="0" cellspacing="0" cellpadding="5" height="285">
-<tr>
-<form method="get" action="$index">
-<td bgcolor="#000000" valign="middle">
-<input type="submit" value="õ ƒ^ƒCƒgƒ‹‚Ö–ß‚é õ" class="button1">
-</td>
-</form>
-</tr>
-EOM
-	if($no_mouse==0){
-		print qq|<tr>$log2</tr>|;
-	}
-	print<<EOM;
-<tr>
-<form method="$method" action="$park">
-<td valilgn="middle">
-<input type="hidden" name="id" value="$id">
-<input type="hidden" name="pw" value="$pw">
-<input type="hidden" name="camp" value="$camp">
-<input type="hidden" name="sogo" value="$sogo">
-<input type="submit" value="õ ‘ÛŒð—¬Lê õ" class="button1">
-</td>
-</form>
-</tr>
-EOM
-	if($no_mouse==1){
-		print qq|<tr>$log2</tr>|;
-	}
-	print<<EOM;
-<tr>
-<form method="$method" action="$hist">
-<td valilgn="middle">
-<input type="hidden" name="id" value="$id">
-<input type="hidden" name="pw" value="$pw">
-<input type="submit" value="õ   ‰ß‹Ž‚̉hŒõ   õ" class="button1">
-</td>
-</form>
-</tr>
-EOM
-
-if(!$type && $cmd<=0){
-	print <<"EOM";
-<tr>
-<form method="$method" action="$script">
-<td valilgn="middle">
-<input type="hidden" name="id" value="$id">
-<input type="hidden" name="pw" value="$pw">
-<input type="hidden" name="cmd" value="20">
-<input type="submit" value="õ  Œ®¯ËßÝžÞÓ°Ù  õ" class="button1">
-</td>
-</form>
-</tr>
-EOM
-}
-	print <<"EOM";
-<tr>
-<form method="$method" action="$public">
-<td valilgn="middle">
-<input type="hidden" name="id" value="$id">
-<input type="hidden" name="pw" value="$pw">
-<input type="submit" value="õ     ŒöŽ®ð–ñ     õ" class="button1">
-</td>
-</form>
-</tr>
-EOM
-	if($no_mouse==2){
-		print qq|<tr>$log2</tr>|;
-	}
-	print<<EOM;
-<tr>
-<form method="$method" action="$campbbs">
-<td>
-<input type="hidden" name="id" value="$id">
-<input type="hidden" name="pw" value="$pw">
-<input type="submit" value="õŠe‘ìí‰ï‹cŽºõ" class="button1">
-</td>
-</form>
-</tr>
-EOM
-	if($no_mouse>=3){
-		print qq|<tr>$log2</tr>|;
-	}
-	print<<EOM;
-</table>
-
-</td>
-</tr>
-</table>
-<br>
-EOM
-
-	my($uti, $sti, $cuti, $csti) = times();
-	$uti += $cuti;
-	$sti += $csti;
-	my($cpu) = $uti + $sti;
-	my $disp="CPUs($cpu): User($uti) System($sti)<br>";
-
-	if($layout_flag==1){
-		print <<EOM;
-<table width="740" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466">
-<tr>
-<td bgcolor="#000000" align="center" valign="top" height="120">
-<tt class="moji1">
-$log
-</tt>
-</td>
-</tr>
-</table>
-<br><br>
-EOM
-	}elsif(!$layout_flag){
-		require './inc/ore_sub-base-p1_pc.cgi';&layout_flag_0;
-	}
-
-	print <<"EOM";
-$disp<br>
-<br>
-$kakiko
-EOM
-
-}
-
-#-------------------------------------------------------------------------------
-#ƒXƒe[ƒ^ƒX•\ŽŠ
-sub status{
-
-	&settei;#Ý’è“ǂݍž‚Ý
-
-	my(
-		$hp_v,$hp_c,$hp_y,
-		$mp_v,$mp_c,$mp_y,
-		$ua_v,$ua_c,
-		$ud_v,$ud_c,
-		$lr_v,$lr_c,
-	);
-
-	#HPƒOƒ‰ƒt
-	if($max_hp <= 75){
-		$hp_v = $hp*2;
-		$hp_c = "#00bbff";
-		$hp_y = $max_hp*2-$hp*2;
-	}elsif($max_hp <= 300){
-		$hp_v = $hp;
-		$hp_c = "#0099ff";
-		$hp_y = $max_hp-$hp;
-	}elsif($max_hp <= 600){ 
-		$hp_v = int($hp/2);
-		$hp_c = "#0077ff";
-		$hp_y = int($max_hp/2-$hp/2);
-	}elsif($max_hp <= 1200){
-		$hp_v = int($hp/4);
-		$hp_c = "#0055ff";
-		$hp_y = int($max_hp/4-$hp/4);
-	}elsif($max_hp <= 2400){
-		$hp_v = int($hp/8);
-		$hp_c = "#0033ff";
-		$hp_y = int($max_hp/8-$hp/8);
-	}elsif($max_hp <= 4800){
-		$hp_v = int($hp/16);
-		$hp_c = "#0011ff";
-		$hp_y = int($max_hp/16-$hp/16);
-	}else{
-		$hp_v = int($hp/32);
-		$hp_c = "#0011ff";
-		$hp_y = int($max_hp/32-$hp/32);
-	}
-	#MPƒOƒ‰ƒt
-	if($max_mp <= 75){
-		$mp_v = $mp*2;
-		$mp_c = "#00ffcc";
-		$mp_y = $max_mp*2-$mp*2;
-	}elsif($max_mp <= 300){
-		$mp_v = $mp;
-		$mp_c = "#00ddcc";
-		$mp_y = $max_mp-$mp;
-	}elsif($max_mp <= 600){ 
-		$mp_v = int($mp/2);
-		$mp_c = "#00bbcc";
-		$mp_y = int($max_mp/2-$mp/2);
-	}elsif($max_mp <= 1200){
-		$mp_v = int($mp/4);
-		$mp_c = "#0099cc";
-		$mp_y = int($max_mp/4-$mp/4);
-	}elsif($max_mp <= 2400){
-		$mp_v = int($mp/8);
-		$mp_c = "#0077cc";
-		$mp_y = int($max_mp/8-$mp/8);
-	}elsif($max_mp <= 4800){
-		$mp_v = int($mp/16);
-		$mp_c = "#0055cc";
-		$mp_y = int($max_mp/16-$mp/16);
-	}else{
-		$mp_v = int($mp/32);
-		$mp_c = "#0033cc";
-		$mp_y = int($max_mp/32-$mp/32);
-	}
-	#UAƒOƒ‰ƒt
-	if($ua <= 25){
-		$ua_v = $ua*4;
-		$ua_c = "#99ccff";
-	}elsif($ua <= 50){
-		$ua_v = $ua*2;
-		$ua_c = "#9999ff";
-	}elsif($ua <= 100){ 
-		$ua_v = $ua;
-		$ua_c = "#9966ff";
-	}elsif($ua <= 500){ 
-		$ua_v = int($ua/2);
-		$ua_c = "#9933ff";
-	}else{ 
-		$ua_v = int($ua/4);
-		$ua_c = "#9900ff";
-	}
-	#UDƒOƒ‰ƒt
-	if($ud <= 25){
-		$ud_v = $ud*4;
-		$ud_c = "#33ffff";
-	}elsif($ud <= 50){
-		$ud_v = $ud*2;
-		$ud_c = "#33ccff";
-	}elsif($ud <= 100){ 
-		$ud_v = $ud;
-		$ud_c = "#3399ff";
-	}elsif($ud <= 500){ 
-		$ud_v = int($ud/2);
-		$ud_c = "#3366ff";
-	}else{ 
-		$ud_v = int($ud/4);
-		$ud_c = "#3333ff";
-	}
-	#LRƒOƒ‰ƒt
-	if($lr <= 25){
-		$lr_v = $lr*4;
-		$lr_c = "#ccccff";
-	}elsif($lr <= 50){
-		$lr_v = $lr*2;
-		$lr_c = "#cc99ff";
-	}elsif($lr <= 100){ 
-		$lr_v = $lr;
-		$lr_c = "#cc66ff";
-	}elsif($lr <= 500){ 
-		$lr_v = int($lr/2);
-		$lr_c = "#cc33ff";
-	}else{ 
-		$lr_v = int($lr/4);
-		$lr_c = "#cc00ff";
-	}
-	#LRƒOƒ‰ƒt
-	if($ag <= 25){
-		$ag_v = $ag*4;
-		$ag_c = "#ccccff";
-	}elsif($ag <= 50){
-		$ag_v = $ag*2;
-		$ag_c = "#cc99ff";
-	}elsif($ag <= 100){ 
-		$ag_v = $ag;
-		$ag_c = "#cc66ff";
-	}elsif($ag <= 500){ 
-		$ag_v = int($ag/2);
-		$ag_c = "#cc33ff";
-	}else{ 
-		$ag_v = int($ag/4);
-		$ag_c = "#cc00ff";
-	}
-
-	$hp_y = (!$hp_y) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$hp_y\" style=\"background-color:#555555\">";
-	$mp_y = (!$mp_y) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$mp_y\" style=\"background-color:#555555\">";
-	$ua_y = (!$dg_a) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$dg_data[$dg_a][4]\" style=\"background-color:#6666cc\">";
-	$ud_y = (!$df_a) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$df_data[$df_a][4]\" style=\"background-color:#6666cc\">";
-
-	$log1.=<<EOM;
-<tt class="moji1">
-<b>$nm</b>@@@<span style="font-size:12px">$seibetu[$sei]</span>&nbsp;&nbsp;&nbsp;&nbsp;ID: $id<br>
-ƒŒƒxƒ‹ <b>$lv</b>@ŠK@‹‰ <b>$cl[$rank]</b>@Ì@† [<b>$sogo_p[$sogo]</b>]<br>
-<br>
-‘́@—Í[HP] <img src="$imgs/spc.gif" height="8" width="$hp_v" style="background-color:$hp_c">$hp_y $hp/$max_hp<br>
-–‚@—Í[MP] <img src="$imgs/spc.gif" height="8" width="$mp_v" style="background-color:$mp_c">$mp_y $mp/$max_mp<br>
-UŒ‚—Í[UA] <img src="$imgs/spc.gif" height="8" width="$ua_v" style="background-color:$ua_c">$ua_y $ua +$dg_data[$dg_a][4]<br>
-–hŒä—Í[UD] <img src="$imgs/spc.gif" height="8" width="$ud_v" style="background-color:$ud_c">$ud_y $ud +$df_data[$df_a][4]<br>
-ŽwŠö—Í[LR] <img src="$imgs/spc.gif" height="8" width="$lr_v" style="background-color:$lr_c"> $lr<br>
-•q·—Í[AG] <img src="$imgs/spc.gif" height="8" width="$ag_v" style="background-color:$ag_c"> $ag<br>
-<br>
-Ž‘@‹à <b>$gold</b>@ŒoŒ±’l <b>$exe/$next_lv</b>@vŒ£’l <b>$rank_exe</b><br>
-<br>
-Š@‘® <b>$cmp[$camp]</b>@•”@‘à <b>$g_p[$rank]</b>@ŒP—û“x <b>$sol_lv</b><br>
-<br>
-•@‹ï [<b>$dg_data[$dg_a][1]</b>]@‰ñ” [<b>$dg_cnt</b>]<br>
-–h@‹ï [<b>$df_data[$df_a][1]</b>]@‰ñ” [<b>$df_cnt</b>]<br>
-“¹@‹ï [<b>$di_data[$di_a][1]</b>]@‰ñ” [<b>$di_cnt</b>]
-</tt>
-EOM
-
-}
-
-
-
-
-
-1;#íœ•s‰Â
+#-----------------------------------------------------------#
+#  죄와 벌++ 읎윚배반										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# PC용 서람룚틎	Version 1.1								#
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# 화멎 레읎아웃
+sub html{
+
+	# 헀더 & 압축 전송 유묎
+	&content_type;
+
+	# 마우슀 자동 조작 치튞 격퇎 전투 시에 4/400 확률로 발동
+	my $no_mouse = ($no_mouse && $type eq '수행쀑') ? int(rand(400)) : 100 ;
+
+	print <<EOM;
+<html>
+<head>
+<title>$titleh</title>
+<link rel=stylesheet type="text/css" href="$css" title="style">
+EOM
+
+# Javascript 자동 조작 치튞 ë°©ì–Ž(frame ë°©ì–Ž)
+if($no_js){
+	print <<EOM;
+<script language="javascript">
+<!--
+	if(self!=top){
+		top.location = self.location;
+	}
+//-->
+</script>
+EOM
+}
+
+	print <<EOM;
+</head>
+<body $body class="bar">
+<center>
+<table width="740" border="0" cellspacing="0" cellpadding="0">
+<tr>
+<td align="left">
+$title
+</td>
+</tr>
+</table>
+
+<table width="740" border="0" cellspacing="0" cellpadding="0" height="300">
+<tr>
+<td align="center" valign="middle" width="500">
+
+<table width="540" border="0" cellspacing="6" cellpadding="6" height="285" bgcolor="#444466">
+<tr>
+<td bgcolor="#000000" align="left" valign="top">
+$log1
+</td>
+</tr>
+</table>
+
+</td>
+<td align="right" valign="middle" width="200">
+
+<table border="0" cellspacing="0" cellpadding="5" height="285">
+<tr>
+<form method="get" action="$index">
+<td bgcolor="#000000" valign="middle">
+<input type="submit" value="† 타읎틀로 돌아가Ʞ †" class="button1">
+</td>
+</form>
+</tr>
+EOM
+	if($no_mouse==0){
+		print qq|<tr>$log2</tr>|;
+	}
+	print<<EOM;
+<tr>
+<form method="$method" action="$park">
+<td valilgn="middle">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="hidden" name="camp" value="$camp">
+<input type="hidden" name="sogo" value="$sogo">
+<input type="submit" value="† 국제 교류 ꎑ장 †" class="button1">
+</td>
+</form>
+</tr>
+EOM
+	if($no_mouse==1){
+		print qq|<tr>$log2</tr>|;
+	}
+	print<<EOM;
+<tr>
+<form method="$method" action="$hist">
+<td valilgn="middle">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="submit" value="†   곌거의 영ꎑ   †" class="button1">
+</td>
+</form>
+</tr>
+EOM
+
+if(!$type && $cmd<=0){
+	print <<"EOM";
+<tr>
+<form method="$method" action="$script">
+<td valilgn="middle">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="hidden" name="cmd" value="20">
+<input type="submit" value="†  쇌핑몰  †" class="button1">
+</td>
+</form>
+</tr>
+EOM
+}
+	print <<"EOM";
+<tr>
+<form method="$method" action="$public">
+<td valilgn="middle">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="submit" value="†     공식 ì¡°ì•œ     †" class="button1">
+</td>
+</form>
+</tr>
+EOM
+	if($no_mouse==2){
+		print qq|<tr>$log2</tr>|;
+	}
+	print<<EOM;
+<tr>
+<form method="$method" action="$campbbs">
+<td>
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="submit" value="† 국가별 작전 회의싀 †" class="button1">
+</td>
+</form>
+</tr>
+EOM
+	if($no_mouse>=3){
+		print qq|<tr>$log2</tr>|;
+	}
+	print<<EOM;
+</table>
+
+</td>
+</tr>
+</table>
+<br>
+EOM
+
+	my($uti, $sti, $cuti, $csti) = times();
+	$uti += $cuti;
+	$sti += $csti;
+	my($cpu) = $uti + $sti;
+	my $disp="CPUs($cpu): User($uti) System($sti)<br>";
+
+	if($layout_flag==1){
+		print <<EOM;
+<table width="740" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466">
+<tr>
+<td bgcolor="#000000" align="center" valign="top" height="120">
+<tt class="moji1">
+$log
+</tt>
+</td>
+</tr>
+</table>
+<br><br>
+EOM
+	}elsif(!$layout_flag){
+		require './inc/ore_sub-base-p1_pc.cgi';&layout_flag_0;
+	}
+
+	print <<"EOM";
+$disp<br>
+<br>
+$kakiko
+EOM
+
+}
+
+#-------------------------------------------------------------------------------
+#슀태터슀 표시
+sub status{
+
+	&settei;#섀정 읜Ʞ
+
+	my(
+		$hp_v,$hp_c,$hp_y,
+		$mp_v,$mp_c,$mp_y,
+		$ua_v,$ua_c,
+		$ud_v,$ud_c,
+		$lr_v,$lr_c,
+	);
+
+	#HP 귞래프
+	if($max_hp <= 75){
+		$hp_v = $hp*2;
+		$hp_c = "#00bbff";
+		$hp_y = $max_hp*2-$hp*2;
+	}elsif($max_hp <= 300){
+		$hp_v = $hp;
+		$hp_c = "#0099ff";
+		$hp_y = $max_hp-$hp;
+	}elsif($max_hp <= 600){ 
+		$hp_v = int($hp/2);
+		$hp_c = "#0077ff";
+		$hp_y = int($max_hp/2-$hp/2);
+	}elsif($max_hp <= 1200){
+		$hp_v = int($hp/4);
+		$hp_c = "#0055ff";
+		$hp_y = int($max_hp/4-$hp/4);
+	}elsif($max_hp <= 2400){
+		$hp_v = int($hp/8);
+		$hp_c = "#0033ff";
+		$hp_y = int($max_hp/8-$hp/8);
+	}elsif($max_hp <= 4800){
+		$hp_v = int($hp/16);
+		$hp_c = "#0011ff";
+		$hp_y = int($max_hp/16-$hp/16);
+	}else{
+		$hp_v = int($hp/32);
+		$hp_c = "#0011ff";
+		$hp_y = int($max_hp/32-$hp/32);
+	}
+	#MP 귞래프
+	if($max_mp <= 75){
+		$mp_v = $mp*2;
+		$mp_c = "#00ffcc";
+		$mp_y = $max_mp*2-$mp*2;
+	}elsif($max_mp <= 300){
+		$mp_v = $mp;
+		$mp_c = "#00ddcc";
+		$mp_y = $max_mp-$mp;
+	}elsif($max_mp <= 600){ 
+		$mp_v = int($mp/2);
+		$mp_c = "#00bbcc";
+		$mp_y = int($max_mp/2-$mp/2);
+	}elsif($max_mp <= 1200){
+		$mp_v = int($mp/4);
+		$mp_c = "#0099cc";
+		$mp_y = int($max_mp/4-$mp/4);
+	}elsif($max_mp <= 2400){
+		$mp_v = int($mp/8);
+		$mp_c = "#0077cc";
+		$mp_y = int($max_mp/8-$mp/8);
+	}elsif($max_mp <= 4800){
+		$mp_v = int($mp/16);
+		$mp_c = "#0055cc";
+		$mp_y = int($max_mp/16-$mp/16);
+	}else{
+		$mp_v = int($mp/32);
+		$mp_c = "#0033cc";
+		$mp_y = int($max_mp/32-$mp/32);
+	}
+	#UA 귞래프
+	if($ua <= 25){
+		$ua_v = $ua*4;
+		$ua_c = "#99ccff";
+	}elsif($ua <= 50){
+		$ua_v = $ua*2;
+		$ua_c = "#9999ff";
+	}elsif($ua <= 100){ 
+		$ua_v = $ua;
+		$ua_c = "#9966ff";
+	}elsif($ua <= 500){ 
+		$ua_v = int($ua/2);
+		$ua_c = "#9933ff";
+	}else{ 
+		$ua_v = int($ua/4);
+		$ua_c = "#9900ff";
+	}
+	#UD 귞래프
+	if($ud <= 25){
+		$ud_v = $ud*4;
+		$ud_c = "#33ffff";
+	}elsif($ud <= 50){
+		$ud_v = $ud*2;
+		$ud_c = "#33ccff";
+	}elsif($ud <= 100){ 
+		$ud_v = $ud;
+		$ud_c = "#3399ff";
+	}elsif($ud <= 500){ 
+		$ud_v = int($ud/2);
+		$ud_c = "#3366ff";
+	}else{ 
+		$ud_v = int($ud/4);
+		$ud_c = "#3333ff";
+	}
+	#LR 귞래프
+	if($lr <= 25){
+		$lr_v = $lr*4;
+		$lr_c = "#ccccff";
+	}elsif($lr <= 50){
+		$lr_v = $lr*2;
+		$lr_c = "#cc99ff";
+	}elsif($lr <= 100){ 
+		$lr_v = $lr;
+		$lr_c = "#cc66ff";
+	}elsif($lr <= 500){ 
+		$lr_v = int($lr/2);
+		$lr_c = "#cc33ff";
+	}else{ 
+		$lr_v = int($lr/4);
+		$lr_c = "#cc00ff";
+	}
+	#AG 귞래프
+	if($ag <= 25){
+		$ag_v = $ag*4;
+		$ag_c = "#ccccff";
+	}elsif($ag <= 50){
+		$ag_v = $ag*2;
+		$ag_c = "#cc99ff";
+	}elsif($ag <= 100){ 
+		$ag_v = $ag;
+		$ag_c = "#cc66ff";
+	}elsif($ag <= 500){ 
+		$ag_v = int($ag/2);
+		$ag_c = "#cc33ff";
+	}else{ 
+		$ag_v = int($ag/4);
+		$ag_c = "#cc00ff";
+	}
+
+	$hp_y = (!$hp_y) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$hp_y\" style=\"background-color:#555555\">";
+	$mp_y = (!$mp_y) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$mp_y\" style=\"background-color:#555555\">";
+	$ua_y = (!$dg_a) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$dg_data[$dg_a][4]\" style=\"background-color:#6666cc\">";
+	$ud_y = (!$df_a) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$df_data[$df_a][4]\" style=\"background-color:#6666cc\">";
+
+	$log1.=<<EOM;
+<tt class="moji1">
+<b>$nm</b>　　　<span style="font-size:12px">$seibetu[$sei]</span>&nbsp;&nbsp;&nbsp;&nbsp;ID: $id<br>
+레벚 <b>$lv</b>　계　꞉ <b>$cl[$rank]</b>　칭　혞 [<b>$sogo_p[$sogo]</b>]<br>
+<br>
+첎　력[HP] <img src="$imgs/spc.gif" height="8" width="$hp_v" style="background-color:$hp_c">$hp_y $hp/$max_hp<br>
+마　력[MP] <img src="$imgs/spc.gif" height="8" width="$mp_v" style="background-color:$mp_c">$mp_y $mp/$max_mp<br>
+공격력[UA] <img src="$imgs/spc.gif" height="8" width="$ua_v" style="background-color:$ua_c">$ua_y $ua +$dg_data[$dg_a][4]<br>
+ë°©ì–Žë ¥[UD] <img src="$imgs/spc.gif" height="8" width="$ud_v" style="background-color:$ud_c">$ud_y $ud +$df_data[$df_a][4]<br>
+지휘력[LR] <img src="$imgs/spc.gif" height="8" width="$lr_v" style="background-color:$lr_c"> $lr<br>
+믌첩성[AG] <img src="$imgs/spc.gif" height="8" width="$ag_v" style="background-color:$ag_c"> $ag<br>
+<br>
+자　ꞈ <b>$gold</b>　겜험치 <b>$exe/$next_lv</b>　공헌도 <b>$rank_exe</b><br>
+<br>
+소　속 <b>$cmp[$camp]</b>　부　대 <b>$g_p[$rank]</b>　훈렚도 <b>$sol_lv</b><br>
+<br>
+묎　Ʞ [<b>$dg_data[$dg_a][1]</b>]　횟수 [<b>$dg_cnt</b>]<br>
+방　얎구 [<b>$df_data[$df_a][1]</b>]　횟수 [<b>$df_cnt</b>]<br>
+도　구 [<b>$di_data[$di_a][1]</b>]　횟수 [<b>$di_cnt</b>]
+</tt>
+EOM
+
+}
+
+
+
+
+
+1;#삭제 불가
diff --git a/inc/ore_sub-battle.cgi b/inc/ore_sub-battle.cgi
old mode 100644
new mode 100755
index 855c994..bc293ea
--- a/inc/ore_sub-battle.cgi
+++ b/inc/ore_sub-battle.cgi
@@ -1,1109 +1,1109 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  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.1
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-#Csˆ—2
-sub bt_st {
-
-	&bt_cm;
-
-	$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|;
-	if($thp<1||$hp<1){
-		$log2 .=qq|<input type="hidden" name="cmd" value=-1>\n|;
-	}else{
-		&spell_sp;
-	}
-	$log2 .=qq|<br>\n|;#ƒe[ƒuƒ‹‚ž‚êC³
-	$log2 .=qq|<input $button1 type="submit" value="NEXTI">$td_end</form>\n|;#ƒe[ƒuƒ‹’ljÁ</tr></table>
-
-	&dat_write;
-
-}
-
-#-------------------------------------------------------------------------------
-#í“¬ˆ—
-sub bt_cm {
-
-	$layout_flag=1;
-
-	$ua_a	= $ua+$dg_data[$dg_a][4];	# $ua‚É•‹ï’l•t‰Á
-	$ud_a	= $ud+$df_data[$df_a][4];	# $ud‚É–h‹ï’l•t‰Á
-
-	$tua_a	= $tua+$dg_data[$tdg_a][4];	# $tua‚É•‹ï’l•t‰Á
-	$tud_a	= $tud+$df_data[$tdf_a][4];	# $tud‚É–h‹ï’l•t‰Á
-
-	my $btp = $ag + int(rand($lv/10)+1);
-	my $bte = $tag+ int(rand($tlv/10)+1);
-
-	($btp>=$bte) ? &attack_myself : &attack_enemy ;
-	if($thp>0 && $hp>0){($btp>=$bte) ? &attack_enemy : &attack_myself ;}
-
-	# 02/10 í‘ˆŽžAU‚ß‚œ‘‚̐l‚Å‚È‚¢l‚ª‚Å‚Ä‚­‚邱‚Ƃւ̑Ώˆ $tnm >> $tnm_p
-	$tnm_p = $tnm if(!$tnm_p);
-	$log .="<p>$nm ( HP $hp / MP $mp ) VS $tnm_p ( HP $thp / MP $tmp )</p>\n";
-
-}
-
-# UŒ‚--Ž©•ª
-sub attack_myself{
-
-	$log .="<font color=#6666FF>\n";
-
-	if($cmd == 1){
-		local ($v,$vv);
-
-		$vv=int(rand(1500));
-
-		$v = $ua_a-$tud_a;
-		$v += int(sqrt($ua)) if($bst =~ /W/);
-
-		$v = 1 if($v<1);
-
-		if($dg_a && $dg_cnt){#•‹ïŒÄ‚яo‚µ
-			$log .="$nm ‚Í $dg_data[$dg_a][1] ‚ōUŒ‚!!<br>$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-			$thp -= $v;
-			$dg_cnt--;
-			if($dg_cnt<=0){
-				$log .="$dg_data[$dg_a][1] ‚ª‰ó‚ê‚œ!!<br>\n";
-				$dg_a = $dg_cnt = 0;
-			}
-			elsif(!$vv){
-				$log .="“–‚œ‚菊‚ªˆ«‚­ $dg_data[$dg_a][1] ‚ª‰ó‚ê‚œ!!<br>\n";
-				$dg_a = $dg_cnt = 0;
-			}
-		}else{
-			$v = int((rand(4))+$v);
-			$thp -= $v;
-			$log .="$nm ‚Í $tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-		}
-
-	}elsif($cmd >= 2){
-		$v = $cmd -2;
-
-		if($rank >= 8){# ŠK‹‰‹ZŒÄ‚яo‚µ
-			&st_cm_k;
-		}
-
-		if($di_a == 1){#Œ«ŽÒ‚̐Î
-			my $ss=int($lv/2);
-			my ($v,$vv);
-			if(int($hp+$ss) < $max_hp){
-				$hp += $ss;
-			}else{
-				$v=$max_hp-$hp;
-				$hp += $v;
-			}
-			if(int($mp+$ss) < $max_mp){
-				$mp += $ss;
-			}else{
-				$vv=$max_mp-$mp;
-				$mp += $vv;
-			}
-			$log .="$di_data[$di_a][1] ‚̍ì—p‚É‚æ‚è$nm ‚̗͑͂Ɛž_‚ª $ss ‰ñ•œ‚µ‚œ!<br>\n";
-
-			$di_cnt--;
-
-			if($di_cnt<=0){
-				$log .="$di_data[$di_a][1] ‚ªÓ‚¯ŽU‚Á‚œI<br>\n";
-				$di_a=0;
-			}
-		}
-
-		# “¹‹ïŒÄ‚яo‚µ
-		&dogu_k if($di_a > 1 && $cmd==15);
-
-		if($v<int($lv/5) && $mp>=$sp_mp[$v]){
-			$mp -= $sp_mp[$v];
-
-			if($camp==0){
-
-				if($lv < 10){$ch =int(rand(10));}#žØÚ¶Ù˯ėŠ
-				elsif($lv >= 10 && $lv < 15){$ch =int(rand(15));}
-				elsif($lv >= 15 && $lv < 20){$ch =int(rand(25));}
-				elsif($lv >= 20 && $lv < 30){$ch =int(rand(50));}
-				elsif($lv >= 30 && $lv < 40){$ch =int(rand(75));}
-				else{$ch =int(rand(125));}
-
-				if($v == 0 && $ch == 0 || ($ch == 1 && $lv > 5 && $lv < 10)){
-					$v = int($ua*4);
-					$v = 1 if($v<1);
-					$thp -= $v;
-					$log .="•KŽE ÏŒÞ݌•I<b>žØÚ¶Ù˯āI</b> $tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 0 && $ch == 1 && $lv >= 10 && $lv < 20){
-					$hp += int($max_hp/3) if($hp < $max_hp - int($max_hp/3));
-					$v = int($ua*2);
-					$v = 1 if($v<1);
-					$thp -= $v;
-					$log .="”Œ‰ñ•œI‘Ì—Í‚ª‚ ‚é’ö“x‰ñ•œ‚µ‚œI<br>˜A‘±‹ZI •KŽE ÏŒÞ݌•I$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 0 && $ch >= 2 || ($ch == 1 && $lv >= 20)){
-					$v = int($ua*2);
-					$v = 1 if($v<1);
-					$thp -= $v;
-					$log .="•KŽE ÏŒÞ݌•I$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 1){
-					$hp = $max_hp;
-					$log .="‘S‰ñ•œI‘Ì—Í‚ªŠ®‘S‚ɉñ•œ‚µ‚œI<br>\n";
-				}
-
-			}elsif($camp==1){
-
-				if($v == 0){
-					$v = int($ua*1.5);
-					$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
-					$v = int($v*1.5)           if($bst =~ /W/);
-					$v = $v-$tud;
-					$v = 1 if($v<1);
-					$thp -= $v;
-					$log .="•KŽEŽŸ•—Œ•I$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 1 ){
-					$v = int($max_hp-$hp);
-					$v = 30 if($v>30);
-					$hp += $v;
-					$log .="¶–œŒ÷I‘Ì—Í‚ð $v ‰ñ•œ‚µ‚œI<br>\n";
-				}elsif($v == 2){
-					$bst .= 'W' unless($bst =~ /W/);
-					$log .="•òŒ‚Œ÷IUŒ‚—Í‚ªã‚ª‚Á‚œ<br>\n";
-				}elsif($v == 3){
-					$thp -= 30;
-					$log .="‰Š‘“ùI$tnm ‚É 30 ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 4){
-					$bst .= 'S' unless($bst =~ /S/);
-					$log .= "|‹CI–hŒä—Í‚ªã‚ª‚Á‚œ<br>\n";
-				}elsif($v == 5){
-					$v = int($max_hp-$hp);
-					$v = 50 if($v>50);
-					$hp += $v;
-					$log .="âSŒ÷I‘Ì—Í‚ð$v‰ñ•œ‚µ‚œI<br>\n";
-				}elsif($v == 6){
-					$dh =int(rand(3)) ;
-					if($dh==0){
-						$v = int($thp*0.8);
-						$thp -= $v;
-						$thp = 1 if($thp < 1);
-						$vv = int($mp/4);
-						$mp -= $vv;
-						$log .="‰œ‹` –P™€“]¶II$tnm ‚ð•mŽ€‚̏ó‘Ô‚É’Ç‚¢ž‚ñ‚ŸI<br>‚µ‚©‚µ—]”g‚ðH‚ç‚¢ $nm ‚Í $vv ‚̐ž_‚ðŽž‚Á‚œB<br>\n" if($thp <= 1);
-						$log .="‰œ‹` –P™€“]¶II$tnm ‚É$v‚̏‚ð—^‚Š‚œ!<br>‚µ‚©‚µ—]”g‚ðH‚ç‚¢ $nm ‚Í $vv ‚̐ž_‚ðŽž‚Á‚œB<br>\n" if($thp > 1);
-					}else{
-						$v = int($thp*0.5);
-						$thp -= $v;
-						$thp = 1 if($thp < 1);
-						$log .="‰œ‹` –P™€“]¶II$tnm ‚ð•mŽ€‚̏ó‘Ô‚É’Ç‚¢ž‚ñ‚ŸI<br>\n" if($thp <= 1);
-						$log .="‰œ‹` –P™€“]¶II$tnm ‚É$v‚̏‚ð—^‚Š‚œ!<br>\n" if($thp > 1);
-					}
-				}elsif($v == 7){
-					$dh =int(rand(20)) ;
-					if($dh <= 3){
-						$log .="”鉜‹` °Ó‚«II$tnm ‚͐S‚𕲁X‚ɍӂ©‚ê‚œ!<br>\n";
-						$thp=0;
-					}elsif($dh == 4){
-						$v = int($hp*0.9);
-						$hp -= $v;
-						$log .="”鉜‹` °Ó‚«II<b>Ž©”šII</b> $nm ‚͐S‚ª•²X‚ɍӂ¯‚¿‚Á‚œ!<br>\n";
-					}elsif($dh >= 5 && $dh <= 12){
-						$v = int(($tud+$tua)*2-$tud);
-						$thp -= $v;
-						$log .="”鉜‹` °Ó‚«IIŽž”s‚µ‚œII<br>‚µ‚©‚µ $tnm ‚É $v ‚̃_ƒ[ƒW‚ð—^‚Š‚邱‚Ƃɐ¬Œ÷!<br>\n";
-					}else{
-						$log .="Žž\”s\‚µ‚œc‚µ‚©‚µÅˆ«‚ÌŽ–‘Ô‚Ÿ‚¯‚Í–Æ‚ê‚œB<br>\n";
-					}
-				}
-
-			}elsif($camp==2){
-
-				if($v == 0){
-					$v = int($ua*1.5);
-					$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
-					$v = int($v*1.5)           if($bst =~ /W/);
-					$v = $v-$tud;
-					$v = 1 if($v<1);
-					$thp -= $v;
-					$log .="ÊްÚ¶Ù¿°ÄށI$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 1 ){
-					$bst .= 'W' unless($bst =~ /W/);
-					$log .="±À¯žIUŒ‚—Í‚ªã‚ª‚Á‚œ<br>\n";
-				}elsif($v == 2){
-					$v = int($max_hp-$hp);
-					$v = 30 if($v>30);
-					$hp += $v;
-					$log .="˰فI‘Ì—Í‚ð$v‰ñ•œ‚µ‚œI<br>\n";
-				}elsif($v == 3){
-					$thp -= 30;
-					$v = int($max_hp-$hp);
-					$v = 10 if($v>10);
-					$hp += $v;
-					$log .="Ÿ²ÝÄžÛœI$tnm ‚É30‚̏‚ð—^‚ŠAX‚É‚»‚Ì‘Ì—Í‚ð‹Í‚©‚΂©‚è‹z‚¢Žæ‚Á‚œ!<br>\n";
-				}elsif($v == 4){
-					$tua = 1;
-					$log .= "”ép ±ÝžÚ±ÌÞÚ²žI $tnm ‚ÌUA‚ðƒ[ƒ‚É‚µ‚œI<br>\n";
-				}elsif($v == 5){
-					$v = int($max_hp-$hp);
-					$v = 50 if($v>50);
-					$hp += $v;
-					$log .="ʲ˰فI‘Ì—Í‚ð$v‰ñ•œ‚µ‚œI<br>\n";
-				}elsif($v == 6){
-					$v = 140 + int(rand(60)) -$tud;
-					$thp -= $v;
-					$log .="Žž‚Ì—¬‚ê‚É–„‚ꂵŽÒcc‰i‹v<small>(‚Æ‚í)</small>‚Ì–²‚ðŒp‚®ŽÒcc<br>¡“ð‚Ì–Œ‚É‚š‚¢‚āAâq‚ꂵŽÒ‚ðò‰»‚¹‚楥¥II<br>$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 7){
-					$log .="‰©š‚æ‚è‚àˆÃ‚«ŽÒccŒŒ‚Ì—¬‚ê‚æ‚èÔ‚«ŽÒcc<br>iÈ—ªj<br>cc“™‚µ‚­–Å‚Ñ‚ð—^‚Š‚ñ‚±‚Æ‚ðI@—Ž”jŽaII<br>\n";
-					$v = 200 + int(rand(150)) - $tud;
-					$thp -= $v;
-					$log .="$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}
-
-			}elsif($camp==3){
-
-				if($v == 0){
-					$thp -= 15;
-					$log .="¿°ÄޜׯŒ­I$tnm ‚É 15 ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 1 ){
-					$bst .= 'W' unless($bst =~ /W/);
-					$log .="±À¯žIUA‚ªã‚ª‚Á‚œ<br>\n";
-				}elsif($v == 2){
-					$thp -= 25;
-					$log .="¿°ÄÞÀÞÝœI$tnm ‚É 25 ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 3){
-					$bst .= 'S' unless($bst =~ /S/);
-					$log .= "Œ°ÙÄށI–hŒä—Í‚ªã‚ª‚Á‚œ<br>\n";
-				}elsif($v == 4){
-					$tud = 1;
-					$log .= "‰œ‹` ±°Ï°ÌÞÚ²žI $tnm ‚ÌUD‚ðƒ[ƒ‚É‚µ‚œI<br>\n";
-				}elsif($v == 5){
-					$v = int($max_hp-$hp);
-					$v = 50 if($v>50);
-					$hp += $v;
-					$log .="ʲ˰فI‘Ì—Í‚ð$v‰ñ•œ‚µ‚œI<br>\n";
-				}elsif($v == 6){
-					$v = int($ua*3);
-					$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
-					$v = int($v*3)            if($bst =~ /W/);
-					$v = $v-$tud;
-					$v = 1 if($v<1);
-					$thp -= $v;
-					$log .="µ°¶Þ¿°ÄށI$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 7){
-					$v = int($ua*3);
-					$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
-					$v = int($v*3)            if($bst =~ /W/);
-					$v = 100 if($v < 100);
-					$thp -= $v;
-					$tmp -= $v;
-					$log .="”鉜‹` ±ÙÚүıÀ¯žI$tnm ‚ÌHP‚ÆMP‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}
-
-			}elsif($camp==4){
-
-				if($v == 0){
-					$v = int($ua*2);
-					$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
-					$v = int($v*2)            if($bst =~ /W/);
-					$v = $v-$tud;
-					$v = 1 if($v<1);
-					$thp -= $v;
-					$log .="ˆÃ•Œ•I$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 1 ){
-					$thp -= 20;
-					$v = int($max_hp-$hp);
-					$v = 10 if($v>10);
-					$hp += $v;
-					$log .="ÃÞ¯Äޞ׳݁I$tnm ‚É20‚̏‚ð—^‚ŠAX‚É‚»‚Ì‘Ì—Í‚ð‹Í‚©‚΂©‚è‹z‚¢Žæ‚Á‚œ!<br>\n";
-				}elsif($v == 2){
-					$tmp -= 30;
-					$log .="ŲÄÒ±I$tnm ‚Ì MP ‚É 30 ‚̃_ƒ[ƒW‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 3){
-					$thp -= 30;
-					$log .="•‰ŠI$tnm ‚É 30 ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 4){
-					$v = int($max_hp-$hp);
-					$v = 50 if($v>50);
-					$hp += $v;
-					$log .="âSŒ÷I‘Ì—Í‚ð$v‰ñ•œ‚µ‚œI<br>\n";
-				}elsif($v == 5){
-					$bst .= 'W' unless($bst =~ /W/);
-					$log .="±À¯žIUA‚ªã‚ª‚Á‚œ<br>\n";
-				}elsif($v == 6){
-					$bst .= 'S' unless($bst =~ /S/);
-					$log .= "Œ°ÙÄށI–hŒä—Í‚ªã‚ª‚Á‚œ<br>\n";
-				}elsif($v == 7){
-					$v = int(rand(50)) + 200;
-					$thp -= $v;
-					$log .="ŠJ‚¯’n–‚Ì–åI$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}
-			}elsif($camp==5){
-
-				if($v == 0){
-					$dh =int(rand(2)) ;
-					if($dh==0){
-						$thp -= 30;
-						$log .="ˆëŽ®I$tnm ‚É 30 ‚̏‚ð—^‚Š‚œ!<br>\n";
-					}elsif($dh==1){
-						$thp -= 20;
-						$log .="ˆëŽ®I ‚©‚킳‚ê‚œII<br>‚µ‚©‚µA•—ˆ³‚É‚æ‚è $tnm ‚É 20 ‚̏‚ð—^‚Š‚œ!<br>\n";
-					}
-				}elsif($v == 1 ){
-					$v = int($ua*1.5);
-					$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
-					$v = int($v*1.5)           if($bst =~ /W/);
-					$v = $v-$tud;
-					$v = 1 if($v<1);
-					$thp -= $v;
-					$log .="ˆëŽ®E’fI$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-				}elsif($v == 2){
-					$dh =int(rand(2)) ;
-					if($dh==0){
-						$thp -= 70;
-						$log .="“󎮁I$tnm ‚É 70 ‚̏‚ð—^‚Š‚œ!<br>\n";
-					}elsif($dh==1){
-						$thp -= 35;
-						$log .="“󎮁I ‚©‚킳‚ê‚œII<br>‚µ‚©‚µA•—ˆ³‚É‚æ‚è $tnm ‚É 35 ‚̏‚ð—^‚Š‚œ!<br>\n";
-					}
-				}elsif($v == 3){
-					$dh =int(rand(3)) ;
-					if($dh==0){
-						$v = int($ua*2.5);
-						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
-						$v = int($v*2.5)           if($bst =~ /W/);
-						$v = $v-$tud;
-						$v = 1 if($v<1);
-						$thp -= $v;
-						$log .="“󎮁E—ôI$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-					}elsif($dh==1){
-						$v = int($ua*2.5);
-						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
-						$v = int($v*2.5)           if($bst =~ /W/);
-						$v = $v-$tud;
-						$v = 1 if($v<1);
-						$thp -= $v;
-						$hp -= 15;
-						$log .="“󎮁E—ôI$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>‚µ‚©‚µ‹Z‚𐧌䂵‚«‚ê‚ž\–\\‘–‚µ $nm ‚Í15‚̏‚𕉂Á‚œB<br>\n";
-					}elsif($dh==2){
-						$v = int($ua*2.5);
-						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
-						$v = int($v*2.5)           if($bst =~ /W/);
-						$v = $v-$tud;
-						$v = 1 if($v<1);
-						$thp -= $v;
-						$mp -= 15;
-						$log .="“󎮁E—ôI$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>‚µ‚©‚µž_‚É•‰‰×‚ª‚©‚©‚è $nm ‚Í15‚ÌMP‚ðŽž‚Á‚œB<br>\n";
-					}
-				}elsif($v == 4){
-					$dh =int(rand(2)) ;
-					if($dh==0){
-						$thp -= 120;
-						$log .="ŽQŽ®I$tnm ‚É 120 ‚̏‚ð—^‚Š‚œ!<br>\n";
-					}elsif($dh==1){
-						$thp -= 60;
-						$log .="ŽQŽ®I ‚©‚킳‚ê‚œII<br>‚µ‚©‚µA•—ˆ³‚É‚æ‚è $tnm ‚É 60 ‚̏‚ð—^‚Š‚œ!<br>\n";
-					}
-				}elsif($v == 5){
-					$dh =int(rand(3)) ;
-					if($dh==0){
-						$v = int($ua*3.5);
-						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
-						$v = int($v*3.5)           if($bst =~ /W/);
-						$v = $v-$tud;
-						$v = 1 if($v<1);
-						$thp -= $v;
-						$log .="ŽQŽ®E”gI$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-					}elsif($dh==1){
-						$v = int($ua*3.5);
-						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
-						$v = int($v*3.5)           if($bst =~ /W/);
-						$v = $v-$tud;
-						$v = 1 if($v<1);
-						$thp -= $v;
-						$hp -= 30;
-						$log .="ŽQŽ®E”gI$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>‚µ‚©‚µ‹Z‚𐧌䂵‚«‚ê‚ž\–\\‘–‚µ $nm ‚Í30‚̏‚𕉂Á‚œB<br>\n";
-					}elsif($dh==2){
-						$v = int($ua*3.5);
-						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
-						$v = int($v*3.5)           if($bst =~ /W/);
-						$v = $v-$tud;
-						$v = 1 if($v<1);
-						$thp -= $v;
-						$mp -= 30;
-						$log .="ŽQŽ®E”gI$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>‚µ‚©‚µž_‚É•‰‰×‚ª‚©‚©‚è $nm ‚Í30‚ÌMP‚ðŽž‚Á‚œB<br>\n";
-					}
-				}elsif($v == 6){
-					$dh =int(rand(2)) ;
-					if($dh==0){
-						$thp -= 200;
-						$log .="—뎮I$tnm ‚É 200 ‚̏‚ð—^‚Š‚œ!<br>\n";
-					}elsif($dh==1){
-						$thp -= 100;
-						$log .="—뎮I ‚©‚킳‚ê‚œII<br>‚µ‚©‚µA•—ˆ³‚É‚æ‚è $tnm ‚É 100 ‚̏‚ð—^‚Š‚œ!<br>\n";
-					}
-				}elsif($v == 7){
-					$dh =int(rand(3)) ;
-					if($dh==0){
-						$v = int($ua*5);
-						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
-						$v = int($v*5)           if($bst =~ /W/);
-						$v = $v-$tud;
-						$v = 1 if($v<1);
-						$thp -= $v;
-						$log .="—뎮EâI$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-					}elsif($dh==1){
-						$v = int($ua*6);
-						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
-						$v = int($v*6)           if($bst =~ /W/);
-						$v = $v-$tud;
-						$v = 1 if($v<1);
-						$thp -= $v;
-						$hp -= 60;
-						$log .="—뎮EâI$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>‚µ‚©‚µ‹Z‚𐧌䂵‚«‚ê‚ž\–\\‘–‚µ $nm ‚Í60‚̏‚𕉂Á‚œB<br>\n";
-					}elsif($dh==2){
-						$v = int($ua*6);
-						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
-						$v = int($v*6)           if($bst =~ /W/);
-						$v = $v-$tud;
-						$v = 1 if($v<1);
-						$thp -= $v;
-						$mp -= 60;
-						$log .="—뎮EâI$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>‚µ‚©‚µž_‚É•‰‰×‚ª‚©‚©‚è $nm ‚Í60‚ÌMP‚ðŽž‚Á‚œB<br>\n";
-					}
-				}
-
-			}
-
-		}
-
-	}
-
-	$log .="</font>\n";
-
-	# Ÿ—˜ˆ—
-	&battle_win if($thp <= 0 && $type eq 'Cs’†');
-
-}
-
-# Ÿ—˜ˆ—
-sub battle_win{
-	$G =int(rand(200))+((500*$tlv)-($lv*200));
-	$v =$lv-5;
-	$z =$lv-10;
-	$G =int(rand(500))+1500 if($G>2000);
-	$G =int($G/2) if($tlv<$v);
-	$G =int($G/3) if($tlv<$z);
-	$G =1 if($G<1);
-	$gold +=$G;
-	$E =int((((((rand(5))+5)+$tlv)*2)*0.8)-$lv);
-	$E =1 if($E<1);
-	$E =int(rand(50))+250 if($E>300);
-	$exe+=$E;
-	$tm =0;
-	$thp=0;
-	$bst ='';
-	$bt =0;
-	$ck =0;
-	$cmd=-1;
-	$type='';
-	$log .="$nm ‚Í $tnm ‚ð“|‚µ‚œI<br>\n";
-	$log .="$G ‚Ì‹à ‚Æ $E ‚ÌŒoŒ±’l‚ð“Ÿ‚œI<br>\n";
-	$tnm_p = $tnm; # 02/10 í‘ˆŽžAU‚ß‚œ‘‚̐l‚Å‚È‚¢l‚ª‚Å‚Ä‚­‚邱‚Ƃւ̑Ώˆ
-	$tnm ='';
-}
-
-# UŒ‚--“G‘€
-sub attack_enemy{
-
-	$log .="<font color=FF3366>\n";
-
-	if(($cmd != -1)&&($thp>0)){
-		$log .="$tnm ‚̍UŒ‚I \n";
-		$p=int(rand(6));
-
-		if($tcp==0){
-
-			if($lv < 10){$ch =int(rand(20));}#±Ýׯ·°Ë¯Ä—Š
-			elsif($lv >= 10 && $lv < 15){$ch =int(rand(32));}
-			elsif($lv >= 15 && $lv < 25){$ch =int(rand(16));}
-			elsif($lv >= 25 && $lv < 40){$ch =int(rand(8));}
-			else{$ch =int(rand(4));}
-
-			if($tlv>=5&&$tlv<10&&$tmp>=3&&$p==0){
-				if($ch == 0){
-					$v = int($tua*4);
-					$v = 1 if($v<1);
-					$hp -= $v;
-					$log .="•KŽE ÏŒÞ݌•I<b>’ɍŠ‚̈ꌂI</b> $nm ‚Í $v ‚̏‚ðŽó‚¯‚œ!<br>\n";
-					$tmp-=3;
-				}else{
-					$v = int($tua*2);
-					$v = 1 if($v<1);
-					$hp -= $v;
-					$log .="•KŽE ÏŒÞ݌•I$nm ‚Í $v ‚̏‚ðŽó‚¯‚œ!<br>\n";
-					$tmp-=3;
-				}
-			}elsif($tlv>=10&&$tmp>=9&&$p==1){
-				if($ch == 0){
-					$v = int($tua*4);
-					$v = 1 if($v<1);
-					$hp -= $v;
-					$log .="•KŽE ÏŒÞ݌•I<b>’ɍŠ‚̈ꌂI</b> $nm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-					$tmp-=3;
-				}elsif($ch == 1){
-					$thp += int($thp_max/3) if($thp < $thp_max - int($thp_max/3));
-					$v = int($tua*2);
-					$v = 1 if($v<1);
-					$hp -= $v;
-					$log .="”Œ‰ñ•œI‘Ì—Í‚ª‚ ‚é’ö“x‰ñ•œ‚µ‚œI<br>“G‚̖ҍUŒ‚I •KŽE ÏŒÞ݌•I$nm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-					$tmp-=9;
-				}elsif($ch > 1){
-					$ch2 =int(rand(3));
-					if($ch2 == 0 || $ch2 == 1){
-						$v = int($tua*2);
-						$v = 1 if($v<1);
-						$hp -= $v;
-						$log .="•KŽE ÏŒÞ݌•I$nm ‚Í $v ‚̏‚ðŽó‚¯‚œ!<br>\n";
-						$tmp-=3;
-					}else{
-						$thp = $thp_max;
-						$log .="‘S‰ñ•œI‘Ì—Í‚ªŠ®‘S‚ɉñ•œ‚µ‚œI<br>\n";
-						$tmp-=9;
-					}
-				}
-			}else{
-				# “GƒLƒƒƒ‰’ʏíUŒ‚ˆ—
-				&bogu_bt;
-			}
-		}elsif($tcp==1){
-			if($tlv>=40&&$tmp>=90&&$p==0){
-				$dh =int(rand(20)) ;
-				if($dh <= 3){
-					$log .="”鉜‹` °Ó‚«IIˆÓŽ¯‚ª‰“‚Ì‚­cB<br>\n";
-					$hp=0;
-					$tmp-=90;
-				}elsif($dh == 4){
-					$v = int($thp*0.9);
-					$thp -= $v;
-					$log .="”鉜‹` °Ó‚«II<b>Ž©”šII</b> $tnm ‚͐S‚ª•²X‚ɍӂ¯‚¿‚Á‚œ!<br>\n";
-					$tmp-=90;
-				}elsif($dh >= 5 && $dh <= 12){
-					$v = int(($ud+$ua)*2-$ud);
-					$hp -= $v;
-					$log .="”鉜‹` °Ó‚«II¡‚Å‚Ì‚Æ‚±‚ë‚Å $nm ‚Í”ð‚¯‚œII<br>‚µ‚©‚µ”ð‚¯‚«‚ê‚ž $v ‚̏‚𕉂Á‚œ!<br>\n";
-					$tmp-=90;
-				}else{
-					$log .="Žž\”s\‚µ‚œ‚æ‚€‚Ÿô<br>\n";
-					$tmp-=90;
-				}
-			}elsif($tlv>=35&&$tmp>=60&&$p==1){
-				$dh =int(rand(3)) ;
-				if($dh==0){
-					$v = int($hp*0.8);
-					$hp -= $v;
-					$hp = 1 if($hp < 1);
-					$vv = int($tmp/4);
-					$tmp -= $vv;
-					$log .="‰œ‹` –P™€“]¶II$nm ‚Í•mŽ€‚̏ó‘ԂɊׂÁ‚œI<br>‚µ‚©‚µ—]”g‚ðH‚ç‚¢ $tnm ‚Í $vv ‚̐ž_‚ðŽž‚Á‚œB<br>\n" if($thp <= 1);
-					$log .="‰œ‹` –P™€“]¶II$nm ‚Í$v‚̏‚𕉂Á‚œ!<br>‚µ‚©‚µ—]”g‚ðH‚ç‚¢ $tnm ‚Í $vv ‚̐ž_‚ðŽž‚Á‚œB<br>\n";
-					$tmp-=60;
-				}else{
-					$v = int($hp*0.5);
-					$hp -= $v;
-					$hp = 1 if($hp < 1);
-					$log .="‰œ‹` –P™€“]¶II$nm ‚Í•mŽ€‚̏ó‘ԂɊׂÁ‚œI<br>\n" if($thp <= 1);
-					$log .="‰œ‹` –P™€“]¶II$nm ‚Í $v ‚̏‚𕉂Á‚œ!<br>\n";
-					$tmp-=60;
-				}
-			}elsif($tlv>=30&&$tmp>=21&&$p==2){
-				$v = int($thp_max-$thp);
-				$v = 50 if($v>50);
-				$thp += $v;
-				$log .="âSŒ÷I‘Ì—Í‚ð$v‰ñ•œ‚µ‚œI<br>\n";
-				$tmp-=21;
-			}elsif($tlv>=20&&$tmp>=15&&$p==3){
-				$hp -= 30;
-				$log .="‰Š‘“ùI$nm ‚Í 30 ‚̏‚ðŽó‚¯‚œ!<br>\n";
-				$tmp-=15;
-			}elsif($tlv>=10&&$tmp>=9&&$p==4){
-				$v = int($thp_max-$thp);
-				$v = 30 if($v>30);
-				$thp += $v;
-				$log .="¶–œŒ÷I‘Ì—Í‚ð $v ‰ñ•œ‚µ‚Ä‚µ‚Ü‚Á‚œI<br>\n";
-				$tmp-=9;
-			}elsif($tlv>=5&&$tmp>=6&&$p==5){
-				$v = int($tua*1.5);
-				$v = $v-$ud;
-				$v -= int(sqrt($ud)) if($bst =~ /S/);
-				$v = 1 if($v<1);
-				$hp -= $v;
-				$log .="•KŽEŽŸ•—Œ•I$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œ!<br>\n";
-				$tmp-=6;
-			}else{
-				# “GƒLƒƒƒ‰’ʏíUŒ‚ˆ—
-				&bogu_bt;
-			}
-		}elsif($tcp==2){
-
-			if($tlv>=40&&$tmp>=90&&$p==0){
-				$v = 200 + int(rand(150)) - $ud;
-				$hp -= $v;
-				$log .="‰©š‚æ‚è‚àˆÃ‚«ŽÒccŒŒ‚Ì—¬‚ê‚æ‚èÔ‚«ŽÒcc<br>iÈ—ªj<br>cc“™‚µ‚­–Å‚Ñ‚ð—^‚Š‚ñ‚±‚Æ‚ðI@—Ž”jŽaII<br>\n";
-				$tmp-=85;
-				$log .="$nm ‚Í $v ‚̏‚𕉂Á‚œ!<br>\n";
-			}elsif($tlv>=35&&$tmp>=45&&$p==2){
-				$v = 140 + int(rand(60)) -$ud;
-				$hp -= $v;
-				$log .="Žž‚Ì—¬‚ê‚É–„‚ꂵŽÒcc‰i‹v<small>(‚Æ‚í)</small>‚Ì–²‚ðŒp‚®ŽÒcc<br>¡“ð‚Ì–Œ‚É‚š‚¢‚āAâq‚ꂵŽÒ‚ðò‰»‚¹‚楥¥II<br>$nm ‚Í $v ‚̏‚𕉂Á‚œ!<br>\n";
-				$tmp-=45;
-			}elsif($tlv>=20&&$tmp>=18&&$p==3){
-				$hp -= 30;
-				$v = int($thp_max-$thp);
-				$v = 10 if($v>10);
-				$thp += $v;
-				$log .="Ÿ²ÝÄžÛœI$nm ‚Í30‚̏‚ðŽó‚¯AX‚É‚»‚Ì‘Ì—Í‚ð‹Í‚©‚΂©‚è‹z‚¢Žæ‚ç‚ê‚œ!<br>\n";
-				$tmp-=18;
-			}elsif($tlv>=15&&$tmp>=12&&$p==4){
-				$v = int($thp_max-$thp);
-				$v = 30 if($v>30);
-				$thp += $v;
-				$log .="˰فI‘Ì—Í‚ð $v ‰ñ•œ‚µ‚Ä‚µ‚Ü‚Á‚œI<br>\n";
-				$tmp-=12;
-			}elsif($tlv>=5&&$tmp>=6&&$p==5){
-				$v = int($tua*1.5);
-				$v = $v-$ud;
-				$v -= int(sqrt($ud)) if($bst =~ /S/);
-				$v = 1 if($v<1);
-				$hp -= $v;
-				$log .="ÊްÚ¶Ù¿°ÄށI$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œ!<br>\n";
-				$tmp-=6;
-			}else{
-				# “GƒLƒƒƒ‰’ʏíUŒ‚ˆ—
-				&bogu_bt;
-			}
-
-		}elsif($tcp==3){
-
-			if($tlv>=40&&$tmp>=85&&$p==0){
-				$v = int($tua*3);
-				$v -= int(sqrt($ud)) if($bst =~ /S/);
-				$v = 100 if($tua<2);
-				$v = 100 if($v < 100);
-				$hp -= $v;
-				$mp -= $v;
-				$log .="”鉜‹` ±ÙÚүıÀ¯žI$nm ‚ÍHP‚ÆMP‚É $v ‚ÌÀÞÒ°ŒÞ‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œ!<br>\n";
-				$tmp-=85;
-			}elsif($tlv>=30&&$tmp>=40&&$p==2){
-				$v = int($tua*3);
-				$v = $v-$ud;
-				$v -= int(sqrt($ud)) if($bst =~ /S/);
-				$v = 1 if($v<1);
-				$hp -= $v;
-				$log .="ŸÓg‚̈ꌂI$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œ!<br>\n";
-				$tmp-=40;
-			}elsif($tlv>=25&&$tmp>=18&&$p==3){
-				$v = int($thp_max-$thp);
-				$v = 50 if($v>50);
-				$thp += $v;
-				$log .="ʲ˰فI‘Ì—Í‚ð$v‰ñ•œ‚µ‚œI<br>\n";
-				$tmp-=18;
-			}elsif($tlv>=15&&$tmp>=12&&$p==4){
-				$hp -= 25;
-				$log .="¿°ÄÞÀÞÝœI$nm ‚Í 25 ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œ!<br>\n";
-				$tmp-=12;
-			}elsif($tlv>=5&&$tmp>=6&&$p==5){
-				$hp -= 15;
-				$log .="¿°ÄޜׯŒ­I$nm ‚Í 15 ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œ!<br>\n";
-				$tmp-=6;
-			}else{
-				# “GƒLƒƒƒ‰’ʏíUŒ‚ˆ—
-				&bogu_bt;
-			}
-
-		}elsif($tcp==4){
-
-			if($tlv>=40&&$tmp>=90&&$p==0){
-				$v = int(rand(50)) + 200;
-				$hp -= $v;
-				$log .="ŠJ‚¯’n–‚Ì–åI$nm ‚Í $v ‚̏‚ðŽó‚¯‚œ!<br>\n";
-				$tmp-=90;
-			}elsif($tlv>=20&&$tmp>=15&&$p==2){
-				$hp -= 30;
-				$log .="•‰ŠI$nm ‚Í 30 ‚̏‚ðŽó‚¯‚œ!<br>\n";
-				$tmp-=15;
-			}elsif($tlv>=15&&$tmp>=12&&$p==3){
-				$mp -= 30;
-				$log .="ŲÄÒ±I$nm ‚ÌMP‚É30‚ÌÀÞÒ°ŒÞ‚ð—^‚Š‚œI<br>\n";
-				$tmp-=12;
-			}elsif($tlv>=10&&$tmp>=9&&$p==4){
-				$hp -= 20;
-				$v = int($thp_max-$thp);
-				$v = 10 if($v>10);
-				$thp += $v;
-				$log .="ÃÞ¯Äޞ׳݁I$nm ‚Í20‚̏‚ðŽó‚¯AX‚É‚»‚Ì‘Ì—Í‚ð‹Í‚©‚΂©‚è‹z‚¢Žæ‚ç‚ê‚œ!<br>\n";
-				$tmp-=9;
-			}elsif($tlv>=5&&$tmp>=9&&$p==5){
-				$v = int($tua*2);
-				$v = $v-$ud;
-				$v -= int(sqrt($ud)) if($bst =~ /S/);
-				$v = 1 if($v<1);
-				$hp -= $v;
-				$log .="ˆÃ•Œ•I$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œ!<br>\n";
-				$tmp-=9;
-			}else{
-				# “GƒLƒƒƒ‰’ʏíUŒ‚ˆ—
-				&bogu_bt;
-			}
-
-		}elsif($tcp==5){
-
-			if($tlv>=40&&$tmp>=90&&$p==0){
-				$dh =int(rand(3)) ;
-				if($dh==0){
-					$v = int($tua*5);
-					$v = $v-$ud;
-					$v -= int(sqrt($ud)) if($bst =~ /S/);
-					$v = 1 if($v<1);
-					$hp -= $v;
-					$log .="—뎮E—ôI$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œI<br>\n";
-					$tmp-=99;
-				}elsif($dh==1){
-					$v = int($tua*6);
-					$v = $v-$ud;
-					$v -= int(sqrt($ud)) if($bst =~ /S/);
-					$v = 1 if($v<1);
-					$hp -= $v;
-					$log .="—뎮E—ôI$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œ!<br>‚µ‚©‚µ‹Z‚𐧌䂵‚«‚ê‚ž\–\\‘–‚µ $tnm ‚Í60‚̏‚𕉂Á‚œB<br>\n";
-					$tmp-=99;
-					$thp-=60;
-				}elsif($dh==2){
-					$v = int($tua*6);
-					$v = $v-$ud;
-					$v -= int(sqrt($ud)) if($bst =~ /S/);
-					$v = 1 if($v<1);
-					$hp -= $v;
-					$log .="—뎮E—ôI$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œI<br>‚µ‚©‚µž_‚É•‰‰×‚ª‚©‚©‚è $tnm ‚Í60‚ÌMP‚ðŽž‚Á‚œB<br>\n";
-					$tmp-=99;
-					$tmp-=60;
-				}
-			}elsif($tlv>=35&&$tmp>=40&&$p==1){
-				$dh =int(rand(2)) ;
-				if($dh==0){
-					$hp -= 200;
-					$log .="—뎮I$nm ‚Í 200 ‚̏‚ðŽó‚¯‚œ!<br>\n";
-					$tmp-=60;
-				}elsif($dh==1){
-					$hp -= 100;
-					$log .="—뎮I g‚ð–|‚µ”ð‚¯‚œII<br>‚µ‚©‚µA•—ˆ³‚É‚æ‚è $nm ‚Í 100 ‚̏‚𕉂Á‚œ!<br>\n";
-					$tmp-=60;
-				}
-			}elsif($tlv>=30&&$tmp>=45&&$p==2){
-				$dh =int(rand(3)) ;
-				if($dh==0){
-					$v = int($tua*3.5);
-					$v = $v-$ud;
-					$v -= int(sqrt($ud)) if($bst =~ /S/);
-					$v = 1 if($v<1);
-					$hp -= $v;
-					$log .="ŽQŽ®E”gI$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œI<br>\n";
-					$tmp-=30;
-				}elsif($dh==1){
-					$v = int($tua*3.5);
-					$v = $v-$ud;
-					$v -= int(sqrt($ud)) if($bst =~ /S/);
-					$v = 1 if($v<1);
-					$hp -= $v;
-					$log .="ŽQŽ®E”gI$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œ!<br>‚µ‚©‚µ‹Z‚𐧌䂵‚«‚ê‚ž\–\\‘–‚µ $tnm ‚Í30‚̏‚𕉂Á‚œB<br>\n";
-					$tmp-=30;
-					$thp-=30;
-				}elsif($dh==2){
-					$v = int($tua*3.5);
-					$v = $v-$ud;
-					$v -= int(sqrt($ud)) if($bst =~ /S/);
-					$v = 1 if($v<1);
-					$hp -= $v;
-					$log .="ŽQŽ®E”gI$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œI<br>‚µ‚©‚µž_‚É•‰‰×‚ª‚©‚©‚è $tnm ‚Í30‚ÌMP‚ðŽž‚Á‚œB<br>\n";
-					$tmp-=30;
-					$tmp-=30;
-				}
-			}elsif($tlv>=25&&$tmp>=30&&$p==3){
-				$dh =int(rand(2)) ;
-				if($dh==0){
-					$hp -= 120;
-					$log .="ŽQŽ®I$nm ‚Í 120 ‚̏‚ðŽó‚¯‚œ!<br>\n";
-					$tmp-=30;
-				}elsif($dh==1){
-					$hp -= 60;
-					$log .="ŽQŽ®I g‚ð–|‚µ”ð‚¯‚œII<br>‚µ‚©‚µA•—ˆ³‚É‚æ‚è $nm ‚Í 60 ‚̏‚𕉂Á‚œ!<br>\n";
-					$tmp-=30;
-				}
-			}elsif($tlv>=20&&$tmp>=30&&$p==4){
-				$dh =int(rand(3)) ;
-				if($dh==0){
-					$v = int($tua*2.5);
-					$v = $v-$ud;
-					$v -= int(sqrt($ud)) if($bst =~ /S/);
-					$v = 1 if($v<1);
-					$hp -= $v;
-					$log .="“󎮁E—ôI$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œI<br>\n";
-					$tmp-=20;
-				}elsif($dh==1){
-					$v = int($tua*2.5);
-					$v = $v-$ud;
-					$v -= int(sqrt($ud)) if($bst =~ /S/);
-					$v = 1 if($v<1);
-					$hp -= $v;
-					$log .="“󎮁E—ôI$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œ!<br>‚µ‚©‚µ‹Z‚𐧌䂵‚«‚ê‚ž\–\\‘–‚µ $tnm ‚Í15‚̏‚𕉂Á‚œB<br>\n";
-					$tmp-=20;
-					$thp-=15;
-				}elsif($dh==2){
-					$v = int($tua*2.5);
-					$v = $v-$ud;
-					$v -= int(sqrt($ud)) if($bst =~ /S/);
-					$v = 1 if($v<1);
-					$hp -= $v;
-					$log .="“󎮁E—ôI$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œI<br>‚µ‚©‚µž_‚É•‰‰×‚ª‚©‚©‚è $tnm ‚Í15‚ÌMP‚ðŽž‚Á‚œB<br>\n";
-					$tmp-=20;
-					$tmp-=15;
-				}
-			}elsif($tlv>=15&&$tmp>=20&&$p==5){
-				$dh =int(rand(2)) ;
-				if($dh==0){
-					$hp -= 70;
-					$log .="“󎮁I$nm ‚Í 70 ‚̏‚ðŽó‚¯‚œ!<br>\n";
-					$tmp-=20;
-				}elsif($dh==1){
-					$hp -= 35;
-					$log .="“󎮁I g‚ð–|‚µ”ð‚¯‚œII<br>‚µ‚©‚µA•—ˆ³‚É‚æ‚è $nm ‚Í 35 ‚̏‚𕉂Á‚œ!<br>\n";
-					$tmp-=20;
-				}
-			}elsif($tlv>=10&&$tmp>=15&&$p==6){
-				$v = int($tua*1.5);
-				$v = $v-$ud;
-				$v -= int(sqrt($ud)) if($bst =~ /S/);
-				$v = 1 if($v<1);
-				$hp -= $v;
-				$log .="ˆëŽ®E’fI$nm ‚Í $v ‚̏‚ðŽó‚¯‚Ä‚µ‚Ü‚Á‚œ!<br>\n";
-				$tmp-=10;
-			}elsif($tlv>=5&&$tmp>=10&&$p==7){
-				$dh =int(rand(2)) ;
-				if($dh==0){
-					$hp -= 30;
-					$log .="ŽQŽ®I$nm ‚Í 120 ‚̏‚ðŽó‚¯‚œ!<br>\n";
-					$tmp-=10;
-				}elsif($dh==1){
-					$hp -= 20;
-					$log .="ŽQŽ®I g‚ð–|‚µ”ð‚¯‚œII<br>‚µ‚©‚µA•—ˆ³‚É‚æ‚è $nm ‚Í 20 ‚̏‚𕉂Á‚œ!<br>\n";
-					$tmp-=10;
-				}
-			}else{
-				# “GƒLƒƒƒ‰’ʏíUŒ‚ˆ—
-				&bogu_bt;
-			}
-		}
-
-	}
-
-	$log .="</font>\n";
-
-	# •‰‚¯ˆ—
-	&battle_lost if($hp <= 0 && $type eq 'Cs’†');
-
-}
-
-# •‰‚¯ˆ—
-sub battle_lost{
-	$tm = 0;
-	$cmd=-1;
-	$bst ='';
-	$bt =0;
-	$ck =0;
-	$hp =0;
-	$type='';
-	$G=int(rand(10))+1;
-	$E=int(rand(5))+1;
-	$gold+=$G;
-	$exe+=$E;
-	$log .="‚ ‚È‚œ‚Í $tnm ‚É”s‚ê‹Ž‚Á‚œc<br>\n";
-	$log .="$G ‚Ì‹à ‚Æ $E ‚ÌŒoŒ±’l‚ð“Ÿ‚œ<br>\n";
-	$tnm_p = $tnm; # 02/10 í‘ˆŽžAU‚ß‚œ‘‚̐l‚Å‚È‚¢l‚ª‚Å‚Ä‚­‚邱‚Ƃւ̑Ώˆ
-	$tnm='';
-}
-
-#-------------------------------------------------------------------------------
-# “GƒLƒƒƒ‰’ʏíUŒ‚ˆ—
-sub bogu_bt{
-	$v = $tua_a-$ud_a;
-	$v -= int(sqrt($tud)) if($bst =~ /S/);
-
-	$v = 1 if($v<1);
-
-	# ’ʏíƒ_ƒ[ƒW•â³ << ‹­ŽÒ‚ªŽãŽÒ‚΂©‚è‘ŠŽè‚É‚µ‚È‚¢‚æ‚€‚É
-	if($lv <= 15){$v += int((rand(2))+$v);}
-	elsif($lv > 15 && $lv <= 30){$v += int((rand(4))+$v);}
-	else{$v += int((rand(8))+$v);}
-
-	if($tdg_a>0){#•‹ïŒÄ‚яo‚µ
-		$log .="$dg_data[$tdg_a][1] ‚Å”œŒ‚!!<br>$nm ‚Í $v ‚̏‚𕉂Á‚œ!<br>\n";
-		$hp -= $v;
-	}else{
-		$v = int((rand(4))+$v);
-		$hp -= $v;
-		$log .="$v  ‚Ì”œŒ‚‚ðŽó‚¯‚œI<br>\n";
-	}
-
-	if($df_a && $df_cnt){#–h‹ïŒÄ‚яo‚µ
-		$df_cnt--;
-		if($df_cnt<=0){
-			$log .="$tnm‚̉s‚¢UŒ‚‚É‚æ‚è $nm‚Ì $df_data[$df_a][1] ‚ª‰ó‚ê‚œ!!<br>\n";
-			$df_a = $df_cnt = 0;
-		}
-	}
-}
-
-#-------------------------------------------------------------------------------
-#í“¬Žž‚̃ZƒŒƒNƒgƒƒjƒ…[•\ŽŠ
-sub spell_sp {
-	$log2 .="<select name=cmd size=1>\n<option value=1>UŒ‚</option>\n";
-	for($i=0,$j=2;$i<int($lv/5) && $i<=$#spell;$i++,$j++){
-		next if($mp<$sp_mp[$i]);
-		$v = int($mp/$sp_mp[$i]);
-		$log2 .="<option value=$j>$spell[$i]\[$v\]</option>\n";
-	}#;
-	for($i=0,$j=8,$k=10;$i<=$#kspell;$i++,$j=$j+2,$k++){
-		if($rank >= $j && $mp >= $ksp_mp[$i] && $camp >0){
-			 $v = int($mp/$ksp_mp[$i]);
-			$log2 .="<option value=$k>$kspell[$i]\[$v\]</option>\n";
-		}
-	}
-	if($di_a>0){
-		$log2 .="<option value=15>$di_data[$di_a][1]\[1\]</option>\n";
-	}
-	$log2 .="</select>";
-}
-
-#-------------------------------------------------------------------------------
-#ŠK‹‰‹Z(ÌßÚ²Ô°—p)
-sub st_cm_k {
-	if($v == 8 && $camp > 0){
-		$v = int(($ua+$ud)*2)-$tud;
-		$v = 1 if($v<1);
-		$thp -= $v;
-		$log .="$kspell[0]!$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-		$mp -= $ksp_mp[0];
-	}elsif($v == 9 && $camp > 0){
-		$v = int(($ua+$ud)*2.5)-$tud;
-		$v = 1 if($v<1);
-		$thp -= $v;
-		$log .="$kspell[1]!$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-		$mp -= $ksp_mp[1];
-	}elsif($v == 10 && $camp > 0){
-		$v = int(($ua+$ud)*3)-$tud;
-		$v = 1 if($v<1);
-		$thp -= $v;
-		$log .="$kspell[2]!$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-		$mp -= $ksp_mp[2];
-	}elsif($v == 11 && $camp > 0){
-		$v = int(($ua+$ud)*4)-$tud;
-		$v = 1 if($v<1);
-		$thp -= $v;
-		$log .="$kspell[3]!$tnm ‚É $v ‚̏‚ð—^‚Š‚œ!<br>\n";
-		$mp -= $ksp_mp[3];
-	}
-}
-
-#-------------------------------------------------------------------------------
-#“¹‹ï(PC—p)
-sub dogu_k {
-	my $v;
-
-	if($di_a == 2){
-		$hp = $max_hp;
-		$mp = $max_mp;
-		$di_cnt=0;
-		$di_a=0;
-		$log .="$nm ‚Í $di_data[2][1] ‚ðŽg‚Á‚œI ‘Ì—Í‚Æ–‚—Í‚ª ‘S‰ñ•œ‚µ‚œ!<br>\n";
-	}elsif($di_a == 3){
-		$hp = $max_hp;
-		$di_cnt=0;
-		$di_a=0;
-		$log .="$nm ‚Í $di_data[3][1] ‚ðŽg‚Á‚œI ‘Ì—Í‚ª ‘S‰ñ•œ‚µ‚œ!<br>\n";
-	}elsif($di_a == 4){
-		$mp = $max_mp;
-		$di_cnt=0;
-		$di_a=0;
-		$log .="$nm ‚Í $di_data[4][1] ‚ðŽg‚Á‚œI –‚—Í‚ª ‘S‰ñ•œ‚µ‚œ!<br>\n";
-	}elsif($di_a == 11){
-		if(int($hp+80) < $max_hp){
-			$v=80;
-			$hp += $v;
-		}else{
-			$v=$max_hp-$hp;
-			$hp += $v;
-		}
-		if(int($mp+60) < $max_mp){
-			$vv=60;
-			$mp += $vv;
-		}else{
-			$vv=$max_mp-$mp;
-			$mp += $vv;
-		}
-		$di_cnt=0;
-		$di_a=0;
-		$log .="$nm ‚Í $di_data[11][1]‚ðŽg‚Á‚œI<br>‘Ì—Í‚ª $v ‰ñ•œ‚µA‚³‚ç‚ɐž_‚ª $vv ‰ñ•œ‚µ‚œ!<br>\n";
-	}elsif($di_a == 12){
-		if(int($mp+80) < $max_mp){
-			$v=80;
-			$mp += $v;
-		}else{
-			$v=$max_mp-$mp;
-			$mp += $v;
-		}
-		$di_cnt=0;
-		$di_a=0;
-		$log .="$nm ‚Í $di_data[12][1] ‚ðŽg‚Á‚œI ž_‚ª $v ‰ñ•œ‚µ‚œ!<br>\n";
-	}elsif($di_a == 13){
-		if(int($mp+40) < $max_mp){
-			$v=40;
-			$mp += $v;
-		}else{
-			$v=$max_mp-$mp;
-			$mp += $v;
-		}
-		$di_cnt=0;
-		$di_a=0;
-		$log .="$nm ‚Í $di_data[13][1] ‚ðŽg‚Á‚œI ž_‚ª $v ‰ñ•œ‚µ‚œ!<br>\n";
-	}elsif($di_a == 14){
-		if(int($hp+100) < $max_hp){
-			$v=100;
-			$hp += $v;
-		}else{
-			$v=$max_hp-$hp;
-			$hp += $v;
-		}
-		$di_cnt=0;
-		$di_a=0;
-		$log .="$nm ‚Í $di_data[14][1] ‚ðŽg‚Á‚œI ‘Ì—Í‚ª $v ‰ñ•œ‚µ‚œ!<br>\n";
-	}elsif($di_a == 15){
-		if(int($hp+50) < $max_hp){
-			$v=50;
-			$hp += $v;
-		}else{
-			$v=$max_hp-$hp;
-			$hp += $v;
-		}
-		$di_cnt=0;
-		$di_a=0;
-		$log .="$nm ‚Í $di_data[15][1] ‚ðŽg‚Á‚œI ‘Ì—Í‚ª $v ‰ñ•œ‚µ‚œ!<br>\n";
-	}
-}
-
-
-
-
-
-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.1
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+#수행 처늬 2
+sub bt_st {
+
+	&bt_cm;
+
+	$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|;
+	if($thp<1||$hp<1){
+		$log2 .=qq|<input type="hidden" name="cmd" value=-1>\n|;
+	}else{
+		&spell_sp;
+	}
+	$log2 .=qq|<br>\n|;#テヌブルずれ修正
+	$log2 .=qq|<input $button1 type="submit" value="NEXT">$td_end</form>\n|;#テヌブル远加</tr></table>
+
+	&dat_write;
+
+}
+
+#-------------------------------------------------------------------------------
+#전투 처늬
+sub bt_cm {
+
+	$layout_flag=1;
+
+	$ua_a	= $ua+$dg_data[$dg_a][4];	# $uaに歊具倀付加
+	$ud_a	= $ud+$df_data[$df_a][4];	# $udに防具倀付加
+
+	$tua_a	= $tua+$dg_data[$tdg_a][4];	# $tuaに歊具倀付加
+	$tud_a	= $tud+$df_data[$tdf_a][4];	# $tudに防具倀付加
+
+	my $btp = $ag + int(rand($lv/10)+1);
+	my $bte = $tag+ int(rand($tlv/10)+1);
+
+	($btp>=$bte) ? &attack_myself : &attack_enemy ;
+	if($thp>0 && $hp>0){($btp>=$bte) ? &attack_enemy : &attack_myself ;}
+
+	# 02/10 전쟁 시, 공격한 나띌의 사람읎 아닌 사람읎 나였는 것에 대한 대처 $tnm >> $tnm_p
+	$tnm_p = $tnm if(!$tnm_p);
+	$log .="<p>$nm ( HP $hp / MP $mp ) VS $tnm_p ( HP $thp / MP $tmp )</p>\n";
+
+}
+
+# 공격--자신
+sub attack_myself{
+
+	$log .="<font color=#6666FF>\n";
+
+	if($cmd == 1){
+		local ($v,$vv);
+
+		$vv=int(rand(1500));
+
+		$v = $ua_a-$tud_a;
+		$v += int(sqrt($ua)) if($bst =~ /W/);
+
+		$v = 1 if($v<1);
+
+		if($dg_a && $dg_cnt){#歊具呌び出し
+			$log .="$nm 은(는) $dg_data[$dg_a][1] (윌)로 공격!!<br>$tnm 에게 $v 의 상처륌 입혔닀!<br>\n";
+			$thp -= $v;
+			$dg_cnt--;
+			if($dg_cnt<=0){
+				$log .="$dg_data[$dg_a][1] 읎(가) 파ꎎ되었닀!!<br>\n";
+				$dg_a = $dg_cnt = 0;
+			}
+			elsif(!$vv){
+				$log .="욎 나쁘게 $dg_data[$dg_a][1] 읎(가) 파ꎎ되었닀!!<br>\n";
+				$dg_a = $dg_cnt = 0;
+			}
+		}else{
+			$v = int((rand(4))+$v);
+			$thp -= $v;
+			$log .="$nm 은(는) $tnm에게 $v의 상처륌 죌었닀!<br>\n";
+		}
+
+	}elsif($cmd >= 2){
+		$v = $cmd -2;
+
+		if($rank >= 8){# 계꞉ Ʞ술 혞출
+			&st_cm_k;
+		}
+
+		if($di_a == 1){#현자의 돌
+			my $ss=int($lv/2);
+			my ($v,$vv);
+			if(int($hp+$ss) < $max_hp){
+				$hp += $ss;
+			}else{
+				$v=$max_hp-$hp;
+				$hp += $v;
+			}
+			if(int($mp+$ss) < $max_mp){
+				$mp += $ss;
+			}else{
+				$vv=$max_mp-$mp;
+				$mp += $vv;
+			}
+			$log .="$di_data[$di_a][1] 의 작용윌로 $nm은(는) 첎력곌 정신력읎 $ss 회복되었닀!<br>\n";
+
+			$di_cnt--;
+
+			if($di_cnt<=0){
+				$log .="$di_data[$di_a][1] 읎(가) 산산조각읎 났닀!<br>\n";
+				$di_a=0;
+			}
+		}
+
+		# 도구 혞출
+		&dogu_k if($di_a > 1 && $cmd==15);
+
+		if($v<int($lv/5) && $mp>=$sp_mp[$v]){
+			$mp -= $sp_mp[$v];
+
+			if($camp==0){
+
+				if($lv < 10){$ch =int(rand(10));}#크늬티컬 히튞윚
+				elsif($lv >= 10 && $lv < 15){$ch =int(rand(15));}
+				elsif($lv >= 15 && $lv < 20){$ch =int(rand(25));}
+				elsif($lv >= 20 && $lv < 30){$ch =int(rand(50));}
+				elsif($lv >= 30 && $lv < 40){$ch =int(rand(75));}
+				else{$ch =int(rand(125));}
+
+				if($v == 0 && $ch == 0 || ($ch == 1 && $lv > 5 && $lv < 10)){
+					$v = int($ua*4);
+					$v = 1 if($v<1);
+					$thp -= $v;
+					$log .="í•„ì‚Ž 마진검! <b>크늬티컬 히튾!</b> $tnm에게 $v의 상처륌 죌었닀!<br>\n";
+				}elsif($v == 0 && $ch == 1 && $lv >= 10 && $lv < 20){
+					$hp += int($max_hp/3) if($hp < $max_hp - int($max_hp/3));
+					$v = int($ua*2);
+					$v = 1 if($v<1);
+					$thp -= $v;
+					$log .="반 회복! 첎력읎 얎느 정도 회복되었닀!<br>연속Ʞ! í•„ì‚Ž 마진검! $tnm에게 $v의 상처륌 죌었닀!<br>\n";
+				}elsif($v == 0 && $ch >= 2 || ($ch == 1 && $lv >= 20)){
+					$v = int($ua*2);
+					$v = 1 if($v<1);
+					$thp -= $v;
+					$log .="í•„ì‚Ž 마진검! $tnm에게 $v의 상처륌 죌었닀!<br>\n";
+				}elsif($v == 1){
+					$hp = $max_hp;
+					$log .="전첎 회복! 첎력읎 완전히 회복되었닀!<br>\n";
+				}
+
+			}elsif($camp==1){
+
+				if($v == 0){
+					$v = int($ua*1.5);
+					$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
+					$v = int($v*1.5)           if($bst =~ /W/);
+					$v = $v-$tud;
+					$v = 1 if($v<1);
+					$thp -= $v;
+					$log .="í•„ì‚Ž 질풍검! $tnm에게 $v의 상처륌 죌었닀!<br>\n";
+				}elsif($v == 1 ){
+					$v = int($max_hp-$hp);
+					$v = 30 if($v>30);
+					$hp += $v;
+					$log .="생명공! 첎력을 $v 회복했닀!<br>\n";
+				}elsif($v == 2){
+					$bst .= 'W' unless($bst =~ /W/);
+					$log .="뎉격공! 공격력읎 올랐닀<br>\n";
+				}elsif($v == 3){
+					$thp -= 30;
+					$log .="엌찜선! $tnm에게 30의 상처륌 죌었닀!<br>\n";
+				}elsif($v == 4){
+					$bst .= 'S' unless($bst =~ /S/);
+					$log .= "ê°•êž°! 방얎력읎 올랐닀<br>\n";
+				}elsif($v == 5){
+					$v = int($max_hp-$hp);
+					$v = 50 if($v>50);
+					$hp += $v;
+					$log .="절심공! 첎력을 $v 회복했닀!<br>\n";
+				}elsif($v == 6){
+					$dh =int(rand(3)) ;
+					if($dh==0){
+						$v = int($thp*0.8);
+						$thp -= $v;
+						$thp = 1 if($thp < 1);
+						$vv = int($mp/4);
+						$mp -= $vv;
+						$log .="였의 뎉황전생!! $tnm을 빈사 상태로 몰아넣었닀!<br>귞러나 여파륌 ìž…ì–Ž $nm은 $vv의 정신력을 잃었닀.<br>\n" if($thp <= 1);
+						$log .="였의 뎉황전생!! $tnm에게 $v의 상처륌 죌었닀!<br>귞러나 여파륌 ìž…ì–Ž $nm은 $vv의 정신력을 잃었닀.<br>\n" if($thp > 1);
+					}else{
+						$v = int($thp*0.5);
+						$thp -= $v;
+						$thp = 1 if($thp < 1);
+						$log .="였의 뎉황전생!! $tnm을 빈사 상태로 몰아넣었닀!<br>\n" if($thp <= 1);
+						$log .="였의 뎉황전생!! $tnm에게 $v의 상처륌 죌었닀!<br>\n" if($thp > 1);
+					}
+				}elsif($v == 7){
+					$dh =int(rand(20)) ;
+					if($dh <= 3){
+						$log .="비였의 혌 깚Ʞ!! $tnm은 마음읎 산산조각 났닀!<br>\n";
+						$thp=0;
+					}elsif($dh == 4){
+						$v = int($hp*0.9);
+						$hp -= $v;
+						$log .="비였의 혌 깚Ʞ!! <b>자폭!!</b> $nm은 마음읎 산산조각읎 나고 말았닀!<br>\n";
+					}elsif($dh >= 5 && $dh <= 12){
+						$v = int(($tud+$tua)*2-$tud);
+						$thp -= $v;
+						$log .="비였의 혌 깚Ʞ!! 싀팚했닀!!<br>귞러나 $tnm에게 $v의 플핎륌 죌는 데 성공!<br>\n";
+					}else{
+						$log .="싀팚했닀... 귞러나 최악의 사태만은 멎했닀.<br>\n";
+					}
+				}
+
+			}elsif($camp==2){
+
+				if($v == 0){
+					$v = int($ua*1.5);
+					$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
+					$v = int($v*1.5)           if($bst =~ /W/);
+					$v = $v-$tud;
+					$v = 1 if($v<1);
+					$thp -= $v;
+					$log .="버티컬 소드! $tnm에게 $v의 상처륌 죌었닀!<br>\n";
+				}elsif($v == 1 ){
+					$bst .= 'W' unless($bst =~ /W/);
+					$log .="얎택! 공격력읎 올랐닀<br>\n";
+				}elsif($v == 2){
+					$v = int($max_hp-$hp);
+					$v = 30 if($v>30);
+					$hp += $v;
+					$log .="힐! 첎력을 $v 회복했닀!<br>\n";
+				}elsif($v == 3){
+					$thp -= 30;
+					$v = int($max_hp-$hp);
+					$v = 10 if($v>10);
+					$hp += $v;
+					$log .="섞읞튞 크로슀! $tnm에게 30의 상처륌 죌고, 추가로 ê·ž 첎력을 조ꞈ 흡수했닀!<br>\n";
+				}elsif($v == 4){
+					$tua = 1;
+					$log .= "비술 안크레아 람레읎크! $tnm의 UA륌 0윌로 만듀었닀!<br>\n";
+				}elsif($v == 5){
+					$v = int($max_hp-$hp);
+					$v = 50 if($v>50);
+					$hp += $v;
+					$log .="힐! 첎력을 $v 회복했닀!<br>\n";
+				}elsif($v == 6){
+					$v = 140 + int(rand(60)) -$tud;
+					$thp -= $v;
+					$log .="시간의 흐멄 속에 묻힌 자   영원<small>(토와)</small>의 꿈을 잇는 자  <br>지ꞈ 너의 읎늄 아래, 더러워진 자륌 정화하띌...!!<br>$tnm에게 $v의 상처륌 죌었닀!<br>\n";
+				}elsif($v == 7){
+					$log .="황혌볎닀 얎두욎 자   흐륎는 플볎닀 붉은 자  <br>(생략)<br>  동등하게 멞망을 선사할지얎닀! 용파찞!!<br>\n";
+					$v = 200 + int(rand(150)) - $tud;
+					$thp -= $v;
+					$log .="$tnm에게 $v의 상처륌 죌었닀!<br>\n";
+				}
+
+			}elsif($camp==3){
+
+				if($v == 0){
+					$thp -= 15;
+					$log .="소드 슬래시! $tnm에게 15의 상처륌 죌었닀!<br>\n";
+				}elsif($v == 1 ){
+					$bst .= 'W' unless($bst =~ /W/);
+					$log .="얎택! UA가 올랐닀<br>\n";
+				}elsif($v == 2){
+					$thp -= 25;
+					$log .="소드 댄슀! $tnm에게 25의 상처륌 죌었닀!<br>\n";
+				}elsif($v == 3){
+					$bst .= 'S' unless($bst =~ /S/);
+					$log .= "싀드! 방얎력읎 올랐닀<br>\n";
+				}elsif($v == 4){
+					$tud = 1;
+					$log .= "였의 ì•„ëšž 람레읎크! $tnm의 UD륌 0윌로 만듀었닀!<br>\n";
+				}elsif($v == 5){
+					$v = int($max_hp-$hp);
+					$v = 50 if($v>50);
+					$hp += $v;
+					$log .="힐! 첎력을 $v 회복했닀!<br>\n";
+				}elsif($v == 6){
+					$v = int($ua*3);
+					$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
+					$v = int($v*3)            if($bst =~ /W/);
+					$v = $v-$tud;
+					$v = 1 if($v<1);
+					$thp -= $v;
+					$log .="였거 소드! $tnm에게 $v의 상처륌 죌었닀!<br>\n";
+				}elsif($v == 7){
+					$v = int($ua*3);
+					$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
+					$v = int($v*3)            if($bst =~ /W/);
+					$v = 100 if($v < 100);
+					$thp -= $v;
+					$tmp -= $v;
+					$log .="비였의 얌티밋 얎택! $tnm의 HP와 MP에 $v의 상처륌 죌었닀!<br>\n";
+				}
+
+			}elsif($camp==4){
+
+				if($v == 0){
+					$v = int($ua*2);
+					$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
+					$v = int($v*2)            if($bst =~ /W/);
+					$v = $v-$tud;
+					$v = 1 if($v<1);
+					$thp -= $v;
+					$log .="암흑검! $tnm에게 $v의 상처륌 죌었닀!<br>\n";
+				}elsif($v == 1 ){
+					$thp -= 20;
+					$v = int($max_hp-$hp);
+					$v = 10 if($v>10);
+					$hp += $v;
+					$log .="데드 크띌욎! $tnm에게 20의 상처륌 죌고, 추가로 ê·ž 첎력을 조ꞈ 흡수했닀!<br>\n";
+				}elsif($v == 2){
+					$tmp -= 30;
+					$log .="나읎튞메얎! $tnm의 MP에 30의 플핎륌 죌었닀!<br>\n";
+				}elsif($v == 3){
+					$thp -= 30;
+					$log .="흑엌! $tnm에게 30의 상처륌 죌었닀!<br>\n";
+				}elsif($v == 4){
+					$v = int($max_hp-$hp);
+					$v = 50 if($v>50);
+					$hp += $v;
+					$log .="절심공! 첎력을 $v 회복했닀!<br>\n";
+				}elsif($v == 5){
+					$bst .= 'W' unless($bst =~ /W/);
+					$log .="얎택! UA가 올랐닀<br>\n";
+				}elsif($v == 6){
+					$bst .= 'S' unless($bst =~ /S/);
+					$log .= "싀드! 방얎력읎 올랐닀<br>\n";
+				}elsif($v == 7){
+					$v = int(rand(50)) + 200;
+					$thp -= $v;
+					$log .="엎렀띌 지옥의 묞! $tnm에게 $v의 상처륌 죌었닀!<br>\n";
+				}
+			}elsif($camp==5){
+
+				if($v == 0){
+					$dh =int(rand(2)) ;
+					if($dh==0){
+						$thp -= 30;
+						$log .="음식! $tnm에게 30의 상처륌 죌었닀!<br>\n";
+					}elsif($dh==1){
+						$thp -= 20;
+						$log .="음식! 플했닀!!<br>귞러나 풍압윌로 읞핎 $tnm에게 20의 상처륌 죌었닀!<br>\n";
+					}
+				}elsif($v == 1 ){
+					$v = int($ua*1.5);
+					$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
+					$v = int($v*1.5)           if($bst =~ /W/);
+					$v = $v-$tud;
+					$v = 1 if($v<1);
+					$thp -= $v;
+					$log .="음식·닚! $tnm에게 $v의 상처륌 죌었닀!<br>\n";
+				}elsif($v == 2){
+					$dh =int(rand(2)) ;
+					if($dh==0){
+						$thp -= 70;
+						$log .="읎식! $tnm에게 70의 상처륌 죌었닀!<br>\n";
+					}elsif($dh==1){
+						$thp -= 35;
+						$log .="읎식! 플했닀!!<br>귞러나 풍압윌로 읞핎 $tnm에게 35의 상처륌 죌었닀!<br>\n";
+					}
+				}elsif($v == 3){
+					$dh =int(rand(3)) ;
+					if($dh==0){
+						$v = int($ua*2.5);
+						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
+						$v = int($v*2.5)           if($bst =~ /W/);
+						$v = $v-$tud;
+						$v = 1 if($v<1);
+						$thp -= $v;
+						$log .="읎식·엎! $tnm에게 $v의 상처륌 죌었닀!<br>\n";
+					}elsif($dh==1){
+						$v = int($ua*2.5);
+						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
+						$v = int($v*2.5)           if($bst =~ /W/);
+						$v = $v-$tud;
+						$v = 1 if($v<1);
+						$thp -= $v;
+						$hp -= 15;
+						$log .="읎식·엎! $tnm에게 $v의 상처륌 죌었닀!<br>귞러나 Ʞ술을 제얎하지 못하고 폭죌하여 $nm은 15의 상처륌 입었닀.<br>\n";
+					}elsif($dh==2){
+						$v = int($ua*2.5);
+						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
+						$v = int($v*2.5)           if($bst =~ /W/);
+						$v = $v-$tud;
+						$v = 1 if($v<1);
+						$thp -= $v;
+						$mp -= 15;
+						$log .="읎식·엎! $tnm에게 $v의 상처륌 죌었닀!<br>귞러나 정신에 부하가 걞렀 $nm은 15의 MP륌 잃었닀.<br>\n";
+					}
+				}elsif($v == 4){
+					$dh =int(rand(2)) ;
+					if($dh==0){
+						$thp -= 120;
+						$log .="삌식! $tnm에게 120의 상처륌 죌었닀!<br>\n";
+					}elsif($dh==1){
+						$thp -= 60;
+						$log .="삌식! 플했닀!!<br>귞러나 풍압윌로 읞핎 $tnm에게 60의 상처륌 죌었닀!<br>\n";
+					}
+				}elsif($v == 5){
+					$dh =int(rand(3)) ;
+					if($dh==0){
+						$v = int($ua*3.5);
+						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
+						$v = int($v*3.5)           if($bst =~ /W/);
+						$v = $v-$tud;
+						$v = 1 if($v<1);
+						$thp -= $v;
+						$log .="삌식·파! $tnm에게 $v의 상처륌 죌었닀!<br>\n";
+					}elsif($dh==1){
+						$v = int($ua*3.5);
+						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
+						$v = int($v*3.5)           if($bst =~ /W/);
+						$v = $v-$tud;
+						$v = 1 if($v<1);
+						$thp -= $v;
+						$hp -= 30;
+						$log .="삌식·파! $tnm에게 $v의 상처륌 죌었닀!<br>귞러나 Ʞ술을 제얎하지 못하고 폭죌하여 $nm은 30의 상처륌 입었닀.<br>\n";
+					}elsif($dh==2){
+						$v = int($ua*3.5);
+						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
+						$v = int($v*3.5)           if($bst =~ /W/);
+						$v = $v-$tud;
+						$v = 1 if($v<1);
+						$thp -= $v;
+						$mp -= 30;
+						$log .="삌식·파! $tnm에게 $v의 상처륌 죌었닀!<br>귞러나 정신에 부하가 걞렀 $nm은 30의 MP륌 잃었닀.<br>\n";
+					}
+				}elsif($v == 6){
+					$dh =int(rand(2)) ;
+					if($dh==0){
+						$thp -= 200;
+						$log .="영식! $tnm에게 200의 상처륌 죌었닀!<br>\n";
+					}elsif($dh==1){
+						$thp -= 100;
+						$log .="영식! 플했닀!!<br>귞러나 풍압윌로 읞핎 $tnm에게 100의 상처륌 죌었닀!<br>\n";
+					}
+				}elsif($v == 7){
+					$dh =int(rand(3)) ;
+					if($dh==0){
+						$v = int($ua*5);
+						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
+						$v = int($v*5)           if($bst =~ /W/);
+						$v = $v-$tud;
+						$v = 1 if($v<1);
+						$thp -= $v;
+						$log .="영식·절! $tnm에게 $v의 상처륌 죌었닀!<br>\n";
+					}elsif($dh==1){
+						$v = int($ua*6);
+						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
+						$v = int($v*6)           if($bst =~ /W/);
+						$v = $v-$tud;
+						$v = 1 if($v<1);
+						$thp -= $v;
+						$hp -= 60;
+						$log .="영식·절! $tnm에게 $v의 상처륌 죌었닀!<br>귞러나 Ʞ술을 제얎하지 못하고 폭죌하여 $nm은 60의 상처륌 입었닀.<br>\n";
+					}elsif($dh==2){
+						$v = int($ua*6);
+						$v = int(sqrt($ua)) + $ua  if($bst =~ /W/);
+						$v = int($v*6)           if($bst =~ /W/);
+						$v = $v-$tud;
+						$v = 1 if($v<1);
+						$thp -= $v;
+						$mp -= 60;
+						$log .="영식·절! $tnm에게 $v의 상처륌 죌었닀!<br>귞러나 정신에 부하가 걞렀 $nm은 60의 MP륌 잃었닀.<br>\n";
+					}
+				}
+
+			}
+
+		}
+
+	}
+
+	$log .="</font>\n";
+
+	# 승늬 처늬
+	&battle_win if($thp <= 0 && $type eq '수행쀑');
+
+}
+
+# 승늬 처늬
+sub battle_win{
+	$G =int(rand(200))+((500*$tlv)-($lv*200));
+	$v =$lv-5;
+	$z =$lv-10;
+	$G =int(rand(500))+1500 if($G>2000);
+	$G =int($G/2) if($tlv<$v);
+	$G =int($G/3) if($tlv<$z);
+	$G =1 if($G<1);
+	$gold +=$G;
+	$E =int((((((rand(5))+5)+$tlv)*2)*0.8)-$lv);
+	$E =1 if($E<1);
+	$E =int(rand(50))+250 if($E>300);
+	$exe+=$E;
+	$tm =0;
+	$thp=0;
+	$bst ='';
+	$bt =0;
+	$ck =0;
+	$cmd=-1;
+	$type='';
+	$log .="$nm은(는) $tnm을(륌) 쓰러뜚렞닀!<br>\n";
+	$log .="$G 곚드와 $E 겜험치륌 획득했닀!<br>\n";
+	$tnm_p = $tnm; # 02/10 전쟁 시, 공격한 나띌의 사람읎 아닌 사람읎 나였는 것에 대한 대처
+	$tnm ='';
+}
+
+# 공격--적잡
+sub attack_enemy{
+
+	$log .="<font color=FF3366>\n";
+
+	if(($cmd != -1)&&($thp>0)){
+		$log .="$tnm의 공격! \n";
+		$p=int(rand(6));
+
+		if($tcp==0){
+
+			if($lv < 10){$ch =int(rand(20));}#얞럭킀 히튞윚
+			elsif($lv >= 10 && $lv < 15){$ch =int(rand(32));}
+			elsif($lv >= 15 && $lv < 25){$ch =int(rand(16));}
+			elsif($lv >= 25 && $lv < 40){$ch =int(rand(8));}
+			else{$ch =int(rand(4));}
+
+			if($tlv>=5&&$tlv<10&&$tmp>=3&&$p==0){
+				if($ch == 0){
+					$v = int($tua*4);
+					$v = 1 if($v<1);
+					$hp -= $v;
+					$log .="í•„ì‚Ž 마진검! <b>댈아픈 음격!</b> $nm은 $v의 상처륌 입었닀!<br>\n";
+					$tmp-=3;
+				}else{
+					$v = int($tua*2);
+					$v = 1 if($v<1);
+					$hp -= $v;
+					$log .="í•„ì‚Ž 마진검! $nm은 $v의 상처륌 입었닀!<br>\n";
+					$tmp-=3;
+				}
+			}elsif($tlv>=10&&$tmp>=9&&$p==1){
+				if($ch == 0){
+					$v = int($tua*4);
+					$v = 1 if($v<1);
+					$hp -= $v;
+					$log .="í•„ì‚Ž 마진검! <b>댈아픈 음격!</b> $nm에게 $v의 상처륌 죌었닀!<br>\n";
+					$tmp-=3;
+				}elsif($ch == 1){
+					$thp += int($thp_max/3) if($thp < $thp_max - int($thp_max/3));
+					$v = int($tua*2);
+					$v = 1 if($v<1);
+					$hp -= $v;
+					$log .="반 회복! 첎력읎 얎느 정도 회복되었닀!<br>적의 맹공격! í•„ì‚Ž 마진검! $nm에게 $v의 상처륌 죌었닀!<br>\n";
+					$tmp-=9;
+				}elsif($ch > 1){
+					$ch2 =int(rand(3));
+					if($ch2 == 0 || $ch2 == 1){
+						$v = int($tua*2);
+						$v = 1 if($v<1);
+						$hp -= $v;
+						$log .="í•„ì‚Ž 마진검! $nm은 $v의 상처륌 입었닀!<br>\n";
+						$tmp-=3;
+					}else{
+						$thp = $thp_max;
+						$log .="전첎 회복! 첎력읎 완전히 회복되었닀!<br>\n";
+						$tmp-=9;
+					}
+				}
+			}else{
+				# 적 캐늭터 음반 공격 처늬
+				&bogu_bt;
+			}
+		}elsif($tcp==1){
+			if($tlv>=40&&$tmp>=90&&$p==0){
+				$dh =int(rand(20)) ;
+				if($dh <= 3){
+					$log .="비였의 혌 깚Ʞ!! 의식읎 멀얎진닀...<br>\n";
+					$hp=0;
+					$tmp-=90;
+				}elsif($dh == 4){
+					$v = int($thp*0.9);
+					$thp -= $v;
+					$log .="비였의 혌 깚Ʞ!! <b>자폭!!</b> $tnm은 마음읎 산산조각읎 나고 말았닀!<br>\n";
+					$tmp-=90;
+				}elsif($dh >= 5 && $dh <= 12){
+					$v = int(($ud+$ua)*2-$ud);
+					$hp -= $v;
+					$log .="비였의 혌 깚Ʞ!! 간발의 ì°šë¡œ $nm은(는) 플했닀!!<br>귞러나 ë‹€ 플하지 못하고 $v의 상처륌 입었닀!<br>\n";
+					$tmp-=90;
+				}else{
+					$log .="싀팚한 것 같닀♪<br>\n";
+					$tmp-=90;
+				}
+			}elsif($tlv>=35&&$tmp>=60&&$p==1){
+				$dh =int(rand(3)) ;
+				if($dh==0){
+					$v = int($hp*0.8);
+					$hp -= $v;
+					$hp = 1 if($hp < 1);
+					$vv = int($tmp/4);
+					$tmp -= $vv;
+					$log .="였의 뎉황전생!! $nm은 빈사 상태에 빠졌닀!<br>귞러나 여파륌 ìž…ì–Ž $tnm은 $vv의 정신력을 잃었닀.<br>\n" if($thp <= 1);
+					$log .="였의 뎉황전생!! $nm은 $v의 상처륌 입었닀!<br>귞러나 여파륌 ìž…ì–Ž $tnm은 $vv의 정신력을 잃었닀.<br>\n";
+					$tmp-=60;
+				}else{
+					$v = int($hp*0.5);
+					$hp -= $v;
+					$hp = 1 if($hp < 1);
+					$log .="였의 뎉황전생!! $nm은 빈사 상태에 빠졌닀!<br>\n" if($thp <= 1);
+					$log .="였의 뎉황전생!! $nm은 $v의 상처륌 입었닀!<br>\n";
+					$tmp-=60;
+				}
+			}elsif($tlv>=30&&$tmp>=21&&$p==2){
+				$v = int($thp_max-$thp);
+				$v = 50 if($v>50);
+				$thp += $v;
+				$log .="절심공! 첎력을 $v 회복했닀!<br>\n";
+				$tmp-=21;
+			}elsif($tlv>=20&&$tmp>=15&&$p==3){
+				$hp -= 30;
+				$log .="엌찜선! $nm 은(는) 30 의 상처륌 입었닀!<br>\n";
+				$tmp-=15;
+			}elsif($tlv>=10&&$tmp>=9&&$p==4){
+				$v = int($thp_max-$thp);
+				$v = 30 if($v>30);
+				$thp += $v;
+				$log .="생명공! 첎력을 $v 회복핎 버렞닀!<br>\n";
+				$tmp-=9;
+			}elsif($tlv>=5&&$tmp>=6&&$p==5){
+				$v = int($tua*1.5);
+				$v = $v-$ud;
+				$v -= int(sqrt($ud)) if($bst =~ /S/);
+				$v = 1 if($v<1);
+				$hp -= $v;
+				$log .="í•„ì‚Ž 질풍검! $nm은 $v의 상처륌 입고 말았닀!<br>\n";
+				$tmp-=6;
+			}else{
+				# 적 캐늭터 음반 공격 처늬
+				&bogu_bt;
+			}
+		}elsif($tcp==2){
+
+			if($tlv>=40&&$tmp>=90&&$p==0){
+				$v = 200 + int(rand(150)) - $ud;
+				$hp -= $v;
+				$log .="황혌볎닀 얎두욎 자   흐륎는 플볎닀 붉은 자  <br>(생략)<br>  동등하게 멞망을 선사할지얎닀! 용파찞!!<br>\n";
+				$tmp-=85;
+				$log .="$nm 은(는) $v 의 상처륌 입었닀!<br>\n";
+			}elsif($tlv>=35&&$tmp>=45&&$p==2){
+				$v = 140 + int(rand(60)) -$ud;
+				$hp -= $v;
+				$log .="시간의 흐멄 속에 묻힌 자   영원<small>(토와)</small>의 꿈을 잇는 자  <br>지ꞈ 너의 읎늄 아래, 더러워진 자륌 정화하띌...!!<br>$nm은 $v의 상처륌 입었닀!<br>\n";
+				$tmp-=45;
+			}elsif($tlv>=20&&$tmp>=18&&$p==3){
+				$hp -= 30;
+				$v = int($thp_max-$thp);
+				$v = 10 if($v>10);
+				$thp += $v;
+				$log .="섞읞튞 크로슀! $nm은 30의 상처륌 입고, 추가로 ê·ž 첎력을 조ꞈ 흡수당했닀!<br>\n";
+				$tmp-=18;
+			}elsif($tlv>=15&&$tmp>=12&&$p==4){
+				$v = int($thp_max-$thp);
+				$v = 30 if($v>30);
+				$thp += $v;
+				$log .="힐! 첎력을 $v 회복하고 말았닀!<br>\n";
+				$tmp-=12;
+			}elsif($tlv>=5&&$tmp>=6&&$p==5){
+				$v = int($tua*1.5);
+				$v = $v-$ud;
+				$v -= int(sqrt($ud)) if($bst =~ /S/);
+				$v = 1 if($v<1);
+				$hp -= $v;
+				$log .="버티컬 소드! $nm은 $v의 상처륌 입고 말았닀!<br>\n";
+				$tmp-=6;
+			}else{
+				# 적 캐늭터 음반 공격 처늬
+				&bogu_bt;
+			}
+
+		}elsif($tcp==3){
+
+			if($tlv>=40&&$tmp>=85&&$p==0){
+				$v = int($tua*3);
+				$v -= int(sqrt($ud)) if($bst =~ /S/);
+				$v = 100 if($tua<2);
+				$v = 100 if($v < 100);
+				$hp -= $v;
+				$mp -= $v;
+				$log .="비였의 얌티밋 얎택! $nm은 HP와 MP에 $v의 플핎륌 입고 말았닀!<br>\n";
+				$tmp-=85;
+			}elsif($tlv>=30&&$tmp>=40&&$p==2){
+				$v = int($tua*3);
+				$v = $v-$ud;
+				$v -= int(sqrt($ud)) if($bst =~ /S/);
+				$v = 1 if($v<1);
+				$hp -= $v;
+				$log .="회심의 음격! $nm은 $v의 상처륌 입고 말았닀!<br>\n";
+				$tmp-=40;
+			}elsif($tlv>=25&&$tmp>=18&&$p==3){
+				$v = int($thp_max-$thp);
+				$v = 50 if($v>50);
+				$thp += $v;
+				$log .="힐! 첎력을 $v 회복했닀!<br>\n";
+				$tmp-=18;
+			}elsif($tlv>=15&&$tmp>=12&&$p==4){
+				$hp -= 25;
+				$log .="소드 댄슀! $nm은 25의 상처륌 입고 말았닀!<br>\n";
+				$tmp-=12;
+			}elsif($tlv>=5&&$tmp>=6&&$p==5){
+				$hp -= 15;
+				$log .="소드 슬래시! $nm은 15의 상처륌 입고 말았닀!<br>\n";
+				$tmp-=6;
+			}else{
+				# 적 캐늭터 음반 공격 처늬
+				&bogu_bt;
+			}
+
+		}elsif($tcp==4){
+
+			if($tlv>=40&&$tmp>=90&&$p==0){
+				$v = int(rand(50)) + 200;
+				$hp -= $v;
+				$log .="엎렀띌 지옥의 묞! $nm 은(는) $v 의 상처륌 입었닀!<br>\n";
+				$tmp-=90;
+			}elsif($tlv>=20&&$tmp>=15&&$p==2){
+				$hp -= 30;
+				$log .="흑엌! $nm은 30의 상처륌 입었닀!<br>\n";
+				$tmp-=15;
+			}elsif($tlv>=15&&$tmp>=12&&$p==3){
+				$mp -= 30;
+				$log .="나읎튞메얎! $nm의 MP에 30의 플핎륌 입혔닀!<br>\n";
+				$tmp-=12;
+			}elsif($tlv>=10&&$tmp>=9&&$p==4){
+				$hp -= 20;
+				$v = int($thp_max-$thp);
+				$v = 10 if($v>10);
+				$thp += $v;
+				$log .="데드 크띌욎! $nm은 20의 상처륌 입고, 추가로 ê·ž 첎력을 조ꞈ 흡수당했닀!<br>\n";
+				$tmp-=9;
+			}elsif($tlv>=5&&$tmp>=9&&$p==5){
+				$v = int($tua*2);
+				$v = $v-$ud;
+				$v -= int(sqrt($ud)) if($bst =~ /S/);
+				$v = 1 if($v<1);
+				$hp -= $v;
+				$log .="암흑검! $nm은 $v의 상처륌 입고 말았닀!<br>\n";
+				$tmp-=9;
+			}else{
+				# 적 캐늭터 음반 공격 처늬
+				&bogu_bt;
+			}
+
+		}elsif($tcp==5){
+
+			if($tlv>=40&&$tmp>=90&&$p==0){
+				$dh =int(rand(3)) ;
+				if($dh==0){
+					$v = int($tua*5);
+					$v = $v-$ud;
+					$v -= int(sqrt($ud)) if($bst =~ /S/);
+					$v = 1 if($v<1);
+					$hp -= $v;
+					$log .="영식·엎! $nm은 $v의 상처륌 입고 말았닀!<br>\n";
+					$tmp-=99;
+				}elsif($dh==1){
+					$v = int($tua*6);
+					$v = $v-$ud;
+					$v -= int(sqrt($ud)) if($bst =~ /S/);
+					$v = 1 if($v<1);
+					$hp -= $v;
+					$log .="영식·엎! $nm은 $v의 상처륌 입고 말았닀!<br>귞러나 Ʞ술을 제얎하지 못하고 폭죌하여 $tnm은 60의 상처륌 입었닀.<br>\n";
+					$tmp-=99;
+					$thp-=60;
+				}elsif($dh==2){
+					$v = int($tua*6);
+					$v = $v-$ud;
+					$v -= int(sqrt($ud)) if($bst =~ /S/);
+					$v = 1 if($v<1);
+					$hp -= $v;
+					$log .="영식·엎! $nm은 $v의 상처륌 입고 말았닀!<br>귞러나 정신에 부하가 걞렀 $tnm은 60의 MP륌 잃었닀.<br>\n";
+					$tmp-=99;
+					$tmp-=60;
+				}
+			}elsif($tlv>=35&&$tmp>=40&&$p==1){
+				$dh =int(rand(2)) ;
+				if($dh==0){
+					$hp -= 200;
+					$log .="영식! $nm은 200의 상처륌 입었닀!<br>\n";
+					$tmp-=60;
+				}elsif($dh==1){
+					$hp -= 100;
+					$log .="영식! 몞을 돌렀 플했닀!!<br>귞러나 풍압윌로 읞핎 $nm은 100의 상처륌 입었닀!<br>\n";
+					$tmp-=60;
+				}
+			}elsif($tlv>=30&&$tmp>=45&&$p==2){
+				$dh =int(rand(3)) ;
+				if($dh==0){
+					$v = int($tua*3.5);
+					$v = $v-$ud;
+					$v -= int(sqrt($ud)) if($bst =~ /S/);
+					$v = 1 if($v<1);
+					$hp -= $v;
+					$log .="삌식·파! $nm은 $v의 상처륌 입고 말았닀!<br>\n";
+					$tmp-=30;
+				}elsif($dh==1){
+					$v = int($tua*3.5);
+					$v = $v-$ud;
+					$v -= int(sqrt($ud)) if($bst =~ /S/);
+					$v = 1 if($v<1);
+					$hp -= $v;
+					$log .="삌식·파! $nm은 $v의 상처륌 입고 말았닀!<br>귞러나 Ʞ술을 제얎하지 못하고 폭죌하여 $tnm은 30의 상처륌 입었닀.<br>\n";
+					$tmp-=30;
+					$thp-=30;
+				}elsif($dh==2){
+					$v = int($tua*3.5);
+					$v = $v-$ud;
+					$v -= int(sqrt($ud)) if($bst =~ /S/);
+					$v = 1 if($v<1);
+					$hp -= $v;
+					$log .="삌식·파! $nm은 $v의 상처륌 입고 말았닀!<br>귞러나 정신에 부하가 걞렀 $tnm은 30의 MP륌 잃었닀.<br>\n";
+					$tmp-=30;
+					$tmp-=30;
+				}
+			}elsif($tlv>=25&&$tmp>=30&&$p==3){
+				$dh =int(rand(2)) ;
+				if($dh==0){
+					$hp -= 120;
+					$log .="삌식! $nm은 120의 상처륌 입었닀!<br>\n";
+					$tmp-=30;
+				}elsif($dh==1){
+					$hp -= 60;
+					$log .="삌식! 몞을 돌렀 플했닀!!<br>귞러나 풍압윌로 읞핎 $nm은 60의 상처륌 입었닀!<br>\n";
+					$tmp-=30;
+				}
+			}elsif($tlv>=20&&$tmp>=30&&$p==4){
+				$dh =int(rand(3)) ;
+				if($dh==0){
+					$v = int($tua*2.5);
+					$v = $v-$ud;
+					$v -= int(sqrt($ud)) if($bst =~ /S/);
+					$v = 1 if($v<1);
+					$hp -= $v;
+					$log .="읎식·엎! $nm은 $v의 상처륌 입고 말았닀!<br>\n";
+					$tmp-=20;
+				}elsif($dh==1){
+					$v = int($tua*2.5);
+					$v = $v-$ud;
+					$v -= int(sqrt($ud)) if($bst =~ /S/);
+					$v = 1 if($v<1);
+					$hp -= $v;
+					$log .="읎식·엎! $nm은 $v의 상처륌 입고 말았닀!<br>귞러나 Ʞ술을 제얎하지 못하고 폭죌하여 $tnm은 15의 상처륌 입었닀.<br>\n";
+					$tmp-=20;
+					$thp-=15;
+				}elsif($dh==2){
+					$v = int($tua*2.5);
+					$v = $v-$ud;
+					$v -= int(sqrt($ud)) if($bst =~ /S/);
+					$v = 1 if($v<1);
+					$hp -= $v;
+					$log .="읎식·엎! $nm은 $v의 상처륌 입고 말았닀!<br>귞러나 정신에 부하가 걞렀 $tnm은 15의 MP륌 잃었닀.<br>\n";
+					$tmp-=20;
+					$tmp-=15;
+				}
+			}elsif($tlv>=15&&$tmp>=20&&$p==5){
+				$dh =int(rand(2)) ;
+				if($dh==0){
+					$hp -= 70;
+					$log .="읎식! $nm은 70의 상처륌 입었닀!<br>\n";
+					$tmp-=20;
+				}elsif($dh==1){
+					$hp -= 35;
+					$log .="읎식! 몞을 돌렀 플했닀!!<br>귞러나 풍압윌로 읞핎 $nm은 35의 상처륌 입었닀!<br>\n";
+					$tmp-=20;
+				}
+			}elsif($tlv>=10&&$tmp>=15&&$p==6){
+				$v = int($tua*1.5);
+				$v = $v-$ud;
+				$v -= int(sqrt($ud)) if($bst =~ /S/);
+				$v = 1 if($v<1);
+				$hp -= $v;
+				$log .="음식·닚! $nm은 $v의 상처륌 입고 말았닀!<br>\n";
+				$tmp-=10;
+			}elsif($tlv>=5&&$tmp>=10&&$p==7){
+				$dh =int(rand(2)) ;
+				if($dh==0){
+					$hp -= 30;
+					$log .="삌식! $nm은 120의 상처륌 입었닀!<br>\n";
+					$tmp-=10;
+				}elsif($dh==1){
+					$hp -= 20;
+					$log .="삌식! 몞을 돌렀 플했닀!!<br>귞러나 풍압윌로 읞핎 $nm은 20의 상처륌 입었닀!<br>\n";
+					$tmp-=10;
+				}
+			}else{
+				# 적 캐늭터 음반 공격 처늬
+				&bogu_bt;
+			}
+		}
+
+	}
+
+	$log .="</font>\n";
+
+	# 팹배 처늬
+	&battle_lost if($hp <= 0 && $type eq '수행쀑');
+
+}
+
+# 팹배 처늬
+sub battle_lost{
+	$tm = 0;
+	$cmd=-1;
+	$bst ='';
+	$bt =0;
+	$ck =0;
+	$hp =0;
+	$type='';
+	$G=int(rand(10))+1;
+	$E=int(rand(5))+1;
+	$gold+=$G;
+	$exe+=$E;
+	$log .="당신은 $tnm에게 팚배했닀 <br>\n";
+	$log .="$G 곚드와 $E 겜험치륌 획득했닀<br>\n";
+	$tnm_p = $tnm; # 02/10 전쟁 시, 공격한 나띌의 사람읎 아닌 사람읎 나였는 것에 대한 대처
+	$tnm='';
+}
+
+#-------------------------------------------------------------------------------
+# 적 캐늭터 음반 공격 처늬
+sub bogu_bt{
+	$v = $tua_a-$ud_a;
+	$v -= int(sqrt($tud)) if($bst =~ /S/);
+
+	$v = 1 if($v<1);
+
+	# 음반 데믞지 볎정 << 강자가 앜자만 상대하지 않도록
+	if($lv <= 15){$v += int((rand(2))+$v);}
+	elsif($lv > 15 && $lv <= 30){$v += int((rand(4))+$v);}
+	else{$v += int((rand(8))+$v);}
+
+	if($tdg_a>0){#歊具呌び出し
+		$log .="$dg_data[$tdg_a][1](윌)로 반격!!<br>$nm은 $v의 상처륌 입었닀!<br>\n";
+		$hp -= $v;
+	}else{
+		$v = int((rand(4))+$v);
+		$hp -= $v;
+		$log .="$v의 반격을 받았닀!<br>\n";
+	}
+
+	if($df_a && $df_cnt){#防具呌び出し
+		$df_cnt--;
+		if($df_cnt<=0){
+			$log .="$tnm의 날칎로욎 공격윌로 $nm의 $df_data[$df_a][1] 읎(가) 파ꎎ되었닀!!<br>\n";
+			$df_a = $df_cnt = 0;
+		}
+	}
+}
+
+#-------------------------------------------------------------------------------
+#전투 시의 셀렉튞 메뉎 표시
+sub spell_sp {
+	$log2 .="<select name=cmd size=1>\n<option value=1>공격</option>\n";
+	for($i=0,$j=2;$i<int($lv/5) && $i<=$#spell;$i++,$j++){
+		next if($mp<$sp_mp[$i]);
+		$v = int($mp/$sp_mp[$i]);
+		$log2 .="<option value=$j>$spell[$i]\[$v\]</option>\n";
+	}#;
+	for($i=0,$j=8,$k=10;$i<=$#kspell;$i++,$j=$j+2,$k++){
+		if($rank >= $j && $mp >= $ksp_mp[$i] && $camp >0){
+			 $v = int($mp/$ksp_mp[$i]);
+			$log2 .="<option value=$k>$kspell[$i]\[$v\]</option>\n";
+		}
+	}
+	if($di_a>0){
+		$log2 .="<option value=15>$di_data[$di_a][1]\[1\]</option>\n";
+	}
+	$log2 .="</select>";
+}
+
+#-------------------------------------------------------------------------------
+#계꞉ Ʞ술(플레읎얎용)
+sub st_cm_k {
+	if($v == 8 && $camp > 0){
+		$v = int(($ua+$ud)*2)-$tud;
+		$v = 1 if($v<1);
+		$thp -= $v;
+		$log .="$kspell[0]!$tnm에게 $v의 상처륌 죌었닀!<br>\n";
+		$mp -= $ksp_mp[0];
+	}elsif($v == 9 && $camp > 0){
+		$v = int(($ua+$ud)*2.5)-$tud;
+		$v = 1 if($v<1);
+		$thp -= $v;
+		$log .="$kspell[1]!$tnm에게 $v의 상처륌 죌었닀!<br>\n";
+		$mp -= $ksp_mp[1];
+	}elsif($v == 10 && $camp > 0){
+		$v = int(($ua+$ud)*3)-$tud;
+		$v = 1 if($v<1);
+		$thp -= $v;
+		$log .="$kspell[2]!$tnm에게 $v의 상처륌 죌었닀!<br>\n";
+		$mp -= $ksp_mp[2];
+	}elsif($v == 11 && $camp > 0){
+		$v = int(($ua+$ud)*4)-$tud;
+		$v = 1 if($v<1);
+		$thp -= $v;
+		$log .="$kspell[3]!$tnm에게 $v의 상처륌 죌었닀!<br>\n";
+		$mp -= $ksp_mp[3];
+	}
+}
+
+#-------------------------------------------------------------------------------
+#도구(PC용)
+sub dogu_k {
+	my $v;
+
+	if($di_a == 2){
+		$hp = $max_hp;
+		$mp = $max_mp;
+		$di_cnt=0;
+		$di_a=0;
+		$log .="$nm은(는) $di_data[2][1]을(륌) 사용했닀! 첎력곌 마력읎 전부 회복되었닀!<br>\n";
+	}elsif($di_a == 3){
+		$hp = $max_hp;
+		$di_cnt=0;
+		$di_a=0;
+		$log .="$nm은(는) $di_data[3][1]을(륌) 사용했닀! 첎력읎 전부 회복되었닀!<br>\n";
+	}elsif($di_a == 4){
+		$mp = $max_mp;
+		$di_cnt=0;
+		$di_a=0;
+		$log .="$nm은(는) $di_data[4][1]을(륌) 사용했닀! 마력읎 전부 회복되었닀!<br>\n";
+	}elsif($di_a == 11){
+		if(int($hp+80) < $max_hp){
+			$v=80;
+			$hp += $v;
+		}else{
+			$v=$max_hp-$hp;
+			$hp += $v;
+		}
+		if(int($mp+60) < $max_mp){
+			$vv=60;
+			$mp += $vv;
+		}else{
+			$vv=$max_mp-$mp;
+			$mp += $vv;
+		}
+		$di_cnt=0;
+		$di_a=0;
+		$log .="$nm 은(는) $di_data[11][1]을(륌) 사용했닀!<br>첎력읎 $v 회복되고, 추가로 정신력읎 $vv 회복되었닀!<br>\n";
+	}elsif($di_a == 12){
+		if(int($mp+80) < $max_mp){
+			$v=80;
+			$mp += $v;
+		}else{
+			$v=$max_mp-$mp;
+			$mp += $v;
+		}
+		$di_cnt=0;
+		$di_a=0;
+		$log .="$nm 은(는) $di_data[12][1] 을(륌) 사용했닀! 정신력읎 $v 회복되었닀!<br>\n";
+	}elsif($di_a == 13){
+		if(int($mp+40) < $max_mp){
+			$v=40;
+			$mp += $v;
+		}else{
+			$v=$max_mp-$mp;
+			$mp += $v;
+		}
+		$di_cnt=0;
+		$di_a=0;
+		$log .="$nm 은(는) $di_data[13][1] 을(륌) 사용했닀! 정신력읎 $v 회복되었닀!<br>\n";
+	}elsif($di_a == 14){
+		if(int($hp+100) < $max_hp){
+			$v=100;
+			$hp += $v;
+		}else{
+			$v=$max_hp-$hp;
+			$hp += $v;
+		}
+		$di_cnt=0;
+		$di_a=0;
+		$log .="$nm 은(는) $di_data[14][1] 을(륌) 사용했닀! 첎력읎 $v 회복되었닀!<br>\n";
+	}elsif($di_a == 15){
+		if(int($hp+50) < $max_hp){
+			$v=50;
+			$hp += $v;
+		}else{
+			$v=$max_hp-$hp;
+			$hp += $v;
+		}
+		$di_cnt=0;
+		$di_a=0;
+		$log .="$nm 은(는) $di_data[15][1] 을(륌) 사용했닀! 첎력읎 $v 회복되었닀!<br>\n";
+	}
+}
+
+
+
+
+
+1;
diff --git a/inc/ore_sub-bbs.cgi b/inc/ore_sub-bbs.cgi
old mode 100644
new mode 100755
index ff7d3b7..b0385f9
--- a/inc/ore_sub-bbs.cgi
+++ b/inc/ore_sub-bbs.cgi
@@ -1,305 +1,287 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# ŠeŽíŒfŽŠ”‹€’ʐݒè Version 1.1
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#===============================================================================
-# ŠeŽíŒfŽŠ”‹€’ʐݒ荀–Ú
-
-require './jcode.pl';					# jcode.pl‚̃pƒX
-
-$ore_game	= './ore_.cgi';				# ß‚Æ”±++–{‘̂̃pƒX
-$index		= './index.cgi';			# ß‚Æ”±++ƒgƒbƒvƒy[ƒW
-$usrdata	= "./usrdata/";				# ƒLƒƒƒ‰ƒf[ƒ^Ši”[ƒfƒBƒŒƒNƒgƒŠB
-
-$no_window	= 1;						# Œ»óˆÛŽES‘©ŽžŠÔˆÈŠO‚Ì‘Œ‘‹‹ÖŽ~(0:‚È‚µ 1:‚ ‚è)[•‰‰×‘΍ô]
-
-# Še‘Ý’èî•ñ
-@camp_info	=(	['–³Š‘®',		'#eeeeee'],
-				['±ÙÒر‰€‘',	'#ee9999'],
-				['Ì×Ø݋³‘',	'#00eeee'],
-				['²·Þœ˜A‡‘',	'#88ee88'],
-				['¿°ÃޚŒ鍑',	'#ffccff'],
-				['ÔÏĐ_‘',		'#55bbff']);
-
-# Ì†
-@sogo_p	 	=('----','”eŽÒ','‰p—Y','ŽØ‹à‰€','‹S’{',' ',' ',' ',' ',' ','ŠÇ—l');
-
-# ƒfƒoƒbƒNƒ‚[ƒh
-# ‚È‚µ:PC¥ÓÊ޲ٗŒ‘Ήž
-# pc  :PCŒÀ’胂[ƒh(ÓÊ޲ٔñ‘Ήž)
-# mv  :ÓÊ޲ٌŒ胂[ƒh(PCã‚Ń‚ƒoƒCƒ‹‰æ–Ê‚ðƒGƒ~ƒ…ƒŒ[ƒg•\ŽŠ)
-$mv_mode	= '';
-
-# ‹@Ží•ÊÝ’è
-if(	$ENV{'HTTP_USER_AGENT'}=~/DoCoMo/ ||
-	$ENV{'HTTP_USER_AGENT'}=~/UP\.Browser/ ||
-	$ENV{'HTTP_USER_AGENT'}=~/J-PHONE/ ||
-	$ENV{'HTTP_USER_AGENT'}=~/ASTEL/ ||
-	$ENV{'HTTP_X_JPHONE_MSNAME'} || $mv_mode eq 'mv'){
-
-	$mv_mode= 'mv';						# ÓÊ޲ٗpƒtƒ‰ƒO(•ÏX•s‰Â)
-	$method	= "GET";					# ƒtƒH[ƒ€ƒƒ\ƒbƒh(ÓÊÞ²Ù)
-}else{
-
-	$mv_mode= 'pc';						# PC—pƒtƒ‰ƒO(•ÏX•s‰Â)
-	$method	= "POST";					# ƒtƒH[ƒ€ƒƒ\ƒbƒh(PC)
-
-	# ƒXƒ^ƒCƒ‹ƒV[ƒg
-	$css	=<<EOM;
-<style type="text/css">
-<!--
-.button1{
-	font-family: "‚l‚r ‚oƒSƒVƒbƒN", "Osaka"; font-size: 12px; font-weight: 400; color: #bbbbcc;
-	border: 2px #9999cc ridge; cursor: hand; background-color: #333366;
-}
-body	{ font-size: 12pt;}
-.mem	{ font-size: 10pt; color:#ddddee}
-.date	{ font-size: 10pt; color:#dddddd}
-.f1{font-size:16pt; font-family:'Symbol','Palatino'; color:#ff99cc;}
--->
-</style>
-EOM
-
-}
-
-# ƒzƒXƒg–ŒŽæ“Ÿƒ‚[ƒh
-#  --> 0 : $ENV{'REMOTE_HOST'} ‚ÅŽæ“Ÿ‚Å‚«‚éê‡
-#  --> 1 : gethostbyaddr ‚ÅŽæ“Ÿ‚Å‚«‚éê‡
-$get_remotehost	= 1;
-
-# ‘ŒƒTƒCƒg‚©‚ç“Še”rœŽž‚ÉŽw’è (http://‚©‚珑‚­)
-$base_url = "";
-
-# ƒAƒNƒZƒX§ŒÀ(ƒzƒXƒg–Œ‚à‚µ‚­‚ÍIPƒAƒhƒŒƒX‚ð‹Lq)
-@deny	 = (
-	"anonymizer.com",
-	"cache*.*.interlog.com",
-	"",
-	""
-	);
-
-
-#===============================================================================
-# ˆÈ‰ºˆ— Šî–{“I‚É‚±‚êˆÈ‰º‚Í‚¢‚¶‚ç‚È‚¢‚æ‚€‚ɁB
-
-#-------------------------------------------------------------------------------
-# ŽQ‰ÁŽÒƒf[ƒ^ŒÂ•Ê“ǂݍž‚Ý
-sub mandata_open{
-
-	open(IN,"$usrdata$id\.cgi") || &error("Open Error : $usrdata$id\.cgi");
-	$dat = <IN>;
-	close(IN);
-
-	%DAT = '';
-	my @prats = split(/,/,$dat);
-	foreach (0 .. $#prats){
-		my($key,$v) = split(/;/,$prats[$_]);
-		$DAT{$key} = $v;
-	}
-
-	if($pw ne $DAT{'pw'}){ &error("ƒpƒXƒ[ƒh‚ªŠÔˆá‚Á‚Ä‚Ü‚·"); }
-
-	if($no_window){
-		&error("Œ»Ý‚̃Cƒxƒ“ƒg‚ðI—¹‚µ‚Ä‚©‚炲—˜—p‚­‚Ÿ‚³‚¢B") if($DAT{'pr'}<=0 && $DAT{'type'});
-	}
-
-}
-
-#-------------------------------------------------------------------------------
-# ƒfƒR[ƒhˆ—
-sub decode {
-	local($buffer, @pairs, $name, $value);
-	$post_flag=0;
-	if($ENV{'REQUEST_METHOD'} eq "POST"){
-		$post_flag=1;
-		&error("“Še—Ê‚ª‘å‚«‚·‚¬‚Ü‚·") if($ENV{'CONTENT_LENGTH'}>8192);
-		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
-	}else{
-		$buffer = $ENV{'QUERY_STRING'};
-		&error("“Še—Ê‚ª‘å‚«‚·‚¬‚Ü‚·") if(length($buffer)>7500)
-	}
-	@pairs = split(/&/, $buffer);
-	foreach (@pairs) {
-		($name,$value) = split(/=/);
-		$value =~ tr/+/ /;
-		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-
-		# •¶ŽšƒR[ƒh‚ðƒVƒtƒgJIS•ÏŠ·
-		&jcode'convert(*value, "sjis", "", "z");
-
-		$value =~ s/\&/&amp\;/g;
-		$value =~ s/\;/&#59\;/g;
-		$value =~ s/\,/&#44\;/g;
-
-		# ƒ^ƒOˆ—
-		if ($tagkey) {
-			$value =~ s/<!--(.|\n)*-->//g;
-			$value =~ s/<>/&lt;&gt;/g;
-		} else {
-			$value =~ s/</&lt;/g;
-			$value =~ s/>/&gt;/g;
-			$value =~ s/\"/&quot;/g;
-		}
-
-		# ‰üs“™ˆ—
-		if ($name eq "comment" && $br_mode) {
-			$value =~ s/\r\n/<br>/g;
-			$value =~ s/\r/<br>/g;
-			$value =~ s/\n/<br>/g;
-		} else {
-			$value =~ s/\r//g;
-			$value =~ s/\n//g;
-		}
-
-		# r‚炵ˆ— 1
-		$value =~ s/(<br>){4,}//g;
-		$value =~ s/( |@){6,}//g;
-
-		# ‹L†’uŠ·‚Š
-		$value =~ s/\//&#47\;/g;
-		$value =~ s/\./&#46\;/g;
-		$value =~ s/cgi/&#99\;&#103\;&#105\;/g;
-
-		$in{$name} = $value;
-	}
-
-	&no_link($in{'comment'}) if($nolink);
-
-	$com	= $in{'comment'};	if(length($in{'comment'})>$com_limit)		{ &error("•¶Žš”ƒGƒ‰[‚Å‚· 1"); }
-	$mode	= $in{'mode'};		if(length($in{'mode'})>10)					{ &error("•¶Žš”ƒGƒ‰[‚Å‚· 2"); }
-	$pw		= $in{'pw'};		if(length($in{'pw'})>8 || !$in{'pw'})		{ &error("•¶Žš”ƒGƒ‰[‚Å‚· 3"); }
-	$id		= $in{'id'};		if(length($in{'id'})>24 || !$in{'id'})		{ &error("•¶Žš”ƒGƒ‰[‚Å‚· 4"); }
-	$ids	= $in{'ids'};		if(length($in{'ids'})>12)					{ &error("•¶Žš”ƒGƒ‰[‚Å‚· 5"); }
-	$rd		= $in{'rd'};		if(length($in{'rd'})>1)						{ &error("•¶Žš”ƒGƒ‰[‚Å‚· 6"); }
-
-	if ($base_url) {
-		$ref_url = $ENV{'HTTP_REFERER'};
-		$ref_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-		if ($ref_url !~ /$base_url/i) { &error("•s³‚ȃAƒNƒZƒX‚Å‚·"); }
-	}
-}
-
-#-------------------------------------------------------------------------------
-# ƒGƒ‰[ˆ—
-sub error {
-	if (-e $lockfile) { unlink($lockfile); }
-
-	&header(1);
-	print "<center><hr width='75%'><P><h3>ERROR !</h3>\n";
-	print "<P><font color=red><B>$_[0]</B></font>\n";
-	print "<P><hr width='75%'></center>\n";
-	&copyright;
-	exit;
-}
-
-#-------------------------------------------------------------------------------
-# ƒƒbƒNƒtƒ@ƒCƒ‹‚̐¶¬
-sub lock {
-	local($lflag) = 0;
-	foreach (1 .. 5) {
-		if (-e $lockfile) { sleep(1); }
-		else {
-			open(LOCK,">$lockfile") || &error("Can't create $lockfile");
-			close(LOCK);
-			$lflag = 1;
-			last;
-		}
-	}
-	if ($lflag == 0) { &error("LOCK is BUSY"); }
-}
-
-#-------------------------------------------------------------------------------
-# ƒAƒNƒZƒXƒ`ƒFƒbƒN(ƒAƒNƒZƒX‹‘”Û)
-sub axs_check {
-	&get_host;
-
-	local($flag)=0;
-	foreach (@deny) {
-		if (!$_) { next; }
-		$_ =~ s/\*/\.\*/g;
-		if ($host =~ /$_/i || $addr =~ /$_/i) { $flag=1; last; }
-	}
-	if ($flag) { &error("ƒAƒNƒZƒX‚ð‹–‰Â‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ"); }
-}
-
-#-------------------------------------------------------------------------------
-# ƒzƒXƒgî•ñŽæ“Ÿ
-sub get_host {
-	$host = $ENV{'REMOTE_HOST'};
-	$addr = $ENV{'REMOTE_ADDR'};
-	$agent = $ENV{'HTTP_USER_AGENT'};
-
-	if ($get_remotehost) {
-		if ($host eq "" || $host eq "$addr") {
-			$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
-		}
-	}
-	if ($host eq "") { $host = $addr; }
-}
-
-#-------------------------------------------------------------------------------
-# ŽžŠÔŽæ“Ÿ
-sub get_time {
-	$time = time;
-	($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime($time);
-	$hour= "0$hour" if($hour<10);
-	$min = "0$min" if($min<10);
-	$sec = "0$sec" if($sec<10);
-	$month++;
-	$month = "0$month" if(month<10);
-	@week=('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
-	$date = "$month/$mday($week[$wday]) $hour:$min";
-	srand($time);
-}
-
-#-------------------------------------------------------------------------------
-# ƒvƒŒƒC‹K§
-sub safetime {
-	foreach (0 .. $#safetime){
-		&error("ƒvƒŒƒC‹K§ŽžŠÔ’†‚Å‚·BŽb‚­‚š‘Ò‚¿‰º‚³‚¢B") if $hour eq $safetime[$_];
-	}
-}
-
-#-------------------------------------------------------------------------------
-# URL”rœ
-sub no_link {
-	$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<!-- $2 -->/g;
-}
-
-#-------------------------------------------------------------------------------
-# íœ•ÏX•s‰Â •K‚ž•\ŽŠ‚·‚邱‚Æ
-#’˜ìŒ •\ŽŠ(íœ¥•ÏX•s‰Â)
-sub copyright{
-	if($mv_mode eq 'mv'){
-		print <<"EOM";
-<br><hr color="white">
-‰ß‹Ž‚̉hŒõ $ver<br>
-<a href="http://pom.to/" target="_blank">BLANK BOARD[‚Ë‚Á‚Æ—V‰€’nô]</a>
-</body>
-</html>
-EOM
-	}else{
-		print <<"EOM";
-<div align="right" style="font-size:12px">
-$ver<br>
-<a href="http://www17.big.or.jp/~obochan/vivid/" target="_blank" style="font-size:13px">Vivid Studio.</a><br>
-<a href="http://pom.to/" target="_blank" style="font-size:11px">BLANK BOARD[‚Ë‚Á‚Æ—V‰€’nô]</a>
-</div>
-</body>
-</html>
-EOM
-	}
-}
-
-
-
-
-1;#íœ•s‰Â
+$index		= './index.cgi';			# 죄와 벌++ 탑 페읎지
+$usrdata	= "./usrdata/";				# 캐늭터 데읎터 볎ꎀ 디렉터늬.
+
+$no_window	= 1;						# 현상유지·구속시간 읎왞의 닀륞 ì°œ ꞈ지(0:없음 1:있음)[부하 방지 대책]
+
+# 각국 섀정 정볎
+@camp_info	=(	['묎소속',		'#eeeeee'],
+				['알메늬아 왕국',	'#ee9999'],
+				['플띌늰 교국',	'#00eeee'],
+				['읎Ʞ슀 연합국',	'#88ee88'],
+				['소디나 제국',	'#ffccff'],
+				['알마토 신국',		'#55bbff']);
+
+# 칭혞
+@sogo_p	 	=('----','팚자','영웅','빚쟁읎 왕','귀축',' ',' ',' ',' ',' ','ꎀ늬자');
+
+# 디버귞 몚드
+# 없음: PC·몚바음 양쪜 대응
+# pc  : PC 한정 몚드(몚바음 믞대응)
+# mv  : 몚바음 고정 몚드(PC상에서 몚바음 화멎을 에뮬레읎튞 표시)
+$mv_mode	= '';
+
+# ꞰꞰ별 섀정
+if(	$ENV{'HTTP_USER_AGENT'}=~/DoCoMo/ ||
+	$ENV{'HTTP_USER_AGENT'}=~/UP\.Browser/ ||
+	$ENV{'HTTP_USER_AGENT'}=~/J-PHONE/ ||
+	$ENV{'HTTP_USER_AGENT'}=~/ASTEL/ ||
+	$ENV{'HTTP_X_JPHONE_MSNAME'} || $mv_mode eq 'mv'){
+
+	$mv_mode= 'mv';						# 몚바음용 플래귞(변겜 불가)
+	$method	= "GET";					# 폌 메서드(몚바음)
+}else{
+
+	$mv_mode= 'pc';						# PC용 플래귞(변겜 불가)
+	$method	= "POST";					# 폌 메서드(PC)
+
+	# 슀타음 시튞
+	$css	=<<EOM;
+<style type="text/css">
+<!--
+.button1{
+	font-family: " ゎシック", "Osaka"; font-size: 12px; font-weight: 400; color: #bbbbcc;
+	border: 2px #9999cc ridge; cursor: hand; background-color: #333366;
+}
+body	{ font-size: 12pt;}
+.mem	{ font-size: 10pt; color:#ddddee}
+.date	{ font-size: 10pt; color:#dddddd}
+.f1{font-size:16pt; font-family:'Symbol','Palatino'; color:#ff99cc;}
+-->
+</style>
+EOM
+
+}
+
+# 혞スト名取埗モヌド
+#  --> 0 : $ENV{'REMOTE_HOST'} で取埗できる堎合
+#  --> 1 : gethostbyaddr で取埗できる堎合
+$get_remotehost	= 1;
+
+# 닀륞 사읎튞로부터의 투고 배제 시에 지정 (http://부터 작성)
+$base_url = "";
+
+# 액섞슀 제한(혞슀튞명 또는 IP 죌소 Ʞ술)
+@deny	 = (
+	"anonymizer.com",
+	"cache*.*.interlog.com",
+	"",
+	""
+	);
+
+
+#===============================================================================
+# 읎하 처늬 Ʞ볞적윌로 읎 읎하는 수정하지 않도록.
+
+#-------------------------------------------------------------------------------
+# 찞가자 데읎터 개별 읜Ʞ
+sub mandata_open{
+
+	open(IN,"$usrdata$id\.cgi") || &error("Open Error : $usrdata$id\.cgi");
+	$dat = <IN>;
+	close(IN);
+
+	%DAT = '';
+	my @prats = split(/,/,$dat);
+	foreach (0 .. $#prats){
+		my($key,$v) = split(/;/,$prats[$_]);
+		$DAT{$key} = $v;
+	}
+
+	if($pw ne $DAT{'pw'}){ &error("비밀번혞가 틀렞습니닀"); }
+
+	if($no_window){
+		&error("현재 읎벀튞륌 종료한 후에 읎용핎 죌십시였.") if($DAT{'pr'}<=0 && $DAT{'type'});
+	}
+
+}
+
+#-------------------------------------------------------------------------------
+# 디윔드 처늬
+sub decode {
+	local($buffer, @pairs, $name, $value);
+	$post_flag=0;
+	if($ENV{'REQUEST_METHOD'} eq "POST"){
+		$post_flag=1;
+		&error("투고량읎 너묎 많습니닀") if($ENV{'CONTENT_LENGTH'}>8192);
+		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
+	}else{
+		$buffer = $ENV{'QUERY_STRING'};
+		&error("투고량읎 너묎 많습니닀") if(length($buffer)>7500)
+	}
+	@pairs = split(/&/, $buffer);
+	foreach (@pairs) {
+		($name,$value) = split(/=/);
+		$value =~ tr/+/ /;
+		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+
+		# 묞자 윔드륌 Shift_JIS 변환
+		# &jcode'convert(*value, "sjis", "", "z");
+
+		$value =~ s/\&/&amp\;/g;
+		$value =~ s/\;/&#59\;/g;
+		$value =~ s/\,/&#44\;/g;
+
+		# 태귞 처늬
+		if ($tagkey) {
+			$value =~ s/<!--(.|\n)*-->//g;
+			$value =~ s/<>/&lt;&gt;/g;
+		} else {
+			$value =~ s/</&lt;/g;
+			$value =~ s/>/&gt;/g;
+			$value =~ s/\"/&quot;/g;
+		}
+
+		# 개행 등 처늬
+		if ($name eq "comment" && $br_mode) {
+			$value =~ s/\r\n/<br>/g;
+			$value =~ s/\r/<br>/g;
+			$value =~ s/\n/<br>/g;
+		} else {
+			$value =~ s/\r//g;
+			$value =~ s/\n//g;
+		}
+
+		# 도배 처늬 1
+		$value =~ s/(<br>){4,}//g;
+		$value =~ s/( |　){6,}//g;
+
+		# Ʞ혞 교첎
+		$value =~ s/\//&#47\;/g;
+		$value =~ s/\./&#46\;/g;
+		$value =~ s/cgi/&#99\;&#103\;&#105\;/g;
+
+		$in{$name} = $value;
+	}
+
+	&no_link($in{'comment'}) if($nolink);
+
+	$com	= $in{'comment'};	if(length($in{'comment'})>$com_limit)		{ &error("Ꞁ자 수 에러입니닀 1"); }
+	$mode	= $in{'mode'};		if(length($in{'mode'})>10)					{ &error("Ꞁ자 수 에러입니닀 2"); }
+	$pw		= $in{'pw'};		if(length($in{'pw'})>8 || !$in{'pw'})		{ &error("Ꞁ자 수 에러입니닀 3"); }
+	$id		= $in{'id'};		if(length($in{'id'})>24 || !$in{'id'})		{ &error("Ꞁ자 수 에러입니닀 4"); }
+	$ids	= $in{'ids'};		if(length($in{'ids'})>12)					{ &error("Ꞁ자 수 에러입니닀 5"); }
+	$rd		= $in{'rd'};		if(length($in{'rd'})>1)						{ &error("Ꞁ자 수 에러입니닀 6"); }
+
+	if ($base_url) {
+		$ref_url = $ENV{'HTTP_REFERER'};
+		$ref_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+		if ($ref_url !~ /$base_url/i) { &error("잘못된 접귌입니닀"); }
+	}
+}
+
+#-------------------------------------------------------------------------------
+# 에러 처늬
+sub error {
+	if (-e $lockfile) { unlink($lockfile); }
+
+	&header(1);
+	print "<center><hr width='75%'><P><h3>ERROR !</h3>\n";
+	print "<P><font color=red><B>$_[0]</B></font>\n";
+	print "<P><hr width='75%'></center>\n";
+	&copyright;
+	exit;
+}
+
+#-------------------------------------------------------------------------------
+# 띜 파음 생성
+sub lock {
+	local($lflag) = 0;
+	foreach (1 .. 5) {
+		if (-e $lockfile) { sleep(1); }
+		else {
+			open(LOCK,">$lockfile") || &error("Can't create $lockfile");
+			close(LOCK);
+			$lflag = 1;
+			last;
+		}
+	}
+	if ($lflag == 0) { &error("LOCK is BUSY"); }
+}
+
+#-------------------------------------------------------------------------------
+# 액섞슀 첎크(액섞슀 거부)
+sub axs_check {
+	&get_host;
+
+	local($flag)=0;
+	foreach (@deny) {
+		if (!$_) { next; }
+		$_ =~ s/\*/\.\*/g;
+		if ($host =~ /$_/i || $addr =~ /$_/i) { $flag=1; last; }
+	}
+	if ($flag) { &error("액섞슀가 허용되지 않았습니닀"); }
+}
+
+#-------------------------------------------------------------------------------
+# 혞슀튞 정볎 췚득
+sub get_host {
+	$host = $ENV{'REMOTE_HOST'};
+	$addr = $ENV{'REMOTE_ADDR'};
+	$agent = $ENV{'HTTP_USER_AGENT'};
+
+	if ($get_remotehost) {
+		if ($host eq "" || $host eq "$addr") {
+			$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
+		}
+	}
+	if ($host eq "") { $host = $addr; }
+}
+
+#-------------------------------------------------------------------------------
+# 시간 췚득
+sub get_time {
+	$time = time;
+	($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime($time);
+	$hour= "0$hour" if($hour<10);
+	$min = "0$min" if($min<10);
+	$sec = "0$sec" if($sec<10);
+	$month++;
+	$month = "0$month" if(month<10);
+	@week=('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
+	$date = "$month/$mday($week[$wday]) $hour:$min";
+	srand($time);
+}
+
+#-------------------------------------------------------------------------------
+# 플레읎 규제
+sub safetime {
+	foreach (0 .. $#safetime){
+		&error("플레읎 규제 시간 쀑입니닀. 잠시만 Ʞ닀렀 죌십시였.") if $hour eq $safetime[$_];
+	}
+}
+
+#-------------------------------------------------------------------------------
+# URL 배제
+sub no_link {
+	$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<!-- $2 -->/g;
+}
+
+#-------------------------------------------------------------------------------
+# 삭제/변겜 불가 반드시 표시할 것
+# 저작권 표시(삭제/변겜 불가)
+sub copyright{
+	if($mv_mode eq 'mv'){
+		print <<"EOM";
+<br><hr color="white">
+곌거의 영ꎑ $ver<br>
+<a href="http://pom.to/" target="_blank">BLANK BOARD[읞터넷 유원지♪]</a>
+</body>
+</html>
+EOM
+	}else{
+		print <<"EOM";
+<div align="right" style="font-size:12px">
+$ver<br>
+<a href="http://www17.big.or.jp/~obochan/vivid/" target="_blank" style="font-size:13px">Vivid Studio.</a><br>
+<a href="http://pom.to/" target="_blank" style="font-size:11px">BLANK BOARD[읞터넷 유원지♪]</a>
+</div>
+</body>
+</html>
+EOM
+	}
+}
+
+
+
+
+1;#삭제 불가
diff --git a/inc/ore_sub-changes.cgi b/inc/ore_sub-changes.cgi
old mode 100644
new mode 100755
index d75b70d..7864a32
--- a/inc/ore_sub-changes.cgi
+++ b/inc/ore_sub-changes.cgi
@@ -1,142 +1,142 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# ŽdŠ¯ Version 1.2
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# ŽdŠ¯ƒƒjƒ…[
-sub changes{
-
-	if(!$type){
-
-		&usrdata_read;
-		&usrdata_open;
-		require './inc/ore_sub-members-p1.cgi';&member_list;
-
-		$log .= "ŽQ‰ÁŽÒWŒv‚ðXV‚µ‚Ü‚·B<br>\n";
-		$log .= "‘SŽQ‰ÁŽÒ:$all_mem<br>$cmp[0]:$c0<br>$cmp[1]:$c1/$c1a<br>$cmp[2]:$c2/$c2a<br>$cmp[3]:$c3/$c3a<br>$cmp[4]:$c4/$c4a<br>$cmp[5]:$c5/$c5a<br>\n" if($mv_mode eq 'pc');
-		$tm=0;
-		$type='ŽdŠ¯';
-
-		&changes_menu1;
-
-	}
-
-	&dat_write;
-}
-
-sub changes_menu1{
-
-	$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|;
-}
-
-sub changes_menu2{
-
-	$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="-1">‚â‚ß‚é</option>\n|;
-	foreach(0 .. $#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|;
-}
-
-#-------------------------------------------------------------------------------
-# ŽdŠ¯ˆ—
-sub changes_exe{
-
-	if(!$tm){
-
-		$log .= "Œ»Ý‚̏Š‘®‚©‚çV‚œ‚ȏŠ‘®‚Ö<br>\n";
-		$tm=1;
-		$type='ŽdŠ¯';
-
-		&changes_menu2;
-
-	}elsif($tm==1){
-
-		if($cmd<=-1 || $cmd>$#cmp){
-			$log .= "‚â‚ß‚Ä‚š‚«‚Ü‚·<br>\n";
-			$tm = $cmd = 0;
-			$type='';
-			&call_main_st;
-		}elsif($cmd>=0 && (($c1 >= $c1a && $cmd == 1)||($c2 >= $c2a && $cmd == 2)||($c3 >= $c3a && $cmd == 3)||($c4 >= $c4a && $cmd == 4)||($c5 >= $c5a && $cmd == 5))){
-			for($i=1,$j=1;$i<=$#cmp;$i++,$j++){
-				if($cmd==$j){
-					$log .= "$cmp[$i] ‚Í’èˆõˆê”t‚Å“ü‘‚Å‚«‚Ü‚¹‚ñ<br>\n";
-				}
-			}
-			$tm = $cmd = 0;
-			$type='';
-			&call_main_st;
-		}elsif($lv < $clv){
-			$log .= "ŽdŠ¯‚̓Œƒxƒ‹ $clv ‚©‚ç‚Å‚·B<br>‚Ü‚ž‚͏Cs‚ŌȂð’b‚Š‚Ä‚­‚Ÿ‚³‚¢B<br>\n";
-			$tm = $cmd = 0;
-			$type='';
-			&call_main_st;
-		}else{
-
-			if($lv >= 20 && $camp && $cmd){#ÚÍÞقª15ˆÈã‚Ő悪–³Š‘®ˆÈŠO‚ÅŒ³‚ª–³Š‘®ˆÈŠO(‘š‘)
-				$gold -=(15-$rank)*(int($lv/4))*8;
-				$log .= "‘‰ÆˆÚÐ—¿‹à‚Æ‚µ‚Ä‹à‰Ý $zx ‚ðŽx•¥‚¢‚Ü‚·B<br>\n";
-
-				my $zy = $rank*(int($lv/10))*4;
-				if($camp == 1){$cg1 += $zy;}
-				elsif($camp == 2){$cg2 += $zy;}
-				elsif($camp == 3){$cg3 += $zy;}
-				elsif($camp == 4){$cg4 += $zy;}
-				elsif($camp == 5){$cg5 += $zy;}
-				$log .= "$cmp[$camp] ‚̍‘‰Æ\—\\ŽZ‚ª $zy ãž‚µ‚œB<br>\n";
-	
-			}elsif($lv >= 20 && !$cmd){#ÚÍÞقª15ˆÈã‚Ő悪–³Š‘®(–³or‘š–³)
-
-				$gold -=(15-$rank)*(int($lv/4))*8;
-				$log .= "‘‰ÆˆÚÐ—¿‹à‚Æ‚µ‚Ä‹à‰Ý $zx ‚ðŽx•¥‚¢‚Ü‚·B<br>\n";
-	
-				my $zy = $rank*(int($lv/10))*4;
-				if($camp == 1){$cg1 += $zy;}
-				elsif($camp == 2){$cg2 += $zy;}
-				elsif($camp == 3){$cg3 += $zy;}
-				elsif($camp == 4){$cg4 += $zy;}
-				elsif($camp == 5){$cg5 += $zy;}
-				$log .= "$cmp[$camp] ‚̍‘‰Æ\—\\ŽZ‚ª $zy ãž‚µ‚œB<br>\n";
-	
-			}
-	
-			$camp = $cmd;
-			#ÚÍÞقɂæ‚éŽdŠ¯Žž‚̃}ƒCƒiƒX’l
-			$rank-=($lv > 40)? int(rand(3))+3 : int(rand(4))+1;
-
-			$rank=1 if($rank<1);
-			$rank=0 if(!$camp);
-			$log .= "$cmp[$camp] ‚ւƏŠ‘®‚ð•Ï‚ŠA$cl[$rank] ‚ÌŠK‹‰‚ª—^‚Š‚ç‚ê‚œ<br>\n";
-			$roku=$time;
-
-			$tm = $cmd = 0;
-			$type='';
-			&call_main_st;
-		}
-	}
-
-	&write_data;
-
-}
-
-
-
-
-
-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.2
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# 사ꎀ 메뉎
+sub changes{
+
+	if(!$type){
+
+		&usrdata_read;
+		&usrdata_open;
+		require './inc/ore_sub-members-p1.cgi';&member_list;
+
+		$log .= "찞가자 집계륌 갱신합니닀.<br>\n";
+		$log .= "전첎 찞가자:$all_mem<br>$cmp[0]:$c0<br>$cmp[1]:$c1/$c1a<br>$cmp[2]:$c2/$c2a<br>$cmp[3]:$c3/$c3a<br>$cmp[4]:$c4/$c4a<br>$cmp[5]:$c5/$c5a<br>\n" if($mv_mode eq 'pc');
+		$tm=0;
+		$type='사ꎀ';
+
+		&changes_menu1;
+
+	}
+
+	&dat_write;
+}
+
+sub changes_menu1{
+
+	$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|;
+}
+
+sub changes_menu2{
+
+	$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="-1">귞만둔닀</option>\n|;
+	foreach(0 .. $#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 changes_exe{
+
+	if(!$tm){
+
+		$log .= "현재 소속에서 새로욎 소속윌로<br>\n";
+		$tm=1;
+		$type='사ꎀ';
+
+		&changes_menu2;
+
+	}elsif($tm==1){
+
+		if($cmd<=-1 || $cmd>$#cmp){
+			$log .= "귞만두겠습니닀.<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($cmd>=0 && (($c1 >= $c1a && $cmd == 1)||($c2 >= $c2a && $cmd == 2)||($c3 >= $c3a && $cmd == 3)||($c4 >= $c4a && $cmd == 4)||($c5 >= $c5a && $cmd == 5))){
+			for($i=1,$j=1;$i<=$#cmp;$i++,$j++){
+				if($cmd==$j){
+					$log .= "$cmp[$i] 은(는) 정원읎 쎈곌되얎 입국할 수 없습니닀.<br>\n";
+				}
+			}
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($lv < $clv){
+			$log .= "사ꎀ은 레벚 $clv부터 가능합니닀.<br>뚌저 수행윌로 자신을 당령핮 죌십시였.<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}else{
+
+			if($lv >= 20 && $camp && $cmd){#레벚읎 20 읎상읎고 대상읎 묎소속읎 아니며 원래도 묎소속읎 아닐 때 (국가->국가)
+				$gold -=(15-$rank)*(int($lv/4))*8;
+				$log .= "국가 읎적료로 ꞈ화 $zx륌 지불합니닀.<br>\n";
+
+				my $zy = $rank*(int($lv/10))*4;
+				if($camp == 1){$cg1 += $zy;}
+				elsif($camp == 2){$cg2 += $zy;}
+				elsif($camp == 3){$cg3 += $zy;}
+				elsif($camp == 4){$cg4 += $zy;}
+				elsif($camp == 5){$cg5 += $zy;}
+				$log .= "$cmp[$camp] 의 국가 예산읎 $zy 상승했닀.<br>\n";
+	
+			}elsif($lv >= 20 && !$cmd){#레벚읎 20 읎상읎고 대상읎 묎소속음 때 (묎소속 또는 국가->묎소속)
+
+				$gold -=(15-$rank)*(int($lv/4))*8;
+				$log .= "국가 읎적료로 ꞈ화 $zx륌 지불합니닀.<br>\n";
+	
+				my $zy = $rank*(int($lv/10))*4;
+				if($camp == 1){$cg1 += $zy;}
+				elsif($camp == 2){$cg2 += $zy;}
+				elsif($camp == 3){$cg3 += $zy;}
+				elsif($camp == 4){$cg4 += $zy;}
+				elsif($camp == 5){$cg5 += $zy;}
+				$log .= "$cmp[$camp] 의 국가 예산읎 $zy 상승했닀.<br>\n";
+	
+			}
+	
+			$camp = $cmd;
+			#레벚에 따륞 사ꎀ 시의 마읎너슀 수치
+			$rank-=($lv > 40)? int(rand(3))+3 : int(rand(4))+1;
+
+			$rank=1 if($rank<1);
+			$rank=0 if(!$camp);
+			$log .= "$cmp[$camp] (윌)로 소속을 변겜하여, $cl[$rank] 계꞉읎 부여되었닀.<br>\n";
+			$roku=$time;
+
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}
+	}
+
+	&write_data;
+
+}
+
+
+
+
+
+1;
diff --git a/inc/ore_sub-infomation_mv.cgi b/inc/ore_sub-infomation_mv.cgi
old mode 100644
new mode 100755
index 0951f9b..7a93c92
--- a/inc/ore_sub-infomation_mv.cgi
+++ b/inc/ore_sub-infomation_mv.cgi
@@ -1,125 +1,125 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# î•ñ ÓÊ޲ٗpƒTƒuƒ‹[ƒ`ƒ“	Version 1.0						#
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# î•ñ
-sub infomation_com{
-	$log .= qq|Œ»Ý‚Ì $cmp[$camp] ‚̏«•ºˆê——<br>\n|;
-
-	local(@usrfile,@tdat);
-
-	# ŽQ‰ÁŽÒƒf[ƒ^ƒtƒ@ƒCƒ‹ˆê——Žæ“Ÿ/“ǂݍž‚Ý
-	&usrdata_read;
-	&usrdata_open;
-	require './inc/ore_sub-members-p1.cgi';&member_list;
-
-	if($camp eq'' || $camp < 1 || $camp > 5){
-
-		foreach (0 .. $#tdat){
-
-			%R = '';
-			my @prats = split(/,/,$tdat[$_]);
-			foreach $prats (@prats){
-				my($y,$x) = split(/;/,$prats);
-				$R{$y} = $x;
-			}
-
-			$NM_V				= $R{'nm'};
-			$HP_MAX_V			= $R{'max_hp'};
-			$MP_MAX_V			= $R{'max_mp'};
-			$LV_V				= $R{'rank'};
-			$TM_V				= $R{'lv'};
-			$UA_V				= $R{'ua'};
-			$UD_V				= $R{'ud'};
-			$LR_V				= $R{'lr'};
-			$AG_V				= $R{'ag'};
-			$DG_A_V				= $R{'dg_a'};#•‹ï
-			$DF_A_V				= $R{'df_a'};#–h‹ï
-			$SOGO_V				= $R{'sogo'};#Ì†
-			$SEI_V				= $R{'sei'};#«•Ê
-			$MES_V				= $R{'info_mes'};
-
-			$TYPE_V				= ($R{'type'}) ? "$R{'type'}" : "‘Ò‹@’†";
-
-			$cnt				= $_+1;
-
-			if($R{'camp'} == 0){
-				$log .=qq|$cntˆÊ Lv$TM_V|;
-
-				# Ì†
-				$log .= ($SOGO_V > 0) ? "$NM_V [$sogo_p[$SOGO_V]]" : "$NM_V";
-
-				$log .=qq|HP$HP_MAX_V/MP$MP_MAX_V/UA$UA_V/UD$UD_V/LR$LR_V/AG$AG_V $cl[$LV_V]<hr color="white">\n|;
-
-			}
-		}
-
-	}else{
-
-		foreach(0 .. $#tdat){
-			%R = '';
-			my @prats = split(/,/,$tdat[$_]);
-			foreach $prats (@prats){
-				my($y,$x) = split(/;/,$prats);
-				$R{$y} = $x;
-			}
-
-			if($camp == $R{'camp'}){
-				$NM_V{$R{'nm'}}		= $R{'nm'};
-				$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};
-				$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};
-				$LV_V{$R{'nm'}}		= $R{'rank'};
-				$TM_V{$R{'nm'}}		= $R{'lv'};
-				$UA_V{$R{'nm'}}		= $R{'ua'};
-				$UD_V{$R{'nm'}}		= $R{'ud'};
-				$LR_V{$R{'nm'}}		= $R{'lr'};
-				$AG_V{$R{'nm'}}		= $R{'ag'};
-				$DG_A{$R{'nm'}}		= $R{'dg_a'};#•‹ï
-				$DF_A{$R{'nm'}}		= $R{'df_a'};#–h‹ï
-				$SOGO_V{$R{'nm'}}	=$R{'sogo'};#Ì†
-				$SEI_V{$R{'nm'}}	=$R{'sei'};#«•Ê
-				$MES_V{$R{'nm'}}	=$R{'info_mes'};
-
-				$TYPE_V{$R{'nm'}}	= ($R{'type'}) ? "$R{'type'}" : "‘Ò‹@’†";
-
-				$N_M{$R{'nm'}}		= $_;
-			}
-		}
-
-		$l = $rk = 1;
-		foreach $nm (sort sclv keys(%LV_V)){
-			$lv_v = $LV_V{$nm};
-			next if($lv_v<=0);
-			if($lv_v<$prv_lv){ $rk = $l; }
-
-			$log .="$rkˆÊ Lv$TM_V{$nm} ";
-
-			#Ì†
-			$log .= ($SOGO_V{$nm} > 0) ? "$NM_V{$nm} [$sogo_p[$SOGO_V{$nm}]]" : "$NM_V{$nm}";
-
-			$log .=qq| HP$HP_MAX_V{$nm}/MP$MP_MAX_V{$nm}/UA$UA_V{$nm}/UD$UD_V{$nm}/LR$LR_V{$nm}/AG$AG_V{$nm} $cl[$lv_v]<hr color="white">\n|;
-
-			$prv_lv = $lv_v;
-			$l++;
-		}
-	}
-
-	$tm = $cmd = 0;
-	$layout_flag=1;
-	&call_main_st;
-}
-
-
-
-
-
-1;#íœ•s‰Â
+#-----------------------------------------------------------#
+#  죄와 벌++ 읎윚배반										#
+#  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 infomation_com{
+	$log .= qq|현재 $cmp[$camp]의 장병 음람<br>\n|;
+
+	local(@usrfile,@tdat);
+
+	# 찞가자 데읎터 파음 음람 췚득/읜Ʞ
+	&usrdata_read;
+	&usrdata_open;
+	require './inc/ore_sub-members-p1.cgi';&member_list;
+
+	if($camp eq'' || $camp < 1 || $camp > 5){
+
+		foreach (0 .. $#tdat){
+
+			%R = '';
+			my @prats = split(/,/,$tdat[$_]);
+			foreach $prats (@prats){
+				my($y,$x) = split(/;/,$prats);
+				$R{$y} = $x;
+			}
+
+			$NM_V				= $R{'nm'};
+			$HP_MAX_V			= $R{'max_hp'};
+			$MP_MAX_V			= $R{'max_mp'};
+			$LV_V				= $R{'rank'};
+			$TM_V				= $R{'lv'};
+			$UA_V				= $R{'ua'};
+			$UD_V				= $R{'ud'};
+			$LR_V				= $R{'lr'};
+			$AG_V				= $R{'ag'};
+			$DG_A_V				= $R{'dg_a'};#묎Ʞ
+			$DF_A_V				= $R{'df_a'};#방얎구
+			$SOGO_V				= $R{'sogo'};#칭혞
+			$SEI_V				= $R{'sei'};#성별
+			$MES_V				= $R{'info_mes'};
+
+			$TYPE_V				= ($R{'type'}) ? "$R{'type'}" : "대Ʞ쀑";
+
+			$cnt				= $_+1;
+
+			if($R{'camp'} == 0){
+				$log .=qq|$cnt위 Lv$TM_V|;
+
+				# 칭혞
+				$log .= ($SOGO_V > 0) ? "$NM_V [$sogo_p[$SOGO_V]]" : "$NM_V";
+
+				$log .=qq|HP$HP_MAX_V/MP$MP_MAX_V/UA$UA_V/UD$UD_V/LR$LR_V/AG$AG_V $cl[$LV_V]<hr color="white">\n|;
+
+			}
+		}
+
+	}else{
+
+		foreach(0 .. $#tdat){
+			%R = '';
+			my @prats = split(/,/,$tdat[$_]);
+			foreach $prats (@prats){
+				my($y,$x) = split(/;/,$prats);
+				$R{$y} = $x;
+			}
+
+			if($camp == $R{'camp'}){
+				$NM_V{$R{'nm'}}		= $R{'nm'};
+				$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};
+				$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};
+				$LV_V{$R{'nm'}}		= $R{'rank'};
+				$TM_V{$R{'nm'}}		= $R{'lv'};
+				$UA_V{$R{'nm'}}		= $R{'ua'};
+				$UD_V{$R{'nm'}}		= $R{'ud'};
+				$LR_V{$R{'nm'}}		= $R{'lr'};
+				$AG_V{$R{'nm'}}		= $R{'ag'};
+				$DG_A{$R{'nm'}}		= $R{'dg_a'};#묎Ʞ
+				$DF_A{$R{'nm'}}		= $R{'df_a'};#방얎구
+				$SOGO_V{$R{'nm'}}	=$R{'sogo'};#칭혞
+				$SEI_V{$R{'nm'}}	=$R{'sei'};#성별
+				$MES_V{$R{'nm'}}	=$R{'info_mes'};
+
+				$TYPE_V{$R{'nm'}}	= ($R{'type'}) ? "$R{'type'}" : "대Ʞ쀑";
+
+				$N_M{$R{'nm'}}		= $_;
+			}
+		}
+
+		$l = $rk = 1;
+		foreach $nm (sort sclv keys(%LV_V)){
+			$lv_v = $LV_V{$nm};
+			next if($lv_v<=0);
+			if($lv_v<$prv_lv){ $rk = $l; }
+
+			$log .="$rk위 Lv$TM_V{$nm} ";
+
+			#칭혞
+			$log .= ($SOGO_V{$nm} > 0) ? "$NM_V{$nm} [$sogo_p[$SOGO_V{$nm}]]" : "$NM_V{$nm}";
+
+			$log .=qq| HP$HP_MAX_V{$nm}/MP$MP_MAX_V{$nm}/UA$UA_V{$nm}/UD$UD_V{$nm}/LR$LR_V{$nm}/AG$AG_V{$nm} $cl[$lv_v]<hr color="white">\n|;
+
+			$prv_lv = $lv_v;
+			$l++;
+		}
+	}
+
+	$tm = $cmd = 0;
+	$layout_flag=1;
+	&call_main_st;
+}
+
+
+
+
+
+1;#삭제 불가
diff --git a/inc/ore_sub-infomation_pc.cgi b/inc/ore_sub-infomation_pc.cgi
old mode 100644
new mode 100755
index 91ea833..58be797
--- a/inc/ore_sub-infomation_pc.cgi
+++ b/inc/ore_sub-infomation_pc.cgi
@@ -1,164 +1,164 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# î•ñ PC—pƒTƒuƒ‹[ƒ`ƒ“	Version 1.0							#
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# î•ñ
-sub infomation_com{
-	$log .= qq|<b style="color:$color[$camp]">Œ»Ý‚Ì $cmp[$camp] ‚ɏŠ‘®‚·‚鏫•ºˆê——</b><br><br>\n|;
-
-	if($com){
-		if($com =~ /:/){ &error("–Œ‘O‚É•s³‚È•¶Žš( : )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-		if($com =~ /;/){ &error("–Œ‘O‚É•s³‚È•¶Žš( ; )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-		if($com =~ /,/){ &error("–Œ‘O‚É•s³‚È•¶Žš( , )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-		if($com =~ /"/){ &error("–Œ‘O‚É•s³‚È•¶Žš( \" )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-		if($com =~ /'/){ &error("–Œ‘O‚É•s³‚È•¶Žš( ' )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-		if($com =~ /\//){ &error("–Œ‘O‚É•s³‚È•¶Žš( / )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-		if(length($com)>80){ &error("‘SŠp40•¶Žš‚Ü‚Å‚Å‚·B",1); }
-		$com =~ s/\n//g;
-		$info_mes=$com;
-	}
-
-	local(@usrfile,@tdat);
-
-	# ŽQ‰ÁŽÒƒf[ƒ^ƒtƒ@ƒCƒ‹ˆê——Žæ“Ÿ/“ǂݍž‚Ý
-	&usrdata_read;
-	&usrdata_open;
-	require './inc/ore_sub-members-p1.cgi';&member_list;
-
-	if($camp eq'' || $camp < 1 || $camp > 5){
-
-		$log .= "<table border=0 cellpadding=2 cellspacing=2 width=100%>\n<tr align=center bgcolor=#ccccee><td>‡ˆÊ</td><td>LV</td><td>–Œ‘O</td><td>‘Ì—Í/ž_</td><td>UŒ‚/–hŒä/ŽwŠö/•q·</td><td>•‹ï</td><td>–h‹ï</td><td>ŠK‹‰</td><td>s“®</td></tr>";
-
-		foreach (0 .. $#tdat){
-
-			%R = '';
-			my @prats = split(/,/,$tdat[$_]);
-			foreach $prats (@prats){
-				my($y,$x) = split(/;/,$prats);
-				$R{$y} = $x;
-			}
-
-			$NM_V				= $R{'nm'};
-			$HP_MAX_V			= $R{'max_hp'};
-			$MP_MAX_V			= $R{'max_mp'};
-			$LV_V				= $R{'rank'};
-			$TM_V				= $R{'lv'};
-			$UA_V				= $R{'ua'};
-			$UD_V				= $R{'ud'};
-			$LR_V				= $R{'lr'};
-			$AG_V				= $R{'ag'};
-			$DG_A_V				= $R{'dg_a'};#•‹ï
-			$DF_A_V				= $R{'df_a'};#–h‹ï
-			$SOGO_V				= $R{'sogo'};#Ì†
-			$SEI_V				= $R{'sei'};#«•Ê
-			$MES_V				= $R{'info_mes'};
-
-			$TYPE_V				= ($R{'type'}) ? "$R{'type'}" : "‘Ò‹@’†";
-
-			$cnt				= $_+1;
-
-			if($R{'camp'} == 0){
-				$log .=qq|<tr align="center" bgcolor="#ccccee"><td>$cnt</td><td>$TM_V</td><td>|;
-
-				# Ì†
-				$log .= ($SOGO_V > 0) ? "$NM_V <small>[$sogo_p[$SOGO_V]]</small>" : "$NM_V";
-
-				$log .="</td><td>$HP_MAX_V/$MP_MAX_V</td><td align=center>$UA_V/$UD_V/$LR_V/$AG_V</td><td>$dg_data[$DG_A_V][1]</td><td>$df_data[$DF_A_V][1]</td><td>$cl[$LV_V]</td><td></td>$TYPE_V</tr>\n";
-
-				$log .=qq|<tr align="left" bgcolor="#ccccee"><td style="font-size:12px" colspan="8">&gt;&gt; ”õl: $seibetu[$SEI_V]&nbsp;&nbsp;&nbsp;&nbsp;ŠiŒŸ: $MES_V</td></tr>\n|;
-			}
-		}
-
-	}else{
-
-		foreach(0 .. $#tdat){
-			%R = '';
-			my @prats = split(/,/,$tdat[$_]);
-			foreach $prats (@prats){
-				my($y,$x) = split(/;/,$prats);
-				$R{$y} = $x;
-			}
-
-			if($camp == $R{'camp'}){
-				$NM_V{$R{'nm'}}		= $R{'nm'};
-				$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};
-				$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};
-				$LV_V{$R{'nm'}}		= $R{'rank'};
-				$TM_V{$R{'nm'}}		= $R{'lv'};
-				$UA_V{$R{'nm'}}		= $R{'ua'};
-				$UD_V{$R{'nm'}}		= $R{'ud'};
-				$LR_V{$R{'nm'}}		= $R{'lr'};
-				$AG_V{$R{'nm'}}		= $R{'ag'};
-				$DG_A{$R{'nm'}}		= $R{'dg_a'};#•‹ï
-				$DF_A{$R{'nm'}}		= $R{'df_a'};#–h‹ï
-				$SOGO_V{$R{'nm'}}	=$R{'sogo'};#Ì†
-				$SEI_V{$R{'nm'}}	=$R{'sei'};#«•Ê
-				$MES_V{$R{'nm'}}	=$R{'info_mes'};
-
-				$TYPE_V{$R{'nm'}}	= ($R{'type'}) ? "$R{'type'}" : "‘Ò‹@’†";
-
-				$N_M{$R{'nm'}}		= $_;
-			}
-		}
-
-		$log .=qq|<table border="0" cellpadding="2" cellspacing="2" width="100%">\n<tr align="center" bgcolor="#ccccee"><td style="font-size:12px">‡ˆÊ</td><td style="font-size:12px">LV</td><td style="font-size:12px">–Œ‘O</td><td style="font-size:12px">‘Ì—Í/ž_</td><td style="font-size:12px">UŒ‚/–hŒä/ŽwŠö/•q·</td><td style="font-size:12px">•‹ï</td><td style="font-size:12px">–h‹ï</td><td style="font-size:12px">ŠK‹‰</td><td style="font-size:12px">s“®</td></tr>|;
-
-		$l = $rk = 1;
-		foreach $nm (sort sclv keys(%LV_V)){
-			$lv_v = $LV_V{$nm};
-			next if($lv_v<=0);
-			if($lv_v<$prv_lv){ $rk = $l; }
-
-			$log .="<tr align=center bgcolor=#ccccee><td>$rk</td><td>$TM_V{$nm}</td><td>";
-
-			#Ì†
-			$log .= ($SOGO_V{$nm} > 0) ? "$NM_V{$nm} <small>[$sogo_p[$SOGO_V{$nm}]]</small>" : "$NM_V{$nm}";
-
-			$log .="</td><td>$HP_MAX_V{$nm}/$MP_MAX_V{$nm}</td><td align=center>$UA_V{$nm}/$UD_V{$nm}/$LR_V{$nm}/$AG_V{$nm}</td><td>$dg_data[$DG_A{$nm}][1]</td><td>$df_data[$DF_A{$nm}][1]</td><td>$cl[$lv_v]</td><td>$TYPE_V{$nm}</td></tr>\n";
-
-			$log .=qq|<tr align="left" bgcolor="#ccccee"><td style="font-size:12px" colspan="9">&gt;&gt; ”õl: $seibetu[$SEI_V{$nm}]&nbsp;&nbsp;&nbsp;&nbsp;ŠiŒŸ: $MES_V{$nm}</td></tr>\n|;
-
-			$prv_lv = $lv_v;
-			$l++;
-		}
-	}
-
-	$log .="</table>\n";
-
-	$log.=<<EOM;
-<br><br>
-<div align="center" class="moji2">
-<form method="$method" action="$script" name="ore_">
-<input type="hidden" name="id" value="$id">
-<input type="hidden" name="pw" value="$pw">
-<input type="hidden" name="cmd" value="6">
-<input type=text name="com" class="button2" style="width:360px">
-<input type=submit value="ÎßÁ¯/XV" class="button2" style="width:100px">
-<input type=reset value="žØ±"  class="button2" style="width:40px">
-<br>
-ƒRƒƒ“ƒg‚Í‘SŠp40•¶Žš‚܂ŁB
-</form>
-</div>
-EOM
-
-	$log .="</table>\n";
-
-	$tm = $cmd = 0;
-	$layout_flag=1;
-	&call_main_st;
-}
-
-
-
-
-
-1;#íœ•s‰Â
+#-----------------------------------------------------------#
+#  죄와 벌++ 읎윚배반										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# 정볎 PC용 서람룚틎	Version 1.0							#
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# 정볎
+sub infomation_com{
+	$log .= qq|<b style="color:$color[$camp]">현재 $cmp[$camp]에 소속된 장병 음람</b><br><br>\n|;
+
+	if($com){
+		if($com =~ /:/){ &error("읎늄에 올바륎지 않은 묞자( : )가 포핚되얎 있습니닀.",1); }
+		if($com =~ /;/){ &error("읎늄에 올바륎지 않은 묞자( ; )가 포핚되얎 있습니닀.",1); }
+		if($com =~ /,/){ &error("읎늄에 올바륎지 않은 묞자( , )가 포핚되얎 있습니닀.",1); }
+		if($com =~ /"/){ &error("읎늄에 올바륎지 않은 묞자( \" )가 포핚되얎 있습니닀.",1); }
+		if($com =~ /'/){ &error("읎늄에 올바륎지 않은 묞자( ' )가 포핚되얎 있습니닀.",1); }
+		if($com =~ /\//){ &error("읎늄에 올바륎지 않은 묞자( / )가 포핚되얎 있습니닀.",1); }
+		if(length($com)>80){ &error("전각 40자까지 입력 가능합니닀.",1); }
+		$com =~ s/\n//g;
+		$info_mes=$com;
+	}
+
+	local(@usrfile,@tdat);
+
+	# 찞가자 데읎터 파음 음람 췚득/읜Ʞ
+	&usrdata_read;
+	&usrdata_open;
+	require './inc/ore_sub-members-p1.cgi';&member_list;
+
+	if($camp eq'' || $camp < 1 || $camp > 5){
+
+		$log .= "<table border=0 cellpadding=2 cellspacing=2 width=100%>\n<tr align=center bgcolor=#ccccee><td>순위</td><td>LV</td><td>읎늄</td><td>첎력/정신</td><td>공격/ë°©ì–Ž/지휘/믌첩</td><td>묎Ʞ</td><td>방얎구</td><td>계꞉</td><td>행동</td></tr>";
+
+		foreach (0 .. $#tdat){
+
+			%R = '';
+			my @prats = split(/,/,$tdat[$_]);
+			foreach $prats (@prats){
+				my($y,$x) = split(/;/,$prats);
+				$R{$y} = $x;
+			}
+
+			$NM_V				= $R{'nm'};
+			$HP_MAX_V			= $R{'max_hp'};
+			$MP_MAX_V			= $R{'max_mp'};
+			$LV_V				= $R{'rank'};
+			$TM_V				= $R{'lv'};
+			$UA_V				= $R{'ua'};
+			$UD_V				= $R{'ud'};
+			$LR_V				= $R{'lr'};
+			$AG_V				= $R{'ag'};
+			$DG_A_V				= $R{'dg_a'};#묎Ʞ
+			$DF_A_V				= $R{'df_a'};#방얎구
+			$SOGO_V				= $R{'sogo'};#칭혞
+			$SEI_V				= $R{'sei'};#성별
+			$MES_V				= $R{'info_mes'};
+
+			$TYPE_V				= ($R{'type'}) ? "$R{'type'}" : "대Ʞ쀑";
+
+			$cnt				= $_+1;
+
+			if($R{'camp'} == 0){
+				$log .=qq|<tr align="center" bgcolor="#ccccee"><td>$cnt</td><td>$TM_V</td><td>|;
+
+				# 칭혞
+				$log .= ($SOGO_V > 0) ? "$NM_V <small>[$sogo_p[$SOGO_V]]</small>" : "$NM_V";
+
+				$log .="</td><td>$HP_MAX_V/$MP_MAX_V</td><td align=center>$UA_V/$UD_V/$LR_V/$AG_V</td><td>$dg_data[$DG_A_V][1]</td><td>$df_data[$DF_A_V][1]</td><td>$cl[$LV_V]</td><td></td>$TYPE_V</tr>\n";
+
+				$log .=qq|<tr align="left" bgcolor="#ccccee"><td style="font-size:12px" colspan="8">&gt;&gt; 비고: $seibetu[$SEI_V]&nbsp;&nbsp;&nbsp;&nbsp;격얞: $MES_V</td></tr>\n|;
+			}
+		}
+
+	}else{
+
+		foreach(0 .. $#tdat){
+			%R = '';
+			my @prats = split(/,/,$tdat[$_]);
+			foreach $prats (@prats){
+				my($y,$x) = split(/;/,$prats);
+				$R{$y} = $x;
+			}
+
+			if($camp == $R{'camp'}){
+				$NM_V{$R{'nm'}}		= $R{'nm'};
+				$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};
+				$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};
+				$LV_V{$R{'nm'}}		= $R{'rank'};
+				$TM_V{$R{'nm'}}		= $R{'lv'};
+				$UA_V{$R{'nm'}}		= $R{'ua'};
+				$UD_V{$R{'nm'}}		= $R{'ud'};
+				$LR_V{$R{'nm'}}		= $R{'lr'};
+				$AG_V{$R{'nm'}}		= $R{'ag'};
+				$DG_A{$R{'nm'}}		= $R{'dg_a'};#묎Ʞ
+				$DF_A{$R{'nm'}}		= $R{'df_a'};#방얎구
+				$SOGO_V{$R{'nm'}}	=$R{'sogo'};#칭혞
+				$SEI_V{$R{'nm'}}	=$R{'sei'};#성별
+				$MES_V{$R{'nm'}}	=$R{'info_mes'};
+
+				$TYPE_V{$R{'nm'}}	= ($R{'type'}) ? "$R{'type'}" : "대Ʞ쀑";
+
+				$N_M{$R{'nm'}}		= $_;
+			}
+		}
+
+		$log .=qq|<table border="0" cellpadding="2" cellspacing="2" width="100%">\n<tr align="center" bgcolor="#ccccee"><td style="font-size:12px">순위</td><td style="font-size:12px">LV</td><td style="font-size:12px">읎늄</td><td style="font-size:12px">첎력/정신</td><td style="font-size:12px">공격/ë°©ì–Ž/지휘/믌첩</td><td style="font-size:12px">묎Ʞ</td><td style="font-size:12px">방얎구</td><td style="font-size:12px">계꞉</td><td style="font-size:12px">행동</td></tr>|;
+
+		$l = $rk = 1;
+		foreach $nm (sort sclv keys(%LV_V)){
+			$lv_v = $LV_V{$nm};
+			next if($lv_v<=0);
+			if($lv_v<$prv_lv){ $rk = $l; }
+
+			$log .="<tr align=center bgcolor=#ccccee><td>$rk</td><td>$TM_V{$nm}</td><td>";
+
+			#칭혞
+			$log .= ($SOGO_V{$nm} > 0) ? "$NM_V{$nm} <small>[$sogo_p[$SOGO_V{$nm}]]</small>" : "$NM_V{$nm}";
+
+			$log .="</td><td>$HP_MAX_V{$nm}/$MP_MAX_V{$nm}</td><td align=center>$UA_V{$nm}/$UD_V{$nm}/$LR_V{$nm}/$AG_V{$nm}</td><td>$dg_data[$DG_A{$nm}][1]</td><td>$df_data[$DF_A{$nm}][1]</td><td>$cl[$lv_v]</td><td>$TYPE_V{$nm}</td></tr>\n";
+
+			$log .=qq|<tr align="left" bgcolor="#ccccee"><td style="font-size:12px" colspan="9">&gt;&gt; 비고: $seibetu[$SEI_V{$nm}]&nbsp;&nbsp;&nbsp;&nbsp;격얞: $MES_V{$nm}</td></tr>\n|;
+
+			$prv_lv = $lv_v;
+			$l++;
+		}
+	}
+
+	$log .="</table>\n";
+
+	$log.=<<EOM;
+<br><br>
+<div align="center" class="moji2">
+<form method="$method" action="$script" name="ore_">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="hidden" name="cmd" value="6">
+<input type=text name="com" class="button2" style="width:360px">
+<input type=submit value="큎늭/업데읎튞" class="button2" style="width:100px">
+<input type=reset value="쎈Ʞ화"  class="button2" style="width:40px">
+<br>
+한마디는 전각 40자까지.
+</form>
+</div>
+EOM
+
+	$log .="</table>\n";
+
+	$tm = $cmd = 0;
+	$layout_flag=1;
+	&call_main_st;
+}
+
+
+
+
+
+1;#삭제 불가
diff --git a/inc/ore_sub-main.cgi b/inc/ore_sub-main.cgi
old mode 100644
new mode 100755
index 6243f57..e3139d7
--- a/inc/ore_sub-main.cgi
+++ b/inc/ore_sub-main.cgi
@@ -1,152 +1,152 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# ƒƒCƒ“ Version 1.1
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# ƒƒCƒ“ƒƒjƒ…[
-sub main_st { # ƒƒCƒ“
-
-	# ‰ñ•œ
-
-	$hrg=int($time-$la);
-	$hrg=int($hrg/$hrg_time);
-	$hrg=0 if($hrg<1);
-	$d=$time;
-	$d=$d-$roku;
-
-	if($ck!=1){
-		for($x=0;$x<$hrg;++$x){
-			$hp++;
-			$mp++;
-		}
-	}
-
-	$hp=$max_hp if($hp>$max_hp);
-	$mp=$max_mp if($mp>$max_mp);
-
-	# ‹‹—¿
-
-	if($camp>0&&$d>21600){
-		$v=$g_p[$rank];
-		$v=int($v/5);
-		$v=int($my_cn*0.8)+$v;
-		$gold+=$v;
-		$log .= " $v ‚Ì‹‹—^‚ªŽx‹‹‚³‚ê‚œ<br>";
-		$d-=21600;
-		$roku=$time;
-	}
-
-	# ƒf[ƒ^ƒŠƒZƒbƒg
-
-	if(	$cn1>=$data_reset||
-		$cn2>=$data_reset||
-		$cn3>=$data_reset||
-		$cn4>=$data_reset||
-		$cn5>=$data_reset){
-		$log .="‘S‘“ˆê‚ª¬‚³‚ê‚œI<br>‘—Í‚ª‰Šú‰»‚³‚ê‚Ü‚·<br>\n";
-		require './inc/ore_sub-main_reset.cgi';&reset_cdat;
-	}
-	if($set<$time){
-		require './inc/ore_sub-main_reset.cgi';&reset_time_limit;
-	}
-
-	# ŒoŒ±
-
-	$next_rank=int(($rank*$rank)*3);
-
-	if($rank_exe>=$next_rank){
-		if($camp!=0&&$rank<14){
-			$log .="“ú ‚ÌŽdŽ–‚Ԃ肪”F‚ß‚ç‚êŠK‹‰‚ª‚ ‚ª‚Á‚œ<br>\n";
-			$rank++;
-			$rank_exe-=$next_rank;
-		}
-	}
-
-	if($exe>$next_lv){
-		$log .="ŒoŒ±‚ðÏ‚Ý‚æ‚è‹­‚­¬’·‚µ‚œ<br>\n";
-		$lv++;
-		$a =int(rand(2));
-		$max_hp +=int($a);
-		$b =int(rand(2));
-		$max_mp +=int($b);
-		$w =int(rand(2));
-		$ua +=int($w);
-		$d =int(rand(2));
-		$ud +=int($d);
-		$l =int(rand(2));
-		$lr +=int($l);
-
-		if($lv<=5){$gg=2;}
-		if($lv<=10){$gg=1;}
-		$g =int(rand(2)+$gg);
-		$ag +=int($g);
-
-		$exe-=$next_lv;
-		$log .="‘Ì—Í‚ª$aã‚ª‚Á‚œ<br>ž_—Í‚ª$bã‚ª‚Á‚œ<br>UŒ‚‚ª$wã‚ª‚Á‚œ<br>–hŒä‚ª$dã‚ª‚Á‚œ<br>ŽwŠö‚ª$lã‚ª‚Á‚œ<br>•q·‚ª$gã‚ª‚Á‚œ<br>\n";
-	}
-
-	# ƒAƒiƒEƒ“ƒX
-
-	if($mes && $pr<1){
-		$log .="$mes<br>\n";
-		$mes='';
-	}
-
-	# “à­‹`–±§
-	if($act_cnt>=$act_cnt_limit && $camp){
-		$log .= "s“®ƒZƒbƒVƒ‡ƒ“‚ªŒÀŠE‚É’B‚µ‚Ä‚¢‚Ü‚·Bˆê“x“à­‚ðs‚Á‚Ä‚­‚Ÿ‚³‚¢B<br>\n";
-		$tm=0;
-	}elsif($act_cnt>=$act_cnt_limit && !$camp){
-		$log .= "s“®ƒZƒbƒVƒ‡ƒ“‚ªŒÀŠE‚É’B‚µ‚Ä‚¢‚Ü‚·B‹xŒe‚µ‚Ä‚­‚Ÿ‚³‚¢B<br>\n";
-		$pr=int($GMT/2);
-		$tm=0;
-		# s“®ƒJƒEƒ“ƒg‚̃ŠƒZƒbƒg(–³ðŒ)
-		$act_cnt=0;
-	}
-
-	# ƒƒCƒ“ƒRƒ}ƒ“ƒh
-	my @c		 = ('Œ»óˆÛŽ','C‹Æ','“à­','í‘ˆ','”\—Í','ŽdŠ¯','î•ñ','“¢”°','ŒRŽ–');
-
-	$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|;
-	foreach(0 .. $#c){ $log2 .=qq|<option value="$_">$c[$_]</option>\n|;}
-	$log2 .=qq|</select><br>\n|;
-	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-	&write_data;
-
-}
-
-#-------------------------------------------------------------------------------
-# S‘©ŽžŠÔ
-sub wt_st {
-	$whour = int($pr/3600);
-	$wmin = int(($pr%3600)/60);
-	$wsec = $pr%60;
-	if($whour>0){
-		$wmin = "0$wmin" if($wmin<10);
-		$log .="s“®’†¥¥¥‚ ‚Æ$whourŽžŠÔ$wmin•ª\n";
-	}elsif($wmin>0){
-		$wsec = "0$wsec" if($wsec<10);
-		$log .="s“®’†c‚ ‚Æ$wmin•ª\n";
-	}else{
-		$log .="s“®’†c‚ ‚Æ$wsec•b\n";
-	}
-}
-
-
-
-
-
-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.1
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# 메읞 메뉎
+sub main_st { # 메읞
+
+	# 회복
+
+	$hrg=int($time-$la);
+	$hrg=int($hrg/$hrg_time);
+	$hrg=0 if($hrg<1);
+	$d=$time;
+	$d=$d-$roku;
+
+	if($ck!=1){
+		for($x=0;$x<$hrg;++$x){
+			$hp++;
+			$mp++;
+		}
+	}
+
+	$hp=$max_hp if($hp>$max_hp);
+	$mp=$max_mp if($mp>$max_mp);
+
+	# ꞉여
+
+	if($camp>0&&$d>21600){
+		$v=$g_p[$rank];
+		$v=int($v/5);
+		$v=int($my_cn*0.8)+$v;
+		$gold+=$v;
+		$log .= " $v 곚드의 ꞉여가 지꞉되었습니닀.<br>";
+		$d-=21600;
+		$roku=$time;
+	}
+
+	# 데읎터 쎈Ʞ화
+
+	if(	$cn1>=$data_reset||
+		$cn2>=$data_reset||
+		$cn3>=$data_reset||
+		$cn4>=$data_reset||
+		$cn5>=$data_reset){
+		$log .="천하통음읎 달성되었닀!<br>국력읎 쎈Ʞ화됩니닀.<br>\n";
+		require './inc/ore_sub-main_reset.cgi';&reset_cdat;
+	}
+	if($set<$time){
+		require './inc/ore_sub-main_reset.cgi';&reset_time_limit;
+	}
+
+	# 겜험
+
+	$next_rank=int(($rank*$rank)*3);
+
+	if($rank_exe>=$next_rank){
+		if($camp!=0&&$rank<14){
+			$log .="평소의 공로가 읞정되얎 계꞉읎 올랐닀.<br>\n";
+			$rank++;
+			$rank_exe-=$next_rank;
+		}
+	}
+
+	if($exe>$next_lv){
+		$log .="겜험을 쌓아 더욱 강하게 성장했닀.<br>\n";
+		$lv++;
+		$a =int(rand(2));
+		$max_hp +=int($a);
+		$b =int(rand(2));
+		$max_mp +=int($b);
+		$w =int(rand(2));
+		$ua +=int($w);
+		$d =int(rand(2));
+		$ud +=int($d);
+		$l =int(rand(2));
+		$lr +=int($l);
+
+		if($lv<=5){$gg=2;}
+		if($lv<=10){$gg=1;}
+		$g =int(rand(2)+$gg);
+		$ag +=int($g);
+
+		$exe-=$next_lv;
+		$log .="첎력읎 $a 올랐닀<br>정신력읎 $b 올랐닀<br>공격력읎 $w 올랐닀<br>방얎력읎 $d 올랐닀<br>지휘력읎 $l 올랐닀<br>믌첩성읎 $g 올랐닀<br>\n";
+	}
+
+	# 안낎
+
+	if($mes && $pr<1){
+		$log .="$mes<br>\n";
+		$mes='';
+	}
+
+	# ë‚Žì • 의묎제
+	if($act_cnt>=$act_cnt_limit && $camp){
+		$log .= "행동 섞션읎 한계에 도달했습니닀. 낎정을 한번 수행핎 죌십시였.<br>\n";
+		$tm=0;
+	}elsif($act_cnt>=$act_cnt_limit && !$camp){
+		$log .= "행동 섞션읎 한계에 도달했습니닀. 휎식핎 죌십시였.<br>\n";
+		$pr=int($GMT/2);
+		$tm=0;
+		# 행동 칎욎튞 쎈Ʞ화(묎조걎)
+		$act_cnt=0;
+	}
+
+	# 메읞 컀맚드
+	my @c		 = ('현상유지','수행','ë‚Žì •','전쟁','능력','사ꎀ','정볎','토벌','군사');
+
+	$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|;
+	foreach(0 .. $#c){ $log2 .=qq|<option value="$_">$c[$_]</option>\n|;}
+	$log2 .=qq|</select><br>\n|;
+	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+	&write_data;
+
+}
+
+#-------------------------------------------------------------------------------
+# 구속 시간
+sub wt_st {
+	$whour = int($pr/3600);
+	$wmin = int(($pr%3600)/60);
+	$wsec = $pr%60;
+	if($whour>0){
+		$wmin = "0$wmin" if($wmin<10);
+		$log .="행동 쀑  낚은 시간: $whour시간 $wmin분\n";
+	}elsif($wmin>0){
+		$wsec = "0$wsec" if($wsec<10);
+		$log .="행동 쀑  낚은 시간: $wmin분\n";
+	}else{
+		$log .="행동 쀑  낚은 시간: $wsec쎈\n";
+	}
+}
+
+
+
+
+
+1;
diff --git a/inc/ore_sub-main_reset.cgi b/inc/ore_sub-main_reset.cgi
old mode 100644
new mode 100755
index 051238b..92eb51c
--- a/inc/ore_sub-main_reset.cgi
+++ b/inc/ore_sub-main_reset.cgi
@@ -1,104 +1,103 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# “ˆêˆ—(‘ƒf[ƒ^ƒŠƒZƒbƒg) Version 1.0
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# “ˆêˆ—(‘ƒf[ƒ^ƒŠƒZƒbƒg)
-sub reset_cdat{
-
-	if($limit_mode){
-		require './inc/ore_sub-members-p1.cgi';
-		&member_adjust;
-	}
-
-	# ‹ŒŽ®EŒÅ’胂[ƒh
-	if(!$reset_cdat){
-		my @camp_pw = (0,4500,4500,3500,5000,3500);	# ‘—Í •ÏX‰Â”\
-		my @camp_gl = (0,900,200,400,250,300);		# ‘‰Æ—\ŽZ
-		my @camp_fd = (0,2000,5000,3500,8000,6000);	# ‘•º—Æ
-		my @camp_sl = (0,3000,2500,4000,5000,4000);	# ‘•ºŽm”
-
-		$cn1=$camp_pw[1];
-		$cg1=$camp_gl[1];
-		$cf1=$camp_fd[1];
-		$cs1=$camp_sl[1];
-
-		$cn2=$camp_pw[2];
-		$cg2=$camp_gl[2];
-		$cf2=$camp_fd[2];
-		$cs2=$camp_sl[2];
-
-		$cn3=$camp_pw[3];
-		$cg3=$camp_gl[3];
-		$cf3=$camp_fd[3];
-		$cs3=$camp_sl[3];
-
-		$cn4=$camp_pw[4];
-		$cg4=$camp_gl[4];
-		$cf4=$camp_fd[4];
-		$cs4=$camp_sl[4];
-
-		$cn5=$camp_pw[5];
-		$cg5=$camp_gl[5];
-		$cf5=$camp_fd[5];
-		$cs5=$camp_sl[5];
-	}
-
-	# ƒ‰ƒ“ƒ_ƒ€ƒ‚[ƒh
-	else{
-
-		# ƒŠƒZƒbƒgˆ—
-
-		$cn1=int(rand(40))*100+2500;
-		$cn2=int(rand(40))*100+2500;
-		$cn3=int(rand(40))*100+2500;
-		$cn4=int(rand(40))*100+2500;
-		$cn5=int(rand(40))*100+2500;
-
-		$cg1=int(rand(50))*20+200;
-		$cg2=int(rand(50))*20+200;
-		$cg3=int(rand(50))*20+200;
-		$cg4=int(rand(50))*20+200;
-		$cg5=int(rand(50))*20+200;
-
-		$cf1=int(rand(60))*100+2500;
-		$cf2=int(rand(60))*100+2500;
-		$cf3=int(rand(60))*100+2500;
-		$cf4=int(rand(60))*100+2500;
-		$cf5=int(rand(60))*100+2500;
-
-		$cs1=int(rand(60))*50+2000;
-		$cs2=int(rand(60))*50+2000;
-		$cs3=int(rand(60))*50+2000;
-		$cs4=int(rand(60))*50+2000;
-		$cs5=int(rand(60))*50+2000;
-	}
-	$ce1=$ce2=$ce3=$ce4=$ce5=0;
-	$set=$reset_time_limit * 3600 * 24 + $time;
-	$goal_no++;
-	# ‘ƒf[ƒ^‚ð”z—ñ‰»‚µ‚œ‚¢‚¯‚ǁA‚ß‚ñ‚Ç‚­‚³‚¢‚©‚ç‚¢‚¢‚âEEEB
-}
-
-#-------------------------------------------------------------------------------
-# ƒ^ƒCƒ€ƒAƒEƒg‚É‚æ‚郊ƒZƒbƒg
-sub reset_time_limit{
-
-	$log .="’·‚«”NŒŽ‚ª‰ß‚¬‚œ‚ªAí—‚̐¢‚𐧂·‚é”eŽÒ‚͍Ōã‚܂ŏoŒ»‚µ‚È‚©‚Á‚œB<br>Še‘ƒf[ƒ^‚ªƒŠƒZƒbƒg‚³‚ê‚Ü‚·B\n";
-	$wr_mes="’·‚«”NŒŽ‚ª‰ß‚¬‚œ‚ªAí—‚̐¢‚𐧂·‚é”eŽÒ‚͍Ōã‚܂ŏoŒ»‚µ‚È‚©‚Á‚œBŠe‘ƒf[ƒ^‚ªƒŠƒZƒbƒg‚³‚ê‚œ";
-	&reset_cdat;
-	&hist_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 reset_cdat{
+
+	if($limit_mode){
+		require './inc/ore_sub-members-p1.cgi';
+		&member_adjust;
+	}
+
+	# 구식/고정 몚드
+	if(!$reset_cdat){
+		my @camp_pw = (0,4500,4500,3500,5000,3500);	# êµ­ë ¥ 변겜 가능
+		my @camp_gl = (0,900,200,400,250,300);		# 국가 예산
+		my @camp_fd = (0,2000,5000,3500,8000,6000);	# 쎝 군량
+		my @camp_sl = (0,3000,2500,4000,5000,4000);	# 쎝 병사 수
+
+		$cn1=$camp_pw[1];
+		$cg1=$camp_gl[1];
+		$cf1=$camp_fd[1];
+		$cs1=$camp_sl[1];
+
+		$cn2=$camp_pw[2];
+		$cg2=$camp_gl[2];
+		$cf2=$camp_fd[2];
+		$cs2=$camp_sl[2];
+
+		$cn3=$camp_pw[3];
+		$cg3=$camp_gl[3];
+		$cf3=$camp_fd[3];
+		$cs3=$camp_sl[3];
+
+		$cn4=$camp_pw[4];
+		$cg4=$camp_gl[4];
+		$cf4=$camp_fd[4];
+		$cs4=$camp_sl[4];
+
+		$cn5=$camp_pw[5];
+		$cg5=$camp_gl[5];
+		$cf5=$camp_fd[5];
+		$cs5=$camp_sl[5];
+	}
+
+	# 랜덀 몚드
+	else{
+
+		# 늬셋 처늬
+
+		$cn1=int(rand(40))*100+2500;
+		$cn2=int(rand(40))*100+2500;
+		$cn3=int(rand(40))*100+2500;
+		$cn4=int(rand(40))*100+2500;
+		$cn5=int(rand(40))*100+2500;
+
+		$cg1=int(rand(50))*20+200;
+		$cg2=int(rand(50))*20+200;
+		$cg3=int(rand(50))*20+200;
+		$cg4=int(rand(50))*20+200;
+		$cg5=int(rand(50))*20+200;
+
+		$cf1=int(rand(60))*100+2500;
+		$cf2=int(rand(60))*100+2500;
+		$cf3=int(rand(60))*100+2500;
+		$cf4=int(rand(60))*100+2500;
+		$cf5=int(rand(60))*100+2500;
+
+		$cs1=int(rand(60))*50+2000;
+		$cs2=int(rand(60))*50+2000;
+		$cs3=int(rand(60))*50+2000;
+		$cs4=int(rand(60))*50+2000;
+		$cs5=int(rand(60))*50+2000;
+	}
+	$ce1=$ce2=$ce3=$ce4=$ce5=0;
+	$set=$reset_time_limit * 3600 * 24 + $time;
+	$goal_no++;
+	# 국가 데읎터륌 배엎화하고 싶지만, 귀찮윌니까 팚슀...
+}
+
+#-------------------------------------------------------------------------------
+# 타임아웃에 의한 늬셋
+sub reset_time_limit{
+
+	$log .="ꞎ 섞월읎 흘렀윌나, 전란의 시대륌 제팚할 팚자는 끝낮 나타나지 않았습니닀.<br>각 국가의 데읎터가 늬셋됩니닀.\n";
+	$wr_mes="ꞎ 섞월읎 흘렀윌나, 전란의 시대륌 제팚할 팚자는 끝낮 나타나지 않았습니닀. 각 국가의 데읎터가 늬셋되었습니닀";
+	&reset_cdat;
+	&hist_write;
+}
+
+
+
+
+1;
diff --git a/inc/ore_sub-map-p1_pc.cgi b/inc/ore_sub-map-p1_pc.cgi
old mode 100644
new mode 100755
index 4b5b6cd..8bc6053
--- a/inc/ore_sub-map-p1_pc.cgi
+++ b/inc/ore_sub-map-p1_pc.cgi
@@ -1,54 +1,54 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# ƒ}ƒbƒv PC—pƒTƒuƒ‹[ƒ`ƒ“	Version 1.0						#
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#############################################################
-# ˆÈ‰ºˆ— Šî–{“I‚É‚±‚êˆÈ‰º‚Í‚¢‚¶‚ç‚È‚¢‚æ‚€‚ɁB
-
-#-------------------------------------------------------------------------------
-# ƒNƒŠƒbƒJƒuƒ‹ƒ}ƒbƒv
-sub mapdata{
-$log.=<<EOM;
-<tt><br>@<br></tt><table width=440 cellspacing=1 cellpadding=0 height=360 bordercolor=#000000>
-<tr>
-<td width=55 height=45>@</td><td width=55>@</td><td width=55 bgcolor=$color[4]>@</td><td width=55>@</td><td width=55>@</td><td width=55>@</td><td width=55 bgcolor=$color[5]>@</td><td width=55>@</td>
-</tr><tr>
-<td height=45>@</td><td bgcolor=$color[4]>@</td><td bgcolor=$color[4]>@</td><td bgcolor=$color[1]>@</td><td bgcolor=$color[1]>@</td><td>@</td>
-<td bgcolor=$color[5]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=5"><b class=map>$cmp[5]</b></a></td>
-<td bgcolor=$color[5]>@</td>
-</tr><tr>
-<td bgcolor=$color[4] height=45>@</td><td bgcolor=$color[4]>@</td>
-<td bgcolor=$color[4]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=4"><b class=map>$cmp[4]</b></a></td>
-<td bgcolor=$color[4]>@</td><td bgcolor=$color[1]>@</td><td>@</td><td bgcolor=$color[5]>@</td><td bgcolor=$color[5]>@</td>
-</tr><tr>
-<td height=45>@</td><td bgcolor=$color[4]>@</td><td bgcolor=$color[4]>@</td><td bgcolor=$color[1]>@</td><td bgcolor=$color[1]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=1"><b class=map>$cmp[1]</b></a></td>
-<td bgcolor=$color[1]>@</td><td>@</td><td bgcolor=$color[5]>@</td>
-</tr><tr>
-<td bgcolor=$color[2] height=45>@</td><td bgcolor=$color[2]>@</td><td bgcolor=$color[4]>@</td>
-<td bgcolor=$color[4]><small>‰i‰“‚̏Ø<br>Õ’n</small></td>
-<td bgcolor=$color[1]>@</td><td bgcolor=$color[1]>@</td><td>@</td><td>@</td>
-</tr><tr>
-<td height=45>@</td><td bgcolor=$color[2]>@</td>
-<td bgcolor=$color[2]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=2"><b class=map>$cmp[2]</b></a></td>
-<td bgcolor=$color[2]>@</td><td bgcolor=$color[3]>@</td><td bgcolor=$color[3]>@</td><td bgcolor=$color[3]>@</td><td>@</td>
-</tr><tr>
-<td height=45>@</td><td>@</td><td bgcolor=$color[2]>@</td><td bgcolor=$color[3]>@</td>
-<td bgcolor=$color[3]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=3"><b class=map>$cmp[3]</b></a></td>
-<td bgcolor=$color[3]>@</td><td>@</td><td>@</td>
-</tr><tr>
-<td height=45>@</td><td>@</td><td>@</td><td>@</td><td bgcolor=$color[3]>@</td><td>@</td><td>@</td><td>@</td>
-</tr></table><tt><br><b>ŽÙÀƱ Ü°ÙÄÞϯÌß</b><br></tt>
-EOM
-}
-
-
-
-
-
-1;#íœ•s‰Â
+#-----------------------------------------------------------#
+#  죄와 벌++ 읎윚배반										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# 맵 PC용 서람룚틎	Version 1.0						#
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#############################################################
+# 읎하 처늬 Ʞ볞적윌로 읎 읎하는 수정하지 말 것.
+
+#-------------------------------------------------------------------------------
+# 큎늭컀랔 맵
+sub mapdata{
+$log.=<<EOM;
+<tt><br>　<br></tt><table width=440 cellspacing=1 cellpadding=0 height=360 bordercolor=#000000>
+<tr>
+<td width=55 height=45>　</td><td width=55>　</td><td width=55 bgcolor=$color[4]>　</td><td width=55>　</td><td width=55>　</td><td width=55>　</td><td width=55 bgcolor=$color[5]>　</td><td width=55>　</td>
+</tr><tr>
+<td height=45>　</td><td bgcolor=$color[4]>　</td><td bgcolor=$color[4]>　</td><td bgcolor=$color[1]>　</td><td bgcolor=$color[1]>　</td><td>　</td>
+<td bgcolor=$color[5]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=5"><b class=map>$cmp[5]</b></a></td>
+<td bgcolor=$color[5]>　</td>
+</tr><tr>
+<td bgcolor=$color[4] height=45>　</td><td bgcolor=$color[4]>　</td>
+<td bgcolor=$color[4]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=4"><b class=map>$cmp[4]</b></a></td>
+<td bgcolor=$color[4]>　</td><td bgcolor=$color[1]>　</td><td>　</td><td bgcolor=$color[5]>　</td><td bgcolor=$color[5]>　</td>
+</tr><tr>
+<td height=45>　</td><td bgcolor=$color[4]>　</td><td bgcolor=$color[4]>　</td><td bgcolor=$color[1]>　</td><td bgcolor=$color[1]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=1"><b class=map>$cmp[1]</b></a></td>
+<td bgcolor=$color[1]>　</td><td>　</td><td bgcolor=$color[5]>　</td>
+</tr><tr>
+<td bgcolor=$color[2] height=45>　</td><td bgcolor=$color[2]>　</td><td bgcolor=$color[4]>　</td>
+<td bgcolor=$color[4]><small>영원의 슝표<br>터</small></td>
+<td bgcolor=$color[1]>　</td><td bgcolor=$color[1]>　</td><td>　</td><td>　</td>
+</tr><tr>
+<td height=45>　</td><td bgcolor=$color[2]>　</td>
+<td bgcolor=$color[2]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=2"><b class=map>$cmp[2]</b></a></td>
+<td bgcolor=$color[2]>　</td><td bgcolor=$color[3]>　</td><td bgcolor=$color[3]>　</td><td bgcolor=$color[3]>　</td><td>　</td>
+</tr><tr>
+<td height=45>　</td><td>　</td><td bgcolor=$color[2]>　</td><td bgcolor=$color[3]>　</td>
+<td bgcolor=$color[3]><a style="color:white" href="$script?id=$id&pw=$pw&cmd=3"><b class=map>$cmp[3]</b></a></td>
+<td bgcolor=$color[3]>　</td><td>　</td><td>　</td>
+</tr><tr>
+<td height=45>　</td><td>　</td><td>　</td><td>　</td><td bgcolor=$color[3]>　</td><td>　</td><td>　</td><td>　</td>
+</tr></table><tt><br><b>엘타니아 월드맵</b><br></tt>
+EOM
+}
+
+
+
+
+
+1;#삭제 불가
diff --git a/inc/ore_sub-members-p1.cgi b/inc/ore_sub-members-p1.cgi
old mode 100644
new mode 100755
index c07b46a..147a7d2
--- a/inc/ore_sub-members-p1.cgi
+++ b/inc/ore_sub-members-p1.cgi
@@ -1,106 +1,106 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# ŽQ‰Ál”Žæ“ŸE’²®ƒp[ƒc	Version 1.0						#
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# ŽQ‰Ál”Žæ“Ÿ
-sub member_list{
-
-	$all_mem=$#tdat+1;
-
-	# ŽQ‰ÁŽÒ‡ŒvŽæ“Ÿ
-	$c0 = grep(/camp;0/, @tdat);
-	$c1 = grep(/camp;1/, @tdat);
-	$c2 = grep(/camp;2/, @tdat);
-	$c3 = grep(/camp;3/, @tdat);
-	$c4 = grep(/camp;4/, @tdat);
-	$c5 = grep(/camp;5/, @tdat);
-
-	if($limit_mode){
-		$c1a = $c2a = $c3a = $c4a = $c5a = ($all_mem<18) ?  3 : int($all_mem/6)+1 ;
-		&member_adjust if(!$member_flag);
-	}
-
-	&cdat_write;
-}
-
-#-------------------------------------------------------------------------------
-# ‘O‰ñ“ˆê‚Ì—D—òÝ’è(ŽQ‰Ál”)
-sub member_adjust{
-
-	$c1a = $c2a = $c3a = $c4a = $c5a = ($all_mem<18) ?  3 : int($all_mem/6)+1 ;
-
-	local($rca_p,$rca_m);
-	$rca_p=1 if($all_mem<50);
-	$rca_p=2 if($all_mem=>50 && $all_mem<100);
-	$rca_p=3 if($all_mem=>100 && $all_mem<150);
-	$rca_p=4 if($all_mem=>150 && $all_mem<200);
-	$rca_p=5 if($all_mem=>200);
-
-	if($all_mem<50){
-		$rca_p=0;
-		$rca_m=-1;
-	}
-	elsif($all_mem=>50 && $all_mem<100){
-		$rca_p=0;
-		$rca_m=-2;
-	}
-	elsif($all_mem=>100 && $all_mem<150){
-		$rca_p=1;
-		$rca_m=-3;
-	}
-	elsif($all_mem=>150 && $all_mem<200){
-		$rca_p=1;
-		$rca_m=-4;
-	}
-	elsif($all_mem=>200){
-		$rca_p=2;
-		$rca_m=-5;
-	}
-
-	if($cn1>=$data_reset || $hcamp==1){
-		$c1a +=$rca_m;
-		$c2a +=$rca_p;
-		$c3a +=$rca_p;
-		$c4a +=$rca_p;
-		$c5a +=$rca_p;
-	}elsif($cn2>=$data_reset || $hcamp==2){
-		$c1a +=$rca_p;
-		$c2a +=$rca_m;
-		$c3a +=$rca_p;
-		$c4a +=$rca_p;
-		$c5a +=$rca_p;
-	}elsif($cn3>=$data_reset || $hcamp==3){
-		$c1a +=$rca_p;
-		$c2a +=$rca_p;
-		$c3a +=$rca_m;
-		$c4a +=$rca_p;
-		$c5a +=$rca_p;
-	}elsif($cn4>=$data_reset || $hcamp==4){
-		$c1a +=$rca_p;
-		$c2a +=$rca_p;
-		$c3a +=$rca_p;
-		$c4a +=$rca_m;
-		$c5a +=$rca_p;
-	}elsif($cn5>=$data_reset || $hcamp==5){
-		$c1a +=$rca_p;
-		$c2a +=$rca_p;
-		$c3a +=$rca_p;
-		$c4a +=$rca_p;
-		$c5a +=$rca_m;
-	}
-}
-
-
-
-
-
-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 member_list{
+
+	$all_mem=$#tdat+1;
+
+	# 찞가자 합계 획득
+	$c0 = grep(/camp;0/, @tdat);
+	$c1 = grep(/camp;1/, @tdat);
+	$c2 = grep(/camp;2/, @tdat);
+	$c3 = grep(/camp;3/, @tdat);
+	$c4 = grep(/camp;4/, @tdat);
+	$c5 = grep(/camp;5/, @tdat);
+
+	if($limit_mode){
+		$c1a = $c2a = $c3a = $c4a = $c5a = ($all_mem<18) ?  3 : int($all_mem/6)+1 ;
+		&member_adjust if(!$member_flag);
+	}
+
+	&cdat_write;
+}
+
+#-------------------------------------------------------------------------------
+# 지난번 통음의 ìš°ì—Ž 섀정(ì°žê°€ 읞원수)
+sub member_adjust{
+
+	$c1a = $c2a = $c3a = $c4a = $c5a = ($all_mem<18) ?  3 : int($all_mem/6)+1 ;
+
+	local($rca_p,$rca_m);
+	$rca_p=1 if($all_mem<50);
+	$rca_p=2 if($all_mem=>50 && $all_mem<100);
+	$rca_p=3 if($all_mem=>100 && $all_mem<150);
+	$rca_p=4 if($all_mem=>150 && $all_mem<200);
+	$rca_p=5 if($all_mem=>200);
+
+	if($all_mem<50){
+		$rca_p=0;
+		$rca_m=-1;
+	}
+	elsif($all_mem=>50 && $all_mem<100){
+		$rca_p=0;
+		$rca_m=-2;
+	}
+	elsif($all_mem=>100 && $all_mem<150){
+		$rca_p=1;
+		$rca_m=-3;
+	}
+	elsif($all_mem=>150 && $all_mem<200){
+		$rca_p=1;
+		$rca_m=-4;
+	}
+	elsif($all_mem=>200){
+		$rca_p=2;
+		$rca_m=-5;
+	}
+
+	if($cn1>=$data_reset || $hcamp==1){
+		$c1a +=$rca_m;
+		$c2a +=$rca_p;
+		$c3a +=$rca_p;
+		$c4a +=$rca_p;
+		$c5a +=$rca_p;
+	}elsif($cn2>=$data_reset || $hcamp==2){
+		$c1a +=$rca_p;
+		$c2a +=$rca_m;
+		$c3a +=$rca_p;
+		$c4a +=$rca_p;
+		$c5a +=$rca_p;
+	}elsif($cn3>=$data_reset || $hcamp==3){
+		$c1a +=$rca_p;
+		$c2a +=$rca_p;
+		$c3a +=$rca_m;
+		$c4a +=$rca_p;
+		$c5a +=$rca_p;
+	}elsif($cn4>=$data_reset || $hcamp==4){
+		$c1a +=$rca_p;
+		$c2a +=$rca_p;
+		$c3a +=$rca_p;
+		$c4a +=$rca_m;
+		$c5a +=$rca_p;
+	}elsif($cn5>=$data_reset || $hcamp==5){
+		$c1a +=$rca_p;
+		$c2a +=$rca_p;
+		$c3a +=$rca_p;
+		$c4a +=$rca_p;
+		$c5a +=$rca_m;
+	}
+}
+
+
+
+
+
+1;
diff --git a/inc/ore_sub-mission.cgi b/inc/ore_sub-mission.cgi
old mode 100644
new mode 100755
index ca8b18c..975e3bc
--- a/inc/ore_sub-mission.cgi
+++ b/inc/ore_sub-mission.cgi
@@ -1,436 +1,436 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# ŒRŽ– Version 1.1
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-#ŒRŽ–ƒƒjƒ…[
-sub mission{
-
-	if(!$type){
-
-		$log .= "ŒRŽ–‚ðs‚¢‚Ü‚·BŽÀs‚·‚é‚à‚Ì‚ð‘I‚ñ‚ʼnº‚³‚¢B<br>\n";
-		$tm=0;
-		$type='ŒRŽ–';
-
-		&mission_menu;
-
-	}
-
-	&dat_write;
-}
-
-sub mission_menu{
-
-	# ŒRŽ–ƒRƒ}ƒ“ƒh
-	my @gu		 = ('‚â‚ß‚é','’³•ñ','‹­’D','ô”]');
-
-	$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|;
-	foreach(0 .. $#gu){ $log2 .=qq|<option value="$_">$gu[$_]</option>\n|;}
-	$log2 .=qq|</select><br>\n|;
-	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-}
-
-
-sub misson_menu2{
-	$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|;
-}
-
-#-------------------------------------------------------------------------------
-#ŒRŽ–ˆ—
-sub mission_exe{
-
-	if(!$tm){
-
-		if($camp<1){
-			$log .= "•ú˜Q‚̐g‚Å‚±‚ÌŒRŽ–‚͍s‚È‚Š‚Ü‚¹‚ñB<br>\n";
-			$tm = $cmd = 0;
-			$type='';
-			&call_main_st;
-		}elsif($sogo==3||$sogo==4){
-			$log .= "‚Ü‚ž‚ÍŽØ‹à‚ð•ÔÏ‚µ‚Ä$sogo_p[$sogo] ‚Ìà€ˆó‚ðÁ‚µ‚Ä‚­‚Ÿ‚³‚¢B<br>\n";
-			$tm = $cmd = 0;
-			$type='';
-			&call_main_st;
-		}elsif($cmd<=0 || $cmd>$#cmp){
-			$log .= "ŒRŽ–‚𒆎~‚µ‚Ü‚·<br>\n";
-			$tm = $cmd = 0;
-			$type='';
-			&call_main_st;
-		}elsif($cmd==1){
-			$log .= "“G‘‚É’³•ñˆõ‚𑗂荞‚݁AŽ‘‹à’²’BÙ°Ä‚ð‚©‚­—‚³‚¹‚Ü‚·B<br>•W“I‘‚ð‘I‚ñ‚ʼnº‚³‚¢<br>\n";
-			&call_mapdata if($mv_mode eq 'pc');
-			&misson_menu2;
-			$tm=31;
-		}elsif($cmd==2){
-			$log .= "“G‘‚Ì•º—Æ‚ð‹­’D‚µ‚Ü‚·B•W“I‘‚ð‘I‚ñ‚ʼnº‚³‚¢(žØ¯¶ÌÞÙϯÌߑΉž)<br>\n";
-			&call_mapdata if($mv_mode eq 'pc');
-			&misson_menu2;
-			$tm=32;
-		}elsif($cmd==3){
-			$log .= "“G‘‚Ì•ºŽm‚ðô”]‚µAŽ©‘‚Öˆø‚«“ü‚ê‚Ü‚·B<br>•W“I‘‚ð‘I‚ñ‚ʼnº‚³‚¢<br>\n";
-			&call_mapdata if($mv_mode eq 'pc');
-			&misson_menu2;
-			$tm=33;
-		}
-	}elsif($tm==31){#’³•ñ“à—e1
-		&gun_tm31;
-	}elsif($tm==32){#—ª’D“à—e1
-		&gun_tm32;
-	}elsif($tm==33){#ô”]“à—e1
-		&gun_tm33;
-	}elsif($tm==34){#’³•ñ“à—e2
-		&gun_tm34;
-	}elsif($tm==35){#‹­’D“à—e2
-		&gun_tm35;
-	}elsif($tm==36){#ô”]“à—e2
-		&gun_tm36;
-	}
-
-	&write_data;
-}
-
-#ô”]“à—e
-sub gun_tm33{
-
-	if($cmd<=0){
-		$log .= "ô”]‚𒆎~‚µ‚Ü‚·<br>\n";
-		$tm = $cmd = 0;
-		&mission_menu;
-	}elsif($cmd>0){
-		$v=$cmd;
-		if($v==$camp){
-			$log .= "Ž©‘‚͐ô”]‚Å‚«‚Ü‚¹‚ñB<br>\n";
-			$tm = $cmd = 0;
-			&mission_menu;
-		}elsif(	(($cmd==1&&$cs1<2500) || ($cmd==1&&$ce1==1))||
-				(($cmd==2&&$cs2<2500) || ($cmd==2&&$ce2==1))||
-				(($cmd==3&&$cs3<2500) || ($cmd==3&&$ce3==1))||
-				(($cmd==4&&$cs4<2500) || ($cmd==4&&$ce4==1))||
-				(($cmd==5&&$cs5<2500) || ($cmd==5&&$ce5==1))){
-			$log .= "–S‘‚Ü‚œ‚́A‘•ºŽm”2500–¢–ž‚̍‘‚ðô”]‚·‚邱‚Æ‚Í‚Å‚«‚Ü‚¹‚ñB<br>\n";
-			$tm = $cmd = 0;
-			&misson_menu2;
-		}elsif($v==0){
-			$log .= "<br>\n";
-			$tm = $cmd = 0;
-			&mission_menu;
-		}else{
-			$log .= "$cmp[$v]‚Ì•ºŽmw‚ðô”]‚µ‚Ü‚·B<br>\n";
-			$log .= "Ã–°pŽt‚𑗂荞‚Ý‚Ü‚·B“G‘‘‹«‚Ü‚Å$GMWŽžŠÔ‚Å‚·<br>\n";
-
-			$nation=$v;
-			$pr=$GMT;
-			$tm=36;
-		}
-	}
-}
-
-#ô”]“à—e2
-sub gun_tm36{
-
-	&syogo;
-
-	$vv=int(rand(3));
-	if($vv > 0){#¬Œ÷Šm—Š
-
-		$mes = "$cmp[$nation] ‚Ì •ºŽmw‚̐ô”]‚ɐ¬Œ÷‚µ‚Ü‚µ‚œI<br>$cmp[$nation] ‚©‚ç";
-
-		$wr_mes ="$date $cmp[$camp] ‚Ì $syogo ‚ª $cmp[$nation] ‚Ì•ºŽm";
-
-		$v=int(((rand(10)+1)*5)*$lr);
-		$v=2300 + int(rand(300)) if($v>2300);
-		$rank_exe++;
-		$mes .= "$v l‚Ì•ºŽm‚ðô”]‚µA$cmp[$camp]‚Ì•º‚Æ‚µ‚ÄŽæ‚荞‚Ý‚Ü‚µ‚œB";
-
-		$wr_mes .="$v l‚ðô”]‚·‚邱‚Ƃɐ¬Œ÷I $cmp[$camp]‚Ì•º‚Æ‚µ‚ÄŽæ‚荞‚Ý‚Ü‚µ‚œ";
-
-		if($camp==1){
-			$cs1 += $v;
-		}elsif($camp==2){
-			$cs2 += $v;
-		}elsif($camp==3){
-			$cs3 += $v;
-		}elsif($camp==4){
-			$cs4 += $v;
-		}elsif($camp==5){
-			$cs5 += $v;
-		}
-		if($nation==1 && $cs1>=$v){
-			$cs1 -= $v;
-		}elsif($nation==2 && $cs2>=$v){
-			$cs2 -= $v;
-		}elsif($nation==3 && $cs3>=$v){
-			$cs3 -= $v;
-		}elsif($nation==4 && $cs4>=$v){
-			$cs4 -= $v;
-		}elsif($nation==5 && $cs5>=$v){
-			$cs5 -= $v;
-		}
-		$nation=0;
-		$tm = $cmd = 0;
-		$type='';
-		&call_main_st;
-
-		&hist_write;#‘ƒƒO
-	}else{
-		$mes = "$cmp[$nation] ‚Ì•ºŽmw‚̐ô”]‚ÉŽž”s‚µ‚œ¥¥¥B";
-
-		$wr_mes ="$date $cmp[$camp] ‚Ì $syogo ‚ª $cmp[$nation] ‚Ì•ºŽmw‚ðô”]‚ðŠé‚Ä‚œ‚ªAŽž”s‚µ‚œ‚æ‚€‚Ÿ";
-
-		&gun_no;
-
-		&hist_write;#‘ƒƒO
-	}
-}
-#‹­’D“à—e1
-sub gun_tm32{
-
-	&syogo;
-
-	if($cmd<=0){
-		$log .= "‹­’D‚𒆎~‚µ‚Ü‚·<br>\n";
-		$tm = $cmd = 0;
-		&mission_menu;
-	}elsif($cmd>0){
-		$v=$cmd;
-		if($v==$camp){
-			$log .= "Ž©‘‚Í‹­’D‚Å‚«‚Ü‚¹‚ñB<br>\n";
-			$tm = $cmd = 0;
-			&mission_menu;
-		}elsif(	(($cmd==1&&$cf1<5000) || ($cmd==1&&$ce1==1))||
-				(($cmd==2&&$cf2<5000) || ($cmd==2&&$ce2==1))||
-				(($cmd==3&&$cf3<5000) || ($cmd==3&&$ce3==1))||
-				(($cmd==4&&$cf4<5000) || ($cmd==4&&$ce4==1))||
-				(($cmd==5&&$cf5<5000) || ($cmd==5&&$ce5==1))){
-			$log .= "–S‘‚Ü‚œ‚́A‘•º—Æ5000–¢–ž‚̍‘‚ð‹­’D‚·‚邱‚Æ‚Í‚Å‚«‚Ü‚¹‚ñB\n";
-			$tm = $cmd = 0;
-			&mission_menu;
-		}elsif($v==0){
-			$log .= "<br>\n";
-			$tm = $cmd = 0;
-			&mission_menu;
-		}else{
-			$log .= "$cmp[$v]‚©‚畺—Æ‚ð‹­’D‚µ‚Ü‚·B<br>\n";
-			$log .= "ŠïP•”‘à‚𑗂荞‚Ý‚Ü‚·B“G‘‘‹«‚Ü‚Å$GMWŽžŠÔ‚Å‚·<br>\n";
-
-			$nation=$v;
-			$pr=$GMT;
-			$tm=35;
-		}
-	}
-}
-#‹­’D“à—e2
-sub gun_tm35{
-
-	&syogo;
-
-	$vv=int(rand(3));
-	if($vv > 0){#¬Œ÷Šm—Š
-
-		$mes = "$cmp[$nation] ‚ÉŠïPUŒ‚‚ð‚©‚¯A‹­’D‚ɐ¬Œ÷‚µ‚Ü‚µ‚œI<br>$cmp[$nation] ‚©‚ç";
-
-		$wr_mes ="$date $cmp[$camp] ‚Ì $syogo ‚ª $cmp[$nation] ‚ÉŠïPUŒ‚‚ðŽÀŽ{B";
-
-		$v=int(((rand(10)+1)*10)*$lr);
-		$v=4500 + int(rand(1000)) if($v>4500);
-		$rank_exe++;
-		$vv=int($v/3*2);
-		$mes .= "$v ‚Ì•º—Æ‚ð‹­’D‚µA<br>‚»‚Ì‚€‚¿ $vv ‚ðŽ‚¿‹A‚è$cmp[$camp]‚Ì•º—Æ‚ÉŠ„‚è“–‚Ä‚œB<br>";
-
-		$wr_mes .="$v ‚Ì•º—Æ‚ð‹­’D‚·‚邱‚Ƃɐ¬Œ÷‚µ‚œ";
-
-		if($camp==1){
-			$cf1 += $vv;
-		}elsif($camp==2){
-			$cf2 += $vv;
-		}elsif($camp==3){
-			$cf3 += $vv;
-		}elsif($camp==4){
-			$cf4 += $vv;
-		}elsif($camp==5){
-			$cf5 += $vv;
-		}
-		if($nation==1 && $cf1>=$v){
-			$cf1 -= $v;
-		}elsif($nation==2 && $cf2>=$v){
-			$cf2 -= $v;
-		}elsif($nation==3 && $cf3>=$v){
-			$cf3 -= $v;
-		}elsif($nation==4 && $cf4>=$v){
-			$cf4 -= $v;
-		}elsif($nation==5 && $cf5>=$v){
-			$cf5 -= $v;
-		}
-		$nation=0;
-		$tm = $cmd = 0;
-		$type='';
-		&call_main_st;
-
-		&hist_write;#‘ƒƒO
-	}else{
-		$mes = "$cmp[$nation] ‚Ì ŠïPUŒ‚‚ÉŽž”s‚µ‚œ¥¥¥B<br>";
-
-		$wr_mes ="$date $cmp[$camp] ‚Ì $syogo ‚ª $cmp[$nation] ‚ÉŠïPUŒ‚‚ðs‚Á‚œ‚ªAŽž”s‚µ‚œ‚æ‚€‚Ÿ";
-
-		&gun_no;
-
-		&hist_write;#‘ƒƒO
-	}
-}
-
-#’³•ñ“à—e 1
-sub gun_tm31{
-
-	if($cmd<=0){
-		$log .= "’³•ñ‚𒆎~‚µ‚Ü‚·<br>\n";
-		$tm = $cmd = 0;
-		&mission_menu;
-	}elsif($cmd>0){
-		$v=$cmd;
-		if($v==$camp){
-			$log .= "Ž©‘‚Í’³•ñ‚Å‚«‚Ü‚¹‚ñB<br>\n";
-			$tm = $cmd = 0;
-			&mission_menu;
-		}elsif(	(($cmd==1&&$cg1<600) || ($cmd==1&&$ce1==1))||
-				(($cmd==2&&$cg2<600) || ($cmd==2&&$ce2==1))||
-				(($cmd==3&&$cg3<600) || ($cmd==3&&$ce3==1))||
-				(($cmd==4&&$cg4<600) || ($cmd==4&&$ce4==1))||
-				(($cmd==5&&$cg5<600) || ($cmd==5&&$ce5==1))){
-			$log .= "–S‘‚Ü‚œ‚́A‘‰Æ\—\\ŽZ800ˆÈ‰º‚̍‘‚𒳕ñ‚·‚邱‚Æ‚Í‚Å‚«‚Ü‚¹‚ñB\n";
-			$tm = $cmd = 0;
-			&mission_menu;
-		}elsif($v==0){
-			$log .= "<br>\n";
-			$tm = $cmd = 0;
-			&mission_menu;
-		}else{
-			$log .= "$cmp[$v]‚ÌŽ‘‹à’²’BٰĂðŠh—‚³‚¹‚Ü‚·<br>\n";
-			$log .= "’³•ñˆõ‚𑗂荞‚Ý‚Ü‚·B“G‘‘‹«‚Ü‚Å$GMWŽžŠÔ‚Å‚·<br>\n";
-
-			$nation=$v;
-			$pr=$GMT;
-			$tm=34;
-		}
-	}
-}
-#’³•ñ“à—e 2
-sub gun_tm34{
-
-	&syogo;
-
-	$vv=int(rand(3));
-	if($vv > 0){
-
-		$mes = "$cmp[$nation] ‚Ì Ž‘‹à’²’BٰĂ̊h—‚ɐ¬Œ÷I<br>$cmp[$nation] ‚©‚ç";
-
-		$wr_mes ="$date $cmp[$camp] ‚Ì $syogo ‚ª $cmp[$nation] ‚ÌŽ‘‹à’²’BٰĂðŠh—‚µA";
-
-		$v=int(((rand(5)+1)*5)*$lr);
-		$v=600 + int(rand(200)) if($v>600);
-		$rank_exe++;
-		$vv=int($v/2);
-		$mes .= "$v ‚̍‘‰Æ—\\ŽZ‚ª—¬Žž‚µ‚œI<br>‚»‚Ì‚€‚¿ $vv ‚ðŽ‚¿‹A‚è$cmp[$camp]‚̍‘‰Æ—\\ŽZ‚ÉŠ„‚è“–‚Ä‚œB<br>";
-
-		$wr_mes .="$v ‚̍‘‰Æ—\\ŽZ‚𗬎ž‚³‚¹‚邱‚Ƃɐ¬Œ÷‚µ‚œ";
-
-		if($camp==1){
-			$cg1 += $vv;
-		}elsif($camp==2){
-			$cg2 += $vv;
-		}elsif($camp==3){
-			$cg3 += $vv;
-		}elsif($camp==4){
-			$cg4 += $vv;
-		}elsif($camp==5){
-			$cg5 += $vv;
-		}
-		if($nation==1 && $cg1>=$v){
-			$cg1 -= $v;
-		}elsif($nation==2 && $cg2>=$v){
-			$cg2 -= $v;
-		}elsif($nation==3 && $cg3>=$v){
-			$cg3 -= $v;
-		}elsif($nation==4 && $cg4>=$v){
-			$cg4 -= $v;
-		}elsif($nation==5 && $cg5>=$v){
-			$cg5 -= $v;
-		}
-		$nation=0;
-		$tm = $cmd = 0;
-		$type='';
-		&call_main_st;
-
-		&hist_write;#‘ƒƒO
-	}else{
-		$mes = "$cmp[$nation] ‚Ì Ž‘‹à’²’BٰĂ̊h—‚ÉŽž”s‚µ‚œ¥¥¥B<br>";
-
-		$wr_mes ="$date $cmp[$camp] ‚Ì $syogo ‚ª $cmp[$nation] ‚ÌŽ‘‹à’²’BٰĂ̊h—‚ðô—ª‚µ‚œ‚ªAŽž”s‚µ‚œ‚æ‚€‚Ÿ";
-
-		&gun_no;
-
-		&hist_write;#‘ƒƒO
-	}
-
-}
-
-#ŒRŽ–Žž”s‚̍‘ƒXƒe[ƒ^ƒXŒž­
-sub gun_no{
-
-	$rank_exe-=5;
-
-	$tm = $cmd = 0;
-	$type='';
-	&call_main_st;
-
-	$v=int(rand(50)+1);
-	$v2=int(rand(200)+1);
-	$v3=int(rand(100)+1);
-
-	if($camp==1&&$cg1>$v&&$cf1>$v2&&$cs1>$v3){
-		$cg1 -= $v;
-		$cf1 -= $v2;
-		$cs1 -= $v3;
-	}elsif($camp==2&&$cg2>$v&&$cf2>$v2&&$cs2>$v3){
-		$cg2 -= $v;
-		$cf2 -= $v2;
-		$cs2 -= $v3;
-	}elsif($camp==3&&$cg3>$v&&$cf3>$v2&&$cs3>$v3){
-		$cg3 -= $v;
-		$cf3 -= $v2;
-		$cs3 -= $v3;
-	}elsif($camp==4&&$cg4>$v&&$cf4>$v2&&$cs4>$v3){
-		$cg4 -= $v;
-		$cf4 -= $v2;
-		$cs4 -= $v3;
-	}elsif($camp==5&&$cg51>$v&&$cf5>$v2&&$cs5>$v3){
-		$cg5 -= $v;
-		$cf5 -= $v2;
-		$cs5 -= $v3;
-	}
-}
-
-
-
-
-
-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.1
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+#군사 메뉎
+sub mission{
+
+	if(!$type){
+
+		$log .= "군사륌 싀행합니닀. 싀행할 항목을 선택핎 죌십시였.<br>\n";
+		$tm=0;
+		$type='군사';
+
+		&mission_menu;
+
+	}
+
+	&dat_write;
+}
+
+sub mission_menu{
+
+	# 군사 컀맚드
+	my @gu		 = ('귞만두Ʞ','첩볎','강탈','섞뇌');
+
+	$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|;
+	foreach(0 .. $#gu){ $log2 .=qq|<option value="$_">$gu[$_]</option>\n|;}
+	$log2 .=qq|</select><br>\n|;
+	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+}
+
+
+sub misson_menu2{
+	$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 mission_exe{
+
+	if(!$tm){
+
+		if($camp<1){
+			$log .= "방랑 상태로는 군사륌 싀행할 수 없습니닀.<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($sogo==3||$sogo==4){
+			$log .= "우선 빚을 변제하여 $sogo_p[$sogo] 낙읞을 지워 죌십시였.<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($cmd<=0 || $cmd>$#cmp){
+			$log .= "군사륌 쀑지합니닀<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($cmd==1){
+			$log .= "적국에 첩볎원을 볎낎 자ꞈ 조달 룚튞륌 교란합니닀.<br>표적 국가륌 선택핎 죌십시였<br>\n";
+			&call_mapdata if($mv_mode eq 'pc');
+			&misson_menu2;
+			$tm=31;
+		}elsif($cmd==2){
+			$log .= "적국의 군량을 강탈합니닀. 표적 국가륌 선택핎 죌십시였(큎늭컀랔 맵 지원)<br>\n";
+			&call_mapdata if($mv_mode eq 'pc');
+			&misson_menu2;
+			$tm=32;
+		}elsif($cmd==3){
+			$log .= "적국의 병사륌 섞뇌하여 자국윌로 끌얎듀입니닀.<br>표적 국가륌 선택핎 죌십시였<br>\n";
+			&call_mapdata if($mv_mode eq 'pc');
+			&misson_menu2;
+			$tm=33;
+		}
+	}elsif($tm==31){#첩볎 ë‚Žìš© 1
+		&gun_tm31;
+	}elsif($tm==32){#강탈 ë‚Žìš© 1
+		&gun_tm32;
+	}elsif($tm==33){#섞뇌 ë‚Žìš© 1
+		&gun_tm33;
+	}elsif($tm==34){#첩볎 ë‚Žìš© 2
+		&gun_tm34;
+	}elsif($tm==35){#강탈 ë‚Žìš© 2
+		&gun_tm35;
+	}elsif($tm==36){#섞뇌 ë‚Žìš© 2
+		&gun_tm36;
+	}
+
+	&write_data;
+}
+
+#섞뇌 ë‚Žìš©
+sub gun_tm33{
+
+	if($cmd<=0){
+		$log .= "섞뇌륌 쀑지합니닀<br>\n";
+		$tm = $cmd = 0;
+		&mission_menu;
+	}elsif($cmd>0){
+		$v=$cmd;
+		if($v==$camp){
+			$log .= "자국은 섞뇌할 수 없습니닀.<br>\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}elsif(	(($cmd==1&&$cs1<2500) || ($cmd==1&&$ce1==1))||
+				(($cmd==2&&$cs2<2500) || ($cmd==2&&$ce2==1))||
+				(($cmd==3&&$cs3<2500) || ($cmd==3&&$ce3==1))||
+				(($cmd==4&&$cs4<2500) || ($cmd==4&&$ce4==1))||
+				(($cmd==5&&$cs5<2500) || ($cmd==5&&$ce5==1))){
+			$log .= "망국 또는 쎝 병사 수 2500 믞만읞 국가는 섞뇌할 수 없습니닀.<br>\n";
+			$tm = $cmd = 0;
+			&misson_menu2;
+		}elsif($v==0){
+			$log .= "<br>\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}else{
+			$log .= "$cmp[$v]의 병사듀을 섞뇌합니닀.<br>\n";
+			$log .= "최멎술사륌 파견합니닀. 적국 국겜까지 $GMW 시간 낚았습니닀<br>\n";
+
+			$nation=$v;
+			$pr=$GMT;
+			$tm=36;
+		}
+	}
+}
+
+#섞뇌 ë‚Žìš© 2
+sub gun_tm36{
+
+	&syogo;
+
+	$vv=int(rand(3));
+	if($vv > 0){#성공 확률
+
+		$mes = "$cmp[$nation]의 병사듀 섞뇌에 성공했습니닀!<br>$cmp[$nation]에서";
+
+		$wr_mes ="$date $cmp[$camp]의 $syogo(읎)가 $cmp[$nation]의 병사";
+
+		$v=int(((rand(10)+1)*5)*$lr);
+		$v=2300 + int(rand(300)) if($v>2300);
+		$rank_exe++;
+		$mes .= "$v 명의 병사륌 섞뇌하여, $cmp[$camp]의 병사로 펞입시쌰습니닀.";
+
+		$wr_mes .="$v 명을 섞뇌하는 데 성공! $cmp[$camp]의 병사로 펞입시쌰습니닀";
+
+		if($camp==1){
+			$cs1 += $v;
+		}elsif($camp==2){
+			$cs2 += $v;
+		}elsif($camp==3){
+			$cs3 += $v;
+		}elsif($camp==4){
+			$cs4 += $v;
+		}elsif($camp==5){
+			$cs5 += $v;
+		}
+		if($nation==1 && $cs1>=$v){
+			$cs1 -= $v;
+		}elsif($nation==2 && $cs2>=$v){
+			$cs2 -= $v;
+		}elsif($nation==3 && $cs3>=$v){
+			$cs3 -= $v;
+		}elsif($nation==4 && $cs4>=$v){
+			$cs4 -= $v;
+		}elsif($nation==5 && $cs5>=$v){
+			$cs5 -= $v;
+		}
+		$nation=0;
+		$tm = $cmd = 0;
+		$type='';
+		&call_main_st;
+
+		&hist_write;#국가 로귞
+	}else{
+		$mes = "$cmp[$nation]의 병사듀 섞뇌에 싀팚했습니닀...";
+
+		$wr_mes ="$date $cmp[$camp]의 $syogo(읎)가 $cmp[$nation]의 병사듀 섞뇌륌 시도했윌나 싀팚한 듯하닀";
+
+		&gun_no;
+
+		&hist_write;#국가 로귞
+	}
+}
+#강탈 ë‚Žìš© 1
+sub gun_tm32{
+
+	&syogo;
+
+	if($cmd<=0){
+		$log .= "강탈을 쀑지합니닀<br>\n";
+		$tm = $cmd = 0;
+		&mission_menu;
+	}elsif($cmd>0){
+		$v=$cmd;
+		if($v==$camp){
+			$log .= "자국은 강탈할 수 없습니닀.<br>\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}elsif(	(($cmd==1&&$cf1<5000) || ($cmd==1&&$ce1==1))||
+				(($cmd==2&&$cf2<5000) || ($cmd==2&&$ce2==1))||
+				(($cmd==3&&$cf3<5000) || ($cmd==3&&$ce3==1))||
+				(($cmd==4&&$cf4<5000) || ($cmd==4&&$ce4==1))||
+				(($cmd==5&&$cf5<5000) || ($cmd==5&&$ce5==1))){
+			$log .= "망국 또는 쎝 군량 5000 믞만읞 국가는 강탈할 수 없습니닀.\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}elsif($v==0){
+			$log .= "<br>\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}else{
+			$log .= "$cmp[$v]로부터 군량을 강탈합니닀.<br>\n";
+			$log .= "Ʞ습부대륌 파견합니닀. 적국 국겜까지 $GMW 시간 낚았습니닀<br>\n";
+
+			$nation=$v;
+			$pr=$GMT;
+			$tm=35;
+		}
+	}
+}
+#강탈 ë‚Žìš© 2
+sub gun_tm35{
+
+	&syogo;
+
+	$vv=int(rand(3));
+	if($vv > 0){#성공 확률
+
+		$mes = "$cmp[$nation]에 Ʞ습 공격을 감행하여 강탈에 성공했습니닀!<br>$cmp[$nation]로부터";
+
+		$wr_mes ="$date $cmp[$camp]의 $syogo(읎)가 $cmp[$nation]에 Ʞ습 공격을 감행.";
+
+		$v=int(((rand(10)+1)*10)*$lr);
+		$v=4500 + int(rand(1000)) if($v>4500);
+		$rank_exe++;
+		$vv=int($v/3*2);
+		$mes .= "$v의 군량을 강탈하여,<br>귞쀑 $vv륌 가젞와 $cmp[$camp]의 군량윌로 펞입시쌰습니닀.<br>";
+
+		$wr_mes .="$v의 군량을 강탈하는 데 성공했닀";
+
+		if($camp==1){
+			$cf1 += $vv;
+		}elsif($camp==2){
+			$cf2 += $vv;
+		}elsif($camp==3){
+			$cf3 += $vv;
+		}elsif($camp==4){
+			$cf4 += $vv;
+		}elsif($camp==5){
+			$cf5 += $vv;
+		}
+		if($nation==1 && $cf1>=$v){
+			$cf1 -= $v;
+		}elsif($nation==2 && $cf2>=$v){
+			$cf2 -= $v;
+		}elsif($nation==3 && $cf3>=$v){
+			$cf3 -= $v;
+		}elsif($nation==4 && $cf4>=$v){
+			$cf4 -= $v;
+		}elsif($nation==5 && $cf5>=$v){
+			$cf5 -= $v;
+		}
+		$nation=0;
+		$tm = $cmd = 0;
+		$type='';
+		&call_main_st;
+
+		&hist_write;#국가 로귞
+	}else{
+		$mes = "$cmp[$nation] Ʞ습 공격에 싀팚했습니닀...<br>";
+
+		$wr_mes ="$date $cmp[$camp]의 $syogo(읎)가 $cmp[$nation]에 Ʞ습 공격을 시도했윌나 싀팚한 듯하닀";
+
+		&gun_no;
+
+		&hist_write;#국가 로귞
+	}
+}
+
+#첩볎 ë‚Žìš© 1
+sub gun_tm31{
+
+	if($cmd<=0){
+		$log .= "첩볎륌 쀑지합니닀<br>\n";
+		$tm = $cmd = 0;
+		&mission_menu;
+	}elsif($cmd>0){
+		$v=$cmd;
+		if($v==$camp){
+			$log .= "자국은 첩볎할 수 없습니닀.<br>\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}elsif(	(($cmd==1&&$cg1<600) || ($cmd==1&&$ce1==1))||
+				(($cmd==2&&$cg2<600) || ($cmd==2&&$ce2==1))||
+				(($cmd==3&&$cg3<600) || ($cmd==3&&$ce3==1))||
+				(($cmd==4&&$cg4<600) || ($cmd==4&&$ce4==1))||
+				(($cmd==5&&$cg5<600) || ($cmd==5&&$ce5==1))){
+			$log .= "망국 또는 국가 예산 800 읎하읞 국가는 첩볎할 수 없습니닀.\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}elsif($v==0){
+			$log .= "<br>\n";
+			$tm = $cmd = 0;
+			&mission_menu;
+		}else{
+			$log .= "$cmp[$v]의 자ꞈ 조달 룚튞륌 교란합니닀.<br>\n";
+			$log .= "첩볎원을 파견합니닀. 적국 국겜까지 $GMW 시간 낚았습니닀<br>\n";
+
+			$nation=$v;
+			$pr=$GMT;
+			$tm=34;
+		}
+	}
+}
+#첩볎 ë‚Žìš© 2
+sub gun_tm34{
+
+	&syogo;
+
+	$vv=int(rand(3));
+	if($vv > 0){
+
+		$mes = "$cmp[$nation]의 자ꞈ 조달 룚튞 교란에 성공했습니닀!<br>$cmp[$nation]로부터";
+
+		$wr_mes ="$date $cmp[$camp]의 $syogo(읎)가 $cmp[$nation]의 자ꞈ 조달 룚튞륌 교란하여,";
+
+		$v=int(((rand(5)+1)*5)*$lr);
+		$v=600 + int(rand(200)) if($v>600);
+		$rank_exe++;
+		$vv=int($v/2);
+		$mes .= "$v의 국가 예산읎 유출되었습니닀!<br>귞쀑 $vv륌 가젞와 $cmp[$camp]의 국가 예산윌로 펞입시쌰습니닀.<br>";
+
+		$wr_mes .="$v의 국가 예산을 유출시킀는 데 성공했닀";
+
+		if($camp==1){
+			$cg1 += $vv;
+		}elsif($camp==2){
+			$cg2 += $vv;
+		}elsif($camp==3){
+			$cg3 += $vv;
+		}elsif($camp==4){
+			$cg4 += $vv;
+		}elsif($camp==5){
+			$cg5 += $vv;
+		}
+		if($nation==1 && $cg1>=$v){
+			$cg1 -= $v;
+		}elsif($nation==2 && $cg2>=$v){
+			$cg2 -= $v;
+		}elsif($nation==3 && $cg3>=$v){
+			$cg3 -= $v;
+		}elsif($nation==4 && $cg4>=$v){
+			$cg4 -= $v;
+		}elsif($nation==5 && $cg5>=$v){
+			$cg5 -= $v;
+		}
+		$nation=0;
+		$tm = $cmd = 0;
+		$type='';
+		&call_main_st;
+
+		&hist_write;#국가 로귞
+	}else{
+		$mes = "$cmp[$nation]의 자ꞈ 조달 룚튞 교란에 싀팚했습니닀...<br>";
+
+		$wr_mes ="$date $cmp[$camp]의 $syogo(읎)가 $cmp[$nation]의 자ꞈ 조달 룚튞 교란을 획책했윌나 싀팚한 듯하닀";
+
+		&gun_no;
+
+		&hist_write;#국가 로귞
+	}
+
+}
+
+#군사 싀팚 시 국가 슀테읎터슀 감소
+sub gun_no{
+
+	$rank_exe-=5;
+
+	$tm = $cmd = 0;
+	$type='';
+	&call_main_st;
+
+	$v=int(rand(50)+1);
+	$v2=int(rand(200)+1);
+	$v3=int(rand(100)+1);
+
+	if($camp==1&&$cg1>$v&&$cf1>$v2&&$cs1>$v3){
+		$cg1 -= $v;
+		$cf1 -= $v2;
+		$cs1 -= $v3;
+	}elsif($camp==2&&$cg2>$v&&$cf2>$v2&&$cs2>$v3){
+		$cg2 -= $v;
+		$cf2 -= $v2;
+		$cs2 -= $v3;
+	}elsif($camp==3&&$cg3>$v&&$cf3>$v2&&$cs3>$v3){
+		$cg3 -= $v;
+		$cf3 -= $v2;
+		$cs3 -= $v3;
+	}elsif($camp==4&&$cg4>$v&&$cf4>$v2&&$cs4>$v3){
+		$cg4 -= $v;
+		$cf4 -= $v2;
+		$cs4 -= $v3;
+	}elsif($camp==5&&$cg5>$v&&$cf5>$v2&&$cs5>$v3){
+		$cg5 -= $v;
+		$cf5 -= $v2;
+		$cs5 -= $v3;
+	}
+}
+
+
+
+
+
+1;
diff --git a/inc/ore_sub-npc_1.cgi b/inc/ore_sub-npc_1.cgi
old mode 100644
new mode 100755
index c327364..aadff36
--- a/inc/ore_sub-npc_1.cgi
+++ b/inc/ore_sub-npc_1.cgi
@@ -1,93 +1,93 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# NPC’è‹` Version 1.0
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# NPC’è‹`(‘)
-sub ck_ne_1 {
-
-	if($nation==1){
-		@boss	=('×ÝœcŽq','žÞœÀ̘V','±ÙÆ°Äޏ«ŒR','ÌšØŏ«ŒR','—b•º‘à');# ‘‚P‚Ì‚m‚o‚b
-		@bs_lv	=(99,80,40,30,15);										# ƒŒƒxƒ‹
-		@bs_h	=(20000,18000,14000,12000,2000,100);					# Å‘啺”
-		@bs_hp	=(1000,450,300,200,100);								# Å‘å‚g‚o
-		@bs_mp	=(300,100,90,150,40);									# Å‘å‚l‚o
-		@bs_ua	=(55,80,60,45,10, 99,55,80,60,45,150,200);				# ‚t‚`
-		@bs_ud	=(50,75,30,30,5);										# ‚t‚c
-		@bs_l	=(50,75,45,30,5,99);									# ‚k‚q
-		@bs_ag	=(80,80,55,40,20);										# ‚`‚f
-
-	}elsif($nation==2){
-		@boss	=('Ž¶Ãذŏ—‰€','·ÞØÅя«ŒR','Ù°Œ±«ŒR','žÞÙ­°Ý«ŒR','—b•º‘à');
-		@bs_lv	=(99,55,40,30,15);
-		@bs_h	=(20000,18000,10000,6000,2000,100);
-		@bs_hp	=(1600,500,250,200,30);
-		@bs_mp	=(400,100,200,150,40);
-		@bs_ua	=(40,60,65,25,10);
-		@bs_ud	=(40,45,60,20,5);
-		@bs_l	=(30,65,40,20,5);
-		@bs_ag	=(70,80,50,35,25);
-
-	}elsif($nation==3){
-		@boss	=('Ô݌³ƒ','Œª°Ýº¯Ìߏ«ŒR','±¯ÃÝÎÞÛ°«ŒR','Ðݏ«ŒR','—b•º‘à');
-		@bs_lv	=(99,50,40,30,15);
-		@bs_h	=(20000,16000,12000,10000,2000,100);
-		@bs_hp	=(999,3000,150,250,30);
-		@bs_mp	=(4000,130,120,70,40);
-		@bs_ua	=(50,65,30,40,10);
-		@bs_ud	=(60,70,35,35,5);
-		@bs_l	=(75,40,35,30,5);
-		@bs_ag	=(90,40,60,40,30);
-
-	}elsif($nation==4){
-		@boss	=('c’é·Þ»ÞÛÌ','×ÝÌ«°Äޏ«ŒR','×ÝÃÞš³œ«ŒR','Ø°³Þ§œ«ŒR','—b•º‘à');
-		@bs_lv	=(99,60,40,30,15);
-		@bs_h	=(30000,18000,16000,14000,2000,100);
-		@bs_hp	=(2500,350,400,250,30);
-		@bs_mp	=(99999,150,120,70,40);
-		@bs_ua	=(60,75,60,40,10);
-		@bs_ud	=(50,60,55,50,5);
-		@bs_l	=(80,70,55,45,5);
-		@bs_ag	=(60,90,50,30,20);
-
-	}elsif($nation==5){
-		@boss	=('c’é¿Þ°Ï','ÊÞ×Óœ«ŒR','¶ÝÀÞÀ«ŒR','µÙÃÞ¶«ŒR','—b•º‘à');
-		@bs_lv	=(30,60,40,30,15);
-		@bs_h	=(50000,4000,30000,2000,10000,1000);
-		@bs_hp	=(5000,4000,3000,2000,1000);
-		@bs_mp	=(99999,150,120,70,40);
-		@bs_ua	=(60,75,60,40,10);
-		@bs_ud	=(99,60,55,50,5);
-		@bs_l	=(80,70,55,45,5);
-		@bs_ag	=(40,40,50,20,20);
-
-	}
-
-	$tnm	=$boss[$v];
-	$tsol	=$bs_h[$v];
-	$tlv	=$bs_lv[$v];
-	$thp	=$bs_hp[$v];
-	$thp_max=$bs_hp[$v];
-	$tmp	=$bs_mp[$v];
-	$tua	=$bs_ua[$v];
-	$tud	=$bs_ud[$v];
-	$tlr	=$bs_l[$v];
-	$tag	=$bs_ag[$v];
-	$tsol_lv=100;
-	$tcp	=$nation;
-
-}
-
-
-
-
-
-1;
+#-----------------------------------------------------------#
+#  죄와 벌++ 읎윚배반 										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# NPC 정의 Version 1.0
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# NPC 정의(국가)
+sub ck_ne_1 {
+
+	if($nation==1){
+		@boss	=('란슀 황자','구슀타프 옹','알니드 장군','플늬나 장군','용병대');# 국가 1의 NPC
+		@bs_lv	=(99,80,40,30,15);										# 레벚
+		@bs_h	=(20000,18000,14000,12000,2000,100);					# 최대 병사 수
+		@bs_hp	=(1000,450,300,200,100);								# 최대 HP
+		@bs_mp	=(300,100,90,150,40);									# 최대 MP
+		@bs_ua	=(55,80,60,45,10, 99,55,80,60,45,150,200);				# UA
+		@bs_ud	=(50,75,30,30,5);										# UD
+		@bs_l	=(50,75,45,30,5,99);									# LR
+		@bs_ag	=(80,80,55,40,20);										# AG
+
+	}elsif($nation==2){
+		@boss	=('에칎테늬나 여왕','Ʞ늬낚 장군','룚시아 장군','귞륜 장군','용병대');
+		@bs_lv	=(99,55,40,30,15);
+		@bs_h	=(20000,18000,10000,6000,2000,100);
+		@bs_hp	=(1600,500,250,200,30);
+		@bs_mp	=(400,100,200,150,40);
+		@bs_ua	=(40,60,65,25,10);
+		@bs_ud	=(40,45,60,20,5);
+		@bs_l	=(30,65,40,20,5);
+		@bs_ag	=(70,80,50,35,25);
+
+	}elsif($nation==3){
+		@boss	=('양 원수','쇀윔프 장군','아텐볎로 장군','믌잠 장군','용병대');
+		@bs_lv	=(99,50,40,30,15);
+		@bs_h	=(20000,16000,12000,10000,2000,100);
+		@bs_hp	=(999,3000,150,250,30);
+		@bs_mp	=(4000,130,120,70,40);
+		@bs_ua	=(50,65,30,40,10);
+		@bs_ud	=(60,70,35,35,5);
+		@bs_l	=(75,40,35,30,5);
+		@bs_ag	=(90,40,60,40,30);
+
+	}elsif($nation==4){
+		@boss	=('황제 Ʞ자로프','란포드 장군','란디우슀 장군','늬바슀 장군','용병대');
+		@bs_lv	=(99,60,40,30,15);
+		@bs_h	=(30000,18000,16000,14000,2000,100);
+		@bs_hp	=(2500,350,400,250,30);
+		@bs_mp	=(99999,150,120,70,40);
+		@bs_ua	=(60,75,60,40,10);
+		@bs_ud	=(50,60,55,50,5);
+		@bs_l	=(80,70,55,45,5);
+		@bs_ag	=(60,90,50,30,20);
+
+	}elsif($nation==5){
+		@boss	=('황제 조마','바띌몚슀 장군','칞닀타 장군','올데칎 장군','용병대');
+		@bs_lv	=(30,60,40,30,15);
+		@bs_h	=(50000,4000,30000,2000,10000,1000);
+		@bs_hp	=(5000,4000,3000,2000,1000);
+		@bs_mp	=(99999,150,120,70,40);
+		@bs_ua	=(60,75,60,40,10);
+		@bs_ud	=(99,60,55,50,5);
+		@bs_l	=(80,70,55,45,5);
+		@bs_ag	=(40,40,50,20,20);
+
+	}
+
+	$tnm	=$boss[$v];
+	$tsol	=$bs_h[$v];
+	$tlv	=$bs_lv[$v];
+	$thp	=$bs_hp[$v];
+	$thp_max=$bs_hp[$v];
+	$tmp	=$bs_mp[$v];
+	$tua	=$bs_ua[$v];
+	$tud	=$bs_ud[$v];
+	$tlr	=$bs_l[$v];
+	$tag	=$bs_ag[$v];
+	$tsol_lv=100;
+	$tcp	=$nation;
+
+}
+
+
+
+
+
+1;
diff --git a/inc/ore_sub-npc_2.cgi b/inc/ore_sub-npc_2.cgi
old mode 100644
new mode 100755
index 1c7f1a3..cdaa72e
--- a/inc/ore_sub-npc_2.cgi
+++ b/inc/ore_sub-npc_2.cgi
@@ -1,86 +1,86 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# NPC’è‹` Version 1.0
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# NPC’è‹`(鳖£é±é²)
-sub ck_ne_2 {
-
-	if($nation==1){
-		@boss	=('±ÓÝ','ÊÞ±Ù','»ÞŽÎÞœ','³Þ§¯»ºÞ','»ÐŒÞ°Å','ÏÙÊÞœ','ÌÞ«ÙÌ«°Ù');	# ‘‚P‚Ì‚m‚o‚b
-		@bs_lv	=(99,99,99,80,40,30,35);										# ƒŒƒxƒ‹
-		@bs_hp	=(6000,2000,2000,6000,900,1500,600);							# Å‘å‚g‚o
-		@bs_mp	=(6000,4000,600,1500,900,1500,400);								# Å‘å‚l‚o
-		@bs_ua	=(180,110,65,90,70,55,40);										# ‚t‚`
-		@bs_ud	=(300,99,50,75,50,30,30);										# ‚t‚c
-		@bs_l	=(120,70,95,65,50,40,35);										# ‚k‚q
-		@bs_ag	=(60,87,70,77,57,45,36);										# ‚`‚f
-
-	}elsif($nation==2){
-		@boss	=('ÊÞÙÊÞÄœ','Êß²ÓÝ','ÌÞŽÙ','žÞ²¿Ý','ŒÄØ°','ÍÞÚœ','Ú×°ŒÞ­');
-		@bs_lv	=(99,99,99,55,40,40,35);
-		@bs_hp	=(8000,1200,3000,2500,800,1000,300);
-		@bs_mp	=(8000,1600,4000,1000,800,600,800);
-		@bs_ua	=(99,300,150,130,140,80,40);
-		@bs_ud	=(99,99,80,90,60,50,20);
-		@bs_l	=(99,99,30,65,40,20,5);
-		@bs_ag	=(50,70,70,77,57,40,36);
-
-	}elsif($nation==3){
-		@boss	=('ŽØºÞ°Ù','ŸÞÊß°Ù','ÎްÚœ','ÊÞŒÑ','»Ûœ','ÌßÙ¿Ý','Ïמœ');
-		@bs_lv	=(99,99,99,50,40,35,35);
-		@bs_hp	=(4000,4000,999,3000,1200,1000,4000);
-		@bs_mp	=(4000,4000,4000,1000,1440,2100,6000);
-		@bs_ua	=(110,110,80,75,90,180,60);
-		@bs_ud	=(110,99,70,80,45,45,25);
-		@bs_l	=(110,99,85,50,45,40,25);
-		@bs_ag	=(70,80,70,80,60,40,36);
-
-	}elsif($nation==4){
-		@boss	=('²Îßœ','ÊÎÞØÑ','ÅÍÞسœ','¶°ŒÓ×Ù','ÌÞ°È','Ûɳª','ÍÞØœ');
-		@bs_lv	=(99,99,99,60,40,35,35);
-		@bs_hp	=(5000,2000,1500,1000,800,1500,500);
-		@bs_mp	=(1000,1500,5000,1000,600,900,400);
-		@bs_ua	=(99,200,60,95,100,40,50);
-		@bs_ud	=(99,99,70,60,55,60,5);
-		@bs_l	=(99,99,80,70,55,45,5);
-		@bs_ag	=(60,70,80,70,80,60,40);
-
-	}elsif($nation==5){
-		@boss	=('±œÀÛœ','Ì«Ùȳœ','̫ל','±œÓÀÞ²','¶Þ°Ìß','Ì°ÙÌ°Ù','ÏÙº·±œ');
-		@bs_lv	=(99,99,99,60,40,35,40);
-		@bs_hp	=(2000,20000,4000,3000,2000,1500,800);
-		@bs_mp	=(2000,20000,6000,1500,150,2000,4000);
-		@bs_ua	=(150,99,90,105,90,70,30);
-		@bs_ud	=(200,99,130,90,85,80,35);
-		@bs_l	=(99,110,100,85,75,35,99);
-		@bs_ag	=(60,10,50,60,70,60,40);
-	}
-
-	$tnm	=$boss[$v];
-	$tlv	=$bs_lv[$v];
-	$thp	=$bs_hp[$v];
-	$thp_max=$bs_hp[$v];
-	$tmp	=$bs_mp[$v];
-	$tua	=$bs_ua[$v];
-	$tud	=$bs_ud[$v];
-	$tlr	=$bs_l[$v];
-	$tag	=$bs_ag[$v];
-	$tsol_lv=100;
-	$tcp=$nation;
-
-}
-
-
-
-
-
-1;
+#-----------------------------------------------------------#
+#  죄와 벌++ 읎윚배반 										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# NPC 정의 Version 1.0
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# NPC 정의(읎맀망량)
+sub ck_ne_2 {
+
+	if($nation==1){
+		@boss	=('아몬','바알','자에볎슀','바사고','사믞지나','마륎바슀','발레포륎');	# 국가 1의 NPC
+		@bs_lv	=(99,99,99,80,40,30,35);										# 레벚
+		@bs_hp	=(6000,2000,2000,6000,900,1500,600);							# 최대 HP
+		@bs_mp	=(6000,4000,600,1500,900,1500,400);								# 최대 MP
+		@bs_ua	=(180,110,65,90,70,55,40);										# UA
+		@bs_ud	=(300,99,50,75,50,30,30);										# UD
+		@bs_l	=(120,70,95,65,50,40,35);										# LR
+		@bs_ag	=(60,87,70,77,57,45,36);										# AG
+
+	}elsif($nation==2){
+		@boss	=('바륎바토슀','파읎몬','부엘','구시옚','시튞늬','벚레슀','레띌지에');
+		@bs_lv	=(99,99,99,55,40,40,35);
+		@bs_hp	=(8000,1200,3000,2500,800,1000,300);
+		@bs_mp	=(8000,1600,4000,1000,800,600,800);
+		@bs_ua	=(99,300,150,130,140,80,40);
+		@bs_ud	=(99,99,80,90,60,50,20);
+		@bs_l	=(99,99,30,65,40,20,5);
+		@bs_ag	=(50,70,70,77,57,40,36);
+
+	}elsif($nation==3){
+		@boss	=('엘늬고륎','제파륎','볎티슀','바심','삎로슀','푞륎손','마띜슀');
+		@bs_lv	=(99,99,99,50,40,35,35);
+		@bs_hp	=(4000,4000,999,3000,1200,1000,4000);
+		@bs_mp	=(4000,4000,4000,1000,1440,2100,6000);
+		@bs_ua	=(110,110,80,75,90,180,60);
+		@bs_ud	=(110,99,70,80,45,45,25);
+		@bs_l	=(110,99,85,50,45,40,25);
+		@bs_ag	=(70,80,70,80,60,40,36);
+
+	}elsif($nation==4){
+		@boss	=('읎포슀','하볎늌','나베늬우슀','칎시몚랄','분','로녞베','베늬슀');
+		@bs_lv	=(99,99,99,60,40,35,35);
+		@bs_hp	=(5000,2000,1500,1000,800,1500,500);
+		@bs_mp	=(1000,1500,5000,1000,600,900,400);
+		@bs_ua	=(99,200,60,95,100,40,50);
+		@bs_ud	=(99,99,70,60,55,60,5);
+		@bs_l	=(99,99,80,70,55,45,5);
+		@bs_ag	=(60,70,80,70,80,60,40);
+
+	}elsif($nation==5){
+		@boss	=('아슀타로튞','포륎넀우슀','포띌슀','아슀몚닀읎','가프','푞륎푞륎','마륎윔시아슀');
+		@bs_lv	=(99,99,99,60,40,35,40);
+		@bs_hp	=(2000,20000,4000,3000,2000,1500,800);
+		@bs_mp	=(2000,20000,6000,1500,150,2000,4000);
+		@bs_ua	=(150,99,90,105,90,70,30);
+		@bs_ud	=(200,99,130,90,85,80,35);
+		@bs_l	=(99,110,100,85,75,35,99);
+		@bs_ag	=(60,10,50,60,70,60,40);
+	}
+
+	$tnm	=$boss[$v];
+	$tlv	=$bs_lv[$v];
+	$thp	=$bs_hp[$v];
+	$thp_max=$bs_hp[$v];
+	$tmp	=$bs_mp[$v];
+	$tua	=$bs_ua[$v];
+	$tud	=$bs_ud[$v];
+	$tlr	=$bs_l[$v];
+	$tag	=$bs_ag[$v];
+	$tsol_lv=100;
+	$tcp=$nation;
+
+}
+
+
+
+
+
+1;
diff --git a/inc/ore_sub-politics.cgi b/inc/ore_sub-politics.cgi
old mode 100644
new mode 100755
index 02f40fd..e4b761c
--- a/inc/ore_sub-politics.cgi
+++ b/inc/ore_sub-politics.cgi
@@ -1,299 +1,299 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  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.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# “à­ƒƒjƒ…[
-sub politics{
-
-	if(!$type){
-
-		if($camp<1){
-			$log .= "•ú˜Q‚̐g‚Å‚Í“à­‚͍s‚Š‚È‚¢<br>\n";
-			$tm = $cmd = 0;
-			&call_main_st;
-
-		}else{
-
-			$log .= "“à­‚ðs‚¢‚Ü‚·BŽÀs‚·‚é‚à‚Ì‚ð‘I‚ñ‚ʼnº‚³‚¢<br>\n";
-			$tm=0;
-			$type='“à­';
-
-			&politics_menu;
-
-			&dat_write;
-		}
-	}
-}
-
-sub politics_menu{
-	# “à­ƒRƒ}ƒ“ƒh
-	my @hm	= ('‚â‚ß‚é','”_‹Æ','€‹Æ','’¥•º','•º‚ðŒP—û‚·‚é');
-
-	$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|;
-	foreach(0 .. $#hm){ $log2 .= "<option value=$_>$hm[$_]</option>\n";}
-	$log2 .=qq|</select><br>\n|;
-	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-}
-
-#-------------------------------------------------------------------------------
-# “à­ˆ—
-sub politics_exe{
-
-	if(!$tm){
-
-		if($cmd<=0){
-			$log .= "‚ ‚Ƃōs‚€‚±‚Æ‚É‚µ‚œB<br>\n";
-			$tm = $cmd = 0;
-			$type='';
-			&call_main_st;
-
-		# ”_‹Æ
-		}elsif($cmd==1){
-
-			# s“®ƒJƒEƒ“ƒg‚̃ŠƒZƒbƒg(–³ðŒ)
-			$act_cnt=0;
-
-			$log .= "”_‹Æ‚ðs‚¢‚Ü‚·BŒ‹‰Ê‚Í$GMWŽžŠÔŒãB<br>\n";
-			$v=int(((rand(10)+1)*100)*$lr);
-			$v=9999 if($v>9999);
-			$tm=25;
-			$rank_exe++;
-			$pr=$GMT;
-	
-			if($camp==1){
-				$cf1 += $v;
-			}elsif($camp==2){
-				$cf2 += $v;
-			}elsif($camp==3){
-				$cf3 += $v;
-			}elsif($camp==4){
-				$cf4 += $v;
-			}elsif($camp==5){
-				$cf5 += $v;
-			}
-			$mes = "$v ‚Ì•º—Æ‚ð“Ÿ‚œ";
-
-			$tm=50;
-
-		# €‹Æ
-		}elsif($cmd==2){
-
-			# s“®ƒJƒEƒ“ƒg‚̃ŠƒZƒbƒg(–³ðŒ)
-			$act_cnt=0;
-
-			$log .= "€‹Æ‚ðs‚¢‚Ü‚·BŒ‹‰Ê‚Í$GMWŽžŠÔŒãB<br>\n";
-			$v=int(((rand(10)+1)*15)*$lr);#Å‰‚Í$v=int(((rand(10)+1)*10)*$lr);
-			$v=999 if($v>999);
-			$tm=25;
-			$rank_exe++;
-			$pr=$GMT;
-	
-			if($camp==1){
-				$cg1 += $v;
-			}elsif($camp==2){
-				$cg2 += $v;
-			}elsif($camp==3){
-				$cg3 += $v;
-			}elsif($camp==4){
-				$cg4 += $v;
-			}elsif($camp==5){
-				$cg5 += $v;
-			}
-			$mes = "$v G ‘‰Æ—\\ŽZ‚ª‘‚Š‚œ";
-
-			$tm=50;
-
-		# ’¥•º-1
-		}elsif($cmd==3){
-			$log .= "’¥•º‚ðŽÀs‚µ‚Ü‚·‚©H•º 1 l‚ɂ‚« 1 G•K—v‚Å‚·<br>\n";
-			$tm=15;
-
-			$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|;
-			$log2 .=qq|<option value="1">çl</option>\n|;
-			$log2 .=qq|<option value="2">ŒÜçl</option>\n|;
-			$log2 .=qq|<option value="3">ˆê–œl</option>\n|;
-			$log2 .=qq|</select><br>\n|;
-			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-		# •º‚ðŒP—û‚·‚é
-		}elsif($cmd==4){
-
-			if($my_cs<1){
-				$log .= "•º‚ª‚¢‚Ü‚¹‚ñ<br>\n";
-				$tm = $cmd = 0;
-				&politics_menu;
-			}elsif($sol_lv>99){
-				$log .= "ŒP—û“x‚Í‚±‚êˆÈã‚ ‚ª‚è‚Ü‚¹‚ñ<br>\n";
-				$tm = $cmd = 0;
-				&politics_menu;
-			}else{
-
-				# s“®ƒJƒEƒ“ƒg‚̃ŠƒZƒbƒg(ŒÀŠEŽž‚Ì‚Ý)
-				$act_cnt=0 if($act_cnt>$act_cnt_limit);
-
-				$log .= "•º‚ÌŒP—û‚ðs‚È‚¢‚Ü‚·<br>\n";
-				$pr=int($GMT/2);
-				$x = int($lr/2);
-				if($x<1){
-					$x=1;
-			}
-				$v = int((rand(20))+$x);
-				$sol_lv += $v;
-				if($sol_lv>100){
-					$sol_lv=100;
-				}
-				$mes = "ŒP—û“x‚ª $v ãž‚µ‚œ";
-				$tm=50;
-			}
-		}
-
-	# ’¥•º-2
-	}elsif($tm==15){
-
-		$z=$g_p[$rank]-$sol;
-		if($cmd<=0){
-			$log .= "‚ ‚Ƃōs‚€‚±‚Æ‚É‚µ‚œB<br>\n";
-			$tm = $cmd = 0;
-			&politics_menu;
-		}elsif($cmd==1){
-
-			# s“®ƒJƒEƒ“ƒg‚̃ŠƒZƒbƒg(–³ðŒ)
-			$act_cnt=0;
-
-			$log .= "Å‘åçl‹K–Í‚Ì’¥•º‚ðŽÀs‚µ‚Ü‚·BŒ‹‰Ê‚Í$GMWŽžŠÔŒã‚É<br>\n";
-			$S = int(((rand(50))+100)*$lr);
-			$S = 1000 if($S>1000);
-			$rank_exe++;
-
-			if($S<$gold){
-				$gold-=$S;
-			}elsif($gold<$S){
-				$S=$gold;
-				$gold=0;
-			}
-
-			if($camp==1){
-				$cs1+=$S;
-			}elsif($camp==2){
-				$cs2+=$S;
-			}elsif($camp==3){
-				$cs3+=$S;
-			}elsif($camp==4){
-				$cs4+=$S;
-			}elsif($camp==5){
-				$cs5+=$S;
-			}
-
-			$mes = "$S l‚Ì•º‚ªW‚Ü‚Á‚œ";
-			$pr=$GMT;
-			$tm=50;
-		}elsif($cmd==2){
-
-			# s“®ƒJƒEƒ“ƒg‚̃ŠƒZƒbƒg(–³ðŒ)
-			$act_cnt=0;
-
-			$log .= "Å‘åŒÜçl‹K–Í‚Ì’¥•º‚ðŽÀs‚µ‚Ü‚·BŒ‹‰Ê‚Í$GMWŽžŠÔŒã‚É<br>\n";
-			$S = int(((rand(50))+100)*$lr);
-			$S = 5000 if($S>5000);
-			$rank_exe+=int(rand(2)+1);
-
-			if($S<$gold){
-				$gold-=$S;
-			}elsif($gold<$S){
-				$S=$gold;
-				$gold=0;
-			}
-
-			if($camp==1){
-				$cs1+=$S;
-			}elsif($camp==2){
-				$cs2+=$S;
-			}elsif($camp==3){
-				$cs3+=$S;
-			}elsif($camp==4){
-				$cs4+=$S;
-			}elsif($camp==5){
-				$cs5+=$S;
-			}
-
-			$mes = "$S l‚Ì•º‚ªW‚Ü‚Á‚œ";
-			$pr=$GMT;
-			$tm=50;
-		}elsif($cmd==3){
-
-			# s“®ƒJƒEƒ“ƒg‚̃ŠƒZƒbƒg(–³ðŒ)
-			$act_cnt=0;
-
-			$log .= "Å‘åˆê–œl‹K–Í‚Ì’¥•º‚ðŽÀs‚µ‚Ü‚·BŒ‹‰Ê‚Í$GMWŽžŠÔŒã‚É<br>\n";
-			$S = int(((rand(50))+100)*$lr);
-			$S = 10000 if($S>10000);
-			$rank_exe+=int(rand(3)+1);
-
-			if($S<$gold){
-				$gold-=$S;
-			}elsif($gold<$S){
-				$S=$gold;
-				$gold=0;
-			}
-
-			if($camp==1){
-				$cs1+=$S;
-			}elsif($camp==2){
-				$cs2+=$S;
-			}elsif($camp==3){
-				$cs3+=$S;
-			}elsif($camp==4){
-				$cs4+=$S;
-			}elsif($camp==5){
-				$cs5+=$S;
-			}
-
-			$mes = "$S l‚Ì•º‚ªW‚Ü‚Á‚œ";
-			$pr=$GMT;
-			$tm=50;
-		}
-	}
-
-	# “à­‚̏I—¹(Œ÷˜J‹àŽö—^)
-	elsif($tm==50){
-		if($rank > 7 && $sogo!=3 && $sogo!=4){#à€ˆó‚Í–³Œø‰»
-			$gold += $v = $rank * 200;
-			$log .= "¡‚Ü‚Å‚ÌŒ÷Ñ‚ª”F‚ß‚ç‚ꍑ‚æ‚è $v ‚f‚ÌŒ÷˜J‹à‚ð‚à‚ç‚Á‚œB<br>\n";
-		}
-		$tm = $cmd = 0;
-		$type="";
-		&call_main_st;
-	}
-	# “à­‚̏I—¹(Œ÷˜J‹à‚È‚µ)
-	elsif($tm==55){
-		$tm = $cmd = 0;
-		$type="";
-		&call_main_st;
-	}
-
-	&write_data;
-
-}
-
-
-
-
-
-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 politics{
+
+	if(!$type){
+
+		if($camp<1){
+			$log .= "방랑 상태로는 낎정을 할 수 없습니닀<br>\n";
+			$tm = $cmd = 0;
+			&call_main_st;
+
+		}else{
+
+			$log .= "낎정을 싀행합니닀. 싀행할 항목을 선택핎 죌십시였<br>\n";
+			$tm=0;
+			$type='ë‚Žì •';
+
+			&politics_menu;
+
+			&dat_write;
+		}
+	}
+}
+
+sub politics_menu{
+	# ë‚Žì • 컀맚드
+	my @hm	= ('귞만두Ʞ','농업','상업','징병','병사 훈령');
+
+	$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|;
+	foreach(0 .. $#hm){ $log2 .= "<option value=$_>$hm[$_]</option>\n";}
+	$log2 .=qq|</select><br>\n|;
+	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+# ë‚Žì • 처늬
+sub politics_exe{
+
+	if(!$tm){
+
+		if($cmd<=0){
+			$log .= "나쀑에 하Ʞ로 했닀.<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+
+		# 농업
+		}elsif($cmd==1){
+
+			# 행동 칎욎튞 늬셋(묎조걎)
+			$act_cnt=0;
+
+			$log .= "농업을 싀행합니닀. 결곌는 $GMW시간 후에 나옵니닀.<br>\n";
+			$v=int(((rand(10)+1)*100)*$lr);
+			$v=9999 if($v>9999);
+			$tm=25;
+			$rank_exe++;
+			$pr=$GMT;
+	
+			if($camp==1){
+				$cf1 += $v;
+			}elsif($camp==2){
+				$cf2 += $v;
+			}elsif($camp==3){
+				$cf3 += $v;
+			}elsif($camp==4){
+				$cf4 += $v;
+			}elsif($camp==5){
+				$cf5 += $v;
+			}
+			$mes = "$v 의 군량을 획득했습니닀";
+
+			$tm=50;
+
+		# 상업
+		}elsif($cmd==2){
+
+			# 행동 칎욎튞 늬셋(묎조걎)
+			$act_cnt=0;
+
+			$log .= "상업을 싀행합니닀. 결곌는 $GMW시간 후에 나옵니닀.<br>\n";
+			$v=int(((rand(10)+1)*15)*$lr);#처음에는 $v=int(((rand(10)+1)*10)*$lr);
+			$v=999 if($v>999);
+			$tm=25;
+			$rank_exe++;
+			$pr=$GMT;
+	
+			if($camp==1){
+				$cg1 += $v;
+			}elsif($camp==2){
+				$cg2 += $v;
+			}elsif($camp==3){
+				$cg3 += $v;
+			}elsif($camp==4){
+				$cg4 += $v;
+			}elsif($camp==5){
+				$cg5 += $v;
+			}
+			$mes = "$v G 국가 예산읎 슝가했습니닀";
+
+			$tm=50;
+
+		# 징병-1
+		}elsif($cmd==3){
+			$log .= "징병을 싀행하시겠습니까? 병사 1명당 1 G가 필요합니닀<br>\n";
+			$tm=15;
+
+			$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|;
+			$log2 .=qq|<option value="1">천 명</option>\n|;
+			$log2 .=qq|<option value="2">였천 명</option>\n|;
+			$log2 .=qq|<option value="3">만 명</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		# 병사 훈령
+		}elsif($cmd==4){
+
+			if($my_cs<1){
+				$log .= "병사가 없습니닀<br>\n";
+				$tm = $cmd = 0;
+				&politics_menu;
+			}elsif($sol_lv>99){
+				$log .= "훈령도는 더 읎상 였륎지 않습니닀<br>\n";
+				$tm = $cmd = 0;
+				&politics_menu;
+			}else{
+
+				# 행동 칎욎튞 늬셋(한계 시에만)
+				$act_cnt=0 if($act_cnt>$act_cnt_limit);
+
+				$log .= "병사 훈렚을 싀행합니닀<br>\n";
+				$pr=int($GMT/2);
+				$x = int($lr/2);
+				if($x<1){
+					$x=1;
+			}
+				$v = int((rand(20))+$x);
+				$sol_lv += $v;
+				if($sol_lv>100){
+					$sol_lv=100;
+				}
+				$mes = "훈렚도가 $v 상승했습니닀";
+				$tm=50;
+			}
+		}
+
+	# 징병-2
+	}elsif($tm==15){
+
+		$z=$g_p[$rank]-$sol;
+		if($cmd<=0){
+			$log .= "나쀑에 하Ʞ로 했닀.<br>\n";
+			$tm = $cmd = 0;
+			&politics_menu;
+		}elsif($cmd==1){
+
+			# 행동 칎욎튞 늬셋(묎조걎)
+			$act_cnt=0;
+
+			$log .= "최대 천 명 규몚의 징병을 싀행합니닀. 결곌는 $GMW시간 후에<br>\n";
+			$S = int(((rand(50))+100)*$lr);
+			$S = 1000 if($S>1000);
+			$rank_exe++;
+
+			if($S<$gold){
+				$gold-=$S;
+			}elsif($gold<$S){
+				$S=$gold;
+				$gold=0;
+			}
+
+			if($camp==1){
+				$cs1+=$S;
+			}elsif($camp==2){
+				$cs2+=$S;
+			}elsif($camp==3){
+				$cs3+=$S;
+			}elsif($camp==4){
+				$cs4+=$S;
+			}elsif($camp==5){
+				$cs5+=$S;
+			}
+
+			$mes = "$S 명의 병사가 몚였습니닀";
+			$pr=$GMT;
+			$tm=50;
+		}elsif($cmd==2){
+
+			# 행동 칎욎튞 늬셋(묎조걎)
+			$act_cnt=0;
+
+			$log .= "최대 였천 명 규몚의 징병을 싀행합니닀. 결곌는 $GMW시간 후에<br>\n";
+			$S = int(((rand(50))+100)*$lr);
+			$S = 5000 if($S>5000);
+			$rank_exe+=int(rand(2)+1);
+
+			if($S<$gold){
+				$gold-=$S;
+			}elsif($gold<$S){
+				$S=$gold;
+				$gold=0;
+			}
+
+			if($camp==1){
+				$cs1+=$S;
+			}elsif($camp==2){
+				$cs2+=$S;
+			}elsif($camp==3){
+				$cs3+=$S;
+			}elsif($camp==4){
+				$cs4+=$S;
+			}elsif($camp==5){
+				$cs5+=$S;
+			}
+
+			$mes = "$S 명의 병사가 몚였습니닀";
+			$pr=$GMT;
+			$tm=50;
+		}elsif($cmd==3){
+
+			# 행동 칎욎튞 늬셋(묎조걎)
+			$act_cnt=0;
+
+			$log .= "최대 만 명 규몚의 징병을 싀행합니닀. 결곌는 $GMW시간 후에<br>\n";
+			$S = int(((rand(50))+100)*$lr);
+			$S = 10000 if($S>10000);
+			$rank_exe+=int(rand(3)+1);
+
+			if($S<$gold){
+				$gold-=$S;
+			}elsif($gold<$S){
+				$S=$gold;
+				$gold=0;
+			}
+
+			if($camp==1){
+				$cs1+=$S;
+			}elsif($camp==2){
+				$cs2+=$S;
+			}elsif($camp==3){
+				$cs3+=$S;
+			}elsif($camp==4){
+				$cs4+=$S;
+			}elsif($camp==5){
+				$cs5+=$S;
+			}
+
+			$mes = "$S 명의 병사가 몚였습니닀";
+			$pr=$GMT;
+			$tm=50;
+		}
+	}
+
+	# ë‚Žì • 종료(공로ꞈ 수여)
+	elsif($tm==50){
+		if($rank > 7 && $sogo!=3 && $sogo!=4){#낙읞은 묎횚화
+			$gold += $v = $rank * 200;
+			$log .= "지ꞈ까지의 공적을 읞정받아 국가로부터 $v G의 공로ꞈ을 받았습니닀.<br>\n";
+		}
+		$tm = $cmd = 0;
+		$type="";
+		&call_main_st;
+	}
+	# ë‚Žì • 종료(공로ꞈ 없음)
+	elsif($tm==55){
+		$tm = $cmd = 0;
+		$type="";
+		&call_main_st;
+	}
+
+	&write_data;
+
+}
+
+
+
+
+
+1;
diff --git a/inc/ore_sub-shop-lotto.cgi b/inc/ore_sub-shop-lotto.cgi
old mode 100644
new mode 100755
index f9f8721..95302be
--- a/inc/ore_sub-shop-lotto.cgi
+++ b/inc/ore_sub-shop-lotto.cgi
@@ -1,149 +1,149 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  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.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# •ó‚­‚¶ˆ—
-sub lotto{
-
-	if($tm==90){
-		if($cmd<=0){
-			$log .= "‚Ü‚œ‚š‰z‚µ‚­‚Ÿ‚³‚¢c<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($cmd==1){
-			$S = 500;
-			if($S < $gold){
-				$gold -= $S;
-				$log .= "ŒÜ•S‚f‚ðŽx•¥‚Á‚œc<br>‚³‚Ÿ“–‚œ‚Á‚œ‚©‚ȁ`H<br>\n";
-				$tm=95;
-
-				$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|;
-
-			}else{
-				$log .= "‚š‹à‚ª‘«‚è‚È‚¢‚æ! ÀÀނ¶‚á–²‚à”ƒ‚Š‚È‚¢‚±‚ÌŒ»ŽÀ¥¥¥<br>\n";
-				$tm = $cmd = 0;
-				&shop_menu;
-			}
-		}
-	}elsif($tm==95){ # •ó‚­‚¶ˆ—
-
-		my $dh =int(rand(450)) ;
-		if($dh == 0){
-			$gold += 100000;
-			$log .="ÄÞÝÄÞÝË­°Ë­°ÊßÌÊß́ô<br>ˆë“™Ü‚ª“–‚œ‚Á‚œ!!!<br>$nm ‚Í \\\–œ\‚f‚ðŠl“Ÿ‚µ‚œ!<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($dh > 0 && $dh <= 2){
-			$gold += 50000;
-			$log .="ÄÞÝÄÞÝË­°Ë­°ÊßÌÊß́ô<br>“󓙏܂ª“–‚œ‚Á‚œ!!!<br>$nm ‚Í ŒÜ–œ‚f‚ðŠl“Ÿ‚µ‚œ!<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($dh > 10 && $dh <= 20){
-			$gold += 10000;
-			$log .="ÄÞÝÄÞÝË­°Ë­°ÊßÌÊß́ô<br>ŽQ“™Ü‚ª“–‚œ‚Á‚œ!!!<br>$nm ‚Í ˆë–œ‚f‚ðŠl“Ÿ‚µ‚œ!<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($dh > 20 && $dh <= 60){
-			$gold += 1000;
-			$log .="ÄÞÝÄÞÝË­°Ë­°ÊßÌÊß́ô<br>Žl“™Ü‚ª“–‚œ‚Á‚œ!!!<br>$nm ‚Í ˆëç‚f‚ðŠl“Ÿ‚µ‚œ!<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($dh == 447){
-			$dh =int(rand(2)) ;
-			if($dh){
-				$hp = $max_hp;
-				$log .="ÄÞÝÄÞÝË­°Ë­°ÊßÌÊß́ô<br>K‰^Ü‚ª“–‚œ‚Á‚œ!!!<br>$nm ‚Í HP ‚ª‘S‰ñ•œ‚µ‚œ!<br>\n";
-			}else{
-				$mp = $max_mp;
-				$log .="ÄÞÝÄÞÝË­°Ë­°ÊßÌÊß́ô<br>K‰^Ü‚ª“–‚œ‚Á‚œ!!!<br>$nm ‚Í MP ‚ª‘S‰ñ•œ‚µ‚œ!<br>\n";
-			}
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($dh == 448){
-			$dh =int(rand(2)) ;
-			if($dh){
-				$hp = int($hp/2);
-				$log .="¶Þ°°Ý!!@@•sKÜ‚ª“–‚œ‚Á‚Ä‚µ‚Ü‚Á‚œ¥¥¥B<br>$nm ‚Í HP ‚ª”Œ•ª‚É‚È‚Á‚œ¥¥¥B<br>\n";
-			}else{
-				$mp = int($mp/2);
-				$log .="¶Þ°°Ý!!@@•sKÜ‚ª“–‚œ‚Á‚Ä‚µ‚Ü‚Á‚œ¥¥¥B<br>$nm ‚Í MP ‚ª”Œ•ª‚É‚È‚Á‚œ¥¥¥B<br>\n";
-			}
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($dh == 449){#$dh == 449
-			$dh =int(rand(5)) ;
-			if($dh==0){
-				$log .="‚š[‚Á‚Æ!!@–Å‘œ‚É“–‚œ‚ç‚È‚¢$dg_data[1][1]‚ª“–‚œ‚Á‚œ!!<br><br>‘•”õ‚·‚éê‡AŒ»ÝŠŽ‚µ‚Ä‚¢‚镐‹ï‚Í”jŠü‚³‚ê‚Ü‚·B<br>‚Ç‚€‚µ‚Ü‚·‚©H<br>\n";
-				$tm = 100;
-
-				$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="1">Žó‚¯Žæ‚é</option><option value="0">‚¢‚ç‚È‚¢</option>\n|;
-				$log2 .=qq|</select><br>\n|;
-				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-			}elsif($dh==1){
-				$log .="‚š[‚Á‚Æ!!@–Å‘œ‚É“–‚œ‚ç‚È‚¢$df_data[1][1]‚ª“–‚œ‚Á‚œ!!<br><br>‘•”õ‚·‚éê‡AŒ»ÝŠŽ‚µ‚Ä‚¢‚é–h‹ï‚Í”jŠü‚³‚ê‚Ü‚·B<br>‚Ç‚€‚µ‚Ü‚·‚©H<br>\n";
-				$tm = 115;
-
-				$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="1">Žó‚¯Žæ‚é</option><option value="0">‚¢‚ç‚È‚¢</option>\n|;
-				$log2 .=qq|</select><br>\n|;
-				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-			}else{
-				$log .= "ŠO‚ê‚œ¥¥¥@‚Ü‚œ’§í‚µ‚Ä‚­‚Ÿ‚³‚¢ƒlƒFô<br>\n";
-				$tm = $cmd = 0;
-				&shop_menu;
-			}
-		}else{
-			$log .= "ŠO‚ê‚œ¥¥¥@‚Ü‚œ’§í‚µ‚Ä‚­‚Ÿ‚³‚¢ƒlƒFô<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}
-
-	}elsif($tm==100){#•ó‚­‚¶ ß”±Üˆ—
-		if($cmd){
-			$log .="$nm ‚Í <b>$dg_data[1][1]</b>‚ðŽè‚É“ü‚ê‚œ!!<br>\n";
-			$dg_a = 1;
-			$dg_cnt = $dg_data[1][3];
-		}else{
-			$log .="$nm ‚Í —Ü‚ð‚µ‚Ì‚ñ‚Å’ú‚ß‚œ¥¥¥¥¥¥\n";
-		}
-		$tm = $cmd = 0;
-		&shop_menu;
-	}elsif($tm==115){#•ó‚­‚¶ ß”±Üˆ—
-		if($cmd){
-			$log .="$nm ‚Í <b>$df_data[1][1]</b>‚ðŽè‚É“ü‚ê‚œ!!<br>\n";
-			$df_a = 1;
-			$df_cnt = $df_data[1][3];
-		}else{
-			$log .="$nm ‚Í —Ü‚ð‚µ‚Ì‚ñ‚Å’ú‚ß‚œ¥¥¥¥¥¥\n";
-		}
-		$tm = $cmd = 0;
-		&shop_menu;
-	}
-}
-
-
-
-
-
-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 lotto{
+
+	if($tm==90){
+		if($cmd<=0){
+			$log .= "또 였섞요 <br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){
+			$S = 500;
+			if($S < $gold){
+				$gold -= $S;
+				$log .= "500 G륌 지불했습니닀 <br>자, 당첚되었윌렀나~?<br>\n";
+				$tm=95;
+
+				$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|;
+
+			}else{
+				$log .= "돈읎 부족핎요! 공짜로는 꿈도 ì‚Ž 수 없는 읎 현싀 <br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}
+		}
+	}elsif($tm==95){ # 복권 처늬
+
+		my $dh =int(rand(450)) ;
+		if($dh == 0){
+			$gold += 100000;
+			$log .="둥둥둥둥 빰빰빰빠♪<br>1등상에 당첚되었닀!!!<br>$nm 님은 10만 G륌 획득했닀!<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($dh > 0 && $dh <= 2){
+			$gold += 50000;
+			$log .="둥둥둥둥 빰빰빰빠♪<br>2등상에 당첚되었닀!!!<br>$nm 님은 5만 G륌 획득했닀!<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($dh > 10 && $dh <= 20){
+			$gold += 10000;
+			$log .="둥둥둥둥 빰빰빰빠♪<br>3등상에 당첚되었닀!!!<br>$nm 님은 1만 G륌 획득했닀!<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($dh > 20 && $dh <= 60){
+			$gold += 1000;
+			$log .="둥둥둥둥 빰빰빰빠♪<br>4등상에 당첚되었닀!!!<br>$nm 님은 1천 G륌 획득했닀!<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($dh == 447){
+			$dh =int(rand(2)) ;
+			if($dh){
+				$hp = $max_hp;
+				$log .="둥둥둥둥 빰빰빰빠♪<br>행욎상에 당첚되었닀!!!<br>$nm 님은 HP가 몚두 회복되었닀!<br>\n";
+			}else{
+				$mp = $max_mp;
+				$log .="둥둥둥둥 빰빰빰빠♪<br>행욎상에 당첚되었닀!!!<br>$nm 님은 MP가 몚두 회복되었닀!<br>\n";
+			}
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($dh == 448){
+			$dh =int(rand(2)) ;
+			if($dh){
+				$hp = int($hp/2);
+				$log .="쟅~!! 불행상에 당첚되얎 버렞닀 <br>$nm 님은 HP가 절반읎 되었닀 <br>\n";
+			}else{
+				$mp = int($mp/2);
+				$log .="쟅~!! 불행상에 당첚되얎 버렞닀 <br>$nm 님은 MP가 절반읎 되었닀 <br>\n";
+			}
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($dh == 449){#$dh == 449
+			$dh =int(rand(5)) ;
+			if($dh==0){
+				$log .="였옷!! 좀처럌 당첚되지 않는 $dg_data[1][1]읎(가) 당첚되었닀!!<br><br>장착할 겜우, 현재 소지하고 있는 묎Ʞ는 파Ʞ됩니닀.<br>얎떻게 하시겠습니까?<br>\n";
+				$tm = 100;
+
+				$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="1">받는닀</option><option value="0">필요 없닀</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+			}elsif($dh==1){
+				$log .="였옷!! 좀처럌 당첚되지 않는 $df_data[1][1]읎(가) 당첚되었닀!!<br><br>장착할 겜우, 현재 소지하고 있는 방얎구는 파Ʞ됩니닀.<br>얎떻게 하시겠습니까?<br>\n";
+				$tm = 115;
+
+				$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="1">받는닀</option><option value="0">필요 없닀</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+			}else{
+				$log .= "ꜝ  닀음 Ʞ회에 또 도전핎 죌섞요♪<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}
+		}else{
+			$log .= "ꜝ  닀음 Ʞ회에 또 도전핎 죌섞요♪<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}
+
+	}elsif($tm==100){#복권 죄벌상 처늬
+		if($cmd){
+			$log .="$nm 님은 <b>$dg_data[1][1]</b>을(륌) 손에 넣었닀!!<br>\n";
+			$dg_a = 1;
+			$dg_cnt = $dg_data[1][3];
+		}else{
+			$log .="$nm 님은 눈묌을 뚞ꞈ고 포Ʞ했닀  \n";
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+	}elsif($tm==115){#복권 죄벌상 처늬
+		if($cmd){
+			$log .="$nm 님은 <b>$df_data[1][1]</b>을(륌) 손에 넣었닀!!<br>\n";
+			$df_a = 1;
+			$df_cnt = $df_data[1][3];
+		}else{
+			$log .="$nm 님은 눈묌을 뚞ꞈ고 포Ʞ했닀  \n";
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+	}
+}
+
+
+
+
+
+1;
diff --git a/inc/ore_sub-shop-medical.cgi b/inc/ore_sub-shop-medical.cgi
old mode 100644
new mode 100755
index e74c768..f5335c1
--- a/inc/ore_sub-shop-medical.cgi
+++ b/inc/ore_sub-shop-medical.cgi
@@ -1,122 +1,122 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# f—ÏŠƒp[ƒc Version 1.1
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# f—ÏŠ
-sub medical{
-
-	if($tm==120){
-
-		if($cmd<=0){
-			$log .= "‚Ü‚œ‚š‰z‚µ‚­‚Ÿ‚³‚¢c<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-
-		# Ž¡—Ã-1
-		}elsif($cmd==1){
-
-			$S = ($lv < 50) ? $lv*2000 : 100000;
-			$log .= "c‚±‚±‚ł͌Â̔ép‚É‚æ‚Á‚Ä‘Ì—Í‚Æ–‚—Í‚ð<br>uŽž‚É‘S‰õ‚܂ʼnñ•œ‚µ‚Ä‚³‚µ‚ ‚°‚ç‚ê‚Ü‚·<br>c‚œ‚Ÿ‚µ$S‚f\’ž‚«‚Ü‚·‚ªc<br>\n";
-			$tm=125;
-
-			$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|;
-			$log2 .=qq|<option value=1>Ž¡—Ã</option>\n|;
-			$log2 .=qq|</select><br>\n|;
-			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-		# «“]Š·-1
-		}elsif($cmd==2){
-
-			$log.="‚±‚±‚ł͐«“]Š·Žèp‚ðŽó‚¯‚ç‚ê‚Ü‚·B<br>‚œ‚Ÿ‚µ“ü‰@‚ÆŽèp”ï‚É20–œG ‚Ù‚Ç‚©‚©‚è‚Ü‚·‚ª¥¥¥<br>";
-			$tm=135;
-	
-			$log2 .= qq|<form action="$script" method="$method" name="ore_">|;
-			$log2 .= qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
-			$log2 .= qq|<input type="hidden" name="id" value="$id">\n|;
-			$log2 .= qq|<input type="hidden" name="pw" value="$pw">\n|;
-			$log2 .= qq|<select name="cmd">\n|;
-	
-			$log2 .= qq|<option value="0">“Š‚°‚é</option>\n|;
-			$log2 .= ($sei==1) ?
-				qq|<option value="3">—‚É‚È‚é</option>\n|:
-				qq|<option value="3">’j‚É‚È‚é</option>\n|;
-	
-			$log2 .= qq|</select><br>\n|;
-			$log2 .= qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-		}
-
-	# Ž¡—Ã-2
-	}elsif($tm==125){
-
-		if($cmd<=0){
-			$log .= "$nm ‚Í—§‚¿‹Ž‚Á‚œB<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}else{
-			$S = ($lv < 50) ? $lv*2000 : 100000;
-			if($S < $gold){
-				$hp = $max_hp;
-				$mp = $max_mp;
-				$gold -= $S;
-				$log .= "$S‚f‚ðŽx•¥‚Á‚œc<br>‘Ì—Í‚Æ–‚—Í‚ª‘S‰ñ•œ‚µ‚œB<br>\n";
-				$tm = $cmd = 0;
-				&shop_menu;
-			}else{
-				$log .= "‚š‹à‚ª‘«‚è‚È‚¢‚íc<br>\n";
-				$tm=0;
-				&shop_menu;
-			}
-		}
-
-	# «“]Š·-2
-	}elsif($tm==135){
-
-		if($cmd<=0){
-			$log .= "$nm ‚͉œŽ–‚à–³‚©‚Á‚œ‚æ‚€‚É—§‚¿‹Ž‚Á‚œB<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}else{
-			if($gold>=200000){
-	
-				$gold-=200000;
-				$log.="µÍ߂ðŠJŽn‚µ‚Ü‚·B–ÚŠo‚ß‚é‚Æ‚»‚±‚͕ʐ¢ŠE‚É‚È‚Á‚Ä‚¢‚邱‚Æ‚Å‚µ‚å‚€B<br>";
-				$pr=$GMT*8;
-	
-				if($sei==1){
-					$sei=2;
-					$sei2="—«";
-				}else{
-					$sei=1;
-					$sei2="’j«";
-				}
-				$mes.= qq|–ƒŒ‚©‚ç–Ú‚ðŠo‚Ü‚µ‚œB$nm ‚Í $sei2 ‚É‚È‚Á‚œB|;
-				$tm = $cmd = 0;
-				$type='';
-				&call_main_st;
-			}else{
-				$log2.="‚š‹à‚ª‘«‚è‚Ü‚¹‚ñB";
-				$tm = $cmd = 0;
-				&shop_menu;
-			}
-		}
-	}
-}
-
-
-
-
-
-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.1
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# 진료소
+sub medical{
+
+	if($tm==120){
+
+		if($cmd<=0){
+			$log .= "또 였섞요 <br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+
+		# 치료-1
+		}elsif($cmd==1){
+
+			$S = ($lv < 50) ? $lv*2000 : 100000;
+			$log .= " 읎곳에서는 고대의 비술을 통핎 첎력곌 마력을<br>순식간에 전 회복핎 드멮 수 있습니닀.<br> 닀만 $S G륌 받겠습니닀만 <br>\n";
+			$tm=125;
+
+			$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|;
+			$log2 .=qq|<option value=1>치료</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		# 성전환-1
+		}elsif($cmd==2){
+
+			$log.="읎곳에서는 성전환 수술을 받을 수 있습니닀.<br>닀만 입원 및 수술 비용윌로 20만 G 정도 듭니닀만 <br>";
+			$tm=135;
+	
+			$log2 .= qq|<form action="$script" method="$method" name="ore_">|;
+			$log2 .= qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
+			$log2 .= qq|<input type="hidden" name="id" value="$id">\n|;
+			$log2 .= qq|<input type="hidden" name="pw" value="$pw">\n|;
+			$log2 .= qq|<select name="cmd">\n|;
+	
+			$log2 .= qq|<option value="0">도망치Ʞ</option>\n|;
+			$log2 .= ($sei==1) ?
+				qq|<option value="3">여성읎 된닀</option>\n|:
+				qq|<option value="3">낚성읎 된닀</option>\n|;
+	
+			$log2 .= qq|</select><br>\n|;
+			$log2 .= qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+		}
+
+	# 치료-2
+	}elsif($tm==125){
+
+		if($cmd<=0){
+			$log .= "$nm 님은 자늬륌 떠났닀.<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}else{
+			$S = ($lv < 50) ? $lv*2000 : 100000;
+			if($S < $gold){
+				$hp = $max_hp;
+				$mp = $max_mp;
+				$gold -= $S;
+				$log .= "$S G륌 지불했습니닀 <br>첎력곌 마력읎 몚두 회복되었습니닀.<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				$log .= "돈읎 부족하넀요 <br>\n";
+				$tm=0;
+				&shop_menu;
+			}
+		}
+
+	# 성전환-2
+	}elsif($tm==135){
+
+		if($cmd<=0){
+			$log .= "$nm 님은 아묎 음도 없었던 것처럌 자늬륌 떠났닀.<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}else{
+			if($gold>=200000){
+	
+				$gold-=200000;
+				$log.="수술을 시작합니닀. 눈을 뜚멎 귞곳은 딮 섞상읎 되얎 있겠지요.<br>";
+				$pr=$GMT*8;
+	
+				if($sei==1){
+					$sei=2;
+					$sei2="여성";
+				}else{
+					$sei=1;
+					$sei2="낚성";
+				}
+				$mes.= qq|마췚에서 깚얎났닀. $nm 님은 $sei2읎(가) 되었닀.|;
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}else{
+				$log2.="돈읎 부족합니닀.";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}
+		}
+	}
+}
+
+
+
+
+
+1;
diff --git a/inc/ore_sub-shop-p1_mv.cgi b/inc/ore_sub-shop-p1_mv.cgi
old mode 100644
new mode 100755
index d7188b6..f6953f0
--- a/inc/ore_sub-shop-p1_mv.cgi
+++ b/inc/ore_sub-shop-p1_mv.cgi
@@ -1,73 +1,73 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# ‚š”ƒ‚¢•š PC—pƒp[ƒc1	Version 1.0							#
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#############################################################
-# ˆÈ‰ºˆ— Šî–{“I‚É‚±‚êˆÈ‰º‚Í‚¢‚¶‚ç‚È‚¢‚æ‚€‚ɁB
-
-#-------------------------------------------------------------------------------
-#•‹ï(Œ®¯ËßÝžÞ)
-sub bugu_s{
-
-	$log.=<<EOM;
-<form action=$script method=$method name=ore_>
-<input type=hidden name=id value="$id_p">
-<input type=hidden name=pw value="$pw_p">
-<input type=hidden name=cmd value=-1>
-EOM
-
-	foreach(11 .. $#dg_data){
-		$log .=qq|<hr color=white><input type=radio value="$_" name=cmd>\n|;
-		$log .=qq|$dg_data[$_][1] $dg_data[$_][2]G ‰ñ”$dg_data[$_][3] $dg_data[$_][5]\n|;
-	}
-	$log .=qq|<hr color=white><input type=submit value="w“ü/‚â‚ß‚é"></form>\n|;
-
-}
-
-#-------------------------------------------------------------------------------
-#–h‹ï(Œ®¯ËßÝžÞ)
-sub bogu_s{
-
-	$log.=<<EOM;
-<form action=$script method=$method name=ore_>
-<input type=hidden name=id value="$id_p">
-<input type=hidden name=pw value="$pw_p">
-<input type=hidden name=cmd value=-1>
-EOM
-
-	foreach(11 .. $#df_data){
-		$log .=qq|<hr color=white><input type=radio value="$_" name=cmd>\n|;
-		$log .=qq|$df_data[$_][1] $df_data[$_][2]G ‰ñ”$df_data[$_][3] $df_data[$_][5]\n|;
-	}
-	$log .=qq|<hr color=white><input type=submit value="w“ü/‚â‚ß‚é"></form>\n|;
-
-}
-
-#-------------------------------------------------------------------------------
-#“¹‹ï(Œ®¯ËßÝžÞ)
-sub dogu_s{
-	$log.=<<EOM;
-<form action=$script method=$method name=ore_>
-<input type=hidden name=id value="$id_p">
-<input type=hidden name=pw value="$pw_p">
-<input type=hidden name=cmd value=-1>
-EOM
-
-	foreach(11 .. $#di_data){
-		$log .=qq|<hr color=white><input type=radio value="$_" name=cmd>\n|;
-		$log .=qq|$di_data[$_][1] $di_data[$_][2]G ‰ñ”$di_data[$_][3] $di_data[$_][4]\n|;
-	}
-	$log .=qq|<hr color=white><input type=submit value="w“ü/‚â‚ß‚é"></form>\n|;
-}
-
-
-
-
-
-1;#íœ•s‰Â
+#-----------------------------------------------------------#
+#  죄와 벌++ 읎윚배반										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# 상점 PC용 파잠1	Version 1.0							#
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#############################################################
+# 읎하 처늬 Ʞ볞적윌로 읎 읎하는 수정하지 말 것.
+
+#-------------------------------------------------------------------------------
+# 묎구(상점)
+sub bugu_s{
+
+	$log.=<<EOM;
+<form action=$script method=$method name=ore_>
+<input type=hidden name=id value="$id_p">
+<input type=hidden name=pw value="$pw_p">
+<input type=hidden name=cmd value=-1>
+EOM
+
+	foreach(11 .. $#dg_data){
+		$log .=qq|<hr color=white><input type=radio value="$_" name=cmd>\n|;
+		$log .=qq|$dg_data[$_][1] $dg_data[$_][2]G 횟수$dg_data[$_][3] $dg_data[$_][5]\n|;
+	}
+	$log .=qq|<hr color=white><input type=submit value="구맀/귞만두Ʞ"></form>\n|;
+
+}
+
+#-------------------------------------------------------------------------------
+# 방얎구(상점)
+sub bogu_s{
+
+	$log.=<<EOM;
+<form action=$script method=$method name=ore_>
+<input type=hidden name=id value="$id_p">
+<input type=hidden name=pw value="$pw_p">
+<input type=hidden name=cmd value=-1>
+EOM
+
+	foreach(11 .. $#df_data){
+		$log .=qq|<hr color=white><input type=radio value="$_" name=cmd>\n|;
+		$log .=qq|$df_data[$_][1] $df_data[$_][2]G 횟수$df_data[$_][3] $df_data[$_][5]\n|;
+	}
+	$log .=qq|<hr color=white><input type=submit value="구맀/귞만두Ʞ"></form>\n|;
+
+}
+
+#-------------------------------------------------------------------------------
+# 도구(상점)
+sub dogu_s{
+	$log.=<<EOM;
+<form action=$script method=$method name=ore_>
+<input type=hidden name=id value="$id_p">
+<input type=hidden name=pw value="$pw_p">
+<input type=hidden name=cmd value=-1>
+EOM
+
+	foreach(11 .. $#di_data){
+		$log .=qq|<hr color=white><input type=radio value="$_" name=cmd>\n|;
+		$log .=qq|$di_data[$_][1] $di_data[$_][2]G 횟수$di_data[$_][3] $di_data[$_][4]\n|;
+	}
+	$log .=qq|<hr color=white><input type=submit value="구맀/귞만두Ʞ"></form>\n|;
+}
+
+
+
+
+
+1;#삭제 불가
diff --git a/inc/ore_sub-shop-p1_pc.cgi b/inc/ore_sub-shop-p1_pc.cgi
old mode 100644
new mode 100755
index ba45ccc..ecba87a
--- a/inc/ore_sub-shop-p1_pc.cgi
+++ b/inc/ore_sub-shop-p1_pc.cgi
@@ -1,103 +1,103 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to ]							#
-#-----------------------------------------------------------#
-# ‚š”ƒ‚¢•š PC—pƒp[ƒc1	Version 1.5							#
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#############################################################
-# ˆÈ‰ºˆ— Šî–{“I‚É‚±‚êˆÈ‰º‚Í‚¢‚¶‚ç‚È‚¢‚æ‚€‚ɁB
-
-#-------------------------------------------------------------------------------
-# •‹ï(Œ®¯ËßÝžÞ)
-sub bugu_s{
-
-	$log.=<<EOM;
-<form action=$script method=$method name=ore_>
-<input type=hidden name=id value="$id">
-<input type=hidden name=pw value="$pw_p">
-<input type=hidden name=cmd value=-1>
-
-<table border=0 cellpadding=2 cellspacing=2 width=100%>
-<tr align=center bgcolor="#ccccee">
-<td>&nbsp;</td>
-<td>•‹ï</td>
-<td>’l’i</td>
-<td>‰ñ”</td>
-<td>à–Ÿ</td>
-</tr>
-EOM
-
-	foreach(11 .. $#dg_data){
-		$log .=qq|<tr align="center" bgcolor="#ccccee">\n|;
-		$log .=qq|<td><input type="radio" value="$_" name="cmd" class="a5">\n|;
-		$log .=qq|<td>$dg_data[$_][1]</td><td>$dg_data[$_][2]</td><td>$dg_data[$_][3]</td><td>$dg_data[$_][5]</td></tr>\n|;
-	}
-	$log .=qq|</table>\n|;
-	$log .=qq|<tt><br></tt><input type=submit value="w“ü/‚â‚ß‚é" class="button1"></form>\n|;
-}
-
-#-------------------------------------------------------------------------------
-# –h‹ï(Œ®¯ËßÝžÞ)
-sub bogu_s{
-
-	$log.=<<EOM;
-<form action=$script method=$method name=ore_>
-<input type=hidden name=id value="$id_p">
-<input type=hidden name=pw value="$pw_p">
-<input type=hidden name=cmd value=-1>
-
-<table border=0 cellpadding=2 cellspacing=2 width=100%>
-<tr align=center bgcolor="#ccccee">
-<td>&nbsp;</td>
-<td>–h‹ï</td>
-<td>’l’i</td>
-<td>‰ñ”</td>
-<td>à–Ÿ</td>
-</tr>
-EOM
-
-	foreach(11 .. $#df_data){
-		$log .=qq|<tr align="center" bgcolor="#ccccee">\n|;
-		$log .=qq|<td><input type="radio" value="$_" name="cmd" class="a5">\n|;
-		$log .=qq|<td>$df_data[$_][1]</td><td>$df_data[$_][2]</td><td>$df_data[$_][3]</td><td>$df_data[$_][5]</td></tr>\n|;
-	}
-	$log .=qq|</table>\n|;
-	$log .=qq|<tt><br></tt><input type="submit" value="w“ü/‚â‚ß‚é" class="button1"></form>\n|;
-}
-
-#-------------------------------------------------------------------------------
-# “¹‹ï(Œ®¯ËßÝžÞ)
-sub dogu_s{
-	$log.=<<EOM;
-<form action=$script method=$method name=ore_>
-<input type=hidden name=id value="$id_p">
-<input type=hidden name=pw value="$pw_p">
-<input type=hidden name=cmd value=-1>
-<table border=0 cellpadding=2 cellspacing=2 width=100%>
-<tr align=center bgcolor="#ccccee">
-<td>&nbsp;</td>
-<td>“¹‹ï</td>
-<td>’l’i</td>
-<td>‰ñ”</td>
-<td>à–Ÿ</td>
-</tr>
-EOM
-
-	foreach(11 .. $#di_data){
-		$log .=qq|<tr align="center" bgcolor="#ccccee">\n|;
-		$log .=qq|<td><input type="radio" value="$_" name="cmd" class="a5">\n|;
-		$log .=qq|<td>$di_data[$_][1]</td><td>$dg_data[$_][2]</td><td>$di_data[$_][3]</td><td>$di_data[$_][4]</td></tr>\n|;
-	}
-	$log .=qq|</table>\n|;
-	$log .=qq|<tt><br></tt><input type="submit" value="w“ü/‚â‚ß‚é" class="button1"></form>\n|;
-}
-
-
-
-
-
-1;#íœ•s‰Â
+#-----------------------------------------------------------#
+#  죄와 벌++ 읎윚배반										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to ]							#
+#-----------------------------------------------------------#
+# 쇌핑 PC용 파잠1	Version 1.5							#
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#############################################################
+# 읎하 처늬 Ʞ볞적윌로 읎 읎하는 수정하지 않도록.
+
+#-------------------------------------------------------------------------------
+# 묎구(쇌핑)
+sub bugu_s{
+
+	$log.=<<EOM;
+<form action=$script method=$method name=ore_>
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw_p">
+<input type=hidden name=cmd value=-1>
+
+<table border=0 cellpadding=2 cellspacing=2 width=100%>
+<tr align=center bgcolor="#ccccee">
+<td>&nbsp;</td>
+<td>묎구</td>
+<td>가격</td>
+<td>횟수</td>
+<td>섀명</td>
+</tr>
+EOM
+
+	foreach(11 .. $#dg_data){
+		$log .=qq|<tr align="center" bgcolor="#ccccee">\n|;
+		$log .=qq|<td><input type="radio" value="$_" name="cmd" class="a5">\n|;
+		$log .=qq|<td>$dg_data[$_][1]</td><td>$dg_data[$_][2]</td><td>$dg_data[$_][3]</td><td>$dg_data[$_][5]</td></tr>\n|;
+	}
+	$log .=qq|</table>\n|;
+	$log .=qq|<tt><br></tt><input type=submit value="구맀/귞만두Ʞ" class="button1"></form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+# 방얎구(쇌핑)
+sub bogu_s{
+
+	$log.=<<EOM;
+<form action=$script method=$method name=ore_>
+<input type=hidden name=id value="$id_p">
+<input type=hidden name=pw value="$pw_p">
+<input type=hidden name=cmd value=-1>
+
+<table border=0 cellpadding=2 cellspacing=2 width=100%>
+<tr align=center bgcolor="#ccccee">
+<td>&nbsp;</td>
+<td>방얎구</td>
+<td>가격</td>
+<td>횟수</td>
+<td>섀명</td>
+</tr>
+EOM
+
+	foreach(11 .. $#df_data){
+		$log .=qq|<tr align="center" bgcolor="#ccccee">\n|;
+		$log .=qq|<td><input type="radio" value="$_" name="cmd" class="a5">\n|;
+		$log .=qq|<td>$df_data[$_][1]</td><td>$df_data[$_][2]</td><td>$df_data[$_][3]</td><td>$df_data[$_][5]</td></tr>\n|;
+	}
+	$log .=qq|</table>\n|;
+	$log .=qq|<tt><br></tt><input type="submit" value="구맀/귞만두Ʞ" class="button1"></form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+# 도구(쇌핑)
+sub dogu_s{
+	$log.=<<EOM;
+<form action=$script method=$method name=ore_>
+<input type=hidden name=id value="$id_p">
+<input type=hidden name=pw value="$pw_p">
+<input type=hidden name=cmd value=-1>
+<table border=0 cellpadding=2 cellspacing=2 width=100%>
+<tr align=center bgcolor="#ccccee">
+<td>&nbsp;</td>
+<td>도구</td>
+<td>가격</td>
+<td>횟수</td>
+<td>섀명</td>
+</tr>
+EOM
+
+	foreach(11 .. $#di_data){
+		$log .=qq|<tr align="center" bgcolor="#ccccee">\n|;
+		$log .=qq|<td><input type="radio" value="$_" name="cmd" class="a5">\n|;
+		$log .=qq|<td>$di_data[$_][1]</td><td>$dg_data[$_][2]</td><td>$di_data[$_][3]</td><td>$di_data[$_][4]</td></tr>\n|;
+	}
+	$log .=qq|</table>\n|;
+	$log .=qq|<tt><br></tt><input type="submit" value="구맀/귞만두Ʞ" class="button1"></form>\n|;
+}
+
+
+
+
+
+1;#삭제 불가
diff --git a/inc/ore_sub-shop.cgi b/inc/ore_sub-shop.cgi
old mode 100644
new mode 100755
index 3c0f68e..e1428d4
--- a/inc/ore_sub-shop.cgi
+++ b/inc/ore_sub-shop.cgi
@@ -1,505 +1,505 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  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.1
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-#Œ®¯ËßÝžÞÓ°ÙÒÆ­°
-sub shop{
-
-	if(!$type){
-
-		$log .= "$nm ‚ÍŒ®¯ËßÝžÞӰقɗˆ‚œB<br>\n";
-		$tm=0;
-		$type='‚š”ƒ‚¢•š';
-
-		&shop_menu;
-
-	}
-
-	&dat_write;
-}
-
-sub shop_menu{
-	# Œ®¯ËßÝžÞÓ°Ù
-	my @sg		 = ('‹Ž‚é','•‹ï‰®','–h‹ï‰®','“¹‹ï‰®','‹à—Z‹Æ','ÌßÁÛÄ','f—ÏŠ');
-
-	$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|;
-	foreach(0 .. $#sg){ $log2 .=qq|<option value="$_">$sg[$_]</option>\n|;}
-	$log2 .=qq|</select><br>\n|;
-	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-}
-
-#-------------------------------------------------------------------------------
-#Œ®¯ËßÝžÞӰُˆ—
-sub shop_exe{
-	# s‚«æ‘I‘ð
-	if(!$tm){
-		if($cmd<=0){
-			$log .= "$nm ‚Í“Š‚°‚é‚æ‚€‚É—§‚¿‹Ž‚Á‚œB<br>\n";
-			$tm = $cmd = 0;
-			$type='';
-			&call_main_st;
-		}elsif($cmd==1){
-			$log .= "‚¢‚ç‚Á‚µ‚á‚¢B¡“ú‚Í‚Ç‚€‚·‚é‚ñ‚Ÿ‚¢H<br>\n";
-			$tm=10;
-
-			$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|;
-			$log2 .=qq|<option value="1">”ƒ‚€</option>\n|;
-			$log2 .=qq|<option value="2">”„‚é</option>\n|;
-			$log2 .=qq|</select><br>\n|;
-			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-		}elsif($cmd==2){
-			$log .= "‚¢‚ç‚Á‚µ‚á‚¢‚Ü‚¹B‰œ‚ð‚š‹‚ß‚Å‚·‚©H<br>\n";
-			$tm=30;
-
-			$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|;
-			$log2 .=qq|<option value="1">”ƒ‚€</option>\n|;
-			$log2 .=qq|<option value="2">”„‚é</option>\n|;
-			$log2 .=qq|</select><br>\n|;
-			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-		}elsif($cmd==3){
-			$log .= "‚æ‚€‚±‚»BFX‚È‚à‚Ì‚ðˆµ‚Á‚Ä‚Ü‚·B<br>\n";
-			$tm=50;
-
-			$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|;
-			$log2 .=qq|<option value="1">”ƒ‚€</option>\n|;
-			$log2 .=qq|<option value="2">”„‚é</option>\n|;
-			$log2 .=qq|</select><br>\n|;
-			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-		}elsif($cmd==4){
-			$log .= "‚¢‚ç‚Á‚µ‚á‚¢BÏÈ°Œ®¯Ìß‚É‚æ‚€‚±‚»B<br>\n";
-			$tm=70;
-
-			$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|;
-			$log2 .=qq|<option value=1>ŽØ‹à</option>\n|;
-			$log2 .=qq|<option value=2>•ÔÏ</option>\n|;
-			$log2 .=qq|</select><br>\n|;
-			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-		}elsif($cmd==5){
-			$log .= "ƒCƒ‰ƒbƒVƒƒƒCƒ}ƒZƒF`ôˆê–‡ŒÜ•S‚f‚É‚È‚è‚Ü‚Ÿ‚·ô<br>@<br>ˆë“™@\\\–œ\‚f<br>“󓙁@ŒÜ–œ‚f<br>ŽQ“™@ˆë–œ‚f<br>Žl“™@ˆëç‚f<br><br>K‰^Ü@HHH<br>•sKÜ@HHH<br><br>ß”±Ü1 $dg_data[1][1] (Šó­)<br>ß”±Ü2 $df_data[1][1] (Šó­)\n";
-			$tm=90;
-
-			$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|;
-			$log2 .=qq|<option value=1>’§í</option>\n|;
-			$log2 .=qq|</select><br>\n|;
-			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-		}elsif($cmd==6){
-			$log .= "‚¢‚ç‚Á‚µ‚á‚¢Bß”±f—ÏŠ‚É‚æ‚€‚±‚»B<br>\n";
-			$tm=120;
-
-			$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|;
-			$log2 .=qq|<option value=1>Ž¡—Ã</option>\n|;
-			$log2 .=qq|<option value=2>«“]Š·</option>\n|;
-			$log2 .=qq|</select><br>\n|;
-			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-		}elsif($cmd==7){
-			$log .= "‚«‚Á‚Æ‘f“G‚È—öŽn‚Ü‚é!? Œ‹¥‘Š’kŠ‚Ö‚æ‚€‚±‚»ô<br>\n";
-			$tm=150;
-
-			$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|;
-			$log2 .=($sei==1) ? qq|<option value=2>‚š‰Å‚³‚ñ‘{õ</option>\n| : qq|<option value=1>’U“ß—l‘{õ</option>\n| ;
-			$log2 .=qq|</select><br>\n|;
-			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-		}
-
-	# •‹ï‰® - ”ƒ or ”„
-	}elsif($tm==10){
-		if($cmd<=0){#Á
-			$log .= "‚È‚ñ‚ŸA‚â‚ß‚é‚Ì‚©‚¢B‚Ü‚œ—ˆ‚Ä‚­‚ê‚æ‚ȁI<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($cmd==1){#”ƒ-1
-			if($sogo==3||$sogo==4){
-				$log .= "$sogo_p[$sogo] ‚Ìà€ˆó‚‚¢‚Ä‚¿‚ᔃ‚¢•š‚Í‚Å‚«‚È‚¢‚ºB<br>\n";
-				$tm = $cmd = 0;
-				&shop_menu;
-			}else{
-				$log .= "‰œ‚𔃂€‚ñ‚Ÿ‚¢H<br>‚¿‚È‚Ý‚É•‹ï‚Í1ŒÂ‚µ‚©ŠŽ‚Å‚«‚È‚¢‚ºI<br>\n";
-				$tm=12;
-				require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bugu_s;
-			}
-		}elsif($cmd==2){#”„-1
-			if($dg_a==0){
-				$log .= "$nm ‚³‚ñ‚Í•‹ï‚ðŠŽ‚µ‚Ä‚È‚¢‚ºI<br>\n";
-				$tm = $cmd = 0;
-				&shop_menu;
-			}else{
-				if($dg_a<=10){
-					my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg_cnt)/2);
-					$log .= "‚šI ‰B‚µ•Ší‚Ì$dg_data[$dg_a][1] ‚¶‚á‚È‚¢‚©! ‚Ç‚±‚ÅŽè‚É“ü‚ê‚Ÿ‚ñ‚Ÿ‚¢H<br>‚º‚Ð $v G‚Å”ƒ‚¢Žæ‚点‚Ä‚­‚êB\n";
-					$tm=25;
-				}else{
-					my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg_cnt)/2);
-					$log .= "‚»‚€‚Ÿ‚Ë‚ŠA$dg_data[$dg_a][1] ‚Í $v G‚Å”ƒ‚¢Žæ‚é‚æ!<br>\n";
-					$tm=25;
-				}
-
-				$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|;
-				$log2 .=qq|<option value=1>”„‚é</option>\n|;
-				$log2 .=qq|</select><br>\n|;
-				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-			}
-		}
-	}elsif($tm==12){#”ƒ-2
-		if($cmd<=0){#Á
-			$log .= "‚È‚ñ‚Ÿ‚â‚ß‚é‚Ì‚©‚¢B‚ŁA‘Œ‚É‚Ç‚€‚·‚é‚ñ‚ŸH<br>\n";
-		}else{
-			foreach(11 .. $#dg_data){
-				if($cmd eq $_ && $gold >= $dg_data[$_][2]){
-					$log .= "$dg_data[$_][2]G‚ðŽx•¥‚¢A$dg_data[$_][1] ‚ðw“ü‚µ‚Ü‚µ‚œB<br>\n";
-					$gold -= $dg_data[$_][2];
-					$dg_a = $_;
-					$dg_cnt = $dg_data[$_][3];
-				}elsif($cmd eq $_ && $gold<$dg_data[$_][2]){
-					$log .= "‚š‹à‚ª‘«‚è‚È‚¢‚æI<br>\n";
-				}
-			}
-		}
-		$tm = $cmd = 0;
-		&shop_menu;
-	}elsif($tm==25){#”„-2
-		if($cmd<=0){#Á
-			$log .= "‚È‚ñ‚Ÿ‚â‚ß‚é‚Ì‚©‚¢B‚ŁA‘Œ‚É‚Ç‚€‚·‚é‚ñ‚ŸH<br>\n";
-		}elsif($cmd==1){
-			my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg_cnt)/2);
-			$log .= "$dg_data[$dg_a][1] ‚ð $v G ‚Å”„‹p‚µ‚Ü‚µ‚œB<br>\n";
-			$gold += $v;
-			$dg_a = $dg_cnt = 0;
-		}
-		$tm = $cmd = 0;
-		&shop_menu;
-
-	# –h‹ï‰® - ”ƒ or ”„
-	}elsif($tm==30){
-		if($cmd<=0){#Á
-			$log .= "‚Ü‚œ‚š‚±‚µ‚­‚Ÿ‚³‚¢B<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($cmd==1){#”ƒ-1
-			if($sogo==3||$sogo==4){
-				$log .= "$sogo_p[$sogo] ‚Ìà€ˆó‚‚¢‚Ä‚é•û‚Í‚š”ƒ‚¢ã‚°‚Å‚«‚Ü‚¹‚ñB<br>\n";
-				$tm=0;
-				&shop_menu;
-			}else{
-				$log .= "‰œ‚ð‚š‹‚ß‚Å‚·‚©H<br>–h‹ï‚̏ŠŽ‚Í1ŒÂ‚Ü‚Å‚Æ‚È‚Á‚Ä‚š‚è‚Ü‚·B<br>\n";
-				$tm=32;
-				require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bogu_s;
-			}
-		}elsif($cmd==2){#”„-1
-			if($df_a==0){
-				$log .= "$nm ‚³‚Ü‚Í–h‹ï‚ðŠŽ‚Å‚«‚Ü‚¹‚ñB<br>\n";
-				$tm = $cmd = 0;
-				&shop_menu;
-			}else{
-				if($df_a<=10){
-					my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2);
-				$log .= "‚šI ‰B‚µ–h‹ï‚Ì$df_data[$df_a][1] ‚Å‚·‚Ë! ‚Ç‚±‚ÅŽè‚É“ü‚ê‚œ‚ñ‚Å‚·‚©H<br>‚º‚Ð $v G‚Å”ƒ‚¢Žæ‚点‚Ä‚­‚Ÿ‚³‚¢B\n";
-					$tm=45;
-				}else{
-					my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2);
-				$log .= "‚»‚€‚Å‚·‚Ë¥¥¥ $df_data[$df_a][1] ‚Í $v G‚Å”ƒ‚¢Žæ‚点‚Ä’ž‚«‚Ü‚·‚ªB<br>\n";
-					$tm=45;
-				}
-
-				$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|;
-				$log2 .=qq|<option value=1>”„‚é</option>\n|;
-				$log2 .=qq|</select><br>\n|;
-				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-			}
-		}
-	}elsif($tm==32){#”„-2
-		if($cmd<=0){#Á
-			$log .= "‚»‚Ì‘Œ‚Í‚Ç‚€‚µ‚Ü‚·‚©H<br>\n";
-		}else{
-			foreach(11 .. $#df_data){
-				if($cmd eq $_ && $gold >= $df_data[$_][2]){
-					$log .= "$df_data[$_][2]G‚ðŽx•¥‚¢A$df_data[$_][1] ‚ðw“ü‚µ‚Ü‚µ‚œB<br>\n";
-					$gold -= $df_data[$_][2];
-					$df_a = $_;
-					$df_cnt = $df_data[$_][3];
-				}elsif($cmd eq $_ && $gold<$df_data[$_][2]){
-					$log .= "‚š‹à‚ª‘«‚è‚Ü‚¹‚ñB<br>\n";
-				}
-			}
-		}
-		$tm = $cmd = 0;
-		&shop_menu;
-	}elsif($tm==45){#”ƒ-2
-		if($cmd<=0){#Á
-			$log .= "‘Œ‚É‚Ç‚€‚µ‚Ü‚·‚©H<br>\n";
-		}elsif($cmd==1){
-			my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2);
-			$log .= "$df_data[$df_a][1] ‚ð $v G ‚Å”„‹p‚µ‚Ü‚µ‚œB<br>\n";
-			$gold += $v;
-			$df_a = $df_cnt = 0;
-		}
-		$tm = $cmd = 0;
-		&shop_menu;
-
-	# “¹‹ï‰® - ”ƒ or ”„
-	}elsif($tm==50){
-		if($cmd<=0){#Á
-			$log .= "‘Œ‚È‚É‚©Œä—p‚Å‚·‚©H<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($cmd==1){#”ƒ-1
-			if($sogo==3||$sogo==4){
-				$log .= "$sogo_p[$sogo] ‚Ìà€ˆó‚‚¢‚Ä‚¢‚Ä‚Í”ƒ‚¢•š‚Í‚Å‚«‚Ü‚¹‚ñB<br>\n";
-				$tm = $cmd = 0;
-				&shop_menu;
-			}else{
-				$log .= "‰œ‚ð‚š”ƒ‚¢ã‚°‚Å‚·‚©H<br>‚¿‚È‚Ý‚É“¹‹ï‚Í1ŒÂ‚µ‚©ŠŽ‚Å‚«‚Ü‚¹‚ñB<br>\n";
-				$tm=52;
-				require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&dogu_s;
-			}
-		}elsif($cmd==2){#”„-1
-			if(!$di_a){
-				$log .= "$nm ‚³‚ñ‚Í“¹‹ï‚ðŠŽ‚µ‚Ä‚¢‚Ü‚¹‚ñB<br>\n";
-				$tm = $cmd = 0;
-				&shop_menu;
-			}else{
-				if($di_a<=10){
-					my $v = int(($di_data[$di_a][2])/2);
-					$log .= "‚šI ‰B‚µ±²ÃтÌ$di_data[$di_a][1] ‚¶‚á‚È‚¢‚Å‚·‚©I‚Ç‚±‚ÅŽè‚É“ü‚ê‚œ‚ñ‚Å‚·‚©H<br>‚º‚Ð $v G‚Å”ƒ‚¢Žæ‚点‚Ä‚­‚Ÿ‚³‚¢B\n";
-					$tm=65;
-				}else{
-					my $v = int(($di_data[$di_a][2])/2);
-					$log .= "‚»‚€‚Å‚·‚Ë‚ŠA$di_data[$di_a][1] ‚Í $v G ‚Å”ƒ‚¢Žæ‚è‚Ü‚·B<br>\n";
-					$tm=65;
-				}
-
-				$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|;
-				$log2 .=qq|<option value=1>”„‚é</option>\n|;
-				$log2 .=qq|</select><br>\n|;
-				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-			}
-		}
-	}elsif($tm==52){#”ƒ-2
-		if($cmd<=0){#Á
-			$log .= "‘Œ‰œ‚©Œä—p‚Å‚·‚©H<br>\n";
-		}else{
-			foreach(11 .. $#di_data){
-				if($cmd eq $_ && $gold >= $di_data[$_][2]){
-					$log .= "$di_data[$_][2]G‚ðŽx•¥‚¢A$di_data[$_][1] ‚ðw“ü‚µ‚Ü‚µ‚œB<br>\n";
-					$gold -= $di_data[$_][2];
-					$di_a = $_;
-					$di_cnt = $di_data[$_][3];
-				}elsif($cmd eq $_ && $gold<$di_data[$_][2]){
-					$log .= "‚š‹à‚ª‘«‚è‚Ü‚¹‚ñB‚šˆøŽæ‚èŠè‚¢‚Ü‚·B<br>\n";
-				}
-			}
-		}
-		$tm = $cmd = 0;
-		&shop_menu;
-	}elsif($tm==65){
-		if($cmd<=0){#Á
-			$log .= "‘Œ‰œ‚©Œä—p‚Å‚·‚©H<br>\n";
-		}elsif($cmd==1){
-			my $v = int(($di_data[$di_a][2])/2);
-			$log .= "$di_data[$di_a][1] ‚ð $v G ‚Å”„‹p‚µ‚Ü‚µ‚œB<br>\n";
-			$gold += $v;
-			$di_a = 0;
-		}
-		$tm = $cmd = 0;
-		&shop_menu;
-
-	# ‹à—Z‹Æ
-	}elsif($tm==70){
-		if($cmd<=0){#Á
-			$log .= "‚²—˜—p‚Í‚²Œv‰æ“I‚Ɂô<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($cmd==1){#ŽØ
-			if($sogo==3||$sogo==4){
-				$log .= "‚±‚êˆÈã‚͐g‚Ì‚œ‚ß‚É‚È‚ç‚È‚¢‚æB‘‚¢Äº•Ô‚µ‚Ä‚­‚ê‚È‚¢‚Æ‹°‚¢µÆ°»Ý‚ª—ˆ‚é‚楥¥B<br>\n";
-				$tm = $cmd = 0;
-				&shop_menu;
-			}else{
-				&syakin;
-				$log .= "‹àŽØ‚è‚œ‚¢‚Ì‚©‚¢B‚¢‚­‚çŽØ‚è‚œ‚¢‚ñ‚ŸH<br>$vw G@<b>$sogo_p[3]</b>‚Ìà€ˆó<br>$vx G@<b>$sogo_p[4]</b>‚Ìà€ˆó<br>@<br>à€ˆó‚ÍŽØ‹à‚ð•ÔÏ‚·‚é‚©A‘Œ‚̏̍†‚ðŽæ“Ÿ‚·‚é‚Ü‚ÅŠO‚ê‚Ü‚¹‚ñB\n";
-				$tm=72;
-
-				$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|;
-				$log2 .=qq|<option value="1">$vw G</option>\n|;
-				$log2 .=qq|<option value="2">$vx G</option>\n|;
-				$log2 .=qq|</select><br>\n|;
-				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-
-			}
-		}elsif($cmd==2){#•Ô
-			if($sogo!=3&&$sogo!=4){
-				$log .= "$nm ‚³‚ñ‚ɕԍϋ`–±‚Í‚È‚¢‚æB<br>\n";
-				$tm = $cmd = 0;
-				&shop_menu;
-			}else{
-				$log .= "‚â‚Á‚ÆŽØ‹à•ÔÏ‚µ‚Ä‚­‚ê‚é‚Ì‚©‚¢B$nm ‚³‚ñ‚̕ԍϊz‚Í";
-				&syakin;
-				if($sogo==3){
-					$log .= "<b>$vw2 G</b>‚Ÿ‚æB\n";
-				}elsif($sogo==4){
-					$log .= "<b>$vx2 G</b>‚Ÿ‚æB\n";
-				}
-
-				$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|;
-				$log2 .=qq|<option value="1">Žx•¥‚€</option>\n|;
-				$log2 .=qq|</select><br>\n|;
-				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-
-				$tm=74;
-			}
-		}
-	}elsif($tm==72){#ŽØ - Šz
-		if($cmd<=0){#Á
-			$log .= "‚È‚ñ‚Ÿ‚â‚ß‚é‚Ì‚©‚¢B‚ŁA‘Œ‚É‚Ç‚€‚·‚é‚ñ‚ŸH<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($cmd==1){
-			&syakin;
-			$gold +=$vw;
-			$sogo =3;
-			$log .= "$vw G ‚ðŽØ‚è‚Ü‚µ‚œB$nm ‚Í<b>$sogo_p[3]</b> ‚Ìà€ˆó‚ª‚Â‚«‚Ü‚µ‚œ¥¥¥<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($cmd==2){
-			&syakin;
-			$gold +=$vx;
-			$sogo =4;
-			$log .= "$vx G ‚ðŽØ‚è‚Ü‚µ‚œB$nm ‚Í<b>$sogo_p[4]</b> ‚Ìà€ˆó‚ª‚Â‚«‚Ü‚µ‚œ¥¥¥<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}
-	}elsif($tm==74){#•Ô - Šz
-		if($cmd<=0){#Á
-			$log .= "‘‚¢‚Æ‚±A‹à•Ô‚µ‚Ä‚­‚ê‚æI ‚ŁA‘Œ‚É‚Ç‚€‚·‚é‚ñ‚ŸH<br>\n";
-			$tm = $cmd = 0;
-			&shop_menu;
-		}elsif($cmd==1){
-			&syakin;
-			if($sogo==3){
-				if($gold > $vw2){
-					$gold -=$vw2;
-					$log .= "ŽØ‹à$vw2 G ‚ð•ÔÏ‚µ‚Ü‚µ‚œB<br>\n";
-					$sogo =0;
-				}else{
-					$log .= "‚»‚ñ‚È ‚Í‚µ‚œ‹à‚¶‚á‘«‚è‚È‚¢‚æI<br>\n";
-				}
-			}elsif($sogo==4){
-				if($gold > $vx2){
-					$gold -=$vx2;
-					$log .= "ŽØ‹à$vx2 G ‚ð•ÔÏ‚µ‚Ü‚µ‚œB<br>\n";
-					$sogo =0;
-				}else{
-					$log .= "‚»‚ñ‚ȁ@‚Í‚µ‚œ‹à‚¶‚á‘«‚è‚È‚¢‚æI<br>\n";
-				}
-			}
-			$tm = $cmd = 0;
-			&shop_menu;
-		}
-	}
-
-	# •ó‚­‚¶
-	elsif($tm>=90 && $tm<120){require './inc/ore_sub-shop-lotto.cgi';&lotto;}
-
-	# f—ÏŠ
-	elsif($tm>=120 && $tm<140){require './inc/ore_sub-shop-medical.cgi';&medical;}
-
-	# Œ‹¥‘Š’kŠ
-	elsif(	$tm>=150 && $tm<200 && $mv_mode eq 'pc' &&
-			$lv>=15 && $lv<=50){require './inc/ore_sub-shop-marry.cgi';&marry;}
-
-	&dat_write;
-
-}
-
-#-------------------------------------------------------------------------------
-#ŽØ‹àŒvŽZ
-sub syakin {
-	if($lv < 40){
-		$vw = int($lv*1000);
-		$vx = int($lv*2000);
-		$vw2 = int($lv*1250);
-		$vx2 = int($lv*2500);
-	}else{
-		$vw = 40000;
-		$vx = 80000;
-		$vw2 = 50000;
-		$vx2 = 100000;
-	}
-}
-
-
-
-
-
-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.1
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+#쇌핑몰 메뉎
+sub shop{
+
+	if(!$type){
+
+		$log .= "$nm 은(는) 쇌핑몰에 왔닀.<br>\n";
+		$tm=0;
+		$type='쇌핑';
+
+		&shop_menu;
+
+	}
+
+	&dat_write;
+}
+
+sub shop_menu{
+	# 쇌핑몰
+	my @sg		 = ('떠나Ʞ','묎구점','방얎구점','도구점','ꞈ융업','푞치 복권','진료소');
+
+	$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|;
+	foreach(0 .. $#sg){ $log2 .=qq|<option value="$_">$sg[$_]</option>\n|;}
+	$log2 .=qq|</select><br>\n|;
+	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+}
+
+#-------------------------------------------------------------------------------
+#쇌핑몰 처늬
+sub shop_exe{
+	# 행선지 선택
+	if(!$tm){
+		if($cmd<=0){
+			$log .= "$nm 은(는) 도망치듯 떠났닀.<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($cmd==1){
+			$log .= "ì–Žì„œ 였섞요. 였늘은 묎슚 음읎신가요?<br>\n";
+			$tm=10;
+
+			$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|;
+			$log2 .=qq|<option value="1">구맀하Ʞ</option>\n|;
+			$log2 .=qq|<option value="2">판맀하Ʞ</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}elsif($cmd==2){
+			$log .= "ì–Žì„œ 였십시였. 묎엇을 찟윌십니까?<br>\n";
+			$tm=30;
+
+			$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|;
+			$log2 .=qq|<option value="1">구맀하Ʞ</option>\n|;
+			$log2 .=qq|<option value="2">판맀하Ʞ</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}elsif($cmd==3){
+			$log .= "ì–Žì„œ 였섞요. 닀양한 묌걎을 닀룚고 있습니닀.<br>\n";
+			$tm=50;
+
+			$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|;
+			$log2 .=qq|<option value="1">구맀하Ʞ</option>\n|;
+			$log2 .=qq|<option value="2">판맀하Ʞ</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}elsif($cmd==4){
+			$log .= "ì–Žì„œ 였섞요. 뚞니샵에 였신 것을 환영합니닀.<br>\n";
+			$tm=70;
+
+			$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|;
+			$log2 .=qq|<option value=1>대출</option>\n|;
+			$log2 .=qq|<option value=2>상환</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}elsif($cmd==5){
+			$log .= "ì–Žì„œ 였섞요~♪ 한 장에 500G입니닀♪<br>　<br>1등 10만 G<br>2등 5만 G<br>3등 1만 G<br>4등 1천 G<br><br>행욎상 ???<br>불행상 ???<br><br>죄벌상1 $dg_data[1][1] (희귀)<br>죄벌상2 $df_data[1][1] (희귀)\n";
+			$tm=90;
+
+			$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|;
+			$log2 .=qq|<option value=1>도전</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}elsif($cmd==6){
+			$log .= "ì–Žì„œ 였섞요. 죄벌 진료소에 였신 것을 환영합니닀.<br>\n";
+			$tm=120;
+
+			$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|;
+			$log2 .=qq|<option value=1>치료</option>\n|;
+			$log2 .=qq|<option value=2>성전환</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}elsif($cmd==7){
+			$log .= "멋진 사랑읎 시작될지도!? 결혌상닎소에 였신 것을 환영합니닀♪<br>\n";
+			$tm=150;
+
+			$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|;
+			$log2 .=($sei==1) ? qq|<option value=2>신부 ì°Ÿêž°</option>\n| : qq|<option value=1>신랑 ì°Ÿêž°</option>\n| ;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+		}
+
+	# 묎구점 - 구맀 or 판맀
+	}elsif($tm==10){
+		if($cmd<=0){#消
+			$log .= "뭐알, 귞만두는 걎가. 닀음에 또 였띌고!<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){#è²·-1
+			if($sogo==3||$sogo==4){
+				$log .= "$sogo_p[$sogo] 낙읞읎 찍혀 있얎서는 쇌핑을 할 수 없닀고.<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				$log .= "묎엇을 ì‚Ž ê±°ì•Œ?<br>ì°žê³ ë¡œ 묎구는 1개밖에 가질 수 없닀고!<br>\n";
+				$tm=12;
+				require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bugu_s;
+			}
+		}elsif($cmd==2){#売-1
+			if($dg_a==0){
+				$log .= "$nm 님은 묎구륌 가지고 있지 않잖아!<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				if($dg_a<=10){
+					my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg_cnt)/2);
+					$log .= "였! 히든 묎Ʞ읞 $dg_data[$dg_a][1] 읎잖아! 얎디서 구한 ê±°ì•Œ?<br>Ʞ꺌읎 $v G에 맀입하도록 하지.\n";
+					$tm=25;
+				}else{
+					my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg_cnt)/2);
+					$log .= "귞렇군, $dg_data[$dg_a][1] 은(는) $v G에 사도록 하지!<br>\n";
+					$tm=25;
+				}
+
+				$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|;
+				$log2 .=qq|<option value=1>팔Ʞ</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+			}
+		}
+	}elsif($tm==12){#è²·-2
+		if($cmd<=0){#消
+			$log .= "뭐알 귞만두는 걎가. 귞럌 닀륞 걎 ì–Žë–¡í•  ê±°ì•Œ?<br>\n";
+		}else{
+			foreach(11 .. $#dg_data){
+				if($cmd eq $_ && $gold >= $dg_data[$_][2]){
+					$log .= "$dg_data[$_][2]G륌 지불하고, $dg_data[$_][1] 을(륌) 구입했습니닀.<br>\n";
+					$gold -= $dg_data[$_][2];
+					$dg_a = $_;
+					$dg_cnt = $dg_data[$_][3];
+				}elsif($cmd eq $_ && $gold<$dg_data[$_][2]){
+					$log .= "돈읎 부족하닀고!<br>\n";
+				}
+			}
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+	}elsif($tm==25){#売-2
+		if($cmd<=0){#消
+			$log .= "뭐알 귞만두는 걎가. 귞럌 닀륞 걎 ì–Žë–¡í•  ê±°ì•Œ?<br>\n";
+		}elsif($cmd==1){
+			my $v = int(($dg_data[$dg_a][2]-$dg_data[$dg_a][2]/$dg_cnt)/2);
+			$log .= "$dg_data[$dg_a][1] 을(륌) $v G에 판맀했습니닀.<br>\n";
+			$gold += $v;
+			$dg_a = $dg_cnt = 0;
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+
+	# 방얎구점 - 구맀 or 판맀
+	}elsif($tm==30){
+		if($cmd<=0){#消
+			$log .= "또 였십시였.<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){#è²·-1
+			if($sogo==3||$sogo==4){
+				$log .= "$sogo_p[$sogo] 낙읞읎 찍혀 계신 분은 구맀하싀 수 없습니닀.<br>\n";
+				$tm=0;
+				&shop_menu;
+			}else{
+				$log .= "묎엇을 찟윌십니까?<br>방얎구는 최대 1개까지 소지할 수 있습니닀.<br>\n";
+				$tm=32;
+				require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&bogu_s;
+			}
+		}elsif($cmd==2){#売-1
+			if($df_a==0){
+				$log .= "$nm 님은 방얎구륌 소지하고 있지 않습니닀.<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				if($df_a<=10){
+					my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2);
+					$log .= "였! 히든 방얎구읞 $df_data[$df_a][1] 읎군요! 얎디서 구하셚나요?<br>Ʞ꺌읎 $v G에 맀입하도록 하겠습니닀.\n";
+					$tm=45;
+				}else{
+					my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2);
+					$log .= "귞렇군요... $df_data[$df_a][1] 은(는) $v G에 맀입핎 드늬겠습니닀만.<br>\n";
+					$tm=45;
+				}
+
+				$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|;
+				$log2 .=qq|<option value=1>팔Ʞ</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+			}
+		}
+	}elsif($tm==32){#売-2
+		if($cmd<=0){#消
+			$log .= "ê·ž 왞에는 얎떻게 하시겠습니까?<br>\n";
+		}else{
+			foreach(11 .. $#df_data){
+				if($cmd eq $_ && $gold >= $df_data[$_][2]){
+					$log .= "$df_data[$_][2]G륌 지불하고, $df_data[$_][1] 을(륌) 구입했습니닀.<br>\n";
+					$gold -= $df_data[$_][2];
+					$df_a = $_;
+					$df_cnt = $df_data[$_][3];
+				}elsif($cmd eq $_ && $gold<$df_data[$_][2]){
+					$log .= "돈읎 부족합니닀.<br>\n";
+				}
+			}
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+	}elsif($tm==45){#è²·-2
+		if($cmd<=0){#消
+			$log .= "ê·ž 밖에 얎떻게 하시겠습니까?<br>\n";
+		}elsif($cmd==1){
+			my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2);
+			$log .= "$df_data[$df_a][1] 을(륌) $v G에 판맀했습니닀.<br>\n";
+			$gold += $v;
+			$df_a = $df_cnt = 0;
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+
+	# 도구점 - 구맀 or 판맀
+	}elsif($tm==50){
+		if($cmd<=0){#消
+			$log .= "ê·ž 왞에 닀륞 용걎읎 있윌십니까?<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){#è²·-1
+			if($sogo==3||$sogo==4){
+				$log .= "$sogo_p[$sogo] 낙읞읎 찍혀 있얎서는 쇌핑을 할 수 없습니닀.<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				$log .= "묎엇을 구맀하시겠습니까?<br>ì°žê³ ë¡œ 도구는 1개밖에 소지할 수 없습니닀.<br>\n";
+				$tm=52;
+				require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&dogu_s;
+			}
+		}elsif($cmd==2){#売-1
+			if(!$di_a){
+				$log .= "$nm 님은 도구륌 소지하고 있지 않습니닀.<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				if($di_a<=10){
+					my $v = int(($di_data[$di_a][2])/2);
+					$log .= "였! 히든 아읎템읞 $di_data[$di_a][1] 읎군요! 얎디서 구하셚나요?<br>ꌭ $v G에 맀입하게 핮 죌십시였.\n";
+					$tm=65;
+				}else{
+					my $v = int(($di_data[$di_a][2])/2);
+					$log .= "귞렇군요, $di_data[$di_a][1] 은(는) $v G에 맀입하겠습니닀.<br>\n";
+					$tm=65;
+				}
+
+				$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|;
+				$log2 .=qq|<option value=1>팔Ʞ</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+			}
+		}
+	}elsif($tm==52){#è²·-2
+		if($cmd<=0){#消
+			$log .= "ê·ž 왞에 닀륞 용걎읎 있윌십니까?<br>\n";
+		}else{
+			foreach(11 .. $#di_data){
+				if($cmd eq $_ && $gold >= $di_data[$_][2]){
+					$log .= "$di_data[$_][2]G륌 지불하고, $di_data[$_][1] 을(륌) 구입했습니닀.<br>\n";
+					$gold -= $di_data[$_][2];
+					$di_a = $_;
+					$di_cnt = $di_data[$_][3];
+				}elsif($cmd eq $_ && $gold<$di_data[$_][2]){
+					$log .= "돈읎 부족합니닀. 돌아가 죌십시였.<br>\n";
+				}
+			}
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+	}elsif($tm==65){
+		if($cmd<=0){#消
+			$log .= "ê·ž 왞에 닀륞 용걎읎 있윌십니까?<br>\n";
+		}elsif($cmd==1){
+			my $v = int(($di_data[$di_a][2])/2);
+			$log .= "$di_data[$di_a][1] 을(륌) $v G에 판맀했습니닀.<br>\n";
+			$gold += $v;
+			$di_a = 0;
+		}
+		$tm = $cmd = 0;
+		&shop_menu;
+
+	# ꞈ융업
+	}elsif($tm==70){
+		if($cmd<=0){#消
+			$log .= "계획적윌로 읎용핎 죌섞요♪<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){#借
+			if($sogo==3||$sogo==4){
+				$log .= "읎 읎상은 신상에 좋지 않아. 빚늬 갚지 않윌멎 묎서욎 형님듀읎 올 거띌고...<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				&syakin;
+				$log .= "돈을 빌늬고 싶은가 볎군. 얌마나 빌늬고 싶나?<br>$vw G　<b>$sogo_p[3]</b> 낙읞<br>$vx G　<b>$sogo_p[4]</b> 낙읞<br>　<br>낙읞은 빚을 갚거나 닀륞 칭혞륌 획득할 때까지 사띌지지 ì•Šë„€.\n";
+				$tm=72;
+
+				$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|;
+				$log2 .=qq|<option value="1">$vw G</option>\n|;
+				$log2 .=qq|<option value="2">$vx G</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+
+			}
+		}elsif($cmd==2){#返
+			if($sogo!=3&&$sogo!=4){
+				$log .= "$nm 님에게는 상환 의묎가 없넀.<br>\n";
+				$tm = $cmd = 0;
+				&shop_menu;
+			}else{
+				$log .= "드디얎 빚을 갚아 죌는군. $nm 님의 상환액은 ";
+				&syakin;
+				if($sogo==3){
+					$log .= "<b>$vw2 G</b>음섞.\n";
+				}elsif($sogo==4){
+					$log .= "<b>$vx2 G</b>음섞.\n";
+				}
+
+				$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|;
+				$log2 .=qq|<option value="1">지불하Ʞ</option>\n|;
+				$log2 .=qq|</select><br>\n|;
+				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+
+				$tm=74;
+			}
+		}
+	}elsif($tm==72){#借 - 額
+		if($cmd<=0){#消
+			$log .= "뭐알 귞만두는 걎가. 귞래서, ê·ž 밖에 얎떻게 할 텐가?<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){
+			&syakin;
+			$gold +=$vw;
+			$sogo =3;
+			$log .= "$vw G 륌 빌렞습니닀. $nm 에게는 <b>$sogo_p[3]</b> 낙읞읎 찍혔습니닀...<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==2){
+			&syakin;
+			$gold +=$vx;
+			$sogo =4;
+			$log .= "$vx G 륌 빌렞습니닀. $nm 에게는 <b>$sogo_p[4]</b> 낙읞읎 찍혔습니닀...<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}
+	}elsif($tm==74){#返 - 額
+		if($cmd<=0){#消
+			$log .= "빚늬 돈을 갚아 달띌고! 귞래서, ê·ž 밖에 얎떻게 할 텐가?<br>\n";
+			$tm = $cmd = 0;
+			&shop_menu;
+		}elsif($cmd==1){
+			&syakin;
+			if($sogo==3){
+				if($gold > $vw2){
+					$gold -=$vw2;
+					$log .= "빚 $vw2 G 륌 상환했습니닀.<br>\n";
+					$sogo =0;
+				}else{
+					$log .= "귞런 푌돈윌로는 부족하넀!<br>\n";
+				}
+			}elsif($sogo==4){
+				if($gold > $vx2){
+					$gold -=$vx2;
+					$log .= "빚 $vx2 G 륌 상환했습니닀.<br>\n";
+					$sogo =0;
+				}else{
+					$log .= "귞런 푌돈윌로는 부족하넀!<br>\n";
+				}
+			}
+			$tm = $cmd = 0;
+			&shop_menu;
+		}
+	}
+
+	# 宝くじ
+	elsif($tm>=90 && $tm<120){require './inc/ore_sub-shop-lotto.cgi';&lotto;}
+
+	# 蚺療所
+	elsif($tm>=120 && $tm<140){require './inc/ore_sub-shop-medical.cgi';&medical;}
+
+	# 結婚盞談所
+	elsif(	$tm>=150 && $tm<200 && $mv_mode eq 'pc' &&
+			$lv>=15 && $lv<=50){require './inc/ore_sub-shop-marry.cgi';&marry;}
+
+	&dat_write;
+
+}
+
+#-------------------------------------------------------------------------------
+#借金蚈算
+sub syakin {
+	if($lv < 40){
+		$vw = int($lv*1000);
+		$vx = int($lv*2000);
+		$vw2 = int($lv*1250);
+		$vx2 = int($lv*2500);
+	}else{
+		$vw = 40000;
+		$vx = 80000;
+		$vw2 = 50000;
+		$vx2 = 100000;
+	}
+}
+
+
+
+
+
+1;
diff --git a/inc/ore_sub-subdue.cgi b/inc/ore_sub-subdue.cgi
old mode 100644
new mode 100755
index 6c767fb..7dab8de
--- a/inc/ore_sub-subdue.cgi
+++ b/inc/ore_sub-subdue.cgi
@@ -1,91 +1,91 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  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.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-#“¢”°ƒƒjƒ…[
-sub subdue{
-
-	if(!$type){
-
-		$log .= "ŽÙÀƱ‚Ì’n‚É– ‰„‚é鳖£é±é²‚ð“¢”°‚µ‚Ü‚·B<br>¬Œ÷‚·‚é‚Æ’nˆÊ‚ÆÜ‹à‚ªŠl“Ÿ‚Å‚«‚Ü‚·B<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|;
-}
-
-#-------------------------------------------------------------------------------
-#“¢”°ˆ—(“¢”° >> “¢”°’†‚ֈڍs‚Ü‚Å)
-sub subdue_exe{
-
-	if(!$tm){
-
-		if($cmd<=0 || $cmd>$#cmp){
-			$log .= "‚Ü‚œ‚š‰z‚µ‚­‚Ÿ‚³‚¢c<br>\n";
-			$tm = $cmd = 0;
-			$type='';
-			&call_main_st;
-		}elsif($cmd){
-
-			if($camp<1){
-				$log .= "•ú˜Q‚̐g‚Å“¢”°‚͍s‚Š‚Ü‚¹‚ñ<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 .= "’Tõ‚ðŠJŽn‚µ‚Ü‚·B<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;
diff --git a/inc/ore_sub-subduetime.cgi b/inc/ore_sub-subduetime.cgi
old mode 100644
new mode 100755
index 42f3394..5fba621
--- a/inc/ore_sub-subduetime.cgi
+++ b/inc/ore_sub-subduetime.cgi
@@ -1,348 +1,344 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  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.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-#“¢”°’†ˆ—
-sub ws_st {
-	if(!$tm && !$ck){
-
-		$log .="$date $cmp[$nation] ‚ð’Tõ’†‚Å‚·<br>\n";
-
-		# NPC(鳖£é±é²)“ǂݍž‚Ý
-		require './inc/ore_sub-npc_2.cgi';
-		local $v=int(rand(7));
-		&ck_ne_2;
-
-		$log .="<hr size=1 noshade>\n";
-
-		$log .="$cmp[$nation] ‚É– ‰„‚é $tnm ‚ð”­Œ©‚µ‚œI<br>\n";
-
-		$log .="í“¬‘Ԑš‚ð‚Æ‚è‚Ü‚·I<br>\n";
-
-		$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="hidden" name="cmd" value="-1"><input $button1 type="submit" value=" í“¬“Ë“üII">$td_end</form>\n|;
-
-		$tm=40;
-		$ck=1;
-	}elsif($ck){
-
-		# í“¬ˆ—“ǂݍž‚Ý
-		require './inc/ore_sub-battle.cgi';
-
-		if(!$b_n && !$tlr){
-			$tm = 0;
-			$ck = 0;
-			$nation = 0;#“¢”°
-			$type='';
-
-			$log .="í“¬’†‚ɃoƒO‚ª”­¶‚µ‚Ü‚µ‚œI‹­§“I‚ɃƒCƒ“‰æ–Ê‚É–ß‚è‚Ü‚·<br>\n";
-		}
-
-		if($tm==40 && $cmd==-1){
-			$tm=55;
-			$log .="<p>$tnm ‚Æ‚Ì‘ÎŒˆII</p><p>‚Ç‚€‚µ‚Ü‚·‚©H</p>\n";
-			$log .="<p>鳖£é±é²œÃ°Àœ - $tnm ( HP $thp MP $tmp UA $tua UD $tud LV $tlv )</p>\n";
-		}
-
-		if($tm==55){
-
-			if($cmd==10){
-
-				my $btp = $ag + int(rand($lv)*0.8);
-				my $bte = $tag+ int(rand($tlv)*0.8);
-
-				if($btp>=$bte){
-					$log .="$nm ‚Í ’E“e‚Ì”@‚­“Š‚°o‚µ‚œ¥¥¥<br>•]‰¿‚ª’˜‚µ‚­‰º‚ª‚Á‚œ<br>\n";
-					$tm=0;
-					$v = int(2 + rand(4));
-					$rank_exe-=$v;
-
-					$sol=0;
-					$tnm='';
-					$ck=0;
-					$nation=0;#“¢”°
-					$type='';
-
-					$vv = int(rand(2));
-					if(!$vv){
-						$we-- if($we>0);
-					}
-				}else{
-					$log .="$nm ‚Í ’E“e‚Ì”@‚­“Š‚°o‚µ‚œ¥¥¥<br>‚µ‚©‚µI@$tnm ‚É’Ç‚¢‚‚©‚ê‚Ä‚µ‚Ü‚Á‚œII<br>\n";
-					$tm=65;
-					$rank_exe-=1;
-				}
-
-			}elsif($cmd==20){
-				$log .="$tnm ‚Ì“¢”°‚ðs‚È‚€Ž–‚ɁI<br>\n";
-				$tm=65;
-				$rank_exe+=1;
-			}
-
-		}elsif($tm==65){
-
-			$log .="^Œ•Ÿ•‰ŠJŽnI<br>\n";
-			$tm=75;
-
-		}elsif($tm==75){
-
-			&bt_cm;
-
-			if($thp<1){
-				# Šl“Ÿ‹à
-				$G =int(rand(200))+((500*$tlv)-($lv*50));
-				$G =1 if($G<1);
-				$G =int(rand(500))+1500 if($G>2000);
-				$gold +=$G;
-				# ŒoŒ±’l
-				$E = int((($tlv*2)+$tua+$tud+$tag)*(rand($lv/10)+3))-$lv*2;
-				$E = int(rand(300)+1300) if($E>1500);
-				$exe+=$E;
-
-				$thp=0;
-				$bst ='';
-				$bt =0;
-				$log .="$nm ‚Í $tnm ‚ð“|‚µ‚œI<br>\n";
-				$log .="$G ‚Ì‹à ‚Æ $E ‚ÌŒoŒ±’l‚ð“Ÿ‚œI<br>\n";
-				$log .="<br>\n";
-
-				# Ü‹à(Ž©‘—DˆÊ)
-				if($nation==$camp){
-					$G =int($my_cg/(rand(6)+15));
-					$G =int(rand(500))+1500 if(int(2000>=$G));
-					$G =int(rand(1500))+4000 if(int(5000<=$G));
-				}else{
-					if($nation==1){$G =int($cg1/(rand(11)+20));}
-					elsif($nation==2){$G =int($cg2/(rand(11)+20));}
-					elsif($nation==3){$G =int($cg2/(rand(11)+20));}
-					elsif($nation==4){$G =int($cg2/(rand(11)+20));}
-					elsif($nation==5){$G =int($cg2/(rand(11)+20));}
-
-					$G =int(rand(500))+500 if(int(1000>=$G));
-					$G =int(rand(1000))+2500 if(int(3500<=$G));
-				}
-
-				$exe+=$E;
-				$gold+=$G;
-
-				$tsol=int($tsol/2);
-
-				$log .="$cmp[$nation]‚©‚ç $G ‚̏܋à‚ð“Ÿ‚œI<br>\n";#“¢”°
-
-				$V =int(rand(4));
-				$sol_lv-=$V;
-				$rank_exe+=int($V*2)+5;
-
-				# E“Ÿ•šˆ— 1
-				if(int(rand(100))==0){
-					&syutoku1;
-				}else{
-					$sol=0;
-					$tnm='';
-					$ck = $tm = 0;
-					$nation=0;
-					$type='';
-				}
-
-				$we++;
-				if($we>250){
-					$log .="ŽÙÀƱ‚Ì’n‚É– ‰„‚é鳖£é±é²‚Ì“¢”°‚Ì—ã‚Ý‚æ‚è $nm ‚Í $sogo_p[2] ‚̏̍†‚ðŽö‚©‚Á‚œI<br>\n";
-					$sogo =2;
-					$we =0;
-				}
-
-			}elsif($hp<1){
-
-				$bst ='';
-				$bt =0;
-				$ck =0;
-				$hp =0;
-				$G=int(rand(10))+1;
-				$E=int(rand(5))+1;
-				$gold+=$G;
-				$exe+=$E;
-				$log .="‚ ‚È‚œ‚Í $tnm ‚É”s‚ê‹Ž‚Á‚œc<br>\n";
-				$log .="$G ‚Ì‹à ‚Æ $E ‚ÌŒoŒ±’l‚ð“Ÿ‚œ<br>\n";
-				$log .="<p></p>\n";
-
-				$sol=int($sol/2);
-
-				$rank_exe-=25;
-				$log .="鳖£é±é²‚É•Ô‚è“¢‚¿‚É‚ ‚€‚Æ‚¢‚€•s–Œ—_‚È”s–k‚ɁA<br>‹M•û‚ɑ΂·‚é•]‰¿‚ª’˜‚µ‚­’ቺ‚µ‚œ<br>\n";
-				if($rank_exe<1){
-					$rank--;
-					$rank=1 if($rank<1);
-					$next_rank=int(($rank*$rank)*3);
-					$v=$next_rank-10;
-					$rank_exe=$v;
-					$log .="ˆêŠK‹‰~Ši‚³‚ê‚Ä‚µ‚Ü‚Á‚œc<br>\n";
-				}
-
-				$sol=0;
-				$tnm='';
-				$ck= $tm = 0;
-				$nation=0;#“¢”°
-				$type='';
-
-			}
-
-		}
-
-		# E“Ÿ•šˆ— 2
-		if($cmd==40){
-			&syutoku2;
-		}elsif($cmd ==41){
-			$log .="$nm ‚Í ‹C‚©‚È‚©‚Á‚œÌØ‚ð‚µ‚Ä—§‚¿‹Ž‚Á‚œ¥¥¥¥¥¥<br>\n";
-
-			$sol=0;
-			$tnm='';
-			$ck = $tm = 0;
-			$nation=0;#“¢”°
-			$type='';
-		}
-
-		$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
-		$log2 .=qq|<td 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|;
-		if($tsol<1||$sol<1){
-			$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
-		}if($tm==55){
-			$log2 .=qq|<select name="cmd" size="1"><option value="10">“Š‚°‚é</option><option value="20">“¬‚€</option>\n|;
-			$log2 .=qq|</select>|;
-		}elsif($tm==65){
-			$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
-		}elsif($tm==75){
-			&spell_sp;
-		}elsif($tm>=100){
-			$log2 .=qq|<select name="cmd" size="1"><option value="40">E‚€</option><option value="41">‚Ù‚Á‚Æ‚­</option>\n|;
-			$log2 .=qq|</select>|;
-		}
-		$log2 .=qq|<br>|;#ƒe[ƒuƒ‹‚ž‚êC³
-		$log2 .=qq|<input type="submit" $button1 value="NEXTI">$td_end</form>\n|;#ƒe[ƒuƒ‹’ljÁ</tr></table>
-	}
-
-	&dat_write;
-
-}
-
-#E“Ÿ•šˆ—
-sub syutoku1{
-
-	$log .="$tnm ‚ªÁ–Å‚µ‚œêŠ‚ɉœ‚©—Ž‚¿‚Ä‚¢‚饥¥¥¥<br>$nm ‚Í ";
-
-	my $S = int(rand(10)+1);
-
-	# •‹ï
-	if($S == 1){
-		$log .="$dg_data[2][1]‚ð”­Œ©‚µ‚œ!!<br><br>‘•”õ‚·‚éê‡€Œ»ÝŠŽ‚µ‚Ä‚¢‚镐‹ï";
-		$tm = 110;
-	}elsif($S == 2){
-		$log .="$dg_data[3][1]‚ð”­Œ©‚µ‚œ!!<br><br>‘•”õ‚·‚éê‡€Œ»ÝŠŽ‚µ‚Ä‚¢‚镐‹ï";
-		$tm = 120;
-	}elsif($S == 3){
-		$log .="$dg_data[4][1]‚ð”­Œ©‚µ‚œ!!<br><br>‘•”õ‚·‚éê‡€Œ»ÝŠŽ‚µ‚Ä‚¢‚镐‹ï";
-		$tm = 130;
-
-	# “¹‹ï
-	}elsif($S == 4){
-		$log .="$di_data[1][1]‚ð”­Œ©‚µ‚œ!!<br><br>‘•”õ‚·‚éê‡€Œ»ÝŠŽ‚µ‚Ä‚¢‚铹‹ï";
-		$tm = 140;
-	}elsif($S == 5){
-		$log .="$di_data[2][1]‚ð”­Œ©‚µ‚œ!!<br><br>‘•”õ‚·‚éê‡€Œ»ÝŠŽ‚µ‚Ä‚¢‚铹‹ï";
-		$tm = 150;
-	}elsif($S == 6){
-		$log .="$di_data[3][1]‚ð”­Œ©‚µ‚œ!!<br><br>‘•”õ‚·‚éê‡€Œ»ÝŠŽ‚µ‚Ä‚¢‚铹‹ï";
-		$tm = 160;
-	}elsif($S == 7){
-		$log .="$di_data[4][1]‚ð”­Œ©‚µ‚œ!!<br><br>‘•”õ‚·‚éê‡€Œ»ÝŠŽ‚µ‚Ä‚¢‚铹‹ï";
-		$tm = 170;
-
-	# –h‹ï
-	}elsif($S == 8){
-		$log .="$df_data[2][1]‚ð”­Œ©‚µ‚œ!!<br><br>‘•”õ‚·‚éê‡€Œ»ÝŠŽ‚µ‚Ä‚¢‚铹‹ï";
-		$tm = 180;
-	}elsif($S == 9){
-		$log .="$df_data[3][1]‚ð”­Œ©‚µ‚œ!!<br><br>‘•”õ‚·‚éê‡€Œ»ÝŠŽ‚µ‚Ä‚¢‚铹‹ï";
-		$tm = 190;
-	}elsif($S == 10){
-		$log .="$df_data[4][1]‚ð”­Œ©‚µ‚œ!!<br><br>‘•”õ‚·‚éê‡€Œ»ÝŠŽ‚µ‚Ä‚¢‚铹‹ï";
-		$tm = 200;
-	}
-	$log .="‚Í”jŠü‚³‚ê‚Ü‚·¡<br>‚Ç‚€‚µ‚Ü‚·‚©?<br>";
-}
-
-#E“Ÿ•šˆ—2
-sub syutoku2{
-	$log .="$nm ‚Í ";
-
-	# •‹ï2
-	if($tm==110){
-		$log .="$dg_data[2][1]";
-		$dg_a = 2;
-		$dg_cnt=$dg_data[2][3];
-	}elsif($tm==120){
-		$log .="$dg_data[3][1]";
-		$dg_a = 3;
-		$dg_cnt=$dg_data[3][3];
-	}elsif($tm==130){
-		$log .="$dg_data[4][1]";
-		$dg_a = 4;
-		$dg_cnt=$dg_data[4][3];
-
-	# “¹‹ï2
-	}elsif($tm==140){
-		$log .="$di_data[1][1]";
-		$di_a = 1;
-		$di_cnt=$di_data[1][3];
-	}elsif($tm==150){
-		$log .="$di_data[2][1]";
-		$di_a = 2;
-		$di_cnt=$di_data[2][3];
-	}elsif($tm==160){
-		$log .="$di_data[3][1]";
-		$di_a = 3;
-	}elsif($tm==170){
-		$log .="$di_data[4][1]";
-		$di_a = 4;
-		$di_cnt=$di_data[4][3];
-
-	# –h‹ï2
-	}elsif($tm==180){
-		$log .="$df_data[2][1]";
-		$df_a = 2;
-		$df_cnt=$df_data[2][3];
-	}elsif($tm==190){
-		$log .="$df_data[3][1]";
-		$df_a = 3;
-		$df_cnt=$df_data[3][3];
-	}elsif($tm==200){
-		$log .="$df_data[4][1]";
-		$df_a = 4;
-		$df_cnt=$df_data[4][3];
-	}
-
-	$log .="‚ðŽè‚É“ü‚ê‚œ!!<br>\n";
-
-	$sol=0;
-	$tnm='';
-	$ck = $tm = 0;
-	$nation=0;#“¢”°
-	$type='';
-}
-
-
-
-
-
-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 ws_st {
+	if(!$tm && !$ck){
+
+		$log .="$date $cmp[$nation] 을 탐색 쀑입니닀<br>\n";
+
+		# NPC(魑魅魍魎)読み蟌み
+		require './inc/ore_sub-npc_2.cgi';
+		local $v=int(rand(7));
+		&ck_ne_2;
+
+		$log .="<hr size=1 noshade>\n";
+
+		$log .="$cmp[$nation]에 도사늬는 $tnm(을)륌 발견했닀!<br>\n";
+
+		$log .="전투 태섞륌 갖춥니닀!<br>\n";
+
+		$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="hidden" name="cmd" value="-1"><input $button1 type="submit" value=" 전투 돌입!!">$td_end</form>\n|;
+
+		$tm=40;
+		$ck=1;
+	}elsif($ck){
+
+		# 戊闘凊理読み蟌み
+		require './inc/ore_sub-battle.cgi';
+
+		if(!$b_n && !$tlr){
+			$tm = 0;
+			$ck = 0;
+			$nation = 0;#蚎䌐
+			$type='';
+
+			$log .="전투 쀑 였류가 발생했습니닀! 강제로 메읞 화멎윌로 돌아갑니닀<br>\n";
+		}
+
+		if($tm==40 && $cmd==-1){
+			$tm=55;
+			$log .="<p>$tnm곌의 대결!!</p><p>얎떻게 하겠습니까?</p>\n";
+			$log .="<p>읎맀망량 능력치 - $tnm ( HP $thp MP $tmp UA $tua UD $tud LV $tlv )</p>\n";
+		}
+
+		if($tm==55){
+
+			if($cmd==10){
+
+				my $btp = $ag + int(rand($lv)*0.8);
+				my $bte = $tag+ int(rand($tlv)*0.8);
+
+				if($btp>=$bte){
+					$log .="$nm 은 걞음아 날 삎렀띌 하고 도망쳀닀...<br>평판읎 크게 떚얎졌닀<br>\n";
+					$tm=0;
+					$v = int(2 + rand(4));
+					$rank_exe-=$v;
+
+					$sol=0;
+					$tnm='';
+					$ck=0;
+					$nation=0;#蚎䌐
+					$type='';
+
+					$vv = int(rand(2));
+					if(!$vv){
+						$we-- if($we>0);
+					}
+				}else{
+					$log .="$nm 은 걞음아 날 삎렀띌 하고 도망쳀닀...<br>하지만! $tnm에게 덜믞륌 잡히고 말았닀!!<br>\n";
+					$tm=65;
+					$rank_exe-=1;
+				}
+
+			}elsif($cmd==20){
+				$log .="$tnm 토벌을 시작합니닀!<br>\n";
+				$tm=65;
+				$rank_exe+=1;
+			}
+
+		}elsif($tm==65){
+
+			$log .="진검승부 시작!<br>\n";
+			$tm=75;
+
+		}elsif($tm==75){
+
+			&bt_cm;
+
+			if($thp<1){
+				# 獲埗金
+				$G =int(rand(200))+((500*$tlv)-($lv*50));
+				$G =1 if($G<1);
+				$G =int(rand(500))+1500 if($G>2000);
+				$gold +=$G;
+				# 経隓倀
+				$E = int((($tlv*2)+$tua+$tud+$tag)*(rand($lv/10)+3))-$lv*2;
+				$E = int(rand(300)+1300) if($E>1500);
+				$exe+=$E;
+
+				$thp=0;
+				$bst ='';
+				$bt =0;
+				$log .="$nm 은 $tnm 을 쓰러뜚렞닀!<br>\n";
+				$log .="$G GOLD와 $E 겜험치륌 획득했닀!<br>\n";
+				$log .="<br>\n";
+
+				# 賞金(自囜優䜍)
+				if($nation==$camp){
+					$G =int($my_cg/(rand(6)+15));
+					$G =int(rand(500))+1500 if(int(2000>=$G));
+					$G =int(rand(1500))+4000 if(int(5000<=$G));
+				}else{
+					if($nation==1){$G =int($cg1/(rand(11)+20));}
+					elsif($nation==2){$G =int($cg2/(rand(11)+20));}
+					elsif($nation==3){$G =int($cg2/(rand(11)+20));}
+					elsif($nation==4){$G =int($cg2/(rand(11)+20));}
+					elsif($nation==5){$G =int($cg2/(rand(11)+20));}
+
+					$G =int(rand(500))+500 if(int(1000>=$G));
+					$G =int(rand(1000))+2500 if(int(3500<=$G));
+				}
+
+				$exe+=$E;
+				$gold+=$G;
+
+				$tsol=int($tsol/2);
+
+				$log .="$cmp[$nation]로부터 $G 의 현상ꞈ을 획득했닀!<br>\n";#蚎䌐
+
+				$V =int(rand(4));
+				$sol_lv-=$V;
+				$rank_exe+=int($V*2)+5;
+
+				# 拟埗物凊理 1
+				if(int(rand(100))==0){
+					&syutoku1;
+				}else{
+					$sol=0;
+					$tnm='';
+					$ck = $tm = 0;
+					$nation=0;
+					$type='';
+				}
+
+				$we++;
+				if($we>250){
+					$log .="엘타니아 땅에 도사늬는 읎맀망량 토벌에 맀진한 공로로 $nm 은 $sogo_p[2] 칭혞륌 하사받았닀!<br>\n";
+					$sogo =2;
+					$we =0;
+				}
+
+			}elsif($hp<1){
+
+				$bst ='';
+				$bt =0;
+				$ck =0;
+				$hp =0;
+				$G=int(rand(10))+1;
+				$E=int(rand(5))+1;
+				$gold+=$G;
+				$exe+=$E;
+				$log .="당신은 $tnm 에게 팚배했닀 <br>\n";
+				$log .="$G GOLD와 $E 겜험치륌 획득했닀<br>\n";
+				$log .="<p></p>\n";
+
+				$sol=int($sol/2);
+
+				$rank_exe-=25;
+				$log .="ꎎ수에게 당했닀는 불명예슀러욎 팚배로 읞핎 당신에 대한 평판읎 곀란할 정도로 크게 떚얎졌닀<br>\n";
+				if($rank_exe<1){
+					$rank--;
+					$rank=1 if($rank<1);
+					$next_rank=int(($rank*$rank)*3);
+					$v=$next_rank-10;
+					$rank_exe=$v;
+					$log .="계꞉읎 한 닚계 강등되었닀 <br>\n";
+				}
+
+				$sol=0;
+				$tnm='';
+				$ck= $tm = 0;
+				$nation=0;#蚎䌐
+				$type='';
+
+			}
+
+		}
+
+		# 拟埗物凊理 2
+		if($cmd==40){
+			&syutoku2;
+		}elsif($cmd ==41){
+			$log .="$nm 은 못 볞 척하고 자늬륌 ë–Žë‹€......<br>\n";
+
+			$sol=0;
+			$tnm='';
+			$ck = $tm = 0;
+			$nation=0;#蚎䌐
+			$type='';
+		}
+
+		$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
+		$log2 .=qq|<td 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|;
+		if($tsol<1||$sol<1){
+			$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
+		}if($tm==55){
+			$log2 .=qq|<select name="cmd" size="1"><option value="10">도망친닀</option><option value="20">싞욎닀</option>\n|;
+			$log2 .=qq|</select>|;
+		}elsif($tm==65){
+			$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
+		}elsif($tm==75){
+			&spell_sp;
+		}elsif($tm>=100){
+			$log2 .=qq|<select name="cmd" size="1"><option value="40">쀍는닀</option><option value="41">귞냥 둔닀</option>\n|;
+			$log2 .=qq|</select>|;
+		}
+		$log2 .=qq|<br>|;#テヌブルずれ修正
+		$log2 .=qq|<input type="submit" $button1 value="닀음윌로!">$td_end</form>\n|;#テヌブル远加</tr></table>
+	}
+
+	&dat_write;
+
+}
+
+#拟埗物凊理
+sub syutoku1{
+
+	$log .="$tnm 읎 소멞한 자늬에 묎얞가 ë–šì–Žì ž 있닀......<br>$nm 은 ";
+
+	my $S = int(rand(10)+1);
+
+	# æ­Šå…·
+	if($S == 1){
+		$log .="$dg_data[2][1]을 발견했닀!!<br><br>장착할 겜우 현재 장착 쀑읞 묎구";
+		$tm = 110;
+	}elsif($S == 2){
+		$log .="$dg_data[3][1]을 발견했닀!!<br><br>장착할 겜우 현재 장착 쀑읞 묎구";
+		$tm = 120;
+	}elsif($S == 3){
+		$log .="$dg_data[4][1]을 발견했닀!!<br><br>장착할 겜우 현재 장착 쀑읞 묎구";
+		$tm = 130;
+
+	# 道具
+	}elsif($S == 4){
+		$log .="$di_data[1][1]을 발견했닀!!<br><br>소지할 겜우 현재 소지 쀑읞 도구";
+		$tm = 140;
+	}elsif($S == 5){
+		$log .="$di_data[2][1]을 발견했닀!!<br><br>소지할 겜우 현재 소지 쀑읞 도구";
+		$tm = 150;
+	}elsif($S == 6){
+		$log .="$di_data[3][1]을 발견했닀!!<br><br>소지할 겜우 현재 소지 쀑읞 도구";
+		$tm = 160;
+	}elsif($S == 7){
+		$log .="$di_data[4][1]을 발견했닀!!<br><br>소지할 겜우 현재 소지 쀑읞 도구";
+		$tm = 170;
+
+	# 防具
+	}elsif($S == 8){
+		$log .="$df_data[2][1]을 발견했닀!!<br><br>장착할 겜우 현재 소지 쀑읞 방얎구";
+		$tm = 180;
+	}elsif($S == 9){
+		$log .="$df_data[3][1]을 발견했닀!!<br><br>장착할 겜우 현재 소지 쀑읞 방얎구";
+		$tm = 190;
+	}elsif($S == 10){
+		$log .="$df_data[4][1]을 발견했닀!!<br><br>장착할 겜우 현재 소지 쀑읞 방얎구";
+		$tm = 200;
+	}
+	$log .="은 파Ʞ됩니닀.<br>얎떻게 하겠습니까?<br>";
+}
+
+#拟埗物凊理2
+sub syutoku2{
+	$log .="$nm 은 ";
+
+	# æ­Šå…·2
+	if($tm==110){
+		$log .="$dg_data[2][1]";
+		$dg_a = 2;
+		$dg_cnt=$dg_data[2][3];
+	}elsif($tm==120){
+		$log .="$dg_data[3][1]";
+		$dg_a = 3;
+		$dg_cnt=$dg_data[3][3];
+	}elsif($tm==130){
+		$log .="$dg_data[4][1]";
+		$dg_a = 4;
+		$dg_cnt=$dg_data[4][3];
+
+	# 道具2
+	}elsif($tm==140){
+		$log .="$di_data[1][1]";
+		$di_a = 1;
+		$di_cnt=$di_data[1][3];
+	}elsif($tm==150){
+		$log .="$di_data[2][1]";
+		$di_a = 2;
+		$di_cnt=$di_data[2][3];
+	}elsif($tm==160){
+		$log .="$di_data[3][1]";
+		$di_a = 3;
+	}elsif($tm==170){
+		$log .="$di_data[4][1]";
+		$di_a = 4;
+		$di_cnt=$di_data[4][3];
+
+	# 防具2
+	}elsif($tm==180){
+		$log .="$df_data[2][1]";
+		$df_a = 2;
+		$df_cnt=$df_data[2][3];
+	}elsif($tm==190){
+		$log .="$df_data[3][1]";
+		$df_a = 3;
+		$df_cnt=$df_data[3][3];
+	}elsif($tm==200){
+		$log .="$df_data[4][1]";
+		$df_a = 4;
+		$df_cnt=$df_data[4][3];
+	}
+
+	$log .="을 손에 넣었닀!!<br>\n";
+
+	$sol=0;
+	$tnm='';
+	$ck = $tm = 0;
+	$nation=0;#蚎䌐
+	$type='';
+}
+
+1;
diff --git a/inc/ore_sub-system.cgi b/inc/ore_sub-system.cgi
old mode 100644
new mode 100755
index 84bbcfa..cc52060
--- a/inc/ore_sub-system.cgi
+++ b/inc/ore_sub-system.cgi
@@ -1,497 +1,493 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# ‹€’ʃTƒuƒ‹[ƒ`ƒ“ Version 1.0
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-# ƒtƒ@ƒCƒ‹ IN ŠÖ˜A
-
-#---------------------------------------#
-# ŽQ‰ÁŽÒƒf[ƒ^‘SŽæ“Ÿ                    #
-#---------------------------------------#
-# ŽQ‰ÁŽÒƒf[ƒ^ƒtƒ@ƒCƒ‹ˆê——Žæ“Ÿ
-sub usrdata_read{
-	opendir(DIR,"$usrdata") || &error("ƒ†[ƒUƒf[ƒ^“Ç‚Ý‚±‚݃Gƒ‰[",1);
-	@usrfile = grep /\.cgi/,readdir(DIR);
-	closedir(DIR);
-}
-# ŽQ‰ÁŽÒƒf[ƒ^ˆêŠ‡“ǂݍž‚Ý
-sub usrdata_open{
-	foreach (0 .. $#usrfile) {
-		open(IN,"$usrdata$usrfile[$_]") || &error("Can't open $usrfile[$_]",1);
-		$line = <IN>;
-		close(IN);
-		push(@tdat,$line);
-	}
-}
-
-#---------------------------------------#
-# ŽQ‰ÁŽÒƒf[ƒ^ŒÂ•ÊŽæ“Ÿ                  #
-#---------------------------------------#
-# ŽQ‰ÁŽÒƒf[ƒ^ŒÂ•Ê“ǂݍž‚Ý
-sub usr_file_open{
-
-	open(IN,"$usrdata$id\.cgi") || &error("Õ°»Þ°ID‚ªŠÔˆá‚Á‚Ä‚¢‚é‚©A“o˜^‚³‚ê‚Ä‚¢‚Ü‚¹‚ñB<br>Open Error : $usrdata$id\.cgi",1);
-	@dat = <IN>;
-	close(IN);
-
-	%DAT = '';
-#	chop $dat[0];
-	my @prats = split(/,/,$dat[0]);
-	foreach (0 .. $#prats){
-		my($key,$v) = split(/;/,$prats[$_]);
-		$DAT{$key} = $v;
-	}
-	&error("ƒpƒXƒ[ƒh‚ªŠÔˆá‚Á‚Ä‚¢‚Ü‚·",1) if($pw ne $DAT{'pw'} && $admin_pass ne $pw);
-
-	&hash_data;
-
-	# s“®ƒZƒbƒVƒ‡ƒ“ƒŠƒZƒbƒg
-	$act_cnt=0	if($time-$la>3600*24);
-
-}
-
-# ƒnƒbƒVƒ…Š„‚è“–‚Ä
-sub hash_data{
-	$pw			= $DAT{'pw'};		# ƒpƒXƒ[ƒh
-	$gold		= $DAT{'gold'};		# ‚š‹à
-	$nm			= $DAT{'nm'};		# –Œ‘O
-	$lv			= $DAT{'lv'};		# ƒŒƒxƒ‹
-	$sei		= $DAT{'sei'};		# «•Ê
-	$hp			= $DAT{'hp'};		# ‘Ì—Í
-	$max_hp		= $DAT{'max_hp'};	# Å‘å‘Ì—Í
-	$mp			= $DAT{'mp'};		# –‚—Í
-	$max_mp		= $DAT{'max_mp'};	# Å‘å–‚—Í
-	$ua			= $DAT{'ua'};		# UŒ‚—Í
-	$ud			= $DAT{'ud'};		# –hŒä—Í
-	$lr			= $DAT{'lr'};		# ŽwŠö—Í
-	$ag			= $DAT{'ag'};		# •q·—Í
-	$exe		= $DAT{'exe'};		# ŒoŒ±’l
-	$rank		= $DAT{'rank'};		# ŠK‹‰
-	$rank_exe	= $DAT{'rank_exe'};	# vŒ£’l
-	$camp		= $DAT{'camp'};		# Š‘®‘
-	$sol		= $DAT{'sol'}; 		# •”‘à”
-	$sol_lv		= $DAT{'sol_lv'};	# •”‘àŒP—û“x
-	$nation		= $DAT{'nation'};	# ‘Ώۍ‘
-	$we			= $DAT{'we'};		# “¢”° ‰ñ”
-	$dg_a		= $DAT{'dg_a'};		# •‹ï
-	$dg_cnt		= $DAT{'dg_cnt'};	# •‹ï ‰ñ”
-	$df_a		= $DAT{'df_a'};		# –h‹ï
-	$df_cnt		= $DAT{'df_cnt'};	# –h‹ï ‰ñ”
-	$di_a		= $DAT{'di_a'};		# “¹‹ï
-	$di_cnt		= $DAT{'di_cnt'};	# “¹‹ï ‰ñ”
-	$sogo		= $DAT{'sogo'};		# Ì†
-	$type		= $DAT{'type'};		# s“®”»’è(s“®ƒtƒ‰ƒO)
-	$tm			= $DAT{'tm'};		# s“®”»’è(s“®ƒtƒ‰ƒO)
-	$bt			= $DAT{'bt'};		# í“¬Žž“GƒLƒƒƒ‰”»•Ê(s“®ƒtƒ‰ƒO)
-	$bst		= $DAT{'bst'};		# ‹Z‚É‚æ‚é”\—͏㏞‚Ì”»’è
-	$ck			= $DAT{'ck'};		# í“¬”»’è(s“®ƒtƒ‰ƒO)
-	$pr			= $DAT{'pr'};		# S‘©ŽžŠÔ Žc‚è(s“®ƒtƒ‰ƒO)
-	$la			= $DAT{'la'};		# XVŽžŠÔ
-	$roku		= $DAT{'roku'};		# ‘O‰ñ‹‹—¿‚ª•¥‚í‚ê‚œŽžŠÔ(ŽdŠ¯‚µ‚œŽžŠÔ)
-	$mes		= $DAT{'mes'};		# ƒƒbƒZ[ƒW
-	$tnm		= $DAT{'tnm'};		# –Œ‘O “G
-	$tid		= $DAT{'tid'};		# ID “G
-	$thp		= $DAT{'thp'};		# ‘Ì—Í “G
-	$thp_max	= $DAT{'thp_max'};	# Å‘å‘Ì—Í “G
-	$tmp		= $DAT{'tmp'};		# –‚—Í “G
-	$tlv		= $DAT{'tlv'};		# ƒŒƒxƒ‹ “G
-	$tua		= $DAT{'tua'};		# UŒ‚—Í “G
-	$tud		= $DAT{'tud'};		# –hŒä—Í “G
-	$tlr		= $DAT{'tlr'};		# ŽwŠö—Í “G
-	$tag		= $DAT{'tag'};		# •q·—Í “G
-	$tdf_a		= $DAT{'tdf_a'};	# –h‹ï “G
-	$tdg_a		= $DAT{'tdg_a'};	# •Ší “G
-	$tcp		= $DAT{'tcp'};		# Š‘®‘ “G
-	$tsol		= $DAT{'tsol'};		# •”‘à” “G
-	$tsg		= $DAT{'tsg'};		# Ì† “G
-	$tsol_lv	= $DAT{'tsol_lv'};	# “G•”‘àŒP—û“x
-	$b_n		= $DAT{'b_n'};		# í“¬ŒÀŠEƒ^[ƒ“
-	$b_v		= $DAT{'b_v'};		# Œ»Ý‚̃^[ƒ“”
-	$n			= $_;				# ”z—ñƒCƒ“ƒfƒbƒNƒX
-
-	$act_cnt	= $DAT{'act_cnt'};	# s“®ƒZƒbƒVƒ‡ƒ“’l
-	$age_time	= $DAT{'age_time'};	# ‘O‰ñ‚̃Œƒxƒ‹ƒAƒbƒv < timeŽ®
-	$info_mes	= $DAT{'info_mes'};	# î•ñŽž‚É•\ŽŠ‚³‚ê‚éƒRƒƒ“ƒg
-
-	$pr			-= $time-$la;
-	$pr			= 0 if($pr<0);
-}
-
-# ‘ÃÞ°À“ǂݍž‚Ý
-sub cdata_open{
-	open (IN,"$cdatfile") || &error("‘ÃÞ°À̧²Ù‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚œ",1);
-	@cdat = <IN>;
-	close(IN)    or die "Can't close   : $!";
-
-	%CP = '';
-	my @prats = split(/,/,$cdat[0]);
-	foreach $prats (@prats){
-		my($k,$v) = split(/;/,$prats);
-		$CP{$k} = $v;
-	}
-
-	$cn1=$CP{'cn1'};# ‘1‚̍‘—Í
-	$cg1=$CP{'cg1'};# ‘1‚Ìà­
-	$cf1=$CP{'cf1'};# ‘1‚Ì’~•Ä
-	$cs1=$CP{'cs1'};# ‘1‚Ì—\”õ•º
-	$ce1=$CP{'ce1'};# ‘1‚ÌŒ»ó
-	$c1	=$CP{'c1'};	# ‘1‚ÌŽQ‰Ál”
-	$c1a=$CP{'c1a'};# ‘1‚Ì’èˆõ”
-	$cn2=$CP{'cn2'};
-	$cg2=$CP{'cg2'};
-	$cf2=$CP{'cf2'};
-	$cs2=$CP{'cs2'};
-	$ce2=$CP{'ce2'};
-	$c2	=$CP{'c2'};
-	$c2a=$CP{'c2a'};
-	$cn3=$CP{'cn3'};
-	$cg3=$CP{'cg3'};
-	$cf3=$CP{'cf3'};
-	$cs3=$CP{'cs3'};
-	$ce3=$CP{'ce3'};
-	$c3	=$CP{'c3'};
-	$c3a=$CP{'c3a'};
-	$cn4=$CP{'cn4'};
-	$cg4=$CP{'cg4'};
-	$cf4=$CP{'cf4'};
-	$cs4=$CP{'cs4'};
-	$ce4=$CP{'ce4'};
-	$c4	=$CP{'c4'};
-	$c4a=$CP{'c4a'};
-	$cn5=$CP{'cn5'};
-	$cg5=$CP{'cg5'};
-	$cf5=$CP{'cf5'};
-	$cs5=$CP{'cs5'};
-	$ce5=$CP{'ce5'};
-	$c5	=$CP{'c5'};
-	$c5a=$CP{'c5a'};
-	$set=$CP{'set'};
-	$all_mem=$CP{'all_mem'};
-	$goal_no=$CP{'goal_no'};	# Œ»Ý‰œŠú‚©B
-	$hasya=$CP{'hasya'};
-	$hcamp=$CP{'hcamp'};
-	$wr_mes=$CP{'wr_mes'};
-
-	if($camp==1){
-		$my_cn=$cn1;
-		$my_cg=$cg1;
-		$my_cf=$cf1;
-		$my_cs=$cs1;
-		$my_ce=$ce1;
-	}elsif($camp==2){
-		$my_cn=$cn2;
-		$my_cg=$cg2;
-		$my_cf=$cf2;
-		$my_cs=$cs2;
-		$my_ce=$ce2;
-	}elsif($camp==3){
-		$my_cn=$cn3;
-		$my_cg=$cg3;
-		$my_cf=$cf3;
-		$my_cs=$cs3;
-		$my_ce=$ce3;
-	}elsif($camp==4){
-		$my_cn=$cn4;
-		$my_cg=$cg4;
-		$my_cf=$cf4;
-		$my_cs=$cs4;
-		$my_ce=$ce4;
-	}elsif($camp==5){
-		$my_cn=$cn5;
-		$my_cg=$cg5;
-		$my_cf=$cf5;
-		$my_cs=$cs5;
-		$my_ce=$ce5;
-	}
-}
-
-# ƒƒOƒf[ƒ^“ǂݍž‚Ý
-sub read_data{
-
-	# ƒLƒƒƒ‰ƒf[ƒ^“ǂݍž‚Ý
-	&usr_file_open;
-
-	# ƒŠƒ[ƒh‹K§
-	foreach(0 .. $#act_limit){
-		# ƒGƒ‰[•\ŽŠŽ®(ƒŠƒ[ƒh—}§‚ð–ŸŽŠ“I‚ɍs‚¢‚œ‚¢•û‚̓Rƒ`ƒ‰‚ªƒIƒXƒXƒB)
-#		&error("s“®‚Í $act_limit[$_][1]•bˆÈãŠÔŠu‚ð‹ó‚¯‚čs‚È‚Á‚Ä‚­‚Ÿ‚³‚¢",1) if($time<=$la+$act_limit[$_][1] && $hour==$act_limit[$_][0]);
-		# ƒŠƒ[ƒh–³ŒøŽ®
-		if($time<=$la+$act_limit[$_][1] && $hour==$act_limit[$_][0]){
-			print "Status: 204\n\n";
-			if($mode ne "mes_write"){
-				&unlock($lock) if $lock_check;
-			}
-			exit;
-		}
-	}
-
-	# ‘ƒf[ƒ^“ǂݍž‚Ý
-	&cdata_open;
-
-	$id_p = $id;
-	$pw_p = $pw;
-
-	$next_lv	= int(($lv*$lv)*10);
-	$max_sol	= $g_p[$rank];
-	$sol_lv		= 1		if($sol_lv<1);
-	$sol_lv		= 100	if($sol_lv>100);
-	$max_hp		= 9999	if($max_hp>9999);
-	$max_mp		= 9999	if($max_mp>9999);
-	$mp			= 1		if($mp<1);
-	$ua			= 999	if($ua>999);
-	$ud			= 999	if($ud>999);
-	$lr			= 999	if($lr>999);
-	$ag			= 999	if($ag>999);
-	$rank		= 14	if($rank>14);
-	$rank_exe	= 0		if($rank_exe<1);
-	$lv			= 1		if($lv<1);
-	$hp			= $max_hp	if($hp>$max_hp);
-	$mp			= $max_mp	if($mp>$max_mp);
-
-	if($pr<1){
-		&settei;#Ý’è“ǂݍž‚Ý
-		&status;#ƒXƒe[ƒ^ƒX•\ŽŠ
-	}
-	$bmes="ÅVî•ñ  $wr_mes\n" if $wr_mes;
-
-	$data_reset = int(($cn1+$cn2+$cn3+$cn4+$cn5) * $reset_point);
-
-}
-
-#-------------------------------------------------------------------------------
-# ƒtƒ@ƒCƒ‹ OUT ŠÖ˜A
-
-# ‘ƒf[ƒ^•ƒLƒƒƒ‰ƒf[ƒ^‘‚«ž‚Ý
-sub write_data{
-	&cdat_write;
-	&dat_write;
-}
-
-# ‘ƒf[ƒ^‘‚«ž‚Ý
-sub cdat_write{
-	$cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,cn2;$cn2,cg2;$cg2,cf2;$cf2,cs2;$cs2,ce2;$ce2,c2;$c2,c2a;$c2a,cn3;$cn3,cg3;$cg3,cf3;$cf3,cs3;$cs3,ce3;$ce3,c3;$c3,c3a;$c3a,cn4;$cn4,cg4;$cg4,cf4;$cf4,cs4;$cs4,ce4;$ce4,c4;$c4,c4a;$c4a,cn5;$cn5,cg5;$cg5,cf5;$cf5,cs5;$cs5,ce5;$ce5,c5;$c5,c5a;$c5a,set;$set,all_mem;$all_mem,goal_no;$goal_no,hasya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,\n";
-
-	open (OUT,">$cdatfile") || &error("open error:$cdatfile",1);
-	print OUT $cdat;
-	close(OUT)		or die "Can't close   : $!";
-}
-
-# ƒLƒƒƒ‰ƒf[ƒ^‘‚«ž‚Ý
-sub dat_write{
-
-	&error("open error no such a file!",1) if(!$nm || !$id);
-
-	$dat[0] = "la;$time,nm;$nm,pw;$pw,id;$id,sei;$sei,type;$type,age_time;$age_time,act_cnt;$act_cnt,hp;$hp,max_hp;$max_hp,lv;$lv,mp;$mp,max_mp;$max_mp,rank;$rank,ua;$ua,ud;$ud,lr;$lr,ag;$ag,ck;$ck,tm;$tm,bt;$bt,bst;$bst,exe;$exe,rank_exe;$rank_exe,sol;$sol,sol_lv;$sol_lv,nation;$nation,we;$we,camp;$camp,pr;$pr,tnm;$tnm,tid;$tid,thp;$thp,tlr;$tlr,tag;$tag,tsol;$tsol,tsg;$tsg,tsol_lv;$tsol_lv,b_n;$b_n,b_v;$b_v,thp_max;$thp_max,tlv;$tlv,tdg_a;$tdg_a,tdf_a;$tdf_a,tua;$tua,tud;$tud,tmp;$tmp,tcp;$tcp,gold;$gold,roku;$roku,dg_a;$dg_a,dg_cnt;$dg_cnt,df_a;$df_a,df_cnt;$df_cnt,di_a;$di_a,di_cnt;$di_cnt,sogo;$sogo,mes;$mes,info_mes;$info_mes,\n";
-	$dat[1] = "$date<>$addr<>$host<>$agent<>\n";
-
-	open (OUT,">$usrdata$id\.cgi") || &error("open error:$usrdata$id\.cgi",1);
-	print OUT @dat;
-	close(OUT)		or die "Can't close   : $!";
-}
-
-# ‰ß‹Ž‚̉hŒõ‘‚«ž‚݁•ƒoƒbƒNƒAƒbƒvˆ—
-sub hist_write{
-
-	$cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,cn2;$cn2,cg2;$cg2,cf2;$cf2,cs2;$cs2,ce2;$ce2,c2;$c2,c2a;$c2a,cn3;$cn3,cg3;$cg3,cf3;$cf3,cs3;$cs3,ce3;$ce3,c3;$c3,c3a;$c3a,cn4;$cn4,cg4;$cg4,cf4;$cf4,cs4;$cs4,ce4;$ce4,c4;$c4,c4a;$c4a,cn5;$cn5,cg5;$cg5,cf5;$cf5,cs5;$cs5,ce5;$ce5,c5;$c5,c5a;$c5a,set;$set,all_mem;$all_mem,goal_no;$goal_no,hasya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,\n";
-
-	open (DB,">>$histfile") || &error("open error:$histfile",1);
-	print DB $cdat;
-	close(DB)		or die "Can't close   : $!";
-}
-
-#-------------------------------------------------------------------------------
-# ƒtƒ@ƒCƒ‹ƒƒbƒNŠÖ˜A(renameŽ®)
-
-#	$lock = &lock if($lock_check);
-#	&unlock($lock) if($lock_check);
-# -----ƒƒbƒN-----
-sub lock {
-	my %lock = (dir => "$lockdir", basename => "$lockfile", timeout => 30, trytime => 10, @_);
-	$lock{path} = $lock{dir} . $lock{basename};
-	for (my $i = 0; $i < $lock{trytime}; $i++, sleep 1) {
-		return \%lock if (rename($lock{path}, $lock{current} = $lock{path} . time));
-	}
-	opendir(LOCKDIR, $lock{dir});
-	my @filelist = readdir(LOCKDIR);
-	closedir(LOCKDIR);
-	foreach (@filelist) {
-		if (/^$lock{basename}(\d+)/) {
-			return \%lock if (time - $1 > $lock{timeout} and
-			rename($lock{dir} . $_, $lock{current} = $lock{path} . time));
-			last;
-		}
-	}
-	undef;
-	&error("ƒtƒ@ƒCƒ‹‚ªƒƒbƒN‚³‚ê‚Ä‚¢‚Ü‚·");
-}
-
-# -----ƒƒbƒN‰ðœ-----
-sub unlock {
-	rename($_[0]->{current}, $_[0]->{path});
-}
-
-#-------------------------------------------------------------------------------
-# ƒtƒH[ƒ€ƒf[ƒ^ŠÖ˜A
-
-# ƒtƒH[ƒ€ƒfƒR[ƒhˆ—
-sub decode {
-	local($buffer, @pairs, $name, $value);
-	$post_flag=0;
-	if($ENV{'REQUEST_METHOD'} eq "POST"){
-		$post_flag=1;
-		&error("“Še—Ê‚ª‘å‚«‚·‚¬‚Ü‚·") if($ENV{'CONTENT_LENGTH'}>1024);
-		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
-	}else{
-		$buffer = $ENV{'QUERY_STRING'};
-		&error("“Še—Ê‚ª‘å‚«‚·‚¬‚Ü‚·") if(length($buffer)>800)
-	}
-	@pairs = split(/&/, $buffer);
-	foreach (@pairs) {
-		($name,$value) = split(/=/);
-		$value =~ tr/+/ /;
-		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-
-		# ‹L†’uŠ·‚Š
-		$value =~ s/&/&amp;/g;
-		$value =~ s/\;/&#59\;/g;
-		$value =~ s/,/&#44\;/g;
-		$value =~ s/</&lt;/g;
-		$value =~ s/>/&gt;/g;
-		$value =~ s/"/&quot;/g;
-		$value =~ s/\//&#47\;/g;
-		$value =~ s/\./&#46\;/g;
-		$value =~ s/cgi/&#99\;&#103\;&#105\;/g;
-		# ‰üs“™ˆ—
-		$value =~ s/\r\n//g;
-		$value =~ s/\r//g;
-		$value =~ s/\n//g;
-
-		# •¶ŽšƒR[ƒh‚ðƒVƒtƒgJIS•ÏŠ·
-		&jcode'convert(*value, "sjis", "", "z");
-
-		$in{$name} = $value;
-
-		# ˆêŠ‡íœ—p
-		if ($name eq "usr_del") { push(@USR_DEL,$value); }
-	}
-	$pw		= $in{'pw'};
-	$cmd	= $in{'cmd'};
-	$com	= $in{'com'};
-	$id		= $in{'id'};
-	$mode	= $in{'mode'};
-}
-
-#-------------------------------------------------------------------------------
-# ƒAƒNƒZƒX§ŒäŠÖ˜A
-
-# ƒAƒNƒZƒXƒ`ƒFƒbƒN(ƒAƒNƒZƒX‹‘”Û)
-sub axs_check {
-	&get_host;
-
-	local($flag)=0;
-	foreach (@deny) {
-		if (!$_) { next; }
-		$_ =~ s/\*/\.\*/g;
-		if ($host =~ /$_/i || $addr =~ /$_/i) { $flag=1; last; }
-	}
-	if ($flag) { &error("ƒAƒNƒZƒX‚ð‹–‰Â‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ"); }
-}
-
-# ƒzƒXƒgî•ñŽæ“Ÿ
-sub get_host {
-	$host = $ENV{'REMOTE_HOST'};
-	$addr = $ENV{'REMOTE_ADDR'};
-	$agent= $ENV{'HTTP_USER_AGENT'};
-
-	if ($get_remotehost) {
-		if ($host eq "" || $host eq "$addr") {
-			$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
-		}
-	}
-	if ($host eq "") { $host = $addr; }
-}
-
-# ŽžŠÔŽæ“Ÿ
-sub get_time {
-	$time = time;
-	($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime($time);
-	$min = "0$min" if($min<10);
-	$sec = "0$sec" if($sec<10);
-	$month++;
-	@week=('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
-	$date = "$month/$mday $hour:$min:$sec";
-	srand($time);
-}
-
-# ƒvƒŒƒC‹K§
-sub safetime {
-	foreach (0 .. $#safetime){
-		&error("ƒvƒŒƒC‹K§ŽžŠÔ’†‚Å‚·BŽb‚­‚š‘Ò‚¿‰º‚³‚¢B") if $hour eq $safetime[$_];
-	}
-}
-
-#-------------------------------------------------------------------------------
-# •\ŽŠŠÖ˜A
-
-# ˆ³k“]‘—
-sub content_type {
-	if($gzip){
-		$|=1;
-		if($ENV{'HTTP_ACCEPT_ENCODING'}=~/gzip/ ){
-			print "Content-type: text/html; charset=shift_jis\n";
-			print "Content-encoding: gzip\n\n";
-			open(STDOUT,"| $gzip -1 -c");
-		}else{
-			print "Content-type: text/html; charset=shift_jis\n\n";
-		}
-		print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n";
-	} else {
-		print "Content-type: text/html; charset=shift_jis\n\n";
-		print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n";
-	}
-}
-
-#’˜ìŒ •\ŽŠ(íœ¥•ÏX•s‰Â)
-sub copyright{
-	if($mv_mode eq 'mv'){
-		print qq|<hr color="white">ß‚Æ”±++ “ñ—¥”w”œ $ver<br><a href="http://pom.to/">BLANK BOARD[‚Ë‚Á‚Æ—V‰€’nô]</a>| if(!$tm && !$log);
-		print qq|</body></html>|;
-	}else{
-		print <<"EOM";
-<div align="right" style="font-size:12px">
-ß‚Æ”±++ “ñ—¥”w”œ $ver<br>
-<a href="http://www17.big.or.jp/~obochan/vivid/" target="_blank" style="font-size:13px">Vivid Studio.</a><br>
-<a href="http://pom.to/" target="_blank" style="font-size:11px">BLANK BOARD[‚Ë‚Á‚Æ—V‰€’nô]<br>
-<img src="$imgs/bb.gif" border="0" alt="BLANK BOARD[‚Ë‚Á‚Æ—V‰€’nô]"></a>
-</div>
-</body>
-</html>
-EOM
-	}
-}
-
-# ƒGƒ‰[•\ŽŠ
-sub error{
-	print "Content-type: text/html\n\n";
-	print "<html><head><title>CGI Error</title></head>\n";
-	print "<body $body><h1>CGI Error</h1>\n";
-	print "<p>This program encountered an internal error.</p>";
-	print "<p><b>Error:</b> $_[0]</p>\n";
-	print "</body></html>";
-	if ($_[1] && $lock_check) { &unlock($lock); }
-	exit;
-}
-
-
-
-
-
-1;#íœ•s‰Â
+#-----------------------------------------------------------#
+#  眪ず眰++ 二埋背反										#
+#  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/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# ファむル IN 関連
+
+#---------------------------------------#
+# 参加者デヌタ党取埗                    #
+#---------------------------------------#
+# 参加者デヌタファむル䞀芧取埗
+sub usrdata_read{
+	opendir(DIR,"$usrdata") || &error("유저 데읎터 로딩 였류",1);
+	@usrfile = grep /\.cgi/,readdir(DIR);
+	closedir(DIR);
+}
+# 参加者デヌタ䞀括読み蟌み
+sub usrdata_open{
+	foreach (0 .. $#usrfile) {
+		open(IN,"$usrdata$usrfile[$_]") || &error("Can't open $usrfile[$_]",1);
+		$line = <IN>;
+		close(IN);
+		push(@tdat,$line);
+	}
+}
+
+#---------------------------------------#
+# 参加者デヌタ個別取埗                  #
+#---------------------------------------#
+# 参加者デヌタ個別読み蟌み
+sub usr_file_open{
+
+	open(IN,"$usrdata$id\.cgi") || &error("유저 ID가 틀렞거나 등록되얎 있지 않습니닀.<br>Open Error : $usrdata$id\.cgi",1);
+	@dat = <IN>;
+	close(IN);
+
+	%DAT = '';
+#	chop $dat[0];
+	my @prats = split(/,/,$dat[0]);
+	foreach (0 .. $#prats){
+		my($key,$v) = split(/;/,$prats[$_]);
+		$DAT{$key} = $v;
+	}
+	&error("비밀번혞가 틀렞습니닀",1) if($pw ne $DAT{'pw'} && $admin_pass ne $pw);
+
+	&hash_data;
+
+	# 行動セッションリセット
+	$act_cnt=0	if($time-$la>3600*24);
+
+}
+
+# ハッシュ割り圓お
+sub hash_data{
+	$pw			= $DAT{'pw'};		# パスワヌド
+	$gold		= $DAT{'gold'};		# お金
+	$nm			= $DAT{'nm'};		# 名前
+	$lv			= $DAT{'lv'};		# レベル
+	$sei		= $DAT{'sei'};		# 性別
+	$hp			= $DAT{'hp'};		# 䜓力
+	$max_hp		= $DAT{'max_hp'};	# 最倧䜓力
+	$mp			= $DAT{'mp'};		# 魔力
+	$max_mp		= $DAT{'max_mp'};	# 最倧魔力
+	$ua			= $DAT{'ua'};		# 攻撃力
+	$ud			= $DAT{'ud'};		# 防埡力
+	$lr			= $DAT{'lr'};		# 指揮力
+	$ag			= $DAT{'ag'};		# 敏捷力
+	$exe		= $DAT{'exe'};		# 経隓倀
+	$rank		= $DAT{'rank'};		# 階箚
+	$rank_exe	= $DAT{'rank_exe'};	# 貢献倀
+	$camp		= $DAT{'camp'};		# 所属囜
+	$sol		= $DAT{'sol'}; 		# 郚隊数
+	$sol_lv		= $DAT{'sol_lv'};	# 郚隊蚓緎床
+	$nation		= $DAT{'nation'};	# 察象囜
+	$we			= $DAT{'we'};		# 蚎䌐 回数
+	$dg_a		= $DAT{'dg_a'};		# æ­Šå…·
+	$dg_cnt		= $DAT{'dg_cnt'};	# æ­Šå…· 回数
+	$df_a		= $DAT{'df_a'};		# 防具
+	$df_cnt		= $DAT{'df_cnt'};	# 防具 回数
+	$di_a		= $DAT{'di_a'};		# 道具
+	$di_cnt		= $DAT{'di_cnt'};	# 道具 回数
+	$sogo		= $DAT{'sogo'};		# 称号
+	$type		= $DAT{'type'};		# 行動刀定(行動フラグ)
+	$tm			= $DAT{'tm'};		# 行動刀定(行動フラグ)
+	$bt			= $DAT{'bt'};		# 戊闘時敵キャラ刀別(行動フラグ)
+	$bst		= $DAT{'bst'};		# 技による胜力䞊昇の刀定
+	$ck			= $DAT{'ck'};		# 戊闘刀定(行動フラグ)
+	$pr			= $DAT{'pr'};		# 拘束時間 残り(行動フラグ)
+	$la			= $DAT{'la'};		# 曎新時間
+	$roku		= $DAT{'roku'};		# 前回絊料が払われた時間(仕官した時間)
+	$mes		= $DAT{'mes'};		# メッセヌゞ
+	$tnm		= $DAT{'tnm'};		# 名前 敵
+	$tid		= $DAT{'tid'};		# ID 敵
+	$thp		= $DAT{'thp'};		# 䜓力 敵
+	$thp_max	= $DAT{'thp_max'};	# 最倧䜓力 敵
+	$tmp		= $DAT{'tmp'};		# 魔力 敵
+	$tlv		= $DAT{'tlv'};		# レベル 敵
+	$tua		= $DAT{'tua'};		# 攻撃力 敵
+	$tud		= $DAT{'tud'};		# 防埡力 敵
+	$tlr		= $DAT{'tlr'};		# 指揮力 敵
+	$tag		= $DAT{'tag'};		# 敏捷力 敵
+	$tdf_a		= $DAT{'tdf_a'};	# 防具 敵
+	$tdg_a		= $DAT{'tdg_a'};	# 歊噚 敵
+	$tcp		= $DAT{'tcp'};		# 所属囜 敵
+	$tsol		= $DAT{'tsol'};		# 郚隊数 敵
+	$tsg		= $DAT{'tsg'};		# 称号 敵
+	$tsol_lv	= $DAT{'tsol_lv'};	# 敵郚隊蚓緎床
+	$b_n		= $DAT{'b_n'};		# 戊闘限界タヌン
+	$b_v		= $DAT{'b_v'};		# 珟圚のタヌン数
+	$n			= $_;				# 配列むンデックス
+
+	$act_cnt	= $DAT{'act_cnt'};	# 行動セッション倀
+	$age_time	= $DAT{'age_time'};	# 前回のレベルアップ < time匏
+	$info_mes	= $DAT{'info_mes'};	# 情報時に衚瀺されるコメント
+
+	$pr			-= $time-$la;
+	$pr			= 0 if($pr<0);
+}
+
+# 囜読み蟌み
+sub cdata_open{
+	open (IN,"$cdatfile") || &error("국가 데읎터 파음을 ì—Ž 수 없습니닀",1);
+	@cdat = <IN>;
+	close(IN)    or die "Can't close   : $!";
+
+	%CP = '';
+	my @prats = split(/,/,$cdat[0]);
+	foreach $prats (@prats){
+		my($k,$v) = split(/;/,$prats);
+		$CP{$k} = $v;
+	}
+
+	$cn1=$CP{'cn1'};# 囜1の囜力
+	$cg1=$CP{'cg1'};# 囜1の財政
+	$cf1=$CP{'cf1'};# 囜1の蓄米
+	$cs1=$CP{'cs1'};# 囜1の予備兵
+	$ce1=$CP{'ce1'};# 囜1の珟状
+	$c1	=$CP{'c1'};	# 囜1の参加人数
+	$c1a=$CP{'c1a'};# 囜1の定員数
+	$cn2=$CP{'cn2'};
+	$cg2=$CP{'cg2'};
+	$cf2=$CP{'cf2'};
+	$cs2=$CP{'cs2'};
+	$ce2=$CP{'ce2'};
+	$c2	=$CP{'c2'};
+	$c2a=$CP{'c2a'};
+	$cn3=$CP{'cn3'};
+	$cg3=$CP{'cg3'};
+	$cf3=$CP{'cf3'};
+	$cs3=$CP{'cs3'};
+	$ce3=$CP{'ce3'};
+	$c3	=$CP{'c3'};
+	$c3a=$CP{'c3a'};
+	$cn4=$CP{'cn4'};
+	$cg4=$CP{'cg4'};
+	$cf4=$CP{'cf4'};
+	$cs4=$CP{'cs4'};
+	$ce4=$CP{'ce4'};
+	$c4	=$CP{'c4'};
+	$c4a=$CP{'c4a'};
+	$cn5=$CP{'cn5'};
+	$cg5=$CP{'cg5'};
+	$cf5=$CP{'cf5'};
+	$cs5=$CP{'cs5'};
+	$ce5=$CP{'ce5'};
+	$c5	=$CP{'c5'};
+	$c5a=$CP{'c5a'};
+	$set=$CP{'set'};
+	$all_mem=$CP{'all_mem'};
+	$goal_no=$CP{'goal_no'};	# 珟圚䜕期か。
+	$hasya=$CP{'hasya'};
+	$hcamp=$CP{'hcamp'};
+	$wr_mes=$CP{'wr_mes'};
+
+	if($camp==1){
+		$my_cn=$cn1;
+		$my_cg=$cg1;
+		$my_cf=$cf1;
+		$my_cs=$cs1;
+		$my_ce=$ce1;
+	}elsif($camp==2){
+		$my_cn=$cn2;
+		$my_cg=$cg2;
+		$my_cf=$cf2;
+		$my_cs=$cs2;
+		$my_ce=$ce2;
+	}elsif($camp==3){
+		$my_cn=$cn3;
+		$my_cg=$cg3;
+		$my_cf=$cf3;
+		$my_cs=$cs3;
+		$my_ce=$ce3;
+	}elsif($camp==4){
+		$my_cn=$cn4;
+		$my_cg=$cg4;
+		$my_cf=$cf4;
+		$my_cs=$cs4;
+		$my_ce=$ce4;
+	}elsif($camp==5){
+		$my_cn=$cn5;
+		$my_cg=$cg5;
+		$my_cf=$cf5;
+		$my_cs=$cs5;
+		$my_ce=$ce5;
+	}
+}
+
+# ログデヌタ読み蟌み
+sub read_data{
+
+	# キャラデヌタ読み蟌み
+	&usr_file_open;
+
+	# リロヌド芏制
+	foreach(0 .. $#act_limit){
+		# ゚ラヌ衚瀺匏(リロヌド抑制を明瀺的に行いたい方はコチラがオススメ。)
+#		&error("行動は $act_limit[$_][1]秒以䞊間隔を空けお行なっおください",1) if($time<=$la+$act_limit[$_][1] && $hour==$act_limit[$_][0]);
+		# リロヌド無効匏
+		if($time<=$la+$act_limit[$_][1] && $hour==$act_limit[$_][0]){
+			print "Status: 204\n\n";
+			if($mode ne "mes_write"){
+				&unlock($lock) if $lock_check;
+			}
+			exit;
+		}
+	}
+
+	# 囜デヌタ読み蟌み
+	&cdata_open;
+
+	$id_p = $id;
+	$pw_p = $pw;
+
+	$next_lv	= int(($lv*$lv)*10);
+	$max_sol	= $g_p[$rank];
+	$sol_lv		= 1		if($sol_lv<1);
+	$sol_lv		= 100	if($sol_lv>100);
+	$max_hp		= 9999	if($max_hp>9999);
+	$max_mp		= 9999	if($max_mp>9999);
+	$mp			= 1		if($mp<1);
+	$ua			= 999	if($ua>999);
+	$ud			= 999	if($ud>999);
+	$lr			= 999	if($lr>999);
+	$ag			= 999	if($ag>999);
+	$rank		= 14	if($rank>14);
+	$rank_exe	= 0		if($rank_exe<1);
+	$lv			= 1		if($lv<1);
+	$hp			= $max_hp	if($hp>$max_hp);
+	$mp			= $max_mp	if($mp>$max_mp);
+
+	if($pr<1){
+		&settei;#蚭定読み蟌み
+		&status;#ステヌタス衚瀺
+	}
+	$bmes="최신 정볎 ◎ $wr_mes\n" if $wr_mes;
+
+	$data_reset = int(($cn1+$cn2+$cn3+$cn4+$cn5) * $reset_point);
+
+}
+
+#-------------------------------------------------------------------------------
+# ファむル OUT 関連
+
+# 囜デヌタキャラデヌタ曞き蟌み
+sub write_data{
+	&cdat_write;
+	&dat_write;
+}
+
+# 囜デヌタ曞き蟌み
+sub cdat_write{
+	$cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,cn2;$cn2,cg2;$cg2,cf2;$cf2,cs2;$cs2,ce2;$ce2,c2;$c2,c2a;$c2a,cn3;$cn3,cg3;$cg3,cf3;$cf3,cs3;$cs3,ce3;$ce3,c3;$c3,c3a;$c3a,cn4;$cn4,cg4;$cg4,cf4;$cf4,cs4;$cs4,ce4;$ce4,c4;$c4,c4a;$c4a,cn5;$cn5,cg5;$cg5,cf5;$cf5,cs5;$cs5,ce5;$ce5,c5;$c5,c5a;$c5a,set;$set,all_mem;$all_mem,goal_no;$goal_no,hasya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,\n";
+
+	open (OUT,">$cdatfile") || &error("open error:$cdatfile",1);
+	print OUT $cdat;
+	close(OUT)		or die "Can't close   : $!";
+}
+
+# キャラデヌタ曞き蟌み
+sub dat_write{
+
+	&error("open error no such a file!",1) if(!$nm || !$id);
+
+	$dat[0] = "la;$time,nm;$nm,pw;$pw,id;$id,sei;$sei,type;$type,age_time;$age_time,act_cnt;$act_cnt,hp;$hp,max_hp;$max_hp,lv;$lv,mp;$mp,max_mp;$max_mp,rank;$rank,ua;$ua,ud;$ud,lr;$lr,ag;$ag,ck;$ck,tm;$tm,bt;$bt,bst;$bst,exe;$exe,rank_exe;$rank_exe,sol;$sol,sol_lv;$sol_lv,nation;$nation,we;$we,camp;$camp,pr;$pr,tnm;$tnm,tid;$tid,thp;$thp,tlr;$tlr,tag;$tag,tsol;$tsol,tsg;$tsg,tsol_lv;$tsol_lv,b_n;$b_n,b_v;$b_v,thp_max;$thp_max,tlv;$tlv,tdg_a;$tdg_a,tdf_a;$tdf_a,tua;$tua,tud;$tud,tmp;$tmp,tcp;$tcp,gold;$gold,roku;$roku,dg_a;$dg_a,dg_cnt;$dg_cnt,df_a;$df_a,df_cnt;$df_cnt,di_a;$di_a,di_cnt;$di_cnt,sogo;$sogo,mes;$mes,info_mes;$info_mes,\n";
+	$dat[1] = "$date<>$addr<>$host<>$agent<>\n";
+
+	open (OUT,">$usrdata$id\.cgi") || &error("open error:$usrdata$id\.cgi",1);
+	print OUT @dat;
+	close(OUT)		or die "Can't close   : $!";
+}
+
+# 過去の栄光曞き蟌みバックアップ凊理
+sub hist_write{
+
+	$cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,cn2;$cn2,cg2;$cg2,cf2;$cf2,cs2;$cs2,ce2;$ce2,c2;$c2,c2a;$c2a,cn3;$cn3,cg3;$cg3,cf3;$cf3,cs3;$cs3,ce3;$ce3,c3;$c3,c3a;$c3a,cn4;$cn4,cg4;$cg4,cf4;$cf4,cs4;$cs4,ce4;$ce4,c4;$c4,c4a;$c4a,cn5;$cn5,cg5;$cg5,cf5;$cf5,cs5;$cs5,ce5;$ce5,c5;$c5,c5a;$c5a,set;$set,all_mem;$all_mem,goal_no;$goal_no,hasya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,\n";
+
+	open (DB,">>$histfile") || &error("open error:$histfile",1);
+	print DB $cdat;
+	close(DB)		or die "Can't close   : $!";
+}
+
+#-------------------------------------------------------------------------------
+# ファむルロック関連(rename匏)
+
+#	$lock = &lock if($lock_check);
+#	&unlock($lock) if($lock_check);
+# -----ロック-----
+sub lock {
+	my %lock = (dir => "$lockdir", basename => "$lockfile", timeout => 30, trytime => 10, @_);
+	$lock{path} = $lock{dir} . $lock{basename};
+	for (my $i = 0; $i < $lock{trytime}; $i++, sleep 1) {
+		return \%lock if (rename($lock{path}, $lock{current} = $lock{path} . time));
+	}
+	opendir(LOCKDIR, $lock{dir});
+	my @filelist = readdir(LOCKDIR);
+	closedir(LOCKDIR);
+	foreach (@filelist) {
+		if (/^$lock{basename}(\d+)/) {
+			return \%lock if (time - $1 > $lock{timeout} and
+			rename($lock{dir} . $_, $lock{current} = $lock{path} . time));
+			last;
+		}
+	}
+	undef;
+	&error("파음읎 잠겚 있습니닀");
+}
+
+# -----ロック解陀-----
+sub unlock {
+	rename($_[0]->{current}, $_[0]->{path});
+}
+
+#-------------------------------------------------------------------------------
+# フォヌムデヌタ関連
+
+# フォヌムデコヌド凊理
+sub decode {
+	local($buffer, @pairs, $name, $value);
+	$post_flag=0;
+	if($ENV{'REQUEST_METHOD'} eq "POST"){
+		$post_flag=1;
+		&error("게시Ꞁ 용량읎 너묎 큜니닀") if($ENV{'CONTENT_LENGTH'}>1024);
+		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
+	}else{
+		$buffer = $ENV{'QUERY_STRING'};
+		&error("게시Ꞁ 용량읎 너묎 큜니닀") if(length($buffer)>800)
+	}
+	@pairs = split(/&/, $buffer);
+	foreach (@pairs) {
+		($name,$value) = split(/=/);
+		$value =~ tr/+/ /;
+		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+
+		# 蚘号眮換え
+		$value =~ s/&/&amp;/g;
+		$value =~ s/\;/&#59\;/g;
+		$value =~ s/,/&#44\;/g;
+		$value =~ s/</&lt;/g;
+		$value =~ s/>/&gt;/g;
+		$value =~ s/"/&quot;/g;
+		$value =~ s/\//&#47\;/g;
+		$value =~ s/\./&#46\;/g;
+		$value =~ s/cgi/&#99\;&#103\;&#105\;/g;
+		# 改行等凊理
+		$value =~ s/\r\n//g;
+		$value =~ s/\r//g;
+		$value =~ s/\n//g;
+
+		# 文字コヌドをシフトJIS倉換
+		# &jcode'convert(*value, "sjis", "", "z");
+
+		$in{$name} = $value;
+
+		# 䞀括削陀甚
+		if ($name eq "usr_del") { push(@USR_DEL,$value); }
+	}
+	$pw		= $in{'pw'};
+	$cmd	= $in{'cmd'};
+	$com	= $in{'com'};
+	$id		= $in{'id'};
+	$mode	= $in{'mode'};
+}
+
+#-------------------------------------------------------------------------------
+# アクセス制埡関連
+
+# アクセスチェック(アクセス拒吊)
+sub axs_check {
+	&get_host;
+
+	local($flag)=0;
+	foreach (@deny) {
+		if (!$_) { next; }
+		$_ =~ s/\*/\.\*/g;
+		if ($host =~ /$_/i || $addr =~ /$_/i) { $flag=1; last; }
+	}
+	if ($flag) { &error("접속읎 허용되지 않았습니닀"); }
+}
+
+# ホスト情報取埗
+sub get_host {
+	$host = $ENV{'REMOTE_HOST'};
+	$addr = $ENV{'REMOTE_ADDR'};
+	$agent= $ENV{'HTTP_USER_AGENT'};
+
+	if ($get_remotehost) {
+		if ($host eq "" || $host eq "$addr") {
+			$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
+		}
+	}
+	if ($host eq "") { $host = $addr; }
+}
+
+# 時間取埗
+sub get_time {
+	$time = time;
+	($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime($time);
+	$min = "0$min" if($min<10);
+	$sec = "0$sec" if($sec<10);
+	$month++;
+	@week=('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
+	$date = "$month/$mday $hour:$min:$sec";
+	srand($time);
+}
+
+# プレむ芏制
+sub safetime {
+	foreach (0 .. $#safetime){
+		&error("플레읎 제한 시간입니닀. 잠시 Ʞ닀렀 죌십시였.") if $hour eq $safetime[$_];
+	}
+}
+
+#-------------------------------------------------------------------------------
+# 衚瀺関連
+
+# 圧瞮転送
+sub content_type {
+	if($gzip){
+		$|=1;
+		if($ENV{'HTTP_ACCEPT_ENCODING'}=~/gzip/ ){
+			print "Content-type: text/html; charset=UTF-8\n";
+			print "Content-encoding: gzip\n\n";
+			open(STDOUT,"| $gzip -1 -c");
+		}else{
+			print "Content-type: text/html; charset=UTF-8\n\n";
+		}
+		print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n";
+	} else {
+		print "Content-type: text/html; charset=UTF-8\n\n";
+		print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n";
+	}
+}
+
+#著䜜暩衚瀺(削陀倉曎䞍可)
+sub copyright{
+	if($mv_mode eq 'mv'){
+		print qq|<hr color="white">죄와 벌++ 읎윚배반 $ver<br><a href="http://pom.to/">BLANK BOARD[넀튞 유원지♪]</a>| if(!$tm && !$log);
+		print qq|</body></html>|;
+	}else{
+		print <<"EOM";
+<div align="right" style="font-size:12px">
+죄와 벌++ 읎윚배반 $ver<br>
+<a href="http://www17.big.or.jp/~obochan/vivid/" target="_blank" style="font-size:13px">Vivid Studio.</a><br>
+<a href="http://pom.to/" target="_blank" style="font-size:11px">BLANK BOARD[넀튞 유원지♪]<br>
+<img src="$imgs/bb.gif" border="0" alt="BLANK BOARD[넀튞 유원지♪]"></a>
+</div>
+</body>
+</html>
+EOM
+	}
+}
+
+# ゚ラヌ衚瀺
+sub error{
+	print "Content-type: text/html\n\n";
+	print "<html><head><title>CGI Error</title></head>\n";
+	print "<body $body><h1>CGI Error</h1>\n";
+	print "<p>This program encountered an internal error.</p>";
+	print "<p><b>Error:</b> $_[0]</p>\n";
+	print "</body></html>";
+	if ($_[1] && $lock_check) { &unlock($lock); }
+	exit;
+}
+
+1;#削陀䞍可
diff --git a/inc/ore_sub-training_mv.cgi b/inc/ore_sub-training_mv.cgi
old mode 100644
new mode 100755
index 779114c..bb63c3f
--- a/inc/ore_sub-training_mv.cgi
+++ b/inc/ore_sub-training_mv.cgi
@@ -1,243 +1,235 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# Cs ÓÊ޲ٗp			Version 1.0							#
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-#Csƒƒjƒ…[
-sub training{
-
-	if(!$type){
-
-		if($hp<4){
-			$log .= "‘Ì—Í‚ª­‚È‚·‚¬‚Ü‚·<br>\n";
-			$tm= $cmd = 0;
-			$type='';
-			&call_main_st;
-		}else{
-			$log	.= "Cs‚ðs‚¢‚Ü‚·<br>\n";
-			$tm= $cmd = 0;
-			$type	= 'Cs';
-
-			$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="1">‘O‰ñ‚̑ΐíŽÒ</option>\n| if($tid);
-			$log2 .=qq|<option value="2">ˆê——‚©‚ç‘Io</option>\n|;
-			$log2 .=qq|<option value="0">‚â‚ß‚é</option>\n|;
-			$log2 .=qq|</select><br>\n|;
-			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-		}
-	}
-	&dat_write;
-}
-
-#-------------------------------------------------------------------------------
-# Csˆ—1
-sub training_exe{
-
-	if($cmd==0){
-		$log .= "Cs‚𒆎~‚µ‚Ü‚·<br>\n";
-		$tm = $cmd = 0;
-		$type='';
-		&call_main_st;
-
-	}elsif($cmd==1){
-
-		open(IN,"$usrdata$tid\.cgi") || &error("Open Error : $usrdata$tid\.cgi",1);
-		$tdat = <IN>;
-		close(IN);
-	
-		%VS = '';
-		my @prats = split(/,/,$tdat);
-		foreach $prats (@prats){
-			my ($u,$q) = split(/;/,$prats);
-			$VS{$u} = $q;
-		}
-	
-		$tid	= $VS{'id'};		# ID
-		$tnm	= $VS{'nm'};		# –Œ‘O
-		$tlv	= $VS{'lv'};		# ÚÍÞÙ
-		$thp	= $VS{'max_hp'};	# HP
-		$thp_max= $VS{'max_hp'};	# MAX_HP
-		$tmp	= $VS{'max_mp'};	# MP
-		$tua	= $VS{'ua'};		# UA
-		$tud	= $VS{'ud'};		# UD
-		$tag	= $VS{'ag'};		# AG
-		$tcp	= $VS{'camp'};		# Š‘®
-		$tsg	= $VS{'sogo'};		# Ì†
-	
-		$tdf_a	= $VS{'df_a'};		# –h‹ï
-		$tdg_a	= $VS{'dg_a'};		# •‹ï
-	
-		$log	.="‘O‰ñ‚̑ΐ푊Žè‚ƏCs‚ðs‚¢‚Ü‚·B<br>ŽŽ‡ŠJŽnI<br>\n";
-		$type	= 'Cs’†';
-		$tm		= 0;
-
-		$cmd	=-1;
-#		$log2 .=qq|<form action="$script" method="$method" name="ore_"><td align="center" valign="middle">\n|;
-#		$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
-#		$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
-#		$log2 .=qq|<input type="submit" $button1 value="‘ΐí">$td_end</form>\n|;
-
-		# s“®ƒZƒbƒVƒ‡ƒ“‰ÁŽZ
-		$act_cnt++;
-
-#		&dat_write;
-
-		require './inc/ore_sub-battle.cgi';	&bt_st;
-
-	}else{&sele_list;}
-
-}
-
-#-------------------------------------------------------------------------------
-# CsƒŠƒXƒg•\ŽŠ
-sub sele_list {
-
-	local(@usrfile,@BT_LIST,@tdat);
-
-	# ŽQ‰ÁŽÒƒf[ƒ^ƒtƒ@ƒCƒ‹ˆê——Žæ“Ÿ
-	&usrdata_read;
-
-	# •\ŽŠŽQ‰ÁŽÒƒ‰ƒ“ƒ_ƒ€‘Io
-	foreach(0 .. $bt_count){
-		$bt_list = int(rand($#usrfile));
-
-		$flag = 0;
-		foreach(0 .. $#BT_LIST){
-			$flag = 1 if $bt_list eq $BT_LIST[$_];
-		}
-		push(@BT_LIST,$bt_list) if !$flag;
-	}
-	@BT_LIST = sort(@BT_LIST);
-
-	# ƒ‰ƒ“ƒ_ƒ€‘IoŽQ‰ÁŽÒ‚̃f[ƒ^ˆêŠ‡“ǂݍž‚Ý
-	foreach (0 .. $#BT_LIST) {
-		open(IN,"$usrdata$usrfile[$BT_LIST[$_]]") || &error("Can't open $usrfile[$BT_LIST[$_]].cgi",1);
-		push(@tdat,<IN>);
-		close(IN);
-	}
-
-	# ŽQ‰ÁŽÒƒXƒe[ƒ^ƒXŽæ“Ÿ
-	foreach(0 ..$#tdat){
-		%R = '';
-		my @prats = split(/,/,$tdat[$_]);
-		foreach $prats (@prats){
-			my($y,$x) = split(/;/,$prats);
-			$R{$y} = $x;
-		}
-
-		if($nm ne $R{'nm'}){
-			$NM_V{$R{'nm'}}		= $R{'nm'};		# –Œ‘O
-			$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};	# HP
-			$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};	# MP
-			$LV_V{$R{'nm'}}		= $R{'lv'};		# ÚÍÞÙ
-			$TM_V{$R{'nm'}}		= $R{'tm'};		# s“®
-			$UA_V{$R{'nm'}}		= $R{'ua'};		# UA
-			$UD_V{$R{'nm'}}		= $R{'ud'};		# UD
-			$LR_V{$R{'nm'}}		= $R{'lr'};		# LR
-			$AG_V{$R{'nm'}}		= $R{'ag'};		# AG
-			$CP_V{$R{'nm'}}		= $R{'camp'};	# Š‘®
-			$SG_V{$R{'nm'}}		= $R{'sogo'};	# Ì†
-			$N_M{$R{'nm'}}		= $R{'id'};		# ID
-		}
-	}
-
-	# Cs؜ĕ\ŽŠ
-	if(!$tm){
-
-		$l = $rk = 1;
-		foreach $nm (sort sclv keys(%LV_V)){
-			$lv_v = $LV_V{$nm};
-			next if($lv_v<=0);
-			if($lv_v<$prv_lv){ $rk = $l; }
-
-			$log .=qq|<a href="$script?id=$id&pw=$pw&cmd=-1&com=$N_M{$nm}">$rkˆÊ Lv$lv_v |;
-
-			# Ì†
-			$log .= ($SG_V{$nm} > 0) ? "$NM_V{$nm} [$sogo_p[$SG_V{$nm}]]" : "$NM_V{$nm}";
-
-			$log .=qq|</a> HP$HP_MAX_V{$nm}/MP$MP_MAX_V{$nm}/UA$UA_V{$nm}/UD$UD_V{$nm}/AG$AG_V{$nm}<br>\n|;
-
-			$prv_lv = $lv_v;
-			$l++;
-		}
-
-		$log .=qq|<a href="$script?id=$id&pw=$pw&cmd=-1">’†Ž~‚·‚é</a> |;
-
-		$tm=1;
-
-		# s“®ƒZƒbƒVƒ‡ƒ“‰ÁŽZ
-		$act_cnt++;
-
-		$layout_flag=1;
-		&dat_write;
-	}
-
-	# ‘ΐ푊ŽèŠ„‚è“–‚Ä
-	elsif($tm){
-
-		if($com){
-			open(IN,"$usrdata$com\.cgi") || &error("Open Error : $usrdata$com\.cgi",1);
-			$tdat = <IN>;
-			close(IN);
-
-			%VS = '';
-			my @prats = split(/,/,$tdat);
-			foreach $prats (@prats){
-				my ($u,$q) = split(/;/,$prats);
-				$VS{$u} = $q;
-			}
-
-			$tid	= $VS{'id'};		# ID
-			$tnm	= $VS{'nm'};		# –Œ‘O
-			$tlv	= $VS{'lv'};		# ÚÍÞÙ
-			$thp	= $VS{'max_hp'};	# HP
-			$thp_max= $VS{'max_hp'};	# MAX_HP
-			$tmp	= $VS{'max_mp'};	# MP
-			$tua	= $VS{'ua'};		# UA
-			$tud	= $VS{'ud'};		# UD
-			$tag	= $VS{'ag'};		# AG
-			$tcp	= $VS{'camp'};		# Š‘®
-			$tsg	= $VS{'sogo'};		# Ì†
-
-			$tdf_a	= $VS{'df_a'};		# –h‹ï
-			$tdg_a	= $VS{'dg_a'};		# •‹ï
-
-			$log	.="ŽŽ‡ŠJŽnI<br>\n";
-			$type	= 'Cs’†';
-			$tm		= 0;
-
-			require './inc/ore_sub-battle.cgi';	&bt_st;
-		}
-		elsif(!$com){
-			$log .="’†Ž~‚µ‚œc<br>\n";
-			$type	= '';
-			$tm		= 0;
-			&call_main_st;
-		}
-	}
-
-#	&dat_write;
-}
-
-
-
-
-
-1;#íœ•s‰Â
-
-
-
-
-
-1;#íœ•s‰Â
+#-----------------------------------------------------------#
+#  眪ず眰++ 二埋背反										#
+#  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 training{
+
+	if(!$type){
+
+		if($hp<4){
+			$log .= "첎력읎 너묎 적습니닀<br>\n";
+			$tm= $cmd = 0;
+			$type='';
+			&call_main_st;
+		}else{
+			$log	.= "수행을 시작합니닀<br>\n";
+			$tm= $cmd = 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|<select name="cmd" size="1">\n|;
+			$log2 .=qq|<option value="1">읎전 대전자</option>\n| if($tid);
+			$log2 .=qq|<option value="2">목록에서 선택</option>\n|;
+			$log2 .=qq|<option value="0">귞만둔닀</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+		}
+	}
+	&dat_write;
+}
+
+#-------------------------------------------------------------------------------
+# 修行凊理1
+sub training_exe{
+
+	if($cmd==0){
+		$log .= "수행을 쀑닚합니닀<br>\n";
+		$tm = $cmd = 0;
+		$type='';
+		&call_main_st;
+
+	}elsif($cmd==1){
+
+		open(IN,"$usrdata$tid\.cgi") || &error("Open Error : $usrdata$tid\.cgi",1);
+		$tdat = <IN>;
+		close(IN);
+	
+		%VS = '';
+		my @prats = split(/,/,$tdat);
+		foreach $prats (@prats){
+			my ($u,$q) = split(/;/,$prats);
+			$VS{$u} = $q;
+		}
+	
+		$tid	= $VS{'id'};		# ID
+		$tnm	= $VS{'nm'};		# 名前
+		$tlv	= $VS{'lv'};		# 
+		$thp	= $VS{'max_hp'};	# HP
+		$thp_max= $VS{'max_hp'};	# MAX_HP
+		$tmp	= $VS{'max_mp'};	# MP
+		$tua	= $VS{'ua'};		# UA
+		$tud	= $VS{'ud'};		# UD
+		$tag	= $VS{'ag'};		# AG
+		$tcp	= $VS{'camp'};		# 所属
+		$tsg	= $VS{'sogo'};		# 称号
+	
+		$tdf_a	= $VS{'df_a'};		# 防具
+		$tdg_a	= $VS{'dg_a'};		# æ­Šå…·
+	
+		$log	.="읎전 대전 상대와 수행을 시작합니닀.<br>시합 개시!<br>\n";
+		$type	= '수행쀑';
+		$tm		= 0;
+
+		$cmd	=-1;
+#		$log2 .=qq|<form action="$script" method="$method" name="ore_"><td align="center" valign="middle">\n|;
+#		$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
+#		$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
+#		$log2 .=qq|<input type="submit" $button1 value="察戊">$td_end</form>\n|;
+
+		# 行動セッション加算
+		$act_cnt++;
+
+#		&dat_write;
+
+		require './inc/ore_sub-battle.cgi';	&bt_st;
+
+	}else{&sele_list;}
+
+}
+
+#-------------------------------------------------------------------------------
+# 修行リスト衚瀺
+sub sele_list {
+
+	local(@usrfile,@BT_LIST,@tdat);
+
+	# 参加者デヌタファむル䞀芧取埗
+	&usrdata_read;
+
+	# 衚瀺参加者ランダム遞出
+	foreach(0 .. $bt_count){
+		$bt_list = int(rand($#usrfile));
+
+		$flag = 0;
+		foreach(0 .. $#BT_LIST){
+			$flag = 1 if $bt_list eq $BT_LIST[$_];
+		}
+		push(@BT_LIST,$bt_list) if !$flag;
+	}
+	@BT_LIST = sort(@BT_LIST);
+
+	# ランダム遞出参加者のデヌタ䞀括読み蟌み
+	foreach (0 .. $#BT_LIST) {
+		open(IN,"$usrdata$usrfile[$BT_LIST[$_]]") || &error("Can't open $usrfile[$BT_LIST[$_]].cgi",1);
+		push(@tdat,<IN>);
+		close(IN);
+	}
+
+	# 参加者ステヌタス取埗
+	foreach(0 ..$#tdat){
+		%R = '';
+		my @prats = split(/,/,$tdat[$_]);
+		foreach $prats (@prats){
+			my($y,$x) = split(/;/,$prats);
+			$R{$y} = $x;
+		}
+
+		if($nm ne $R{'nm'}){
+			$NM_V{$R{'nm'}}		= $R{'nm'};		# 名前
+			$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};	# HP
+			$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};	# MP
+			$LV_V{$R{'nm'}}		= $R{'lv'};		# 
+			$TM_V{$R{'nm'}}		= $R{'tm'};		# 行動
+			$UA_V{$R{'nm'}}		= $R{'ua'};		# UA
+			$UD_V{$R{'nm'}}		= $R{'ud'};		# UD
+			$LR_V{$R{'nm'}}		= $R{'lr'};		# LR
+			$AG_V{$R{'nm'}}		= $R{'ag'};		# AG
+			$CP_V{$R{'nm'}}		= $R{'camp'};	# 所属
+			$SG_V{$R{'nm'}}		= $R{'sogo'};	# 称号
+			$N_M{$R{'nm'}}		= $R{'id'};		# ID
+		}
+	}
+
+	# 修行衚瀺
+	if(!$tm){
+
+		$l = $rk = 1;
+		foreach $nm (sort sclv keys(%LV_V)){
+			$lv_v = $LV_V{$nm};
+			next if($lv_v<=0);
+			if($lv_v<$prv_lv){ $rk = $l; }
+
+			$log .=qq|<a href="$script?id=$id&pw=$pw&cmd=-1&com=$N_M{$nm}">$rk위 Lv$lv_v |;
+
+			# 称号
+			$log .= ($SG_V{$nm} > 0) ? "$NM_V{$nm} [$sogo_p[$SG_V{$nm}]]" : "$NM_V{$nm}";
+
+			$log .=qq|</a> HP$HP_MAX_V{$nm}/MP$MP_MAX_V{$nm}/UA$UA_V{$nm}/UD$UD_V{$nm}/AG$AG_V{$nm}<br>\n|;
+
+			$prv_lv = $lv_v;
+			$l++;
+		}
+
+		$log .=qq|<a href="$script?id=$id&pw=$pw&cmd=-1">쀑닚하Ʞ</a> |;
+
+		$tm=1;
+
+		# 行動セッション加算
+		$act_cnt++;
+
+		$layout_flag=1;
+		&dat_write;
+	}
+
+	# 对戊盞手割り圓お
+	elsif($tm){
+
+		if($com){
+			open(IN,"$usrdata$com\.cgi") || &error("Open Error : $usrdata$com\.cgi",1);
+			$tdat = <IN>;
+			close(IN);
+
+			%VS = '';
+			my @prats = split(/,/,$tdat);
+			foreach $prats (@prats){
+				my ($u,$q) = split(/;/,$prats);
+				$VS{$u} = $q;
+			}
+
+			$tid	= $VS{'id'};		# ID
+			$tnm	= $VS{'nm'};		# 名前
+			$tlv	= $VS{'lv'};		# 
+			$thp	= $VS{'max_hp'};	# HP
+			$thp_max= $VS{'max_hp'};	# MAX_HP
+			$tmp	= $VS{'max_mp'};	# MP
+			$tua	= $VS{'ua'};		# UA
+			$tud	= $VS{'ud'};		# UD
+			$tag	= $VS{'ag'};		# AG
+			$tcp	= $VS{'camp'};		# 所属
+			$tsg	= $VS{'sogo'};		# 称号
+
+			$tdf_a	= $VS{'df_a'};		# 防具
+			$tdg_a	= $VS{'dg_a'};		# æ­Šå…·
+
+			$log	.="시합 개시!<br>\n";
+			$type	= '수행쀑';
+			$tm		= 0;
+
+			require './inc/ore_sub-battle.cgi';	&bt_st;
+		}
+		elsif(!$com){
+			$log .="쀑닚했닀 <br>\n";
+			$type	= '';
+			$tm		= 0;
+			&call_main_st;
+		}
+	}
+
+#	&dat_write;
+}
+
+1;#削陀䞍可
+
+1;#削陀䞍可
diff --git a/inc/ore_sub-training_pc.cgi b/inc/ore_sub-training_pc.cgi
old mode 100644
new mode 100755
index bf772bd..e677063
--- a/inc/ore_sub-training_pc.cgi
+++ b/inc/ore_sub-training_pc.cgi
@@ -1,274 +1,270 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-# Cs PC—p			Version 1.1								#
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-#Csƒƒjƒ…[
-sub training{
-
-	if(!$type){
-
-		if($hp<4){
-			$log .= "‘Ì—Í‚ª­‚È‚·‚¬‚Ü‚·B<br>\n";
-			$tm= $cmd = 0;
-			$type='';
-			&call_main_st;
-		}else{
-			$log	.= "Cs‚ðs‚¢‚Ü‚·B<br>\n";
-			$tm= $cmd = 0;
-			$type	= 'Cs';
-
-			$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="1">‘O‰ñ‚̑ΐíŽÒ</option>\n| if($tid);
-			$log2 .=qq|<option value="2">ˆê——‚©‚ç‘Io</option>\n|;
-			$log2 .=qq|<option value="0">‚â‚ß‚é</option>\n|;
-			$log2 .=qq|</select><br>\n|;
-			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
-		}
-	}
-	&dat_write;
-}
-
-#-------------------------------------------------------------------------------
-# Csˆ—1
-sub training_exe{
-
-	if($cmd==0){
-		$log .= "Cs‚𒆎~‚µ‚Ü‚·<br>\n";
-		$tm = $cmd = 0;
-		$type='';
-		&call_main_st;
-
-	}elsif($cmd==1 && !$com){
-
-		# GET‚É‚æ‚é•s³ˆ—‚Ƀyƒiƒ‹ƒeƒB
-		&penalty if($mv_mode eq 'pc' && $method eq 'POST' && !$post_flag);
-
-		open(IN,"$usrdata$tid\.cgi") || &error("Open Error : $usrdata$tid\.cgi",1);
-		$tdat = <IN>;
-		close(IN);
-	
-		%VS = '';
-		my @prats = split(/,/,$tdat);
-		foreach $prats (@prats){
-			my ($u,$q) = split(/;/,$prats);
-			$VS{$u} = $q;
-		}
-	
-		$tid	= $VS{'id'};		# ID
-		$tnm	= $VS{'nm'};		# –Œ‘O
-		$tlv	= $VS{'lv'};		# ÚÍÞÙ
-		$thp	= $VS{'max_hp'};	# HP
-		$thp_max= $VS{'max_hp'};	# MAX_HP
-		$tmp	= $VS{'max_mp'};	# MP
-		$tua	= $VS{'ua'};		# UA
-		$tud	= $VS{'ud'};		# UD
-		$tag	= $VS{'ag'};		# AG
-		$tcp	= $VS{'camp'};		# Š‘®
-		$tsg	= $VS{'sogo'};		# Ì†
-	
-		$tdf_a	= $VS{'df_a'};		# –h‹ï
-		$tdg_a	= $VS{'dg_a'};		# •‹ï
-	
-		$log	.="‘O‰ñ‚̑ΐ푊Žè‚ƏCs‚ðs‚¢‚Ü‚·B<br>ŽŽ‡ŠJŽnI<br>\n";
-		$type	= 'Cs’†';
-		$tm		= 0;
-
-		$cmd	=-1;
-#		$log2 .=qq|<form action="$script" method="$method" name="ore_"><td align="center" valign="middle">\n|;
-#		$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
-#		$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
-#		$log2 .=qq|<input type="submit" $button1 value="‘ΐí">$td_end</form>\n|;
-
-		# s“®ƒZƒbƒVƒ‡ƒ“‰ÁŽZ
-		$act_cnt++;
-
-#		&dat_write;
-
-		require './inc/ore_sub-battle.cgi';	&bt_st;
-
-	}else{&sele_list;}
-
-}
-
-#-------------------------------------------------------------------------------
-# CsƒŠƒXƒg•\ŽŠ
-sub sele_list {
-
-	# GET‚É‚æ‚é•s³ˆ—‚Ƀyƒiƒ‹ƒeƒB
-	&penalty if($mv_mode eq 'pc' && $method eq 'POST' && !$post_flag);
-
-	local(@usrfile,@BT_LIST,@tdat);
-
-	# ŽQ‰ÁŽÒƒf[ƒ^ƒtƒ@ƒCƒ‹ˆê——Žæ“Ÿ
-	&usrdata_read;
-
-	# •\ŽŠŽQ‰ÁŽÒƒ‰ƒ“ƒ_ƒ€‘Io
-	foreach(0 .. $bt_count){
-		$bt_list = int(rand($#usrfile));
-
-		$flag = 0;
-		foreach(0 .. $#BT_LIST){
-			$flag = 1 if $bt_list eq $BT_LIST[$_];
-		}
-		push(@BT_LIST,$bt_list) if !$flag;
-	}
-	@BT_LIST = sort(@BT_LIST);
-
-	# ƒ‰ƒ“ƒ_ƒ€‘IoŽQ‰ÁŽÒ‚̃f[ƒ^ˆêŠ‡“ǂݍž‚Ý
-	foreach (0 .. $#BT_LIST) {
-		open(IN,"$usrdata$usrfile[$BT_LIST[$_]]") || &error("Can't open $usrfile[$BT_LIST[$_]].cgi",1);
-		push(@tdat,<IN>);
-		close(IN);
-	}
-
-	# ŽQ‰ÁŽÒƒXƒe[ƒ^ƒXŽæ“Ÿ
-	foreach(0 ..$#tdat){
-		%R = '';
-		my @prats = split(/,/,$tdat[$_]);
-		foreach $prats (@prats){
-			my($y,$x) = split(/;/,$prats);
-			$R{$y} = $x;
-		}
-
-		if($nm ne $R{'nm'}){
-			$NM_V{$R{'nm'}}		= $R{'nm'};		# –Œ‘O
-			$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};	# HP
-			$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};	# MP
-			$LV_V{$R{'nm'}}		= $R{'lv'};		# ÚÍÞÙ
-			$TM_V{$R{'nm'}}		= $R{'tm'};		# s“®
-			$UA_V{$R{'nm'}}		= $R{'ua'};		# UA
-			$UD_V{$R{'nm'}}		= $R{'ud'};		# UD
-			$LR_V{$R{'nm'}}		= $R{'lr'};		# LR
-			$AG_V{$R{'nm'}}		= $R{'ag'};		# AG
-			$CP_V{$R{'nm'}}		= $R{'camp'};	# Š‘®
-			$SG_V{$R{'nm'}}		= $R{'sogo'};	# Ì†
-			$N_M{$R{'nm'}}		= $R{'id'};		# ID
-		}
-	}
-
-	# Cs؜ĕ\ŽŠ
-	if(!$tm){
-
-		$log .=qq|<form action="$script" method="$method" name="ore_">\n|;
-		$log .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
-		$log .=qq|<input type="hidden" name="cmd" value="-1">\n|;
-		$log .=qq|<table border="0" cellpadding="4" sellpadding="4" width="100%">\n<tr align="center" bgcolor="#ccccee"><td></td><td>‡ˆÊ</td><td>LV</td><td>–Œ‘O</td><td>‘Ì—Í/ž_</td><td>UŒ‚/–hŒä/ŽwŠö/•q·</td><td>Š‘®</td></tr>\n|;
-
-		$l = $rk = 1;
-		foreach $nm (sort sclv keys(%LV_V)){
-			$lv_v = $LV_V{$nm};
-			next if($lv_v<=0);
-			if($lv_v<$prv_lv){ $rk = $l; }
-
-			$log .= ($agent !~ /Mac/) ?
-				qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$N_M{$nm}" name="com" class="a5" onClick="location.href='#bt_start'">\n|:
-				qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$N_M{$nm}" name="com" class="a5">\n|;
-
-			$log .="</td><td>$rk</td><td>$lv_v</td><td>";
-
-			# Ì†
-			$log .= ($SG_V{$nm} > 0) ? "$NM_V{$nm} [$sogo_p[$SG_V{$nm}]]" : "$NM_V{$nm}";
-
-			$log .=qq|</td><td>$HP_MAX_V{$nm}/$MP_MAX_V{$nm}</td><td>$UA_V{$nm}/$UD_V{$nm}/$LR_V{$nm}/$AG_V{$nm}</td><td>$cmp[$CP_V{$nm}]</td></tr>\n|;
-
-			$prv_lv = $lv_v;
-			$l++;
-		}
-		$log .="</table>\n";
-		$log .="<tt><br></tt><a name=\"bt_start\"><input type=submit value=\"‘ΐí\" class=\"button1\">\n";
-		$log .="</td></form>\n";
-
-		$tm=1;
-
-		# s“®ƒZƒbƒVƒ‡ƒ“‰ÁŽZ
-		$act_cnt++;
-
-		$layout_flag=1;
-		&dat_write;
-	}
-
-	# ‘ΐ푊ŽèŠ„‚è“–‚Ä
-	elsif($tm){
-
-		if($com){
-			open(IN,"$usrdata$com\.cgi") || &error("Open Error : $usrdata$com\.cgi",1);
-			$tdat = <IN>;
-			close(IN);
-
-			%VS = '';
-			my @prats = split(/,/,$tdat);
-			foreach $prats (@prats){
-				my ($u,$q) = split(/;/,$prats);
-				$VS{$u} = $q;
-			}
-
-			$tid	= $VS{'id'};		# ID
-			$tnm	= $VS{'nm'};		# –Œ‘O
-			$tlv	= $VS{'lv'};		# ÚÍÞÙ
-			$thp	= $VS{'max_hp'};	# HP
-			$thp_max= $VS{'max_hp'};	# MAX_HP
-			$tmp	= $VS{'max_mp'};	# MP
-			$tua	= $VS{'ua'};		# UA
-			$tud	= $VS{'ud'};		# UD
-			$tag	= $VS{'ag'};		# AG
-			$tcp	= $VS{'camp'};		# Š‘®
-			$tsg	= $VS{'sogo'};		# Ì†
-
-			$tdf_a	= $VS{'df_a'};		# –h‹ï
-			$tdg_a	= $VS{'dg_a'};		# •‹ï
-
-			$log	.="ŽŽ‡ŠJŽnI<br>\n";
-			$type	= 'Cs’†';
-			$tm		= 0;
-#			$log2	.=qq|<input type=submit value="NEXT!!" class="button1">$td_end</form>\n|;
-
-			require './inc/ore_sub-battle.cgi';	&bt_st;
-		}
-		elsif(!$com){
-			$log .="’†Ž~‚µ‚œc<br>\n";
-			$type	= '';
-			$tm		= 0;
-			&call_main_st;
-		}
-	}
-
-#	&dat_write;
-}
-
-# •s³GETˆ—‚̃yƒiƒ‹ƒeƒB
-sub penalty{
-	$pr=3600*24*3;
-	$sogo=4;
-	$camp=0;
-
-	$tm = $cmd = 0;
-	$type='•ž–ð’†';
-	$max_hp	=int($max_hp*0.8);
-	$max_mp	=int($max_mp*0.8);
-	$ua		=int($ua*0.8);
-	$ud		=int($ud*0.8);
-	$lr		=int($lr*0.8);
-	$ag		=int($ag*0.8);
-
-	&dat_write;
-
-	&error("•s³ˆ—‚Å‚·Bƒyƒiƒ‹ƒeƒB‚ª”­¶‚µ‚Ü‚·B",1);
-}
-
-
-
-
-
-1;#íœ•s‰Â
+#-----------------------------------------------------------#
+#  죄와 벌++ 읎윚배반 										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+# 수행 PC용			Version 1.1								#
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# 수행 메뉎
+sub training{
+
+	if(!$type){
+
+		if($hp<4){
+			$log .= "첎력읎 너묎 적습니닀.<br>\n";
+			$tm= $cmd = 0;
+			$type='';
+			&call_main_st;
+		}else{
+			$log	.= "수행을 시작합니닀.<br>\n";
+			$tm= $cmd = 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|<select name="cmd" size="1">\n|;
+			$log2 .=qq|<option value="1">읎전 대전자</option>\n| if($tid);
+			$log2 .=qq|<option value="2">목록에서 선택</option>\n|;
+			$log2 .=qq|<option value="0">귞만둔닀</option>\n|;
+			$log2 .=qq|</select><br>\n|;
+			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
+		}
+	}
+	&dat_write;
+}
+
+#-------------------------------------------------------------------------------
+# 수행 처늬1
+sub training_exe{
+
+	if($cmd==0){
+		$log .= "수행을 쀑닚합니닀<br>\n";
+		$tm = $cmd = 0;
+		$type='';
+		&call_main_st;
+
+	}elsif($cmd==1 && !$com){
+
+		# GET에 의한 부정 처늬 페널티
+		&penalty if($mv_mode eq 'pc' && $method eq 'POST' && !$post_flag);
+
+		open(IN,"$usrdata$tid\.cgi") || &error("Open Error : $usrdata$tid\.cgi",1);
+		$tdat = <IN>;
+		close(IN);
+	
+		%VS = '';
+		my @prats = split(/,/,$tdat);
+		foreach $prats (@prats){
+			my ($u,$q) = split(/;/,$prats);
+			$VS{$u} = $q;
+		}
+	
+		$tid	= $VS{'id'};		# ID
+		$tnm	= $VS{'nm'};		# 읎늄
+		$tlv	= $VS{'lv'};		# 레벚
+		$thp	= $VS{'max_hp'};	# HP
+		$thp_max= $VS{'max_hp'};	# MAX_HP
+		$tmp	= $VS{'max_mp'};	# MP
+		$tua	= $VS{'ua'};		# UA
+		$tud	= $VS{'ud'};		# UD
+		$tag	= $VS{'ag'};		# AG
+		$tcp	= $VS{'camp'};		# 소속
+		$tsg	= $VS{'sogo'};		# 칭혞
+	
+		$tdf_a	= $VS{'df_a'};		# 방얎구
+		$tdg_a	= $VS{'dg_a'};		# 묎구
+	
+		$log	.="읎전 대전 상대와 수행을 시작합니닀.<br>시합 개시!<br>\n";
+		$type	= '수행쀑';
+		$tm		= 0;
+
+		$cmd	=-1;
+#		$log2 .=qq|<form action="$script" method="$method" name="ore_"><td align="center" valign="middle">\n|;
+#		$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
+#		$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
+#		$log2 .=qq|<input type="submit" $button1 value="대결">$td_end</form>\n|;
+
+		# 행동 ì„žì…˜ 가산
+		$act_cnt++;
+
+#		&dat_write;
+
+		require './inc/ore_sub-battle.cgi';	&bt_st;
+
+	}else{&sele_list;}
+
+}
+
+#-------------------------------------------------------------------------------
+# 수행 늬슀튞 표시
+sub sele_list {
+
+	# GET에 의한 부정 처늬 페널티
+	&penalty if($mv_mode eq 'pc' && $method eq 'POST' && !$post_flag);
+
+	local(@usrfile,@BT_LIST,@tdat);
+
+	# 찞가자 데읎터 파음 목록 췚득
+	&usrdata_read;
+
+	# 표시 찞가자 랜덀 선출
+	foreach(0 .. $bt_count){
+		$bt_list = int(rand($#usrfile));
+
+		$flag = 0;
+		foreach(0 .. $#BT_LIST){
+			$flag = 1 if $bt_list eq $BT_LIST[$_];
+		}
+		push(@BT_LIST,$bt_list) if !$flag;
+	}
+	@BT_LIST = sort(@BT_LIST);
+
+	# 랜덀 선출 찞가자 데읎터 음ꎄ 읜Ʞ
+	foreach (0 .. $#BT_LIST) {
+		open(IN,"$usrdata$usrfile[$BT_LIST[$_]]") || &error("Can't open $usrfile[$BT_LIST[$_]].cgi",1);
+		push(@tdat,<IN>);
+		close(IN);
+	}
+
+	# 찞가자 슀탯 췚득
+	foreach(0 ..$#tdat){
+		%R = '';
+		my @prats = split(/,/,$tdat[$_]);
+		foreach $prats (@prats){
+			my($y,$x) = split(/;/,$prats);
+			$R{$y} = $x;
+		}
+
+		if($nm ne $R{'nm'}){
+			$NM_V{$R{'nm'}}		= $R{'nm'};		# 읎늄
+			$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};	# HP
+			$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};	# MP
+			$LV_V{$R{'nm'}}		= $R{'lv'};		# 레벚
+			$TM_V{$R{'nm'}}		= $R{'tm'};		# 행동
+			$UA_V{$R{'nm'}}		= $R{'ua'};		# UA
+			$UD_V{$R{'nm'}}		= $R{'ud'};		# UD
+			$LR_V{$R{'nm'}}		= $R{'lr'};		# LR
+			$AG_V{$R{'nm'}}		= $R{'ag'};		# AG
+			$CP_V{$R{'nm'}}		= $R{'camp'};	# 소속
+			$SG_V{$R{'nm'}}		= $R{'sogo'};	# 칭혞
+			$N_M{$R{'nm'}}		= $R{'id'};		# ID
+		}
+	}
+
+	# 수행 늬슀튞 표시
+	if(!$tm){
+
+		$log .=qq|<form action="$script" method="$method" name="ore_">\n|;
+		$log .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
+		$log .=qq|<input type="hidden" name="cmd" value="-1">\n|;
+		$log .=qq|<table border="0" cellpadding="4" sellpadding="4" width="100%">\n<tr align="center" bgcolor="#ccccee"><td></td><td>순위</td><td>LV</td><td>읎늄</td><td>첎력/정신</td><td>공격/ë°©ì–Ž/지휘/믌첩</td><td>소속</td></tr>\n|;
+
+		$l = $rk = 1;
+		foreach $nm (sort sclv keys(%LV_V)){
+			$lv_v = $LV_V{$nm};
+			next if($lv_v<=0);
+			if($lv_v<$prv_lv){ $rk = $l; }
+
+			$log .= ($agent !~ /Mac/) ?
+				qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$N_M{$nm}" name="com" class="a5" onClick="location.href='#bt_start'">\n|:
+				qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$N_M{$nm}" name="com" class="a5">\n|;
+
+			$log .="</td><td>$rk</td><td>$lv_v</td><td>";
+
+			# 칭혞
+			$log .= ($SG_V{$nm} > 0) ? "$NM_V{$nm} [$sogo_p[$SG_V{$nm}]]" : "$NM_V{$nm}";
+
+			$log .=qq|</td><td>$HP_MAX_V{$nm}/$MP_MAX_V{$nm}</td><td>$UA_V{$nm}/$UD_V{$nm}/$LR_V{$nm}/$AG_V{$nm}</td><td>$cmp[$CP_V{$nm}]</td></tr>\n|;
+
+			$prv_lv = $lv_v;
+			$l++;
+		}
+		$log .="</table>\n";
+		$log .="<tt><br></tt><a name=\"bt_start\"><input type=submit value=\"대결\" class=\"button1\">\n";
+		$log .="</td></form>\n";
+
+		$tm=1;
+
+		# 행동 ì„žì…˜ 가산
+		$act_cnt++;
+
+		$layout_flag=1;
+		&dat_write;
+	}
+
+	# 대전자 할당
+	elsif($tm){
+
+		if($com){
+			open(IN,"$usrdata$com\.cgi") || &error("Open Error : $usrdata$com\.cgi",1);
+			$tdat = <IN>;
+			close(IN);
+
+			%VS = '';
+			my @prats = split(/,/,$tdat);
+			foreach $prats (@prats){
+				my ($u,$q) = split(/;/,$prats);
+				$VS{$u} = $q;
+			}
+
+			$tid	= $VS{'id'};		# ID
+			$tnm	= $VS{'nm'};		# 읎늄
+			$tlv	= $VS{'lv'};		# 레벚
+			$thp	= $VS{'max_hp'};	# HP
+			$thp_max= $VS{'max_hp'};	# MAX_HP
+			$tmp	= $VS{'max_mp'};	# MP
+			$tua	= $VS{'ua'};		# UA
+			$tud	= $VS{'ud'};		# UD
+			$tag	= $VS{'ag'};		# AG
+			$tcp	= $VS{'camp'};		# 소속
+			$tsg	= $VS{'sogo'};		# 칭혞
+
+			$tdf_a	= $VS{'df_a'};		# 방얎구
+			$tdg_a	= $VS{'dg_a'};		# 묎구
+
+			$log	.="시합 개시!<br>\n";
+			$type	= '수행쀑';
+			$tm		= 0;
+#			$log2	.=qq|<input type=submit value="NEXT!!" class="button1">$td_end</form>\n|;
+
+			require './inc/ore_sub-battle.cgi';	&bt_st;
+		}
+		elsif(!$com){
+			$log .="쀑닚했닀 <br>\n";
+			$type	= '';
+			$tm		= 0;
+			&call_main_st;
+		}
+	}
+
+#	&dat_write;
+}
+
+# 부정 GET 처늬의 페널티
+sub penalty{
+	$pr=3600*24*3;
+	$sogo=4;
+	$camp=0;
+
+	$tm = $cmd = 0;
+	$type='복역쀑';
+	$max_hp	=int($max_hp*0.8);
+	$max_mp	=int($max_mp*0.8);
+	$ua		=int($ua*0.8);
+	$ud		=int($ud*0.8);
+	$lr		=int($lr*0.8);
+	$ag		=int($ag*0.8);
+
+	&dat_write;
+
+	&error("올바륎지 않은 처늬입니닀. 페널티가 발생합니닀.",1);
+}
+
+1;
diff --git a/inc/ore_sub-war.cgi b/inc/ore_sub-war.cgi
old mode 100644
new mode 100755
index a6e4582..95105cc
--- a/inc/ore_sub-war.cgi
+++ b/inc/ore_sub-war.cgi
@@ -1,148 +1,144 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  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.1
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-#í‘ˆƒƒjƒ…[
-sub war{
-
-	if(!$type){
-
-		$log .= "í‘ˆ‚ðŽÀs‚µ‚Ü‚·BU‚ߍž‚ލ‘‚ð‘I‚ñ‚ʼnº‚³‚¢<br>\n";
-		$tm=0;
-		$type='í‘ˆ';
-		&call_mapdata if($mv_mode eq 'pc');
-
-		&war_menu;
-	}
-	&dat_write;
-}
-
-sub war_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|;
-}
-
-#-------------------------------------------------------------------------------
-#í‘ˆˆ—(í‘ˆ >> í‘ˆ’†‚ֈڍs‚Ü‚Å)
-sub war_exe{
-
-	if(!$tm){
-		if($camp<=0){
-			$log .= "•ú˜Q‚̐g‚Ő푈‚Í‹N‚±‚¹‚Ü‚¹‚ñ<br>\n";
-			$tm = $cmd = 0;
-			$type='';
-			&call_main_st;
-		}elsif($sogo==4){
-			$log .= "‚Ü‚ž‚ÍŽØ‹à‚ð•ÔÏ‚µ‚Ä$sogo_p[$sogo] ‚Ìà€ˆó‚ðÁ‚µ‚Ä‚­‚Ÿ‚³‚¢B<br>\n";
-			$tm = $cmd = 0;
-			$type='';
-			&call_main_st;
-		}else{
-			if($cmd<=0 || $cmd>$#cmp){
-				$log .= "í‘ˆ‚𒆎~‚µ‚Ü‚·<br>\n";
-				$tm = $cmd = 0;
-				$type='';
-				&call_main_st;
-			}elsif($cmd>0){
-				$v=$cmd;
-				if($v==$camp){
-					$log .= "Ž©‘‚ɂ͍U‚ߍž‚ß‚Ü‚¹‚ñ<br>\n";
-					$tm = $cmd = 0;
-					$type='';
-					&call_main_st;
-				}elsif(	($cmd==1&&$cn1==0)||
-						($cmd==2&&$cn2==0)||
-						($cmd==3&&$cn3==0)||
-						($cmd==4&&$cn4==0)||
-						($cmd==5&&$cn5==0)){
-					$log .= "‘—Í‚O‚̍‘‚ðU‚߂邱‚Æ‚Í‚Å‚«‚Ü‚¹‚ñB<br>\n";
-					$tm = $cmd = 0;
-					$type='';
-					&call_main_st;
-				}elsif($v==0){
-					$log .= "<br>\n";
-					$tm = $cmd = 0;
-					$type='';
-					&call_main_st;
-				}else{
-					$x=int($g_p[$rank]/3);
-					if($max_sol<=$my_cs){
-						$sol=$max_sol;
-					}elsif($max_sol>$my_cs){
-						$sol=$my_cs;
-					}
-					$y=int($sol/10);
-					if($my_cs<$x){
-						$log .= "•º”‚ª­‚È‚·‚¬‚Ü‚·B—\\”õ\•º\”‚ð1/3ˆÈãŠm•Û‚µ‚ĉº‚³‚¢<br>\n";
-						$tm = $cmd = 0;
-						$type='';
-						&call_main_st;
-					}elsif($my_cg<$y){
-						$log .= "í‘ˆ‚ðs‚È‚€‚Ÿ‚¯‚Ì‚š‹à‚ª‰ä‚ª‘‚É‚Í‚ ‚è‚Ü‚¹‚ñB<br>oŒ‚•º”‚Ì–ñ\\\•ª‚̈ê‚Ì‹à‚ª•K—v‚Å‚·<br>\n";
-						$tm = $cmd = 0;
-						$type='';
-						&call_main_st;
-					}elsif($my_cf<$sol){
-						$log .= "í‘ˆ‚ðs‚È‚€‚Ÿ‚¯‚Ì•º—Æ‚ª‚ ‚è‚Ü‚¹‚ñB<br>oŒ‚•º”‚Æ“¯”‚Ì•º—Æ‚ª•K—v‚Å‚·<br>\n";
-						$tm = $cmd = 0;
-						$type='';
-						&call_main_st;
-					}else{
-						 $log .= "$cmp[$v]‚ɍU‚ߍž‚Ý‚Ü‚·<br>\n";
-
-						if($camp==1){
-							$cg1-=int($sol/10);
-							$cf1-=int($sol);
-							$cs1-=int($sol);
-						}elsif($camp==2){
-							$cg2-=int($sol/10);
-							$cf2-=int($sol);
-							$cs2-=int($sol);
-						}elsif($camp==3){
-							$cg3-=int($sol/10);
-							$cf3-=int($sol);
-							$cs3-=int($sol);
-						}elsif($camp==4){
-							$cg4-=int($sol/10);
-							$cf4-=int($sol);
-							$cs4-=int($sol);
-						}elsif($camp==5){
-							$cg5-=int($sol/10);
-							$cf5-=int($sol);
-							$cs5-=int($sol);
-						}
-
-						$log .= "sŒRŠJŽn‚µ‚Ü‚·B“G‘‘‹«‚Ü‚Å$GMWŽžŠÔ‚Å‚·<br>\n";
-						$nation=$v;
-						$pr=$GMT;
-						$tm=0;
-						$type='í‘ˆ’†';
-					}
-				}
-			}
-		}
-	}
-	&write_data;
-}
-
-
-
-
-
-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.1
+#--- [죌의사항] --------------------------------------------#
+# 1.읎 슀크늜튞는 읎하의 읎용규정에 따띌 배포되고 있습니닀.	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#-------------------------------------------------------------------------------
+# 전쟁 메뉎
+sub war{
+
+	if(!$type){
+
+		$log .= "전쟁을 싀행합니닀. 칚공할 국가륌 선택핎 죌십시였<br>\n";
+		$tm=0;
+		$type='전쟁';
+		&call_mapdata if($mv_mode eq 'pc');
+
+		&war_menu;
+	}
+	&dat_write;
+}
+
+sub war_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 war_exe{
+
+	if(!$tm){
+		if($camp<=0){
+			$log .= "방랑 상태로는 전쟁을 선포할 수 없습니닀<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}elsif($sogo==4){
+			$log .= "우선 빚을 갚고 $sogo_p[$sogo] 낙읞을 제거핎 죌십시였.<br>\n";
+			$tm = $cmd = 0;
+			$type='';
+			&call_main_st;
+		}else{
+			if($cmd<=0 || $cmd>$#cmp){
+				$log .= "전쟁을 쀑닚합니닀<br>\n";
+				$tm = $cmd = 0;
+				$type='';
+				&call_main_st;
+			}elsif($cmd>0){
+				$v=$cmd;
+				if($v==$camp){
+					$log .= "아국에는 칚공할 수 없습니닀<br>\n";
+					$tm = $cmd = 0;
+					$type='';
+					&call_main_st;
+				}elsif(	($cmd==1&&$cn1==0)||
+						($cmd==2&&$cn2==0)||
+						($cmd==3&&$cn3==0)||
+						($cmd==4&&$cn4==0)||
+						($cmd==5&&$cn5==0)){
+					$log .= "국력읎 0읞 국가는 칚공할 수 없습니닀.<br>\n";
+					$tm = $cmd = 0;
+					$type='';
+					&call_main_st;
+				}elsif($v==0){
+					$log .= "<br>\n";
+					$tm = $cmd = 0;
+					$type='';
+					&call_main_st;
+				}else{
+					$x=int($g_p[$rank]/3);
+					if($max_sol<=$my_cs){
+						$sol=$max_sol;
+					}elsif($max_sol>$my_cs){
+						$sol=$my_cs;
+					}
+					$y=int($sol/10);
+					if($my_cs<$x){
+						$log .= "병력읎 너묎 적습니닀. 예비 병력을 1/3 읎상 확볎핎 죌십시였<br>\n";
+						$tm = $cmd = 0;
+						$type='';
+						&call_main_st;
+					}elsif($my_cg<$y){
+						$log .= "전쟁을 선포할 자ꞈ읎 부족합니닀.<br>출격 병력의 ì•œ 10분의 1에 핎당하는 자ꞈ읎 필요합니닀<br>\n";
+						$tm = $cmd = 0;
+						$type='';
+						&call_main_st;
+					}elsif($my_cf<$sol){
+						$log .= "전쟁을 선포할 군량읎 부족합니닀.<br>출격 병력곌 동음한 수의 군량읎 필요합니닀<br>\n";
+						$tm = $cmd = 0;
+						$type='';
+						&call_main_st;
+					}else{
+						 $log .= "$cmp[$v]에 칚공합니닀<br>\n";
+
+						if($camp==1){
+							$cg1-=int($sol/10);
+							$cf1-=int($sol);
+							$cs1-=int($sol);
+						}elsif($camp==2){
+							$cg2-=int($sol/10);
+							$cf2-=int($sol);
+							$cs2-=int($sol);
+						}elsif($camp==3){
+							$cg3-=int($sol/10);
+							$cf3-=int($sol);
+							$cs3-=int($sol);
+						}elsif($camp==4){
+							$cg4-=int($sol/10);
+							$cf4-=int($sol);
+							$cs4-=int($sol);
+						}elsif($camp==5){
+							$cg5-=int($sol/10);
+							$cf5-=int($sol);
+							$cs5-=int($sol);
+						}
+
+						$log .= "행군을 시작합니닀. 적국 국겜까지 $GMW시간읎 소요됩니닀<br>\n";
+						$nation=$v;
+						$pr=$GMT;
+						$tm=0;
+						$type='전쟁쀑';
+					}
+				}
+			}
+		}
+	}
+	&write_data;
+}
+
+1;
diff --git a/inc/ore_sub-wartime.cgi b/inc/ore_sub-wartime.cgi
old mode 100644
new mode 100755
index e6e3918..f7207e1
--- a/inc/ore_sub-wartime.cgi
+++ b/inc/ore_sub-wartime.cgi
@@ -1,876 +1,873 @@
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  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.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#-------------------------------------------------------------------------------
-#í‘ˆ’†ˆ—
-sub wr_st {
-
-	&syogo;
-
-	if(!$ck){
-		$log .="$date $cmp[$nation] ‚ɐi“ü‚µ‚Ü‚µ‚œ<br>\n";
-		$tm=0;
-
-		&usrdata_read;
-
-		$sach=0;
-		while($sach<15){
-
-			my $tg = int(rand($#usrfile));
-
-			open(IN,"$usrdata$usrfile[$tg]") || &error("Can't open $usrfile[$tg].cgi",1);
-			$tdat=<IN>;
-			close(IN);
-
-			# ŽQ‰ÁŽÒƒXƒe[ƒ^ƒXŽæ“Ÿ
-			%DAT = '';
-			@prats = split(/,/,$tdat);
-			foreach $prats (@prats){
-				($key,$v) = split(/;/,$prats);
-				$DAT{$key} = $v;
-			}
-
-			$z = ($lv-20);
-
-			if ($nation==$DAT{'camp'} && $DAT{'lv'}>$z){
-				$tnm	= $DAT{'nm'};		#–Œ‘O “G
-				$tlv	= $DAT{'lv'};		#ÚÍÞÙ “G
-				$thp	= $DAT{'max_hp'};	#HP
-				$thp_max= $DAT{'max_hp'};	#HP
-				$tmp	= $DAT{'max_mp'};	#MP
-				$tua	= $DAT{'ua'};		#UA
-				$tud	= $DAT{'ud'};		#UD
-				$tag	= $DAT{'ag'};		#AG
-				$tcp	= $DAT{'camp'};		#Š‘®
-				$tdf_a	= $DAT{'df_a'};		#–h‹ï “G
-				$tdg_a	= $DAT{'dg_a'};		#•‹ï “G
-				$tlr	= $DAT{'lr'};		#LR
-				$tsol	= $g_p[$DAT{'rank'}];#ŠK‹‰
-				$tsol_lv= $DAT{'sol_lv'};	#
-				$ck=1;
-			}
-			$sach++;
-		}
-
-		# NPC“ǂݍž‚Ý
-		if(!$tnm){
-			require './inc/ore_sub-npc_1.cgi';
-			local $v=int(rand(5));
-			&ck_ne_1;
-		}
-
-		if($nation==1){
-			$t_cs=$cs1;
-		}elsif($nation==2){
-			$t_cs=$cs2;
-		}elsif($nation==3){
-			$t_cs=$cs3;
-		}elsif($nation==4){
-			$t_cs=$cs4;
-		}elsif($nation==5){
-			$t_cs=$cs5;
-		}
-
-
-		if($tsol<=$t_cs){
-			$t_cs-=$tsol;
-		}elsif($tsol>$t_cs){
-			$tsol=$t_cs;
-		}
-
-		if($nation==1){
-			$cs1-=$tsol;
-		}elsif($nation==2){
-			$cs2-=$tsol;
-		}elsif($nation==3){
-			$cs3-=$tsol;
-		}elsif($nation==4){
-			$cs4-=$tsol;
-		}elsif($nation==5){
-			$cs5-=$tsol;
-		}
-
-
-		if($tsol<100){
-			$log .="$cmp[$nation] ‘€‚Í\—\\”õ\•º•s‘«‚ׁ̈AŽs–¯‚ð‹}篒¥•º‚µ‚œ‚æ‚€‚Ÿ<br>\n";
-			$tsol=$g_p[$DAT{'rank'}];
-			if($nation==1){
-				$cn1-=100;
-				$cn1=0 if($cn1<1);
-			}elsif($nation==2){
-				$cn2-=100;
-				$cn2=0 if($cn2<1);
-			}elsif($nation==3){
-				$cn3-=100;
-				$cn3=0 if($cn3<1);
-			}elsif($nation==4){
-				$cn4-=100;
-				$cn4=0 if($cn4<1);
-			}elsif($nation==5){
-				$cn5-=100;
-				$cn5=0 if($cn5<1);
-			}
-
-			&hist_write;#‘ƒƒO
-
-		}
-
-		if($tsol<100){
-			$tsol=$bs_h[$v];
-		}
-
-		$b_n = int((rand(6))+5);
-		$log .="¡‰ñ‚̍ìí‚̐퓬ŒÀŠEƒ^[ƒ“‚Í $b_n ƒ^[ƒ“‚Å‚·<br>\n";
-		$b_v=0;
-
-		$log .="<hr size=1 noshade>\n";
-
-		$log .="$cmp[$nation] ‚©‚ç $tnm ‚ª—Š‚¢‚é–h‰q•”‘à‚ªoŒ‚‚µ‚Ä‚«‚œI<br>\n";
-
-		$log .="<hr size=1 noshade>\n";
-
-		$log .="NUìí‚ðŽÀs‚Ɉڂµ‚Ü‚·Ií“¬ŠJŽnI<br>\n";
-
-		$log2 .="<form action=$script method=$method name=ore_>\n";
-		$log2 .="<td align=center valign=middle>\n" if($mv_mode eq 'pc');
-		$log2 .="<input type=hidden name=id value=$id><input type=hidden name=pw value=$pw>\n";
-		$log2 .="<input type=hidden name=cmd value=\"-1\"><input type=submit $button1 value=\"  í“¬“Ë“üII \">\n";
-
-		$log .="<hr size=1 noshade>\n";
-
-		$ck=1;
-	}elsif($ck==1){
-
-		# í“¬ˆ—“ǂݍž‚Ý
-		require './inc/ore_sub-battle.cgi';
-
-		$j=int($b_n-$b_v);
-		$j=0 if($j<1);
-		$log .="<p>$cmp[$camp]ŒR $nm $cl[$rank] ŽwŠö($lr) •”‘à”($sol) VS $cmp[$nation]ŒR $tnm ŽwŠö($tlr) •”‘à”($tsol)</p>\n";
-
-		$log .="<p>- í“¬ŒÀŠE‚Ü‚Å‚ ‚Æ $j ƒ^[ƒ“ -</p>\n";
-
-		$log .="<hr size=1 noshade>\n";
-
-		$qz = int($lv-20);
-
-		if($b_n eq'' && $tlr eq''){
-			$tm = $ck = $cmd = 0;
-			$nation = 0;
-			$type='';
-			$log .="í“¬’†‚ɃoƒO‚ª”­¶‚µ‚Ü‚µ‚œI‹­§“I‚ɃƒCƒ“‰æ–Ê‚É–ß‚è‚Ü‚·<br>\n";
-			&call_main_st;
-		}
-
-		if($j>2 && $tm<10 && $cmd !=-1){
-			my $l=int(rand(5));
-			if($l==0 && $qz<$tlv){
-				$tm=50;
-				$log .="<p>‚È‚ñ‚Æ“GŒR‚ðŽwŠö‚·‚é $tnm ‚©‚çˆê‹R“¢‚¿‚̐\\‚µž‚Ý‚ªI</p><p>‚Ç‚€‚µ‚Ü‚·‚©H</p>\n";
-
-				$log .="<p>“G«œÃ°Àœ - $tnm ( HP $thp MP $tmp UA $tua UD $tud LV $tlv )</p>\n";
-
-			}
-		}
-
-		if($tm==50){
-
-			if($cmd==10){
-				$log .="ˆê‹R“¢‚¿‚̐\\‚µž‚Ý‚ð’f‚Á‚œ<br>•]‰¿‚ª‚Ù‚ñ‚̏­‚µ‰º‚ª‚Á‚œ<br>\n";
-				$tm=0;
-				$rank_exe-=1;
-			}elsif($cmd==20){
-				$log .="$tnm ‚Ì’§í‚ðŽó‚¯‚Ä‚±‚̐킢‚̏Ÿ”s‚ð‰Ë‚¯‚œˆê‹R“¢‚¿‚ðs‚È‚€Ž–‚ɁI<br>\n";
-				$tm=60;
-				$rank_exe+=1;
-			}
-
-		}elsif($tm==60){
-
-			$log .="^Œ•Ÿ•‰ŠJŽnI<br>\n";
-			$tm=70;
-
-		}elsif($tm==70){
-
-			# í“¬ˆ—ŒÄ‚яo‚µ
-			&bt_cm;
-
-			if($thp<1){
-				$G =int(rand(200))+((500*$tlv)-($lv*50)); 
-				$G =1 if($G<1);
-				$G =int(rand(500))+1500 if($G>2000);
-				$gold +=$G;
-				$E =int((((((rand(5))+5)+$tlv)*2)*0.8)-$lv);
-				$E =1 if($E<1);
-				$E =int(rand(50))+250 if($E>300);
-				$exe+=$E;
-				$thp=0;
-				$bst ='';
-				$bt =0;
-				$log .="$nm ‚Í $tnm ‚ð“|‚µ‚œI<br>\n";
-				$log .="$G ‚Ì‹à ‚Æ $E ‚ÌŒoŒ±’l‚ð“Ÿ‚œI<br>\n";
-				$log .="<p></p>\n";
-
-				$H =int(rand(51)); 				$E = int((100+$H)*$lv);
-				$E = int((rand(500))+1800) if($E>2000);
-				$G = 20000;
-				#‰ü‘¢‘O‚Í50+$H
-				$N = $H+150;
-				#‚±‚±‚Ü‚Å
-				$exe+=$E;
-				$gold+=$G;
-
-				if($camp==1){
-					$cs1+=int($sol);
-					$cn1+=$N;
-				}elsif($camp==2){
-					$cs2+=int($sol);
-					$cn2+=$N;
-				}elsif($camp==3){
-					$cs3+=int($sol);
-					$cn3+=$N;
-				}elsif($camp==4){
-					$cs4+=int($sol);
-					$cn4+=$N;
-				}elsif($camp==5){
-					$cs5+=int($sol);
-					$cn5+=$N;
-				}
-
-				$tsol=int($tsol/2);
-
-				if($nation==1){
-					$cs1+=$tsol;
-				}elsif($nation==2){
-					$cs2+=$tsol;
-				}elsif($nation==3){
-					$cs3+=$tsol;
-				}elsif($nation==4){
-					$cs4+=$tsol;
-				}elsif($nation==5){
-					$cs5+=$tsol;
-				}
-
-				if($nation==1){
-					$cn1-=$N;
-					$cn1=0 if($cn1<1);
-				}elsif($nation==2){
-					$cn2-=$N;
-					$cn2=0 if($cn2<1);
-				}elsif($nation==3){
-					$cn3-=$N;
-					$cn3=0 if($cn3<1);
-				}elsif($nation==4){
-					$cn4-=$N;
-					$cn4=0 if($cn4<1);
-				}elsif($nation==5){
-					$cn5-=$N;
-					$cn5=0 if($cn5<1);
-				}
-
-				$log .="“GŒR‚Í $tnm ‚Ì”s–k‚ɐíˆÓ‚ð‘rŽž‚µ‚Ü‚µ‚œI«‚ðŒ‡‚¢‚œ•”‘à‚È‚Ç“G‚Å‚Í‚ ‚è‚Ü‚¹‚ñ<br>“GŒR‚ð’ÇŒ‚‚µA‚©‚È‚è‚Ì”íŠQ‚ð—^‚Š‚Ü‚µ‚œI<br>\n";
-
-				$log .="$cmp[$nation]‚©‚ç $N ‚̍‘—Í‚ð’D‚¢‚Ü‚µ‚œ<br>X‚É$E ‚ÌŒoŒ±’l‚Æ $G ‚Ì•ñV‚ð“Ÿ‚œI<br>\n";
-
-				$wr_mes ="$date $cmp[$camp] ‚Ì $syogo ‚ª $cmp[$nation] ‚ɐNUA$tnm ‚ƈê‹R“¢‚¿‚Ì––‚±‚ê‚ð‰º‚µ $N ‚̍‘—Í‚ð’D‚€Ž–‚ɐ¬Œ÷‚µ‚œ‚æ‚€‚Å‚·";
-
-				&touitu;
-
-				$V =int(rand(6))+5;
-				$sol_lv-=$V;
-				$rank_exe+=int($V*2)+5;
-				$sol=0;
-				$tnm='';
-				$ck = $tm = $cmd = 0;
-				$nation=0;
-				$type='';
-
-				&hist_write;#‘ƒƒO
-
-			}elsif($hp<1){
-
-				$bst ='';
-				$bt =0;
-				$ck =0;
-				$hp =0;
-				$G=int(rand(10))+1;
-				$E=int(rand(5))+1;
-				$gold+=$G;
-				$exe+=$E;
-				$log .="‚ ‚È‚œ‚Í $tnm ‚É”s‚ê‹Ž‚Á‚œc<br>\n";
-				$log .="$G ‚Ì‹à ‚Æ $E ‚ÌŒoŒ±’l‚ð“Ÿ‚œ<br>\n";
-				$log .="<p></p>\n";
-
-				$sol=int($sol/2);
-
-				if($camp==1){
-					$cs1+=int($sol);
-					$cn1+=$N;
-				}elsif($camp==2){
-					$cs2+=int($sol);
-					$cn2+=$N;
-				}elsif($camp==3){
-					$cs3+=int($sol);
-					$cn3+=$N;
-				}elsif($camp==4){
-					$cs4+=int($sol);
-					$cn4+=$N;
-				}elsif($camp==5){
-					$cs5+=int($sol);
-					$cn5+=$N;
-				}
-
-				if($nation==1){
-					$cs1+=$tsol;
-				}elsif($nation==2){
-					$cs2+=$tsol;
-				}elsif($nation==3){
-					$cs3+=$tsol;
-				}elsif($nation==4){
-					$cs4+=$tsol;
-				}elsif($nation==5){
-					$cs5+=$tsol;
-				}
-
-				$log .="ˆê‹R“¢‚¿‚É”s‚êŽwŠöŠ¯‚ðŽž‚Á‚œ‚ ‚È‚œ‚Ì•”‘à‚Í“G‚É‚©‚È‚è‚Ì‘¹ŠQ‚ð—^‚Š‚ç‚ê‚œc<br>\n";
-
-				$rank_exe-=15;
-				$log .="•”‘à‘S–Å‚Æ‚¢‚€•s–Œ—_‚È”s–k‚ɁA‹M•û‚ɑ΂·‚é•]‰¿‚ª’˜‚µ‚­’ቺ‚µ‚œ<br>\n";
-				if($rank_exe<1){
-					$rank--;
-					$rank=1 if($rank<1);
-					$next_rank=int(($rank*$rank)*3);
-					$v=$next_rank-10;
-					$rank_exe=$v;
-					$log .="ˆêŠK‹‰~Ši‚³‚ê‚Ä‚µ‚Ü‚Á‚œc<br>\n";
-				}
-
-				$wr_mes ="$date $cmp[$camp] ‚Ì $syogo ‚ª $cmp[$nation] ‚ɐNUA$tnm ‚ƈê‹R“¢‚¿‚ð‰‰‚¶‚邪”s–k‚µ•”‘à‚Í”s‘–‚µ‚œ‚æ‚€‚Å‚·";
-
-				$sol=0;
-				$tnm='';
-				$ck = $tm = $cmd = 0;
-				$nation=0;
-				$type='';
-
-				&hist_write;#‘ƒƒO
-
-			}
-
-		}elsif($tm<1){
-
-			if($cmd==10){
-
-				my $btp = $ag + int(rand($lv/2) +1);
-				my $bte = $tag+ int(rand($tlv/2)+1);
-
-				if($j<3){
-					$log .="‚±‚±‚܂Ő퓬‚ªis‚µ‚œó‘Ô‚Å‚Ì‘Þ‹p‚Í•s\‰Â\”\\‚Å‚·<br>\n";
-					$b_n+=1;
-				}elsif($btp<$bte){
-					$log .="“GŒR‚É“Š‘–Œo˜H‚ðÇ‚ª‚êA‚à‚Í‚â“P‘Þ‚Í•s‰Â”\‚Å‚·B<br>\n";
-					$b_n+=1;
-				}else{
-
-					$log .="Žc”O‚Å‚·‚ªìí‚𒆎~‚µ‘Þ‹p‚µ‚Ü‚·<br>\n";
-
-					if($camp==1){
-						$cs1+=int($sol);
-					}elsif($camp==2){
-						$cs2+=int($sol);
-					}elsif($camp==3){
-						$cs3+=int($sol);
-					}elsif($camp==4){
-						$cs4+=int($sol);
-					}elsif($camp==5){
-						$cs5+=int($sol);
-					}
-
-					if($nation==1){
-						$cs1+=$tsol;
-					}elsif($nation==2){
-						$cs2+=$tsol;
-					}elsif($nation==3){
-						$cs3+=$tsol;
-					}elsif($nation==4){
-						$cs4+=$tsol;
-					}elsif($nation==5){
-						$cs5+=$tsol;
-					}
-
-					$wr_mes ="$date $cmp[$camp] ‚Ì $syogo ‚ª $cmp[$nation] ‚ɐNUA $tnm –h‰q•”‘à‚ÆŒðíB—]‹V‚È‚­“P‘Þ‚µ‚œ–Í—l";
-
-					$sol_lv-=int(rand(40));
-					$rank_exe-=1;
-					$rank_exe = 0 if($rank_exe<1);
-
-					$tnm='';
-					$ck = $tm = $cmd = 0;
-					$nation=0;
-					$type='';
-
-					&hist_write;#‘ƒƒO
-
-				}
-			}elsif($cmd==1){
-				$l=int(rand(3));
-				if($l==0){
-					$x=int(($sol/100)+($lr*10))+$sol_lv;
-					$y=int(($tsol/100)+($tlr*10))+$tsol_lv;
-					$x=1 if($x<1);
-					$y=1 if($y<1);
-					$log .="$nm (UŒ‚wŒ`) VS $tnm (UŒ‚wŒ`)<br>\n";
-					$log .="›Ž©ŒR”íŠQ $y œ“GŒR”íŠQ $x<br>\n";
-					$sol-=$y;
-					$tsol-=$x;
-				}elsif($l==1){
-					$x=int((($sol/100)+($lr*10))*2)+$sol_lv;
-					$y=int((($tsol/100)+($tlr*10))*0.5)+$tsol_lv;
-					$x=1 if($x<1);
-					$y=1 if($y<1);
-					$log .="$nm (UŒ‚wŒ`) VS $tnm (–hŒäwŒ`)<br>\n";
-					$log .="›Ž©ŒR”íŠQ $y œ“GŒR”íŠQ $x<br>\n";
-					$sol-=$y;
-					$tsol-=$x;
-				}elsif($l==2){
-					$x=int((($sol/100)+($lr*10))*0.5)+$sol_lv;
-					$y=int((($tsol/100)+($tlr*10))*2)+$tsol_lv;
-					$x=1 if($x<1);
-					$y=1 if($y<1);
-					$log .="$nm (UŒ‚wŒ`) VS $tnm (“ËŒ‚wŒ`)<br>\n";
-					$log .="›Ž©ŒR”íŠQ $y œ“GŒR”íŠQ $x<br>\n";
-					$sol-=$y;
-					$tsol-=$x;
-				}
-			}elsif($cmd==2){
-				$l=int(rand(3));
-				if($l==0){
-					$x=int((($sol/100)+($lr*10))*0.5)+$sol_lv;
-					$y=int((($tsol/100)+($tlr*10))*2)+$tsol_lv;
-					$x=1 if($x<1);
-					$y=1 if($y<1);
-					$log .="$nm (–hŒäwŒ`) VS $tnm (UŒ‚wŒ`)<br>\n";
-					$log .="›Ž©ŒR”íŠQ $y œ“GŒR”íŠQ $x<br>\n";
-					$sol-=$y;
-					$tsol-=$x;
-				}elsif($l==1){
-					$x=int(($sol/100)+($lr*10))+$sol_lv;
-					$y=int(($tsol/100)+($tlr*10))+$tsol_lv;
-					$x=1 if($x<1);
-					$y=1 if($y<1);
-					$log .="$nm (–hŒäwŒ`) VS $tnm (–hŒäwŒ`)<br>\n";
-					$log .="›Ž©ŒR”íŠQ $y œ“GŒR”íŠQ $x<br>\n";
-					$sol-=$y;
-					$tsol-=$x;
-				}elsif($l==2){
-					$x=int((($sol/100)+($lr*10))*2)+$sol_lv;
-					$y=int((($tsol/100)+($tlr*10))*0.5)+$tsol_lv;
-					$x=1 if($x<1);
-					$y=1 if($y<1);
-					$log .="$nm (–hŒäwŒ`) VS $tnm (“ËŒ‚wŒ`)<br>\n";
-					$log .="›Ž©ŒR”íŠQ $y œ“GŒR”íŠQ $x<br>\n";
-					$sol-=$y;
-					$tsol-=$x;
-				}
-			}elsif($cmd==3){
-				$l=int(rand(3));
-				if($l==0){
-					$x=int((($sol/100)+($lr*10))*2)+$sol_lv;
-					$y=int((($tsol/100)+($tlr*10))*0.5)+$tsol_lv;
-					$x=1 if($x<1);
-					$y=1 if($y<1);
-					$log .="$nm (“ËŒ‚wŒ`) VS $tnm (UŒ‚wŒ`)<br>\n";
-					$log .="›Ž©ŒR”íŠQ $y œ“GŒR”íŠQ $x<br>\n";
-					$sol-=$y;
-					$tsol-=$x;
-				}elsif($l==1){
-					$x=int((($sol/100)+($lr*10))*0.5)+$sol_lv;
-					$y=int((($tsol/100)+($tlr*10))*2)+$tsol_lv;
-					$x=1 if($x<1);
-					$y=1 if($y<1);
-					$log .="$nm (“ËŒ‚wŒ`) VS $tnm (–hŒäwŒ`)<br>\n";
-					$log .="›Ž©ŒR”íŠQ $y œ“GŒR”íŠQ $x<br>\n";
-					$sol-=$y;
-					$tsol-=$x;
-				}elsif($l==2){
-					$x=int(($sol/100)+($lr*10))+$sol_lv;
-					$y=int(($tsol/100)+($tlr*10))+$tsol_lv;
-					$x=1 if($x<1);
-					$y=1 if($y<1);
-					$log .="$nm (“ËŒ‚wŒ`) VS $tnm (“ËŒ‚wŒ`)<br>\n";
-					$log .="›Ž©ŒR”íŠQ $y œ“GŒR”íŠQ $x<br>\n";
-					$sol-=$y;
-					$tsol-=$x;
-				}
-			}
-
-			$log .="<hr size=1 noshade>\n";
-
-			if($sol<1&&$tsol<1){
-				$log .="—ŒŒR‚Æ‚à‚ɉó–Å“I‘¹ŠQ‚ðŽó‚¯í“¬Œp‘±‚ª•s‰Â”\‚Æ‚È‚è‚Ü‚µ‚œ<br>¡‰ñ‚̍ìí‚͈ø‚«•ª‚¯‚Å‚·\n";
-
-				$log .="‘—Í‚Í—Œw‰c‚Æ‚à•Ï‰»‚È‚µ<br>\n";
-
-				$H =int(rand(21));
-
-				$E = int((20+$H)*$lv);
-				$E = int(rand(50))+170 if($E>200);
-				$G = 5000;
-				$exe+=$E;
-				$gold+=$G;
-				$rank_exe-=10;
-				$log .="•”‘à‘S–Å‚Æ‚¢‚€•s–Œ—_‚È”s–k‚ׁ̈A‹M•û‚ɑ΂·‚é•]‰¿‚ª’˜‚µ‚­’ቺ‚µ‚œ<br>\n";
-				if($rank_exe<1){
-					$rank--;
-					$rank=1 if($rank<1);
-					$next_rank=int(($rank*$rank)*3);
-					$v=$next_rank-10;
-					$rank_exe=$v;
-					$log .="ˆêŠK‹‰~Ši‚³‚ê‚Ä‚µ‚Ü‚Á‚œc<br>\n";
-				}
-
-				$log .="$E ‚ÌŒoŒ±’l‚Æ $G ‚Ì•ñV‚ð“Ÿ‚œ<br>\n";
-
-				$wr_mes ="$date $cmp[$camp] ‚Ì $syogo ‚ª $cmp[$nation] ‚ɐNUA$tnm –h‰q•”‘à‚É‘j‚܂ꌃí‚Ì––A—ŒŒR‰ó–Å‚µ‚œ‚æ‚€‚Å‚·";
-
-				$sol=0;
-				$sol_lv=0;
-				$tnm='';
-				$ck = $tm = $cmd = 0;
-				$nation=0;
-				$type='';
-
-				&hist_write;#‘ƒƒO
-
-			}elsif($tsol<1){
-				$log .="“G•”‘à‚ðŒ‚”j‚µ‚Ü‚µ‚œI<br>‰ä‚ªŒR‚̏Ÿ—˜‚Å‚·I<br>\n";
-				$H =int(rand(51));
-				$E = int((100+$H)*$lv);
-				$E = int((rand(500))+1800) if($E>2000);
-				$G = 20000;
-				#‰ü‘¢‘O‚Í50+$H
-				$N = $H+150;
-				#‚±‚±‚Ü‚Å
-				$exe+=$E;
-				$gold+=$G;
-
-				if($camp==1){
-					$cs1+=int($sol);
-					$cn1+=$N;
-				}elsif($camp==2){
-					$cs2+=int($sol);
-					$cn2+=$N;
-				}elsif($camp==3){
-					$cs3+=int($sol);
-					$cn3+=$N;
-				}elsif($camp==4){
-					$cs4+=int($sol);
-					$cn4+=$N;
-				}elsif($camp==5){
-					$cs5+=int($sol);
-					$cn5+=$N;
-				}
-
-				if($nation==1){
-					$cn1-=$N;
-					$cn1=0 if($cn1<1);
-				}elsif($nation==2){
-					$cn2-=$N;
-					$cn2=0 if($cn2<1);
-				}elsif($nation==3){
-					$cn3-=$N;
-					$cn3=0 if($cn3<1);
-				}elsif($nation==4){
-					$cn4-=$N;
-					$cn4=0 if($cn4<1);
-				}elsif($nation==5){
-					$cn5-=$N;
-					$cn5=0 if($cn5<1);
-				}
-
-				$log .="$cmp[$nation]‚©‚ç $N ‚̍‘—Í‚ð’D‚¢‚Ü‚µ‚œ<br>$E ‚ÌŒoŒ±’l‚Æ $G ‚Ì•ñV‚ð“Ÿ‚œI<br>\n";
-
-				$wr_mes ="$date $cmp[$camp] ‚Ì $syogo ‚ª $cmp[$nation] ‚ɐNUA$tnm –h‰q•”‘à‚ðŒ‚”jB $N ‚̍‘—Í‚ð’D‚€Ž–‚ɐ¬Œ÷‚µ‚œ‚æ‚€‚Å‚·";
-
-				&touitu;
-
-				$V =int(rand(6))+10;
-				$sol_lv-=$V;
-				$rank_exe+=$V;
-				$sol=0;
-				$tnm='';
-				$ck = $tm = $cmd = 0;
-				$nation=0;
-				$type='';
-
-				&hist_write;#‘ƒƒO
-
-			}elsif($sol<1){
-				$log .="‰ä‚ªŒR‚Í”s–k‚µ‚Ü‚µ‚œcBŽc”O‚Å‚·‚ª“P‘Þ‚µ‚Ü‚·B<br>\n";
-
-				$log .="‘—Í‚Í—Œw‰c‚Æ‚à•Ï‰»‚È‚µ<br>\n";
-
-				$H =int(rand(21));
-
-				$E = int((20+$H)*$lv);
-				$E = int(rand(50))+170 if($E>200);
-				$G = 5000;
-				$exe+=$E;
-				$gold+=$G;
-
-				$log .="$E ‚ÌŒoŒ±’l‚Æ $G ‚Ì•ñV‚ð“Ÿ‚œ<br>\n";
-
-				$wr_mes ="$date $cmp[$camp] ‚Ì $syogo ‚ª $cmp[$nation] ‚ɐNUA$tnm –h‰q•”‘à‚Ì‘O‚É”s‘Þ‚µ‚œ‚æ‚€‚Å‚·";
-
-				if($nation==1){
-					$cs1+=$tsol;
-				}elsif($nation==2){
-					$cs2+=$tsol;
-				}elsif($nation==3){
-					$cs3+=$tsol;
-				}elsif($nation==4){
-					$cs4+=$tsol;
-				}elsif($nation==5){
-					$cs5+=$tsol;
-				}
-
-				$rank_exe-=10;
-				$log .="•”‘à‘S–Å‚Æ‚¢‚€•s–Œ—_‚È”s–k‚ɁA‹M•û‚ɑ΂·‚é•]‰¿‚ª’˜‚µ‚­’ቺ‚µ‚œ<br>\n";
-				if($rank_exe<1){
-					$rank--;
-					$rank=1 if($rank<1);
-					$next_rank=int(($rank*$rank)*3);
-					$v=$next_rank-10;
-					$rank_exe=$v;
-					$log .="ˆêŠK‹‰~Ši‚³‚ê‚Ä‚µ‚Ü‚Á‚œc<br>\n";
-				}
-
-				$sol=0;
-				$tnm='';
-				$ck = $tm = $cmd = 0;
-				$nation=0;
-				$type='';
-
-					&hist_write;#‘ƒƒO
-			}elsif($b_n<$b_v){
-				$log .="í“¬ŒÀŠEƒ^[ƒ“‚ð’Ž‚Š‚Ä‚µ‚Ü‚Á‚œc‚±‚êˆÈã‚͐킊‚Ü‚¹‚ñ<br>\n";
-
-				$log .="‘—Í‚Í—Œw‰c‚Æ‚à•Ï‰»‚È‚µ<br>\n";
-
-				$H =int(rand(21));
-
-				$E = int((20+$H)*$lv);
-				$E = int(rand(50))+170 if($E>200);
-				$G = 5000;
-				$exe+=$E;
-				$gold+=$G;
-
-				$log .="$E ‚ÌŒoŒ±’l‚Æ $G ‚Ì•ñV‚ð“Ÿ‚œ<br>\n";
-
-				$wr_mes ="$date $cmp[$camp] ‚Ì $syogo ‚ª $cmp[$nation] ‚ɐNUA$tnm –h‰q•”‘à‚É‘j‚Ü‚êí“¬ŒÀŠE‚ðƒI[ƒo[‚µ‚œ‚æ‚€‚Å‚·";
-
-				$rank_exe-=5;
-				$log .="ìí‚ÉŽž”s‚µ‚œˆ×A‹M•û‚ɑ΂·‚é•]‰¿‚ª’ቺ‚µ‚œ<br>\n";
-				if($rank_exe<1){
-					$rank--;
-					$rank=1 if($rank<1);
-					$next_rank=int(($rank*$rank)*3);
-					$v=$next_rank-10;
-					$rank_exe=$v;
-					$log .="ˆêŠK‹‰~Ši‚³‚ê‚Ä‚µ‚Ü‚Á‚œc<br>\n";
-				}
-
-				$sol_lv-=int(rand(40));
-				$sol=0;
-				$tnm='';
-				$ck = $tm = $cmd = 0;
-				$nation=0;
-				$type='';
-
-				&hist_write;#‘ƒƒO
-			}
-
-			$b_v+=1 if($cmd>0);
-
-		}
-
-		$log2 .="<form action=$script method=$method name=ore_>\n";
-		$log2 .="<td align=center valign=middle>\n" if($mv_mode eq 'pc');
-		$log2 .="<input type=hidden name=id value=\"$id_p\">\n";
-		$log2 .="<input type=hidden name=pw value=\"$pw_p\">\n";
-		if($tsol<1||$sol<1){
-			$log2 .="<input type=hidden name=cmd value=-1>\n";
-		}elsif($tm==50){
-			$log2 .="<select name=cmd size=1><option value=10>Œ™‚Ÿ</option><option value=20>—¹³</option>\n";
-			$log2 .="</select>";
-		}elsif($tm==60){
-			$log2 .="<input type=hidden name=cmd value=-1>\n";
-		}elsif($tm==70){
-			&spell_sp;
-		}elsif($tm<1){
-			$log2 .="<select name=cmd size=1><option value=1>UŒ‚wŒ`</option><option value=2>–hŒäwŒ`</option><option value=3>“ËŒ‚wŒ`</option><option value=10>“Š‘–</option>\n";
-			$log2 .="</select>";
-		}
-		$log2 .="<br>";#ƒe[ƒuƒ‹‚ž‚êC³
-		$log2 .="<input type=submit $button1 value=\"NEXTI\">$td_end</form>\n";#ƒe[ƒuƒ‹’ljÁ</tr></table>
-	}
-
-	if($cn1<1&&$ce1<1){
-
-		$wr_mes ="$date $cmp[1] ‚ª $syogo ‚É‚æ‚Á‚ĉó–Å“I‘¹ŠQ‚ðŽó‚¯–S‘‚Æ‚È‚è‚Ü‚µ‚œB";
-
-		$ce1=1;
-
-		&hist_write;#‘ƒƒO
-
-	}elsif($cn2<1&&$ce2<1){
-
-		$wr_mes ="$date $cmp[2] ‚ª $syogo ‚É‚æ‚Á‚ĉó–Å“I‘¹ŠQ‚ðŽó‚¯–S‘‚Æ‚È‚è‚Ü‚µ‚œB";
-
-		$ce2=1;
-
-		&hist_write;#‘ƒƒO
-
-	}elsif($cn3<1&&$ce3<1){
-
-		$wr_mes ="$date $cmp[3] ‚ª $syogo ‚É‚æ‚Á‚ĉó–Å“I‘¹ŠQ‚ðŽó‚¯–S‘‚Æ‚È‚è‚Ü‚µ‚œB";
-
-		$ce3=1;
-
-		&hist_write;#‘ƒƒO
-
-	}elsif($cn4<1&&$ce4<1){
-
-		$wr_mes ="$date $cmp[4] ‚ª $syogo ‚É‚æ‚Á‚ĉó–Å“I‘¹ŠQ‚ðŽó‚¯–S‘‚Æ‚È‚è‚Ü‚µ‚œB";
-
-		$ce4=1;
-
-		&hist_write;#‘ƒƒO
-
-	}elsif($cn5<1&&$ce5<1){
-
-		$wr_mes ="$date $cmp[5] ‚ª $syogo ‚É‚æ‚Á‚ĉó–Å“I‘¹ŠQ‚ðŽó‚¯–S‘‚Æ‚È‚è‚Ü‚µ‚œB";
-
-		$ce5=1;
-
-		&hist_write;#‘ƒƒO
-
-	}elsif($cn1>1000&&$ce1>0){
-
-		$wr_mes ="$date $cmp[1] ‚ª $syogo ‚ÌŠˆ–ô‚É‚æ‚è–S‘‚©‚ç•œ‹»‚µ‚Ü‚µ‚œB";
-
-		$ce1=0;
-
-		&hist_write;#‘ƒƒO
-
-	}elsif($cn2>1000&&$ce2>0){
-
-		$wr_mes ="$date $cmp[2] ‚ª $syogo ‚ÌŠˆ–ô‚É‚æ‚è–S‘‚©‚ç•œ‹»‚µ‚Ü‚µ‚œB";
-
-		$ce2=0;
-
-		&hist_write;#‘ƒƒO
-
-	}elsif($cn3>1000&&$ce3>0){
-
-		$wr_mes ="$date $cmp[3] ‚ª $syogo ‚ÌŠˆ–ô‚É‚æ‚è–S‘‚©‚ç•œ‹»‚µ‚Ü‚µ‚œB";
-
-		$ce3=0;
-
-		&hist_write;#‘ƒƒO
-
-	}elsif($cn4>1000&&$ce4>0){
-
-		$wr_mes ="$date $cmp[4] ‚ª $syogo ‚ÌŠˆ–ô‚É‚æ‚è–S‘‚©‚ç•œ‹»‚µ‚Ü‚µ‚œB";
-
-		$ce4=0;
-
-		&hist_write;#‘ƒƒO
-
-	}elsif($cn5>1000&&$ce5>0){
-
-		$wr_mes ="$date $cmp[5] ‚ª $syogo ‚ÌŠˆ–ô‚É‚æ‚è–S‘‚©‚ç•œ‹»‚µ‚Ü‚µ‚œB";
-
-		$ce5=0;
-
-		&hist_write;#‘ƒƒO
-	}
-
-	$layout_flag=1;
-	&write_data;
-	&hist_write if($touitu_flag);
-}
-
-#-------------------------------------------------------------------------------
-#“ˆêˆ—
-sub touitu{
-
-	&syogo;
-
-	if($camp==1){
-		if($cn1>=$data_reset){
-
-			$wr_mes ="$date $cmp[$camp] ‚ª $syogo “™‚ÌŠˆ–ô‚É‚æ‚è‘å—€‚𐧔e‚µ‚Ü‚µ‚œIII";
-
-			$sogo=1;#”eŽÒ‹L˜^
-			$hasya=$nm;#”eŽÒ‹L˜^
-			$hcamp=$camp;
-			$touitu_flag=1;
-		}
-	}elsif($camp==2){
-		if($cn2>=$data_reset){
-
-			$wr_mes ="$date $cmp[$camp] ‚ª $syogo “™‚ÌŠˆ–ô‚É‚æ‚è‘å—€‚𐧔e‚µ‚Ü‚µ‚œIII";
-
-			$sogo=1;#”eŽÒ‹L˜^
-			$hasya=$nm;#”eŽÒ‹L˜^
-			$hcamp=$camp;
-			$touitu_flag=1;
-		}
-	}elsif($camp==3){
-		if($cn3>=$data_reset){
-
-			$wr_mes ="$date $cmp[$camp] ‚ª $syogo “™‚ÌŠˆ–ô‚É‚æ‚è‘å—€‚𐧔e‚µ‚Ü‚µ‚œIII";
-
-			$sogo=1;#”eŽÒ‹L˜^
-			$hasya=$nm;#”eŽÒ‹L˜^
-			$hcamp=$camp;
-			$touitu_flag=1;
-		}
-	}elsif($camp==4){
-		if($cn4>=$data_reset){
-
-			$wr_mes ="$date $cmp[$camp] ‚ª $syogo “™‚ÌŠˆ–ô‚É‚æ‚è‘å—€‚𐧔e‚µ‚Ü‚µ‚œIII";
-
-			$sogo=1;#”eŽÒ‹L˜^
-			$hasya=$nm;#”eŽÒ‹L˜^
-			$hcamp=$camp;
-			$touitu_flag=1;
-		}
-	}elsif($camp==5){
-		if($cn5>=$data_reset){
-
-			$wr_mes ="$date $cmp[$camp] ‚ª $syogo “™‚ÌŠˆ–ô‚É‚æ‚è‘å—€‚𐧔e‚µ‚Ü‚µ‚œIII";
-
-			$sogo=1;#”eŽÒ‹L˜^
-			$hasya=$nm;#”eŽÒ‹L˜^
-			$hcamp=$camp;
-			$touitu_flag=1;
-		}
-	}
-}
-
-
-
-
-
-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 wr_st {
+
+	&syogo;
+
+	if(!$ck){
+		$log .="$date $cmp[$nation]에 진입했습니닀<br>\n";
+		$tm=0;
+
+		&usrdata_read;
+
+		$sach=0;
+		while($sach<15){
+
+			my $tg = int(rand($#usrfile));
+
+			open(IN,"$usrdata$usrfile[$tg]") || &error("Can't open $usrfile[$tg].cgi",1);
+			$tdat=<IN>;
+			close(IN);
+
+			# 찞가자 슀탯 췚득
+			%DAT = '';
+			@prats = split(/,/,$tdat);
+			foreach $prats (@prats){
+				($key,$v) = split(/;/,$prats);
+				$DAT{$key} = $v;
+			}
+
+			$z = ($lv-20);
+
+			if ($nation==$DAT{'camp'} && $DAT{'lv'}>$z){
+				$tnm	= $DAT{'nm'};		#읎늄 적
+				$tlv	= $DAT{'lv'};		#레벚 적
+				$thp	= $DAT{'max_hp'};	#HP
+				$thp_max= $DAT{'max_hp'};	#HP
+				$tmp	= $DAT{'max_mp'};	#MP
+				$tua	= $DAT{'ua'};		#UA
+				$tud	= $DAT{'ud'};		#UD
+				$tag	= $DAT{'ag'};		#AG
+				$tcp	= $DAT{'camp'};		#소속
+				$tdf_a	= $DAT{'df_a'};		#방얎구 적
+				$tdg_a	= $DAT{'dg_a'};		#묎구 적
+				$tlr	= $DAT{'lr'};		#LR
+				$tsol	= $g_p[$DAT{'rank'}];#계꞉
+				$tsol_lv= $DAT{'sol_lv'};	#
+				$ck=1;
+			}
+			$sach++;
+		}
+
+		# NPC 읜Ʞ
+		if(!$tnm){
+			require './inc/ore_sub-npc_1.cgi';
+			local $v=int(rand(5));
+			&ck_ne_1;
+		}
+
+		if($nation==1){
+			$t_cs=$cs1;
+		}elsif($nation==2){
+			$t_cs=$cs2;
+		}elsif($nation==3){
+			$t_cs=$cs3;
+		}elsif($nation==4){
+			$t_cs=$cs4;
+		}elsif($nation==5){
+			$t_cs=$cs5;
+		}
+
+
+		if($tsol<=$t_cs){
+			$t_cs-=$tsol;
+		}elsif($tsol>$t_cs){
+			$tsol=$t_cs;
+		}
+
+		if($nation==1){
+			$cs1-=$tsol;
+		}elsif($nation==2){
+			$cs2-=$tsol;
+		}elsif($nation==3){
+			$cs3-=$tsol;
+		}elsif($nation==4){
+			$cs4-=$tsol;
+		}elsif($nation==5){
+			$cs5-=$tsol;
+		}
+
+
+		if($tsol<100){
+			$log .="$cmp[$nation] 잡은 예비병 부족윌로 읞핎 시믌을 ꞉히 징병한 것 같닀<br>\n";
+			$tsol=$g_p[$DAT{'rank'}];
+			if($nation==1){
+				$cn1-=100;
+				$cn1=0 if($cn1<1);
+			}elsif($nation==2){
+				$cn2-=100;
+				$cn2=0 if($cn2<1);
+			}elsif($nation==3){
+				$cn3-=100;
+				$cn3=0 if($cn3<1);
+			}elsif($nation==4){
+				$cn4-=100;
+				$cn4=0 if($cn4<1);
+			}elsif($nation==5){
+				$cn5-=100;
+				$cn5=0 if($cn5<1);
+			}
+
+			&hist_write;#국가 로귞
+
+		}
+
+		if($tsol<100){
+			$tsol=$bs_h[$v];
+		}
+
+		$b_n = int((rand(6))+5);
+		$log .="읎번 작전의 전투 한계 턎은 $b_n 턎입니닀<br>\n";
+		$b_v=0;
+
+		$log .="<hr size=1 noshade>\n";
+
+		$log .="$cmp[$nation]로부터 $tnm(읎)가 읎끄는 방위 부대가 출격핎 왔닀!<br>\n";
+
+		$log .="<hr size=1 noshade>\n";
+
+		$log .="칚공 작전을 싀행에 옮깁니닀! 전투 개시!<br>\n";
+
+		$log2 .="<form action=$script method=$method name=ore_>\n";
+		$log2 .="<td align=center valign=middle>\n" if($mv_mode eq 'pc');
+		$log2 .="<input type=hidden name=id value=$id><input type=hidden name=pw value=$pw>\n";
+		$log2 .="<input type=hidden name=cmd value=\"-1\"><input type=submit $button1 value=\"  전투 돌입 \">\n";
+
+		$log .="<hr size=1 noshade>\n";
+
+		$ck=1;
+	}elsif($ck==1){
+
+		# 전투 처늬 파음 읜Ʞ
+		require './inc/ore_sub-battle.cgi';
+
+		$j=int($b_n-$b_v);
+		$j=0 if($j<1);
+		$log .="<p>$cmp[$camp]군 $nm $cl[$rank] 지휘($lr) 부대수($sol) VS $cmp[$nation]군 $tnm 지휘($tlr) 부대수($tsol)</p>\n";
+
+		$log .="<p>- 전투 한계까지 낚은 턮: $j 턮 -</p>\n";
+
+		$log .="<hr size=1 noshade>\n";
+
+		$qz = int($lv-20);
+
+		if($b_n eq'' && $tlr eq''){
+			$tm = $ck = $cmd = 0;
+			$nation = 0;
+			$type='';
+			$log .="전투 쀑에 버귞가 발생했습니닀! 강제로 메읞 화멎윌로 돌아갑니닀<br>\n";
+			&call_main_st;
+		}
+
+		if($j>2 && $tm<10 && $cmd !=-1){
+			my $l=int(rand(5));
+			if($l==0 && $qz<$tlv){
+				$tm=50;
+				$log .="<p>적군을 지휘하는 $tnm(윌)로부터 음대음 결투 신청읎 듀얎왔습니닀!</p><p>얎떻게 하겠습니까?</p>\n";
+
+				$log .="<p>적장 슀탯 - $tnm ( HP $thp MP $tmp UA $tua UD $tud LV $tlv )</p>\n";
+
+			}
+		}
+
+		if($tm==50){
+
+			if($cmd==10){
+				$log .="음대음 결투 신청을 거절했습니닀.<br>평판읎 소폭 하띜했습니닀.<br>\n";
+				$tm=0;
+				$rank_exe-=1;
+			}elsif($cmd==20){
+				$log .="$tnm 의 도전을 수띜하여 읎 전쟁의 승팚륌 걎 음대음 결투륌 치륎Ʞ로 했습니닀!<br>\n";
+				$tm=60;
+				$rank_exe+=1;
+			}
+
+		}elsif($tm==60){
+
+			$log .="진검승부 시작!<br>\n";
+			$tm=70;
+
+		}elsif($tm==70){
+
+			# 전투 처늬 혞출
+			&bt_cm;
+
+			if($thp<1){
+				$G =int(rand(200))+((500*$tlv)-($lv*50)); 
+				$G =1 if($G<1);
+				$G =int(rand(500))+1500 if($G>2000);
+				$gold +=$G;
+				$E =int((((((rand(5))+5)+$tlv)*2)*0.8)-$lv);
+				$E =1 if($E<1);
+				$E =int(rand(50))+250 if($E>300);
+				$exe+=$E;
+				$thp=0;
+				$bst ='';
+				$bt =0;
+				$log .="$nm 은(는) $tnm(을)륌 쓰러뜚렞닀!<br>\n";
+				$log .="$G GOLD와 $E 겜험치륌 획득했닀!<br>\n";
+				$log .="<p></p>\n";
+
+				$H =int(rand(51)); 
+				$E = int((100+$H)*$lv);
+				$E = int((rand(500))+1800) if($E>2000);
+				$G = 20000;
+				# 개조 전은 50+$H
+				$N = $H+150;
+				# 여Ʞ까지
+				$exe+=$E;
+				$gold+=$G;
+
+				if($camp==1){
+					$cs1+=int($sol);
+					$cn1+=$N;
+				}elsif($camp==2){
+					$cs2+=int($sol);
+					$cn2+=$N;
+				}elsif($camp==3){
+					$cs3+=int($sol);
+					$cn3+=$N;
+				}elsif($camp==4){
+					$cs4+=int($sol);
+					$cn4+=$N;
+				}elsif($camp==5){
+					$cs5+=int($sol);
+					$cn5+=$N;
+				}
+
+				$tsol=int($tsol/2);
+
+				if($nation==1){
+					$cs1+=$tsol;
+				}elsif($nation==2){
+					$cs2+=$tsol;
+				}elsif($nation==3){
+					$cs3+=$tsol;
+				}elsif($nation==4){
+					$cs4+=$tsol;
+				}elsif($nation==5){
+					$cs5+=$tsol;
+				}
+
+				if($nation==1){
+					$cn1-=$N;
+					$cn1=0 if($cn1<1);
+				}elsif($nation==2){
+					$cn2-=$N;
+					$cn2=0 if($cn2<1);
+				}elsif($nation==3){
+					$cn3-=$N;
+					$cn3=0 if($cn3<1);
+				}elsif($nation==4){
+					$cn4-=$N;
+					$cn4=0 if($cn4<1);
+				}elsif($nation==5){
+					$cn5-=$N;
+					$cn5=0 if($cn5<1);
+				}
+
+				$log .="적군은 $tnm 의 팚배에 전의륌 상싀했습니닀! 장수륌 잃은 부대 따위는 아군의 상대가 아닙니닀.<br>적군을 추격하여 엄청난 타격을 입혔습니닀!<br>\n";
+
+				$log .="$cmp[$nation]로부터 êµ­ë ¥ $N을 빌앗았습니닀.<br>추가로 $E 겜험치와 $G GOLD의 볎상을 획득했닀!<br>\n";
+
+				$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 칚공, $tnm 와 음대음 결투 끝에 승늬하고 êµ­ë ¥ $N 을 빌앗는 데 성공한 것 같습니닀.";
+
+				&touitu;
+
+				$V =int(rand(6))+5;
+				$sol_lv-=$V;
+				$rank_exe+=int($V*2)+5;
+				$sol=0;
+				$tnm='';
+				$ck = $tm = $cmd = 0;
+				$nation=0;
+				$type='';
+
+				&hist_write;#국가 로귞
+
+			}elsif($hp<1){
+
+				$bst ='';
+				$bt =0;
+				$ck =0;
+				$hp =0;
+				$G=int(rand(10))+1;
+				$E=int(rand(5))+1;
+				$gold+=$G;
+				$exe+=$E;
+				$log .="당신은 적장 $tnm 에게 팚배하고 말았닀 <br>\n";
+				$log .="$G GOLD와 $E 겜험치륌 획득했닀<br>\n";
+				$log .="<p></p>\n";
+
+				$sol=int($sol/2);
+
+				if($camp==1){
+					$cs1+=int($sol);
+					$cn1+=$N;
+				}elsif($camp==2){
+					$cs2+=int($sol);
+					$cn2+=$N;
+				}elsif($camp==3){
+					$cs3+=int($sol);
+					$cn3+=$N;
+				}elsif($camp==4){
+					$cs4+=int($sol);
+					$cn4+=$N;
+				}elsif($camp==5){
+					$cs5+=int($sol);
+					$cn5+=$N;
+				}
+
+				if($nation==1){
+					$cs1+=$tsol;
+				}elsif($nation==2){
+					$cs2+=$tsol;
+				}elsif($nation==3){
+					$cs3+=$tsol;
+				}elsif($nation==4){
+					$cs4+=$tsol;
+				}elsif($nation==5){
+					$cs5+=$tsol;
+				}
+
+				$log .="음대음 결투에 팚배하여 지휘ꎀ을 잃은 당신의 부대는 적에게 막대한 플핎륌 입었습니닀 <br>\n";
+
+				$rank_exe-=15;
+				$log .="부대 전멞읎띌는 불명예슀러욎 팚배로 읞핎 당신에 대한 평판읎 크게 떚얎졌닀<br>\n";
+				if($rank_exe<1){
+					$rank--;
+					$rank=1 if($rank<1);
+					$next_rank=int(($rank*$rank)*3);
+					$v=$next_rank-10;
+					$rank_exe=$v;
+					$log .="음계꞉ 강등되얎 버렞닀 <br>\n";
+				}
+
+				$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 칚공, $tnm 와 음대음 결투륌 치렀윌나 팚배하여 부대는 팚죌한 것 같습니닀.";
+
+				$sol=0;
+				$tnm='';
+				$ck = $tm = $cmd = 0;
+				$nation=0;
+				$type='';
+
+				&hist_write;#국가 로귞
+
+			}
+
+		}elsif($tm<1){
+
+			if($cmd==10){
+
+				my $btp = $ag + int(rand($lv/2) +1);
+				my $bte = $tag+ int(rand($tlv/2)+1);
+
+				if($j<3){
+					$log .="여Ʞ까지 전투가 진행된 상태에서의 퇎각은 불가능합니닀.<br>\n";
+					$b_n+=1;
+				}elsif($btp<$bte){
+					$log .="적군에게 도죌 겜로가 막혀 더 읎상 퇎각할 수 없습니닀.<br>\n";
+					$b_n+=1;
+				}else{
+
+					$log .="아쉜지만 작전을 쀑지하고 퇎각합니닀.<br>\n";
+
+					if($camp==1){
+						$cs1+=int($sol);
+					}elsif($camp==2){
+						$cs2+=int($sol);
+					}elsif($camp==3){
+						$cs3+=int($sol);
+					}elsif($camp==4){
+						$cs4+=int($sol);
+					}elsif($camp==5){
+						$cs5+=int($sol);
+					}
+
+					if($nation==1){
+						$cs1+=$tsol;
+					}elsif($nation==2){
+						$cs2+=$tsol;
+					}elsif($nation==3){
+						$cs3+=$tsol;
+					}elsif($nation==4){
+						$cs4+=$tsol;
+					}elsif($nation==5){
+						$cs5+=$tsol;
+					}
+
+					$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 칚공, $tnm 방위 부대와 교전 후 부득읎하게 퇎각한 것 같습니닀.";
+
+					$sol_lv-=int(rand(40));
+					$rank_exe-=1;
+					$rank_exe = 0 if($rank_exe<1);
+
+					$tnm='';
+					$ck = $tm = $cmd = 0;
+					$nation=0;
+					$type='';
+
+					&hist_write;#국가 로귞
+
+				}
+			}elsif($cmd==1){
+				$l=int(rand(3));
+				if($l==0){
+					$x=int(($sol/100)+($lr*10))+$sol_lv;
+					$y=int(($tsol/100)+($tlr*10))+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (공격진형) VS $tnm (공격진형)<br>\n";
+					$log .="○자군 플핎 $y ●적군 플핎 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}elsif($l==1){
+					$x=int((($sol/100)+($lr*10))*2)+$sol_lv;
+					$y=int((($tsol/100)+($tlr*10))*0.5)+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (공격진형) VS $tnm (방얎진형)<br>\n";
+					$log .="○자군 플핎 $y ●적군 플핎 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}elsif($l==2){
+					$x=int((($sol/100)+($lr*10))*0.5)+$sol_lv;
+					$y=int((($tsol/100)+($tlr*10))*2)+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (공격진형) VS $tnm (돌격진형)<br>\n";
+					$log .="○자군 플핎 $y ●적군 플핎 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}
+			}elsif($cmd==2){
+				$l=int(rand(3));
+				if($l==0){
+					$x=int((($sol/100)+($lr*10))*0.5)+$sol_lv;
+					$y=int((($tsol/100)+($tlr*10))*2)+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (방얎진형) VS $tnm (공격진형)<br>\n";
+					$log .="○자군 플핎 $y ●적군 플핎 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}elsif($l==1){
+					$x=int(($sol/100)+($lr*10))+$sol_lv;
+					$y=int(($tsol/100)+($tlr*10))+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (방얎진형) VS $tnm (방얎진형)<br>\n";
+					$log .="○자군 플핎 $y ●적군 플핎 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}elsif($l==2){
+					$x=int((($sol/100)+($lr*10))*2)+$sol_lv;
+					$y=int((($tsol/100)+($tlr*10))*0.5)+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (방얎진형) VS $tnm (돌격진형)<br>\n";
+					$log .="○자군 플핎 $y ●적군 플핎 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}
+			}elsif($cmd==3){
+				$l=int(rand(3));
+				if($l==0){
+					$x=int((($sol/100)+($lr*10))*2)+$sol_lv;
+					$y=int((($tsol/100)+($tlr*10))*0.5)+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (돌격진형) VS $tnm (공격진형)<br>\n";
+					$log .="○자군 플핎 $y ●적군 플핎 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}elsif($l==1){
+					$x=int((($sol/100)+($lr*10))*0.5)+$sol_lv;
+					$y=int((($tsol/100)+($tlr*10))*2)+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (돌격진형) VS $tnm (방얎진형)<br>\n";
+					$log .="○자군 플핎 $y ●적군 플핎 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}elsif($l==2){
+					$x=int(($sol/100)+($lr*10))+$sol_lv;
+					$y=int(($tsol/100)+($tlr*10))+$tsol_lv;
+					$x=1 if($x<1);
+					$y=1 if($y<1);
+					$log .="$nm (돌격진형) VS $tnm (돌격진형)<br>\n";
+					$log .="○자군 플핎 $y ●적군 플핎 $x<br>\n";
+					$sol-=$y;
+					$tsol-=$x;
+				}
+			}
+
+			$log .="<hr size=1 noshade>\n";
+
+			if($sol<1&&$tsol<1){
+				$log .="양군 몚두 ꎎ멞적읞 타격을 ìž…ì–Ž 전투 지속읎 불가능하게 되었습니닀.<br>읎번 작전은 묎승부입니닀.<br>\n";
+
+				$log .="국력은 양 진영 몚두 변화 없음<br>\n";
+
+				$H =int(rand(21));
+
+				$E = int((20+$H)*$lv);
+				$E = int(rand(50))+170 if($E>200);
+				$G = 5000;
+				$exe+=$E;
+				$gold+=$G;
+				$rank_exe-=10;
+				$log .="부대 전멞읎띌는 불명예슀러욎 팚배로 읞핎 당신에 대한 평판읎 크게 떚얎졌닀<br>\n";
+				if($rank_exe<1){
+					$rank--;
+					$rank=1 if($rank<1);
+					$next_rank=int(($rank*$rank)*3);
+					$v=$next_rank-10;
+					$rank_exe=$v;
+					$log .="음계꞉ 강등되얎 버렞닀 <br>\n";
+				}
+
+				$log .="$E 의 겜험치와 $G 의 볎상을 얻었닀<br>\n";
+
+				$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 칚공, $tnm 방위 부대에 가로막혀 격전 끝에 양군 몚두 ꎎ멞한 것 같습니닀.";
+
+				$sol=0;
+				$sol_lv=0;
+				$tnm='';
+				$ck = $tm = $cmd = 0;
+				$nation=0;
+				$type='';
+
+				&hist_write;#국가 로귞
+
+			}elsif($tsol<1){
+				$log .="적 부대륌 격파했습니닀!<br>아군의 승늬입니닀!<br>\n";
+				$H =int(rand(51));
+				$E = int((100+$H)*$lv);
+				$E = int((rand(500))+1800) if($E>2000);
+				$G = 20000;
+				# 개조 전은 50+$H
+				$N = $H+150;
+				# 여Ʞ까지
+				$exe+=$E;
+				$gold+=$G;
+
+				if($camp==1){
+					$cs1+=int($sol);
+					$cn1+=$N;
+				}elsif($camp==2){
+					$cs2+=int($sol);
+					$cn2+=$N;
+				}elsif($camp==3){
+					$cs3+=int($sol);
+					$cn3+=$N;
+				}elsif($camp==4){
+					$cs4+=int($sol);
+					$cn4+=$N;
+				}elsif($camp==5){
+					$cs5+=int($sol);
+					$cn5+=$N;
+				}
+
+				if($nation==1){
+					$cn1-=$N;
+					$cn1=0 if($cn1<1);
+				}elsif($nation==2){
+					$cn2-=$N;
+					$cn2=0 if($cn2<1);
+				}elsif($nation==3){
+					$cn3-=$N;
+					$cn3=0 if($cn3<1);
+				}elsif($nation==4){
+					$cn4-=$N;
+					$cn4=0 if($cn4<1);
+				}elsif($nation==5){
+					$cn5-=$N;
+					$cn5=0 if($cn5<1);
+				}
+
+				$log .="$cmp[$nation]로부터 êµ­ë ¥ $N 을 빌앗았습니닀.<br>$E 겜험치와 $G GOLD의 볎상을 얻었닀!<br>\n";
+
+				$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 칚공, $tnm 방위 부대륌 격파하고 êµ­ë ¥ $N 을 빌앗는 데 성공한 것 같습니닀.";
+
+				&touitu;
+
+				$V =int(rand(6))+10;
+				$sol_lv-=$V;
+				$rank_exe+=$V;
+				$sol=0;
+				$tnm='';
+				$ck = $tm = $cmd = 0;
+				$nation=0;
+				$type='';
+
+				&hist_write;#국가 로귞
+
+			}elsif($sol<1){
+				$log .="아군은 팚배했습니닀  아쉜지만 철수합니닀.<br>\n";
+
+				$log .="국력은 양 진영 몚두 변화 없음<br>\n";
+
+				$H =int(rand(21));
+
+				$E = int((20+$H)*$lv);
+				$E = int(rand(50))+170 if($E>200);
+				$G = 5000;
+				$exe+=$E;
+				$gold+=$G;
+
+				$log .="$E 의 겜험치와 $G 의 볎상을 얻었닀<br>\n";
+
+				$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 칚공, $tnm 방위 부대 앞에 팹퇮한 것 같습니닀.";
+
+				if($nation==1){
+					$cs1+=$tsol;
+				}elsif($nation==2){
+					$cs2+=$tsol;
+				}elsif($nation==3){
+					$cs3+=$tsol;
+				}elsif($nation==4){
+					$cs4+=$tsol;
+				}elsif($nation==5){
+					$cs5+=$tsol;
+				}
+
+				$rank_exe-=10;
+				$log .="부대 전멞읎띌는 불명예슀러욎 팚배로 읞핎 당신에 대한 평판읎 떚얎졌닀<br>\n";
+				if($rank_exe<1){
+					$rank--;
+					$rank=1 if($rank<1);
+					$next_rank=int(($rank*$rank)*3);
+					$v=$next_rank-10;
+					$rank_exe=$v;
+					$log .="음계꞉ 강등되얎 버렞닀 <br>\n";
+				}
+
+				$sol=0;
+				$tnm='';
+				$ck = $tm = $cmd = 0;
+				$nation=0;
+				$type='';
+
+				&hist_write;#국가 로귞
+			}elsif($b_n<$b_v){
+				$log .="전투 한계 턎을 쎈곌하고 말았닀  더 읎상은 ì‹žìšž 수 없습니닀.<br>\n";
+
+				$log .="국력은 양 진영 몚두 변화 없음<br>\n";
+
+				$H =int(rand(21));
+
+				$E = int((20+$H)*$lv);
+				$E = int(rand(50))+170 if($E>200);
+				$G = 5000;
+				$exe+=$E;
+				$gold+=$G;
+
+				$log .="$E 의 겜험치와 $G 의 볎상을 얻었닀<br>\n";
+
+				$wr_mes ="$date $cmp[$camp] 의 $syogo 가 $cmp[$nation] 에 칚공, $tnm 방위 부대에 가로막혀 전투 한계륌 쎈곌한 것 같습니닀.";
+
+				$rank_exe-=5;
+				$log .="작전에 싀팚하여 당신에 대한 평판읎 떚얎졌닀.<br>\n";
+				if($rank_exe<1){
+					$rank--;
+					$rank=1 if($rank<1);
+					$next_rank=int(($rank*$rank)*3);
+					$v=$next_rank-10;
+					$rank_exe=$v;
+					$log .="음계꞉ 강등되얎 버렞닀 <br>\n";
+				}
+
+				$sol_lv-=int(rand(40));
+				$sol=0;
+				$tnm='';
+				$ck = $tm = $cmd = 0;
+				$nation=0;
+				$type='';
+
+				&hist_write;#국가 로귞
+			}
+
+			$b_v+=1 if($cmd>0);
+
+		}
+
+		$log2 .="<form action=$script method=$method name=ore_>\n";
+		$log2 .="<td align=center valign=middle>\n" if($mv_mode eq 'pc');
+		$log2 .="<input type=hidden name=id value=\"$id_p\">\n";
+		$log2 .="<input type=hidden name=pw value=\"$pw_p\">\n";
+		if($tsol<1||$sol<1){
+			$log2 .="<input type=hidden name=cmd value=-1>\n";
+		}elsif($tm==50){
+			$log2 .="<select name=cmd size=1><option value=10>ì‹«ë‹€</option><option value=20>수띜</option>\n";
+			$log2 .="</select>";
+		}elsif($tm==60){
+			$log2 .="<input type=hidden name=cmd value=-1>\n";
+		}elsif($tm==70){
+			&spell_sp;
+		}elsif($tm<1){
+			$log2 .="<select name=cmd size=1><option value=1>공격진형</option><option value=2>방얎진형</option><option value=3>돌격진형</option><option value=10>도망친닀</option>\n";
+			$log2 .="</select>";
+		}
+		$log2 .="<br>";# 테읎랔 틀얎짐 수정
+		$log2 .="<input type=submit $button1 value=\"NEXT\">$td_end</form>\n";# 테읎랔 추가 </tr></table>
+	}
+
+	if($cn1<1&&$ce1<1){
+
+		$wr_mes ="$date $cmp[1] 읎(가) $syogo 에 의핎 ꎎ멞적읞 타격을 ìž…ì–Ž 망국읎 되었습니닀.";
+
+		$ce1=1;
+
+		&hist_write;#국가 로귞
+
+	}elsif($cn2<1&&$ce2<1){
+
+		$wr_mes ="$date $cmp[2] 읎(가) $syogo 에 의핎 ꎎ멞적읞 타격을 ìž…ì–Ž 망국읎 되었습니닀.";
+
+		$ce2=1;
+
+		&hist_write;#국가 로귞
+
+	}elsif($cn3<1&&$ce3<1){
+
+		$wr_mes ="$date $cmp[3] 읎(가) $syogo 에 의핎 ꎎ멞적읞 타격을 ìž…ì–Ž 망국읎 되었습니닀.";
+
+		$ce3=1;
+
+		&hist_write;#국가 로귞
+
+	}elsif($cn4<1&&$ce4<1){
+
+		$wr_mes ="$date $cmp[4] 읎(가) $syogo 에 의핎 ꎎ멞적읞 타격을 ìž…ì–Ž 망국읎 되었습니닀.";
+
+		$ce4=1;
+
+		&hist_write;#국가 로귞
+
+	}elsif($cn5<1&&$ce5<1){
+
+		$wr_mes ="$date $cmp[5] 읎(가) $syogo 에 의핎 ꎎ멞적읞 타격을 ìž…ì–Ž 망국읎 되었습니닀.";
+
+		$ce5=1;
+
+		&hist_write;#국가 로귞
+
+	}elsif($cn1>1000&&$ce1>0){
+
+		$wr_mes ="$date $cmp[1] 읎(가) $syogo 의 활앜에 의핎 망국에서 부흥했습니닀.";
+
+		$ce1=0;
+
+		&hist_write;#국가 로귞
+
+	}elsif($cn2>1000&&$ce2>0){
+
+		$wr_mes ="$date $cmp[2] 읎(가) $syogo 의 활앜에 의핎 망국에서 부흥했습니닀.";
+
+		$ce2=0;
+
+		&hist_write;#국가 로귞
+
+	}elsif($cn3>1000&&$ce3>0){
+
+		$wr_mes ="$date $cmp[3] 읎(가) $syogo 의 활앜에 의핎 망국에서 부흥했습니닀.";
+
+		$ce3=0;
+
+		&hist_write;#국가 로귞
+
+	}elsif($cn4>1000&&$ce4>0){
+
+		$wr_mes ="$date $cmp[4] 읎(가) $syogo 의 활앜에 의핎 망국에서 부흥했습니닀.";
+
+		$ce4=0;
+
+		&hist_write;#국가 로귞
+
+	}elsif($cn5>1000&&$ce5>0){
+
+		$wr_mes ="$date $cmp[5] 읎(가) $syogo 의 활앜에 의핎 망국에서 부흥했습니닀.";
+
+		$ce5=0;
+
+		&hist_write;#국가 로귞
+	}
+
+	$layout_flag=1;
+	&write_data;
+	&hist_write if($touitu_flag);
+}
+
+#-------------------------------------------------------------------------------
+# 통음 처늬
+sub touitu{
+
+	&syogo;
+
+	if($camp==1){
+		if($cn1>=$data_reset){
+
+			$wr_mes ="$date $cmp[$camp] 읎(가) $syogo 등의 활앜에 의핎 대륙을 제팚했습니닀!!!";
+
+			$sogo=1;#팚자 Ʞ록
+			$hasya=$nm;#팚자 Ʞ록
+			$hcamp=$camp;
+			$touitu_flag=1;
+		}
+	}elsif($camp==2){
+		if($cn2>=$data_reset){
+
+			$wr_mes ="$date $cmp[$camp] 읎(가) $syogo 등의 활앜에 의핎 대륙을 제팚했습니닀!!!";
+
+			$sogo=1;#팚자 Ʞ록
+			$hasya=$nm;#팚자 Ʞ록
+			$hcamp=$camp;
+			$touitu_flag=1;
+		}
+	}elsif($camp==3){
+		if($cn3>=$data_reset){
+
+			$wr_mes ="$date $cmp[$camp] 읎(가) $syogo 등의 활앜에 의핎 대륙을 제팚했습니닀!!!";
+
+			$sogo=1;#팚자 Ʞ록
+			$hasya=$nm;#팚자 Ʞ록
+			$hcamp=$camp;
+			$touitu_flag=1;
+		}
+	}elsif($camp==4){
+		if($cn4>=$data_reset){
+
+			$wr_mes ="$date $cmp[$camp] 읎(가) $syogo 등의 활앜에 의핎 대륙을 제팚했습니닀!!!";
+
+			$sogo=1;#팚자 Ʞ록
+			$hasya=$nm;#팚자 Ʞ록
+			$hcamp=$camp;
+			$touitu_flag=1;
+		}
+	}elsif($camp==5){
+		if($cn5>=$data_reset){
+
+			$wr_mes ="$date $cmp[$camp] 읎(가) $syogo 등의 활앜에 의핎 대륙을 제팚했습니닀!!!";
+
+			$sogo=1;#팚자 Ʞ록
+			$hasya=$nm;#팚자 Ʞ록
+			$hcamp=$camp;
+			$touitu_flag=1;
+		}
+	}
+}
+
+1;
diff --git a/index.cgi b/index.cgi
old mode 100644
new mode 100755
index 0874043..06a02eb
--- a/index.cgi
+++ b/index.cgi
@@ -1,312 +1,310 @@
-#!/usr/local/bin/perl
-# ƒT[ƒo[‚̊‹«‚ɍ‡‚킹‚ĕύX‚µ‚ĉº‚³‚¢B
-require './ore_config.cgi';				# ore_config.cgi‚̃pƒX
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://www17.big.or.jp/~obochan/chat/ ]	#
-#-----------------------------------------------------------#
-# ƒgƒbƒvƒy[ƒW Version 1.0
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#===============================================================================
-# Ý’荀–Ú
-$help		= "./html/Help.html";		# Žæ‚舵‚¢à–Ÿ‘[PC]
-$help_i		= "./html/Help_i.html";		# Žæ‚舵‚¢à–Ÿ‘[MV]
-
-#===============================================================================
-# ˆÈ‰ºˆ— Šî–{“I‚É‚±‚êˆÈ‰º‚Í‚¢‚¶‚ç‚È‚¢‚æ‚€‚ɁB
-&get_time;			# “úŽžŽæ“Ÿ
-&axs_check;			# ƒAƒNƒZƒXƒ`ƒFƒbƒN
-&read_data_index;	# ƒƒOƒf[ƒ^“ǂݍž‚Ý
-
-print "Content-type: text/html; charset=shift_jis\n\n" ;
-# ƒƒjƒ…[•\ŽŠ
-($mv_mode eq 'mv') ? &html_top_mv : &html_top_pc ;
-# íœEˆÚ“®E•ÏX•s‰Â
-&copyright;
-
-exit;
-
-#-------------------------------------------------------------------------------
-# html¶¬(PC)
-sub html_top_pc{
-		print <<"EOM";
-
-<html>
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
-<title>$titleh</title>
-<style type="text/css">
-<!--
-.button1{
-	font-family: "‚l‚r ‚oƒSƒVƒbƒN", "Osaka"; font-size: 12px; font-weight: 400; color: #bbbbcc;
-	border: 2px #666699 ridge; cursor: hand; background-color: #222244;
-	width:100px;
-}
-body,td {  font-size: 10px; color: #aaaab9; background-color: #000000; cursor: crosshair}
-.bar	{
-	scrollbar-face-color: #333333;
-	scrollbar-highlight-color: #333333;
-	scrollbar-shadow-color: #000000;
-	scrollbar-arrow-color: #ffffff;
-	scrollbar-base-color: #000000;
-	scrollbar-3d-light-color: #ffffff;
-	scrollbar-dark-shadow-color: #000000
-}
--->
-</style>
-</head>
-
-<body bgcolor="#000000" text="#aaaaaa" link="#b5a7cF" vlink="#b5a7cF" alink="#b5a7cF" class="bar">
-<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" align="center">
-<tr>
-<td align="center" valign="middle">
-
-<table border="0" cellspacing="0" cellpadding="0" width="200">
-<tr>
-<td align="center" valign="top"><img src="$imgs/title_text.png" width="166" height="56"></td>
-<td rowspan="2"><img src="$imgs/fairy2_la.jpg" width="110" height="160"></td>
-</tr>
-<tr>
-<td align="center" valign="top"><img src="$imgs/title_game.png" width="220" height="52"></td>
-</tr>
-</table>
-
-<br><br><br><br><br><br><br><br><br><br>
-
-<table border="0" cellspacing="0" cellpadding="0">
-<tr>
-<form method="$method" action="$script" name="ore_">
-<td align="left" valign="top">
-<tt>
-<span style="font-size:12px">—I‹v‚Ì‘å’n‚Ö</span><br>
-EOM
-
-	if($now_nm_cnt>=$play_limit){
-		print qq|<br><span style="color:#dddd00;font-size:12px">Œ»ÝƒƒOƒCƒ“‹K§’†</span><br><br>|;
-}
-	else{
-		print <<"EOM";
-ƒ†[ƒU[ID:<input type="text" name="id" value="" class="button1" style="width:95px">
-<br>
-ƒpƒXƒ[ƒh:<input type="password" name="pw" value="" class="button1" style="width:60px" maxlength="8">
-<input type="submit" value="IN" class="button1" style="width:30px">
-<input type="hidden" name="mode" value="1">
-EOM
-}
-
-	print <<"EOM";
-</tt>
-</td>
-</form>
-<td rowspan=4>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
-<td rowspan=2 align="left" valign="top" nowrap style="font-size:12px;">
-&gt;&gt; ƒvƒŒƒC’†‚ÌŽQ‰ÁŽÒ [ $now_nm_cnt –Œ]
-<hr size=1 style="color:bbbbcc">
-<div style="height:140px; overflow-y:auto; padding:2; background-color:#292929" class="bar">
-$now_nm
-</div>
-<td>
-
-</tr>
-<tr>
-<td align="left" valign="top">
-<tt>
-<br>
-<br>
-<span style="font-size:12px"><a href="$ore_reg">V‹K“o˜^</a></span><br>
-“o˜^‚·‚é‘O‚É•K‚ž«‚ð“Ç‚ñ‚ʼnº‚³‚¢B
-</tt>
-</td>
-</tr>
-<tr>
-<td align="left" valign="top">
-<tt>
-<br>
-<br>
-<span style="font-size:12px"><a href="$help">Žæ‚舵‚¢à–Ÿ‘</a></span><br>
-“Ç‚Ü‚È‚¢‚ƃƒP‚í‚©‚è‚Ü‚¹‚ñ‚æH
-</tt>
-</td>
-<td align="left">
-<tt>
-<br>
-<br>
-<span style="font-size:12px"><a href="$hist?mode=guest">‰ß‹Ž‚̉hŒõ</a></span><br>
-—I‹v‚Ì‘å’n‚Ì—ðŽj‚ðU‚è•Ô‚é
-</tt>
-</td>
-</tr>
-<tr>
-<td align="left" valign="top">
-<tt>
-<br>
-<br>
-<span style="font-size:12px"><a href="$home">–{ŠÙ‚Ö–ß‚é</a></span><br>
-</tt>
-</td>
-<td align="left">
-<tt>
-<br>
-<br>
-<span style="font-size:12px"><a href="$hist_hasya">ß‚Æ”±++‚̐Δè</a></span><br>
-—I‹v‚Ì‘å’n‚Å”eŽÒ‚Æ‚È‚Á‚œl‚Ì–Œ‘O
-</tt>
-</td>
-</tr>
-<tt>
-<td align="left" valign="top" colspan="3">
-<tt>
-<br>
-<br>
-<span style="font-size:12px"><br>
-@@&gt;&gt; Œ»Ý“o˜^l” [ $now_sanka –Œ]@Å‘å“o˜^l” [ $sanka –Œ]<br>
-@@@ íœ•ú’uŠúŠÔ [ $del_limit “ú]@ƒvƒŒƒC‹K§ŽžŠÔ‘Ñ [ $safe_time ]
-</span>
-<br><br>
-<span style="font-size:12px"><br>
-@@Œg‘Ñ(i-mode,J-Sky)‚ÉŠ®‘S‘Ήž,ezweb‘ΉžBPC—v‚ç‚ž‚Å‚·B<br>
-@@Œg‘Ñ‚©‚çPC‚Æ“¯‚¶URL‚ɃAƒNƒZƒX‚·‚é‚Ÿ‚¯‚Å‚·B
-</span>
-
-</tt>
-</td>
-</tr>
-</table>
-
-</td>
-</tr>
-</table>
-
-EOM
-}
-
-#-------------------------------------------------------------------------------
-# html¶¬(ÓÊÞ²Ù)
-sub html_top_mv{
-		print <<"EOM";
-
-<html>
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
-<title>$titleh</title>
-</head>
-
-<body bgcolor="#000000" text="#aaaaaa" link="#c597ff" vlink="#c597ff" alink="#c597ff">
-$title_i
-<hr color="white">
-@@@ŒN‚ª–]‚Þ‰i‰“@‚»‚ê‚Í—I‹v‚Ì‘å’n‚É
-<hr color="white">
-<form method="$method" action="$script" name="ore_">
-‘±‚«‚©‚ç<br>
-EOM
-
-	if($now_nm_cnt>=$play_limit){
-		print qq|Œ»Ý۞޲݋K§’†|;
-}
-	else{
-		print <<"EOM";
-I D:<input type="text" name="id" value="" size="8"><br>
-ÊߜܰÄÞ:<input type="text" name="pw" value="" size="2" maxlength="8">
-<input type="hidden" name="mode" value="1">
-<input type="submit" value="IN">
-EOM
-}
-	print <<"EOM";
-</form>
-<hr color="white">
-<a href="$ore_reg" ACCESKEY="1">1.V‹K“o˜^</a><br>“o˜^‚·‚é‘O‚É•K‚ž«‚ð“Ç‚ñ‚ʼnº‚³‚¢<hr color="white">
-<a href="$help_i" ACCESKEY="2">2.à –Ÿ ‘</a><br>“Ç‚Ü‚È‚¢‚Æܹ‚í‚©‚è‚Ü‚¹‚ñ‚æ?<hr color="white">
-<a href="$hist?mode=guest" ACCESKEY="3">3.‰ß‹Ž‚̉hŒõ</a><br>—I‹v‚Ì‘å’n‚Ì—ðŽj‚ðU‚è•Ô‚é<hr color="white">
-<a href="$hist_hasya" ACCESKEY="4">4.ß‚Æ”±++Î”è</a><br>—I‹v‚Ì‘å’n‚Å”eŽÒ‚Æ‚È‚Á‚œl‚Ì–Œ‘O<hr color="white">
-<a href="$home_i" ACCESKEY="9">9.–{ŠÙ‚Ö–ß‚é</a><hr color="white">
-ÌßÚ²’†‚Ì·¬× $now_nm_cnt–Œ<br>
-$now_nm
-<hr color="white">
-Œ»Ý“o˜^l”[$now_sanka–Œ]<br>
-Å‘å“o˜^l”[$sanka –Œ]<br>
-íœ•ú’uŠúŠÔ[$del_limit“ú]<br>
-ÌßÚ²‹K§ŽžŠÔ‘Ñ[$safe_time]<br>
-<hr color="white">
-<br>
-
-EOM
-}
-
-#-------------------------------------------------------------------------------
-# ƒf[ƒ^“ǂݍž‚Ý
-# ŽQ‰ÁŽÒƒf[ƒ^ˆêŠ‡“ǂݍž‚Ý
-sub read_data_index{
-
-	local @tdat;
-	# ŽQ‰ÁŽÒƒf[ƒ^ƒtƒ@ƒCƒ‹ˆê——Žæ“Ÿ/ˆêŠ‡“ǂݍž‚Ý
-	&usrdata_read;
-	&usrdata_open;
-
-	$now_sanka=$#tdat+1;
-	$now_nm_cnt=0;
-	foreach(0 .. $#tdat){
-		%DAT = '';
-		my @prats = split(/,/,$tdat[$_]);
-		foreach $prats (@prats){
-			my($key,$v) = split(/;/,$prats);
-			$DAT{$key} = $v;
-		}
-
-		# Œ»Ý‚̃vƒŒƒCƒ„[’Šo
-		if($player_now>=$time-$DAT{'la'}){
-			if($mv_mode eq 'pc'){
-				$now_nm .= ($DAT{'sogo'}) ? qq|<div style="color:$color[$DAT{'camp'}]">$DAT{'nm'} [$sogo_p[$DAT{'sogo'}]] [$cmp[$DAT{'camp'}]]</div>| : qq|<div style="color:$color[$DAT{'camp'}]">$DAT{'nm'} [$cmp[$DAT{'camp'}]]</div>| ;
-			}else{
-				$now_nm .= ($DAT{'sogo'}) ? "$DAT{'nm'} [$sogo_p[$DAT{'sogo'}]]/" : "$DAT{'nm'}/" ;
-			}
-			$now_nm_cnt++;
-		}
-	}
-
-	foreach (0 .. $#safetime){
-		$safe_time .= ($safetime[$_]<0) ? "--" : "$safetime[$_],";
-	}
-
-	# Ž©“®ƒoƒbƒNƒAƒbƒv
-	&auto_backup if($backdata);
-
-	return ($now_nm,$now_sanka,$now_nm_cnt,$safe_time);
-}
-
-#-------------------------------------------------------------------------------
-# Ž©“®ƒoƒbƒvƒAƒbƒv
-sub auto_backup{
-
-	my $backup_flag1 = "backup_flag1";
-	my $backup_flag2 = "backup_flag2";
-
-	# ƒtƒ‰ƒOÁŽž‚͍쐬
-	if(!-e "$backdata$backup_flag1" && !-e "$backdata$backup_flag2"){
-		open (OUT,">$backdata$backup_flag1");
-		print OUT "‚±‚̃tƒ@ƒCƒ‹‚͍폜‹y‚уŠƒl[ƒ€‚µ‚È‚¢‚Å‚­‚Ÿ‚³‚¢B";
-		close(OUT)		or die "Can't close   : $!";
-		chmod($chmod,"$backdata$backup_flag1");
-	}
-
-	# 0Žž‚ɃoƒbƒNƒAƒbƒv
-	if(!$hour){
-		if(-e "$backdata$backup_flag1"){
-			open (OUT,">$backdata$week[$wday]\.cgi");
-			print OUT @tdat;
-			close(OUT)		or die "Can't close   : $!";
-			chmod($chmod,"$backdata$week[$wday]\.cgi");
-
-			rename("$backdata$backup_flag1","$backdata$backup_flag2");
-		}
-	}else{
-			rename("$backdata$backup_flag2","$backdata$backup_flag1");
-	}
-}
-
-
+#!/usr/bin/perl
+# サヌバヌの環境に合わせお倉曎しお䞋さい。
+require './ore_config.cgi';				# ore_config.cgi의 팚슀
+#-----------------------------------------------------------#
+#  眪ず眰++ 二埋背反										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://www17.big.or.jp/~obochan/chat/ ]	#
+#-----------------------------------------------------------#
+# トップペヌゞ Version 1.0
+#--- [泚意事項] --------------------------------------------#
+# 1.このスクリプトは以䞋の利甚芏皋に埓っお配垃しおいたす。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#===============================================================================
+# 蚭定項目
+$help		= "./html/Help.html";		# 사용섀명서[PC]
+$help_i		= "./html/Help_i.html";		# 사용섀명서[MV]
+
+#===============================================================================
+# 以䞋凊理 基本的にこれ以䞋はいじらないように。
+&get_time;			# 日時取埗
+&axs_check;			# アクセスチェック
+&read_data_index;	# ログデヌタ読み蟌み
+
+print "Content-type: text/html; charset=UTF-8\n\n" ;
+# メニュヌ衚瀺
+($mv_mode eq 'mv') ? &html_top_mv : &html_top_pc ;
+# 削陀・移動・倉曎䞍可
+&copyright;
+
+exit;
+
+#-------------------------------------------------------------------------------
+# html生成(PC)
+sub html_top_pc{
+		print <<"EOM";
+
+<html>
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+<title>$titleh</title>
+<style type="text/css">
+<!--
+.button1{
+	font-family: " ゎシック", "Osaka"; font-size: 12px; font-weight: 400; color: #bbbbcc;
+	border: 2px #666699 ridge; cursor: hand; background-color: #222244;
+	width:100px;
+}
+body,td {  font-size: 10px; color: #aaaab9; background-color: #000000; cursor: crosshair}
+.bar	{
+	scrollbar-face-color: #333333;
+	scrollbar-highlight-color: #333333;
+	scrollbar-shadow-color: #000000;
+	scrollbar-arrow-color: #ffffff;
+	scrollbar-base-color: #000000;
+	scrollbar-3d-light-color: #ffffff;
+	scrollbar-dark-shadow-color: #000000
+}
+-->
+</style>
+</head>
+
+<body bgcolor="#000000" text="#aaaaaa" link="#b5a7cF" vlink="#b5a7cF" alink="#b5a7cF" class="bar">
+<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" align="center">
+<tr>
+<td align="center" valign="middle">
+
+<table border="0" cellspacing="0" cellpadding="0" width="200">
+<tr>
+<td align="center" valign="top"><img src="$imgs/title_text.png" width="166" height="56"></td>
+<td rowspan="2"><img src="$imgs/fairy2_la.jpg" width="110" height="160"></td>
+</tr>
+<tr>
+<td align="center" valign="top"><img src="$imgs/title_game.png" width="220" height="52"></td>
+</tr>
+</table>
+
+<br><br><br><br><br><br><br><br><br><br>
+
+<table border="0" cellspacing="0" cellpadding="0">
+<tr>
+<form method="$method" action="$script" name="ore_">
+<td align="left" valign="top">
+<tt>
+<span style="font-size:12px">유구한 대지로</span><br>
+EOM
+
+	if($now_nm_cnt>=$play_limit){
+		print qq|<br><span style="color:#dddd00;font-size:12px">현재 로귞읞 제한 쀑</span><br><br>|;
+}
+	else{
+		print <<"EOM";
+유저 ID:<input type="text" name="id" value="" class="button1" style="width:95px">
+<br>
+비밀번혞:<input type="password" name="pw" value="" class="button1" style="width:60px" maxlength="8">
+<input type="submit" value="IN" class="button1" style="width:30px">
+<input type="hidden" name="mode" value="1">
+EOM
+}
+
+	print <<"EOM";
+</tt>
+</td>
+</form>
+<td rowspan=4>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
+<td rowspan=2 align="left" valign="top" nowrap style="font-size:12px;">
+&gt;&gt; 플레읎 쀑읞 찞가자 [ $now_nm_cnt 명]
+<hr size=1 style="color:bbbbcc">
+<div style="height:140px; overflow-y:auto; padding:2; background-color:#292929" class="bar">
+$now_nm
+</div>
+<td>
+
+</tr>
+<tr>
+<td align="left" valign="top">
+<tt>
+<br>
+<br>
+<span style="font-size:12px"><a href="$ore_reg">신규 등록</a></span><br>
+등록하Ʞ 전에 반드시 ↓ 낎용을 읜얎죌섞요.
+</tt>
+</td>
+</tr>
+<tr>
+<td align="left" valign="top">
+<tt>
+<br>
+<br>
+<span style="font-size:12px"><a href="$help">사용 섀명서</a></span><br>
+안 읜윌멎 도통 읎핎하Ʞ 힘듀걞요?
+</tt>
+</td>
+<td align="left">
+<tt>
+<br>
+<br>
+<span style="font-size:12px"><a href="$hist?mode=guest">곌거의 영ꎑ</a></span><br>
+유구한 대지의 역사륌 돌아볎닀
+</tt>
+</td>
+</tr>
+<tr>
+<td align="left" valign="top">
+<tt>
+<br>
+<br>
+<span style="font-size:12px"><a href="$home">볞ꎀ윌로 돌아가Ʞ</a></span><br>
+</tt>
+</td>
+<td align="left">
+<tt>
+<br>
+<br>
+<span style="font-size:12px"><a href="$hist_hasya">죄와 벌++의 석비</a></span><br>
+유구한 대지에서 팚권을 쥔 자의 읎늄
+</tt>
+</td>
+</tr>
+<tt>
+<td align="left" valign="top" colspan="3">
+<tt>
+<br>
+<br>
+<span style="font-size:12px"><br>
+　　&gt;&gt; 현재 등록 읞원 [ $now_sanka 명]　최대 등록 읞원 [ $sanka 명]<br>
+　　　 삭제 방치 êž°ê°„ [ $del_limit 음]　플레읎 제한 시간대 [ $safe_time ]
+</span>
+<br><br>
+<span style="font-size:12px"><br>
+　　몚바음(i-mode, J-Sky) 완벜 대응, ezweb 대응. PC가 필요 없습니닀.<br>
+　　몚바음에서 PC와 동음한 URL로 접속하시멎 됩니닀.
+</span>
+
+</tt>
+</td>
+</tr>
+</table>
+
+</td>
+</tr>
+</table>
+
+EOM
+}
+
+#-------------------------------------------------------------------------------
+# html生成()
+sub html_top_mv{
+		print <<"EOM";
+
+<html>
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+<title>$titleh</title>
+</head>
+
+<body bgcolor="#000000" text="#aaaaaa" link="#c597ff" vlink="#c597ff" alink="#c597ff">
+$title_i
+<hr color="white">
+　　　귞대가 바띌는 영원 귞것은 유구한 대지에
+<hr color="white">
+<form method="$method" action="$script" name="ore_">
+읎얎하Ʞ<br>
+EOM
+
+	if($now_nm_cnt>=$play_limit){
+		print qq|현재 로귞읞 제한 쀑|;
+}
+	else{
+		print <<"EOM";
+I D:<input type="text" name="id" value="" size="8"><br>
+비밀번혞:<input type="text" name="pw" value="" size="2" maxlength="8">
+<input type="hidden" name="mode" value="1">
+<input type="submit" value="IN">
+EOM
+}
+	print <<"EOM";
+</form>
+<hr color="white">
+<a href="$ore_reg" ACCESKEY="1">1.신규 등록</a><br>등록하Ʞ 전에 반드시 ↓ 낎용을 읜얎죌섞요<hr color="white">
+<a href="$help_i" ACCESKEY="2">2.ì„€ 명 서</a><br>안 읜윌멎 도통 읎핎하Ʞ 힘듀걞요?<hr color="white">
+<a href="$hist?mode=guest" ACCESKEY="3">3.곌거의 영ꎑ</a><br>유구한 대지의 역사륌 돌아볎닀<hr color="white">
+<a href="$hist_hasya" ACCESKEY="4">4.죄와 벌++ 석비</a><br>유구한 대지에서 팚권을 쥔 자의 읎늄<hr color="white">
+<a href="$home_i" ACCESKEY="9">9.볞ꎀ윌로 돌아가Ʞ</a><hr color="white">
+플레읎 쀑읞 캐늭터 $now_nm_cnt명<br>
+$now_nm
+<hr color="white">
+현재 등록 읞원[$now_sanka명]<br>
+최대 등록 읞원[$sanka 명]<br>
+삭제 방치 êž°ê°„[$del_limit음]<br>
+플레읎 제한 시간대[$safe_time]<br>
+<hr color="white">
+<br>
+
+EOM
+}
+
+#-------------------------------------------------------------------------------
+# デヌタ読み蟌み
+# 参加者デヌタ䞀括読み蟌み
+sub read_data_index{
+
+	local @tdat;
+	# 参加者デヌタファむル䞀芧取埗/䞀括読み蟌み
+	&usrdata_read;
+	&usrdata_open;
+
+	$now_sanka=$#tdat+1;
+	$now_nm_cnt=0;
+	foreach(0 .. $#tdat){
+		%DAT = '';
+		my @prats = split(/,/,$tdat[$_]);
+		foreach $prats (@prats){
+			my($key,$v) = split(/;/,$prats);
+			$DAT{$key} = $v;
+		}
+
+		# 珟圚のプレむダヌ抜出
+		if($player_now>=$time-$DAT{'la'}){
+			if($mv_mode eq 'pc'){
+				$now_nm .= ($DAT{'sogo'}) ? qq|<div style="color:$color[$DAT{'camp'}]">$DAT{'nm'} [$sogo_p[$DAT{'sogo'}]] [$cmp[$DAT{'camp'}]]</div>| : qq|<div style="color:$color[$DAT{'camp'}]">$DAT{'nm'} [$cmp[$DAT{'camp'}]]</div>| ;
+			}else{
+				$now_nm .= ($DAT{'sogo'}) ? "$DAT{'nm'} [$sogo_p[$DAT{'sogo'}]]/" : "$DAT{'nm'}/" ;
+			}
+			$now_nm_cnt++;
+		}
+	}
+
+	foreach (0 .. $#safetime){
+		$safe_time .= ($safetime[$_]<0) ? "--" : "$safetime[$_],";
+	}
+
+	# 自動バックアップ
+	&auto_backup if($backdata);
+
+	return ($now_nm,$now_sanka,$now_nm_cnt,$safe_time);
+}
+
+#-------------------------------------------------------------------------------
+# 自動バップアップ
+sub auto_backup{
+
+	my $backup_flag1 = "backup_flag1";
+	my $backup_flag2 = "backup_flag2";
+
+	# フラグ消倱は䜜成
+	if(!-e "$backdata$backup_flag1" && !-e "$backdata$backup_flag2"){
+		open (OUT,">$backdata$backup_flag1");
+		print OUT "읎 파음은 삭제하거나 읎늄을 변겜하지 마십시였.";
+		close(OUT)		or die "Can't close   : $!";
+		chmod($chmod,"$backdata$backup_flag1");
+	}
+
+	# 0時にバックアップ
+	if(!$hour){
+		if(-e "$backdata$backup_flag1"){
+			open (OUT,">$backdata$week[$wday]\.cgi");
+			print OUT @tdat;
+			close(OUT)		or die "Can't close   : $!";
+			chmod($chmod,"$backdata$week[$wday]\.cgi");
+
+			rename("$backdata$backup_flag1","$backdata$backup_flag2");
+		}
+	}else{
+			rename("$backdata$backup_flag2","$backdata$backup_flag1");
+	}
+}
diff --git a/jcode.pl b/jcode.pl
index 04dad39..d8ffc88 100644
--- a/jcode.pl
+++ b/jcode.pl
@@ -681,7 +681,7 @@ sub __z2h_jis {
 
 sub z2h_euc {
     local(*s, $n) = @_;
-    &init_z2h_euc unless defined %z2h_euc;
+    &init_z2h_euc unless %z2h_euc;
     $s =~ s/($re_euc_c|$re_euc_kana)/
 	$z2h_euc{$1} ? ($n++, $z2h_euc{$1}) : $1
     /geo;
@@ -690,7 +690,7 @@ sub z2h_euc {
 
 sub z2h_sjis {
     local(*s, $n) = @_;
-    &init_z2h_sjis unless defined %z2h_sjis;
+    &init_z2h_sjis unless %z2h_sjis;
     $s =~ s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis{$1}) : $1/geo;
     $n;
 }
diff --git a/logdata/camp_log_1.cgi b/logdata/camp_log_1.cgi
old mode 100644
new mode 100755
diff --git a/logdata/camp_log_2.cgi b/logdata/camp_log_2.cgi
old mode 100644
new mode 100755
diff --git a/logdata/camp_log_3.cgi b/logdata/camp_log_3.cgi
old mode 100644
new mode 100755
diff --git a/logdata/camp_log_4.cgi b/logdata/camp_log_4.cgi
old mode 100644
new mode 100755
diff --git a/logdata/camp_log_5.cgi b/logdata/camp_log_5.cgi
old mode 100644
new mode 100755
diff --git a/logdata/camp_mem_1.cgi b/logdata/camp_mem_1.cgi
old mode 100644
new mode 100755
diff --git a/logdata/camp_mem_2.cgi b/logdata/camp_mem_2.cgi
old mode 100644
new mode 100755
diff --git a/logdata/camp_mem_3.cgi b/logdata/camp_mem_3.cgi
old mode 100644
new mode 100755
diff --git a/logdata/camp_mem_4.cgi b/logdata/camp_mem_4.cgi
old mode 100644
new mode 100755
diff --git a/logdata/camp_mem_5.cgi b/logdata/camp_mem_5.cgi
old mode 100644
new mode 100755
diff --git a/logdata/cdata.cgi b/logdata/cdata.cgi
old mode 100644
new mode 100755
index 1fa645f..76b9732
--- a/logdata/cdata.cgi
+++ b/logdata/cdata.cgi
@@ -1 +1 @@
-cn1;4500,cg1;340,cf1;7500,cs1;2650,ce1;0,c1;0,c1a;2,cn2;4800,cg2;720,cf2;4700,cs2;4600,ce2;0,c2;0,c2a;3,cn3;2900,cg3;1060,cf3;6500,cs3;4650,ce3;0,c3;0,c3a;3,cn4;4600,cg4;1060,cf4;5000,cs4;4950,ce4;0,c4;0,c4a;3,cn5;6400,cg5;1120,cf5;6800,cs5;4050,ce5;0,c5;0,c5a;3,set;1019738536,all_mem;0,goal_no;1,hasya;,hcamp;,ad;,ht;,date;,wr_mes;ß‚Æ”±++ “ñ—¥”w”œ v02-04-16,
+cn1;5200,cg1;1020,cf1;7500,cs1;3700,ce1;0,c1;0,c1a;3,cn2;5900,cg2;1120,cf2;4700,cs2;3600,ce2;0,c2;0,c2a;3,cn3;4200,cg3;300,cf3;3900,cs3;2850,ce3;0,c3;0,c3a;3,cn4;3700,cg4;820,cf4;8400,cs4;4950,ce4;0,c4;0,c4a;3,cn5;4000,cg5;900,cf5;2500,cs5;2850,ce5;0,c5;0,c5a;3,set;1783861306,all_mem;0,goal_no;2,hasya;,hcamp;,ad;127.0.0.1,ht;localhost,date;6/22 22:19:32,wr_mes;ꞎ 섞월읎 흘렀윌나,
diff --git a/logdata/hist_log.cgi b/logdata/hist_log.cgi
old mode 100644
new mode 100755
index e69de29..8f7b20f
--- a/logdata/hist_log.cgi
+++ b/logdata/hist_log.cgi
@@ -0,0 +1 @@
+cn1;5200,cg1;1020,cf1;7500,cs1;3700,ce1;0,c1;0,c1a;3,cn2;5900,cg2;1120,cf2;4700,cs2;3600,ce2;0,c2;0,c2a;3,cn3;4200,cg3;300,cf3;3900,cs3;2850,ce3;0,c3;0,c3a;3,cn4;3700,cg4;820,cf4;8400,cs4;4950,ce4;0,c4;0,c4a;3,cn5;4000,cg5;900,cf5;2500,cs5;2850,ce5;0,c5;0,c5a;3,set;1783861306,all_mem;0,goal_no;2,hasya;,hcamp;,ad;127.0.0.1,ht;localhost,date;6/22 22:01:46,wr_mes;ꞎ 섞월읎 흘렀윌나, 전란의 시대륌 제팚할 팚자는 끝낮 나타나지 않았습니닀. 각 국가의 데읎터가 늬셋되었습니닀,
diff --git a/logdata/park_log.cgi b/logdata/park_log.cgi
old mode 100644
new mode 100755
diff --git a/logdata/park_mem.cgi b/logdata/park_mem.cgi
old mode 100644
new mode 100755
diff --git a/logdata/public_log.cgi b/logdata/public_log.cgi
old mode 100644
new mode 100755
diff --git a/ore_.cgi b/ore_.cgi
old mode 100644
new mode 100755
index 6a6ab0f..1510cf0
--- a/ore_.cgi
+++ b/ore_.cgi
@@ -1,77 +1,72 @@
-#!/usr/local/bin/perl
-# ƒT[ƒo[‚̊‹«‚ɍ‡‚킹‚ĕύX‚µ‚ĉº‚³‚¢B
-require './ore_config.cgi';				# ore_config.cgi‚̃pƒX
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  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.1
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-# ˆÈ‰ºˆ— Šî–{“I‚É‚±‚êˆÈ‰º‚Í‚¢‚¶‚ç‚È‚¢‚æ‚€‚ɁB
-
-&error("Œ»Ýƒƒ“ƒeƒiƒ“ƒX’†B‚µ‚΂炭‚š‘Ò‚¿‰º‚³‚¢(–ñ $ertm •ªŠÔ)<br>“à–óF$erni") if $er;
-&get_time;	# “úŽžŽæ“Ÿ
-&safetime;	# ƒvƒŒƒC‹K§
-&decode;	# ƒtƒH[ƒ€ƒfƒR[ƒh
-&axs_check;	# ƒAƒNƒZƒXƒ`ƒFƒbƒN
-# ƒtƒ@ƒCƒ‹ƒƒbƒN(renameŽ®)
-$lock		= &lock if $lock_check;
-&read_data;	# ƒƒOƒf[ƒ^“ǂݍž‚Ý
-
-# ‰‰ñ‚Ì‚ÝAG–³‚¢l‚ÉŠ„‚è“–‚Ä
-$ag=int($lv*1.08) if(!$ag);
-
-# S‘©ŽžŠÔ
-if($pr>$spend_time){ require './inc/ore_sub-main.cgi';	&wt_st; }
-
-# ‰Šúƒƒjƒ…[
-elsif(!$type && $cmd==1 && $act_cnt<$act_cnt_limit)	{ require "./inc/ore_sub-training_$mv_mode\.cgi";	&training; }
-elsif(!$type && $cmd==2)							{ require './inc/ore_sub-politics.cgi';	&politics; }
-elsif(!$type && $cmd==3 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-war.cgi';		&war; }
-elsif(!$type && $cmd==4 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-ability.cgi';	&ability; }
-elsif(!$type && $cmd==5 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-changes.cgi';	&changes; }
-elsif(!$type && $cmd==6)							{ require "./inc/ore_sub-infomation_$mv_mode\.cgi";&infomation_com; }
-elsif(!$type && $cmd==7 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-subdue.cgi';	&subdue; }
-elsif(!$type && $cmd==8 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-mission.cgi';	&mission; }
-elsif(!$type && $cmd==20)							{ require './inc/ore_sub-shop.cgi';		&shop; }
-
-# ‘±sƒƒjƒ…[
-elsif($type eq 'Cs')		{ require "./inc/ore_sub-training_$mv_mode\.cgi";	&training_exe; }
-elsif($type eq 'Cs’†')	{ require './inc/ore_sub-battle.cgi';	&bt_st; }
-elsif($type eq 'í‘ˆ')		{ require './inc/ore_sub-war.cgi';		&war_exe; }
-elsif($type eq 'í‘ˆ’†')	{ require './inc/ore_sub-wartime.cgi';	&wr_st; }
-elsif($type eq '“¢”°')		{ require './inc/ore_sub-subdue.cgi';	&subdue_exe; }
-elsif($type eq '“¢”°’†')	{ require './inc/ore_sub-subduetime.cgi';&ws_st; }
-elsif($type eq 'ŒRŽ–')		{ require './inc/ore_sub-mission.cgi';	&mission_exe; }
-elsif($type eq '“à­')		{ require './inc/ore_sub-politics.cgi';	&politics_exe; }
-elsif($type eq 'ŽdŠ¯')		{ require './inc/ore_sub-changes.cgi';	&changes_exe; }
-elsif($type eq '”\—Í')		{ require './inc/ore_sub-ability.cgi';	&ability_exe; }
-elsif($type eq '‚š”ƒ‚¢•š')	{ require './inc/ore_sub-shop.cgi';		&shop_exe; }
-
-else						{ require './inc/ore_sub-main.cgi';		&main_st; }
-
-# ƒtƒ@ƒCƒ‹ƒAƒ“ƒƒbƒN(renameŽ®)
-&unlock($lock) if $lock_check;
-
-&html;		# ƒƒjƒ…[•\ŽŠ
-&copyright;	# íœEˆÚ“®E•ÏX•s‰Â
-
-exit;
-
-# ˆÈ‰ºŒÄ‚яo‚µ—pƒTƒuƒ‹[ƒ`ƒ“(ƒƒ“ƒeƒiƒ“ƒX«Œüã‚Ì‚œ‚ß)
-sub call_main_st	{ require './inc/ore_sub-main.cgi';		&main_st; }
-sub call_mapdata	{ require './inc/ore_sub-map-p1_pc.cgi';&mapdata; }
-
-sub sclv{ $LV_V{$b} <=> $LV_V{$a}; }
-
-sub syogo{ $syogo = ($sogo > 0) ? "$nm [$sogo_p[$sogo]]" : "$nm"; }
-
-
-
-
-
+#!/usr/bin/perl
+# サヌバヌの環境に合わせお倉曎しお䞋さい。
+require './ore_config.cgi';				# ore_config.cgi의 팚슀
+#-----------------------------------------------------------#
+#  眪ず眰++ 二埋背反										#
+#  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.1
+#--- [泚意事項] --------------------------------------------#
+# 1.このスクリプトは以䞋の利甚芏皋に埓っお配垃しおいたす。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+# 以䞋凊理 基本的にこれ以䞋はいじらないように。
+
+&error("현재 점검 쀑입니닀. 잠시만 Ʞ닀렀 죌십시였(ì•œ $ertm 분간)<br>상섞 ë‚Žì—­: $erni") if $er;
+&get_time;	# 日時取埗
+&safetime;	# プレむ芏制
+&decode;	# フォヌムデコヌド
+&axs_check;	# アクセスチェック
+# ファむルロック(rename匏)
+$lock		= &lock if $lock_check;
+&read_data;	# ログデヌタ読み蟌み
+
+# 初回のみAG無い人に割り圓お
+$ag=int($lv*1.08) if(!$ag);
+
+# 拘束時間
+if($pr>$spend_time){ require './inc/ore_sub-main.cgi';	&wt_st; }
+
+# 初期メニュヌ
+elsif(!$type && $cmd==1 && $act_cnt<$act_cnt_limit)	{ require "./inc/ore_sub-training_$mv_mode\.cgi";	&training; }
+elsif(!$type && $cmd==2)							{ require './inc/ore_sub-politics.cgi';	&politics; }
+elsif(!$type && $cmd==3 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-war.cgi';		&war; }
+elsif(!$type && $cmd==4 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-ability.cgi';	&ability; }
+elsif(!$type && $cmd==5 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-changes.cgi';	&changes; }
+elsif(!$type && $cmd==6)							{ require "./inc/ore_sub-infomation_$mv_mode\.cgi";&infomation_com; }
+elsif(!$type && $cmd==7 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-subdue.cgi';	&subdue; }
+elsif(!$type && $cmd==8 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-mission.cgi';	&mission; }
+elsif(!$type && $cmd==20)							{ require './inc/ore_sub-shop.cgi';		&shop; }
+
+# 続行メニュヌ
+elsif($type eq '수행')		{ require "./inc/ore_sub-training_$mv_mode\.cgi";	&training_exe; }
+elsif($type eq '수행쀑')	{ require './inc/ore_sub-battle.cgi';	&bt_st; }
+elsif($type eq '전쟁')		{ require './inc/ore_sub-war.cgi';		&war_exe; }
+elsif($type eq '전쟁쀑')	{ require './inc/ore_sub-wartime.cgi';	&wr_st; }
+elsif($type eq '토벌')		{ require './inc/ore_sub-subdue.cgi';	&subdue_exe; }
+elsif($type eq '토벌 쀑')	{ require './inc/ore_sub-subduetime.cgi';&ws_st; }
+elsif($type eq '군사')		{ require './inc/ore_sub-mission.cgi';	&mission_exe; }
+elsif($type eq 'ë‚Žì •')		{ require './inc/ore_sub-politics.cgi';	&politics_exe; }
+elsif($type eq '사ꎀ')		{ require './inc/ore_sub-changes.cgi';	&changes_exe; }
+elsif($type eq '능력')		{ require './inc/ore_sub-ability.cgi';	&ability_exe; }
+elsif($type eq '쇌핑')	{ require './inc/ore_sub-shop.cgi';		&shop_exe; }
+
+else						{ require './inc/ore_sub-main.cgi';		&main_st; }
+
+# ファむルアンロック(rename匏)
+&unlock($lock) if $lock_check;
+
+&html;		# メニュヌ衚瀺
+&copyright;	# 削陀・移動・倉曎䞍可
+
+exit;
+
+# 以䞋呌び出し甚サブルヌチン(メンテナンス性向䞊のため)
+sub call_main_st	{ require './inc/ore_sub-main.cgi';		&main_st; }
+sub call_mapdata	{ require './inc/ore_sub-map-p1_pc.cgi';&mapdata; }
+
+sub sclv{ $LV_V{$b} <=> $LV_V{$a}; }
+
+sub syogo{ $syogo = ($sogo > 0) ? "$nm [$sogo_p[$sogo]]" : "$nm"; }
diff --git a/ore_admin.cgi b/ore_admin.cgi
old mode 100644
new mode 100755
index e5bb4f8..d891701
--- a/ore_admin.cgi
+++ b/ore_admin.cgi
@@ -1,1226 +1,1226 @@
-#!/usr/local/bin/perl
-# ƒT[ƒo[‚̊‹«‚ɍ‡‚킹‚ĕύX‚µ‚ĉº‚³‚¢B
-require './ore_config.cgi';				# ore_.pl‚̃pƒX
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  ŠÇ—ŽÒ‹@”\												#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-$ver	= 'v1.1';				# ƒo[ƒWƒ‡ƒ“î•ñ‚͏‘‚«Š·‚Š•s‰Â
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-# ˆÈ‰ºˆ— Šî–{“I‚É‚±‚êˆÈ‰º‚Í‚¢‚¶‚ç‚È‚¢‚æ‚€‚ɁB
-
-&get_time;	# “úŽžŽæ“Ÿ
-&decode;	# ƒtƒH[ƒ€ƒfƒR[ƒh
-&axs_check;	# ƒAƒNƒZƒXƒ`ƒFƒbƒN
-&usr_del		if($mode eq 'usr_del');			# ƒLƒƒƒ‰íœ
-&usr_regist		if($mode eq 'usr_regist');		# ƒLƒƒƒ‰ƒf[ƒ^•ÏX
-&usr_regist2	if($mode eq 'usr_regist2');		# ƒLƒƒƒ‰ƒf[ƒ^•ÏX2
-&cdat_regist	if($mode eq 'cdat_regist');		# ‘ƒf[ƒ^•ÏX
-&cdat_regist2	if($mode eq 'cdat_regist2');	# ‘ƒf[ƒ^•ÏX2
-&rd_usrdata		if($mode eq 'rd_usrdata');		# $usrdata“àƒtƒ@ƒCƒ‹‘Síœ
-&rd_backdata	if($mode eq 'rd_backdata');		# $backdata“àƒtƒ@ƒCƒ‹‘Síœ
-&cdata_reset	if($mode eq 'cdata_reset');		# ‘ƒpƒ‰ƒ[ƒ^‰Šú‰»
-&restore_all_usr if($mode eq 'restore_all_usr');# ‘SŽQ‰ÁŽÒƒƒOˆêŠ‡•œ‹Œ(ƒoƒbƒNƒAƒbƒvƒf[ƒ^·‚µ‘Ö‚Š)
-&restore_person	if($mode eq 'restore_person');	# ŒÂ•Ê‘SŽQ‰ÁŽÒƒƒO•œ‹Œ(ƒoƒbƒNƒAƒbƒvƒf[ƒ^·‚µ‘Ö‚Š)
-&restore_cdat	if($mode eq 'restore_cdat');	# ‘ƒƒO•œ‹Œ(ƒoƒbƒNƒAƒbƒvƒf[ƒ^·‚µ‘Ö‚Š)
-&usr_list;	# ƒLƒƒƒ‰ƒŠƒXƒg•\ŽŠ
-
-exit;
-
-#-------------------------------------------------------------------------------
-# ƒLƒƒƒ‰ƒŠƒXƒg•\ŽŠ
-sub usr_list{
-
-	&admin_head;
-
-if($comment){
-	print <<"EOM";
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap align="left">$comment</th>
-</tr>
-</table>
-<br>
-EOM
-}
-	print <<EOM;
-<form method="$method" action="$ore_admin" name="ore_admin">
-<input type="hidden" name="administrator" value="$in{'administrator'}">
-<input type="hidden" name="list_sort" value="$in{'list_sort'}">
-<input type="hidden" name="list_view" value="$in{'list_view'}">
-<input type="hidden" name="mode" value="usr_del">
-
-<table width="100%" border="0" cellspacing="2" cellpadding="2">
-<tr>
-<th nowrap colspan=4>¿°Ä</th>
-<th nowrap colspan=7>ÃÞ°À\•\\ŽŠ</th>
-</tr>
-<tr>
-<td nowrap><input class="button1" type="button" style="width:20px" value="–³" onClick="location.href='$ore_admin?administrator=$in{'administrator'}'"></td>
-<td nowrap><input class="button1" type="button" value="ÚÍÞÙ" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=4&list_view=$in{'list_view'}'"></td>
-<td nowrap><input class="button1" type="button" value="IP±ÄÞÚœ" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=15&list_view=$in{'list_view'}'"></td>
-<td nowrap><input class="button1" type="button" value="ÅIXV" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=18&list_view=$in{'list_view'}'"></td>
-
-<td nowrap><input class="button1" type="button" value="‘S\•\\ŽŠ" style="width:80px"onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=-1'"></td>
-<td nowrap><input class="button1" type="button" value="$cmp[0]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=-5'"></td>
-<td nowrap><input class="button1" type="button" value="$cmp[1]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=1'"></td>
-<td nowrap><input class="button1" type="button" value="$cmp[2]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=2'"></td>
-<td nowrap><input class="button1" type="button" value="$cmp[3]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=3'"></td>
-<td nowrap><input class="button1" type="button" value="$cmp[4]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=4'"></td>
-<td nowrap><input class="button1" type="button" value="$cmp[5]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=5'"></td>
-</tr>
-</table>
-<br>
-EOM
-
-	if($in{'list_view'}){
-
-		print <<EOM;
-<table width="100%" border="0" cellspacing="2" cellpadding="2">
-<tr>
-<th nowrap>íœ</th>
-<th nowrap>ÛžÞ²Ý</th>
-<th nowrap>•ÒW</th>
-<th nowrap>–Œ‘O</th>
-<th nowrap>I D</th>
-<th nowrap>ÊߜܰÄÞ</th>
-<th nowrap>«•Ê</th>
-<th nowrap>ÚÍÞÙ</th>
-<th nowrap>Š‘®</th>
-<th nowrap>HP</th>
-<th nowrap>MP</th>
-<th nowrap>UA</th>
-<th nowrap>UD</th>
-<th nowrap>LR</th>
-<th nowrap>AG</th>
-<th nowrap>ŠŽ‹à</th>
-<th nowrap>ŠK‹‰</th>
-<th nowrap>s“®</th>
-<th nowrap>ÅIÛžÞ²Ý</th>
-<th nowrap>IP±ÄÞÚœ</th>
-<th nowrap>ΜĖŒ</th>
-<th nowrap>ÌÞ׳»Þ</th>
-</tr>
-EOM
-
-	# ŽQ‰ÁŽÒƒf[ƒ^ƒtƒ@ƒCƒ‹ˆê——Žæ“Ÿ
-	&usrdata_read;
-
-	# ŽQ‰ÁŽÒƒf[ƒ^ˆêŠ‡“ǂݍž‚Ý
-	foreach (0 .. $#usrfile) {
-		open(IN,"$usrdata$usrfile[$_]") || &error("Can't open $usrfile[$_]");
-		@line = <IN>;
-		close(IN);
-		push(@dat,$line[0]);
-		push(@dat2,$line[1]);
-	}
-
-	local(@usr_data);
-
-	foreach (0 .. $#dat){
-		%DAT = '';
-		my @prats = split(/,/,$dat[$_]);
-		foreach (0 .. $#prats){
-			my ($key,$v) = split(/;/,$prats[$_]);
-			$DAT{$key} = $v;
-		}
-
-		my @y1 = split(/<>/,$dat2[$_]);
-
-		$in{'list_view'}=0 if($in{'list_view'}==-5);
-
-		if($in{'list_view'} eq $DAT{'camp'} || $in{'list_view'} eq -1){
-			$id = $DAT{'id'};
-			# ƒnƒbƒVƒ…“ǂݍž‚Ý
-			&hash_data;
-
-			push(@usr_data,"$nm<>$id<>$pw<>$sei<>$lv<>$camp<>$max_hp<>$max_mp<>$ua<>$ud<>$lr<>$gold<>$rank<>$sogo<>$y1[0]<>$y1[1]<>$y1[2]<>$y1[3]<>$la<>$ag<>$type<>");
-		}
-	}
-
-	@usr_data = @{&csvsort('<>',$in{'list_sort'},@usr_data)};
-
-	foreach(0 .. $#usr_data){
-		my @y2 = split(/<>/,$usr_data[$_]);
-
-		$y2_0 = (!$y2[13]) ? "$y2[0]" : "$y2[0] [$sogo_p[$y2[13]]]" ;
-		$y2[14] ="" if($y2[14] =~ /date/);
-		$y2[20] = "‘Ò‹@’†" if(!$y2[20]);
-		print <<"EOM";
-<tr>
-<td nowrap><input type="checkbox" name="usr_del"value="$y2[1]"></td>
-<td nowrap><input class="button1" type="button" value="ÛžÞ²Ý" onClick="window.open('$script?id=$y2[1]&pw=$in{'administrator'}')"></td>
-<td nowrap><input class="button1" type="button" value="•ÒW" onClick="window.open('$ore_admin?id=$y2[1]&administrator=$in{'administrator'}&mode=usr_regist')"></td>
-<td nowrap>$y2_0</td>
-<td nowrap>$y2[1]</td>
-<td nowrap>$y2[2]</td>
-<td nowrap>$seibetu[$y2[3]]</td>
-<td nowrap>$y2[4]</td>
-<td nowrap>$cmp[$y2[5]]</td>
-<td nowrap>$y2[6]</td>
-<td nowrap>$y2[7]</td>
-<td nowrap>$y2[8]</td>
-<td nowrap>$y2[9]</td>
-<td nowrap>$y2[10]</td>
-<td nowrap>$y2[19]</td>
-<td nowrap>$y2[11]</td>
-<td nowrap>$cl[$y2[12]]</td>
-<td nowrap>$y2[20]</td>
-<td nowrap>$y2[14]</td>
-<td nowrap>$y2[15]</td>
-<td nowrap>$y2[16]</td>
-<td nowrap>$y2[17]</td>
-</tr>
-EOM
-		}
-	}
-	print <<"EOM";
-</table>
-<br><br>
-<table width="100%" border="0" cellspacing="2" cellpadding="2">
-<tr>
-<th nowrap>·¬×íœ</th>
-<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
-<th nowrap>‘ÃÞ°À•ÒW</th>
-
-<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
-<th nowrap>‘ÃÞ°ÀØŸ¯Ä</th>
-
-<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
-<th nowrap colspan="2">Warning!! ÃÞšÚžÄØ/ÃÞ°À‘Síœ</th>
-</tr>
-<tr>
-<td nowrap align="center"><input class="button1" type="submit" value="·¬×íœ" style="width:80px"></td>
-<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
-
-<td nowrap align="center"><input class="button1" type="button" value="‘ÃÞ°À•ÒW" style="width:80px" onClick="window.open('$ore_admin?administrator=$in{'administrator'}&mode=cdat_regist')"></td>
-<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
-
-<td nowrap align="center"><input class="button1" type="button" value="‘ÃÞ°ÀØŸ¯Ä" style="width:100px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=$in{'list_view'}&mode=cdata_reset'"></td>
-<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
-
-<td nowrap align="center"><input class="button1" type="button" value="·¬×ÃÞ°ÀˆêŠ‡íœ" style="width:120px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=$in{'list_view'}&mode=rd_usrdata'"></td>
-<td nowrap align="center"><input class="button1" type="button" value="ÊÞ¯ž±¯Ì߈ꊇíœ" style="width:120px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=$in{'list_view'}&mode=rd_backdata'"></td>
-</tr>
-</table>
-</form>
-
-<br>
-
-<table width="100%" border="0" cellspacing="2" cellpadding="2">
-<tr>
-<th nowrap colspan="5">ƒLƒƒƒ‰ƒƒOŒÂ•Ê•œ‹Œ</th>
-<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</td>
-<th nowrap colspan="3">‘SƒLƒƒƒ‰ƒƒO•œ‹Œ</th>
-<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</td>
-<th nowrap colspan="3">‘ƒƒO•œ‹Œ</th>
-</tr>
-<tr>
-
-<form method="$method" action="$ore_admin" name="ore_admin">
-<input type="hidden" name="administrator" value="$in{'administrator'}">
-<input type="hidden" name="list_sort" value="$in{'list_sort'}">
-<input type="hidden" name="list_view" value="$in{'list_view'}">
-<input type="hidden" name="mode" value="restore_person">
-
-<td nowrap>ID</td>
-<td nowrap>
-<select name="restore_usr" class="button1" type="button" style="width:110px">
-EOM
-	foreach(1 .. $#usrfile){
-		print qq|<option value="$usrfile[$_]"|;
-		print qq|>$usrfile[$_]\n|;
-	}
-	print <<"EOM";
-</select>
-</td>
-<td nowrap>“úŽž</td>
-<td nowrap>
-<select name="restore_date" class="button1" type="button" style="width:130px">
-EOM
-	foreach(0 .. $#week){
-
-		if(-e "$backdata$week[$_]\.cgi"){
-			my $bk_time = (stat("$backdata$week[$_]\.cgi"))[9];
-			my($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime($bk_time);
-			$min = "0$min" if($min<10);
-			$sec = "0$sec" if($sec<10);
-			$month++;
-			my $date_bk = "$month/$mday($week[$wday]) $hour:$min:$sec";
-	
-			print qq|<option value="$backdata$week[$_]\.cgi"|;
-			print qq|>$date_bk\n|;
-		}
-	}
-	print <<"EOM";
-</select>
-</td>
-<td nowrap align="center"><input class="button1" type="submit" value="•œ ‹Œ" style="width:60px"></td>
-
-</form>
-
-<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</td>
-
-<form method="$method" action="$ore_admin" name="ore_admin">
-<input type="hidden" name="administrator" value="$in{'administrator'}">
-<input type="hidden" name="list_sort" value="$in{'list_sort'}">
-<input type="hidden" name="list_view" value="$in{'list_view'}">
-<input type="hidden" name="mode" value="restore_all_usr">
-
-<td nowrap>“úŽž</td>
-<td nowrap>
-<select name="restore_date" class="button1" type="button" style="width:130px">
-EOM
-	foreach(0 .. $#week){
-
-		if(-e "$backdata$week[$_]\.cgi"){
-			my $bk_time = (stat("$backdata$week[$_]\.cgi"))[9];
-			my($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime($bk_time);
-			$min = "0$min" if($min<10);
-			$sec = "0$sec" if($sec<10);
-			$month++;
-			my $date_bk = "$month/$mday($week[$wday]) $hour:$min:$sec";
-	
-			print qq|<option value="$backdata$week[$_]\.cgi"|;
-			print qq|>$date_bk\n|;
-		}
-	}
-	print <<"EOM";
-</select>
-</td>
-<td nowrap align="center"><input class="button1" type="submit" value="•œ ‹Œ" style="width:60px"></td>
-
-</form>
-
-<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</td>
-
-<form method="$method" action="$ore_admin" name="ore_admin">
-<input type="hidden" name="administrator" value="$in{'administrator'}">
-<input type="hidden" name="list_sort" value="$in{'list_sort'}">
-<input type="hidden" name="list_view" value="$in{'list_view'}">
-<input type="hidden" name="mode" value="restore_cdat">
-
-<td nowrap>“úŽž</td>
-<td nowrap>
-<select name="restore_date" class="button1" type="button" style="width:110px">
-EOM
-
-	open (IN,"$histfile") || &error("Open error : $histfile");
-	my @hist_dat = <IN>;
-	close(IN)    or die "Can't close   : $!";
-
-	foreach(0 .. $#hist_dat){
-		my @y1 = split(/,/,$hist_dat[$_]);
-		$y1[42]	=~ s/date;//g;
-		print qq|<option value="$_">$y1[42]\n|;
-	}
-	print <<"EOM";
-</select>
-</td>
-<td nowrap align="center"><input class="button1" type="submit" value="•œ ‹Œ" style="width:60px"></td>
-
-</form>
-
-</tr>
-</table>
-<br>
-
-EOM
-	&admin_end;
-	exit;
-}
-
-# ŒÂ•ÊŽQ‰ÁŽÒƒƒO•œ‹Œ(ƒoƒbƒNƒAƒbƒvƒf[ƒ^·‚µ‘Ö‚Š)
-sub restore_person{
-
-	&error("ƒpƒXƒ[ƒh‚ªˆá‚¢‚Ü‚·I") if($in{'administrator'} ne $admin_pass);
-
-	# ƒtƒ@ƒCƒ‹ƒƒbƒN(renameŽ®)
-	$lock		= &lock if $lock_check;
-
-	open(IN,"$in{'restore_date'}") || &error("Open Error : $in{'restore_date'}",1);
-	my @tdat = <IN>;
-	close(IN);
-
-	$in{'restore_usr'} =~ s/\.cgi//g;
-
-	foreach (0 .. $#tdat){
-
-		%R = '';
-		my @prats = split(/,/,$tdat[$_]);
-		foreach $prats (@prats){
-			my($y,$x) = split(/;/,$prats);
-			$R{$y} = $x;
-
-			if($in{'restore_usr'} eq $R{'id'}){
-				open (OUT,">$usrdata$R{'id'}\.cgi") || &error("open error:$usrdata$R{'id'}\.cgi",1);
-				print OUT $tdat[$_];
-				close(OUT)		or die "Can't close   : $!";
-			}
-		}
-	}
-
-	&unlock($lock) if $lock_check;
-
-	$comment ="$in{'restore_date'}‚©‚ç$usrdata$in{'restore_usr'}\.cgi‚𕜋ŒŠ®—¹";
-
-}
-
-# ‘SŽQ‰ÁŽÒƒƒOˆêŠ‡•œ‹Œ(ƒoƒbƒNƒAƒbƒvƒf[ƒ^·‚µ‘Ö‚Š)
-sub restore_all_usr{
-
-	&error("ƒpƒXƒ[ƒh‚ªˆá‚¢‚Ü‚·I") if($in{'administrator'} ne $admin_pass);
-
-	# ƒtƒ@ƒCƒ‹ƒƒbƒN(renameŽ®)
-	$lock		= &lock if $lock_check;
-
-	open(IN,"$in{'restore_date'}") || &error("Open Error : $in{'restore_date'}",1);
-	my @tdat = <IN>;
-	close(IN);
-
-	foreach (0 .. $#tdat){
-
-		%R = '';
-		my @prats = split(/,/,$tdat[$_]);
-		foreach $prats (@prats){
-			my($y,$x) = split(/;/,$prats);
-			$R{$y} = $x;
-		}
-
-		open (OUT,">$usrdata$R{'id'}\.cgi") || &error("open error:$usrdata$R{'id'}\.cgi",1);
-		print OUT $tdat[$_];
-		close(OUT)		or die "Can't close   : $!";
-
-	}
-
-	&unlock($lock) if $lock_check;
-
-	$comment ="$in{'restore_date'}‚ÉŠÜ‚Ü‚ê‚é‘SƒLƒƒƒ‰•œ‹ŒŠ®—¹";
-
-}
-
-# ‘ƒƒO•œ‹Œ(ƒoƒbƒNƒAƒbƒvƒf[ƒ^·‚µ‘Ö‚Š)
-sub restore_cdat{
-
-	# ƒtƒ@ƒCƒ‹ƒƒbƒN(renameŽ®)
-	$lock		= &lock if $lock_check;
-
-	open (IN,"$histfile") || &error("Open error : $histfile");
-	my @hist_dat = <IN>;
-	close(IN)    or die "Can't close   : $!";
-
-	foreach(0 .. $#hist_dat){
-		my @y1 = split(/,/,$hist_dat[$_]);
-		$y1[42]	=~ s/date;//g;
-		print qq|<option value="$_">$y1[42]\n|;
-	}
-
-	&error("ƒpƒXƒ[ƒh‚ªˆá‚¢‚Ü‚·I") if($in{'administrator'} ne $admin_pass);
-
-	open(IN,"$histfile") || &error("Open Error : $histfile",1);
-	my @hist_dat = <IN>;
-	close(IN);
-
-	open (OUT,">$cdatfile") || &error("open error:$cdatfile",1);
-	print OUT $hist_dat[$_];
-	close(OUT)		or die "Can't close   : $!";
-
-	&unlock($lock) if $lock_check;
-
-	$comment ="$cdatfile •œ‹ŒŠ®—¹";
-
-}
-
-#-------------------------------------------------------------------------------
-# ”z—ñƒ\[ƒgˆ—
-sub csvsort{
-	local $key=shift;
-	local $field=shift;
-	local @in=@_;
-	local @usr_data;
-	@usr_data=map{$_->[0]}sort{$a->[1]<=>$b->[1]}map{[$_,(split /$key/) [$field]]}@in;
-	return \@usr_data;
-}
-
-#-------------------------------------------------------------------------------
-# ŠeŽííœˆ—
-
-# ƒLƒƒƒ‰•Êíœ
-sub usr_del{
-	&error("ƒpƒXƒ[ƒh‚ªˆá‚¢‚Ü‚·I") if($in{'administrator'} ne $admin_pass);
-	foreach(0 .. $#USR_DEL){
-		unlink("$usrdata$USR_DEL[$_]\.cgi") || &error("$usrdata$USR_DEL[$_]\.cgi ‚ªíœ‚Å‚«‚Ü‚¹‚ñB");
-		$comment.="$usrdata$USR_DEL[$_]\.cgi íœŠ®—¹<br>";
-	}
-}
-# $usrdata“àƒtƒ@ƒCƒ‹‘Síœ
-sub rd_usrdata{
-	&error("ƒpƒXƒ[ƒh‚ªˆá‚¢‚Ü‚·I") if($in{'administrator'} ne $admin_pass);
-
-	&usrdata_read;
-	my $flag=0;
-	$comment ="$usrdata ‚ÉŠÜ‚Ü‚ê‚é‘Sƒtƒ@ƒCƒ‹íœŠ®—¹<hr>";
-	foreach(0 .. $#usrfile){
-		unlink("$usrdata$usrfile[$_]");
-		$comment .="[ $usrdata$usrfile[$_] ] ";
-		$flag++;
-		if($flag>=6){
-			$comment .="<br>";
-			$flag=0;
-		}
-	}
-}
-# $backdata“àƒtƒ@ƒCƒ‹‘Síœ
-sub rd_backdata{
-	&error("ƒpƒXƒ[ƒh‚ªˆá‚¢‚Ü‚·I") if($in{'administrator'} ne $admin_pass);
-
-	$comment ="$backdata ‚ÉŠÜ‚Ü‚ê‚é‘Sƒtƒ@ƒCƒ‹íœŠ®—¹<hr>";
-	my $flag=0;
-	foreach(0 .. $#week){
-		unlink("$backdata$week[$_]\.cgi");
-		$comment .="[ $backdata$week[$_]\.cgi ] ";
-		$flag++;
-		if($flag>=6){
-			$comment .="<br>";
-			$flag=0;
-		}
-	}
-}
-
-#-------------------------------------------------------------------------------
-# ‘ƒf[ƒ^‰Šú‰»
-sub cdata_reset{
-	&error("ƒpƒXƒ[ƒh‚ªˆá‚¢‚Ü‚·I") if($in{'administrator'} ne $admin_pass);
-
-	$lock		= &lock if $lock_check;
-
-	&cdata_open;
-
-	require './inc/ore_sub-main_reset.cgi';&reset_cdat;
-
-	&cdat_write;
-
-	&unlock($lock) if $lock_check;
-
-	$comment = "‘ƒf[ƒ^‚ð‰Šú‰»‚µ‚Ü‚µ‚œB<br>";
-}
-
-#-------------------------------------------------------------------------------
-# ƒLƒƒƒ‰ƒf[ƒ^•ÏX
-
-# ‘‚«Š·‚Š‰æ–Ê
-sub usr_regist{
-
-	&admin_head;
-	&settei;
-
-	# ŽQ‰ÁŽÒƒf[ƒ^ˆêŠ‡“ǂݍž‚Ý
-	open(IN,"$usrdata$id\.cgi") || &error("Open Error : $usrdata$id\.cgi",1);
-	@dat = <IN>;
-	close(IN);
-
-	%DAT = '';
-	my @prats = split(/,/,$dat[0]);
-	foreach (0 .. $#prats){
-		my ($key,$v) = split(/;/,$prats[$_]);
-		$DAT{$key} = $v;
-	}
-
-	# ƒnƒbƒVƒ…“ǂݍž‚Ý
-	&hash_data;
-
-	print <<"EOM";
-<form method="$method" action="$ore_admin" name="ore_admin">
-<input type="hidden" name="administrator" value="$in{'administrator'}">
-<input type="hidden" name="mode" value="usr_regist2">
-<input type="hidden" name="id_old" value="$id">
-
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap colspan=2 align="center">ƒf[ƒ^•ÏX</th>
-</tr>
-<tr>
-<td nowrap><input class="button1" type="submit" value="‘‚«Š·‚Š"></td>
-<td nowrap><input class="button1" type="reset" value="–ß‚·"></td>
-</tr>
-</table>
-
-<br><br>
-
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap>–Œ‘O</th>
-<th nowrap>I D</th>
-<th nowrap>ÊߜܰÄÞ</th>
-<th nowrap>«•Ê</th>
-<th nowrap>ÚÍÞÙ</th>
-<th nowrap>Š‘®</th>
-</tr>
-<tr>
-<td nowrap><input type="text" name="nm" value="$nm" style="width:100px"></td>
-<td nowrap><input type="text" name="id" value="$id" style="width:100px"></td>
-<td nowrap><input type="text" name="pw" value="$pw" style="width:80px"></td>
-
-<td nowrap>
-<select name="sei">
-EOM
-	foreach(1 .. $#seibetu){
-		print "<option value=$_";
-		print " selected" if($sei==$_);
-		print ">$_:$seibetu[$_]\n";
-	}
-	print <<"EOM";
-</select>
-</td>
-
-<td nowrap><input type="text" name="lv" value="$lv" style="width:30px"></td>
-
-<td nowrap>
-<select name="camp">
-EOM
-	foreach(0 .. $#cmp){
-		print "<option value=$_";
-		print " selected" if($camp==$_);
-		print ">$_:$cmp[$_]\n";
-	}
-	print <<"EOM";
-</select>
-</td>
-
-</tr>
-</table>
-
-<br>
-
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap>HP</th>
-<th nowrap>MP</th>
-<th nowrap>UA</th>
-<th nowrap>UD</th>
-<th nowrap>LR</th>
-<th nowrap>AG</th>
-<th nowrap>GOLD</th>
-<th nowrap>ŠK‹‰</th>
-<th nowrap>Ì†</th>
-<th nowrap>“¢”°‰ñ”</th>
-</tr>
-<tr>
-</td>
-<td nowrap><input type="text" name="max_hp" value="$max_hp" style="width:40px"></td>
-<td nowrap><input type="text" name="max_mp" value="$max_mp" style="width:40px"></td>
-<td nowrap><input type="text" name="ua" value="$ua" style="width:30px"></td>
-<td nowrap><input type="text" name="ud" value="$ud" style="width:30px"></td>
-<td nowrap><input type="text" name="lr" value="$lr" style="width:30px"></td>
-<td nowrap><input type="text" name="ag" value="$ag" style="width:30px"></td>
-<td nowrap><input type="text" name="gold" value="$gold" style="width:80px"></td>
-
-<td nowrap>
-<select name="rank">
-EOM
-	foreach(0 .. $#cl){
-		print "<option value=$_";
-		print " selected" if($rank==$_);
-		print ">$_:$cl[$_]\n";
-	}
-	print <<"EOM";
-</select>
-</td>
-
-<td nowrap>
-<select name="sogo">
-EOM
-	foreach(0 .. $#sogo_p){
-		print "<option value=$_";
-		print " selected" if($sogo==$_);
-		print ">$_:$sogo_p[$_]\n";
-	}
-	print <<"EOM";
-</select>
-</td>
-
-<td nowrap><input type="text" name="we" value="$we" style="width:30px"></td>
-
-</tr>
-</table>
-
-<br>
-
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap colspan="2">•‹ï</th>
-<th nowrap colspan="2">–h‹ï</th>
-<th nowrap colspan="2">“¹‹ï</th>
-</tr>
-<tr>
-
-<td nowrap>
-<select name="dg_a">
-EOM
-	foreach(0 .. $#dg_data){
-		print "<option value=$_";
-		print " selected" if($dg_a==$_);
-		print ">$_:$dg_data[$_][1]\n";
-	}
-	print <<"EOM";
-</select>
-</td>
-<td nowrap>Žc‚è<input type="text" name="dg_cnt" value="$dg_cnt" style="width:30px"></td>
-
-<td nowrap>
-<select name="df_a">
-EOM
-	foreach(0 .. $#df_data){
-		print "<option value=$_";
-		print " selected" if($df_a==$_);
-		print ">$_:$df_data[$_][1]\n";
-	}
-	print <<"EOM";
-</select>
-</td>
-<td nowrap>Žc‚è<input type="text" name="df_cnt" value="$df_cnt" style="width:30px"></td>
-
-<td nowrap>
-<select name="di_a">
-EOM
-	foreach(0 .. $#di_data){
-		print "<option value=$_";
-		print " selected" if($di_a==$_);
-		print ">$_:$di_data[$_][1]\n";
-	}
-	print <<"EOM";
-</select>
-</td>
-<td nowrap>Žc‚è<input type="text" name="di_cnt" value="$di_cnt" style="width:30px"></td>
-
-</tr>
-</table>
-
-<br>
-
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap>s“®ÌמÞØŸ¯Ä</th>
-<th nowrap>s“®Ÿ¯Œ®Ý</th>
-<th nowrap>s“®”»’è</th>
-<th nowrap>s“®”»’è</th>
-<th nowrap>í“¬”»•Ê</th>
-<th nowrap>‘ΐíŽÒ</th>
-<th nowrap>S‘©ŽžŠÔ</th>
-<th nowrap>‘Ώۍ‘</th>
-</tr>
-<tr>
-</td>
-<td nowrap>Ž×°”­¶Žž Še’l0 or íœ</td>
-<td nowrap><input type="text" name="act_cnt" value="$act_cnt" style="width:30px"></td>
-<td nowrap><input type="text" name="type" value="$type" style="width:60px"></td>
-<td nowrap><input type="text" name="tm" value="$tm" style="width:30px"></td>
-<td nowrap><input type="text" name="ck" value="$ck" style="width:30px"></td>
-<td nowrap><input type="text" name="bt" value="$bt" style="width:30px"></td>
-<td nowrap><input type="text" name="pr" value="$pr" style="width:50px"></td>
-<td nowrap><input type="text" name="nation" value="$nation" style="width:30px"></td>
-</tr>
-</table>
-
-<br>
-
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap>î•ñŽž‚É•\\ŽŠ\‚³‚ê‚éƒRƒƒ“ƒg(‘SŠp40Žš‚Ü‚Å)</th>
-</tr>
-<tr>
-</td>
-<td nowrap><input type="text" name="info_mes" value="$info_mes" style="width:400px"></td>
-</tr>
-</table>
-
-</form>
-EOM
-&admin_end;
-exit;
-}
-
-# ‘‚«Š·‚Šˆ—•Œ‹‰Ê
-sub usr_regist2{
-
-	&admin_head;
-
-	# ƒtƒ@ƒCƒ‹ƒƒbƒN(renameŽ®)
-	$lock		= &lock if $lock_check;
-
-	# ŽQ‰ÁŽÒƒf[ƒ^ˆêŠ‡“ǂݍž‚Ý
-	open(IN,"$usrdata$in{'id_old'}\.cgi") || &error("Open Error : $usrdata$in{'id_old'}\.cgi",1);
-	@dat = <IN>;
-	close(IN);
-
-	%DAT = '';
-	my @prats = split(/,/,$dat[0]);
-	foreach (0 .. $#prats){
-		my ($key,$v) = split(/;/,$prats[$_]);
-		$DAT{$key} = $v;
-	}
-
-	# ƒnƒbƒVƒ…“ǂݍž‚Ý
-	&hash_data;
-
-	$dat[0] = "la;$la,nm;$in{'nm'},pw;$in{'pw'},id;$in{'id'},sei;$in{'sei'},type;$in{'type'},age_time;$age_time,act_cnt;$in{'act_cnt'},hp;$hp,max_hp;$in{'max_hp'},lv;$in{'lv'},mp;$mp,max_mp;$in{'max_mp'},rank;$in{'rank'},ua;$in{'ua'},ud;$in{'ud'},lr;$in{'lr'},ag;$in{'ag'},ck;$in{'ck'},tm;$in{'tm'},bt;$in{'bt'},bst;$in{'bst'},exe;$exe,rank_exe;$rank_exe,sol;$sol,sol_lv;$sol_lv,nation;$in{'nation'},we;$in{'we'},camp;$in{'camp'},pr;$in{'pr'},tnm;$tnm,tid;$tid,thp;$thp,tlr;$tlr,tsol;$tsol,tsg;$tsg,tsol_lv;$tsol_lv,b_n;$b_n,b_v;$b_v,thp_max;$thp_max,tlv;$tlv,tdg_a;$tdg_a,tdf_a;$tdf_a,tua;$tua,tud;$tud,tmp;$tmp,tcp;$tcp,gold;$in{'gold'},roku;$roku,dg_a;$in{'dg_a'},dg_cnt;$in{'dg_cnt'},df_a;$in{'df_a'},df_cnt;$in{'df_cnt'},di_a;$in{'di_a'},di_cnt;$in{'di_cnt'},sogo;$in{'sogo'},mes;$mes,info_mes;$in{'info_mes'},\n";
-
-	open (OUT,">$usrdata$in{'id_old'}\.cgi") || &error("·¬×ÃÞ°À‚ªŠJ‚¯‚Ü‚¹‚ñ[$in{'id_old'}]",1);
-	print OUT @dat;
-	close(OUT)		or die "Can't close   : $!";
-
-	if($in{'id_old'} ne $in{'id'}){rename("$usrdata$in{'id_old'}\.cgi","$usrdata$in{'id'}\.cgi") || &error("̧²Ù–Œ‚ðID–Œ‚ɕύX‚Å‚«‚Ü‚¹‚ñB",1);}
-
-	# ƒtƒ@ƒCƒ‹ƒAƒ“ƒƒbƒN(renameŽ®)
-	&unlock($lock) if $lock_check;
-
-	print <<"EOM";
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap colspan=2 align="center">ˆÈ‰º‚Ì‚Æ‚š‚è‚Ƀf[ƒ^•ÏX‚µ‚Ü‚µ‚œB</th>
-</tr>
-</table>
-
-<br><br>
-
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap>–Œ‘O</th>
-<th nowrap>I D</th>
-<th nowrap>ÊߜܰÄÞ</th>
-<th nowrap>«•Ê</th>
-<th nowrap>ÚÍÞÙ</th>
-<th nowrap>Š‘®</th>
-</tr>
-<tr>
-<td nowrap>$in{'nm'}</td>
-<td nowrap>$in{'id'}</td>
-<td nowrap>$in{'pw'}</td>
-<td nowrap>$in{'sei'}</td>
-<td nowrap>$in{'lv'}</td>
-<td nowrap>$in{'camp'}</td>
-</tr>
-</table>
-
-<br>
-
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap>HP</th>
-<th nowrap>MP</th>
-<th nowrap>UA</th>
-<th nowrap>UD</th>
-<th nowrap>LR</th>
-<th nowrap>AG</th>
-<th nowrap>GOLD</th>
-<th nowrap>ŠK‹‰</th>
-<th nowrap>Ì†</th>
-<th nowrap>“¢”°‰ñ”</th>
-</tr>
-<tr>
-<td nowrap>$in{'max_hp'}</td>
-<td nowrap>$in{'max_mp'}</td>
-<td nowrap>$in{'ua'}</td>
-<td nowrap>$in{'ud'}</td>
-<td nowrap>$in{'lr'}</td>
-<td nowrap>$in{'ag'}</td>
-<td nowrap>$in{'gold'}</td>
-<td nowrap>$in{'rank'}</td>
-<td nowrap>$in{'sogo'}</td>
-<td nowrap>$in{'we'}</td>
-</tr>
-</table>
-
-<br>
-
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap colspan="2">•‹ï</th>
-<th nowrap colspan="2">–h‹ï</th>
-<th nowrap colspan="2">“¹‹ï</th>
-</tr>
-<tr>
-<td nowrap>$in{'dg_a'}</td>
-<td nowrap>Žc‚è $in{'dg_cnt'}</td>
-<td nowrap>$in{'df_a'}</td>
-<td nowrap>Žc‚è $in{'df_cnt'}</td>
-<td nowrap>$in{'di_a'}</td>
-<td nowrap>Žc‚è $in{'di_cnt'}</td>
-</tr>
-</table>
-
-<br>
-
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap>s“®Ÿ¯Œ®Ý</th>
-<th nowrap>s“®”»’è</th>
-<th nowrap>s“®”»’è</th>
-<th nowrap>í“¬”»•Ê</th>
-<th nowrap>‘ΐíŽÒ</th>
-<th nowrap>S‘©ŽžŠÔ</th>
-<th nowrap>‘Ώۍ‘</th>
-</tr>
-<tr>
-<td nowrap>$in{'act_cnt'}</td>
-<td nowrap>$in{'type'}</td>
-<td nowrap>$in{'tm'}</td>
-<td nowrap>$in{'ck'}</td>
-<td nowrap>$in{'bt'}</td>
-<td nowrap>$in{'pr'}</td>
-<td nowrap>$in{'nation'}</td>
-</tr>
-</table>
-
-<br>
-
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap>î•ñŽž‚É•\\ŽŠ\‚³‚ê‚éƒRƒƒ“ƒg(‘SŠp40Žš‚Ü‚Å)</th>
-</tr>
-<tr>
-</td>
-<td nowrap>$info_mes</td>
-</tr>
-</table>
-
-EOM
-&admin_end;
-exit;
-}
-
-#-------------------------------------------------------------------------------
-# ‘ƒf[ƒ^•ÏX
-
-# ‘‚«Š·‚Š‰æ–Ê
-sub cdat_regist{
-
-	&admin_head;
-	&cdata_open;
-
-	$set -= $time;
-
-	print <<EOM;
-<form method="$method" action="$ore_admin" name="ore_admin">
-<input type="hidden" name="administrator" value="$in{'administrator'}">
-<input type="hidden" name="mode" value="cdat_regist2">
-<input type="hidden" name="id_old" value="$id">
-
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap colspan="2" align="center">ƒf[ƒ^•ÏX</th>
-<th nowrap rowspan="2" align="left" style="font-size:14px;line-height:18px">
-Eó‘Ô >> 0:³í 1:–S‘<br>
-EŠe‘’èˆõ >> 
-EOM
-
-($limit_mode) ? print "Ž©“®ŽZo" : print "Žè“®Š„‚è“–‚Ä" ;
-
-print <<EOM;
-</th>
-</tr>
-<tr>
-<td nowrap><input class="button1" type="submit" value="‘‚«Š·‚Š"></td>
-<td nowrap><input class="button1" type="reset" value="–ß‚·"></td>
-</tr>
-</table>
-
-<br><br>
-
-<table border="0" cellspacing="4" cellpadding="0" bgcolor="#444466" align="center">
-<tr>
-<td bgcolor="#000000" align="center" valign="top">
-
-<table border=0 cellpadding=2 cellspacing=2 width=100% align=center>
-<tr>
-<td width="72">‘–Œ</td>
-EOM
-
-	foreach(1 .. 5){
-		print qq|<td align="center" width="92">$cmp[$_]</td>\n|;
-	}
-	print <<EOM;
-</tr><tr><td>ó‘Ô</td>
-<td><input type="text" name="ce1" value="$ce1" style="width:60px"></td>
-<td><input type="text" name="ce2" value="$ce2" style="width:60px"></td>
-<td><input type="text" name="ce3" value="$ce3" style="width:60px"></td>
-<td><input type="text" name="ce4" value="$ce4" style="width:60px"></td>
-<td><input type="text" name="ce5" value="$ce5" style="width:60px"></td>
-</tr>
-<tr>
-<td>‘‘—Í</td>
-<td><input type="text" name="cn1" value="$cn1" style="width:60px"></td>
-<td><input type="text" name="cn2" value="$cn2" style="width:60px"></td>
-<td><input type="text" name="cn3" value="$cn3" style="width:60px"></td>
-<td><input type="text" name="cn4" value="$cn4" style="width:60px"></td>
-<td><input type="text" name="cn5" value="$cn5" style="width:60px"></td>
-</tr>
-<tr>
-<td>‘‰Æ\—\\ŽZ</td>
-<td><input type="text" name="cg1" value="$cg1" style="width:60px"></td>
-<td><input type="text" name="cg2" value="$cg2" style="width:60px"></td>
-<td><input type="text" name="cg3" value="$cg3" style="width:60px"></td>
-<td><input type="text" name="cg4" value="$cg4" style="width:60px"></td>
-<td><input type="text" name="cg5" value="$cg5" style="width:60px"></td>
-</tr>
-<tr>
-<td>‘•º—Æ</td>
-<td><input type="text" name="cf1" value="$cf1" style="width:60px"></td>
-<td><input type="text" name="cf2" value="$cf2" style="width:60px"></td>
-<td><input type="text" name="cf3" value="$cf3" style="width:60px"></td>
-<td><input type="text" name="cf4" value="$cf4" style="width:60px"></td>
-<td><input type="text" name="cf5" value="$cf5" style="width:60px"></td>
-</tr>
-<tr>
-<td>‘•ºŽm”</td>
-<td><input type="text" name="cs1" value="$cs1" style="width:60px"></td>
-<td><input type="text" name="cs2" value="$cs2" style="width:60px"></td>
-<td><input type="text" name="cs3" value="$cs3" style="width:60px"></td>
-<td><input type="text" name="cs4" value="$cs4" style="width:60px"></td>
-<td><input type="text" name="cs5" value="$cs5" style="width:60px"></td>
-</tr>
-<tr>
-<td bgcolor=#CCCCFF>Š‘®l”</td>
-<td align=center>$c1/<input type="text" name="c1a" value="$c1a" style="width:30px"></td>
-<td align=center>$c2/<input type="text" name="c2a" value="$c2a" style="width:30px"></td>
-<td align=center>$c3/<input type="text" name="c3a" value="$c3a" style="width:30px"></td>
-<td align=center>$c4/<input type="text" name="c4a" value="$c4a" style="width:30px"></td>
-<td align=center>$c5/<input type="text" name="c5a" value="$c5a" style="width:30px"></td>
-</tr>
-</table>
-“ˆêŠúŒÀ:‚ ‚Æ<input type="text" name="set" value="$set" style="width:60px">•b
-&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-Œ»Ý<input type="text" name="goal_no" value="$goal_no" style="width:20px">Šú
-</td>
-</tr>
-</table>
-</form>
-EOM
-&admin_end;
-exit;
-}
-
-# ‘‚«Š·‚Šˆ—
-sub cdat_regist2{
-
-	&admin_head;
-
-	# ƒtƒ@ƒCƒ‹ƒƒbƒN(renameŽ®)
-	$lock		= &lock if $lock_check;
-
-	&cdata_open;
-
-	$cn1=$in{'cn1'};# ‘1‚̍‘—Í
-	$cg1=$in{'cg1'};# ‘1‚Ìà­
-	$cf1=$in{'cf1'};# ‘1‚Ì’~•Ä
-	$cs1=$in{'cs1'};# ‘1‚Ì—\”õ•º
-	$ce1=$in{'ce1'};# ‘1‚ÌŒ»ó
-	$c1a=$in{'c1a'};# ‘1‚Ì’èˆõ”
-	$cn2=$in{'cn2'};
-	$cg2=$in{'cg2'};
-	$cf2=$in{'cf2'};
-	$cs2=$in{'cs2'};
-	$ce2=$in{'ce2'};
-	$c2a=$in{'c2a'};
-	$cn3=$in{'cn3'};
-	$cg3=$in{'cg3'};
-	$cf3=$in{'cf3'};
-	$cs3=$in{'cs3'};
-	$ce3=$in{'ce3'};
-	$c3a=$in{'c3a'};
-	$cn4=$in{'cn4'};
-	$cg4=$in{'cg4'};
-	$cf4=$in{'cf4'};
-	$cs4=$in{'cs4'};
-	$ce4=$in{'ce4'};
-	$c4a=$in{'c4a'};
-	$cn5=$in{'cn5'};
-	$cg5=$in{'cg5'};
-	$cf5=$in{'cf5'};
-	$cs5=$in{'cs5'};
-	$ce5=$in{'ce5'};
-	$c5a=$in{'c5a'};
-
-	$goal_no=$in{'goal_no'};
-	$set=$in{'set'}+$time;
-
-	&cdat_write;
-
-	# ƒtƒ@ƒCƒ‹ƒAƒ“ƒƒbƒN(renameŽ®)
-	&unlock($lock) if $lock_check;
-
-	print <<EOM;
-<table border="0" cellspacing="2" cellpadding="2" align="center">
-<tr>
-<th nowrap colspan=2 align="center">ˆÈ‰º‚Ì‚Æ‚š‚è‚Ƀf[ƒ^•ÏX‚µ‚Ü‚µ‚œB</th>
-</tr>
-</table>
-
-<br><br>
-<div align="center" style="font-size:14px;color:#222244">
-Eó‘Ô >> 0:³í 1:–S‘<br>
-EŠe‘’èˆõ >> 
-EOM
-
-($limit_mode) ? print "Ž©“®ŽZo" : print "Žè“®Š„‚è“–‚Ä" ;
-
-print <<EOM;
-</div>
-<br><br>
-
-<table border="0" cellspacing="4" cellpadding="0" bgcolor="#444466" align="center">
-<tr>
-<td bgcolor="#000000" align="center" valign="top">
-
-<table border=0 cellpadding=2 cellspacing=2 width=100% align=center>
-<tr>
-<td width="72">‘–Œ</td>
-EOM
-
-	foreach(1 .. 5){
-		print qq|<td align="center" width="92">$cmp[$_]</td>\n|;
-	}
-	print <<EOM;
-</tr>
-<tr>
-<td>ó‘Ô</td>
-<td align=center>$in{'ce1'}</td>
-<td align=center>$in{'ce2'}</td>
-<td align=center>$in{'ce3'}</td>
-<td align=center>$in{'ce4'}</td>
-<td align=center>$in{'ce5'}</td>
-</tr>
-<tr>
-<td>‘‘—Í</td>
-<td>$in{'cn1'}</td>
-<td>$in{'cn2'}</td>
-<td>$in{'cn3'}</td>
-<td>$in{'cn4'}</td>
-<td>$in{'cn5'}</td>
-</tr>
-<tr>
-<td>‘‰Æ\—\\ŽZ</td>
-<td>$in{'cg1'}</td>
-<td>$in{'cg2'}</td>
-<td>$in{'cg3'}</td>
-<td>$in{'cg4'}</td>
-<td>$in{'cg5'}</td>
-</tr>
-<tr>
-<td>‘•º—Æ</td>
-<td>$in{'cf1'}</td>
-<td>$in{'cf2'}</td>
-<td>$in{'cf3'}</td>
-<td>$in{'cf4'}</td>
-<td>$in{'cf5'}</td>
-</tr>
-<tr>
-<td>‘•ºŽm”</td>
-<td>$in{'cs1'}</td>
-<td>$in{'cs2'}</td>
-<td>$in{'cs3'}</td>
-<td>$in{'cs4'}</td>
-<td>$in{'cs5'}</td>
-</tr>
-<tr>
-<td>Š‘®l”</td>
-<td align=center>$c1/$in{'c1a'}</td>
-<td align=center>$c2/$in{'c2a'}</td>
-<td align=center>$c3/$in{'c3a'}</td>
-<td align=center>$c4/$in{'c4a'}</td>
-<td align=center>$c5/$in{'c5a'}</td>
-</tr>
-</table>
-
-“ˆêŠúŒÀ:‚ ‚Æ $in{'set'} •b
-&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-Œ»Ý $in{'goal_no'} Šú
-
-</td>
-</tr>
-</table>
-</form>
-EOM
-&admin_end;
-exit;
-}
-
-#-------------------------------------------------------------------------------
-# ƒeƒ“ƒvƒŒ[ƒg
-
-# ƒwƒbƒ_[
-sub admin_head{
-
-	&error("ƒpƒXƒ[ƒh‚ªˆá‚¢‚Ü‚·I") if($in{'administrator'} ne $admin_pass);
-
-	$in{'list_sort'} = 3 if(!$in{'list_sort'});
-
-	&content_type;
-
-	print <<"EOM";
-
-<html>
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
-<title>$titleh</title>
-<style type="text/css">
-<!--
-.button1{
-	font-family: "‚l‚r ‚oƒSƒVƒbƒN", "Osaka"; font-size: 12px; font-weight: 400; color: #ddddee;
-	border: 2px #aaaabb ridge; cursor: hand; background-color: #666699;
-	width:50px;
-}
-body	{ font-size: 12px; color: #aaaab9; background-color: #ddddff; cursor: crosshair}
-table	{ background-color: #666699;}
-td		{ font-size: 14px; color: #222244; background-color: #eeeeff; cursor: crosshair}
-th		{ font-size: 12px; color: #eeeeff; background-color: #222244; font-weight:400}
-
--->
-</style>
-</head>
-
-<body bgcolor="#000000" text="#999999" link="#333399" vlink="#333399" alink="#333399">
-EOM
-}
-
-# ƒtƒbƒ^[
-sub admin_end{
-		print <<"EOM";
-<br><br><br>
-<table border="0" cellspacing="2" cellpadding="2" bgcolor="#9999CC" align="center">
-<tr>
-<td valign="middle" align="center" nowrap style="color:ddddee;font-size:14px;background-color:#333399">
-ß‚Æ”±++ “ñ—¥”w”œ@ŠÇ—ŽÒ‹@\”\\ $ver@‚ÌŽg‚¢•û
-</td>
-</tr>
-<tr>
-<td bgcolor="#DDDDEE" valign="middle" align="left" nowrap style="line-height:20px; font-size:12px">
->> Šeˆ—‚ɏڍׂȃGƒ‰[ˆ—‚͍s‚È‚Á‚Ä‚¢‚Ü‚¹‚ñBƒf[ƒ^‘‚«Š·‚Š“™‚͐Td‚ɍs‚È‚Á‚Ä‚­‚Ÿ‚³‚¢B<br>
->> ŠeƒLƒƒƒ‰‚Ì<b>[ÛžÞ²Ý]</b>ƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚·‚é‚ƁA‚»‚̃Lƒƒƒ‰‚ɃƒOƒCƒ“‚Å‚«‚Ü‚·B<br>
->> ŠeƒLƒƒƒ‰‚Ì<b>[ •ÒW ]</b>ƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚·‚é‚ƁAƒLƒƒƒ‰ƒf[ƒ^•ÒW‰æ–ʂɈړ®‚µ‚Ü‚·B<br>
-&nbsp;&nbsp;&nbsp;&nbsp;EƒLƒƒƒ‰ƒf[ƒ^‚ÌID‚ð•ÏX‚·‚é‚ƃLƒƒƒ‰ƒf[ƒ^ƒtƒ@ƒCƒ‹–Œ‚à•ÏX‚³‚ê‚Ü‚·B<br>
->> ŠeƒLƒƒƒ‰‚̍¶’[<b>[ íœ ]</b>ƒ`ƒFƒbƒNƒ{ƒbƒNƒX‚Ƀ`ƒFƒbƒN‚ð“ü‚êA‰ºƒƒjƒ…[‚Ì<b>[ƒLƒƒƒ‰íœ]</b>ƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚·‚é‚Æ‘I‘ð‚µ‚œƒLƒƒƒ‰‚ªíœ‚³‚ê‚Ü‚·B<br>
->> ‰ºƒƒjƒ…[‚Ì<b>[‘ƒf[ƒ^•ÒW]</b>ƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚·‚é‚ÆŒ»Ý‚̍‘ƒf[ƒ^‚ð•ÒW‚Å‚«‚Ü‚·B<br>
-&nbsp;&nbsp;&nbsp;&nbsp;E’èˆõl”‚ÌŽw’è‚Íore_config.cgi‚Ì<b>[\$limit_mode]</b>’l‚ª—Dæ‚³‚ê‚Ü‚·B<br>
->> ‰ºƒƒjƒ…[‚Ì<b>[‘ƒf[ƒ^‰Šú‰»]</b>ƒ{ƒ^ƒ“‚ðƒNƒŠƒbƒN‚·‚é‚ÆŒ»Ý‚̍‘ƒf[ƒ^‚ª‰Šú‰»‚³‚ê‚Ü‚·B<br>
->> CGIŽÀs‚Ƀ†[ƒU[Œ ŒÀ‚ª‚È‚¢ƒT[ƒo‚ł̓Lƒƒƒ‰ƒf[ƒ^ƒtƒ@ƒCƒ‹‚ƃoƒbƒNƒAƒbƒvƒtƒ@ƒCƒ‹‚ªíœ‚Å‚«‚È‚¢ê‡‚́A‚±‚ÌŠÇ—ŽÒ‹@\”\\‚©‚çíœ‚ðs‚Á‚Ä‚­‚Ÿ‚³‚¢B<br>
-&nbsp;&nbsp;&nbsp;&nbsp;E‰ºƒƒjƒ…[‚Ì<b>[·¬×ÃÞ°ÀˆêŠ‡íœ]</b>‚ðƒNƒŠƒbƒN‚·‚é‚Æ‘SƒLƒƒƒ‰ƒf[ƒ^‚ðˆêŠ‡íœ‚µ‚Ü‚·B<br>
-&nbsp;&nbsp;&nbsp;&nbsp;E‰ºƒƒjƒ…[‚Ì<b>[ÊÞ¯ž±¯Ì߈ꊇíœ]</b>‚ðƒNƒŠƒbƒN‚·‚é‚Æ‘SƒoƒbƒNƒAƒbƒvƒf[ƒ^‚ðˆêŠ‡íœ‚µ‚Ü‚·B<br>
-</td>
-</tr>
-<tr>
-<td bgcolor="#DDDDEE" valign="middle" align="center" nowrap style="font-size:12px">
-ß‚Æ”±++ “ñ—¥”w”œ@ŠÇ—ŽÒ‹@\”\\ $ver@<a href="http://pom.to/" target="_blank">BLANK BOARD[‚Ë‚Á‚Æ—V‰€’nô]</a>@<a href="http://www17.big.or.jp/~obochan/vivid/" target="_blank">Vivid Studio.</a>
-</td>
-</tr>
-</table>
-</body>
-</html>
-EOM
+#!/usr/bin/perl
+# サヌバヌの環境に合わせお倉曎しお䞋さい。
+require './ore_config.cgi';				# ore_.pl의 팚슀
+#-----------------------------------------------------------#
+#  眪ず眰++ 二埋背反										#
+#  ꎀ늬자 Ʞ능												#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+$ver	= 'v1.1';				# 버전 정볎는 변겜 불가
+#--- [泚意事項] --------------------------------------------#
+# 1.このスクリプトは以䞋の利甚芏皋に埓っお配垃しおいたす。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+# 以䞋凊理 基本的にこれ以䞋はいじらないように。
+
+&get_time;	# 日時取埗
+&decode;	# フォヌムデコヌド
+&axs_check;	# アクセスチェック
+&usr_del		if($mode eq 'usr_del');			# キャラ削陀
+&usr_regist		if($mode eq 'usr_regist');		# キャラデヌタ倉曎
+&usr_regist2	if($mode eq 'usr_regist2');		# キャラデヌタ倉曎2
+&cdat_regist	if($mode eq 'cdat_regist');		# 囜デヌタ倉曎
+&cdat_regist2	if($mode eq 'cdat_regist2');	# 囜デヌタ倉曎2
+&rd_usrdata		if($mode eq 'rd_usrdata');		# $usrdata内ファむル党削陀
+&rd_backdata	if($mode eq 'rd_backdata');		# $backdata内ファむル党削陀
+&cdata_reset	if($mode eq 'cdata_reset');		# 囜パラメヌタ初期化
+&restore_all_usr if($mode eq 'restore_all_usr');# 党参加者ログ䞀括埩旧(バックアップデヌタ差し替え)
+&restore_person	if($mode eq 'restore_person');	# 個別党参加者ログ埩旧(バックアップデヌタ差し替え)
+&restore_cdat	if($mode eq 'restore_cdat');	# 囜ログ埩旧(バックアップデヌタ差し替え)
+&usr_list;	# キャラリスト衚瀺
+
+exit;
+
+#-------------------------------------------------------------------------------
+# キャラリスト衚瀺
+sub usr_list{
+
+	&admin_head;
+
+if($comment){
+	print <<"EOM";
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap align="left">$comment</th>
+</tr>
+</table>
+<br>
+EOM
+}
+	print <<EOM;
+<form method="$method" action="$ore_admin" name="ore_admin">
+<input type="hidden" name="administrator" value="$in{'administrator'}">
+<input type="hidden" name="list_sort" value="$in{'list_sort'}">
+<input type="hidden" name="list_view" value="$in{'list_view'}">
+<input type="hidden" name="mode" value="usr_del">
+
+<table width="100%" border="0" cellspacing="2" cellpadding="2">
+<tr>
+<th nowrap colspan=4>정렬</th>
+<th nowrap colspan=7>데읎터 표시</th>
+</tr>
+<tr>
+<td nowrap><input class="button1" type="button" style="width:20px" value="묎" onClick="location.href='$ore_admin?administrator=$in{'administrator'}'"></td>
+<td nowrap><input class="button1" type="button" value="레벚" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=4&list_view=$in{'list_view'}'"></td>
+<td nowrap><input class="button1" type="button" value="IP 죌소" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=15&list_view=$in{'list_view'}'"></td>
+<td nowrap><input class="button1" type="button" value="최종 갱신" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=18&list_view=$in{'list_view'}'"></td>
+
+<td nowrap><input class="button1" type="button" value="전첎 표시" style="width:80px"onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=-1'"></td>
+<td nowrap><input class="button1" type="button" value="$cmp[0]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=-5'"></td>
+<td nowrap><input class="button1" type="button" value="$cmp[1]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=1'"></td>
+<td nowrap><input class="button1" type="button" value="$cmp[2]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=2'"></td>
+<td nowrap><input class="button1" type="button" value="$cmp[3]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=3'"></td>
+<td nowrap><input class="button1" type="button" value="$cmp[4]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=4'"></td>
+<td nowrap><input class="button1" type="button" value="$cmp[5]" style="width:80px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=5'"></td>
+</tr>
+</table>
+<br>
+EOM
+
+	if($in{'list_view'}){
+
+		print <<EOM;
+<table width="100%" border="0" cellspacing="2" cellpadding="2">
+<tr>
+<th nowrap>삭제</th>
+<th nowrap>로귞읞</th>
+<th nowrap>펞집</th>
+<th nowrap>읎늄</th>
+<th nowrap>ID</th>
+<th nowrap>비밀번혞</th>
+<th nowrap>성별</th>
+<th nowrap>레벚</th>
+<th nowrap>소속</th>
+<th nowrap>HP</th>
+<th nowrap>MP</th>
+<th nowrap>UA</th>
+<th nowrap>UD</th>
+<th nowrap>LR</th>
+<th nowrap>AG</th>
+<th nowrap>소지ꞈ</th>
+<th nowrap>계꞉</th>
+<th nowrap>행동</th>
+<th nowrap>최종 로귞읞</th>
+<th nowrap>IP 죌소</th>
+<th nowrap>혞슀튞명</th>
+<th nowrap>람띌우저</th>
+</tr>
+EOM
+
+	# 参加者デヌタファむル䞀芧取埗
+	&usrdata_read;
+
+	# 参加者デヌタ䞀括読み蟌み
+	foreach (0 .. $#usrfile) {
+		open(IN,"$usrdata$usrfile[$_]") || &error("Can't open $usrfile[$_]");
+		@line = <IN>;
+		close(IN);
+		push(@dat,$line[0]);
+		push(@dat2,$line[1]);
+	}
+
+	local(@usr_data);
+
+	foreach (0 .. $#dat){
+		%DAT = '';
+		my @prats = split(/,/,$dat[$_]);
+		foreach (0 .. $#prats){
+			my ($key,$v) = split(/;/,$prats[$_]);
+			$DAT{$key} = $v;
+		}
+
+		my @y1 = split(/<>/,$dat2[$_]);
+
+		$in{'list_view'}=0 if($in{'list_view'}==-5);
+
+		if($in{'list_view'} eq $DAT{'camp'} || $in{'list_view'} eq -1){
+			$id = $DAT{'id'};
+			# ハッシュ読み蟌み
+			&hash_data;
+
+			push(@usr_data,"$nm<>$id<>$pw<>$sei<>$lv<>$camp<>$max_hp<>$max_mp<>$ua<>$ud<>$lr<>$gold<>$rank<>$sogo<>$y1[0]<>$y1[1]<>$y1[2]<>$y1[3]<>$la<>$ag<>$type<>");
+		}
+	}
+
+	@usr_data = @{&csvsort('<>',$in{'list_sort'},@usr_data)};
+
+	foreach(0 .. $#usr_data){
+		my @y2 = split(/<>/,$usr_data[$_]);
+
+		$y2_0 = (!$y2[13]) ? "$y2[0]" : "$y2[0] [$sogo_p[$y2[13]]]" ;
+		$y2[14] ="" if($y2[14] =~ /date/);
+		$y2[20] = "대Ʞ쀑" if(!$y2[20]);
+		print <<"EOM";
+<tr>
+<td nowrap><input type="checkbox" name="usr_del"value="$y2[1]"></td>
+<td nowrap><input class="button1" type="button" value="로귞읞" onClick="window.open('$script?id=$y2[1]&pw=$in{'administrator'}')"></td>
+<td nowrap><input class="button1" type="button" value="펞집" onClick="window.open('$ore_admin?id=$y2[1]&administrator=$in{'administrator'}&mode=usr_regist')"></td>
+<td nowrap>$y2_0</td>
+<td nowrap>$y2[1]</td>
+<td nowrap>$y2[2]</td>
+<td nowrap>$seibetu[$y2[3]]</td>
+<td nowrap>$y2[4]</td>
+<td nowrap>$cmp[$y2[5]]</td>
+<td nowrap>$y2[6]</td>
+<td nowrap>$y2[7]</td>
+<td nowrap>$y2[8]</td>
+<td nowrap>$y2[9]</td>
+<td nowrap>$y2[10]</td>
+<td nowrap>$y2[19]</td>
+<td nowrap>$y2[11]</td>
+<td nowrap>$cl[$y2[12]]</td>
+<td nowrap>$y2[20]</td>
+<td nowrap>$y2[14]</td>
+<td nowrap>$y2[15]</td>
+<td nowrap>$y2[16]</td>
+<td nowrap>$y2[17]</td>
+</tr>
+EOM
+		}
+	}
+	print <<"EOM";
+</table>
+<br><br>
+<table width="100%" border="0" cellspacing="2" cellpadding="2">
+<tr>
+<th nowrap>캐늭터 삭제</th>
+<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
+<th nowrap>국가 데읎터 펞집</th>
+
+<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
+<th nowrap>국가 데읎터 늬셋</th>
+
+<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
+<th nowrap colspan="2">Warning!! 디렉터늬/데읎터 전첎 삭제</th>
+</tr>
+<tr>
+<td nowrap align="center"><input class="button1" type="submit" value="캐늭터 삭제" style="width:80px"></td>
+<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
+
+<td nowrap align="center"><input class="button1" type="button" value="국가 데읎터 펞집" style="width:80px" onClick="window.open('$ore_admin?administrator=$in{'administrator'}&mode=cdat_regist')"></td>
+<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
+
+<td nowrap align="center"><input class="button1" type="button" value="국가 데읎터 늬셋" style="width:100px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=$in{'list_view'}&mode=cdata_reset'"></td>
+<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
+
+<td nowrap align="center"><input class="button1" type="button" value="캐늭터 데읎터 음ꎄ 삭제" style="width:120px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=$in{'list_view'}&mode=rd_usrdata'"></td>
+<td nowrap align="center"><input class="button1" type="button" value="백업 음ꎄ 삭제" style="width:120px" onClick="location.href='$ore_admin?administrator=$in{'administrator'}&list_sort=$in{'list_sort'}&list_view=$in{'list_view'}&mode=rd_backdata'"></td>
+</tr>
+</table>
+</form>
+
+<br>
+
+<table width="100%" border="0" cellspacing="2" cellpadding="2">
+<tr>
+<th nowrap colspan="5">캐늭터 로귞 개별 복구</th>
+<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</td>
+<th nowrap colspan="3">전첎 캐늭터 로귞 복구</th>
+<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</td>
+<th nowrap colspan="3">국가 로귞 복구</th>
+</tr>
+<tr>
+
+<form method="$method" action="$ore_admin" name="ore_admin">
+<input type="hidden" name="administrator" value="$in{'administrator'}">
+<input type="hidden" name="list_sort" value="$in{'list_sort'}">
+<input type="hidden" name="list_view" value="$in{'list_view'}">
+<input type="hidden" name="mode" value="restore_person">
+
+<td nowrap>ID</td>
+<td nowrap>
+<select name="restore_usr" class="button1" type="button" style="width:110px">
+EOM
+	foreach(1 .. $#usrfile){
+		print qq|<option value="$usrfile[$_]"|;
+		print qq|>$usrfile[$_]\n|;
+	}
+	print <<"EOM";
+</select>
+</td>
+<td nowrap>음시</td>
+<td nowrap>
+<select name="restore_date" class="button1" type="button" style="width:130px">
+EOM
+	foreach(0 .. $#week){
+
+		if(-e "$backdata$week[$_]\.cgi"){
+			my $bk_time = (stat("$backdata$week[$_]\.cgi"))[9];
+			my($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime($bk_time);
+			$min = "0$min" if($min<10);
+			$sec = "0$sec" if($sec<10);
+			$month++;
+			my $date_bk = "$month/$mday($week[$wday]) $hour:$min:$sec";
+	
+			print qq|<option value="$backdata$week[$_]\.cgi"|;
+			print qq|>$date_bk\n|;
+		}
+	}
+	print <<"EOM";
+</select>
+</td>
+<td nowrap align="center"><input class="button1" type="submit" value="복 구" style="width:60px"></td>
+
+</form>
+
+<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</td>
+
+<form method="$method" action="$ore_admin" name="ore_admin">
+<input type="hidden" name="administrator" value="$in{'administrator'}">
+<input type="hidden" name="list_sort" value="$in{'list_sort'}">
+<input type="hidden" name="list_view" value="$in{'list_view'}">
+<input type="hidden" name="mode" value="restore_all_usr">
+
+<td nowrap>음시</td>
+<td nowrap>
+<select name="restore_date" class="button1" type="button" style="width:130px">
+EOM
+	foreach(0 .. $#week){
+
+		if(-e "$backdata$week[$_]\.cgi"){
+			my $bk_time = (stat("$backdata$week[$_]\.cgi"))[9];
+			my($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime($bk_time);
+			$min = "0$min" if($min<10);
+			$sec = "0$sec" if($sec<10);
+			$month++;
+			my $date_bk = "$month/$mday($week[$wday]) $hour:$min:$sec";
+	
+			print qq|<option value="$backdata$week[$_]\.cgi"|;
+			print qq|>$date_bk\n|;
+		}
+	}
+	print <<"EOM";
+</select>
+</td>
+<td nowrap align="center"><input class="button1" type="submit" value="복 구" style="width:60px"></td>
+
+</form>
+
+<td nowrap>&nbsp;&nbsp;&nbsp;&nbsp;</td>
+
+<form method="$method" action="$ore_admin" name="ore_admin">
+<input type="hidden" name="administrator" value="$in{'administrator'}">
+<input type="hidden" name="list_sort" value="$in{'list_sort'}">
+<input type="hidden" name="list_view" value="$in{'list_view'}">
+<input type="hidden" name="mode" value="restore_cdat">
+
+<td nowrap>음시</td>
+<td nowrap>
+<select name="restore_date" class="button1" type="button" style="width:110px">
+EOM
+
+	open (IN,"$histfile") || &error("Open error : $histfile");
+	my @hist_dat = <IN>;
+	close(IN)    or die "Can't close   : $!";
+
+	foreach(0 .. $#hist_dat){
+		my @y1 = split(/,/,$hist_dat[$_]);
+		$y1[42]	=~ s/date;//g;
+		print qq|<option value="$_">$y1[42]\n|;
+	}
+	print <<"EOM";
+</select>
+</td>
+<td nowrap align="center"><input class="button1" type="submit" value="복 구" style="width:60px"></td>
+
+</form>
+
+</tr>
+</table>
+<br>
+
+EOM
+	&admin_end;
+	exit;
+}
+
+# 個別参加者ログ埩旧(バックアップデヌタ差し替え)
+sub restore_person{
+
+	&error("비밀번혞가 틀늜니닀!") if($in{'administrator'} ne $admin_pass);
+
+	# ファむルロック(rename匏)
+	$lock		= &lock if $lock_check;
+
+	open(IN,"$in{'restore_date'}") || &error("Open Error : $in{'restore_date'}",1);
+	my @tdat = <IN>;
+	close(IN);
+
+	$in{'restore_usr'} =~ s/\.cgi//g;
+
+	foreach (0 .. $#tdat){
+
+		%R = '';
+		my @prats = split(/,/,$tdat[$_]);
+		foreach $prats (@prats){
+			my($y,$x) = split(/;/,$prats);
+			$R{$y} = $x;
+
+			if($in{'restore_usr'} eq $R{'id'}){
+				open (OUT,">$usrdata$R{'id'}\.cgi") || &error("open error:$usrdata$R{'id'}\.cgi",1);
+				print OUT $tdat[$_];
+				close(OUT)		or die "Can't close   : $!";
+			}
+		}
+	}
+
+	&unlock($lock) if $lock_check;
+
+	$comment ="$in{'restore_date'}로부터 $usrdata$in{'restore_usr'}\.cgi 복구 완료";
+
+}
+
+# 党参加者ログ䞀括埩旧(バックアップデヌタ差し替え)
+sub restore_all_usr{
+
+	&error("비밀번혞가 틀늜니닀!") if($in{'administrator'} ne $admin_pass);
+
+	# ファむルロック(rename匏)
+	$lock		= &lock if $lock_check;
+
+	open(IN,"$in{'restore_date'}") || &error("Open Error : $in{'restore_date'}",1);
+	my @tdat = <IN>;
+	close(IN);
+
+	foreach (0 .. $#tdat){
+
+		%R = '';
+		my @prats = split(/,/,$tdat[$_]);
+		foreach $prats (@prats){
+			my($y,$x) = split(/;/,$prats);
+			$R{$y} = $x;
+		}
+
+		open (OUT,">$usrdata$R{'id'}\.cgi") || &error("open error:$usrdata$R{'id'}\.cgi",1);
+		print OUT $tdat[$_];
+		close(OUT)		or die "Can't close   : $!";
+
+	}
+
+	&unlock($lock) if $lock_check;
+
+	$comment ="$in{'restore_date'}에 포핚된 전첎 캐늭터 복구 완료";
+
+}
+
+# 囜ログ埩旧(バックアップデヌタ差し替え)
+sub restore_cdat{
+
+	# ファむルロック(rename匏)
+	$lock		= &lock if $lock_check;
+
+	open (IN,"$histfile") || &error("Open error : $histfile");
+	my @hist_dat = <IN>;
+	close(IN)    or die "Can't close   : $!";
+
+	foreach(0 .. $#hist_dat){
+		my @y1 = split(/,/,$hist_dat[$_]);
+		$y1[42]	=~ s/date;//g;
+		print qq|<option value="$_">$y1[42]\n|;
+	}
+
+	&error("비밀번혞가 틀늜니닀!") if($in{'administrator'} ne $admin_pass);
+
+	open(IN,"$histfile") || &error("Open Error : $histfile",1);
+	@hist_dat = <IN>;
+	close(IN);
+
+	open (OUT,">$cdatfile") || &error("open error:$cdatfile",1);
+	print OUT $hist_dat[$_];
+	close(OUT)		or die "Can't close   : $!";
+
+	&unlock($lock) if $lock_check;
+
+	$comment ="$cdatfile 복구 완료";
+
+}
+
+#-------------------------------------------------------------------------------
+# 配列゜ヌト凊理
+sub csvsort{
+	local $key=shift;
+	local $field=shift;
+	local @in=@_;
+	local @usr_data;
+	@usr_data=map{$_->[0]}sort{$a->[1]<=>$b->[1]}map{[$_,(split /$key/) [$field]]}@in;
+	return \@usr_data;
+}
+
+#-------------------------------------------------------------------------------
+# 各皮削陀凊理
+
+# キャラ別削陀
+sub usr_del{
+	&error("비밀번혞가 틀늜니닀!") if($in{'administrator'} ne $admin_pass);
+	foreach(0 .. $#USR_DEL){
+		unlink("$usrdata$USR_DEL[$_]\.cgi") || &error("$usrdata$USR_DEL[$_]\.cgi 파음을 삭제할 수 없습니닀.");
+		$comment.="$usrdata$USR_DEL[$_]\.cgi 삭제 완료<br>";
+	}
+}
+# $usrdata内ファむル党削陀
+sub rd_usrdata{
+	&error("비밀번혞가 틀늜니닀!") if($in{'administrator'} ne $admin_pass);
+
+	&usrdata_read;
+	my $flag=0;
+	$comment ="$usrdata 에 포핚된 몚든 파음 삭제 완료<hr>";
+	foreach(0 .. $#usrfile){
+		unlink("$usrdata$usrfile[$_]");
+		$comment .="[ $usrdata$usrfile[$_] ] ";
+		$flag++;
+		if($flag>=6){
+			$comment .="<br>";
+			$flag=0;
+		}
+	}
+}
+# $backdata内ファむル党削陀
+sub rd_backdata{
+	&error("비밀번혞가 틀늜니닀!") if($in{'administrator'} ne $admin_pass);
+
+	$comment ="$backdata 에 포핚된 몚든 파음 삭제 완료<hr>";
+	my $flag=0;
+	foreach(0 .. $#week){
+		unlink("$backdata$week[$_]\.cgi");
+		$comment .="[ $backdata$week[$_]\.cgi ] ";
+		$flag++;
+		if($flag>=6){
+			$comment .="<br>";
+			$flag=0;
+		}
+	}
+}
+
+#-------------------------------------------------------------------------------
+# 囜デヌタ初期化
+sub cdata_reset{
+	&error("비밀번혞가 틀늜니닀!") if($in{'administrator'} ne $admin_pass);
+
+	$lock		= &lock if $lock_check;
+
+	&cdata_open;
+
+	require './inc/ore_sub-main_reset.cgi';&reset_cdat;
+
+	&cdat_write;
+
+	&unlock($lock) if $lock_check;
+
+	$comment = "국가 데읎터륌 쎈Ʞ화했습니닀.<br>";
+}
+
+#-------------------------------------------------------------------------------
+# キャラデヌタ倉曎
+
+# 曞き換え画面
+sub usr_regist{
+
+	&admin_head;
+	&settei;
+
+	# 参加者デヌタ䞀括読み蟌み
+	open(IN,"$usrdata$id\.cgi") || &error("Open Error : $usrdata$id\.cgi",1);
+	@dat = <IN>;
+	close(IN);
+
+	%DAT = '';
+	my @prats = split(/,/,$dat[0]);
+	foreach (0 .. $#prats){
+		my ($key,$v) = split(/;/,$prats[$_]);
+		$DAT{$key} = $v;
+	}
+
+	# ハッシュ読み蟌み
+	&hash_data;
+
+	print <<"EOM";
+<form method="$method" action="$ore_admin" name="ore_admin">
+<input type="hidden" name="administrator" value="$in{'administrator'}">
+<input type="hidden" name="mode" value="usr_regist2">
+<input type="hidden" name="id_old" value="$id">
+
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap colspan=2 align="center">데읎터 변겜</th>
+</tr>
+<tr>
+<td nowrap><input class="button1" type="submit" value="수정하Ʞ"></td>
+<td nowrap><input class="button1" type="reset" value="되돌늬Ʞ"></td>
+</tr>
+</table>
+
+<br><br>
+
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap>읎늄</th>
+<th nowrap>ID</th>
+<th nowrap>비밀번혞</th>
+<th nowrap>성별</th>
+<th nowrap>레벚</th>
+<th nowrap>소속</th>
+</tr>
+<tr>
+<td nowrap><input type="text" name="nm" value="$nm" style="width:100px"></td>
+<td nowrap><input type="text" name="id" value="$id" style="width:100px"></td>
+<td nowrap><input type="text" name="pw" value="$pw" style="width:80px"></td>
+
+<td nowrap>
+<select name="sei">
+EOM
+	foreach(1 .. $#seibetu){
+		print "<option value=$_";
+		print " selected" if($sei==$_);
+		print ">$_:$seibetu[$_]\n";
+	}
+	print <<"EOM";
+</select>
+</td>
+
+<td nowrap><input type="text" name="lv" value="$lv" style="width:30px"></td>
+
+<td nowrap>
+<select name="camp">
+EOM
+	foreach(0 .. $#cmp){
+		print "<option value=$_";
+		print " selected" if($camp==$_);
+		print ">$_:$cmp[$_]\n";
+	}
+	print <<"EOM";
+</select>
+</td>
+
+</tr>
+</table>
+
+<br>
+
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap>HP</th>
+<th nowrap>MP</th>
+<th nowrap>UA</th>
+<th nowrap>UD</th>
+<th nowrap>LR</th>
+<th nowrap>AG</th>
+<th nowrap>GOLD</th>
+<th nowrap>계꞉</th>
+<th nowrap>칭혞</th>
+<th nowrap>토벌 횟수</th>
+</tr>
+<tr>
+</td>
+<td nowrap><input type="text" name="max_hp" value="$max_hp" style="width:40px"></td>
+<td nowrap><input type="text" name="max_mp" value="$max_mp" style="width:40px"></td>
+<td nowrap><input type="text" name="ua" value="$ua" style="width:30px"></td>
+<td nowrap><input type="text" name="ud" value="$ud" style="width:30px"></td>
+<td nowrap><input type="text" name="lr" value="$lr" style="width:30px"></td>
+<td nowrap><input type="text" name="ag" value="$ag" style="width:30px"></td>
+<td nowrap><input type="text" name="gold" value="$gold" style="width:80px"></td>
+
+<td nowrap>
+<select name="rank">
+EOM
+	foreach(0 .. $#cl){
+		print "<option value=$_";
+		print " selected" if($rank==$_);
+		print ">$_:$cl[$_]\n";
+	}
+	print <<"EOM";
+</select>
+</td>
+
+<td nowrap>
+<select name="sogo">
+EOM
+	foreach(0 .. $#sogo_p){
+		print "<option value=$_";
+		print " selected" if($sogo==$_);
+		print ">$_:$sogo_p[$_]\n";
+	}
+	print <<"EOM";
+</select>
+</td>
+
+<td nowrap><input type="text" name="we" value="$we" style="width:30px"></td>
+
+</tr>
+</table>
+
+<br>
+
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap colspan="2">묎구</th>
+<th nowrap colspan="2">방얎구</th>
+<th nowrap colspan="2">도구</th>
+</tr>
+<tr>
+
+<td nowrap>
+<select name="dg_a">
+EOM
+	foreach(0 .. $#dg_data){
+		print "<option value=$_";
+		print " selected" if($dg_a==$_);
+		print ">$_:$dg_data[$_][1]\n";
+	}
+	print <<"EOM";
+</select>
+</td>
+<td nowrap>낚음 <input type="text" name="dg_cnt" value="$dg_cnt" style="width:30px"></td>
+
+<td nowrap>
+<select name="df_a">
+EOM
+	foreach(0 .. $#df_data){
+		print "<option value=$_";
+		print " selected" if($df_a==$_);
+		print ">$_:$df_data[$_][1]\n";
+	}
+	print <<"EOM";
+</select>
+</td>
+<td nowrap>낚음 <input type="text" name="df_cnt" value="$df_cnt" style="width:30px"></td>
+
+<td nowrap>
+<select name="di_a">
+EOM
+	foreach(0 .. $#di_data){
+		print "<option value=$_";
+		print " selected" if($di_a==$_);
+		print ">$_:$di_data[$_][1]\n";
+	}
+	print <<"EOM";
+</select>
+</td>
+<td nowrap>낚음 <input type="text" name="di_cnt" value="$di_cnt" style="width:30px"></td>
+
+</tr>
+</table>
+
+<br>
+
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap>행동 플래귞 늬셋</th>
+<th nowrap>행동 ì„žì…˜</th>
+<th nowrap>행동 판정</th>
+<th nowrap>행동 판정</th>
+<th nowrap>전투 판별</th>
+<th nowrap>대전자</th>
+<th nowrap>구속 시간</th>
+<th nowrap>대상국</th>
+</tr>
+<tr>
+</td>
+<td nowrap>에러 발생 시 각 값 0 또는 삭제</td>
+<td nowrap><input type="text" name="act_cnt" value="$act_cnt" style="width:30px"></td>
+<td nowrap><input type="text" name="type" value="$type" style="width:60px"></td>
+<td nowrap><input type="text" name="tm" value="$tm" style="width:30px"></td>
+<td nowrap><input type="text" name="ck" value="$ck" style="width:30px"></td>
+<td nowrap><input type="text" name="bt" value="$bt" style="width:30px"></td>
+<td nowrap><input type="text" name="pr" value="$pr" style="width:50px"></td>
+<td nowrap><input type="text" name="nation" value="$nation" style="width:30px"></td>
+</tr>
+</table>
+
+<br>
+
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap>정볎 조회 시 표시되는 한마디(전각 40자까지)</th>
+</tr>
+<tr>
+</td>
+<td nowrap><input type="text" name="info_mes" value="$info_mes" style="width:400px"></td>
+</tr>
+</table>
+
+</form>
+EOM
+&admin_end;
+exit;
+}
+
+# 曞き換え凊理結果
+sub usr_regist2{
+
+	&admin_head;
+
+	# ファむルロック(rename匏)
+	$lock		= &lock if $lock_check;
+
+	# 参加者デヌタ䞀括読み蟌み
+	open(IN,"$usrdata$in{'id_old'}\.cgi") || &error("캐늭터 데읎터륌 ì—Ž 수 없습니닀[$in{'id_old'}]",1);
+	@dat = <IN>;
+	close(IN);
+
+	%DAT = '';
+	my @prats = split(/,/,$dat[0]);
+	foreach (0 .. $#prats){
+		my ($key,$v) = split(/;/,$prats[$_]);
+		$DAT{$key} = $v;
+	}
+
+	# ハッシュ読み蟌み
+	&hash_data;
+
+	$dat[0] = "la;$la,nm;$in{'nm'},pw;$in{'pw'},id;$in{'id'},sei;$in{'sei'},type;$in{'type'},age_time;$age_time,act_cnt;$in{'act_cnt'},hp;$hp,max_hp;$in{'max_hp'},lv;$in{'lv'},mp;$mp,max_mp;$in{'max_mp'},rank;$in{'rank'},ua;$in{'ua'},ud;$in{'ud'},lr;$in{'lr'},ag;$in{'ag'},ck;$in{'ck'},tm;$in{'tm'},bt;$in{'bt'},bst;$in{'bst'},exe;$exe,rank_exe;$rank_exe,sol;$sol,sol_lv;$sol_lv,nation;$in{'nation'},we;$in{'we'},camp;$in{'camp'},pr;$in{'pr'},tnm;$tnm,tid;$tid,thp;$thp,tlr;$tlr,tsol;$tsol,tsg;$tsg,tsol_lv;$tsol_lv,b_n;$b_n,b_v;$b_v,thp_max;$thp_max,tlv;$tlv,tdg_a;$tdg_a,tdf_a;$tdf_a,tua;$tua,tud;$tud,tmp;$tmp,tcp;$tcp,gold;$in{'gold'},roku;$roku,dg_a;$in{'dg_a'},dg_cnt;$in{'dg_cnt'},df_a;$in{'df_a'},df_cnt;$in{'df_cnt'},di_a;$in{'di_a'},di_cnt;$in{'di_cnt'},sogo;$in{'sogo'},mes;$mes,info_mes;$in{'info_mes'},\n";
+
+	open (OUT,">$usrdata$in{'id_old'}\.cgi") || &error("캐늭터 데읎터륌 ì—Ž 수 없습니닀[$in{'id_old'}]",1);
+	print OUT @dat;
+	close(OUT)		or die "Can't close   : $!";
+
+	if($in{'id_old'} ne $in{'id'}){rename("$usrdata$in{'id_old'}\.cgi","$usrdata$in{'id'}\.cgi") || &error("파음명을 ID명윌로 변겜할 수 없습니닀.",1);}
+
+	# ファむルアンロック(rename匏)
+	&unlock($lock) if $lock_check;
+
+	print <<"EOM";
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap colspan=2 align="center">닀음곌 같읎 데읎터륌 변겜했습니닀.</th>
+</tr>
+</table>
+
+<br><br>
+
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap>읎늄</th>
+<th nowrap>ID</th>
+<th nowrap>비밀번혞</th>
+<th nowrap>성별</th>
+<th nowrap>레벚</th>
+<th nowrap>소속</th>
+</tr>
+<tr>
+<td nowrap>$in{'nm'}</td>
+<td nowrap>$in{'id'}</td>
+<td nowrap>$in{'pw'}</td>
+<td nowrap>$in{'sei'}</td>
+<td nowrap>$in{'lv'}</td>
+<td nowrap>$in{'camp'}</td>
+</tr>
+</table>
+
+<br>
+
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap>HP</th>
+<th nowrap>MP</th>
+<th nowrap>UA</th>
+<th nowrap>UD</th>
+<th nowrap>LR</th>
+<th nowrap>AG</th>
+<th nowrap>GOLD</th>
+<th nowrap>계꞉</th>
+<th nowrap>칭혞</th>
+<th nowrap>토벌 횟수</th>
+</tr>
+<tr>
+<td nowrap>$in{'max_hp'}</td>
+<td nowrap>$in{'max_mp'}</td>
+<td nowrap>$in{'ua'}</td>
+<td nowrap>$in{'ud'}</td>
+<td nowrap>$in{'lr'}</td>
+<td nowrap>$in{'ag'}</td>
+<td nowrap>$in{'gold'}</td>
+<td nowrap>$in{'rank'}</td>
+<td nowrap>$in{'sogo'}</td>
+<td nowrap>$in{'we'}</td>
+</tr>
+</table>
+
+<br>
+
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap colspan="2">묎구</th>
+<th nowrap colspan="2">방얎구</th>
+<th nowrap colspan="2">도구</th>
+</tr>
+<tr>
+<td nowrap>$in{'dg_a'}</td>
+<td nowrap>낚음 $in{'dg_cnt'}</td>
+<td nowrap>$in{'df_a'}</td>
+<td nowrap>낚음 $in{'df_cnt'}</td>
+<td nowrap>$in{'di_a'}</td>
+<td nowrap>낚음 $in{'di_cnt'}</td>
+</tr>
+</table>
+
+<br>
+
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap>행동 ì„žì…˜</th>
+<th nowrap>행동 판정</th>
+<th nowrap>행동 판정</th>
+<th nowrap>전투 판별</th>
+<th nowrap>대전자</th>
+<th nowrap>구속 시간</th>
+<th nowrap>대상국</th>
+</tr>
+<tr>
+<td nowrap>$in{'act_cnt'}</td>
+<td nowrap>$in{'type'}</td>
+<td nowrap>$in{'tm'}</td>
+<td nowrap>$in{'ck'}</td>
+<td nowrap>$in{'bt'}</td>
+<td nowrap>$in{'pr'}</td>
+<td nowrap>$in{'nation'}</td>
+</tr>
+</table>
+
+<br>
+
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap>정볎 조회 시 표시되는 한마디(전각 40자까지)</th>
+</tr>
+<tr>
+</td>
+<td nowrap>$info_mes</td>
+</tr>
+</table>
+
+EOM
+&admin_end;
+exit;
+}
+
+#-------------------------------------------------------------------------------
+# 囜デヌタ倉曎
+
+# 曞き換え画面
+sub cdat_regist{
+
+	&admin_head;
+	&cdata_open;
+
+	$set -= $time;
+
+	print <<EOM;
+<form method="$method" action="$ore_admin" name="ore_admin">
+<input type="hidden" name="administrator" value="$in{'administrator'}">
+<input type="hidden" name="mode" value="cdat_regist2">
+<input type="hidden" name="id_old" value="$id">
+
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap colspan="2" align="center">데읎터 변겜</th>
+<th nowrap rowspan="2" align="left" style="font-size:14px;line-height:18px">
+・상태 >> 0:정상 1:망국<br>
+・국가별 정원 >> 
+EOM
+
+($limit_mode) ? print "자동 산출" : print "수동 할당" ;
+
+print <<EOM;
+</th>
+</tr>
+<tr>
+<td nowrap><input class="button1" type="submit" value="변겜하Ʞ"></td>
+<td nowrap><input class="button1" type="reset" value="되돌늬Ʞ"></td>
+</tr>
+</table>
+
+<br><br>
+
+<table border="0" cellspacing="4" cellpadding="0" bgcolor="#444466" align="center">
+<tr>
+<td bgcolor="#000000" align="center" valign="top">
+
+<table border=0 cellpadding=2 cellspacing=2 width=100% align=center>
+<tr>
+<td width="72">국가명</td>
+EOM
+
+	foreach(1 .. 5){
+		print qq|<td align="center" width="92">$cmp[$_]</td>\n|;
+	}
+	print <<EOM;
+</tr><tr><td>상태</td>
+<td><input type="text" name="ce1" value="$ce1" style="width:60px"></td>
+<td><input type="text" name="ce2" value="$ce2" style="width:60px"></td>
+<td><input type="text" name="ce3" value="$ce3" style="width:60px"></td>
+<td><input type="text" name="ce4" value="$ce4" style="width:60px"></td>
+<td><input type="text" name="ce5" value="$ce5" style="width:60px"></td>
+</tr>
+<tr>
+<td>쎝 국력</td>
+<td><input type="text" name="cn1" value="$cn1" style="width:60px"></td>
+<td><input type="text" name="cn2" value="$cn2" style="width:60px"></td>
+<td><input type="text" name="cn3" value="$cn3" style="width:60px"></td>
+<td><input type="text" name="cn4" value="$cn4" style="width:60px"></td>
+<td><input type="text" name="cn5" value="$cn5" style="width:60px"></td>
+</tr>
+<tr>
+<td>국가 예산</td>
+<td><input type="text" name="cg1" value="$cg1" style="width:60px"></td>
+<td><input type="text" name="cg2" value="$cg2" style="width:60px"></td>
+<td><input type="text" name="cg3" value="$cg3" style="width:60px"></td>
+<td><input type="text" name="cg4" value="$cg4" style="width:60px"></td>
+<td><input type="text" name="cg5" value="$cg5" style="width:60px"></td>
+</tr>
+<tr>
+<td>쎝 군량</td>
+<td><input type="text" name="cf1" value="$cf1" style="width:60px"></td>
+<td><input type="text" name="cf2" value="$cf2" style="width:60px"></td>
+<td><input type="text" name="cf3" value="$cf3" style="width:60px"></td>
+<td><input type="text" name="cf4" value="$cf4" style="width:60px"></td>
+<td><input type="text" name="cf5" value="$cf5" style="width:60px"></td>
+</tr>
+<tr>
+<td>쎝 병사 수</td>
+<td><input type="text" name="cs1" value="$cs1" style="width:60px"></td>
+<td><input type="text" name="cs2" value="$cs2" style="width:60px"></td>
+<td><input type="text" name="cs3" value="$cs3" style="width:60px"></td>
+<td><input type="text" name="cs4" value="$cs4" style="width:60px"></td>
+<td><input type="text" name="cs5" value="$cs5" style="width:60px"></td>
+</tr>
+<tr>
+<td bgcolor=#CCCCFF>소속 읞원</td>
+<td align=center>$c1/<input type="text" name="c1a" value="$c1a" style="width:30px"></td>
+<td align=center>$c2/<input type="text" name="c2a" value="$c2a" style="width:30px"></td>
+<td align=center>$c3/<input type="text" name="c3a" value="$c3a" style="width:30px"></td>
+<td align=center>$c4/<input type="text" name="c4a" value="$c4a" style="width:30px"></td>
+<td align=center>$c5/<input type="text" name="c5a" value="$c5a" style="width:30px"></td>
+</tr>
+</table>
+통음 êž°í•œ: 앞윌로<input type="text" name="set" value="$set" style="width:60px">쎈
+&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+현재<input type="text" name="goal_no" value="$goal_no" style="width:20px">êž°
+</td>
+</tr>
+</table>
+</form>
+EOM
+	&admin_end;
+	exit;
+}
+
+# 曞き換え凊理
+sub cdat_regist2{
+
+	&admin_head;
+
+	# ファむルロック(rename匏)
+	$lock		= &lock if $lock_check;
+
+	&cdata_open;
+
+	$cn1=$in{'cn1'};# 囜1の囜力
+	$cg1=$in{'cg1'};# 囜1の財政
+	$cf1=$in{'cf1'};# 囜1の蓄米
+	$cs1=$in{'cs1'};# 囜1の予備兵
+	$ce1=$in{'ce1'};# 囜1の珟状
+	$c1a=$in{'c1a'};# 囜1の定員数
+	$cn2=$in{'cn2'};
+	$cg2=$in{'cg2'};
+	$cf2=$in{'cf2'};
+	$cs2=$in{'cs2'};
+	$ce2=$in{'ce2'};
+	$c2a=$in{'c2a'};
+	$cn3=$in{'cn3'};
+	$cg3=$in{'cg3'};
+	$cf3=$in{'cf3'};
+	$cs3=$in{'cs3'};
+	$ce3=$in{'ce3'};
+	$c3a=$in{'c3a'};
+	$cn4=$in{'cn4'};
+	$cg4=$in{'cg4'};
+	$cf4=$in{'cf4'};
+	$cs4=$in{'cs4'};
+	$ce4=$in{'ce4'};
+	$c4a=$in{'c4a'};
+	$cn5=$in{'cn5'};
+	$cg5=$in{'cg5'};
+	$cf5=$in{'cf5'};
+	$cs5=$in{'cs5'};
+	$ce5=$in{'ce5'};
+	$c5a=$in{'c5a'};
+
+	$goal_no=$in{'goal_no'};
+	$set=$in{'set'}+$time;
+
+	&cdat_write;
+
+	# ファむルアンロック(rename匏)
+	&unlock($lock) if $lock_check;
+
+	print <<EOM;
+<table border="0" cellspacing="2" cellpadding="2" align="center">
+<tr>
+<th nowrap colspan=2 align="center">닀음곌 같읎 데읎터륌 변겜했습니닀.</th>
+</tr>
+</table>
+
+<br><br>
+<div align="center" style="font-size:14px;color:#222244">
+・상태 >> 0:정상 1:망국<br>
+・국가별 정원 >> 
+EOM
+
+($limit_mode) ? print "자동 산출" : print "수동 할당" ;
+
+print <<EOM;
+</div>
+<br><br>
+
+<table border="0" cellspacing="4" cellpadding="0" bgcolor="#444466" align="center">
+<tr>
+<td bgcolor="#000000" align="center" valign="top">
+
+<table border=0 cellpadding=2 cellspacing=2 width=100% align=center>
+<tr>
+<td width="72">국가명</td>
+EOM
+
+	foreach(1 .. 5){
+		print qq|<td align="center" width="92">$cmp[$_]</td>\n|;
+	}
+	print <<EOM;
+</tr>
+<tr>
+<td>상태</td>
+<td align=center>$in{'ce1'}</td>
+<td align=center>$in{'ce2'}</td>
+<td align=center>$in{'ce3'}</td>
+<td align=center>$in{'ce4'}</td>
+<td align=center>$in{'ce5'}</td>
+</tr>
+<tr>
+<td>쎝 국력</td>
+<td>$in{'cn1'}</td>
+<td>$in{'cn2'}</td>
+<td>$in{'cn3'}</td>
+<td>$in{'cn4'}</td>
+<td>$in{'cn5'}</td>
+</tr>
+<tr>
+<td>국가 예산</td>
+<td>$in{'cg1'}</td>
+<td>$in{'cg2'}</td>
+<td>$in{'cg3'}</td>
+<td>$in{'cg4'}</td>
+<td>$in{'cg5'}</td>
+</tr>
+<tr>
+<td>쎝 군량</td>
+<td>$in{'cf1'}</td>
+<td>$in{'cf2'}</td>
+<td>$in{'cf3'}</td>
+<td>$in{'cf4'}</td>
+<td>$in{'cf5'}</td>
+</tr>
+<tr>
+<td>쎝 병사 수</td>
+<td>$in{'cs1'}</td>
+<td>$in{'cs2'}</td>
+<td>$in{'cs3'}</td>
+<td>$in{'cs4'}</td>
+<td>$in{'cs5'}</td>
+</tr>
+<tr>
+<td>소속 읞원</td>
+<td align=center>$c1/$in{'c1a'}</td>
+<td align=center>$c2/$in{'c2a'}</td>
+<td align=center>$c3/$in{'c3a'}</td>
+<td align=center>$c4/$in{'c4a'}</td>
+<td align=center>$c5/$in{'c5a'}</td>
+</tr>
+</table>
+
+통음 êž°í•œ: 앞윌로 $in{'set'} 쎈
+&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+현재 $in{'goal_no'} êž°
+
+</td>
+</tr>
+</table>
+</form>
+EOM
+	&admin_end;
+	exit;
+}
+
+#-------------------------------------------------------------------------------
+# テンプレヌト
+
+# ヘッダヌ
+sub admin_head{
+
+	&error("비밀번혞가 틀늜니닀!") if($in{'administrator'} ne $admin_pass);
+
+	$in{'list_sort'} = 3 if(!$in{'list_sort'});
+
+	&content_type;
+
+	print <<"EOM";
+
+<html>
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+<title>$titleh</title>
+<style type="text/css">
+<!--
+.button1{
+	font-family: " ゎシック", "Osaka"; font-size: 12px; font-weight: 400; color: #ddddee;
+	border: 2px #aaaabb ridge; cursor: hand; background-color: #666699;
+	width:50px;
+}
+body	{ font-size: 12px; color: #aaaab9; background-color: #ddddff; cursor: crosshair}
+table	{ background-color: #666699;}
+td		{ font-size: 14px; color: #222244; background-color: #eeeeff; cursor: crosshair}
+th		{ font-size: 12px; color: #eeeeff; background-color: #222244; font-weight:400}
+
+-->
+</style>
+</head>
+
+<body bgcolor="#000000" text="#999999" link="#333399" vlink="#333399" alink="#333399">
+EOM
+}
+
+# フッタヌ
+sub admin_end{
+		print <<"EOM";
+<br><br><br>
+<table border="0" cellspacing="2" cellpadding="2" bgcolor="#9999CC" align="center">
+<tr>
+<td valign="middle" align="center" nowrap style="color:ddddee;font-size:14px;background-color:#333399">
+죄와 벌++ 읎윚배반 ꎀ늬자 Ʞ능 $ver 사용법
+</td>
+</tr>
+<tr>
+<td bgcolor="#DDDDEE" valign="middle" align="left" nowrap style="line-height:20px; font-size:12px">
+>> 각 처늬에 상섞한 에러 처늬는 되얎 있지 않습니닀. 데읎터 수정 등은 신쀑히 진행핎 죌섞요.<br>
+>> 각 캐늭터의 <b>[로귞읞]</b> 버튌을 큎늭하멎 핎당 캐늭터로 로귞읞할 수 있습니닀.<br>
+>> 각 캐늭터의 <b>[ 펞집 ]</b> 버튌을 큎늭하멎 캐늭터 데읎터 펞집 화멎윌로 읎동합니닀.<br>
+&nbsp;&nbsp;&nbsp;&nbsp;・캐늭터 데읎터의 ID륌 변겜하멎 캐늭터 데읎터 파음명도 변겜됩니닀.<br>
+>> 각 캐늭터의 왌쪜 끝 <b>[ 삭제 ]</b> 첎크박슀에 첎크하고, 하당 메뉎의 <b>[캐늭터 삭제]</b> 버튌을 큎늭하멎 선택한 캐늭터가 삭제됩니닀.<br>
+>> 하당 메뉎의 <b>[국가 데읎터 펞집]</b> 버튌을 큎늭하멎 현재 국가 데읎터륌 펞집할 수 있습니닀.<br>
+&nbsp;&nbsp;&nbsp;&nbsp;・정원 수 지정은 ore_config.cgi의 <b>[\$limit_mode]</b> 값읎 우선 적용됩니닀.<br>
+>> 하당 메뉎의 <b>[국가 데읎터 쎈Ʞ화]</b> 버튌을 큎늭하멎 현재 국가 데읎터가 쎈Ʞ화됩니닀.<br>
+>> CGI 싀행에 사용자 권한읎 없는 서버에서 캐늭터 데읎터 파음곌 백업 파음읎 삭제되지 않을 겜우, 읎 ꎀ늬자 Ʞ능에서 삭제륌 수행핎 죌섞요.<br>
+&nbsp;&nbsp;&nbsp;&nbsp;・하닚 메뉎의 <b>[캐늭터 데읎터 음ꎄ 삭제]</b>륌 큎늭하멎 몚든 캐늭터 데읎터륌 음ꎄ 삭제합니닀.<br>
+&nbsp;&nbsp;&nbsp;&nbsp;・하닚 메뉎 of <b>[백업 음ꎄ 삭제]</b>륌 큎늭하멎 몚든 백업 데읎터륌 음ꎄ 삭제합니닀.<br>
+</td>
+</tr>
+<tr>
+<td bgcolor="#DDDDEE" valign="middle" align="center" nowrap style="font-size:12px">
+죄와 벌++ 읎윚배반 ꎀ늬자 Ʞ능 $ver <a href="http://pom.to/" target="_blank">BLANK BOARD[읞터넷 놀읎터♪]</a> <a href="http://www17.big.or.jp/~obochan/vivid/" target="_blank">Vivid Studio.</a>
+</td>
+</tr>
+</table>
+</body>
+</html>
+EOM
 }
\ No newline at end of file
diff --git a/ore_config.cgi b/ore_config.cgi
old mode 100644
new mode 100755
index d349d55..9227189
--- a/ore_config.cgi
+++ b/ore_config.cgi
@@ -1,302 +1,303 @@
-$ver	 = 'v02-04-16';			# ƒo[ƒWƒ‡ƒ“î•ñ(•ÏX•s‰Â)
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  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.1
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-$er			= 0;						# ƒƒ“ƒeƒiƒ“ƒX•\ŽŠ(0:’ʏí 1:ƒƒ“ƒe)
-$ertm		= '30';						# ƒƒ“ƒe—\‘ªŽžŠÔ(•ª)
-$erni		= 'ƒƒ“ƒeƒiƒ“ƒX';			# ƒƒ“ƒe——R
-
-$admin_pass	= "admin";					# ŠÇ—ŽÒƒpƒXƒ[ƒh(•ÏX‚µ‚È‚¢‚Ɗ댯‚Å‚·)
-
-#===============================================================================
-# ‰ŠúÝ’è
-
-require './jcode.pl';					# jcode.pl‚̃pƒX
-
-require './inc/ore_sub-system.cgi';		# ‹€’ʃ‰ƒCƒuƒ‰ƒŠ‚̃pƒX
-
-$cdatfile	= "./logdata/cdata.cgi";	# ‘ƒf[ƒ^
-
-$histfile	= "./logdata/hist_log.cgi";	# ‘ƒoƒbƒNƒAƒbƒv(‰ß‹Ž‚̉hŒõƒƒO)
-
-$usrdata	= "./usrdata/";				# ƒLƒƒƒ‰ƒf[ƒ^Ši”[ƒfƒBƒŒƒNƒgƒŠB
-
-$chmod		= 0666;						# ƒLƒƒƒ‰ƒf[ƒ^ì¬Žž‚̃p[ƒ~ƒbƒVƒ‡ƒ“B
-
-$lockdir	= "./lock/";				# ƒƒbƒNƒtƒ@ƒCƒ‹‚ð“ü‚ê‚éƒfƒBƒŒƒNƒgƒŠ
-$lockfile	= "lock";					# ƒƒbƒNƒtƒ@ƒCƒ‹–Œ
-
-$script		= "./ore_.cgi";				# –{ƒXƒNƒŠƒvƒg–Œ
-
-$ore_reg	= "./ore_reg.cgi";			# V‹K“o˜^
-
-# ŠÇ—ŽÒ‹@”\ ƒAƒNƒZƒX•û–@‚Í
-# http://‚ ‚È‚œ‚ÌURL/ore_plus/ore_admin.cgi?administrator=ŠÇ—ŽÒƒpƒXƒ[ƒh
-$ore_admin	= "./ore_admin.cgi";
-
-$park		= "./park.cgi";				# ‘ÛŒð—¬Lê
-
-$public		= "./public.cgi";			# ŒöŽ®ð–ñ
-
-$campbbs	= "./campbbs.cgi";			# Še‘‘Û‰ï‹c
-
-$hist		= "./hist.cgi";				# ‰ß‹Ž‚̉hŒõ
-
-$imgs		= "./imgs";					# ‰æ‘œŠi”[ƒfƒBƒŒƒNƒgƒŠ
-
-$css		= "./html/ore_.css";		# ŠO•”ƒXƒ^ƒ‹ƒV[ƒg
-
-$titleh		= 'ß‚Æ”±++ “ñ—¥”w”œ';		# <title>ƒ^ƒO
-$title		= '<img src="./imgs/title_game.png" width="220" height="52">';	# •\ŽŠƒ^ƒCƒgƒ‹
-$title_i	= '<div align="center">ß ‚Æ ”± ++</div><div align="right">“ñ—¥”w”œ </div>';	# •\ŽŠƒ^ƒCƒgƒ‹(ÓÊÞ²Ù)
-
-$body		= 'bgcolor="#000000" text="#dddddd" link="#9999dd" alink="#9999dd" vlink="#9999dd"'; # body‘•ü
-
-$home		= "http://pom.to/";			# –ß‚èæ
-$home_i		= "http://pom.to/";			# –ß‚èæ(ÓÊÞ²Ù)
-
-$index		= "./index.cgi";			# ƒgƒbƒvƒy[ƒW
-
-# Ž©—R€–Ú
-$kakiko=<<EOM;
-<a href="http://www24.big.or.jp/~obo/game/ore_/gild/" target="_blank">[ß‚Æ”±++”z•zŠ]</a>
-@@<a href="http://pom.to" target="_blank">‚Ë‚Á‚Æ—V‰€’nô</a>
-@@<a href="http://www2s.biglobe.ne.jp/~aries/Mercury/ring1/ering.cgi?mode=all" target="_blank">[ß‚Æ”±++Ý’uŠ]</a>
-<br><br>
-‹€—LE‹€“¯ƒTƒCƒg(<span style="color:#ff99cc">•åW’†ô</span>)@/
-<a href="" target="_blank"></a>/
-<a href="" target="_blank"></a>/
-<a href="" target="_blank"></a>/
-<a href="" target="_blank"></a>/
-<a href="" target="_blank"></a>
-EOM
-
-# ƒzƒXƒg–ŒŽæ“Ÿƒ‚[ƒh
-#  --> 0 : $ENV{'REMOTE_HOST'} ‚ÅŽæ“Ÿ‚Å‚«‚éê‡
-#  --> 1 : gethostbyaddr ‚ÅŽæ“Ÿ‚Å‚«‚éê‡
-$get_remotehost	= 1;
-
-$gzip		= '';						# ˆ³k“]‘— gzip‚̃pƒX‚ð“ü—Í –³Œø‚̏ꍇ‚Í–³‹L“ü(“]‘——ʑ΍ô)
-
-$play_limit	= 15;						# “¯ŽžƒƒOƒCƒ“‰Â”\” ‚±‚ê‚ð’Ž‚Š‚él”‚ªƒvƒŒƒC’†‚̓ƒOƒCƒ“•s‰Â(•‰‰×‘΍ô)
-
-@act_limit	= ([22,0],[23,0],[0,0]);	# [ŽžŠÔ‘Ñ,s“®ŠÔŠu(•b)] s“®ŠÔŠu‚ð‚±‚Ì•b”ˆÈã‹ó‚¯‚È‚¢‚Æ–³Œø‚É‚·‚é(•‰‰×‘΍ô)
-
-@safetime	= (-1);						# ƒvƒŒƒC‹K§ŽžŠÔ ŽžŠÔ‚ÌŠÔ‚Í[ , ]‚Å‹æØ‚邱‚ƁB–³Œø‚Í-1‚ð‹L“ü(•‰‰×‘΍ô)
-
-$no_mouse	= 1;						# ƒ}ƒEƒXŽ©“®‘€ìƒ`[ƒg–hŽ~iyes=1 or no=0)(•‰‰×‘΍ô)
-
-$no_js		= 1;						# JavascriptŽ©“®‘€ìƒ`[ƒgEframeŽæ‚荞‚Ý–hŽ~iyes=1 or no=0)(•‰‰×‘΍ô)
-
-$act_cnt_limit = 250;					# C‹Æ‚Ì—ÝŒv‚ª‚±‚̐”’l‚É’B‚·‚é‚Æ‹­§“I‚É“à­or‹xŒe‚³‚¹‚é(•‰‰×‘΍ô)
-
-$lock_check	= 1;						#lockˆ—‚ðs‚È‚€iyes=1 or no=0)
-
-$backdata	= "./backup/";				# ’èŠúƒoƒbƒNƒAƒbƒvƒfƒBƒŒƒNƒgƒŠ(’èŠúƒoƒbƒNƒAƒbƒv‚ðs‚í‚È‚¢ê‡‚Í–³‹L“ü)
-
-$sanka		= 200;						# ‘SŽQ‰Ál” ‹€—pƒT[ƒo‚ł͈À‘S‚Ì‚œ‚ß300’ö“x‚ªŒÀ“x
-
-$del_limit	= 10;						# ƒLƒƒƒ‰íœ•ú’uŽžŠÔ ‚±‚ê‚ð’Ž‚Š‚é‚ƃLƒƒƒ‰‚ðíœ‚µ‚Ü‚·
-
-$player_now	= 60*5;						# ‰œ•bˆÈ“à‚ɃƒOƒCƒ“‚µ‚œl‚ðƒvƒŒƒC’†‚ÌŽQ‰ÁŽÒ‚É‚·‚é‚©
-
-# Še‘‚̐l”§ŒÀ
-#  --> 0 : Žè“®Š„‚è“–‚め[ƒh(ŠÇ—ŽÒƒ‚[ƒh‚Å’ŒÚŽw’è)
-#  --> 1 : Ž©“®ŽZoƒ‚[ƒh(ŽQ‰Ál”/(‘”+–³Š‘®)) “ˆêŒã‚Ì—D—ò‹@”\“‹Ú
-$limit_mode	= 1;
-
-$clv		= 2;						# ŽdŠ¯‚Å‚«‚郌ƒxƒ‹
-
-$kisei		= 0;						# V‹K“o˜^‹K§(0:‚È‚µ 1:‚ ‚è)
-
-# ƒfƒoƒbƒNƒ‚[ƒh
-# ‚È‚µ:PC¥ÓÊ޲ٗŒ‘Ήž
-# pc  :PCŒÀ’胂[ƒh(ÓÊ޲ٔñ‘Ήž)
-# mv  :ÓÊ޲ٌŒ胂[ƒh(PCã‚Ń‚ƒoƒCƒ‹‰æ–Ê‚ðƒGƒ~ƒ…ƒŒ[ƒg•\ŽŠ)
-$mv_mode	= '';
-
-# ‹@Ží•ÊÝ’è
-if(	$ENV{'HTTP_USER_AGENT'}	=~/DoCoMo/ ||
-	$ENV{'HTTP_USER_AGENT'}	=~/UP\.Browser/ ||
-	$ENV{'HTTP_USER_AGENT'}	=~/J-PHONE/ ||
-	$ENV{'HTTP_USER_AGENT'}	=~/ASTEL/ ||
-	$ENV{'HTTP_X_JPHONE_MSNAME'}	||	$mv_mode eq 'mv'){
-	# -- ÓÊ޲ٗpÝ’è --
-	$mv_mode	= 'mv';					# ÓÊ޲َ¯•ÊŽq •ÏX•s‰Â
-	require './inc/ore_sub-base_mv.cgi';# ÓÊ޲ٗpƒx[ƒXƒ‹[ƒ`ƒ“
-
-	$method		= "GET";				# ƒtƒH[ƒ€ƒƒ\ƒbƒh
-	$bt_count	= 15;					# CsŽžƒLƒƒƒ‰Å‘吔
-
-	# ÓÊ޲ٗpƒpƒPƒbƒgŒy—ʃ‚[ƒh 0X ‚© XX ‚ð‘I‘ð
-	# EƒvƒŒƒCƒ„[î•ñ>> 00:‘Ò‹@’†‚Ÿ‚¯•\ŽŠ					–³‚µ:í‚É•\ŽŠ
-	# EŠeŽíBBSƒŠƒ“ƒN >> 01:‘Ò‹@’†‚Ÿ‚¯•\ŽŠ	11:í‚É•\ŽŠ		–³‚µ:í‚É”ñ•\ŽŠ
-	# EÅVî•ñ      >> 02:‘Ò‹@’†‚Ÿ‚¯•\ŽŠ	22:í‚É•\ŽŠ		–³‚µ:í‚É”ñ•\ŽŠ
-	# EŠe‘ƒXƒe[ƒ^ƒX>> 03:‘Ò‹@’†‚Ÿ‚¯•\ŽŠ	33:í‚É•\ŽŠ		–³‚µ:í‚É”ñ•\ŽŠ
-	# EƒQ[ƒ€ƒoƒ‰ƒ“ƒX>> 04:‘Ò‹@’†‚Ÿ‚¯•\ŽŠ	44:í‚É•\ŽŠ		–³‚µ:í‚É”ñ•\ŽŠ
-	# EƒvƒŒƒC’†ŽQ‰ÁŽÒ>> 05:‘Ò‹@’†‚Ÿ‚¯•\ŽŠ	55:í‚É•\ŽŠ		–³‚µ:í‚É”ñ•\ŽŠ
-	# EˆêŒŸ“`ŒŸ      >> 06:‘Ò‹@’†‚Ÿ‚¯•\ŽŠ	66:í‚É•\ŽŠ		–³‚µ:í‚É”ñ•\ŽŠ
-	$lt_mode	= "00,01,02,03";		# €–ÚŠÔ‚Í[ , ]‚Å‹æØ‚é
-
-}else{
-	# -- PC—pÝ’è --
-	$mv_mode	= 'pc';					# PCŽ¯•ÊŽq •ÏX•s‰Â
-	require './inc/ore_sub-base_pc.cgi';# PC—pƒTƒuƒ‹[ƒ`ƒ“
-	$td_end		= "</td>";				# ƒŒƒCƒAƒEƒg•â³ •ÏX•s‰Â
-	$button1	= 'class="button1"';	# ƒŒƒCƒAƒEƒg•â³ •ÏX•s‰Â
-
-	$method		= "POST";				# ƒtƒH[ƒ€ƒƒ\ƒbƒh
-	$bt_count	= 90;					# CsŽžƒLƒƒƒ‰Å‘吔
-}
-
-# ƒAƒNƒZƒX§ŒÀ(ƒzƒXƒg–Œ‚à‚µ‚­‚ÍIPƒAƒhƒŒƒX‚ð‹Lq)
-@deny	 = (
-	"anonymizer.com",
-	"cache*.*.interlog.com",
-	"",
-	""
-	);
-
-#===============================================================================
-#ˆÈ‰ºÝ’è•Ï‚Š‚È‚¢‚Ù‚€‚ª‚¢‚¢‚©‚à‚æ
-
-# ƒQ[ƒ€“àS‘©ŽžŠÔ 3600 ‚ªˆêŽžŠÔ •ÏX‚͈ꎞŠÔ’PˆÊ‚ŁB
-$GMT	 = int(3600*1);		#int(3600*2)
-$GMW	 = int($GMT/3600);	#int($GMT/3600)
-
-# ‚±‚Ì•b”‚²‚Æ‚ÉHP,MP‚ª1ƒ|ƒCƒ“ƒg‰ñ•œ‚·‚é
-$hrg_time= 60;
-
-# “ˆê“ïˆÕ“x ª“‚¢F«ŠÈ’P (ƒrƒ~ƒ‡ƒE‚Ȃ̂ŕύX‚µ‚È‚¢‚Ì‚ª–³“ïB)
-$reset_point	= 0.45;		#•ÏX‚Í0.01`0.1‚݂ŁB
-
-# “ˆêŠúŒÀ ‚±‚Ì“ú”ˆÈ“à‚É“ˆê‚µ‚È‚¢‚ƃŠƒZƒbƒg‚³‚ê‚é
-$reset_time_limit= 20;
-
-# “ˆêEƒŠƒZƒbƒgŒã‚̍‘ƒf[ƒ^(0:‹ŒŽ®[ŒÅ’è]  1:ƒ‰ƒ“ƒ_ƒ€[‘œ—l«‚])
-$reset_cdat		= 1;
-
-# ‰œ‚ð‚µ‚Ä‚às“®’†EEE‚ ‚Æ??•ª‚Æ•\ŽŠ‚³‚ê‚éê‡‚̉ñ”ðƒIƒvƒVƒ‡ƒ“[’ʏí‚Í0‚Ì‚Ü‚Ü]
-# ??•ª‚Ì•b”Š·ŽZ‚ð‹L“ü EX 2•ª >> 120
-$spend_time		= 0;
-
-@cmp	 = ('–³Š‘®','±ÙÒر‰€‘','Ì×Ø݋³‘','²·Þœ˜A‡‘','¿°ÃޚŒ鍑','ÔÏĐ_‘'); # w‰c ‘‚̒ljÁ‚Í•s‰Â”\‚Å‚·B‰ü‘¢‚·‚ê‚Εʂł·‚ªB
-
-@color	 = ('#EEEEEE','#EE9999','#00EEEE','#88EE88','#FFCCFF','#55BBFF'); # Šew‰c‚̐FB–³Š‘®‚ÍŠÖŒW‚È‚µ
-
-@cl		 = ('—b•º','”_•º',']‘²','‘«Œy','‘„•ºŽm','‘«Œy‘叫','‹RŽmŒ©K','‹RŽm','ã‹‰‹RŽm','‹RŽm‘à’·','‘å‘à’·','‘叫','ã‹‰‘叫','«ŒR','Œ³ƒ'); # ŠK‹‰ –ŒÌ‚͕ύX‰Â”\
-
-@g_p	 = (0,1000,2000,3000,4000,5000,6000,7000,8000,10000,12000,14000,16000,18000,20000); # ŠK‹‰•ºŽm”ãŒÀ‘Œ •ÏX‰Â”\‚Å‚·‚ªƒVƒXƒeƒ€‚ð—‰ð‚¹‚ž‚É‚¢‚¶‚é‚ƃQ[ƒ€‚ª•ö‰ó‚µ‚Ü‚·B
-
-@sogo_p	 	=('----','”eŽÒ','‰p—Y','ŽØ‹à‰€','‹S’{',' ',' ',' ',' ',' ','ŠÇ—l'); #Ì†
-
-@seibetu	=('--','’j','—');
-
-sub settei {
-	# Š‘®•Ê•KŽE‹Z - –ŒÌ‚͕ύX‰Â”\ -
-
-	if($camp==0){
-		@spell = ('ÏŒÞ݌•','‘S‰ñ•œ');
-		@sp_mp = (3,9);
-	}elsif($camp==1){
-		@spell = ('ŽŸ•—Œ•','¶–œŒ÷','‘tŒ‚Œ÷','‰Š‘“ù','|‹C','âSŒ÷','–P™€“]¶','°Ó‚«');
-		@sp_mp = (6,9,12,15,18,21,60,90);
-	}elsif($camp==2){
-		@spell = ('ÊްÚ¶Ù¿°ÄÞ','±À¯ž','Ë°Ù','Ÿ²ÝÄžÛœ','±ÝžÚ±ÌÞÚ²ž','ʲ˰Ù','–²‚ðŒp‚®ŽÒ','—Ž”jŽa');
-		@sp_mp = (6,12,9,18,30,21,45,90);
-	}elsif($camp==3){
-		@spell = ('¿°ÄޜׯŒ­','±À¯ž','¿°ÄÞÀÞÝœ','Œ°ÙÄÞ','±°Ï°ÌÞÚ²ž','ʲ˰Ù','µ°¶Þ¿°ÄÞ','±ÙÚүıÀ¯ž');
-		@sp_mp = (6,12,12,18,25,21,40,99);
-	}elsif($camp==4){
-		@spell = ('ˆÃ•Œ•','ÃÞ¯Äޞ׳Ý','ŲÄÒ±','•‰Š','ʲ˰Ù','±À¯ž','Œ°ÙÄÞ','’n––å');
-		@sp_mp = (9,12,10,15,21,12,18,70);
-	}elsif($camp==5){
-		@spell = ('ˆëŽ®','ˆëŽ®E’f','“óŽ®','“󎮁E—ô','ŽQŽ®','ŽQŽ®E”g','—뎮','—뎮Eâ');
-		@sp_mp = (10,10,20,20,30,30,60,80);
-	}
-
-	# ŠK‹‰‹Z - –ŒÌ‚͕ύX‰Â”\ -
-	@kspell = ('̧²±°','±²œœÄ°Ñ','ÀÞ²Ô·­°Ä','ÌÞÚ²ÝÀÞÑÄÞ');
-	@ksp_mp = (5,25,50,100);
-
-	# •‹ï ’ljÁŠÈ’P [”ԍ†,•‹ï–Œ,’l’i,‰ñ”,UŒ‚—Í,à–Ÿ] 1`10‚Ü‚Å‚ª‰B‚µ•Ší 11`‚ª‚š“X‚̏€•i
-	# int(rand(xxx)) ‚Å 0`xxx ‚̃‰ƒ“ƒ_ƒ€’lBEX. int(rand(20)+50)  >> 0`20 + 50 ‚ªUŒ‚—Í
-	@dg_data	=(
-		[0,'----',			0,		0,		0,				0],
-		[1,'ÊžÞÚÒÀق̌•',	100000,	100,	int(rand(100)),	0],
-		[2,'Žžœ¶ØÊÞ°',		150000,	250,	60,	0],
-		[3,'ÛÝ·ÞÇœ‚Ì‘„',	100000,	100,	60,	0],
-		[4,'ž»Å·Þ‚ÌŒ•',		90000,	300,	50,	0],
-		[5,'',,,,],
-		[6,'',,,,],
-		[7,'',,,,],
-		[8,'',,,,],
-		[9,'',,,,],
-		[10,'',,,,],
-		[11,'žØœÀÙ¿°ÄÞ',	75000,	200,	35,	'žØœÀق©‚琞»‚µ‚œŒ•'],
-		[12,'Ñ×Ï»',			50000,	75,		35,	'ŒÃ—ˆ‚æ‚è“`‚í‚é—d“B‹­‚¢‚ªÆ‚¢'],
-		[13,'ŲĵÌÞŒ¬ÄÞ³',	34000,	300,	25,	'Žœ•‚ÌŒ•B”ñí‚ÉŠæä'],
-		[14,'ÏŒÞ݂̕€',		20000,	100,	20,	'ÊÝÄÞ±¯žœBnšÊ‚ꂵ‚â‚·‚¢'],
-		[15,'Ó°ÆÝžÞœÀ°',	12000,	200,	15,	'j‚‚«“S‹…'],
-		[16,'ÛÝžÞœËß±',		6000,	100,	10,	'“S»‚Ì’·‘„'],
-		[17,'ÌÞÛݜ޿°ÄÞ',	3000,	150,	5,	'ÌÞÛݜސ»‚ÌŒ•']
-	);
-
-	# –h‹ï ’ljÁŠÈ’P [”ԍ†,–h‹ï–Œ,’l’i,‰ñ”,–hŒä—Í,à–Ÿ] 1`10‚Ü‚Å‚ª‰B‚µ–h‹ï 11`‚ª‚š“X‚̏€•i
-	# int(rand(xxx)) ‚Å 0`xxx ‚̃‰ƒ“ƒ_ƒ€’lBEX. int(rand(20)+50)  >> 0`20 + 50 ‚ª–hŒä—Í
-	@df_data	=(
-		[0,'----',			0,		0,		0,				0],
-		[1,'…‚̉Hˆß',		100000,	150,	int(rand(60)),	0],
-		[2,'Œõ‚ÌŠZ',		120000,	300,	40,	0],
-		[3,'n‚ÌŠZ',		900000,	150,	35,	0],
-		[4,'‘å’n‚ÌŠZ',		70000,	350,	30,	0],
-		[5,'',,,,],
-		[6,'',,,,],
-		[7,'',,,,],
-		[8,'',,,,],
-		[9,'',,,,],
-		[10,'',,,,],
-		[11,'ÄÞ׺Þݱ°Ï°',	50000,	250,	25,	'ÄÞ׺Þ݂̊p‚ð‰ÁH‚µ‚œŠZ'],
-		[12,'ÐœØÙ±°Ï°',		34000,	150,	20,	'ÐœØِ»‚ÌŠZ'],
-		[13,'|‚ÌŠZ',		20000,	300,	15,	'|»‚ÌŠZBŠæä‚ʼnó‚ê‚É‚­‚¢'],
-		[15,'Œ©Œð‚킵‚Ì•ž',	14000,	150,	int(rand(30)),	'Œy‚­ ‚Æ‚Ä‚à“®‚«‚â‚·‚¢•ž'],
-		[14,'“S‚ÌŠZ',		8000,	250,	10,	'“S»‚ÌŠZ'],
-		[16,'œ‚ª‚œ‚Ò‚ç',	4000,	150,	5,	'“Sœ‚ª•Ò‚Ý‚±‚Ü‚ê‚œ•ž'],
-		[17,'”ç‚ÌŠZ',		1500,	200,	2,	'èâŠv‚ð’b‚Š‚œŠZ –³‚¢‚æ‚è‚ÍÏŒ¥¥']
-	);
-
-	# “¹‹ï ’ljÁ“‚¢ [”ԍ†,“¹‹ï–Œ,’l’i,‰ñ”,à–Ÿ] 1`10‚Ü‚Å‚ª‰B‚µ“¹‹ï 11`‚ª‚š“X‚̏€•i
-	@di_data	=(
-		[0,'----',			0,		0,		0],
-		[1,'Œ«ŽÒ‚̐Î',		80000,	250,	0],
-		[2,'Ÿ¶²ŒÞ­‚Ì—t',	64000,	1,		0],
-		[3,'–œ‚Ì–Ø‚ÌŽÀ',	64000,	1,		0],
-		[4,'–‚•š‚̐K”ö',	64000,	1,		0],
-		[5,'',,,,],
-		[6,'',,,,],
-		[7,'',,,,],
-		[8,'',,,,],
-		[9,'',,,,],
-		[10,'',,,,],
-		[11,'c’é‰t',		42000,	1,		'‘Ì—Í&ž_‚ª‚ ‚é’ö“x‰ñ•œ'],
-		[12,'ž—쐅',		24000,	1,		'ž_‚ª‚ ‚é’ö“x‰ñ•œ'],
-		[13,'˜a‚݉t',		8000,	1,		'ž_‚ª‘œ­‰ñ•œ'],
-		[14,'–ü‚µ…',		15000,	1,		'‘Ì—Í‚ª‚ ‚é’ö“x‰ñ•œ'],
-		[15,'–ò‘',			5000,	1,		'‘Ì—Í‚ª‘œ­‰ñ•œ'],
-	);
-}
-
-
-
-
-
-1;#íœ•s‰Â
\ No newline at end of file
+$ver	 = 'v02-04-16';			# 버전 정볎(변겜 불가)
+#-----------------------------------------------------------#
+#  眪ず眰++ 二埋背反 										#
+#  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.1
+#--- [泚意事項] --------------------------------------------#
+# 1.このスクリプトは以䞋の利甚芏皋に埓っお配垃しおいたす。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+$er			= 0;						# 점검 표시(0:볎통 1:점검)
+$ertm		= '30';						# 점검 예상 시간(분)
+$erni		= '점검 쀑';			# 점검 사유
+
+$admin_pass	= "admin";					# ꎀ늬자 비밀번혞(변겜하지 않윌멎 위험합니닀)
+
+#===============================================================================
+# 初期蚭定
+
+require './jcode.pl';					# jcode.pl 겜로
+
+require './inc/ore_sub-system.cgi';		# 공통 띌읎람러늬 겜로
+
+$cdatfile	= "./logdata/cdata.cgi";	# 국가 데읎터
+
+$histfile	= "./logdata/hist_log.cgi";	# 국가 백업(곌거의 영ꎑ 로귞)
+
+$usrdata	= "./usrdata/";				# 캐늭터 데읎터 저장 디렉터늬.
+
+$chmod		= 0666;						# 캐늭터 데읎터 작성 시 권한 섀정.
+
+$lockdir	= "./lock/";				# 띜 파음을 볎ꎀ할 디렉터늬
+
+$lockfile	= "lock";					# 띜 파음명
+
+$script		= "./ore_.cgi";				# 볞 슀크늜튞명
+
+$ore_reg	= "./ore_reg.cgi";			# 신규 등록
+
+# 管理者機胜 アクセス方法は
+# http://あなたのURL/ore_plus/ore_admin.cgi?administrator=管理者パスワヌド
+$ore_admin	= "./ore_admin.cgi";
+
+$park		= "./park.cgi";				# 국제교류ꎑ장
+
+$public		= "./public.cgi";			# 공식 ì¡°ì•œ
+
+$campbbs	= "./campbbs.cgi";			# 각국 국제회의
+
+$hist		= "./hist.cgi";				# 곌거의 영ꎑ
+
+$imgs		= "./imgs";					# 읎믞지 저장 디렉터늬
+
+$css		= "./html/ore_.css";		# 왞부 슀타음시튞
+
+$titleh		= '죄와 벌++ 읎윚배반';		# <title> 태귞
+$title		= '<img src="./imgs/title_game.png" width="220" height="52">';	# 표시 타읎틀
+$title_i	= '<div align="center">죄 와 벌 ++</div><div align="right">읎윚배반 </div>';	# 표시 타읎틀(몚바음)
+
+$body		= 'bgcolor="#000000" text="#dddddd" link="#9999dd" alink="#9999dd" vlink="#9999dd"'; # body 디자읞
+
+$home		= "http://pom.to/";			# 읎전 페읎지
+$home_i		= "http://pom.to/";			# 읎전 페읎지(몚바음)
+
+$index		= "./index.cgi";			# 탑 페읎지
+
+# 自由項目
+$kakiko=<<EOM;
+<a href="http://www24.big.or.jp/~obo/game/ore_/gild/" target="_blank">[죄와 벌++ 배포처]</a>
+　　<a href="http://pom.to" target="_blank">읞터넷 놀읎터♪</a>
+　　<a href="http://www2s.biglobe.ne.jp/~aries/Mercury/ring1/ering.cgi?mode=all" target="_blank">[죄와 벌++ 섀치소]</a>
+<br><br>
+공유・공동 사읎튞(<span style="color:#ff99cc">몚집 쀑♪</span>)　/
+<a href="" target="_blank"></a>/
+<a href="" target="_blank"></a>/
+<a href="" target="_blank"></a>/
+<a href="" target="_blank"></a>/
+<a href="" target="_blank"></a>
+EOM
+
+# ホスト名取埗モヌド
+#  --> 0 : $ENV{'REMOTE_HOST'} で取埗できる堎合
+#  --> 1 : gethostbyaddr で取埗できる堎合
+$get_remotehost	= 1;
+
+$gzip		= '';						# 압축 전송 gzip 겜로 입력, 비활성화할 겜우 빈칞윌로 둠(전송량 대책)
+
+$play_limit	= 15;						# 동시 로귞읞 가능 읞원수. 읎륌 쎈곌하는 읞원읎 플레읎 쀑음 때는 로귞읞 불가(부하 대책)
+
+@act_limit	= ([22,0],[23,0],[0,0]);	# [시간대, 행동 간격(쎈)] 행동 간격을 읎 시간 읎상 비우지 않윌멎 묎횚 처늬핚(부하 대책)
+
+@safetime	= (-1);						# 플레읎 규제 시간. 시간 사읎는 [ , ]로 구분할 것. 묎횚 시 -1 입력(부하 대책)
+
+$no_mouse	= 1;						# 마우슀 자동 조작 치튞 방지 (yes=1 또는 no=0) (부하 대책)
+
+$no_js		= 1;						# Javascript 자동 조작 치튞, 프레임 삜입 방지 (yes=1 또는 no=0) (부하 대책)
+
+$act_cnt_limit = 250;					# 수행 누적읎 읎 수치에 도달하멎 강제적윌로 ë‚Žì • 혹은 휎식을 하게 핹(부하 대책)
+
+$lock_check	= 1;						# 띜 처늬륌 수행핚 (yes=1 또는 no=0)
+
+$backdata	= "./backup/";				# ì •êž° 백업 디렉터늬 (ì •êž° 백업을 싀행하지 않을 겜우 빈칞)
+
+$sanka		= 200;						# 전첎 ì°žê°€ 읞원. 공용 서버에서는 안전을 위핎 300명 정도가 한도
+
+$del_limit	= 10;						# 캐늭터 방치 삭제 êž°í•œ. 읎 Ʞ한을 쎈곌하멎 캐늭터륌 삭제합니닀
+
+$player_now	= 60*5;						# 몇 쎈 읎낎에 로귞읞한 사용자륌 플레읎 쀑읞 찞가자로 섀정할지
+
+# 各囜の人数制限
+#  --> 0 : 手動割り圓おモヌド(管理者モヌドで盎接指定)
+#  --> 1 : 自動算出モヌド(参加人数/(囜数+無所属)) 統䞀埌の優劣機胜搭茉
+$limit_mode	= 1;
+
+$clv		= 2;						# 임ꎀ할 수 있는 레벚
+
+$kisei		= 0;						# 신규 등록 규제(0:없음 1:있음)
+
+# デバックモヌド
+# なし:PC䞡察応
+# pc  :PC限定モヌド(非察応)
+# mv  :固定モヌド(PC䞊でモバむル画面を゚ミュレヌト衚瀺)
+$mv_mode	= '';
+
+# 機皮別蚭定
+if(	$ENV{'HTTP_USER_AGENT'}	=~/DoCoMo/ ||
+	$ENV{'HTTP_USER_AGENT'}	=~/UP\.Browser/ ||
+	$ENV{'HTTP_USER_AGENT'}	=~/J-PHONE/ ||
+	$ENV{'HTTP_USER_AGENT'}	=~/ASTEL/ ||
+	$ENV{'HTTP_X_JPHONE_MSNAME'}	||	$mv_mode eq 'mv'){
+	# -- 몚바음용 섀정 --
+	$mv_mode	= 'mv';					# 몚바음 식별자 변겜 불가
+	require './inc/ore_sub-base_mv.cgi';# 몚바음용 베읎슀 룚틎
+
+	$method		= "GET";				# 폌 메서드
+	$bt_count	= 15;					# 수행 시 캐늭터 최대수
+
+	# 甚パケット軜量モヌド 0X か XX を遞択
+	# ・플레읎얎 정볎>> 00:대Ʞ쀑에만 표시					없음:항상 표시
+	# ・각종 BBS 링크 >> 01:대Ʞ쀑에만 표시	11:항상 표시		없음:항상 표시 안 핹
+	# ・최신 정볎      >> 02:대Ʞ쀑에만 표시	22:항상 표시		없음:항상 표시 안 핹
+	# ・각국 슀테읎터슀>> 03:대Ʞ쀑에만 표시	33:항상 표시		없음:항상 표시 안 핹
+	# ・게임 밞런슀>> 04:대Ʞ쀑에만 표시	44:항상 표시		없음:항상 표시 안 핹
+	# ・플레읎 쀑 찞가자>> 05:대Ʞ쀑에만 표시	55:항상 표시		없음:항상 표시 안 핹
+	# ・한마디 방명록      >> 06:대Ʞ쀑에만 표시	66:항상 표시		없음:항상 표시 안 핹
+	$lt_mode	= "00,01,02,03";		# 항목 간에는 [ , ]로 구분핚
+
+}else{
+	# -- PC용 섀정 --
+	$mv_mode	= 'pc';					# PC 식별자 변겜 불가
+	require './inc/ore_sub-base_pc.cgi';# PC용 서람룚틎
+	$td_end		= "</td>";				# 레읎아웃 볎정 변겜 불가
+	$button1	= 'class="button1"';	# 레읎아웃 볎정 변겜 불가
+
+	$method		= "POST";				# 폌 메서드
+	$bt_count	= 90;					# 수행 시 캐늭터 최대수
+}
+
+# アクセス制限(ホスト名もしくはIPアドレスを蚘述)
+@deny	 = (
+	"anonymizer.com",
+	"cache*.*.interlog.com",
+	"",
+	""
+	);
+
+#===============================================================================
+# 읎하 섀정은 변겜하지 않는 펞읎 좋을지도 몚늅니닀
+
+# 게임 낮 구속 시간. 3600읎 1시간. 변겜은 1시간 닚위로.
+$GMT	 = int(3600*1);		#int(3600*2)
+$GMW	 = int($GMT/3600);	#int($GMT/3600)
+
+# この秒数ごずにHP,MPが1ポむント回埩する
+$hrg_time= 60;
+
+# 통음 난읎도 ↑얎렀움 : ↓쉬움 (믞묘하므로 변겜하지 않는 것읎 묎난합니닀.)
+$reset_point	= 0.45;		# 변겜은 0.01 ~ 0.1 닚위로.
+
+# 통음 êž°í•œ. 읎 음수 읎낎에 통음하지 않윌멎 늬셋됚
+$reset_time_limit= 20;
+
+# 통음/reset 후 국가 데읎터 (0: 구버전[고정] 1: 랜덀[닀양성 높음])
+$reset_cdat		= 1;
+
+# 묎엇을 핮도 '행동 쀑... 앞윌로 ??분'읎띌고 표시되는 겜우의 회플 옵션 [볎통은 0윌로 유지]
+# ??분의 쎈 닚위 환산을 입력 예: 2분 >> 120
+$spend_time		= 0;
+
+@cmp	 = ('묎소속','알메늬아 왕국','플띌늰 교국','읎Ʞ슀 연합국','소디나 제국','알마토 신국'); # 진영. 국가 추가는 불가능합니닀. 개조한닀멎 예왞겠지만요.
+
+@color	 = ('#EEEEEE','#EE9999','#00EEEE','#88EE88','#FFCCFF','#55BBFF'); # 각 진영의 색상. 묎소속은 묎ꎀ
+
+@cl		 = ('용병','농병','종졞','아시가룚','찜병','아시가룚 대장','수습 Ʞ사','Ʞ사','상꞉ Ʞ사','Ʞ사 대장','대대장','대장','상꞉ 대장','장군','원수'); # 계꞉ 명칭은 변겜 가능
+
+@g_p	 = (0,1000,2000,3000,4000,5000,6000,7000,8000,10000,12000,14000,16000,18000,20000); # 계꞉별 병사 수 상한 등. 변겜 가능하나 시슀템을 읎핎하지 못한 채 수정하멎 게임읎 붕ꎎ할 수 있습니닀.
+
+@sogo_p	 	=('----','팚자','영웅','채묎왕','귀축',' ',' ',' ',' ',' ','ꎀ늬자'); # 칭혞
+
+@seibetu	=('--','낹','여');
+
+sub settei {
+	# 所属別必殺技 - 名称は倉曎可胜 -
+
+	if($camp==0){
+		@spell = ('마진검','전회복');
+		@sp_mp = (3,9);
+	}elsif($camp==1){
+		@spell = ('질풍검','생명공','죌격공','엌찜선','ê°•êž°','절신공','뎉황전생','혌쇄Ʞ');
+		@sp_mp = (6,9,12,15,18,21,60,90);
+	}elsif($camp==2){
+		@spell = ('버티컬 소드','얎택','힐','섞읞튞 크로슀','앙크레아 람레읎크','하읎힐','꿈을 잇는 자','용파찞');
+		@sp_mp = (6,12,9,18,30,21,45,90);
+	}elsif($camp==3){
+		@spell = ('소드 슬래시','얎택','소드 댄슀','싀드','ì•„ëšž 람레읎크','하읎힐','였거 소드','얌티밋 얎택');
+		@sp_mp = (6,12,12,18,25,21,40,99);
+	}elsif($camp==4){
+		@spell = ('암흑검','데드 크띌욎','나읎튞메얎','흑엌','하읎힐','얎택','싀드','지옥묞');
+		@sp_mp = (9,12,10,15,21,12,18,70);
+	}elsif($camp==5){
+		@spell = ('음식','음식・닚','읎식','읎식・엎','삌식','삌식・파','영식','영식・절');
+		@sp_mp = (10,10,20,20,30,30,60,80);
+	}
+
+	# 계꞉ Ʞ술 - 명칭은 변겜 가능 -
+	@kspell = ('파읎얎','아읎슀 슀톰','닀읎아 큐튾','람레읞 댐드');
+	@ksp_mp = (5,25,50,100);
+
+	# 묎Ʞ 추가 간펞 [번혞, 묎Ʞ명, 가격, 낎구도, 공격력, 섀명] 1~10까지는 숚겚진 묎Ʞ, 11~는 상점 상품
+	# int(rand(xxx))로 0~xxx의 랜덀값. 예: int(rand(20)+50) >> 0~20 + 50읎 공격력
+	@dg_data	=(
+		[0,'----',			0,		0,		0,				0],
+		[1,'하구레 메탈의 검',	100000,	100,	int(rand(100)),	0],
+		[2,'엑슀칌늬버',		150000,	250,	60,	0],
+		[3,'롱Ʞ누슀의 ì°œ',	100000,	100,	60,	0],
+		[4,'쿠사나Ʞ의 검',		90000,	300,	50,	0],
+		[5,'',,,,],
+		[6,'',,,,],
+		[7,'',,,,],
+		[8,'',,,,],
+		[9,'',,,,],
+		[10,'',,,,],
+		[11,'크늬슀탈 소드',	75000,	200,	35,	'크늬슀탈을 정제하여 만든 검'],
+		[12,'묎띌마사',			50000,	75,		35,	'예로부터 ì „í•Ž 낎렀였는 요도. 강하지만 잘 부러진닀'],
+		[13,'나읎튞 였람 섀도우',	34000,	300,	25,	'칠흑의 검. 맀우 견고핚'],
+		[14,'마신의 도끌',		20000,	100,	20,	'핾드 액슀. 읎가 빠지Ʞ 쉜닀'],
+		[15,'몚닝 슀타',	12000,	200,	15,	'가시 철구'],
+		[16,'롱 슀플얎',		6000,	100,	10,	'철제 장찜'],
+		[17,'람론슈 소드',	3000,	150,	5,	'청동 검']
+	);
+
+	# 방얎구 추가 간펞 [번혞, 방얎구명, 가격, 낎구도, ë°©ì–Žë ¥, 섀명] 1~10까지는 숚겚진 방얎구, 11~는 상점 상품
+	# int(rand(xxx))로 0~xxx의 랜덀값. 예: int(rand(20)+50) >> 0~20 + 50읎 ë°©ì–Žë ¥
+	@df_data	=(
+		[0,'----',			0,		0,		0,				0],
+		[1,'묌의 날개옷',		100000,	150,	int(rand(60)),	0],
+		[2,'빛의 갑옷',		120000,	300,	40,	0],
+		[3,'칌날 갑옷',		900000,	150,	35,	0],
+		[4,'대지의 갑옷',		70000,	350,	30,	0],
+		[5,'',,,,],
+		[6,'',,,,],
+		[7,'',,,,],
+		[8,'',,,,],
+		[9,'',,,,],
+		[10,'',,,,],
+		[11,'드래곀 ì•„ëšž',	50000,	250,	25,	'용의 뿔을 가공하여 만든 갑옷'],
+		[12,'믞슀늎 ì•„ëšž',		34000,	150,	20,	'믞슀늎제 갑옷'],
+		[13,'강철 갑옷',		20000,	300,	15,	'강철제 갑옷. 튌튌하고 잘 깚지지 않는닀'],
+		[15,'회플의 옷',	14000,	150,	int(rand(30)),	'가볍고 움직읎Ʞ 펾한 옷'],
+		[14,'철제 갑옷',		8000,	250,	10,	'철제 갑옷'],
+		[16,'사슬 갑옷',	4000,	150,	5,	'쇠사슬을 엮얎 만든 옷'],
+		[17,'가죜 갑옷',		1500,	200,	2,	'묎두질한 가죜윌로 만든 갑옷. 없는 것볎닀는 ë‚«ë‹€..']
+	);
+
+	# 도구 추가 얎렀움 [번혞, 도구명, 가격, 사용 횟수, 섀명] 1~10까지는 숚겚진 도구, 11~는 상점 상품
+	@di_data	=(
+		[0,'----',			0,		0,		0],
+		[1,'현자의 돌',		80000,	250,	0],
+		[2,'섞계수의 잎',	64000,	1,		0],
+		[3,'생명의 엎맀',	64000,	1,		0],
+		[4,'마묌의 ꌬ늬',	64000,	1,		0],
+		[5,'',,,,],
+		[6,'',,,,],
+		[7,'',,,,],
+		[8,'',,,,],
+		[9,'',,,,],
+		[10,'',,,,],
+		[11,'황제액',		42000,	1,		'첎력 & 정신읎 얎느 정도 회복'],
+		[12,'정령수',		24000,	1,		'정신읎 얎느 정도 회복'],
+		[13,'안정액',		8000,	1,		'정신읎 조ꞈ 회복'],
+		[14,'치유수',		15000,	1,		'첎력읎 얎느 정도 회복'],
+		[15,'앜쎈',			5000,	1,		'첎력읎 조ꞈ 회복'],
+	);
+}
+
+
+
+
+
+1;# 삭제 불가
\ No newline at end of file
diff --git a/ore_reg.cgi b/ore_reg.cgi
old mode 100644
new mode 100755
index b985f05..41b29ce
--- a/ore_reg.cgi
+++ b/ore_reg.cgi
@@ -1,253 +1,253 @@
-#!/usr/local/bin/perl
-# ƒT[ƒo[‚̊‹«‚ɍ‡‚킹‚ĕύX‚µ‚ĉº‚³‚¢B
-require './ore_config.cgi';				# ore_config.cgi‚̃pƒX
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ 										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-$ver	 = 'V‹K“o˜^ v1.1';			# ƒo[ƒWƒ‡ƒ“î•ñ(•ÏX•s‰Â)
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-# ˆÈ‰ºˆ— Šî–{“I‚É‚±‚êˆÈ‰º‚Í‚¢‚¶‚ç‚È‚¢‚æ‚€‚ɁB
-&error("Œ»Ýƒƒ“ƒeƒiƒ“ƒX’†B‚µ‚΂炭‚š‘Ò‚¿‰º‚³‚¢(–ñ $ertm •ªŠÔ)<br>“à–óF$erni") if $er;
-&error("Œ»Ý“o˜^•s‰Â") if $kisei;
-
-&get_time;	# “úŽžŽæ“Ÿ
-&safetime;	# ƒvƒŒƒC‹K§
-&decode;	# ƒtƒH[ƒ€ƒfƒR[ƒh
-&axs_check;	# ƒAƒNƒZƒXƒ`ƒFƒbƒN
-($mode eq 'regist2') ? &regist2 : &regist1 ;
-exit;
-
-#-------------------------------------------------------------------------------
-# ˆÈ‰ºƒTƒuƒ‹[ƒ`ƒ“
-
-# ƒLƒƒƒ‰ƒtƒ@ƒCƒ‹’ljÁˆ—
-sub regist1{
-	print "Content-type: text/html\n\n";
-
-	if($mv_mode eq 'pc'){
-		print <<"EOM";
-<html>
-<head>
-<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
-<title>ß‚Æ”±++ V‹K“o˜^</title>
-<style type="text/css">
-<!--
-.button1{
-	font-family: "‚l‚r ‚oƒSƒVƒbƒN", "Osaka"; font-size: 12px; font-weight: 400; color: #bbbbcc;
-	border: 2px #666699 ridge; cursor: hand; background-color: #222244;
-	width:100px;
-}
-body,td {  font-size: 10px; color: #aaaab9; cursor: crosshair}
--->
-</style>
-</head>
-<body $body>
-<center>
-
-<table border="0" cellspacing="0" cellpadding="0" align="center" width="100%" height="100%">
-<tr>
-<td align="center" valign="middle">
-
-<table border="0" cellspacing="0" cellpadding="0" align="center" width="480" height="360">
-<tr>
-<form action="$ore_reg" method="$method" name="ore_reg">
-<input type="hidden" name="mode" value="regist2">
-<td align="center" valign="middle">
-<tt style="font-size:10pt;color:#aaaaaa">
-<b style="color:#ffeeee;font-size:11pt">$title<br><br>V ‹K “o ˜^</b><br><br>
-ƒ†[ƒU[ID : <input type="text" size="8" name="id" maxlength="12" style="width:100px" class="button1"><br>
-ƒvƒŒƒCƒ„–Œ : <input type="text" size="16" name="nm" style="width:100px" class="button1"><br>
-ƒpƒXƒ[ƒh : <input type="password" size="8" maxlength="8" name="pw" style="width:100px" class="button1"><br>
-«•Ê@@@ :@ ’j<input type="radio" name="sei" value="1">@ —<input type="radio" name="sei" value="2"><br>
-<br>
-<input type="submit" value="“o˜^" style="width:120px" class="button1">
-<input type="reset" value="ƒŠƒZƒbƒg" style="width:60px" class="button1">
-<br><br>
-</tt>
-
-<table border="0" cellspacing="4" cellpadding="4" align="center" bgcolor="#222222">
-<tr>
-<td align="left" valign="middle">
-<tt style="font-size:10pt;color:#aaaabb">
-<li>ƒ†[ƒU[ID‚Í <span style="color:#eebbdd">”ŒŠp‰p”Žš4`12•¶Žš</span> ‚Å‚·B
-<li>ƒvƒŒƒCƒ„–Œ‚Í <span style="color:#eebbdd">‘SŠp8(”ŒŠp16)•¶ŽšˆÈ“à</span> ‚Å‚·B
-<li>ƒpƒXƒ[ƒh‚Í <span style="color:#eebbdd">”ŒŠp‰p”Žš4`8•¶Žš</span> ‚Å‚·B
-<hr color=#444466 size=4 hoshade>
-<li>d•¡“o˜^‚Í‹ÖŽ~‚Å‚·B”­Œ©ŽŸ‘æíœ‚µ‚Ü‚·B
-<li><span style="color:#eebbdd">$del_limit</span> “úŠÔ•ú’u‚·‚é‚ƃLƒƒƒ‰‚ª–•Á‚³‚ê‚Ü‚·B
-<li>Å‘å<span style="color:#eebbdd">$sanka</span>l‚Ü‚Å“o˜^\‰Â\”\\‚Å‚·B
-</tt>
-</td>
-</tr>
-</table>
-
-</td>
-</form>
-</tr>
-</table>
-
-<form>
-<input type="button" value="ƒ^ƒCƒgƒ‹‚Ö–ß‚é" style="width:120px" class="button1" onClick="top.location.href='$index'">
-</form>
-
-</td>
-</tr>
-</table>
-
-EOM
-	}
-	else{
-		print <<"EOM";
-<html>
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
-<title>V‹K“o˜^</title>
-</head>
-<body $body>
-<center>
-V‹K“o˜^
-<form action="$ore_reg" method="$method" name="ore_reg">
-<input type="hidden" name="mode" value="regist2">
-ÌßÚ²Ô°–Œ:<input type="text" size="6" name="nm">(‘SŠp4`8•¶Žš)<br>
-ID:<input type="text" size="6" name="id">(”ŒŠp‰p”4`12•¶Žš)<br>
-ÊߜܰÄÞ:<input type="text" size="6" maxlength="8" name="pw">(”ŒŠp‰p”4`8•¶Žš)<br>
-«•Ê:’j<input type="radio" name="sei" value="1"> —<input type="radio" name="sei" value="2"><br>
-<input type="submit" value="OK">
-</form>
-<a href="$index">INDEX‚Ö</a>
-</body>
-</html>
-EOM
-
-	}
-&copyright;
-exit;
-}
-
-# ƒLƒƒƒ‰ƒtƒ@ƒCƒ‹’ljÁˆ—
-sub regist2{
-
-	&form_check;	# ƒtƒH[ƒ€î•ñƒ`ƒFƒbƒN
-
-	&usrdata_read;
-	&usrdata_open;
-	&cdata_open;
-	require './inc/ore_sub-members-p1.cgi';&member_list;
-	
-	foreach (0 .. $#tdat){
-		%DAT = '';
-		my @pairs = split(/,/,$tdat[$_]);
-		foreach (0 .. $#pairs){
-			my($key,$v) = split(/;/,$pairs[$_]);
-			$DAT{$key} = $v;
-		}
-		if($in{'nm'} eq $DAT{'nm'}){&error("“¯‚¶ÌßÚ²Ô°–Œ‚ªŠù‚ÉŽg‚í‚ê‚Ä‚¢‚Ü‚·");}
-		if($id eq $DAT{'id'}){&error("“¯‚¶Õ°»Þ°ID‚ªŠù‚ÉŽg‚í‚ê‚Ä‚¢‚Ü‚·");}
-
-		# ŠúŒÀØ‚ê‹y‚Ñ ƒŒƒxƒ‹2ˆÈ“à‚Å3“úŠÔ–³ƒAƒNƒZƒX(Œ©•šl”rœ) ‚̃tƒ@ƒCƒ‹íœ
-		if(($del_limit*3600*24<$time-$DAT{'la'}) || (3*3600*24<$time-$DAT{'la'} && $DAT{'lv'}<=2)){
-			unlink("$usrdata$DAT{'id'}\.cgi");
-		}
-	}
-
-	# ŽQ‰Ál”‚͍őå‚Å‚à400l‚قǁBƒŠƒ[ƒh—Ê‚ª‚±‚í‚¢‚̂ŁB
-	&error("Œ»Ý’èˆõ‚ׁ̈AV‹KŽó•t‚Å‚«‚Ü‚¹‚ñ") if $#tdat+1>=$sanka;
-	
-	local($hp,$max_hp,$mp,$max_mp,$ua,$ud,$lr,$ag);
-
-	$hp = $max_hp = int(rand(5)+10);
-	$mp = $max_mp = int(rand(5)+10);
-
-	$ua = int(rand(3)+1);
-	$ud = int(rand(3)+1);
-	$lr = int(rand(3)+1);
-	$ag = int(rand(3)+1);
-
-	$gold = int(rand(500)+500);
-
-	$nm = $in{'nm'};
-	$sei= $in{'sei'};
-
-	$camp=0;
-
-	&dat_write;
-	chmod($chmod,"$usrdata$id\.cgi");
-
-	print "Content-type: text/html\n\n";
-	
-	print <<"EOM";
-<html>
-<head>
-<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
-<title>ß‚Æ”±++ V‹K“o˜^</title>
-</head>
-<body $body>
-<center>
-<table border=0>
-<tr>
-<td align=left>
-<tt style="font-size:12pt">V‹K“o˜^Š®—¹<br>
-<br><br>
-NAME $in{'nm'}<br>
-I D&nbsp;&nbsp;$id<br>
-PASS $pw<br>
-<br>
-HP@ $hp<br>
-MP@ $mp<br>
-UA@ $ua<br>
-UD@ $ud<br>
-LR@ $lr<br>
-<br>
-<form action=$script method=$method>
-<input type=hidden name=id value=$id>
-<input type=hidden name=pw value=$pw>
-<input type=submit value=ƒQ[ƒ€ŠJŽn>
-</form>
-<br>
-<a href="$index">ƒ^ƒCƒgƒ‹‚É–ß‚é</a>
-</td>
-</tr>
-</table>
-</center>
-EOM
-&copyright;
-exit;
-}
-
-# ƒtƒH[ƒ€ƒf[ƒ^ƒ`ƒFƒbƒN
-sub form_check{
-	if(!$in{'nm'}){ &error("–Œ‘O‚ª“ü—Í‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ¡",1); }
-	if(!$pw){ &error("ÊߜܰÄނª“ü—Í‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ¡",1); }
-	if(!$id){ &error("Õ°»Þ°ID‚ª“ü—Í‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ¡",1); }
-	if(!$in{'sei'}){ &error("«•Ê‚ª“ü—Í‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ¡",1); }
-
-	if($in{'sei'}=~ m/[^12]/){ &error("«•Ê‚ªˆÙí‚Å‚·B",1); }
-
-	if($in{'nm'} =~ /</){ &error("–Œ‘O‚É•s³‚È•¶Žš( &lt; )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-	if($in{'nm'} =~ />/){ &error("–Œ‘O‚É•s³‚È•¶Žš( &gt; )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-	if($in{'nm'} =~ /:/){ &error("–Œ‘O‚É•s³‚È•¶Žš( : )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-	if($in{'nm'} =~ /;/){ &error("–Œ‘O‚É•s³‚È•¶Žš( ; )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-	if($in{'nm'} =~ /,/){ &error("–Œ‘O‚É•s³‚È•¶Žš( , )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-	if($in{'nm'} =~ /"/){ &error("–Œ‘O‚É•s³‚È•¶Žš( \" )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-	if($in{'nm'} =~ /'/){ &error("–Œ‘O‚É•s³‚È•¶Žš( ' )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-	if($in{'nm'} =~ /\//){ &error("–Œ‘O‚É•s³‚È•¶Žš( / )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-	if($in{'nm'} =~ /\\/){ &error("–Œ‘O‚É•s³‚È•¶Žš( \ )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-	if($in{'nm'} =~ /\s/){ &error("–Œ‘O‚É•s³‚È•¶Žš( ` )‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-	if($in{'nm'} =~ /`/){ &error("–Œ‘O‚É•s³‚È•¶Žš(‘SŠpœÍß°œ)‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-	if($in{'nm'} =~ /@/){ &error("–Œ‘O‚É•s³‚È•¶Žš(‘SŠpœÍß°œ)‚ªŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·¡",1); }
-
-	if($id =~ m/[^0-9a-zA-Z]/){ &error("Õ°»Þ°ID‚Í”ŒŠp‰p”Žš‚Å“ü—Í‚µ‚ĉº‚³‚¢B",1); }
-	if($pw =~ m/[^0-9a-zA-Z]/){ &error("ÊߜܰÄނ͔ŒŠp‰p”Žš‚Å“ü—Í‚µ‚ĉº‚³‚¢B",1); }
-
-	if(length($pw)<4 || length($pw)>8){ &error("ÊߜܰÄނ͔ŒŠp‰p”Žš4`8•¶Žš‚Å‚·¡",1); }
-	if(length($in{'nm'})>16){ &error("–Œ‘O‚Í”ŒŠp‰p”Žš16•¶ŽšˆÈ“à‚Å‚·¡",1); }
-	if(length($id)<4 || length($id)>12){ &error("Õ°»Þ°ID‚Í”ŒŠp‰p”Žš4`12•¶ŽšˆÈ“à‚Å‚·¡",1); }
-	if($id eq $pw){ &error("Õ°»Þ°ID‚ÆÊߜܰÄނª“¯ˆê•¶Žš—ñ‚Å‚·B",1);}
-
-}
+#!/usr/bin/perl
+# サヌバヌの環境に合わせお倉曎しお䞋さい。
+require './ore_config.cgi';				# ore_config.cgi의 팚슀
+#-----------------------------------------------------------#
+#  眪ず眰++ 二埋背反 										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+$ver	 = '신규등록 v1.1';			# 버전 정볎(변겜 불가)
+#--- [泚意事項] --------------------------------------------#
+# 1.このスクリプトは以䞋の利甚芏皋に埓っお配垃しおいたす。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+# 以䞋凊理 基本的にこれ以䞋はいじらないように。
+&error("현재 점검 쀑입니닀. 잠시만 Ʞ닀렀 죌십시였(ì•œ $ertm 분간)<br>상섞 ë‚Žì—­: $erni") if $er;
+&error("현재 가입읎 불가능합니닀") if $kisei;
+
+&get_time;	# 日時取埗
+&safetime;	# プレむ芏制
+&decode;	# フォヌムデコヌド
+&axs_check;	# アクセスチェック
+($mode eq 'regist2') ? &regist2 : &regist1 ;
+exit;
+
+#-------------------------------------------------------------------------------
+# 以䞋サブルヌチン
+
+# キャラファむル远加凊理
+sub regist1{
+	print "Content-type: text/html\n\n";
+
+	if($mv_mode eq 'pc'){
+		print <<"EOM";
+<html>
+<head>
+<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=UTF-8">
+<title>죄와 벌++ 신규 등록</title>
+<style type="text/css">
+<!--
+.button1{
+	font-family: " ゎシック", "Osaka"; font-size: 12px; font-weight: 400; color: #bbbbcc;
+	border: 2px #666699 ridge; cursor: hand; background-color: #222244;
+	width:100px;
+}
+body,td {  font-size: 10px; color: #aaaab9; cursor: crosshair}
+-->
+</style>
+</head>
+<body $body>
+<center>
+
+<table border="0" cellspacing="0" cellpadding="0" align="center" width="100%" height="100%">
+<tr>
+<td align="center" valign="middle">
+
+<table border="0" cellspacing="0" cellpadding="0" align="center" width="480" height="360">
+<tr>
+<form action="$ore_reg" method="$method" name="ore_reg">
+<input type="hidden" name="mode" value="regist2">
+<td align="center" valign="middle">
+<tt style="font-size:10pt;color:#aaaaaa">
+<b style="color:#ffeeee;font-size:11pt">$title<br><br>신 규 등 록</b><br><br>
+유저 ID : <input type="text" size="8" name="id" maxlength="12" style="width:100px" class="button1"><br>
+플레읎얎명 : <input type="text" size="16" name="nm" style="width:100px" class="button1"><br>
+비밀번혞 : <input type="password" size="8" maxlength="8" name="pw" style="width:100px" class="button1"><br>
+성별　　　 :　 낹<input type="radio" name="sei" value="1">　 여<input type="radio" name="sei" value="2"><br>
+<br>
+<input type="submit" value="등록" style="width:120px" class="button1">
+<input type="reset" value="쎈Ʞ화" style="width:60px" class="button1">
+<br><br>
+</tt>
+
+<table border="0" cellspacing="4" cellpadding="4" align="center" bgcolor="#222222">
+<tr>
+<td align="left" valign="middle">
+<tt style="font-size:10pt;color:#aaaabb">
+<li>유저 ID는 <span style="color:#eebbdd">반각 영묞/숫자 4~12Ꞁ자</span>입니닀.
+<li>플레읎얎명은 <span style="color:#eebbdd">전각 8자(반각 16자) 읎낎</span>입니닀.
+<li>비밀번혞는 <span style="color:#eebbdd">반각 영묞/숫자 4~8Ꞁ자</span>입니닀.
+<hr color=#444466 size=4 hoshade>
+<li>쀑복 등록은 ꞈ지되얎 있습니닀. 발견 시 삭제됩니닀.
+<li><span style="color:#eebbdd">$del_limit</span>음 동안 방치하멎 캐늭터가 삭제됩니닀.
+<li>최대 <span style="color:#eebbdd">$sanka</span>명까지 등록 가능합니닀.
+</tt>
+</td>
+</tr>
+</table>
+
+</td>
+</form>
+</tr>
+</table>
+
+<form>
+<input type="button" value="타읎틀로 돌아가Ʞ" style="width:120px" class="button1" onClick="top.location.href='$index'">
+</form>
+
+</td>
+</tr>
+</table>
+
+EOM
+	}
+	else{
+		print <<"EOM";
+<html>
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+<title>신규 등록</title>
+</head>
+<body $body>
+<center>
+신규 등록
+<form action="$ore_reg" method="$method" name="ore_reg">
+<input type="hidden" name="mode" value="regist2">
+플레읎얎명:<input type="text" size="6" name="nm">(전각 4~8자)<br>
+ID:<input type="text" size="6" name="id">(반각 영묞/숫자 4~12자)<br>
+비밀번혞:<input type="text" size="6" maxlength="8" name="pw">(반각 영묞/숫자 4~8자)<br>
+성별:낹<input type="radio" name="sei" value="1"> 여<input type="radio" name="sei" value="2"><br>
+<input type="submit" value="OK">
+</form>
+<a href="$index">메읞윌로</a>
+</body>
+</html>
+EOM
+
+	}
+&copyright;
+exit;
+}
+
+# キャラファむル远加凊理
+sub regist2{
+
+	&form_check;	# フォヌム情報チェック
+
+	&usrdata_read;
+	&usrdata_open;
+	&cdata_open;
+	require './inc/ore_sub-members-p1.cgi';&member_list;
+	
+	foreach (0 .. $#tdat){
+		%DAT = '';
+		my @pairs = split(/,/,$tdat[$_]);
+		foreach (0 .. $#pairs){
+			my($key,$v) = split(/;/,$pairs[$_]);
+			$DAT{$key} = $v;
+		}
+		if($in{'nm'} eq $DAT{'nm'}){&error("동음한 플레읎얎명읎 읎믞 졎재합니닀.");}
+		if($id eq $DAT{'id'}){&error("동음한 유저 ID가 읎믞 졎재합니닀.");}
+
+		# 期限切れ及び レベル2以内で3日間無アクセス(芋物人排陀) のファむル削陀
+		if(($del_limit*3600*24<$time-$DAT{'la'}) || (3*3600*24<$time-$DAT{'la'} && $DAT{'lv'}<=2)){
+			unlink("$usrdata$DAT{'id'}\.cgi");
+		}
+	}
+
+	# 参加人数は最倧でも400人ほど。リロヌド量がこわいので。
+	&error("현재 정원읎 쎈곌되얎 신규 가입을 할 수 없습니닀.") if $#tdat+1>=$sanka;
+	
+	local($hp,$max_hp,$mp,$max_mp,$ua,$ud,$lr,$ag);
+
+	$hp = $max_hp = int(rand(5)+10);
+	$mp = $max_mp = int(rand(5)+10);
+
+	$ua = int(rand(3)+1);
+	$ud = int(rand(3)+1);
+	$lr = int(rand(3)+1);
+	$ag = int(rand(3)+1);
+
+	$gold = int(rand(500)+500);
+
+	$nm = $in{'nm'};
+	$sei= $in{'sei'};
+
+	$camp=0;
+
+	&dat_write;
+	chmod($chmod,"$usrdata$id\.cgi");
+
+	print "Content-type: text/html\n\n";
+	
+	print <<"EOM";
+<html>
+<head>
+<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=UTF-8">
+<title>죄와 벌++ 신규 등록</title>
+</head>
+<body $body>
+<center>
+<table border=0>
+<tr>
+<td align=left>
+<tt style="font-size:12pt">신규 등록 완료<br>
+<br><br>
+NAME $in{'nm'}<br>
+I D&nbsp;&nbsp;$id<br>
+PASS $pw<br>
+<br>
+HP　 $hp<br>
+MP　 $mp<br>
+UA　 $ua<br>
+UD　 $ud<br>
+LR　 $lr<br>
+<br>
+<form action=$script method=$method>
+<input type=hidden name=id value=$id>
+<input type=hidden name=pw value=$pw>
+<input type=submit value="게임 시작">
+</form>
+<br>
+<a href="$index">타읎틀로 돌아가Ʞ</a>
+</td>
+</tr>
+</table>
+</center>
+EOM
+&copyright;
+exit;
+}
+
+# フォヌムデヌタチェック
+sub form_check{
+	if(!$in{'nm'}){ &error("읎늄읎 입력되지 않았습니닀.",1); }
+	if(!$pw){ &error("비밀번혞가 입력되지 않았습니닀.",1); }
+	if(!$id){ &error("유저 ID가 입력되지 않았습니닀.",1); }
+	if(!$in{'sei'}){ &error("성별읎 입력되지 않았습니닀.",1); }
+
+	if($in{'sei'}=~ m/[^12]/){ &error("성별 입력읎 올바륎지 않습니닀.",1); }
+
+	if($in{'nm'} =~ /</){ &error("읎늄에 올바륎지 않은 묞자( &lt; )가 포핚되얎 있습니닀.",1); }
+	if($in{'nm'} =~ />/){ &error("읎늄에 올바륎지 않은 묞자( &gt; )가 포핚되얎 있습니닀.",1); }
+	if($in{'nm'} =~ /:/){ &error("읎늄에 올바륎지 않은 묞자( : )가 포핚되얎 있습니닀.",1); }
+	if($in{'nm'} =~ /;/){ &error("읎늄에 올바륎지 않은 묞자( ; )가 포핚되얎 있습니닀.",1); }
+	if($in{'nm'} =~ /,/){ &error("읎늄에 올바륎지 않은 묞자( , )가 포핚되얎 있습니닀.",1); }
+	if($in{'nm'} =~ /"/){ &error("읎늄에 올바륎지 않은 묞자( \" )가 포핚되얎 있습니닀.",1); }
+	if($in{'nm'} =~ /'/){ &error("읎늄에 올바륎지 않은 묞자( ' )가 포핚되얎 있습니닀.",1); }
+	if($in{'nm'} =~ /\//){ &error("읎늄에 올바륎지 않은 묞자( / )가 포핚되얎 있습니닀.",1); }
+	if($in{'nm'} =~ /\\/){ &error("읎늄에 올바륎지 않은 묞자( \\ )가 포핚되얎 있습니닀.",1); }
+	if($in{'nm'} =~ /\s/){ &error("읎늄에 올바륎지 않은 묞자( ` )가 포핚되얎 있습니닀.",1); }
+	if($in{'nm'} =~ /`/){ &error("읎늄에 올바륎지 않은 묞자(전각 공백)가 포핚되얎 있습니닀.",1); }
+	if($in{'nm'} =~ /　/){ &error("읎늄에 올바륎지 않은 묞자(전각 공백)가 포핚되얎 있습니닀.",1); }
+
+	if($id =~ m/[^0-9a-zA-Z]/){ &error("유저 ID는 반각 영묞/숫자로 입력핎 죌섞요.",1); }
+	if($pw =~ m/[^0-9a-zA-Z]/){ &error("비밀번혞는 반각 영묞/숫자로 입력핎 죌섞요.",1); }
+
+	if(length($pw)<4 || length($pw)>8){ &error("비밀번혞는 반각 영묞/숫자 4~8자여알 합니닀.",1); }
+	if(length($in{'nm'})>16){ &error("읎늄은 반각 16자 읎낎여알 합니닀.",1); }
+	if(length($id)<4 || length($id)>12){ &error("유저 ID는 반각 영묞/숫자 4~12자 읎낎여알 합니닀.",1); }
+	if($id eq $pw){ &error("유저 ID와 비밀번혞가 동음합니닀.",1);}
+
+}
diff --git a/park.cgi b/park.cgi
old mode 100644
new mode 100755
index 9d78244..ce3c921
--- a/park.cgi
+++ b/park.cgi
@@ -1,308 +1,303 @@
-#!/usr/local/bin/perl
-# ƒT[ƒo[‚̊‹«‚ɍ‡‚킹‚ĕύX‚µ‚ĉº‚³‚¢B
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-$ver = 'Œð—¬Lê v1.1';			# ƒo[ƒWƒ‡ƒ“î•ñ(•ÏX•s‰Â)
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#===============================================================================
-# Ý’荀–Ú
-
-#-------------------------------------------------------------------------------
-# ŠeŽíƒtƒ@ƒCƒ‹
-
-require './inc/ore_sub-bbs.cgi';		# ŠeŽíŒfŽŠ”‹€’ʂȐݒ荀–ړǂݍž‚Ý
-
-$script		= "./park.cgi";				# ‚±‚̃XƒNƒŠƒvƒg‚̃pƒX
-
-$logfile	= "./logdata/park_log.cgi";	# ƒƒOƒtƒ@ƒCƒ‹
-
-$memfile	= "./logdata/park_mem.cgi";	# ŽQ‰ÁŽÒƒtƒ@ƒCƒ‹
-
-$lockkey	= 0;						# ƒtƒ@ƒCƒ‹ƒƒbƒN(0=no 1=yes)
-
-$lockfile = "./camp.lock";				# ƒƒbƒNƒtƒ@ƒCƒ‹–Œ
-
-#-------------------------------------------------------------------------------
-# ŠÂ‹«Ý’è
-
-$title		= "‘ÛŒð—¬Lê";			# ƒ^ƒCƒgƒ‹–Œ
-
-$max		= 100;						# Å‘å•Û—L‹LŽ–”
-
-$reload_mn	= 5;						# Å’ZƒŠƒ[ƒhŠÔŠu(‚±‚Ì•b”ˆÈ“à‚É”­ŒŸ‚·‚é‚ƃGƒ‰[[•‰‰×‘΍ô])
-
-$reload_limit= 120;						# ‚±‚Ì•b””­ŒŸ‚ª‚È‚¢‚Æ‘ÞŽºˆµ‚¢‚É‚·‚é
-
-$com_limit	= 240;						# ƒRƒƒ“ƒg‚̍ő啶Žš”(”ŒŠpŠ·ŽZ)
-
-$tagkey		= 0;						# ƒ^ƒO‚Ì‹–‰Â (0=no 1=yes)
-
-$nolink		= 1;						# URLé“`”rœ (0=no 1=yes)
-
-# ‹@Ží•ÊÝ’è
-if($mv_mode eq 'mv'){
-
-	# ÓÊ޲ٗpÝ’è
-
-	$log_last= 15;						# •\ŽŠs”(ÓÊÞ²Ù)
-
-	# BODYƒ^ƒO‘•ü
-	$body	= 'bgcolor="black" text="white" link="pink" vlink="pink" alink="pink"';
-
-	$hr_color= 'white';					# Œrü‚̐F(ÓÊÞ²Ù)
-}else{
-
-	# PC—pÝ’è
-
-	@reload_time= (90,120,180);			# ƒŠƒ[ƒhŽžŠÔ
-
-	$log_last= 50;						# •\ŽŠs”(PC)
-
-	# BODYƒ^ƒO‘•ü
-	$body	= 'bgcolor="#111122" text="#ddddee" link="#ffddee" vlink="#ffddee" alink="#ffddee"';
-}
-
-#===============================================================================
-# ˆÈ‰ºˆ— Šî–{“I‚É‚±‚êˆÈ‰º‚Í‚¢‚¶‚ç‚È‚¢‚æ‚€‚ɁB
-
-#-------------------------------------------------------------------------------
-# ƒƒCƒ“ˆ—
-&axs_check;		# ƒAƒNƒZƒX§Œä
-&decode;		# ƒtƒH[ƒ€ƒfƒR[ƒh
-&mandata_open;	# ŽQ‰ÁŽÒƒƒO“ǂݍž‚Ý
-&get_time;		# “úŽžŽæ“Ÿ
-&member;
-if($mode eq "regist" && $com){ &regist; }	# ‘‚«ž‚ݏˆ—
-&html;			# ƒy[ƒW•\ŽŠ
-
-#-------------------------------------------------------------------------------
-# ‹LŽ–•\ŽŠ•”
-sub html {
-	# •\ŽŠŠJŽn
-	&header;
-
-	if($mv_mode eq 'mv'){
-		print <<"EOM";
-$camp_info[$DAT{'camp'}][0]ê—p<br>$title
-<form name="park" method="$method" action="$script">
-<input type=hidden name=mode value="regist">
-<input type=hidden name=id value="$id">
-<input type=hidden name=pw value="$pw">
-<input type=text name=comment size=8>
-<input type=submit value="”­ŒŸ"><input type=reset value="žØ±">
-</form>
-<form name="ore_" method="$method" action="$ore_game">
-<input type=hidden name=id value="$id">
-<input type=hidden name=pw value="$pw">
-<input type=hidden name=cmd value="-1">
-<input type=submit value="–ß‚é">
-</form>
-EOM
-	}
-	else{
-
-		print <<"EOM";
-<table>
-<tr>
-<td width="220"><img src="./imgs/title_game.png" width="220" height="52"></td>
-<td valign="bottom" align="left">
-<b>$title</b><br>
-<small>` ŽQ‰ÁŽÒ‚ÌŒe‚¢‚Ìê `</small>
-</td>
-</tr>
-<tr>
-<form name="park" method="$method" action="$script">
-<td colspan="2" nowrap>
-<input type="hidden" name="mode" value="regist">
-<input type="hidden" name="id" value="$id">
-<input type="hidden" name="pw" value="$pw">
-<input type="hidden" name="rd" value="$rd">
-<input type="text" name="comment" class="button1" style="width:300px">
-<input type="submit" value="”­ŒŸ^XV" class="button1" style="width:80px">
-<input type="reset" value="ƒNƒŠƒA" class="button1" style="width:60px">
-</td>
-</form>
-</tr>
-<tr>
-<form method="$method" action="$script">
-<input type="hidden" name="mode" value="regist">
-<input type="hidden" name="id" value="$id">
-<input type="hidden" name="pw" value="$pw">
-<td align="left">
-<tt>XV:<select name="rd" size="1" class="button1" style="width:60px">
-EOM
-
-		print qq|<option value="$rd">$reload_time[$rd]•b</option>|;
-		foreach(0 .. $#reload_time){
-			print qq|<option value="$_">$reload_time[$_]•b</option>| if($rd!=$_);
-		}
-
-		print <<EOM;
-</select>@<input type="submit" value="•ÏX" class="button1" style="width:60px">
-</td>
-</form>
-<form name="ore_" method="$method" action="$ore_game">
-<td align="right">
-<input type=hidden name=id value="$id">
-<input type=hidden name=pw value="$pw">
-<input type=hidden name=cmd value="-1">
-<input type=submit value="–ß‚é" class="button1" style="width:80px">
-</td>
-</form>
-</tr>
-</table>
-EOM
-	}
-
-	# ŽQ‰ÁŽÒ•\ŽŠF$member
-	($mv_mode eq 'mv') ?
-		print qq|ŽQ‰ÁŽÒ($num)<hr color=\"$hr_color\">\n|:
-		print qq|<hr size="8" color="#666699"><span class=\"mem\"><br>ŽQ‰ÁŽÒ($num)F$member</span><hr  color="#c0c0c0" size="4">\n|;
-
-	# ƒƒO‚ð“WŠJ
-	open(IN,"$logfile") || &error("Open Error : $logfile");
-	local $log_last_flag=0;
-	while (<IN>) {
-		$log_last_flag++;
-		local($date,$nm,$camp,$com,$sogo,$addr,$host) = split(/<>/);
-		$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);
-		($mv_mode eq 'mv') ? $com =~ s/ƒnƒ@ƒg/<font color="pink">\&\#63726<\/font>/g : $com =~ s/ƒnƒ@ƒg/<span class="f1">©<\/span>/g ;
-
-		($mv_mode eq 'mv') ?
-			print qq|$nm:$com [$camp_info[$camp][0] $date]<br>\n|:
-			print qq|<span style="color:$camp_info[$camp][1]">$nm F $com </span><span class="date">[ $camp_info[$camp][0] $date ]</span><hr>\n|;
-		last if $log_last_flag > $log_last;
-	}
-	close(IN);
-
-	# ’˜ìŒ •\ŽŠiíœ‹ÖŽ~j
-	print "<hr>\n";
-	&copyright;
-	exit;
-}
-
-#-------------------------------------------------------------------------------
-# ƒƒO‘‚«ž‚ݏˆ—
-sub regist {
-
-	# ƒtƒ@ƒCƒ‹ƒƒbƒN
-	if ($lockkey) { &lock; }
-
-	# ƒƒO‚ð“ǂݍž‚Ý
-	open(IN,"$logfile") || &error("Open Error : $logfile");
-	@lines = <IN>;
-	close(IN);
-
-	# Å‘å‹LŽ–”ˆ—
-	while ($max <= @lines) { pop(@lines); }
-
-	# ƒƒOXVˆ—
-	unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>\n");
-	open(OUT,">$logfile") || &error("Write Error : $logfile");
-	print OUT @lines;
-	close(OUT);
-
-	# ƒƒbƒN‰ðœ
-	if (-e $lockfile) { unlink($lockfile); }
-}
-
-#-------------------------------------------------------------------------------
-# ÝŽºŽÒˆ—
-sub member {
-	open(IN,"$memfile") || &error("Open Error : $memfile");
-	@data = <IN>;
-	close(IN);
-
-	$member="";
-	@new=();
-	$flag=0;
-	$flag2=0;
-	foreach (@data) {
-		($time2,$name2,$host2) = split(/<>/);
-
-		# ”­ŒŸ‚Ì‚È‚¢ŽÒ‚͍폜
-		if ($time-$reload_limit > $time2) { next; }
-		elsif ($host2 eq "$addr") {
-
-			# ”­ŒŸ/XVŠÔŠu
-#			&error("$reload_mn•bˆÈãŠÔŠu‚ð‹ó‚¯‚Ä”­ŒŸ‚µ‚Ä‚­‚Ÿ‚³‚¢B") if($reload_mn+$time2>$time);
-			if($reload_mn+$time2>$time){
-				print "Status: 204\n\n";
-				exit;
-			}
-
-			# ‘ÞŽºŽÒ‚͍폜
-			if ($_[0] eq 'bye') { next; }
-
-			# ƒzƒXƒg–Œ‚ª“¯ˆê‚Å‚ ‚ê‚ÎŽžŠÔ‚Æ–Œ‘O‚ðXV
-			$_ = "$time<>$DAT{'nm'}<>$addr<>\n";
-			$name2 = $DAT{'nm'};
-			$flag=1;
-		}
-		# XV—p”z—ñ @new ‚ɒljÁ
-		if ($name2 ne "$host2") {
-			push(@new,$_);
-
-			# ŽQ‰ÁŽÒ•\ŽŠ—p•¶Žš—ñ‚ðì¬
-			if(!$flag2){$member .="$name2ž";$flag2=1;}
-			else{$member .="$name2Ÿ";$flag2=0;}
-		}
-	}
-	# V‹KŽQ‰ÁŽÒ‚ð’ljÁ
-	if (!$flag && $mv_mode eq 'pc') {
-		if ($DAT{'nm'} ne "$host") {
-			push(@new,"$time<>$DAT{'nm'}<>$addr<>\n");
-			$member .= (!$flag2) ? "$DAT{'nm'} [IN]ž" : "$DAT{'nm'} [IN]Ÿ";
-		}
-	}
-	# ŽQ‰ÁŽÒ”‚ð”FŽ¯
-	$num = @new;
-
-	# ƒtƒ@ƒCƒ‹XV
-	open(OUT,">$memfile") || &error("Write Error : $memfile");
-	eval "flock(OUT,2);";
-	truncate(OUT,0);
-	seek(OUT,0,0);
-	print OUT @new;
-	close(OUT);
-}
-
-#-------------------------------------------------------------------------------
-# HTML‚̃wƒbƒ_[
-sub header {
-	print "Content-type: text/html\n\n";
-	print <<"EOM";
-<html>
-<head>
-<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
-<title>$title</title>
-EOM
-	if($mv_mode eq 'pc'){
-		print <<"EOM";
-<META HTTP-EQUIV="refresh" CONTENT="$reload_time[$rd];URL=$script?id=$id&pw=$pw&rd=$rd">
-$css
-<script language="JavaScript">
-<!--
-function textfocus(){
-	document.park.comment.focus();
-	return true;
-}
-//-->
-</script>
-EOM
-	}
-	(!$_[0] && $mv_mode eq 'pc') ? print qq|</head>\n<body $body onLoad="return textfocus()">| : print "</head>\n<body $body>" ;
-}
-
-
-
-
-
+#!/usr/bin/perl
+# サヌバヌの環境に合わせお倉曎しお䞋さい。
+#-----------------------------------------------------------#
+#  眪ず眰++ 二埋背反										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+$ver = '교류ꎑ장 v1.1';			# 버전 정볎(변겜 불가)
+#--- [泚意事項] --------------------------------------------#
+# 1.このスクリプトは以䞋の利甚芏皋に埓っお配垃しおいたす。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#===============================================================================
+# 蚭定項目
+
+#-------------------------------------------------------------------------------
+# 各皮ファむル
+
+require './inc/ore_sub-bbs.cgi';		# 各皮掲瀺板共通な蚭定項目読み蟌み
+
+$script		= "./park.cgi";				# 읎 슀크늜튞의 겜로
+
+$logfile	= "./logdata/park_log.cgi";	# 로귞 파음
+
+$memfile	= "./logdata/park_mem.cgi";	# 찞가자 파음
+
+$lockkey	= 0;						# 파음 잠ꞈ(0=no 1=yes)
+
+$lockfile = "./camp.lock";				# 잠ꞈ 파음명
+
+#-------------------------------------------------------------------------------
+# 環境蚭定
+
+$title		= "국제교류ꎑ장";			# 타읎틀명
+
+$max		= 100;						# 최대 볎유 게시Ꞁ 수
+
+$reload_mn	= 5;						# 최닚 늬로드 간격(읎 쎈 수 읎낎에 발얞 시 에러[부하 대책])
+
+$reload_limit= 120;						# 읎 시간(쎈) 동안 발얞읎 없윌멎 퇎싀 처늬
+
+$com_limit	= 240;						# 윔멘튞 최대 Ꞁ자수(반각 환산)
+
+$tagkey		= 0;						# 태귞 허용 (0=no 1=yes)
+
+$nolink		= 1;						# URL ꎑ고 배제 (0=no 1=yes)
+
+# 機皮別蚭定
+if($mv_mode eq 'mv'){
+
+	# 몚바음용 섀정
+
+	$log_last= 15;						# 표시 행 수(몚바음)
+
+	# BODY 태귞 디자읞
+	$body	= 'bgcolor="black" text="white" link="pink" vlink="pink" alink="pink"';
+
+	$hr_color= 'white';					# 구분선 색상(몚바음)
+}else{
+
+	# PC용 섀정
+
+	@reload_time= (90,120,180);			# 늬로드 시간
+
+	$log_last= 50;						# 표시 행 수(PC)
+
+	# BODY 태귞 디자읞
+	$body	= 'bgcolor="#111122" text="#ddddee" link="#ffddee" vlink="#ffddee" alink="#ffddee"';
+}
+
+#===============================================================================
+# 以䞋凊理 基本的にこれ以䞋はいいじらないように。
+
+#-------------------------------------------------------------------------------
+# メむン凊理
+&axs_check;		# アクセス制埡
+&decode;		# フォヌムデコヌド
+&mandata_open;	# 参加者ログ読み蟌み
+&get_time;		# 日時取埗
+&member;
+if($mode eq "regist" && $com){ &regist; }	# 曞き蟌み凊理
+&html;			# ペヌゞ衚瀺
+
+#-------------------------------------------------------------------------------
+# 蚘事衚瀺郚
+sub html {
+	# 衚瀺開始
+	&header;
+
+	if($mv_mode eq 'mv'){
+		print <<"EOM";
+$camp_info[$DAT{'camp'}][0] 전용<br>$title
+<form name="park" method="$method" action="$script">
+<input type=hidden name=mode value="regist">
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw">
+<input type=text name=comment size=8>
+<input type=submit value="말하Ʞ"><input type=reset value="지우Ʞ">
+</form>
+<form name="ore_" method="$method" action="$ore_game">
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw">
+<input type=hidden name=cmd value="-1">
+<input type=submit value="돌아가Ʞ">
+</form>
+EOM
+	}
+	else{
+
+		print <<"EOM";
+<table>
+<tr>
+<td width="220"><img src="./imgs/title_game.png" width="220" height="52"></td>
+<td valign="bottom" align="left">
+<b>$title</b><br>
+<small>~ 찞가자듀의 쉌터 ~</small>
+</td>
+</tr>
+<tr>
+<form name="park" method="$method" action="$script">
+<td colspan="2" nowrap>
+<input type="hidden" name="mode" value="regist">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<input type="hidden" name="rd" value="$rd">
+<input type="text" name="comment" class="button1" style="width:300px">
+<input type="submit" value="말하Ʞ새로고칚" class="button1" style="width:80px">
+<input type="reset" value="지우Ʞ" class="button1" style="width:60px">
+</td>
+</form>
+</tr>
+<tr>
+<form method="$method" action="$script">
+<input type="hidden" name="mode" value="regist">
+<input type="hidden" name="id" value="$id">
+<input type="hidden" name="pw" value="$pw">
+<td align="left">
+<tt>새로고칚:<select name="rd" size="1" class="button1" style="width:60px">
+EOM
+
+		print qq|<option value="$rd">$reload_time[$rd]쎈</option>|;
+		foreach(0 .. $#reload_time){
+			print qq|<option value="$_">$reload_time[$_]쎈</option>| if($rd!=$_);
+		}
+
+		print <<EOM;
+</select>　<input type="submit" value="변겜" class="button1" style="width:60px">
+</td>
+</form>
+<form name="ore_" method="$method" action="$ore_game">
+<td align="right">
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw">
+<input type=hidden name=cmd value="-1">
+<input type=submit value="돌아가Ʞ" class="button1" style="width:80px">
+</td>
+</form>
+</tr>
+</table>
+EOM
+	}
+
+	# 参加者衚瀺$member
+	($mv_mode eq 'mv') ?
+		print qq|찞가자($num)<hr color=\"$hr_color\">\n|:
+		print qq|<hr size="8" color="#666699"><span class=\"mem\"><br>찞가자($num)$member</span><hr  color="#c0c0c0" size="4">\n|;
+
+	# ログを展開
+	open(IN,"$logfile") || &error("Open Error : $logfile");
+	local $log_last_flag=0;
+	while (<IN>) {
+		$log_last_flag++;
+		local($date,$nm,$camp,$com,$sogo,$addr,$host) = split(/<>/);
+		$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);
+		($mv_mode eq 'mv') ? $com =~ s/하튾/<font color="pink">\&\#63726<\/font>/g : $com =~ s/하튾/<span class="f1"><\/span>/g ;
+
+		($mv_mode eq 'mv') ?
+			print qq|$nm:$com [$camp_info[$camp][0] $date]<br>\n|:
+			print qq|<span style="color:$camp_info[$camp][1]">$nm  $com </span><span class="date">[ $camp_info[$camp][0] $date ]</span><hr>\n|;
+		last if $log_last_flag > $log_last;
+	}
+	close(IN);
+
+	# 著䜜暩衚瀺削陀犁止
+	print "<hr>\n";
+	&copyright;
+	exit;
+}
+
+#-------------------------------------------------------------------------------
+# ログ曞き蟌み凊理
+sub regist {
+
+	# ファむルロック
+	if ($lockkey) { &lock; }
+
+	# ログを読み蟌み
+	open(IN,"$logfile") || &error("Open Error : $logfile");
+	@lines = <IN>;
+	close(IN);
+
+	# 最倧蚘事数凊理
+	while ($max <= @lines) { pop(@lines); }
+
+	# ログ曎新凊理
+	unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>\n");
+	open(OUT,">$logfile") || &error("Write Error : $logfile");
+	print OUT @lines;
+	close(OUT);
+
+	# ロック解陀
+	if (-e $lockfile) { unlink($lockfile); }
+}
+
+#-------------------------------------------------------------------------------
+# 圚宀者凊理
+sub member {
+	open(IN,"$memfile") || &error("Open Error : $memfile");
+	@data = <IN>;
+	close(IN);
+
+	$member="";
+	@new=();
+	$flag=0;
+	$flag2=0;
+	foreach (@data) {
+		($time2,$name2,$host2) = split(/<>/);
+
+		# 発蚀のない者は削陀
+		if ($time-$reload_limit > $time2) { next; }
+		elsif ($host2 eq "$addr") {
+
+			# 발얞/갱신 간격
+#			&error("$reload_mn秒以䞊間隔を空けお発蚀しおください。") if($reload_mn+$time2>$time);
+			if($reload_mn+$time2>$time){
+				print "Status: 204\n\n";
+				exit;
+			}
+
+			# 退宀者は削陀
+			if ($_[0] eq 'bye') { next; }
+
+			# ホスト名が同䞀であれば時間ず名前を曎新
+			$_ = "$time<>$DAT{'nm'}<>$addr<>\n";
+			$name2 = $DAT{'nm'};
+			$flag=1;
+		}
+		# 曎新甚配列 @new に远加
+		if ($name2 ne "$host2") {
+			push(@new,$_);
+
+			# 参加者衚瀺甚文字列を䜜成
+			if(!$flag2){$member .="$name2◇";$flag2=1;}
+			else{$member .="$name2◆";$flag2=0;}
+		}
+	}
+	# 新芏参加者を远加
+	if (!$flag && $mv_mode eq 'pc') {
+		if ($DAT{'nm'} ne "$host") {
+			push(@new,"$time<>$DAT{'nm'}<>$addr<>\n");
+			$member .= (!$flag2) ? "$DAT{'nm'} [IN]◇" : "$DAT{'nm'} [IN]◆";
+		}
+	}
+	# 参加者数を認識
+	$num = @new;
+
+	# ファむル曎新
+	open(OUT,">$memfile") || &error("Write Error : $memfile");
+	eval "flock(OUT,2);";
+	truncate(OUT,0);
+	seek(OUT,0,0);
+	print OUT @new;
+	close(OUT);
+}
+
+#-------------------------------------------------------------------------------
+# HTMLのヘッダヌ
+sub header {
+	print "Content-type: text/html\n\n";
+	print <<"EOM";
+<html>
+<head>
+<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=UTF-8">
+<title>$title</title>
+EOM
+	if($mv_mode eq 'pc'){
+		print <<"EOM";
+<META HTTP-EQUIV="refresh" CONTENT="$reload_time[$rd];URL=$script?id=$id&pw=$pw&rd=$rd">
+$css
+<script language="JavaScript">
+<!--
+function textfocus(){
+	document.park.comment.focus();
+	return true;
+}
+//-->
+</script>
+EOM
+	}
+	(!$_[0] && $mv_mode eq 'pc') ? print qq|</head>\n<body $body onLoad="return textfocus()">| : print "</head>\n<body $body>" ;
+}
diff --git a/public.cgi b/public.cgi
old mode 100644
new mode 100755
index eb6e178..accac83
--- a/public.cgi
+++ b/public.cgi
@@ -1,224 +1,224 @@
-#!/usr/local/bin/perl
-# ƒT[ƒo[‚̊‹«‚ɍ‡‚킹‚ĕύX‚µ‚ĉº‚³‚¢B
-#-----------------------------------------------------------#
-#  ß‚Æ”±++ “ñ—¥”w”œ										#
-#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
-#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
-#  BLANK BOARD [ http://pom.to/ ]							#
-#-----------------------------------------------------------#
-$ver = 'ŒöŽ®ð–ñ v1.0';				# ƒo[ƒWƒ‡ƒ“î•ñ(•ÏX•s‰Â)
-#--- [’ˆÓŽ–€] --------------------------------------------#
-# 1.‚±‚̃XƒNƒŠƒvƒg‚͈ȉº‚Ì—˜—p‹K’ö‚ɏ]‚Á‚Ä”z•z‚µ‚Ä‚¢‚Ü‚·B	#
-#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
-#-----------------------------------------------------------#
-
-#===============================================================================
-# Ý’荀–Ú
-
-#-------------------------------------------------------------------------------
-# ŠeŽíƒtƒ@ƒCƒ‹
-
-require './inc/ore_sub-bbs.cgi';		# ŠeŽíŒfŽŠ”‹€’ʂȐݒ荀–ړǂݍž‚Ý
-
-$script		= "./public.cgi";			# ‚±‚̃XƒNƒŠƒvƒg‚̃pƒX
-
-$logfile	= "./logdata/public_log.cgi";# ƒƒOƒtƒ@ƒCƒ‹‚̃pƒX
-
-$lockkey	= 0;						# ƒtƒ@ƒCƒ‹ƒƒbƒN(0=no 1=yes)
-
-$lockfile = "./public.lock";			# ƒƒbƒNƒtƒ@ƒCƒ‹–Œ
-
-#-------------------------------------------------------------------------------
-# ŠÂ‹«Ý’è
-
-$title		= "ŒöŽ®ð–ñ";				# ƒ^ƒCƒgƒ‹–Œ
-
-$max		= 200;						# Å‘å•Û—L‹LŽ–”
-
-$write_limit= 300;						# ‚±‚Ì•b”‚̊Ԃ͍ēx“Še‚ª‚Å‚«‚È‚¢
-
-$com_limit	= 4096;						# ƒRƒƒ“ƒg‚̍ő啶Žš”(”ŒŠpŠ·ŽZ)
-
-$tagkey		= 0;						# ƒ^ƒO‚Ì‹–‰Â (0=no 1=yes)
-
-$nolink		= 1;						# URLé“`”rœ (0=no 1=yes)
-
-$br_mode	= 1;						# ‰üsƒ‚[ƒh (0=no 1=yes)
-
-# ‹@Ží•ÊÝ’è
-if($mv_mode eq 'mv'){
-
-	# ÓÊ޲ٗpÝ’è
-
-	$log_last= 10;						# •\ŽŠs”(ÓÊÞ²Ù)
-
-	# BODYƒ^ƒO‘•ü
-	$body	= 'body bgcolor="black" text="white" link="pink" vlink="pink" alink="pink"';
-
-	$hr_color= 'white';					# Œrü‚̐F(ÓÊÞ²Ù)
-}else{
-
-	# PC—pÝ’è
-
-	$log_last= 500;						# •\ŽŠs”(PC)
-
-	# BODYƒ^ƒO‘•ü
-	$body	= 'bgcolor="#111122" text="#ddddee" link="#ffddee" vlink="#ffddee" alink="#ffddee"';
-}
-
-#===============================================================================
-# ˆÈ‰ºˆ— Šî–{“I‚É‚±‚êˆÈ‰º‚Í‚¢‚¶‚ç‚È‚¢‚æ‚€‚ɁB
-
-#-------------------------------------------------------------------------------
-# ƒƒCƒ“ˆ—
-&axs_check;		# ƒAƒNƒZƒX§Œä
-&decode;		# ƒtƒH[ƒ€ƒfƒR[ƒh
-&mandata_open;	# ŽQ‰ÁŽÒƒƒO“ǂݍž‚Ý
-&get_time;		# “úŽžŽæ“Ÿ
-if ($mode eq "regist" && $com) { &regist; }	# ‘‚«ž‚ݏˆ—
-&html;			# ƒy[ƒW•\ŽŠ
-
-#-------------------------------------------------------------------------------
-# ‹LŽ–•\ŽŠ•”
-sub html {
-	# •\ŽŠŠJŽn
-	&header;
-
-	if($mv_mode eq 'mv'){
-		print <<"EOM";
-<b>$title</b>
-<form name="park" method="$method" action="$script">
-<input type=hidden name=mode value="regist">
-<input type=hidden name=id value="$id">
-<input type=hidden name=pw value="$pw">
-<textarea name=comment rows="2" size=16></textarea><br>
-<input type=submit value="”­ŒŸ"><input type=reset value="žØ±">
-</form>
-<form name="ore_" method="$method" action="$ore_game">
-<input type=hidden name=id value="$id">
-<input type=hidden name=pw value="$pw">
-<input type=hidden name=cmd value="-1">
-<input type=submit value="–ß‚é">
-</form>
-EOM
-	}
-	else{
-
-		print <<"EOM";
-<table>
-<tr>
-<td width="220"><img src="./imgs/title_game.png" width="220" height="52"></td>
-<td valign="bottom" align="left">
-<b>$title</b><br>
-<small>` ð–ñ‚⓯–¿A‚³‚ç‚Éâg‹c‚È‚Ç `</small>
-</td>
-</tr>
-<form name="park" method="$method" action="$script">
-<tr>
-<td colspan="2" nowrap>
-<input type=hidden name=mode value="regist">
-<input type=hidden name=id value="$id">
-<input type=hidden name=pw value="$pw">
-<textarea name=comment class="button1" rows="4" style="width:400px;"></textarea>
-</td>
-</tr>
-<tr>
-<td align="left" colspan="2">
-<input type=submit value="”­ŒŸ^XV" class="button1" style="width:80px">
-<input type=reset value="ƒNƒŠƒA" class="button1" style="width:60px">
-</td>
-</tr>
-</form>
-<form name="ore_" method="$method" action="$ore_game">
-<tr>
-<td align="right" colspan="2">
-<input type=hidden name=id value="$id">
-<input type=hidden name=pw value="$pw">
-<input type=hidden name=cmd value="-1">
-<input type=submit value="–ß‚é" class="button1" style="width:80px">
-</td>
-</tr>
-</form>
-</table>
-EOM
-	}
-
-	($mv_mode eq 'mv') ?
-		print qq|<hr color=\"$hr_color\">\n|:
-		print qq|<hr size="8" color="#666699">\n|;
-
-	# ƒƒO‚ð“WŠJ
-	open(IN,"$logfile") || &error("Open Error : $logfile");
-	local $log_last_flag=0;
-	while (<IN>) {
-		$log_last_flag++;
-		local($date,$nm,$camp,$com,$sogo,$addr,$host) = split(/<>/);
-		$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);
-		($mv_mode eq 'mv') ? $com =~ s/ƒnƒ@ƒg/<font color="pink">\&\#63726<\/font>/g : $com =~ s/ƒnƒ@ƒg/<span class="f1">©<\/span>/g ;
-
-		($mv_mode eq 'mv') ?
-			print qq|$nm:$com [$camp_info[$camp][0] $date]<br>\n|:
-			print qq|<span style="color:$camp_info[$camp][1]">$nm <span class="date">[ $camp_info[$camp][0] $date ]</span><br>$com </span><hr>\n|;
-		last if $log_last_flag > $log_last;
-	}
-	close(IN);
-
-	# ’˜ìŒ •\ŽŠiíœ‹ÖŽ~j
-	print "<hr>\n";
-	&copyright;
-	exit;
-}
-
-#-------------------------------------------------------------------------------
-# ƒƒO‘‚«ž‚ݏˆ—
-sub regist {
-
-	# ƒtƒ@ƒCƒ‹ƒƒbƒN
-	if ($lockkey) { &lock; }
-
-	# ƒƒO‚ð“ǂݍž‚Ý
-	open(IN,"$logfile") || &error("Open Error : $logfile");
-	@lines = <IN>;
-	close(IN);
-
-	my @y1 = split(/<>/,$lines[0]);
-	&error("Žb‚­Œã‚É“Še‚µ‚Ä‚­‚Ÿ‚³‚¢B") if(($time<$y1[8]+$write_limit) && ($addr eq $y1[5]));
-
-	# Å‘å‹LŽ–”ˆ—
-	while ($max <= @lines) { pop(@lines); }
-
-	# ƒƒOXVˆ—
-	unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>$time<>\n");
-	open(OUT,">$logfile") || &error("Write Error : $logfile");
-	print OUT @lines;
-	close(OUT);
-
-	# ƒƒbƒN‰ðœ
-	if (-e $lockfile) { unlink($lockfile); }
-}
-
-#-------------------------------------------------------------------------------
-# HTML‚̃wƒbƒ_[
-sub header {
-	print "Content-type: text/html\n\n";
-	print <<"EOM";
-<html>
-<head>
-<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
-<title>$title</title>
-EOM
-	if($mv_mode eq 'pc'){
-		print <<"EOM";
-$css
-<script language="JavaScript">
-<!--
-function textfocus(){
-	document.park.comment.focus();
-	return true;
-}
-//-->
-</script>
-EOM
-	}
-	(!$_[0] && $mv_mode eq 'pc') ? print qq|</head>\n<body $body onLoad="return textfocus()">| : print "</head>\n<body $body>" ;
-}
+#!/usr/bin/perl
+# サヌバヌの環境に合わせお倉曎しお䞋さい。
+#-----------------------------------------------------------#
+#  眪ず眰++ 二埋背反										#
+#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
+#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
+#  BLANK BOARD [ http://pom.to/ ]							#
+#-----------------------------------------------------------#
+$ver = '공식조앜 v1.0';				# 버전 정볎(변겜 불가)
+#--- [泚意事項] --------------------------------------------#
+# 1.このスクリプトは以䞋の利甚芏皋に埓っお配垃しおいたす。	#
+#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
+#-----------------------------------------------------------#
+
+#===============================================================================
+# 蚭定項目
+
+#-------------------------------------------------------------------------------
+# 各皮ファむル
+
+require './inc/ore_sub-bbs.cgi';		# 各皮掲瀺板共通な蚭定項目読み蟌み
+
+$script		= "./public.cgi";			# 읎 슀크늜튞의 겜로
+
+$logfile	= "./logdata/public_log.cgi";# 로귞 파음 겜로
+
+$lockkey	= 0;						# 파음 잠ꞈ(0=no 1=yes)
+
+$lockfile = "./public.lock";			# 잠ꞈ 파음명
+
+#-------------------------------------------------------------------------------
+# 環境蚭定
+
+$title		= "공식 ì¡°ì•œ";				# 타읎틀명
+
+$max		= 200;						# 최대 볎유 게시Ꞁ 수
+
+$write_limit= 300;						# 읎 시간(쎈) 동안은 재투고 불가
+
+$com_limit	= 4096;						# 윔멘튞 최대 Ꞁ자수(반각 환산)
+
+$tagkey		= 0;						# 태귞 허용 (0=no 1=yes)
+
+$nolink		= 1;						# URL ꎑ고 배제 (0=no 1=yes)
+
+$br_mode	= 1;						# 쀄바꿈 몚드 (0=no 1=yes)
+
+# 機皮別蚭定
+if($mv_mode eq 'mv'){
+
+	# 몚바음용 섀정
+
+	$log_last= 10;						# 표시 행 수(몚바음)
+
+	# BODY 태귞 디자읞
+	$body	= 'body bgcolor="black" text="white" link="pink" vlink="pink" alink="pink"';
+
+	$hr_color= 'white';					# 구분선 색상(몚바음)
+}else{
+
+	# PC甚蚭定
+
+	$log_last= 500;						# 표시 행 수(PC)
+
+	# BODY 태귞 디자읞
+	$body	= 'bgcolor="#111122" text="#ddddee" link="#ffddee" vlink="#ffddee" alink="#ffddee"';
+}
+
+#===============================================================================
+# 以䞋凊理 基本的にこれ以䞋はいいじらないように。
+
+#-------------------------------------------------------------------------------
+# メむン凊理
+&axs_check;		# アクセス制埡
+&decode;		# フォヌムデコヌド
+&mandata_open;	# 参加者ログ読み蟌み
+&get_time;		# 日時取埗
+if ($mode eq "regist" && $com) { &regist; }	# 曞き蟌み凊理
+&html;			# ペヌゞ衚瀺
+
+#-------------------------------------------------------------------------------
+# 蚘事衚瀺郚
+sub html {
+	# 衚瀺開始
+	&header;
+
+	if($mv_mode eq 'mv'){
+		print <<"EOM";
+<b>$title</b>
+<form name="park" method="$method" action="$script">
+<input type=hidden name=mode value="regist">
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw">
+<textarea name=comment rows="2" size=16></textarea><br>
+<input type=submit value="말하Ʞ"><input type=reset value="지우Ʞ">
+</form>
+<form name="ore_" method="$method" action="$ore_game">
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw">
+<input type=hidden name=cmd value="-1">
+<input type=submit value="돌아가Ʞ">
+</form>
+EOM
+	}
+	else{
+
+		print <<"EOM";
+<table>
+<tr>
+<td width="220"><img src="./imgs/title_game.png" width="220" height="52"></td>
+<td valign="bottom" align="left">
+<b>$title</b><br>
+<small>~ 조앜읎나 동맹, 귞늬고 품의 등 ~</small>
+</td>
+</tr>
+<form name="park" method="$method" action="$script">
+<tr>
+<td colspan="2" nowrap>
+<input type=hidden name=mode value="regist">
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw">
+<textarea name=comment class="button1" rows="4" style="width:400px;"></textarea>
+</td>
+</tr>
+<tr>
+<td align="left" colspan="2">
+<input type=submit value="말하Ʞ새로고칚" class="button1" style="width:80px">
+<input type=reset value="지우Ʞ" class="button1" style="width:60px">
+</td>
+</tr>
+</form>
+<form name="ore_" method="$method" action="$ore_game">
+<tr>
+<td align="right" colspan="2">
+<input type=hidden name=id value="$id">
+<input type=hidden name=pw value="$pw">
+<input type=hidden name=cmd value="-1">
+<input type=submit value="돌아가Ʞ" class="button1" style="width:80px">
+</td>
+</tr>
+</form>
+</table>
+EOM
+	}
+
+	($mv_mode eq 'mv') ?
+		print qq|<hr color=\"$hr_color\">\n|:
+		print qq|<hr size="8" color="#666699">\n|;
+
+	# ログを展開
+	open(IN,"$logfile") || &error("Open Error : $logfile");
+	local $log_last_flag=0;
+	while (<IN>) {
+		$log_last_flag++;
+		local($date,$nm,$camp,$com,$sogo,$addr,$host) = split(/<>/);
+		$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);
+		($mv_mode eq 'mv') ? $com =~ s/하튾/<font color="pink">\&\#63726<\/font>/g : $com =~ s/하튾/<span class="f1"><\/span>/g ;
+
+		($mv_mode eq 'mv') ?
+			print qq|$nm:$com [$camp_info[$camp][0] $date]<br>\n|:
+			print qq|<span style="color:$camp_info[$camp][1]">$nm <span class="date">[ $camp_info[$camp][0] $date ]</span><br>$com </span><hr>\n|;
+		last if $log_last_flag > $log_last;
+	}
+	close(IN);
+
+	# 著䜜暩衚瀺削陀犁止
+	print "<hr>\n";
+	&copyright;
+	exit;
+}
+
+#-------------------------------------------------------------------------------
+# ログ曞き蟌み凊理
+sub regist {
+
+	# ファむルロック
+	if ($lockkey) { &lock; }
+
+	# ログを読み蟌み
+	open(IN,"$logfile") || &error("Open Error : $logfile");
+	@lines = <IN>;
+	close(IN);
+
+	my @y1 = split(/<>/,$lines[0]);
+	&error("잠시 후에 닀시 등록핎 죌섞요.") if(($time<$y1[8]+$write_limit) && ($addr eq $y1[5]));
+
+	# 最倧蚘事数凊理
+	while ($max <= @lines) { pop(@lines); }
+
+	# ログ曎新凊理
+	unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>$time<>\n");
+	open(OUT,">$logfile") || &error("Write Error : $logfile");
+	print OUT @lines;
+	close(OUT);
+
+	# ロック解陀
+	if (-e $lockfile) { unlink($lockfile); }
+}
+
+#-------------------------------------------------------------------------------
+# HTMLのヘッダヌ
+sub header {
+	print "Content-type: text/html\n\n";
+	print <<"EOM";
+<html>
+<head>
+<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=UTF-8">
+<title>$title</title>
+EOM
+	if($mv_mode eq 'pc'){
+		print <<"EOM";
+$css
+<script language="JavaScript">
+<!--
+function textfocus(){
+	document.park.comment.focus();
+	return true;
+}
+//-->
+</script>
+EOM
+	}
+	(!$_[0] && $mv_mode eq 'pc') ? print qq|</head>\n<body $body onLoad="return textfocus()">| : print "</head>\n<body $body>" ;
+}
diff --git a/readme.html b/readme.html
index 385003c..916a1be 100644
--- a/readme.html
+++ b/readme.html
@@ -1,310 +1,309 @@
-<html>
-<head>
-<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
-<title>ß‚Æ”±++ “ñ—¥”w”œ@Žæˆµà–Ÿ‘</title>
-<style type="text/css">
-<!--
-.set1 { margin:0px; padding:10px; background-color: #cc3366; color:#ffddee; font-size:11pt; font-weight: 700;}
-.set2 { margin:10px; padding:10px;}
-.font1{ color:#cc3366; font-size:11pt; font-weight:700}
-.font2{ color:#663300; font-size:11pt; font-weight:700}
-body{ margin:0px; padding:0px; font-size: 10pt; font-style: normal; font-weight: 400; color: #663300; background-color: #ff88aa; line-height:14pt}
--->
-</style>
-</head>
-
-<body link="#CC3366" vlink="#CC3366" alink="#CC3366">
-<p class="set1">
-ß‚Æ”±++ “ñ—¥”w”œ v02-04-16@Žæˆµà–Ÿ‘B
-</p>
-
-<p>
-
-<table border="0" class="set2" bgcolor="#cc3366" align="right">
-<tr>
-<td bgcolor="#ffeeff" nowarp style="color:#000022; font-size:10pt">
-Copyright(C) 2001-2002 Vivid Studio. BLANK BOARD<br>
-Vivid Studio.@[<a href="http://big17.or.jp/~obochan/vivid/" target="_blank">http://big17.or.jp/~obochan/vivid/</a>]<br>
-BLANK BOARD[‚Ë‚Á‚Æ—V‰€’nô]@[<a href="http://pom.to/" target="_blank">http://pom.to/</a>]
-</td>
-</tr>
-</table>
-
-<p>@</p>
-
-<p>
-<span class="font1">¡</span><span class="font2"> ‰‚߂ɁB</span>
-</p>
-
-<ul>
-<li>‚±‚̎戵à–Ÿ‘‚͍߂Ɣ±++ “ñ—¥”w”œ v02-04-16‚ÌŽæ‚舵‚¢‚ÉŠÖ‚·‚éà–Ÿ‘‚Å‚·B</li>
-<li>‚±‚ÌCGIƒXƒNƒŠƒvƒg‚̉^‰cEÝ’u‚ÍCGIEPerl‘S”ʂɁy‚ ‚é’ö“x‚Ì’mŽ¯‚ª‚ ‚éz‚±‚Æ‚ð‘O’ñ‚Æ‚µ‚Ä‚¢‚Ü‚·B</li>
-<li>‹É‚ß‚Ä•p”ɂɃo[ƒWƒ‡ƒ“ƒAƒbƒv‚³‚ê‚鎞Šú‚ª‚ ‚è‚Ü‚·‚ª‹C‚É‚µ‚È‚¢‚ʼnº‚³‚¢B</li>
-<li>ƒTƒ|[ƒgŒfŽŠ”‚ł ‚Ü‚è‚É‚à‰•à“I‚ÈŽ¿–â‚Í‚µ‚È‚¢‚Å‚­‚Ÿ‚³‚¢B•Ô“š‚É‹‡‚µ‚Ü‚·B</li>
-<li>–{ƒXƒNƒŠƒvƒg‚Í1ƒ^ƒu ”ŒŠp4ƒXƒy[ƒX•ª‚ōœK‚É•\ŽŠ‚³‚ê‚é‚æ‚€‚É‚È‚Á‚Ä‚Ü‚·B</li>
-</ul>
-
-<p>
-<span class="font1">¡</span><span class="font2"> —˜—p‹K’èB</span>
-</p>
-<blockquote>
-<p><a href="http://www24.big.or.jp/~obo/game/ore_/gild/index.shtml#002" target="_blank">‚±‚±Œ©‚Ä‚­‚Ÿ‚³‚¢B</a></p>
-</blockquote>
-
-<p>
-<span class="font1">¡</span><span class="font2"> “®ìŠÂ‹«B</span>
-</p>
-<ul>
-<li>ß‚Æ”±++ “ñ—¥”w”œ‚Í Perl5‚Å‹Lq‚³‚ê‚œƒXƒNƒŠƒvƒg‚Å‚·BPerl4‚Å‚Í“®‚«‚Ü‚¹‚ñB‚œ‚Ô‚ñB</li>
-</ul>
-
-<p>
-<span class="font1">¡</span><span class="font2"> •‰‰×‚Ì‚±‚ƁB</span>
-</p>
-
-<blockquote>
-<p>ƒŠƒ[ƒh–ˆ‚Ì•‰‰×‚͑啝‚ÉŒž‚è‚Ü‚µ‚œBv02-02-13aˆÈ‘O‚Æ”ä‚ׂé‚Æ •œ‹Ï30“’ö“x‚Ì•‰‰×‚µ‚©‚©‚©‚è‚Ü‚¹‚ñB<br>
-‚µ‚©‚µ‚È‚ª‚çAˆê‰ñˆê‰ñ‚̃Šƒ[ƒh•‰‰×‚͒ᕉ‰×‚Å‚àAƒŠƒ[ƒh‰ñ”‚ª‘‚Š‚ê‚Γ–‘RƒT[ƒo‚ðˆ³”—‚·‚邱‚Æ‚É‚È‚è‚Ü‚·B<br>
-•‰‰×‘΍ô‹@”\‚à–L•x‚Å‚·‚̂ŁA•‰‰×‚ðí‚Ɉӎ¯‚µ‚ĉ^‰c‚µ‚Ü‚µ‚å‚€B
-</p>
-</blockquote>
-
-<p>
-<span class="font1">¡</span><span class="font2"> ˆÈ‘O‚Ƃ̈ႢB</span>
-</p>
-
-<blockquote>
-<p>‚ñ‚È‚±‚œ[’m‚éƒJ[B‚ÆŒŸ‚¢‚œ‚¢‚Æ‚±‚ë‚Å‚·‚ªA‰¯‚Š‚Ä‚¢‚é‚Ÿ‚¯‘‚«‚Ü‚·B</p>
-</blockquote>
-
-<ul>
-<li>Mac—˜—pŽžACs‚őΐíŽÒƒŠƒXƒg‚щƒWƒIƒ{ƒ^ƒ“‚𐳏í‚É‘I‘ð‚Å‚«‚È‚¢•s‹ï‡‚ðC³‚µ‚Ü‚µ‚œB</li>
-<li>CsƒŠƒXƒg‚Å‘I‘ð‚Å‚«‚È‚¢ƒLƒƒƒ‰‚ª”­¶‚·‚é•s‹ï‡‚ðC³‚µ‚Ü‚µ‚œB</li>
-<li>‚•‰‰×‚ª‚©‚©‚Á‚œê‡A‹É‹H‚É–³–Œ.cgiƒtƒ@ƒCƒ‹‚ª¶¬‚³‚ê‚é•s‹ï‡‚ðC³‚µ‚Ü‚µ‚œB<br>
-<li>‘Œ‘œ”•s‹ï‡C³B<br>
-<br>
-</li>
-<li>]—ˆ‚̍s“®”»•Ê”ԍ†($tm)‚É‚æ‚鏈—‘ÌŒn‚ðˆêV‚µA‚Ü‚Á‚œ‚­V‚µ‚¢“ÆŽ©‚̏ˆ—‘ÌŒn‚Ɉڍs‚³‚¹‚Ü‚µ‚œB</li>
-<li>‚»‚ê‚Œ‚ê‚̍s“®‚ð×•ª‰»‚³‚¹Aˆ—‚̃I[ƒo[ƒwƒbƒh‚ð‘啝‚ÉŒž‚炵‚Ü‚µ‚œB</li>
-<li>s“®”»•Ê”ԍ†($tm)‚É‚æ‚éŠes“®‚̈ˑ¶ŠÖŒW‚ð“P”p‚µA“Æ—§ˆ—‚Å‚«‚é‚æ‚€‚É‚È‚è‚Ü‚µ‚œB(Šg’£«‘啝ƒAƒbƒvB)</li>
-<li>]—ˆ‚̃Šƒ[ƒh–ˆ‚É‘SŽQ‰ÁŽÒƒtƒ@ƒCƒ‹‚ðŽQÆ‚µ‚œˆ—‚©‚çAŒŽ‘¥1ƒLƒƒƒ‰•ª‚Ì‚ÝŽQÆ‚·‚é‚æ‚€‚É‚µA‘啝‚É•‰‰×‚ðŒž‚ç‚µ‚Ü‚µ‚œB</li>
-<li>ƒoƒbƒNƒAƒbƒv‚ðˆê“úˆê‰ñ‚Ÿ‚¯Žæ‚é‚æ‚€‚É‚µ‚Ü‚µ‚œB</li>
-<li>ŠÇ—ŽÒ‹@”\‚ɃoƒbƒNƒAƒbƒv•œ‹Œ‹@”\‚È‚Ç‚¢‚ë‚¢‚ë‚È‹@”\‚ð’ljÁ‚µ‚Ü‚µ‚œB</li>
-<li>ƒXƒe[ƒ^ƒX‚É•q·—Í(AG)‚ðV‚œ‚ɐ݂¯Aí“¬Žž‚̐搧UŒ‚Aí‘ˆE“¢”°Žž‚Ì“Š‘–‚Ȃǂ̐¬Œ÷—Š‚ɉe‹¿‚³‚¹‚Ü‚µ‚œB<br>
-<br>
-</li>
-<li>“¢”°‚ō‘‘I‘ð‚Å‚«‚é‚æ‚€‚É‚È‚è‚Ü‚µ‚œB</li>
-<li>“¢”°Ÿ—˜ŽžAÜ‹à‚ÌŽ©‘—Dæ ‹y‚Ñ ŒoŒ±’lŽZo•û–@‚𒲐®‚µ‚Ü‚µ‚œB</li>
-<li>“¢”°‚Å鳖£é±é²‚É–Œ‘O‚ð‚‚¯‚Ü‚µ‚œB</li>
-<li>“¢”°‚Ì“Š‘–ŽžA•q·—Í(AG)‚ª‰e‹¿‚·‚é‚æ‚€‚É‚È‚è‚Ü‚µ‚œB</li>
-<li>í‘ˆ‚Ì‘Þ‹pŽžA•q·—Í(AG)‚ª‰e‹¿‚·‚é‚æ‚€‚É‚È‚è‚Ü‚µ‚œB</li>
-<li>Cs‚܂ł̎葱‚«‚ª’Zk‚³‚ê‚Ü‚µ‚œB</li>
-<li>CsŽž‘O‰ñ‘ΐíŽÒ‚Ɛ킊‚é‚æ‚€‚É‚È‚è‚Ü‚µ‚œB</li>
-<li>í“¬ŽžA‘ŠŽè‚æ‚è•q·—Í(AG)‚ª‚‚¢‚Ɛ搧UŒ‚‚ª‚Å‚«‚é‚æ‚€‚É‚È‚è‚Ü‚µ‚œB(•K‚ž‚µ‚àæ§UŒ‚‚Å‚«‚é‚à‚Ì‚Å‚Í‚È‚¢B)</li>
-<li>í“¬‚ð˜A‘±‚ōs‚Š‚é‰ñ”§ŒÀ‚ðÝ‚¯A“Á’è‰ñ”‘±‚¯‚é‚Æ“à­(‘Š‘®ŽÒ) or ‹xŒe(–³Š‘®)‚ð‹­§“I‚ɍs‚킹‚é‚æ‚€‚É‚È‚è‚Ü‚µ‚œB</li>
-<li>•ó‚­‚¶‚ðƒvƒ`ƒƒg‚ɉü–Œ‚µAƒVƒ‡ƒbƒsƒ“ƒOƒ‚[ƒ‹‚Ɉړ]‚µ‚Ü‚µ‚œB</li>
-<li>‰ñ•œ‚ðŽ¡—Ã‚É‰ü–Œ‚µAƒVƒ‡ƒbƒsƒ“ƒOƒ‚[ƒ‹‚̐f—ÏŠ‚É“‡‚µ‚Ü‚µ‚œB</li>
-<li>ƒVƒ‡ƒbƒsƒ“ƒOƒ‚[ƒ‹‚̐f—ÏŠ‚ɐ«“]Š·‚ðÝ‚¯A«•Ê‚ð•ÏX‚Å‚«‚é‚æ‚€‚É‚µ‚Ü‚µ‚œB</li>
-<li>“ˆê‚ÉŠúŒÀ‚ðÝ‚¯‚Ü‚µ‚œB</li>
-<li>“ˆêŒã‚̍‘—Í‚ª‹ŒŽ®(ŒÅ’è)‚ƃ‰ƒ“ƒ_ƒ€Ž®‚ð‘I‚ׂé‚æ‚€‚É‚È‚è‚Ü‚µ‚œB</li>
-<li>“ˆêŒãA“ˆê‘‚Ì’èˆõ‚ªŽáŠ±Œž‚èA‘Œ‘‚Ì’èˆõ‚ª”÷ŽáŠ±‘‚Š‚é‚æ‚€‚É‚È‚è‚Ü‚µ‚œB(‘I‘ð)</li>
-<li>ƒŒƒxƒ‹2ˆÈ‰º‚Å3“úŠÔ•ú’u‚·‚é‚ƍ폜‚³‚ê‚é‚æ‚€‚É‚µ‚Ü‚µ‚œB(Œ©ŠwŽÒ”rœ)</li>
-<li>“à­‚ŁuŒR”õv‚ª‚È‚­‚È‚Á‚āu’¥•ºv‚ƁuŒP—ûv‚Ì‘I‘ð‚ª‚Å‚«‚é‚æ‚€‚É‚È‚è‚Ü‚µ‚œB</li>
-<li>ƒtƒŒ[ƒ€‚ð—˜—p‚µ‚œJavaScript‚ÅGET‚É‚æ‚é•s³Ž©“®‘€ì(ƒ`[ƒg)‚ð–hŽ~‚µ‚Ü‚µ‚œB(ƒtƒŒ[ƒ€Žæ‚荞‚Ý–hŽ~)</li>
-<li>í“¬ŽžAƒvƒ‹ƒ_ƒEƒ“ƒƒjƒ…[‚ªŽžXˆÚ“®‚·‚é‚æ‚€‚É‚µAƒ}ƒEƒXŽ©“®‘€ìƒ\ƒtƒg‚ð—˜—p‚µ‚œ•s³Ž©“®‘€ì(ƒ`[ƒg)‚ð–hŽ~‚µ‚Ü‚µ‚œB</li>
-<li>ƒtƒŒ[ƒ€‚ð—˜—p‚µ‚œJavaScript‚ÅGET‚É‚æ‚é•s³Ž©“®‘€ì(ƒ`[ƒg)‚ð–hŽ~‚µ‚Ü‚µ‚œB(ƒtƒŒ[ƒ€Žæ‚荞‚Ý–hŽ~)</li>
-<li>GET‚É‚æ‚é•s³ˆ—ƒ`[ƒg‚ð–hŽ~‚µ‚Ü‚µ‚œB</li>
-<li>î•ñ‚ňꌟƒƒbƒZ[ƒW‚ð•\ŽŠ‚Å‚«‚é‚æ‚€‚É‚µ‚Ü‚µ‚œB</li>
-<li>S‘©ŽžŠÔ‚ɍ‘ƒf[ƒ^‚ª•\ŽŠ‚³‚ê‚é‚æ‚€‚É‚È‚è‚Ü‚µ‚œB</li>
-<li>S‘©ŽžŠÔ’†‚à‚µ‚­‚ÍŒ»óˆÛŽˆÈŠO‚Å‚ÌŒfŽŠ”ÂŒn—˜—p‹ÖŽ~‚É‚µ‚Ü‚µ‚œB(‘Œ‘‹—}§)<br>
-</li>
-</ul>
-
-<blockquote>
-<p>
-‘Œ‚É‚à‘œX‚ ‚Á‚œ‚æ‚€‚È‹C‚ª‚µ‚Ü‚·‚ªAˆ—‘ÌŒn‚»‚Ì‚à‚Ì‚ð•Ï‚Š‚Ä‚µ‚Ü‚Á‚œ‚œ‚߁A–Y‚ê‚Ü‚µ‚œB<br>
-ƒQ[ƒ€ƒoƒ‰ƒ“ƒXE—¬‚êEƒŒƒCƒAƒEƒg‚Í“¯‚¶‚Å‚·‚ªAƒVƒXƒeƒ€“I‚É‚Í‚à‚Í‚â•ÊƒQ[ƒ€‚Å‚·B
-</p>
-</blockquote>
-
-<p>
-<span class="font1">¡</span><span class="font2"> PC • Œg‘Ñ</span>
-</p>
-
-<blockquote>
-<p>
-Œg‘Ñ’[––‚©‚çß‚Æ”±++ “ñ—¥”w”œ‚Ì‘S‚Ă̍s“®‚ªs‚È‚Š‚Ü‚·B1‚‚̃XƒNƒŠƒvƒg‚ÅPCEŒg‘Ñ(ƒ‚ƒoƒCƒ‹)—Œ‘Ήž‚Å‚·B<br>
-PC‚ÍHTML3.2ECSS1ˆÈã(ƒtƒc[‚͑ΉžÏ‚Ý)AŒg‘єłÍi-MODEAJ-skyAEzweb(‚œ‚Ô‚ñ)‘Ήž‚Å‚·Bindex.cgi‚ɃAƒNƒZƒX‚·‚é‚ÆŽ©“®“I‚É•ªŠòˆ—‚µ‚Ü‚·B“Á‚Ɉӎ¯‚·‚é•K—v‚ª‚ ‚è‚Ü‚¹‚ñB<br>
-¡ƒo[ƒWƒ‡ƒ“‚©‚çŒg‘т̃pƒPƒbƒg—Ê‚ªŽáŠ±Œž‚è‚Ü‚µ‚œB
-</p>
-</blockquote>
-
-<p>
-<span class="font1">¡</span><span class="font2"> æ‚芷‚Š‚ÌŽèˆø‚«B</span>
-</p>
-
-<blockquote>
-<p>‚±‚±AŒ‹\d—v‚Å‚·‚Ì‚æB‰œ‚³‚ñB</p>
-</blockquote>
-
-<ul>
-<li>v01-08-14cˆÈ‘O‚©‚çæ‚芷‚Š@&gt;&gt;@–³—‚Å‚·BƒƒOƒf[ƒ^ˆÚs‚ð’ú‚߂ĐV‹KÝ’u‚µ‚Ä‚­‚Ÿ‚³‚¢B</li>
-<li>v02-01-28ˆÈ‘O‚©‚ç‚̏æ‚芷‚Š@&gt;&gt;@–³—‚Å‚Í‚È‚¢‚Å‚·‚ªAƒTƒ|[ƒgŠO‚Å‚·B”ñí‚ÉŽèŠÔ‚ª‚©‚©‚è‚Ü‚·BV‹KÝ’u‚µ‚œ‚Ù‚€‚ª‘¬‚¢ƒGƒXB</li>
-<li>v02-02-13cˆÈ‘O‚©‚ç‚̏æ‚芷‚Š@&gt;&gt;@‰Â”\‚Å‚·B</li>
-<li>v02-03-27‚©‚ç‚̏æ‚芷‚Š@&gt;&gt;@æs”z•zŒãAupdateƒtƒHƒ‹ƒ_‚ÉŠi”[‚µ‚Ä‚¢‚œC³ƒtƒ@ƒCƒ‹‚ɍ·‚µ‘Ö‚Š‚œ‚Ÿ‚¯‚È‚Ì‚Å“Á‚ɍì‹Æ‚Í‚¢‚è‚Ü‚¹‚ñB</li>
-<li>‰ß‹Ž‚̉hŒõ@&gt;&gt;@ŒÝŠ·«‚ ‚è‚Ü‚¹‚ñB‚µ‚©‚µ‚È‚ª‚çŽè“®‚Ō݊·‚³‚¹‚邱‚Ƃ͉”\‚Å‚·‚ªAƒTƒ|[ƒgŠO‚Å‚·B</li>
-<li>ƒƒOƒCƒ“•ûŽ®@&gt;&gt;@]—ˆ‚Ì–Œ‘O•ƒpƒXƒ[ƒh‚©‚çAID•ƒpƒXƒ[ƒh‚É•Ï‚í‚è‚Ü‚µ‚œB’ˆÓ‚ª•K—v‚Å‚·B</li>
-<li>–{‘̐ݒè“à—e(ore_pl.cgi)@&gt;&gt;@‘å•”•ª‚̐ݒè‚ð‚»‚Ì‚Ü‚ÜˆÚs‰Â”\‚Å‚·B(./ore_config.cgi‚ɉü–Œ)</li>
-<li>ŒfŽŠ”ݒè“à—e(ore_bbs.cgi)@@&gt;&gt;@‘å•”•ª‚̐ݒè‚ð‚»‚Ì‚Ü‚ÜˆÚs‰Â”\‚Å‚·B(./inc/ore_sub-bbs.cgi‚ɉü–Œ)</li>
-<li>•q·—Í(AG)Š„‚èU‚è@&gt;&gt;@ƒo[ƒWƒ‡ƒ“ƒAƒbƒvŒãAŠeŽQ‰ÁŽÒ‰‰ñƒƒOƒCƒ“Žž‚ÉŽ©“®‚ōœK’l‚ðŠ„‚è“–‚Ä‚Ü‚·B</li>
-<li>‘ƒf[ƒ^@&gt;&gt;@ƒo[ƒWƒ‡ƒ“ƒAƒbƒv’ŒŒãƒŠƒZƒbƒg‚³‚ê‚Ü‚·B</li>
-<li>ŠeƒLƒƒƒ‰ƒf[ƒ^@&gt;&gt;@ŒÝŠ·«‚ ‚è‚Ü‚·B‚µ‚©‚µ‚È‚ª‚çAƒo[ƒWƒ‡ƒ“ƒAƒbƒv’ŒŒãAŠeŽQ‰ÁŽÒ‚̍s“®‚ªˆê’UŒ»óˆÛŽ‚É–ß‚è‚Ü‚·B</li>
-<li>ƒXƒNƒŠƒvƒg@&gt;&gt;@ˆ—‘ÌŒn‚ªˆÙ‚È‚é‚œ‚ߌ݊·«‚È‚µ‚Å‚·B‘S‚Ẵtƒ@ƒCƒ‹‚ð·‚µ‘Ö‚Š‚Ä‚­‚Ÿ‚³‚¢B––’[ˆ—‚͈ø‚«Œp‚¢‚Å‚¢‚é‚̂ŁA‚¢‚¯‚é‚©‚àH</li>
-</ul>
-
-<p>
-<span class="font1">¡</span><span class="font2"> ƒtƒ@ƒCƒ‹\¬EÝ’u</span>
-</p>
-
-<table width="75%" border="0" class="set2" bgcolor="#cc3366">
-<tr>
-<td bgcolor="#ffeeff" nowarp style="color:#000022; font-size:10pt">
-<pre>
-cgi-bin
-    +-- ore_plus(ƒtƒHƒ‹ƒ_) 755 [ß‚Æ”±++ƒtƒHƒ‹ƒ_]
-         |
-         | ore_.cgi       755  (Ý’荀–Ú:–³)  [ß‚Æ”±++–{‘Ì]
-         | ore_config.cgi 666  (Ý’荀–Ú:—L)  [Ý’èƒtƒ@ƒCƒ‹]
-         | ore_reg.cgi    755  (Ý’荀–Ú:–³)  [ƒLƒƒƒ‰ƒNƒ^“o˜^]
-         | 
-         | campbbs.cgi    755  (Ý’荀–Ú:—L)  [Še‘ìí‰ï‹cŽº]
-         | park.cgi       755  (Ý’荀–Ú:—L)  [‘ÛŒð—¬Lê]
-         | public.cgi     755  (Ý’荀–Ú:—L)  [ŒöŽ®ð–ñ]
-         | hist.cgi       755  (Ý’荀–Ú:—L)  [‰ß‹Ž‚̉hŒõ]
-         |
-         | ore_admin.cgi  755  (Ý’荀–Ú:–³)  [ß‚Æ”±++ŠÇ—‹@”\]
-         |
-         | index.cgi      755  (Ý’荀–Ú:–³)  [ƒgƒbƒvƒy[ƒW]
-         | 
-         +-- inc(ƒtƒHƒ‹ƒ_) 755 [ŠO•”ƒTƒuƒ‹[ƒ`ƒ“Ši”[ƒfƒBƒŒƒNƒgƒŠ]
-         |     ŠO•”ƒTƒuƒ‹[ƒ`ƒ“
-         | 
-         +-- usrdata(ƒtƒHƒ‹ƒ_) 777 [ƒLƒƒƒ‰ƒf[ƒ^Ši”[ƒfƒBƒŒƒNƒgƒŠ]
-         |     ŠeŽQ‰ÁŽÒƒf[ƒ^ƒtƒ@ƒCƒ‹
-         |
-         +-- logdata(ƒtƒHƒ‹ƒ_) 755 [ß‚Æ”±++ŠeŽí‰æ‘œƒfƒBƒŒƒNƒgƒŠ]
-         |      cdata.cgi             666  [Še‘ƒf[ƒ^]
-         |      camp_mem_1.cgi        666  [1‘ìí‰ï‹cŽºŽQ‰ÁŽÒƒƒO]
-         |      camp_mem_2.cgi        666  [2‘ìí‰ï‹cŽºŽQ‰ÁŽÒƒƒO]
-         |      camp_mem_3.cgi        666  [3‘ìí‰ï‹cŽºŽQ‰ÁŽÒƒƒO]
-         |      camp_mem_4.cgi        666  [4‘ìí‰ï‹cŽºŽQ‰ÁŽÒƒƒO]
-         |      camp_mem_5.cgi        666  [5‘ìí‰ï‹cŽºŽQ‰ÁŽÒƒƒO]
-         |      camp_log_1.cgi        666  [1‘ìí‰ï‹cŽº”­ŒŸƒƒO]
-         |      camp_log_2.cgi        666  [2‘ìí‰ï‹cŽº”­ŒŸƒƒO]
-         |      camp_log_3.cgi        666  [3‘ìí‰ï‹cŽº”­ŒŸƒƒO]
-         |      camp_log_4.cgi        666  [4‘ìí‰ï‹cŽº”­ŒŸƒƒO]
-         |      camp_log_5.cgi        666  [5‘ìí‰ï‹cŽº”­ŒŸƒƒO]
-         |      park_mem.cgi          666  [‘ÛŒð—¬LêŽQ‰ÁŽÒƒƒO]
-         |      park_log.cgi          666  [‘ÛŒð—¬Lê”­ŒŸƒƒO]
-         |      public_log.cgi        666  [ŒöŽ®ð–ñƒƒO]
-         |      hist_log.cgi          666  [‰ß‹Ž‚̉hŒõƒƒO(cdata.cgiƒoƒbƒNƒAƒbƒv)]
-         |
-         +-- imgs(ƒtƒHƒ‹ƒ_)  755 [ß‚Æ”±++ŠeŽí‰æ‘œƒfƒBƒŒƒNƒgƒŠ]
-         |      ŠeŽí‰æ‘œƒtƒ@ƒCƒ‹
-         |
-         +-- html(ƒtƒHƒ‹ƒ_)  755 [ŠeŽíHTMLŠi”[ƒfƒBƒŒƒNƒgƒŠ]
-         |      ŠeŽí‰æ‘œƒtƒ@ƒCƒ‹
-         |
-         +-- lock(ƒtƒHƒ‹ƒ_)  777 [ƒtƒ@ƒCƒ‹ƒƒbƒN—pƒfƒBƒŒƒNƒgƒŠ] 
-         |      lock         644 [ƒƒbƒNƒtƒ@ƒCƒ‹]
-         |
-         +-- backup(”CˆÓ–Œ)  777 [ƒLƒƒƒ‰ƒf[ƒ^ƒoƒbƒNƒAƒbƒvƒfƒBƒŒƒNƒgƒŠ]
-                backup_flag1 644 [ƒoƒbƒNƒAƒbƒvƒtƒ‰ƒOƒtƒ@ƒCƒ‹]
-
-         * ã‹Lƒp[ƒ~ƒbƒVƒ‡ƒ“‚͈ê”Ê“I‚È‚à‚Ì‚Å‚ ‚èAƒZƒLƒ…ƒŠƒeƒB‚ª’á‚¢‚Å‚·B
-           ‚²—˜—pƒvƒƒoƒCƒ_‚É‚ ‚킹‚Đݒ肵‚Ä‚­‚Ÿ‚³‚¢B
-
-         * ß‚Æ”±++‚̐ΔèƒXƒNƒŠƒvƒg‚Í‚Ü‚Ÿ§ì‚µ‚Ä‚Ü‚¹‚ñB
-
-         * ã‚Ì755‚Æ‚È‚Á‚Ä‚¢‚éƒtƒ@ƒCƒ‹‚ðŠJ‚¢‚āA1s–Ú‚É‚ ‚éPerl‚̃pƒX‚ð‘‚«Š·‚Š‚Ä‚­‚Ÿ‚³‚¢B
-         
-</pre>
-</td>
-</tr>
-</table>
-
-<p>
-<span class="font1">¡</span><span class="font2"> index.cgi‚̉摜B</span>
-</p>
-<blockquote>
-<pre>
-‚à‚µß‚Æ”±++ƒ}ƒXƒ^[”Ńgƒbƒvƒy[ƒW(index.cgi)‚Æ
-“¯‚¶‰æ‘œ(—dž‰æ‘œ)‚ð—˜—p‚µ‚œ‚¢ê‡‚́A
-
-<a href="http://www1.u-netsurf.ne.jp/~june/" target="_blank"><b>PurpleMoon</b> ‚³‚ñ‚̃TƒCƒg</a>‚Å
-
-<b>šGraphics for your Site! 
-@@@ƒz[ƒ€ƒy[ƒW—p‘fÞW</b>@@‚ðƒNƒŠƒbƒN
-@@@@@« 
-¶ƒtƒŒ[ƒ€‚́@<b>ƒCƒ‰ƒXƒgEƒCƒ‰ƒXƒg•ÇŽ†</b>@@‚ðƒNƒŠƒbƒN
-@@@@@«
-¶ƒtƒŒ[ƒ€‰º‚́u•Œn”wŒiv@‚©‚ç@<b>ŒŽ‚Ɋ҂鐞—ì</b>@@‚ðƒNƒŠƒbƒN
-
-
-<b>‰æ‘œ‚ðŽg—p‚µ‚œ‚çPurpleMoon‚³‚ñ‚ɃŠƒ“ƒN‚ð‚Í‚è‚Ü‚µ‚å‚€</b>
-</pre>
-</blockquote>
-
-<p>
-<span class="font1">¡</span><span class="font2"> ŠÇ—ŽÒ‹@”\B</span>
-</p>
-<blockquote>
-<p>
-‚©‚È‚è‘œ‹@”\‚É‚È‚è‚Ü‚µ‚œB<br>
-ƒZƒLƒ…ƒŠƒeƒB‚ÌŒœ”O‚ª‚ ‚é‚̂ŁAŠÇ—‹@”\‚ւ̃Šƒ“ƒN‚͂‚¯‚Ä‚Ü‚¹‚ñB<br>
-ŠÇ—‹@”\‚ւ̃AƒNƒZƒX‚Í <b>http://‚ ‚È‚œ‚ÌURL/ore_plus/ore_admin.cgi?administrator=ŠÇ—ŽÒƒpƒXƒ[ƒh</b><br>
-ã‹LURL‚ð‹Lq‚·‚é‚ÆŠÇ—‹@”\‚ÖƒƒOƒCƒ“‚Å‚«‚Ü‚·BŠÇ—ŽÒƒpƒXƒ[ƒh‚Í ore_config.cgi‚Őݒ肵‚œ $admin_pass‚Ì’l‚Å‚·B<br>
-‚¿‚Ȃ݂ɁAƒQ[ƒ€ƒƒOƒCƒ“Žž‚É”CˆÓŽQ‰ÁŽÒ‚̃Lƒƒƒ‰–ŒA‚»‚µ‚ăpƒXƒ[ƒh“ü—Í—“‚ÉŠÇ—ŽÒƒpƒXƒ[ƒh‚ð“ü—Í‚·‚é‚ƁA<br>
-”CˆÓŽQ‰ÁŽÒŒÅ—L‚̃pƒXƒ[ƒh‚È‚µ‚Å‚àƒƒOƒCƒ“‚Å‚«‚é‚æ‚€‚É‚È‚Á‚Ä‚Ü‚·B<br>
-ƒo[ƒWƒ‡ƒ“ƒAƒbƒv’ŒŒãAŠÇ—‹@”\‚É‚Ä ÅIƒAƒNƒZƒXEIPƒAƒhƒŒƒXEƒzƒXƒg–ŒEƒuƒ‰ƒEƒUî•ñ‚ª•\ŽŠ‚ê‚È‚¢ê‡‚ª‚ ‚è‚Ü‚·‚ªA1TŠÔ’ö“x‚Å•\ŽŠ‚³‚ê‚é‚æ‚€‚É‚È‚è‚Ü‚·B
-</p>
-</blockquote>
-
-<p>
-<span class="font1">¡</span><span class="font2"> ƒJƒXƒ^ƒ}ƒCƒYB</span>
-</p>
-
-<blockquote>
-<p>ƒXƒNƒŠƒvƒg’†‚É‚©‚È‚èÚ×‚È’Žß‚ª‚ ‚è‚Ü‚·B‚»‚ê‚ðŽQÆ‚µ‚Ä‚à‰ð‚ç‚È‚¢ê‡‚͐ݒè‚ȂǕύX‚µ‚È‚¢‚Å‚­‚Ÿ‚³‚¢B</p>
-</blockquote>
-
-<ul>
-<li>ƒQ[ƒ€–{‘̂̊‹«Ý’è@&gt;&gt;@./ore_config.cgi‚É‚ ‚è‚Ü‚·B</li>
-<li>ŒfŽŠ”ÂŒn‚̊‹«Ý’è@&gt;&gt;@./inc/ore_sub-bbs.cgi‚É‚ ‚è‚Ü‚·B</li>
-<li>‘NPC‚̃f[ƒ^@&gt;&gt;@./inc/ore_sub-npc_1.cgi‚É‚ ‚è‚Ü‚·B</li>
-<li>鳖£é±é²‚̃f[ƒ^@&gt;&gt;@./inc/ore_sub-npc_2.cgi‚É‚ ‚è‚Ü‚·B</li>
-</ul>
-
-<blockquote>
-<p>¡ƒo[ƒWƒ‡ƒ“‚©‚ç”ñí‚ÉŠg’£«‚ª‚‚¢‚̂ŐV‚µ‚¢ƒCƒxƒ“ƒg’ljÁ‚È‚ñ‚©‚àŠÈ’P‚Ÿ‚ÆŽv‚€‚Å‚·EEB</p>
-</blockquote>
-
-<p>
-<span class="font1">¡</span><span class="font2"> ‹^–âEŽ¿–âE—v–]‚́B</span>
-</p>
-<blockquote>
-<p><a href="http://www24.big.or.jp/%7Eobo/game/ore_/gild/index.shtml#support" target="_blank">‚±‚±Œ©‚Ä‚­‚Ÿ‚³‚¢B</a></p>
-</blockquote>
-
-<p>
-<span class="font1">¡</span><span class="font2"> ‰ü‘¢î•ñ‚́B</span>
-</p>
-<blockquote>
-<p><a href="http://www24.big.or.jp/%7Eobo/game/ore_/gild/index.shtml#kaizo" target="_blank">‚±‚±Œ©‚Ä‚­‚Ÿ‚³‚¢B</a></p>
-</blockquote>
-
-<p>@</p>
-<p>@</p>
-
-</body>
-</html>
+<html>
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
+<title>죄와 벌++ 읎윚배반 사용섀명서</title>
+<style type="text/css">
+<!--
+.set1 { margin:0px; padding:10px; background-color: #cc3366; color:#ffddee; font-size:11pt; font-weight: 700;}
+.set2 { margin:10px; padding:10px;}
+.font1{ color:#cc3366; font-size:11pt; font-weight:700}
+.font2{ color:#663300; font-size:11pt; font-weight:700}
+body{ margin:0px; padding:0px; font-size: 10pt; font-style: normal; font-weight: 400; color: #663300; background-color: #ff88aa; line-height:14pt}
+-->
+</style>
+</head>
+
+<body link="#CC3366" vlink="#CC3366" alink="#CC3366">
+<p class="set1">
+죄와 벌++ 읎윚배반 v02-04-16 사용섀명서.
+</p>
+
+<p>
+
+<table border="0" class="set2" bgcolor="#cc3366" align="right">
+<tr>
+<td bgcolor="#ffeeff" nowarp style="color:#000022; font-size:10pt">
+Copyright(C) 2001-2002 Vivid Studio. BLANK BOARD<br>
+Vivid Studio.　[<a href="http://big17.or.jp/~obochan/vivid/" target="_blank">http://big17.or.jp/~obochan/vivid/</a>]<br>
+BLANK BOARD[넀튞 유원지♪]　[<a href="http://pom.to/" target="_blank">http://pom.to/</a>]
+</td>
+</tr>
+</table>
+
+<p>　</p>
+
+<p>
+<span class="font1">■</span><span class="font2"> 시작하며.</span>
+</p>
+
+<ul>
+<li>읎 사용섀명서는 죄와 벌++ 읎윚배반 v02-04-16의 읎용 및 ꎀ늬에 ꎀ한 섀명서입니닀.</li>
+<li>읎 CGI 슀크늜튞의 욎영 및 섀치는 CGI와 Perl 전반에 대핮 【얎느 정도 지식읎 있음】을 전제로 하고 있습니닀.</li>
+<li>맀우 빈번하게 버전 업귞레읎드가 읎룚얎지는 시Ʞ가 있을 수 있윌나, 크게 신겜 쓰지 않윌셔도 됩니닀.</li>
+<li>지원 게시판에서 너묎 Ʞ볞적읞 질묞은 삌가 죌시Ʞ 바랍니닀. 답변핎 드늬Ʞ 곀란할 수 있습니닀.</li>
+<li>볞 슀크늜튞는 1탭을 반각 4칞(공백 4개)윌로 섀정했을 때 가장 볎Ʞ 좋게 표시됩니닀.</li>
+</ul>
+
+<p>
+<span class="font1">■</span><span class="font2"> 읎용 규정.</span>
+</p>
+<blockquote>
+<p><a href="http://www24.big.or.jp/~obo/game/ore_/gild/index.shtml#002" target="_blank">여Ʞ륌 확읞핎 죌섞요.</a></p>
+</blockquote>
+
+<p>
+<span class="font1">■</span><span class="font2"> 동작 환겜.</span>
+</p>
+<ul>
+<li>죄와 벌++ 읎윚배반은 Perl5로 작성된 슀크늜튞입니닀. Perl4에서는 작동하지 않습니닀. 아마도요.</li>
+</ul>
+
+<p>
+<span class="font1">■</span><span class="font2"> 서버 부하에 대핮.</span>
+</p>
+
+<blockquote>
+<p>새로고칚 시의 부하가 대폭 쀄었습니닀. v02-02-13a 읎전 버전곌 비교하멎 평균 30% 정도의 부하만 걞늜니닀.<br>
+하지만 개별 새로고칚 부하가 낮더띌도, 새로고칚 횟수가 늘얎나멎 당연히 서버에 묎늬가 가게 됩니닀.<br>
+부하 대책 Ʞ능도 풍부하게 제공되므로, 항상 서버 부하륌 엌두에 두고 욎영핎 죌십시였.
+</p>
+</blockquote>
+
+<p>
+<span class="font1">■</span><span class="font2"> 읎전 버전곌의 찚읎점.</span>
+</p>
+
+<blockquote>
+<p>귞런 걞 ë‚Žê°€ 알 바읞가... 띌고 하고 싶지만, Ʞ억나는 대로 적얎 볎겠습니닀.</p>
+</blockquote>
+
+<ul>
+<li>Mac 환겜에서 수행 시 대전자 목록의 띌디였 버튌을 정상적윌로 선택할 수 없던 묞제륌 수정했습니닀.</li>
+<li>수행 목록에서 선택할 수 없는 캐늭터가 발생하는 묞제륌 수정했습니닀.</li>
+<li>서버 부하가 높을 때 극히 드묌게 묎명.cgi 파음읎 생성되는 묞제륌 수정했습니닀.<br>
+<li>Ʞ타 닀수의 였류륌 수정했습니닀.<br>
+<br>
+</li>
+<li>Ʞ졎의 행동 판별 번혞($tm) 방식의 처늬 첎계륌 음신하여, 완전히 새로욎 독자적읞 처늬 첎계로 읎행했습니닀.</li>
+<li>각 행동을 섞분화하여 처늬 였버헀드륌 대폭 쀄였습니닀.</li>
+<li>행동 판별 번혞($tm)에 따륞 각 행동 간의 의졎 ꎀ계륌 없애고, 독늜적윌로 처늬할 수 있게 되었습니닀. (확장성읎 대폭 향상되었습니닀.)</li>
+<li>Ʞ졎에 새로고칚할 때마닀 전첎 찞가자 파음을 찞조하던 방식에서, 원칙적윌로 1캐늭터 분량만 찞조하도록 변겜하여 부하륌 크게 쀄였습니닀.</li>
+<li>백업을 하룚에 한 번만 싀행하도록 변겜했습니닀.</li>
+<li>ꎀ늬자 Ʞ능에 백업 복구 Ʞ능 등 닀양한 Ʞ능을 추가했습니닀.</li>
+<li>능력치에 믌첩성(AG)을 새로 추가하여, 전투 시 선제공격 및 전쟁·토벌 시 도망 성공률 등에 영향을 죌도록 했습니닀.<br>
+<br>
+</li>
+<li>토벌에서 국가륌 선택할 수 있게 되었습니닀.</li>
+<li>토벌 승늬 시 상ꞈ의 자국 우선 배분 및 겜험치 계산 방법을 조정했습니닀.</li>
+<li>토벌의 읎맀망량(몬슀터)듀에게 읎늄을 부여했습니닀.</li>
+<li>토벌에서 도망칠 때 믌첩성(AG)읎 영향을 죌도록 변겜되었습니닀.</li>
+<li>전쟁에서 퇎각할 때 믌첩성(AG)읎 영향을 죌도록 변겜되었습니닀.</li>
+<li>수행을 시작하Ʞ까지의 닚계가 닚축되었습니닀.</li>
+<li>수행 시 읎전 대전자와 닀시 ì‹žìšž 수 있게 되었습니닀.</li>
+<li>전투 시 상대볎닀 믌첩성(AG)읎 높윌멎 선제공격을 할 수 있게 되었습니닀. (당, 항상 선제공격읎 성공하는 것은 아닙니닀.)</li>
+<li>연속 전투 가능 횟수 제한을 두얎, 특정 횟수 읎상 연속 전투륌 치륎멎 강제적윌로 ë‚Žì •(국가 소속자) 또는 휎식(묎소속) 상태가 되도록 했습니닀.</li>
+<li>복권을 '믞니로또'로 읎늄을 바꟞고 쇌핑몰로 읎전했습니닀.</li>
+<li>회복을 '치료'로 읎늄을 바꟞고 쇌핑몰 낮 진료소로 통합했습니닀.</li>
+<li>쇌핑몰 진료소에 성전환 항목을 추가하여 성별을 변겜할 수 있도록 했습니닀.</li>
+<li>천하통음에 êž°í•œ 제한을 섀정했습니닀.</li>
+<li>천하통음 후의 êµ­ë ¥ 섀정 방식을 êž°ì¡Ž 방식(고정)곌 랜덀 방식 쀑에서 선택할 수 있도록 했습니닀.</li>
+<li>통음 후 통음국의 정원읎 앜간 쀄얎듀고, 닀륞 국가의 정원읎 아죌 믞섞하게 늘얎나도록 섀정할 수 있습니닀. (선택 사항)</li>
+<li>레벚 2 읎하 캐늭터가 3음간 아묎런 활동읎 없윌멎 자동 삭제되도록 했습니닀. (닚순 구겜Ꟍ 정늬)</li>
+<li>낎정에서 '군비' 항목읎 없얎지고, 대신 '징병'곌 '훈령'을 선택할 수 있게 되었습니닀.</li>
+<li>프레임을 읎용한 JavaScript 및 GET 방식을 통한 비정상적읞 자동 조작(치튞)을 방지했습니닀. (프레임 하읎재킹 방지)</li>
+<li>전투 시 드롭닀욎 메뉎가 묎작위로 읎동하게 하여, 마우슀 맀크로 프로귞랚을 읎용한 비정상적읞 자동 조작(치튞)을 방지했습니닀.</li>
+<li>프레임을 읎용한 JavaScript 및 GET 방식을 통한 비정상적읞 자동 조작(치튞)을 방지했습니닀. (프레임 하읎재킹 방지)</li>
+<li>GET 요청을 읎용한 부정 처늬 치튞륌 방지했습니닀.</li>
+<li>정볎 찜에서 한 쀄 메시지륌 표시할 수 있도록 했습니닀.</li>
+<li>구속 시간(행동 제한 시간) 쀑에 국가 데읎터가 표시되도록 했습니닀.</li>
+<li>구속 시간 쀑읎거나 현상 유지 상태가 아닐 때는 게시板 읎용을 ꞈ지했습니닀. (닀쀑 ì°œ 읎용 억제)<br>
+</li>
+</ul>
+
+<blockquote>
+<p>
+ê·ž 밖에도 여러 변겜 사항읎 있었던 것 같윌나, 처늬 첎계 자첎륌 바꟞얎 버렀서 잊얎버렞습니닀.<br>
+게임 밞런슀, 진행 흐멄, 레읎아웃은 전곌 같지만 시슀템적윌로는 완전히 닀륞 게임읎나 닀늄없습니닀.
+</p>
+</blockquote>
+
+<p>
+<span class="font1">■</span><span class="font2"> PC & 몚바음</span>
+</p>
+
+<blockquote>
+<p>
+휮대폰 닚말Ʞ에서도 죄와 벌++ 읎윚배반의 몚든 행동을 수행할 수 있습니닀. 슀크늜튞 하나로 PC와 몚바음 몚두에 대응합니닀.<br>
+PC는 HTML 3.2, CSS 1 읎상(대부분 지원됚), 몚바음 버전은 i-mode, J-sky, EZweb(아마도)에 대응합니닀. index.cgi에 접속하멎 자동윌로 분류하여 페읎지륌 띄워 죌므로 사용자가 직접 신겜 ì“°ì‹€ 필요가 없습니닀.<br>
+읎번 버전부터 몚바음 데읎터 팚킷 소몚량읎 소폭 쀄얎듀었습니닀.
+</p>
+</blockquote>
+
+<p>
+<span class="font1">■</span><span class="font2"> 버전 업귞레읎드 안낎.</span>
+</p>
+
+<blockquote>
+<p>읎 부분은 ꜀ 쀑요하답니닀, 여러분.</p>
+</blockquote>
+
+<ul>
+<li>v01-08-14c 읎전 버전에서 읎전 &gt;&gt; 불가능합니닀. 로귞 데읎터 읎전을 포Ʞ하시고 신규 섀치핎 죌십시였.</li>
+<li>v02-01-28 읎전 버전에서 읎전 &gt;&gt; 불가능한 것은 아니지만 지원 대상읎 아닙니닀. 손읎 많읎 가므로 신규 섀치하시는 펞읎 더 빠늅니닀.</li>
+<li>v02-02-13c 읎전 버전에서 읎전 &gt;&gt; 가능합니닀.</li>
+<li>v02-03-27 버전에서 읎전 &gt;&gt; 임시 배포 읎후 update 폎더에 넣얎 둔 수정 파음로 덮얎쓰Ʞ만 하멎 되므로 별닀륞 작업은 필요 없습니닀.</li>
+<li>명예의 전당 &gt;&gt; 혞환되지 않습니닀. 수동윌로 맞출 수는 있윌나 지원 대상읎 아닙니닀.</li>
+<li>로귞읞 방식 &gt;&gt; Ʞ졎의 [읎늄 & 비밀번혞]에서 [ID & 비밀번혞]로 변겜되었습니닀. 죌의가 필요합니닀.</li>
+<li>볞첎 섀정 ë‚Žìš©(ore_pl.cgi) &gt;&gt; 대부분의 섀정을 귞대로 읎전할 수 있습니닀. (./ore_config.cgi로 읎늄 변겜)</li>
+<li>게시판 섀정 ë‚Žìš©(ore_bbs.cgi) 　　&gt;&gt; 대부분의 섀정을 귞대로 읎전할 수 있습니닀. (./inc/ore_sub-bbs.cgi로 읎늄 변겜)</li>
+<li>믌첩성(AG) 분배 &gt;&gt; 버전 업귞레읎드 읎후 각 찞가자가 처음 로귞읞할 때 자동윌로 최적의 값을 할당합니닀.</li>
+<li>국가 데읎터 &gt;&gt; 버전 업귞레읎드 직후 쎈Ʞ화됩니닀.</li>
+<li>각 캐늭터 데읎터 &gt;&gt; 혞환됩니닀. 닀만 버전 업귞레읎드 직후에는 몚든 찞가자의 행동 상태가 음닚 '현상 유지'로 돌아갑니닀.</li>
+<li>슀크늜튞 &gt;&gt; 처늬 방식읎 달띌 혞환되지 않습니닀. 몚든 파음을 교첎핎 죌십시였. 최종 처늬 구조는 유지했윌므로 혾환될 가능성도 있습니닀.</li>
+</ul>
+
+<p>
+<span class="font1">■</span><span class="font2"> 파음 구성 및 섀치</span>
+</p>
+
+<table width="75%" border="0" class="set2" bgcolor="#cc3366">
+<tr>
+<td bgcolor="#ffeeff" nowarp style="color:#000022; font-size:10pt">
+<pre>
+cgi-bin
+    +-- ore_plus(폮더) 755 [죄와 벌++ 폮더]
+         |
+         | ore_.cgi       755  (섀정 항목:없음)  [죄와 벌++ 볞첎]
+         | ore_config.cgi 666  (섀정 항목:있음)  [섀정 파음]
+         | ore_reg.cgi    755  (섀정 항목:없음)  [캐늭터 등록]
+         | 
+         | campbbs.cgi    755  (섀정 항목:있음)  [국가별 작전회의싀]
+         | park.cgi       755  (섀정 항목:있음)  [국제 교류 ꎑ장]
+         | public.cgi     755  (섀정 항목:있음)  [공식 ì¡°ì•œ]
+         | hist.cgi       755  (섀정 항목:있음)  [명예의 전당]
+         |
+         | ore_admin.cgi  755  (섀정 항목:없음)  [죄와 벌++ ꎀ늬 Ʞ능]
+         |
+         | index.cgi      755  (섀정 항목:없음)  [메읞 페읎지]
+         | 
+         +-- inc(폮더) 755 [왞부 서람룚틎 볎ꎀ 디렉터늬]
+         |     왞부 서람룚틎
+         | 
+         +-- usrdata(폮더) 777 [캐늭터 데읎터 볎ꎀ 디렉터늬]
+         |     각 찞가자 데읎터 파음
+         |
+         +-- logdata(폮더) 755 [죄와 벌++ 각종 로귞 디렉터늬]
+         |      cdata.cgi             666  [국가 데읎터]
+         |      camp_mem_1.cgi        666  [1êµ­ 작전회의싀 찞가자 로귞]
+         |      camp_mem_2.cgi        666  [2êµ­ 작전회의싀 찞가자 로귞]
+         |      camp_mem_3.cgi        666  [3êµ­ 작전회의싀 찞가자 로귞]
+         |      camp_mem_4.cgi        666  [4êµ­ 작전회의싀 찞가자 로귞]
+         |      camp_mem_5.cgi        666  [5êµ­ 작전회의싀 찞가자 로귞]
+         |      camp_log_1.cgi        666  [1êµ­ 작전회의싀 대화 로귞]
+         |      camp_log_2.cgi        666  [2êµ­ 작전회의싀 대화 로귞]
+         |      camp_log_3.cgi        666  [3êµ­ 작전회의싀 대화 로귞]
+         |      camp_log_4.cgi        666  [4êµ­ 작전회의싀 대화 로귞]
+         |      camp_log_5.cgi        666  [5êµ­ 작전회의싀 대화 로귞]
+         |      park_mem.cgi          666  [국제 교류 ꎑ장 찞가자 로귞]
+         |      park_log.cgi          666  [국제 교류 ꎑ장 대화 로귞]
+         |      public_log.cgi        666  [공식 ì¡°ì•œ 로귞]
+         |      hist_log.cgi          666  [명예의 전당 로귞 (cdata.cgi 백업)]
+         |
+         +-- imgs(폮더)  755 [죄와 벌++ 각종 읎믞지 디렉터늬]
+         |      각종 읎믞지 파음
+         |
+         +-- html(폮더)  755 [각종 HTML 볎ꎀ 디렉터늬]
+         |      각종 HTML 파음
+         |
+         +-- lock(폮더)  777 [파음 잠ꞈ용 디렉터늬] 
+         |      lock         644 [잠ꞈ 파음]
+         |
+         +-- backup(임의명)  777 [캐늭터 데읎터 백업 디렉터늬]
+                backup_flag1 644 [백업 플래귞 파음]
+
+         * 위 권한(퍌믞션) 섀정은 음반적읞 예시읎며 볎안읎 췚앜할 수 있습니닀.
+           읎용하시는 서버 환겜에 맞춰 섀정핎 죌십시였.
+
+         * 죄와 벌++의 석비 슀크늜튞는 아직 제작하지 않았습니닀.
+
+         * 위 파음 쀑 권한읎 755로 섀정된 파음을 ì—Žì–Ž 첫 번짞 쀄의 Perl 겜로륌 서버에 맞게 수정핎 죌십시였.
+         
+</pre>
+</td>
+</tr>
+</table>
+
+<p>
+<span class="font1">■</span><span class="font2"> index.cgi 읎믞지.</span>
+</p>
+<blockquote>
+<pre>
+죄와 벌++ 마슀터 버전 메읞 페읎지(index.cgi)와
+동음한 읎믞지(요정 읎믞지)륌 사용하시렀멎,
+
+<a href="http://www1.u-netsurf.ne.jp/~june/" target="_blank"><b>PurpleMoon</b> 님의 사읎튞</a>에서
+
+<b>★Graphics for your Site! 
+　　　홈페읎지용 소재집</b>　　을 큎늭
+　　　　　↓ 
+왌쪜 프레임의 <b>음러슀튞·음러슀튞 배겜화멎</b> 을 큎늭
+　　　　　↓
+왌쪜 프레임 하닚의 '검은색 계엎 배겜'에서 <b>달로 돌아가는 정령</b> 을 큎늭
+
+
+<b>읎믞지륌 사용하신 후에는 PurpleMoon 님 사읎튞 링크륌 걞얎 죌섞요.</b>
+</pre>
+</blockquote>
+
+<p>
+<span class="font1">■</span><span class="font2"> ꎀ늬자 Ʞ능.</span>
+</p>
+<blockquote>
+<p>
+Ʞ능읎 대폭 볎강되었습니닀.<br>
+볎안상의 우렀가 있얎 메읞 화멎 등에 ꎀ늬 Ʞ능용 링크는 달아 두지 않았습니닀.<br>
+ꎀ늬 Ʞ능에 접속하렀멎 죌소찜에 <b>http://도메읞죌소/ore_plus/ore_admin.cgi?administrator=ꎀ늬자비밀번혞</b> 형식윌로 입력핎 죌십시였.<br>
+위 URL을 통핎 ꎀ늬 Ʞ능에 로귞읞할 수 있습니닀. ꎀ늬자 비밀번혞는 ore_config.cgi에서 섀정한 $admin_pass 값입니닀.<br>
+ì°žê³ ë¡œ 게임 로귞읞 화멎에서 임의의 찞가자 캐늭터 읎늄을 입력한 ë’€, 비밀번혞 칞에 ꎀ늬자 비밀번혞륌 입력하멎 핎당 찞가자의 개별 비밀번혞륌 몚륎더띌도 로귞읞할 수 있습니닀.<br>
+버전 업귞레읎드 직후에는 ꎀ늬 Ʞ능 낎에서 최종 접속음·IP 죌소·혞슀튞 읎늄·람띌우저 정볎 등읎 제대로 표시되지 않을 수 있윌나, ì•œ 음죌음 정도 지나멎 정상적윌로 표시됩니닀.
+</p>
+</blockquote>
+
+<p>
+<span class="font1">■</span><span class="font2"> 컀슀터마읎징.</span>
+</p>
+
+<blockquote>
+<p>슀크늜튞 소슀 윔드 안에 맀우 자섞한 죌석읎 작성되얎 있습니닀. 죌석을 읜얎도 잘 읎핎가 되지 않는 부분은 핚부로 섀정을 변겜하지 마십시였.</p>
+</blockquote>
+
+<ul>
+<li>게임 볞첎 환겜 섀정 &gt;&gt; ./ore_config.cgi에 있습니닀.</li>
+<li>게시판 ꎀ렚 환겜 섀정 &gt;&gt; ./inc/ore_sub-bbs.cgi에 있습니닀.</li>
+<li>국가 NPC 데읎터 &gt;&gt; ./inc/ore_sub-npc_1.cgi에 있습니닀.</li>
+<li>읎맀망량(몬슀터) 데읎터 &gt;&gt; ./inc/ore_sub-npc_2.cgi에 있습니닀.</li>
+</ul>
+
+<blockquote>
+<p>읎번 버전부터 확장성읎 맀우 뛰얎나므로, 새로욎 읎벀튞륌 직접 추가하는 것도 ꜀ 쉬욞 것입니닀...</p>
+</blockquote>
+
+<p>
+<span class="font1">■</span><span class="font2"> 의묞·질묞·요청사항은.</span>
+</p>
+<blockquote>
+<p><a href="http://www24.big.or.jp/%7Eobo/game/ore_/gild/index.shtml#support" target="_blank">여Ʞ륌 확읞핎 죌섞요.</a></p>
+</blockquote>
+
+<p>
+<span class="font1">■</span><span class="font2"> 개조 정볎는.</span>
+</p>
+<blockquote>
+<p><a href="http://www24.big.or.jp/%7Eobo/game/ore_/gild/index.shtml#kaizo" target="_blank">여Ʞ륌 확읞핎 죌섞요.</a></p>
+</blockquote>
+
+<p>　</p>
+<p>　</p>
+
+</body>
+</html>