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 ‚É’Ç‰Á
-		if ($name2 ne "$host2") {
-			push(@new,$_);
-
-			# ŽQ‰ÁŽÒ•\Ž¦—p•¶Žš—ñ‚ðì¬
-			if(!$flag2){$member .="$name2ž";$flag2=1;}
-			else{$member .="$name2Ÿ";$flag2=0;}
-		}
-	}
-	# V‹KŽQ‰ÁŽÒ‚ð’Ç‰Á
-	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ƒ‹’Ç‰Á</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‚ñ‚Å‰º‚³‚¢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‚ñ‚Å‰º‚³‚¢<br>\n";
-			&call_mapdata if($mv_mode eq 'pc');
-			&misson_menu2;
-			$tm=31;
-		}elsif($cmd==2){
-			$log .= "“G‘‚Ì•º—Æ‚ð‹­’D‚µ‚Ü‚·B•W“I‘‚ð‘I‚ñ‚Å‰º‚³‚¢(¸Ø¯¶ÌÞÙÏ¯Ìß‘Î‰ž)<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‚ñ‚Å‰º‚³‚¢<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‚ñ‚Å‰º‚³‚¢<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‰õ‚Ü‚Å‰ñ•œ‚µ‚Ä‚³‚µ‚ ‚°‚ç‚ê‚Ü‚·<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ƒ‹’Ç‰Á</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‚ñ‚Å‰º‚³‚¢<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ƒ‹’Ç‰Á</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‚¸«‚ð“Ç‚ñ‚Å‰º‚³‚¢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‚¸«‚ð“Ç‚ñ‚Å‰º‚³‚¢<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 ‘‚Ì’Ç‰Á‚Í•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);
-
-	# •‹ï ’Ç‰ÁŠÈ’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‹ï ’Ç‰ÁŠÈ’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Šæä‚Å‰ó‚ê‚É‚­‚¢'],
-		[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 –³‚¢‚æ‚è‚ÍÏ¼¥¥']
-	);
-
-	# “¹‹ï ’Ç‰Á“ï‚µ‚¢ [”Ô†,“¹‹ï–¼,’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ƒ‹’Ç‰Áˆ—
-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ƒ‹’Ç‰Áˆ—
-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 ‚É’Ç‰Á
-		if ($name2 ne "$host2") {
-			push(@new,$_);
-
-			# ŽQ‰ÁŽÒ•\Ž¦—p•¶Žš—ñ‚ðì¬
-			if(!$flag2){$member .="$name2ž";$flag2=1;}
-			else{$member .="$name2Ÿ";$flag2=0;}
-		}
-	}
-	# V‹KŽQ‰ÁŽÒ‚ð’Ç‰Á
-	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‚É‚µ‚È‚¢‚Å‰º‚³‚¢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•œ‹Œ‹@”\‚È‚Ç‚¢‚ë‚¢‚ë‚È‹@”\‚ð’Ç‰Á‚µ‚Ü‚µ‚½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’Ç‰Á‚È‚ñ‚©‚àŠÈ’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>

	-$title -` $camp_info[$DAT{'camp'}][0]‚Ììí‰ï‹cŽº ` -
- - - - - - - -
-`XV: -`	- - - - -
	+$title +ï½ž $camp_info[$DAT{'camp'}][0]ì˜ ìž‘ì „íšŒì˜ì‹¤ ï½ž +
+ + + + + + + +
+`ê°±ì‹ : +`	+ + + + +
	-$title -` —I‹v‚Ì‘å’n‚Ì•à‚Ý ` -
- - - - -
	+$title +~ ìœ êµ¬í•œ ëŒ€ì§€ì˜ ë°œìžì·¨ ~ +
+ + + + +
@	@	@	@	@	@	@	@
@	@	@	@	@	@	ÔÏÄ_‘	@
@	@	¿°ÃÞ¨Å ’é‘	@	@	@	@	@
@	@	@	@	±ÙÒØ± ‰¤‘	@	@	@
@	@	@	‰i‰“‚ÌØ Õ’n	@	@	@	@
@	@	Ì×ØÝ ‹³‘	@	@	@	@	@
@	@	@	@	²·Þ½ ˜A‡‘	@	@	@
@	@	@	@	@	@	@	@
ã€€	ã€€	ã€€	ã€€	ã€€	ã€€	ã€€	ã€€
ã€€	ã€€	ã€€	ã€€	ã€€	ã€€	ì•¼ë§ˆí† ì‹ êµ	ã€€
ã€€	ã€€	ì†Œë””ë‚˜ ì œêµ	ã€€	ã€€	ã€€	ã€€	ã€€
ã€€	ã€€	ã€€	ã€€	ì•Œë©”ë¦¬ì•„ ì™•êµ	ã€€	ã€€	ã€€
ã€€	ã€€	ã€€	ì˜ì›ì˜ ì¦í‘œ í„°	ã€€	ã€€	ã€€	ã€€
ã€€	ã€€	í”Œë¼ë¦° êµêµ	ã€€	ã€€	ã€€	ã€€	ã€€
ã€€	ã€€	ã€€	ã€€	ì´ê¸°ìŠ¤ ì—°í•©êµ	ã€€	ã€€	ã€€
ã€€	ã€€	ã€€	ã€€	ã€€	ã€€	ã€€	ã€€
‡ˆÊ	LV	–¼‘O	‘Ì—Í/¸_	UŒ‚/–hŒä/ŽwŠö/•q·	•‹ï	–h‹ï	ŠK‹‰	s“®
$cnt	$TM_V	\|; - - # Ì† - $log .= ($SOGO_V > 0) ? "$NM_V [$sogo_p[$SOGO_V]]" : "$NM_V"; - - $log .="	$HP_MAX_V/$MP_MAX_V	$UA_V/$UD_V/$LR_V/$AG_V	$dg_data[$DG_A_V][1]	$df_data[$DF_A_V][1]	$cl[$LV_V]
>> ”õl: $seibetu[$SEI_V] ŠiŒ¾: $MES_V
ìˆœìœ„	LV	ì´ë¦„	ì²´ë ¥/ì •ì‹	ê³µê²©/ë°©ì–´/ì§€íœ˜/ë¯¼ì²©	ë¬´ê¸°	ë°©ì–´êµ¬	ê³„ê¸‰	í–‰ë™
$cnt	$TM_V	\|; + + # ì¹í˜¸ + $log .= ($SOGO_V > 0) ? "$NM_V [$sogo_p[$SOGO_V]]" : "$NM_V"; + + $log .="	$HP_MAX_V/$MP_MAX_V	$UA_V/$UD_V/$LR_V/$AG_V	$dg_data[$DG_A_V][1]	$df_data[$DF_A_V][1]	$cl[$LV_V]
>> ë¹„ê³ : $seibetu[$SEI_V] ê²©ì–¸: $MES_V
@	@	@	@	@	@	@	@
@	@	@	@	@	@	$cmp[5]	@
@	@	$cmp[4]	@	@	@	@	@
@	@	@	@	$cmp[1]	@	@	@
@	@	@	‰i‰“‚ÌØ Õ’n	@	@	@	@
@	@	$cmp[2]	@	@	@	@	@
@	@	@	@	$cmp[3]	@	@	@
@	@	@	@	@	@	@	@
	•‹ï	’l’i	‰ñ”	à–¾
\n\|; - $log .=qq\|	$dg_data[$_][1]	$dg_data[$_][2]	$dg_data[$_][3]	$dg_data[$_][5]