sanjeok77
1110 lines
33 KiB
Perl
Executable File
1110 lines
33 KiB
Perl
Executable File
#-----------------------------------------------------------#
|
||
# 죄와 벌++ 이율배반 #
|
||
# 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/ #
|
||
#-----------------------------------------------------------#
|
||
|
||
#-------------------------------------------------------------------------------
|
||
#수행 처리 2
|
||
sub bt_st {
|
||
|
||
&bt_cm;
|
||
|
||
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
|
||
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
|
||
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
|
||
if($thp<1||$hp<1){
|
||
$log2 .=qq|<input type="hidden" name="cmd" value=-1>\n|;
|
||
}else{
|
||
&spell_sp;
|
||
}
|
||
$log2 .=qq|<br>\n|;#テーブルずれ修正
|
||
$log2 .=qq|<input $button1 type="submit" value="NEXT！">$td_end</form>\n|;#テーブル追加</tr></table>
|
||
|
||
&dat_write;
|
||
|
||
}
|
||
|
||
#-------------------------------------------------------------------------------
|
||
#전투 처리
|
||
sub bt_cm {
|
||
|
||
$layout_flag=1;
|
||
|
||
$ua_a = $ua+$dg_data[$dg_a][4]; # $uaに武具値付加
|
||
$ud_a = $ud+$df_data[$df_a][4]; # $udに防具値付加
|
||
|
||
$tua_a = $tua+$dg_data[$tdg_a][4]; # $tuaに武具値付加
|
||
$tud_a = $tud+$df_data[$tdf_a][4]; # $tudに防具値付加
|
||
|
||
my $btp = $ag + int(rand($lv/10)+1);
|
||
my $bte = $tag+ int(rand($tlv/10)+1);
|
||
|
||
($btp>=$bte) ? &attack_myself : &attack_enemy ;
|
||
if($thp>0 && $hp>0){($btp>=$bte) ? &attack_enemy : &attack_myself ;}
|
||
|
||
# 02/10 전쟁 시, 공격한 나라의 사람이 아닌 사람이 나오는 것에 대한 대처 $tnm >> $tnm_p
|
||
$tnm_p = $tnm if(!$tnm_p);
|
||
$log .="<p>$nm ( HP $hp / MP $mp ) VS $tnm_p ( HP $thp / MP $tmp )</p>\n";
|
||
|
||
}
|
||
|
||
# 공격--자신
|
||
sub attack_myself{
|
||
|
||
$log .="<font color=#6666FF>\n";
|
||
|
||
if($cmd == 1){
|
||
local ($v,$vv);
|
||
|
||
$vv=int(rand(1500));
|
||
|
||
$v = $ua_a-$tud_a;
|
||
$v += int(sqrt($ua)) if($bst =~ /W/);
|
||
|
||
$v = 1 if($v<1);
|
||
|
||
if($dg_a && $dg_cnt){#武具呼び出し
|
||
$log .="$nm 은(는) $dg_data[$dg_a][1] (으)로 공격!!<br>$tnm 에게 $v 의 상처를 입혔다!<br>\n";
|
||
$thp -= $v;
|
||
$dg_cnt--;
|
||
if($dg_cnt<=0){
|
||
$log .="$dg_data[$dg_a][1] 이(가) 파괴되었다!!<br>\n";
|
||
$dg_a = $dg_cnt = 0;
|
||
}
|
||
elsif(!$vv){
|
||
$log .="운 나쁘게 $dg_data[$dg_a][1] 이(가) 파괴되었다!!<br>\n";
|
||
$dg_a = $dg_cnt = 0;
|
||
}
|
||
}else{
|
||
$v = int((rand(4))+$v);
|
||
$thp -= $v;
|
||
$log .="$nm 은(는) $tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}
|
||
|
||
}elsif($cmd >= 2){
|
||
$v = $cmd -2;
|
||
|
||
if($rank >= 8){# 계급 기술 호출
|
||
&st_cm_k;
|
||
}
|
||
|
||
if($di_a == 1){#현자의 돌
|
||
my $ss=int($lv/2);
|
||
my ($v,$vv);
|
||
if(int($hp+$ss) < $max_hp){
|
||
$hp += $ss;
|
||
}else{
|
||
$v=$max_hp-$hp;
|
||
$hp += $v;
|
||
}
|
||
if(int($mp+$ss) < $max_mp){
|
||
$mp += $ss;
|
||
}else{
|
||
$vv=$max_mp-$mp;
|
||
$mp += $vv;
|
||
}
|
||
$log .="$di_data[$di_a][1] 의 작용으로 $nm은(는) 체력과 정신력이 $ss 회복되었다!<br>\n";
|
||
|
||
$di_cnt--;
|
||
|
||
if($di_cnt<=0){
|
||
$log .="$di_data[$di_a][1] 이(가) 산산조각이 났다!<br>\n";
|
||
$di_a=0;
|
||
}
|
||
}
|
||
|
||
# 도구 호출
|
||
&dogu_k if($di_a > 1 && $cmd==15);
|
||
|
||
if($v<int($lv/5) && $mp>=$sp_mp[$v]){
|
||
$mp -= $sp_mp[$v];
|
||
|
||
if($camp==0){
|
||
|
||
if($lv < 10){$ch =int(rand(10));}#크리티컬 히트율
|
||
elsif($lv >= 10 && $lv < 15){$ch =int(rand(15));}
|
||
elsif($lv >= 15 && $lv < 20){$ch =int(rand(25));}
|
||
elsif($lv >= 20 && $lv < 30){$ch =int(rand(50));}
|
||
elsif($lv >= 30 && $lv < 40){$ch =int(rand(75));}
|
||
else{$ch =int(rand(125));}
|
||
|
||
if($v == 0 && $ch == 0 || ($ch == 1 && $lv > 5 && $lv < 10)){
|
||
$v = int($ua*4);
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="필살 마진검! <b>크리티컬 히트!</b> $tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}elsif($v == 0 && $ch == 1 && $lv >= 10 && $lv < 20){
|
||
$hp += int($max_hp/3) if($hp < $max_hp - int($max_hp/3));
|
||
$v = int($ua*2);
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="반 회복! 체력이 어느 정도 회복되었다!<br>연속기! 필살 마진검! $tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}elsif($v == 0 && $ch >= 2 || ($ch == 1 && $lv >= 20)){
|
||
$v = int($ua*2);
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="필살 마진검! $tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}elsif($v == 1){
|
||
$hp = $max_hp;
|
||
$log .="전체 회복! 체력이 완전히 회복되었다!<br>\n";
|
||
}
|
||
|
||
}elsif($camp==1){
|
||
|
||
if($v == 0){
|
||
$v = int($ua*1.5);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*1.5) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="필살 질풍검! $tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}elsif($v == 1 ){
|
||
$v = int($max_hp-$hp);
|
||
$v = 30 if($v>30);
|
||
$hp += $v;
|
||
$log .="생명공! 체력을 $v 회복했다!<br>\n";
|
||
}elsif($v == 2){
|
||
$bst .= 'W' unless($bst =~ /W/);
|
||
$log .="봉격공! 공격력이 올랐다<br>\n";
|
||
}elsif($v == 3){
|
||
$thp -= 30;
|
||
$log .="염창선! $tnm에게 30의 상처를 주었다!<br>\n";
|
||
}elsif($v == 4){
|
||
$bst .= 'S' unless($bst =~ /S/);
|
||
$log .= "강기! 방어력이 올랐다<br>\n";
|
||
}elsif($v == 5){
|
||
$v = int($max_hp-$hp);
|
||
$v = 50 if($v>50);
|
||
$hp += $v;
|
||
$log .="절심공! 체력을 $v 회복했다!<br>\n";
|
||
}elsif($v == 6){
|
||
$dh =int(rand(3)) ;
|
||
if($dh==0){
|
||
$v = int($thp*0.8);
|
||
$thp -= $v;
|
||
$thp = 1 if($thp < 1);
|
||
$vv = int($mp/4);
|
||
$mp -= $vv;
|
||
$log .="오의 봉황전생!! $tnm을 빈사 상태로 몰아넣었다!<br>그러나 여파를 입어 $nm은 $vv의 정신력을 잃었다.<br>\n" if($thp <= 1);
|
||
$log .="오의 봉황전생!! $tnm에게 $v의 상처를 주었다!<br>그러나 여파를 입어 $nm은 $vv의 정신력을 잃었다.<br>\n" if($thp > 1);
|
||
}else{
|
||
$v = int($thp*0.5);
|
||
$thp -= $v;
|
||
$thp = 1 if($thp < 1);
|
||
$log .="오의 봉황전생!! $tnm을 빈사 상태로 몰아넣었다!<br>\n" if($thp <= 1);
|
||
$log .="오의 봉황전생!! $tnm에게 $v의 상처를 주었다!<br>\n" if($thp > 1);
|
||
}
|
||
}elsif($v == 7){
|
||
$dh =int(rand(20)) ;
|
||
if($dh <= 3){
|
||
$log .="비오의 혼 깨기!! $tnm은 마음이 산산조각 났다!<br>\n";
|
||
$thp=0;
|
||
}elsif($dh == 4){
|
||
$v = int($hp*0.9);
|
||
$hp -= $v;
|
||
$log .="비오의 혼 깨기!! <b>자폭!!</b> $nm은 마음이 산산조각이 나고 말았다!<br>\n";
|
||
}elsif($dh >= 5 && $dh <= 12){
|
||
$v = int(($tud+$tua)*2-$tud);
|
||
$thp -= $v;
|
||
$log .="비오의 혼 깨기!! 실패했다!!<br>그러나 $tnm에게 $v의 피해를 주는 데 성공!<br>\n";
|
||
}else{
|
||
$log .="실패했다... 그러나 최악의 사태만은 면했다.<br>\n";
|
||
}
|
||
}
|
||
|
||
}elsif($camp==2){
|
||
|
||
if($v == 0){
|
||
$v = int($ua*1.5);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*1.5) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="버티컬 소드! $tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}elsif($v == 1 ){
|
||
$bst .= 'W' unless($bst =~ /W/);
|
||
$log .="어택! 공격력이 올랐다<br>\n";
|
||
}elsif($v == 2){
|
||
$v = int($max_hp-$hp);
|
||
$v = 30 if($v>30);
|
||
$hp += $v;
|
||
$log .="힐! 체력을 $v 회복했다!<br>\n";
|
||
}elsif($v == 3){
|
||
$thp -= 30;
|
||
$v = int($max_hp-$hp);
|
||
$v = 10 if($v>10);
|
||
$hp += $v;
|
||
$log .="세인트 크로스! $tnm에게 30의 상처를 주고, 추가로 그 체력을 조금 흡수했다!<br>\n";
|
||
}elsif($v == 4){
|
||
$tua = 1;
|
||
$log .= "비술 안크레아 브레이크! $tnm의 UA를 0으로 만들었다!<br>\n";
|
||
}elsif($v == 5){
|
||
$v = int($max_hp-$hp);
|
||
$v = 50 if($v>50);
|
||
$hp += $v;
|
||
$log .="ﾊｲ힐! 체력을 $v 회복했다!<br>\n";
|
||
}elsif($v == 6){
|
||
$v = 140 + int(rand(60)) -$tud;
|
||
$thp -= $v;
|
||
$log .="시간의 흐름 속에 묻힌 자…… 영원<small>(토와)</small>의 꿈을 잇는 자……<br>지금 너의 이름 아래, 더러워진 자를 정화하라...!!<br>$tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}elsif($v == 7){
|
||
$log .="황혼보다 어두운 자…… 흐르는 피보다 붉은 자……<br>(생략)<br>……동등하게 멸망을 선사할지어다! 용파참!!<br>\n";
|
||
$v = 200 + int(rand(150)) - $tud;
|
||
$thp -= $v;
|
||
$log .="$tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}
|
||
|
||
}elsif($camp==3){
|
||
|
||
if($v == 0){
|
||
$thp -= 15;
|
||
$log .="소드 슬래시! $tnm에게 15의 상처를 주었다!<br>\n";
|
||
}elsif($v == 1 ){
|
||
$bst .= 'W' unless($bst =~ /W/);
|
||
$log .="어택! UA가 올랐다<br>\n";
|
||
}elsif($v == 2){
|
||
$thp -= 25;
|
||
$log .="소드 댄스! $tnm에게 25의 상처를 주었다!<br>\n";
|
||
}elsif($v == 3){
|
||
$bst .= 'S' unless($bst =~ /S/);
|
||
$log .= "실드! 방어력이 올랐다<br>\n";
|
||
}elsif($v == 4){
|
||
$tud = 1;
|
||
$log .= "오의 아머 브레이크! $tnm의 UD를 0으로 만들었다!<br>\n";
|
||
}elsif($v == 5){
|
||
$v = int($max_hp-$hp);
|
||
$v = 50 if($v>50);
|
||
$hp += $v;
|
||
$log .="ﾊｲ힐! 체력을 $v 회복했다!<br>\n";
|
||
}elsif($v == 6){
|
||
$v = int($ua*3);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*3) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="오거 소드! $tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}elsif($v == 7){
|
||
$v = int($ua*3);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*3) if($bst =~ /W/);
|
||
$v = 100 if($v < 100);
|
||
$thp -= $v;
|
||
$tmp -= $v;
|
||
$log .="비오의 얼티밋 어택! $tnm의 HP와 MP에 $v의 상처를 주었다!<br>\n";
|
||
}
|
||
|
||
}elsif($camp==4){
|
||
|
||
if($v == 0){
|
||
$v = int($ua*2);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*2) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="암흑검! $tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}elsif($v == 1 ){
|
||
$thp -= 20;
|
||
$v = int($max_hp-$hp);
|
||
$v = 10 if($v>10);
|
||
$hp += $v;
|
||
$log .="데드 크라운! $tnm에게 20의 상처를 주고, 추가로 그 체력을 조금 흡수했다!<br>\n";
|
||
}elsif($v == 2){
|
||
$tmp -= 30;
|
||
$log .="나이트메어! $tnm의 MP에 30의 피해를 주었다!<br>\n";
|
||
}elsif($v == 3){
|
||
$thp -= 30;
|
||
$log .="흑염! $tnm에게 30의 상처를 주었다!<br>\n";
|
||
}elsif($v == 4){
|
||
$v = int($max_hp-$hp);
|
||
$v = 50 if($v>50);
|
||
$hp += $v;
|
||
$log .="절심공! 체력을 $v 회복했다!<br>\n";
|
||
}elsif($v == 5){
|
||
$bst .= 'W' unless($bst =~ /W/);
|
||
$log .="어택! UA가 올랐다<br>\n";
|
||
}elsif($v == 6){
|
||
$bst .= 'S' unless($bst =~ /S/);
|
||
$log .= "실드! 방어력이 올랐다<br>\n";
|
||
}elsif($v == 7){
|
||
$v = int(rand(50)) + 200;
|
||
$thp -= $v;
|
||
$log .="열려라 지옥의 문! $tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}
|
||
}elsif($camp==5){
|
||
|
||
if($v == 0){
|
||
$dh =int(rand(2)) ;
|
||
if($dh==0){
|
||
$thp -= 30;
|
||
$log .="일식! $tnm에게 30의 상처를 주었다!<br>\n";
|
||
}elsif($dh==1){
|
||
$thp -= 20;
|
||
$log .="일식! 피했다!!<br>그러나 풍압으로 인해 $tnm에게 20의 상처를 주었다!<br>\n";
|
||
}
|
||
}elsif($v == 1 ){
|
||
$v = int($ua*1.5);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*1.5) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="일식·단! $tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}elsif($v == 2){
|
||
$dh =int(rand(2)) ;
|
||
if($dh==0){
|
||
$thp -= 70;
|
||
$log .="이식! $tnm에게 70의 상처를 주었다!<br>\n";
|
||
}elsif($dh==1){
|
||
$thp -= 35;
|
||
$log .="이식! 피했다!!<br>그러나 풍압으로 인해 $tnm에게 35의 상처를 주었다!<br>\n";
|
||
}
|
||
}elsif($v == 3){
|
||
$dh =int(rand(3)) ;
|
||
if($dh==0){
|
||
$v = int($ua*2.5);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*2.5) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="이식·열! $tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}elsif($dh==1){
|
||
$v = int($ua*2.5);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*2.5) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$hp -= 15;
|
||
$log .="이식·열! $tnm에게 $v의 상처를 주었다!<br>그러나 기술을 제어하지 못하고 폭주하여 $nm은 15의 상처를 입었다.<br>\n";
|
||
}elsif($dh==2){
|
||
$v = int($ua*2.5);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*2.5) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$mp -= 15;
|
||
$log .="이식·열! $tnm에게 $v의 상처를 주었다!<br>그러나 정신에 부하가 걸려 $nm은 15의 MP를 잃었다.<br>\n";
|
||
}
|
||
}elsif($v == 4){
|
||
$dh =int(rand(2)) ;
|
||
if($dh==0){
|
||
$thp -= 120;
|
||
$log .="삼식! $tnm에게 120의 상처를 주었다!<br>\n";
|
||
}elsif($dh==1){
|
||
$thp -= 60;
|
||
$log .="삼식! 피했다!!<br>그러나 풍압으로 인해 $tnm에게 60의 상처를 주었다!<br>\n";
|
||
}
|
||
}elsif($v == 5){
|
||
$dh =int(rand(3)) ;
|
||
if($dh==0){
|
||
$v = int($ua*3.5);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*3.5) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="삼식·파! $tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}elsif($dh==1){
|
||
$v = int($ua*3.5);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*3.5) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$hp -= 30;
|
||
$log .="삼식·파! $tnm에게 $v의 상처를 주었다!<br>그러나 기술을 제어하지 못하고 폭주하여 $nm은 30의 상처를 입었다.<br>\n";
|
||
}elsif($dh==2){
|
||
$v = int($ua*3.5);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*3.5) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$mp -= 30;
|
||
$log .="삼식·파! $tnm에게 $v의 상처를 주었다!<br>그러나 정신에 부하가 걸려 $nm은 30의 MP를 잃었다.<br>\n";
|
||
}
|
||
}elsif($v == 6){
|
||
$dh =int(rand(2)) ;
|
||
if($dh==0){
|
||
$thp -= 200;
|
||
$log .="영식! $tnm에게 200의 상처를 주었다!<br>\n";
|
||
}elsif($dh==1){
|
||
$thp -= 100;
|
||
$log .="영식! 피했다!!<br>그러나 풍압으로 인해 $tnm에게 100의 상처를 주었다!<br>\n";
|
||
}
|
||
}elsif($v == 7){
|
||
$dh =int(rand(3)) ;
|
||
if($dh==0){
|
||
$v = int($ua*5);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*5) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="영식·절! $tnm에게 $v의 상처를 주었다!<br>\n";
|
||
}elsif($dh==1){
|
||
$v = int($ua*6);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*6) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$hp -= 60;
|
||
$log .="영식·절! $tnm에게 $v의 상처를 주었다!<br>그러나 기술을 제어하지 못하고 폭주하여 $nm은 60의 상처를 입었다.<br>\n";
|
||
}elsif($dh==2){
|
||
$v = int($ua*6);
|
||
$v = int(sqrt($ua)) + $ua if($bst =~ /W/);
|
||
$v = int($v*6) if($bst =~ /W/);
|
||
$v = $v-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$mp -= 60;
|
||
$log .="영식·절! $tnm에게 $v의 상처를 주었다!<br>그러나 정신에 부하가 걸려 $nm은 60의 MP를 잃었다.<br>\n";
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
}
|
||
|
||
}
|
||
|
||
$log .="</font>\n";
|
||
|
||
# 승리 처리
|
||
&battle_win if($thp <= 0 && $type eq '수행중');
|
||
|
||
}
|
||
|
||
# 승리 처리
|
||
sub battle_win{
|
||
$G =int(rand(200))+((500*$tlv)-($lv*200));
|
||
$v =$lv-5;
|
||
$z =$lv-10;
|
||
$G =int(rand(500))+1500 if($G>2000);
|
||
$G =int($G/2) if($tlv<$v);
|
||
$G =int($G/3) if($tlv<$z);
|
||
$G =1 if($G<1);
|
||
$gold +=$G;
|
||
$E =int((((((rand(5))+5)+$tlv)*2)*0.8)-$lv);
|
||
$E =1 if($E<1);
|
||
$E =int(rand(50))+250 if($E>300);
|
||
$exe+=$E;
|
||
$tm =0;
|
||
$thp=0;
|
||
$bst ='';
|
||
$bt =0;
|
||
$ck =0;
|
||
$cmd=-1;
|
||
$type='';
|
||
$log .="$nm은(는) $tnm을(를) 쓰러뜨렸다!<br>\n";
|
||
$log .="$G 골드와 $E 경험치를 획득했다!<br>\n";
|
||
$tnm_p = $tnm; # 02/10 전쟁 시, 공격한 나라의 사람이 아닌 사람이 나오는 것에 대한 대처
|
||
$tnm ='';
|
||
}
|
||
|
||
# 공격--적측
|
||
sub attack_enemy{
|
||
|
||
$log .="<font color=FF3366>\n";
|
||
|
||
if(($cmd != -1)&&($thp>0)){
|
||
$log .="$tnm의 공격! \n";
|
||
$p=int(rand(6));
|
||
|
||
if($tcp==0){
|
||
|
||
if($lv < 10){$ch =int(rand(20));}#언럭키 히트율
|
||
elsif($lv >= 10 && $lv < 15){$ch =int(rand(32));}
|
||
elsif($lv >= 15 && $lv < 25){$ch =int(rand(16));}
|
||
elsif($lv >= 25 && $lv < 40){$ch =int(rand(8));}
|
||
else{$ch =int(rand(4));}
|
||
|
||
if($tlv>=5&&$tlv<10&&$tmp>=3&&$p==0){
|
||
if($ch == 0){
|
||
$v = int($tua*4);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="필살 마진검! <b>뼈아픈 일격!</b> $nm은 $v의 상처를 입었다!<br>\n";
|
||
$tmp-=3;
|
||
}else{
|
||
$v = int($tua*2);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="필살 마진검! $nm은 $v의 상처를 입었다!<br>\n";
|
||
$tmp-=3;
|
||
}
|
||
}elsif($tlv>=10&&$tmp>=9&&$p==1){
|
||
if($ch == 0){
|
||
$v = int($tua*4);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="필살 마진검! <b>뼈아픈 일격!</b> $nm에게 $v의 상처를 주었다!<br>\n";
|
||
$tmp-=3;
|
||
}elsif($ch == 1){
|
||
$thp += int($thp_max/3) if($thp < $thp_max - int($thp_max/3));
|
||
$v = int($tua*2);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="반 회복! 체력이 어느 정도 회복되었다!<br>적의 맹공격! 필살 마진검! $nm에게 $v의 상처를 주었다!<br>\n";
|
||
$tmp-=9;
|
||
}elsif($ch > 1){
|
||
$ch2 =int(rand(3));
|
||
if($ch2 == 0 || $ch2 == 1){
|
||
$v = int($tua*2);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="필살 마진검! $nm은 $v의 상처를 입었다!<br>\n";
|
||
$tmp-=3;
|
||
}else{
|
||
$thp = $thp_max;
|
||
$log .="전체 회복! 체력이 완전히 회복되었다!<br>\n";
|
||
$tmp-=9;
|
||
}
|
||
}
|
||
}else{
|
||
# 적 캐릭터 일반 공격 처리
|
||
&bogu_bt;
|
||
}
|
||
}elsif($tcp==1){
|
||
if($tlv>=40&&$tmp>=90&&$p==0){
|
||
$dh =int(rand(20)) ;
|
||
if($dh <= 3){
|
||
$log .="비오의 혼 깨기!! 의식이 멀어진다...<br>\n";
|
||
$hp=0;
|
||
$tmp-=90;
|
||
}elsif($dh == 4){
|
||
$v = int($thp*0.9);
|
||
$thp -= $v;
|
||
$log .="비오의 혼 깨기!! <b>자폭!!</b> $tnm은 마음이 산산조각이 나고 말았다!<br>\n";
|
||
$tmp-=90;
|
||
}elsif($dh >= 5 && $dh <= 12){
|
||
$v = int(($ud+$ua)*2-$ud);
|
||
$hp -= $v;
|
||
$log .="비오의 혼 깨기!! 간발의 차로 $nm은(는) 피했다!!<br>그러나 다 피하지 못하고 $v의 상처를 입었다!<br>\n";
|
||
$tmp-=90;
|
||
}else{
|
||
$log .="실패한 것 같다♪<br>\n";
|
||
$tmp-=90;
|
||
}
|
||
}elsif($tlv>=35&&$tmp>=60&&$p==1){
|
||
$dh =int(rand(3)) ;
|
||
if($dh==0){
|
||
$v = int($hp*0.8);
|
||
$hp -= $v;
|
||
$hp = 1 if($hp < 1);
|
||
$vv = int($tmp/4);
|
||
$tmp -= $vv;
|
||
$log .="오의 봉황전생!! $nm은 빈사 상태에 빠졌다!<br>그러나 여파를 입어 $tnm은 $vv의 정신력을 잃었다.<br>\n" if($thp <= 1);
|
||
$log .="오의 봉황전생!! $nm은 $v의 상처를 입었다!<br>그러나 여파를 입어 $tnm은 $vv의 정신력을 잃었다.<br>\n";
|
||
$tmp-=60;
|
||
}else{
|
||
$v = int($hp*0.5);
|
||
$hp -= $v;
|
||
$hp = 1 if($hp < 1);
|
||
$log .="오의 봉황전생!! $nm은 빈사 상태에 빠졌다!<br>\n" if($thp <= 1);
|
||
$log .="오의 봉황전생!! $nm은 $v의 상처를 입었다!<br>\n";
|
||
$tmp-=60;
|
||
}
|
||
}elsif($tlv>=30&&$tmp>=21&&$p==2){
|
||
$v = int($thp_max-$thp);
|
||
$v = 50 if($v>50);
|
||
$thp += $v;
|
||
$log .="절심공! 체력을 $v 회복했다!<br>\n";
|
||
$tmp-=21;
|
||
}elsif($tlv>=20&&$tmp>=15&&$p==3){
|
||
$hp -= 30;
|
||
$log .="염창선! $nm 은(는) 30 의 상처를 입었다!<br>\n";
|
||
$tmp-=15;
|
||
}elsif($tlv>=10&&$tmp>=9&&$p==4){
|
||
$v = int($thp_max-$thp);
|
||
$v = 30 if($v>30);
|
||
$thp += $v;
|
||
$log .="생명공! 체력을 $v 회복해 버렸다!<br>\n";
|
||
$tmp-=9;
|
||
}elsif($tlv>=5&&$tmp>=6&&$p==5){
|
||
$v = int($tua*1.5);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="필살 질풍검! $nm은 $v의 상처를 입고 말았다!<br>\n";
|
||
$tmp-=6;
|
||
}else{
|
||
# 적 캐릭터 일반 공격 처리
|
||
&bogu_bt;
|
||
}
|
||
}elsif($tcp==2){
|
||
|
||
if($tlv>=40&&$tmp>=90&&$p==0){
|
||
$v = 200 + int(rand(150)) - $ud;
|
||
$hp -= $v;
|
||
$log .="황혼보다 어두운 자…… 흐르는 피보다 붉은 자……<br>(생략)<br>……동등하게 멸망을 선사할지어다! 용파참!!<br>\n";
|
||
$tmp-=85;
|
||
$log .="$nm 은(는) $v 의 상처를 입었다!<br>\n";
|
||
}elsif($tlv>=35&&$tmp>=45&&$p==2){
|
||
$v = 140 + int(rand(60)) -$ud;
|
||
$hp -= $v;
|
||
$log .="시간의 흐름 속에 묻힌 자…… 영원<small>(토와)</small>의 꿈을 잇는 자……<br>지금 너의 이름 아래, 더러워진 자를 정화하라...!!<br>$nm은 $v의 상처를 입었다!<br>\n";
|
||
$tmp-=45;
|
||
}elsif($tlv>=20&&$tmp>=18&&$p==3){
|
||
$hp -= 30;
|
||
$v = int($thp_max-$thp);
|
||
$v = 10 if($v>10);
|
||
$thp += $v;
|
||
$log .="세인트 크로스! $nm은 30의 상처를 입고, 추가로 그 체력을 조금 흡수당했다!<br>\n";
|
||
$tmp-=18;
|
||
}elsif($tlv>=15&&$tmp>=12&&$p==4){
|
||
$v = int($thp_max-$thp);
|
||
$v = 30 if($v>30);
|
||
$thp += $v;
|
||
$log .="힐! 체력을 $v 회복하고 말았다!<br>\n";
|
||
$tmp-=12;
|
||
}elsif($tlv>=5&&$tmp>=6&&$p==5){
|
||
$v = int($tua*1.5);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="버티컬 소드! $nm은 $v의 상처를 입고 말았다!<br>\n";
|
||
$tmp-=6;
|
||
}else{
|
||
# 적 캐릭터 일반 공격 처리
|
||
&bogu_bt;
|
||
}
|
||
|
||
}elsif($tcp==3){
|
||
|
||
if($tlv>=40&&$tmp>=85&&$p==0){
|
||
$v = int($tua*3);
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 100 if($tua<2);
|
||
$v = 100 if($v < 100);
|
||
$hp -= $v;
|
||
$mp -= $v;
|
||
$log .="비오의 얼티밋 어택! $nm은 HP와 MP에 $v의 피해를 입고 말았다!<br>\n";
|
||
$tmp-=85;
|
||
}elsif($tlv>=30&&$tmp>=40&&$p==2){
|
||
$v = int($tua*3);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="회심의 일격! $nm은 $v의 상처를 입고 말았다!<br>\n";
|
||
$tmp-=40;
|
||
}elsif($tlv>=25&&$tmp>=18&&$p==3){
|
||
$v = int($thp_max-$thp);
|
||
$v = 50 if($v>50);
|
||
$thp += $v;
|
||
$log .="ﾊｲ힐! 체력을 $v 회복했다!<br>\n";
|
||
$tmp-=18;
|
||
}elsif($tlv>=15&&$tmp>=12&&$p==4){
|
||
$hp -= 25;
|
||
$log .="소드 댄스! $nm은 25의 상처를 입고 말았다!<br>\n";
|
||
$tmp-=12;
|
||
}elsif($tlv>=5&&$tmp>=6&&$p==5){
|
||
$hp -= 15;
|
||
$log .="소드 슬래시! $nm은 15의 상처를 입고 말았다!<br>\n";
|
||
$tmp-=6;
|
||
}else{
|
||
# 적 캐릭터 일반 공격 처리
|
||
&bogu_bt;
|
||
}
|
||
|
||
}elsif($tcp==4){
|
||
|
||
if($tlv>=40&&$tmp>=90&&$p==0){
|
||
$v = int(rand(50)) + 200;
|
||
$hp -= $v;
|
||
$log .="열려라 지옥의 문! $nm 은(는) $v 의 상처를 입었다!<br>\n";
|
||
$tmp-=90;
|
||
}elsif($tlv>=20&&$tmp>=15&&$p==2){
|
||
$hp -= 30;
|
||
$log .="흑염! $nm은 30의 상처를 입었다!<br>\n";
|
||
$tmp-=15;
|
||
}elsif($tlv>=15&&$tmp>=12&&$p==3){
|
||
$mp -= 30;
|
||
$log .="나이트메어! $nm의 MP에 30의 피해를 입혔다!<br>\n";
|
||
$tmp-=12;
|
||
}elsif($tlv>=10&&$tmp>=9&&$p==4){
|
||
$hp -= 20;
|
||
$v = int($thp_max-$thp);
|
||
$v = 10 if($v>10);
|
||
$thp += $v;
|
||
$log .="데드 크라운! $nm은 20의 상처를 입고, 추가로 그 체력을 조금 흡수당했다!<br>\n";
|
||
$tmp-=9;
|
||
}elsif($tlv>=5&&$tmp>=9&&$p==5){
|
||
$v = int($tua*2);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="암흑검! $nm은 $v의 상처를 입고 말았다!<br>\n";
|
||
$tmp-=9;
|
||
}else{
|
||
# 적 캐릭터 일반 공격 처리
|
||
&bogu_bt;
|
||
}
|
||
|
||
}elsif($tcp==5){
|
||
|
||
if($tlv>=40&&$tmp>=90&&$p==0){
|
||
$dh =int(rand(3)) ;
|
||
if($dh==0){
|
||
$v = int($tua*5);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="영식·열! $nm은 $v의 상처를 입고 말았다!<br>\n";
|
||
$tmp-=99;
|
||
}elsif($dh==1){
|
||
$v = int($tua*6);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="영식·열! $nm은 $v의 상처를 입고 말았다!<br>그러나 기술을 제어하지 못하고 폭주하여 $tnm은 60의 상처를 입었다.<br>\n";
|
||
$tmp-=99;
|
||
$thp-=60;
|
||
}elsif($dh==2){
|
||
$v = int($tua*6);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="영식·열! $nm은 $v의 상처를 입고 말았다!<br>그러나 정신에 부하가 걸려 $tnm은 60의 MP를 잃었다.<br>\n";
|
||
$tmp-=99;
|
||
$tmp-=60;
|
||
}
|
||
}elsif($tlv>=35&&$tmp>=40&&$p==1){
|
||
$dh =int(rand(2)) ;
|
||
if($dh==0){
|
||
$hp -= 200;
|
||
$log .="영식! $nm은 200의 상처를 입었다!<br>\n";
|
||
$tmp-=60;
|
||
}elsif($dh==1){
|
||
$hp -= 100;
|
||
$log .="영식! 몸을 돌려 피했다!!<br>그러나 풍압으로 인해 $nm은 100의 상처를 입었다!<br>\n";
|
||
$tmp-=60;
|
||
}
|
||
}elsif($tlv>=30&&$tmp>=45&&$p==2){
|
||
$dh =int(rand(3)) ;
|
||
if($dh==0){
|
||
$v = int($tua*3.5);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="삼식·파! $nm은 $v의 상처를 입고 말았다!<br>\n";
|
||
$tmp-=30;
|
||
}elsif($dh==1){
|
||
$v = int($tua*3.5);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="삼식·파! $nm은 $v의 상처를 입고 말았다!<br>그러나 기술을 제어하지 못하고 폭주하여 $tnm은 30의 상처를 입었다.<br>\n";
|
||
$tmp-=30;
|
||
$thp-=30;
|
||
}elsif($dh==2){
|
||
$v = int($tua*3.5);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="삼식·파! $nm은 $v의 상처를 입고 말았다!<br>그러나 정신에 부하가 걸려 $tnm은 30의 MP를 잃었다.<br>\n";
|
||
$tmp-=30;
|
||
$tmp-=30;
|
||
}
|
||
}elsif($tlv>=25&&$tmp>=30&&$p==3){
|
||
$dh =int(rand(2)) ;
|
||
if($dh==0){
|
||
$hp -= 120;
|
||
$log .="삼식! $nm은 120의 상처를 입었다!<br>\n";
|
||
$tmp-=30;
|
||
}elsif($dh==1){
|
||
$hp -= 60;
|
||
$log .="삼식! 몸을 돌려 피했다!!<br>그러나 풍압으로 인해 $nm은 60의 상처를 입었다!<br>\n";
|
||
$tmp-=30;
|
||
}
|
||
}elsif($tlv>=20&&$tmp>=30&&$p==4){
|
||
$dh =int(rand(3)) ;
|
||
if($dh==0){
|
||
$v = int($tua*2.5);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="이식·열! $nm은 $v의 상처를 입고 말았다!<br>\n";
|
||
$tmp-=20;
|
||
}elsif($dh==1){
|
||
$v = int($tua*2.5);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="이식·열! $nm은 $v의 상처를 입고 말았다!<br>그러나 기술을 제어하지 못하고 폭주하여 $tnm은 15의 상처를 입었다.<br>\n";
|
||
$tmp-=20;
|
||
$thp-=15;
|
||
}elsif($dh==2){
|
||
$v = int($tua*2.5);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="이식·열! $nm은 $v의 상처를 입고 말았다!<br>그러나 정신에 부하가 걸려 $tnm은 15의 MP를 잃었다.<br>\n";
|
||
$tmp-=20;
|
||
$tmp-=15;
|
||
}
|
||
}elsif($tlv>=15&&$tmp>=20&&$p==5){
|
||
$dh =int(rand(2)) ;
|
||
if($dh==0){
|
||
$hp -= 70;
|
||
$log .="이식! $nm은 70의 상처를 입었다!<br>\n";
|
||
$tmp-=20;
|
||
}elsif($dh==1){
|
||
$hp -= 35;
|
||
$log .="이식! 몸을 돌려 피했다!!<br>그러나 풍압으로 인해 $nm은 35의 상처를 입었다!<br>\n";
|
||
$tmp-=20;
|
||
}
|
||
}elsif($tlv>=10&&$tmp>=15&&$p==6){
|
||
$v = int($tua*1.5);
|
||
$v = $v-$ud;
|
||
$v -= int(sqrt($ud)) if($bst =~ /S/);
|
||
$v = 1 if($v<1);
|
||
$hp -= $v;
|
||
$log .="일식·단! $nm은 $v의 상처를 입고 말았다!<br>\n";
|
||
$tmp-=10;
|
||
}elsif($tlv>=5&&$tmp>=10&&$p==7){
|
||
$dh =int(rand(2)) ;
|
||
if($dh==0){
|
||
$hp -= 30;
|
||
$log .="삼식! $nm은 120의 상처를 입었다!<br>\n";
|
||
$tmp-=10;
|
||
}elsif($dh==1){
|
||
$hp -= 20;
|
||
$log .="삼식! 몸을 돌려 피했다!!<br>그러나 풍압으로 인해 $nm은 20의 상처를 입었다!<br>\n";
|
||
$tmp-=10;
|
||
}
|
||
}else{
|
||
# 적 캐릭터 일반 공격 처리
|
||
&bogu_bt;
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
$log .="</font>\n";
|
||
|
||
# 패배 처리
|
||
&battle_lost if($hp <= 0 && $type eq '수행중');
|
||
|
||
}
|
||
|
||
# 패배 처리
|
||
sub battle_lost{
|
||
$tm = 0;
|
||
$cmd=-1;
|
||
$bst ='';
|
||
$bt =0;
|
||
$ck =0;
|
||
$hp =0;
|
||
$type='';
|
||
$G=int(rand(10))+1;
|
||
$E=int(rand(5))+1;
|
||
$gold+=$G;
|
||
$exe+=$E;
|
||
$log .="당신은 $tnm에게 패배했다…<br>\n";
|
||
$log .="$G 골드와 $E 경험치를 획득했다<br>\n";
|
||
$tnm_p = $tnm; # 02/10 전쟁 시, 공격한 나라의 사람이 아닌 사람이 나오는 것에 대한 대처
|
||
$tnm='';
|
||
}
|
||
|
||
#-------------------------------------------------------------------------------
|
||
# 적 캐릭터 일반 공격 처리
|
||
sub bogu_bt{
|
||
$v = $tua_a-$ud_a;
|
||
$v -= int(sqrt($tud)) if($bst =~ /S/);
|
||
|
||
$v = 1 if($v<1);
|
||
|
||
# 일반 데미지 보정 << 강자가 약자만 상대하지 않도록
|
||
if($lv <= 15){$v += int((rand(2))+$v);}
|
||
elsif($lv > 15 && $lv <= 30){$v += int((rand(4))+$v);}
|
||
else{$v += int((rand(8))+$v);}
|
||
|
||
if($tdg_a>0){#武具呼び出し
|
||
$log .="$dg_data[$tdg_a][1](으)로 반격!!<br>$nm은 $v의 상처를 입었다!<br>\n";
|
||
$hp -= $v;
|
||
}else{
|
||
$v = int((rand(4))+$v);
|
||
$hp -= $v;
|
||
$log .="$v의 반격을 받았다!<br>\n";
|
||
}
|
||
|
||
if($df_a && $df_cnt){#防具呼び出し
|
||
$df_cnt--;
|
||
if($df_cnt<=0){
|
||
$log .="$tnm의 날카로운 공격으로 $nm의 $df_data[$df_a][1] 이(가) 파괴되었다!!<br>\n";
|
||
$df_a = $df_cnt = 0;
|
||
}
|
||
}
|
||
}
|
||
|
||
#-------------------------------------------------------------------------------
|
||
#전투 시의 셀렉트 메뉴 표시
|
||
sub spell_sp {
|
||
$log2 .="<select name=cmd size=1>\n<option value=1>공격</option>\n";
|
||
for($i=0,$j=2;$i<int($lv/5) && $i<=$#spell;$i++,$j++){
|
||
next if($mp<$sp_mp[$i]);
|
||
$v = int($mp/$sp_mp[$i]);
|
||
$log2 .="<option value=$j>$spell[$i]\[$v\]</option>\n";
|
||
}#;
|
||
for($i=0,$j=8,$k=10;$i<=$#kspell;$i++,$j=$j+2,$k++){
|
||
if($rank >= $j && $mp >= $ksp_mp[$i] && $camp >0){
|
||
$v = int($mp/$ksp_mp[$i]);
|
||
$log2 .="<option value=$k>$kspell[$i]\[$v\]</option>\n";
|
||
}
|
||
}
|
||
if($di_a>0){
|
||
$log2 .="<option value=15>$di_data[$di_a][1]\[1\]</option>\n";
|
||
}
|
||
$log2 .="</select>";
|
||
}
|
||
|
||
#-------------------------------------------------------------------------------
|
||
#계급 기술(플레이어용)
|
||
sub st_cm_k {
|
||
if($v == 8 && $camp > 0){
|
||
$v = int(($ua+$ud)*2)-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="$kspell[0]!$tnm에게 $v의 상처를 주었다!<br>\n";
|
||
$mp -= $ksp_mp[0];
|
||
}elsif($v == 9 && $camp > 0){
|
||
$v = int(($ua+$ud)*2.5)-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="$kspell[1]!$tnm에게 $v의 상처를 주었다!<br>\n";
|
||
$mp -= $ksp_mp[1];
|
||
}elsif($v == 10 && $camp > 0){
|
||
$v = int(($ua+$ud)*3)-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="$kspell[2]!$tnm에게 $v의 상처를 주었다!<br>\n";
|
||
$mp -= $ksp_mp[2];
|
||
}elsif($v == 11 && $camp > 0){
|
||
$v = int(($ua+$ud)*4)-$tud;
|
||
$v = 1 if($v<1);
|
||
$thp -= $v;
|
||
$log .="$kspell[3]!$tnm에게 $v의 상처를 주었다!<br>\n";
|
||
$mp -= $ksp_mp[3];
|
||
}
|
||
}
|
||
|
||
#-------------------------------------------------------------------------------
|
||
#도구(PC용)
|
||
sub dogu_k {
|
||
my $v;
|
||
|
||
if($di_a == 2){
|
||
$hp = $max_hp;
|
||
$mp = $max_mp;
|
||
$di_cnt=0;
|
||
$di_a=0;
|
||
$log .="$nm은(는) $di_data[2][1]을(를) 사용했다! 체력과 마력이 전부 회복되었다!<br>\n";
|
||
}elsif($di_a == 3){
|
||
$hp = $max_hp;
|
||
$di_cnt=0;
|
||
$di_a=0;
|
||
$log .="$nm은(는) $di_data[3][1]을(를) 사용했다! 체력이 전부 회복되었다!<br>\n";
|
||
}elsif($di_a == 4){
|
||
$mp = $max_mp;
|
||
$di_cnt=0;
|
||
$di_a=0;
|
||
$log .="$nm은(는) $di_data[4][1]을(를) 사용했다! 마력이 전부 회복되었다!<br>\n";
|
||
}elsif($di_a == 11){
|
||
if(int($hp+80) < $max_hp){
|
||
$v=80;
|
||
$hp += $v;
|
||
}else{
|
||
$v=$max_hp-$hp;
|
||
$hp += $v;
|
||
}
|
||
if(int($mp+60) < $max_mp){
|
||
$vv=60;
|
||
$mp += $vv;
|
||
}else{
|
||
$vv=$max_mp-$mp;
|
||
$mp += $vv;
|
||
}
|
||
$di_cnt=0;
|
||
$di_a=0;
|
||
$log .="$nm 은(는) $di_data[11][1]을(를) 사용했다!<br>체력이 $v 회복되고, 추가로 정신력이 $vv 회복되었다!<br>\n";
|
||
}elsif($di_a == 12){
|
||
if(int($mp+80) < $max_mp){
|
||
$v=80;
|
||
$mp += $v;
|
||
}else{
|
||
$v=$max_mp-$mp;
|
||
$mp += $v;
|
||
}
|
||
$di_cnt=0;
|
||
$di_a=0;
|
||
$log .="$nm 은(는) $di_data[12][1] 을(를) 사용했다! 정신력이 $v 회복되었다!<br>\n";
|
||
}elsif($di_a == 13){
|
||
if(int($mp+40) < $max_mp){
|
||
$v=40;
|
||
$mp += $v;
|
||
}else{
|
||
$v=$max_mp-$mp;
|
||
$mp += $v;
|
||
}
|
||
$di_cnt=0;
|
||
$di_a=0;
|
||
$log .="$nm 은(는) $di_data[13][1] 을(를) 사용했다! 정신력이 $v 회복되었다!<br>\n";
|
||
}elsif($di_a == 14){
|
||
if(int($hp+100) < $max_hp){
|
||
$v=100;
|
||
$hp += $v;
|
||
}else{
|
||
$v=$max_hp-$hp;
|
||
$hp += $v;
|
||
}
|
||
$di_cnt=0;
|
||
$di_a=0;
|
||
$log .="$nm 은(는) $di_data[14][1] 을(를) 사용했다! 체력이 $v 회복되었다!<br>\n";
|
||
}elsif($di_a == 15){
|
||
if(int($hp+50) < $max_hp){
|
||
$v=50;
|
||
$hp += $v;
|
||
}else{
|
||
$v=$max_hp-$hp;
|
||
$hp += $v;
|
||
}
|
||
$di_cnt=0;
|
||
$di_a=0;
|
||
$log .="$nm 은(는) $di_data[15][1] 을(를) 사용했다! 체력이 $v 회복되었다!<br>\n";
|
||
}
|
||
}
|
||
|
||
|
||
|
||
|
||
|
||
1;
|