$titleh

#-----------------------------------------------------------# # 罪と罰++ 二律背反 # # 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 < $titleh EOM # Javascript自動操作チート防衛(frame取り込み防衛) if($no_js){ print < EOM } print <

罪と罰⁺⁺七夕伝説

$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"; EOM if($no_mouse==5){ print qq|$log2|; } 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"; } #LRグラフ 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) ? "" : "

"; $nxt_rnk=$rank*$rank*3; $log1.=< require './letter_noti.cgi'; ¬i; $log1.=< $nm　　　$seibetu[$sei] ID: $id
レベル $lv　階　級 $cl[$rank]　称　号 [$sogo_p[$sogo]] $noti_mes
体　力[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
敏捷力[AG]

$ag

資　金 $gold ﾀﾆｱ 経験値 $exe/$next_lv　貢献値 $rank_exe/$nxt_rnk

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

討伐[$we]　内政[$nai_kai]　修行[$tra_kai]　軍事[$gun_kai]　ﾌﾟﾁﾛﾄ[$lot_kai]　戦争[$war_kai]
行動セッション $act_cnt/150

武　具 [$dg_data[$dg_a][1]]　回数 [$dg_cnt]
防　具 [$df_data[$df_a][1]]　回数 [$df_cnt]
道　具 [$di_data[$di_a][1]]　回数 [$di_cnt] EOM } 1;#削除不可