#-----------------------------------------------------------# # 죄와 벌++ 이율배반 # # 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; # $log2 커맨드 폼의 legacy 테이블/셀 태그를 정규식으로 제거하여 레이아웃 유연화 $log2 =~ s/<\/?(td|tr|table)[^>]*>//gi if defined $log2; # 마우스 자동 조작 치트 격퇴 전투 시에 4/400 확률로 발동 my $no_mouse = ($no_mouse && $type eq '수행중') ? int(rand(400)) : 100 ; # 활성화된 이미지 결정 (동적 이미지 매핑) my $menu_img = "lobby.png"; if ($type eq '수행' || $type eq '수행중' || $cmd == 1) { $menu_img = "training.png"; } elsif ($type eq '내정' || $cmd == 2) { $menu_img = "politics.png"; } elsif ($type eq '전쟁' || $type eq '전쟁중' || $cmd == 3) { $menu_img = "war.png"; } elsif ($type eq '능력' || $cmd == 4) { $menu_img = "ability.png"; } elsif ($type eq '사관' || $cmd == 5) { $menu_img = "changes.png"; } elsif ($type eq '정보' || $cmd == 6) { $menu_img = "infomation.png"; } elsif ($type eq '토벌' || $type eq '토벌 중' || $cmd == 7) { $menu_img = "subdue.png"; } elsif ($type eq '군사' || $cmd == 8) { $menu_img = "mission.png"; } elsif ($type eq '쇼핑' || $cmd == 20) { $menu_img = "shop.png"; } print < $titleh EOM # Javascript 자동 조작 치트 방어(frame 방어) if($no_js){ print < EOM } print <
Menu Illustration
$log1
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) ? "" : ""; $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
민첩성[AG] $ag

자　금 $gold　경험치 $exe/$next_lv　공헌도 $rank_exe

소　속 $cmp[$camp]　부　대 $g_p[$rank]　훈련도 $sol_lv

무　기 [$dg_data[$dg_a][1]]　횟수 [$dg_cnt]
방　어구 [$df_data[$df_a][1]]　횟수 [$df_cnt]
도　구 [$di_data[$di_a][1]]　횟수 [$di_cnt] EOM } 1;#삭제 불가