#-----------------------------------------------------------#
# 죄와 벌++ 이율배반 #
# 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|2. 쇼핑/| if(!$type && $cmd<=0);
print "Content-type: text/html; charset=utf-8\n\n" ;
print qq|$titleh|;
print qq|$title_i
| if(!$tm && !$log);
if($lt_mode =~ /00/){print qq|$log1
| if(!$tm && !$log)}
else{print qq|$log1
|;}
print qq|$log2
|;
print qq|$log
|;
if(!$type && $cmd<=0){
print qq|9. 타이틀/1. 교류광장/$shop_i3. 과거의 영광/4. 공식조약/5. 작전회의
| if($lt_mode =~ /01/);
print qq|$bmes
| if($lt_mode =~ /02/ && !$log);
print qq|$rst
| if($lt_mode =~ /03/ && !$log);
print qq|참가 총수:$now_sanka명/$sanka명 정원//통일 국력:$data_reset/난이도:$reset_point//이전 패자: $hasya [$cmp[$hcamp]]
| if($lt_mode =~ /04/ && !$log);
print qq|현재 참가자
$now_nm| if($lt_mode =~ /05/ && !$log);
print qq|
$kakiko
| if($lt_mode =~ /06/ && !$log);
}else{
print qq|9. 타이틀/1. 교류광장/$shop_i3. 과거의 영광/4. 공식조약/5. 작전회의
| if($lt_mode =~ /11/);
print qq|$bmes
| if($lt_mode =~ /22/);
print qq|$rst
| if($lt_mode =~ /33/);
print qq|참가 총수:$now_sanka명/$sanka명 정원//통일 국력:$data_reset/난이도:$reset_point//이전 패자: $hasya [$cmp[$hcamp]]
| if($lt_mode =~ /44/);
print qq|플레이 인원
$now_nm| if($lt_mode =~ /55/);
print qq|
$kakiko
| if($lt_mode =~ /66/);
}
}
#-------------------------------------------------------------------------------
# 스태터스 표시
sub status{
$log1.=<
LV$lv $gold\G
HP$hp/$max_hp MP$mp/$max_mp
UA$ua/UD$ud/LR$lr/AG$ag
경험치$exe/$next_lv
$cmp[$camp] $cl[$rank]
부대$g_p[$rank] 훈련도$sol_lv
EOM
$log1.="칭호[$sogo_p[$sogo]]
" if($sogo);
$log1.="[$dg_data[$dg_a][1]]/$dg_cnt
" if($dg_a && $dg_cnt);
$log1.="[$df_data[$df_a][1]]/$df_cnt
" if($df_a && $df_cnt);
$log1.="[$di_data[$di_a][1]]/$di_cnt
" if($di_a && $di_cnt);
my @metu=('','(멸망)');
$rst.=<$cmp[2]$metu[$ce2] 국력$cn2 예산$cg2 군량$cf2 병사$cs2 인원$c2/$c2a
$cmp[3]$metu[$ce3] 국력$cn3 예산$cg3 군량$cf3 병사$cs3 인원$c3/$c3a
$cmp[4]$metu[$ce4] 국력$cn4 예산$cg4 군량$cf4 병사$cs4 인원$c4/$c4a
$cmp[5]$metu[$ce5] 국력$cn5 예산$cg5 군량$cf5 병사$cs5 인원$c5/$c5a
EOM
}
1;#삭제 불가