#-----------------------------------------------------------#
#  죄와 벌++ 이율배반										#
#  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;#삭제 불가
