#-----------------------------------------------------------# # 罪と罰++ 二律背反 # # 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 NEXT貢献値・更新ボタン・所属国の色表示 # # Arranged by キムチ # HPタイトル : Kimchi's Room [http://www.kimchi-web.jp] #--- [注意事項] --------------------------------------------# # ・このスクリプトは以下の利用規程に従って配布しています。 # # 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 < $titleh EOM # Javascript自動操作チート防衛(frame取り込み防衛) if($no_js){ print < EOM } print <
$title
$log1
EOM if($no_mouse==0){ print qq|$log2|; } print<
EOM if($no_mouse==1){ print qq|$log2|; } print<
EOM if(!$type && $cmd<=0){ print <<"EOM"; EOM } print <<"EOM"; EOM if($no_mouse==2){ print qq|$log2|; } print<
EOM print <<"EOM"; EOM if($pr>0){ print<
EOM } if($no_mouse>=3){ print qq|$log2|; } print<

EOM my($uti, $sti, $cuti, $csti) = times(); $uti += $cuti; $sti += $csti; my($cpu) = $uti + $sti; my $disp="CPUs($cpu): User($uti) System($sti)
"; if($layout_flag==1){ print <
$log


EOM }elsif(!$layout_flag){ require './inc/ore_sub-base-p1_pc.cgi';&layout_flag_0; } print <<"EOM"; $disp

$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) ? "" : ""; $mp_y = (!$mp_y) ? "" : ""; $ua_y = (!$dg_a) ? "" : ""; $ud_y = (!$df_a) ? "" : ""; $lr_y = (!$dg_a) ? "" : ""; $ag_y = (!$df_a) ? "" : ""; if($war>=1){# 勝率表示 @ $syouritsu = int($war_win/$war*10000) / 100;}# 勝率表示 A $next_roku=$roku+21600-$time;#次回給与獲得までの時間 $next_rank =int(($rank*$rank)*2);# 階級アップまでの貢献値表示 if($rank==14){$next_rank = "----";}# 階級MAX時に目標貢献値非表示 $letter_s ="$let件の新着メールがあります
" if($let);# 罪罰通信新着表示 $next_roku=$roku+21600-$time;# 次回給与支給までの時間表示 @ $next_roku_txt = int($next_roku/3600).'時間'.int((next_roku/3600)/60).'分';# 次回給与支給までの時間表示 A $log1.=< $nm   $seibetu[$sei]    ID: $id
レベル $lv 階級 $cl[$rank] 称 号 [$sogo_p[$sogo]]

体 力[HP] $hp_y $hp/$max_hp
魔 力[MP] $mp_y $mp/$max_mp
攻撃力[UA] $ua_y $ua +$dg_data[$dg_a][4]
防御力[UD] $ud_y $ud +$df_data[$df_a][4]
指揮力[LR] $lr_y $lr +$dg_data[$dg_a][6]
敏捷力[AG] $ag_y $ag +$df_data[$df_a][6]

資 金 $gold 経験値 $exe/$next_lv 貢献値 $rank_exe/$next_rank

所 属 $cmp[$camp] 部 隊 $g_p[$rank] 訓練度 $sol_lv/100

武 器 [$dg_data[$dg_a][1]] 重量[$dg_data[$dg_a][8]]属性[$dg_data[$dg_a][9]
防 具 [$df_data[$df_a][1]] 重量[$df_data[$df_a][7]]属性[$df_data[$df_a][8]
道 具 [$di_data[$di_a][1]] 回数 [$di_cnt]            $letter_s
内政 [$politics] 軍事 [$mission] 討伐 [$we] 戦争 [$war戦$war_win勝$war_lose敗] 勝率 [$syouritsu%]

次回給与支給まで $next_roku_txt(調整中) 行動値 [$act_cnt/$act_cnt_limit] EOM } 1;#削除不可