#-----------------------------------------------------------#
# 罪と罰++ 二律背反 #
# 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=shift_jis\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;#削除不可