Stuff

my $dmg_dg = 1.5;
my $dmg_gz = 1;
my $dmg_ball = 1.3;
my $dmg_tm = 3;
#utholdenhet angrep og forsvar
my $hp_rev = 1.1;
my $hp_dg = 1.5;
my $hp_gz = 1;
my $hp_ball = 0.6;
my $hp_tm = 3.5;
#hitpoints forsvar
my $dmg_rev2 = 1.6;
my $dmg_dg2 = 2.3;
my $dmg_gz2 = 1.5;
my $dmg_ball2 = 0.9;
my $dmg_tm2 = 5.2;
my $dmg_wrk = 2;


my ($a_gz,$a_ball,$a_rev,$a_tm,$a_dg,$a_skill) = ($form{'a_gz'},$form{'a_ball'},$form{'a_rev'},$form{'a_tm'},$form{'a_dg'},$form

{'a_skill'});
my ($d_gz,$d_ball,$d_rev,$d_tm,$d_dg,$d_skill) = ($form{'d_gz'},$form{'d_ball'},$form{'d_rev'},$form{'d_tm'},$form{'d_dg'},$form

{'d_skill'});
my ($res_a_gz,$res_a_ball,$res_a_rev,$res_a_tm,$res_a_dg) = ($a_gz,$a_ball,$a_rev,$a_tm,$a_dg);
my ($res_d_gz,$res_d_ball,$res_d_rev,$res_d_tm,$res_d_dg) = ($d_gz,$d_ball,$d_rev,$d_tm,$d_dg);
sub Dmg2HP{
 my ($res, $d,$hp,$d_skill) = @_;
 if(!$res || !$d || !$hp || !$d_skill){return 0;}
 return $res - (($d*$hp)*$d_skill);
}

my $res = 0;

##############################
#* Revolvere skyter
#//1. Revolvere

$res = round(Dmg2HP((($a_rev*$dmg_rev)* $a_skill), $d_rev, $hp_rev, $d_skill));
if($res <= 0){$res *= -1;$d_rev = round($res/$hp_rev);}
else{
   #//2. Tommyguns
   $res = round(Dmg2HP($res, $d_tm,$hp_tm,$d_skill));
   if($res <= 0){$res *= -1;$d_tm = round($res/$hp_tm);}
   else{
     #//3. Balltre
     $res = round(Dmg2HP($res, $d_ball,$hp_ball,$d_skill));
     if($res <= 0){$res *= -1;$d_ball = round($res/$hp_ball);}
     else{
       #//3. Gangstere
       $res = round(Dmg2HP($res, $d_gz,$hp_gz,$d_skill));
       if($res <= 0){$res *= -1;$d_gz = round($res/$hp_gz);}
     }
   }
}
if($res >= 0){$a_rev = round($res/$dmg_rev);}
##############################
#* Kamphunder forsvarer
$res = 0;
$res = round(Dmg2HP(($d_dg*$dmg_dg2), $a_dg, $hp_dg, 1));
if($res <= 0){$a_dg = $res_a_dg;} #round($res/$hp_dg);
else{$d_dg = $res_d_dg;}#round($res/$dmg_dg2);}
##############################
##############################
#* Revolvrer skyter tilbake
#//1. Revolvere
$res = 0;
$res = round(Dmg2HP((($d_rev*$dmg_rev2)* $d_skill), $a_rev, $hp_rev, $a_skill));
if($res <= 0){$res *= -1;$a_rev = round($res/$hp_rev);}
else{
   #//2. Tommyguns
   $res = round(Dmg2HP($res, $a_tm,$hp_tm,$a_skill));
   if($res <= 0){$res *= -1;$a_tm = round($res/$hp_tm);}
   else{
     #//3. Balltre
     $res = round(Dmg2HP($res, $a_ball,$hp_ball,$a_skill));
     if($res <= 0){$res *= -1;$a_ball = round($res/$hp_ball);}
     else{
       #//3. Gangstere
       $res = round(Dmg2HP($res, $a_gz,$hp_gz,$a_skill));
       if($res <= 0){$res *= -1;$a_gz = round($res/$hp_gz);}
     }
   }
}
if($res >= 0){$d_rev = round($res/$dmg_rev2);}
##############################
#* Tommygun skyter
#//1. Tommy
$res = 0;
$res = round(Dmg2HP((($a_tm*$dmg_tm)* $a_skill), $d_tm, $hp_tm, $d_skill));
if($res <= 0){$res *= -1;$d_tm = round($res/$hp_tm);}
else{
   #//2. Revs
   $res = round(Dmg2HP($res, $d_rev,$hp_rev,$d_skill));
   if($res <= 0){$res *= -1;$d_rev = round($res/$hp_rev);}
   else{
     #//3. Balltre
     $res = round(Dmg2HP($res, $d_ball,$hp_ball,$d_skill));
     if($res <= 0){$res *= -1;$d_ball = round($res/$hp_ball);}
     else{
       #//3. Gangstere
       $res = round(Dmg2HP($res, $d_gz,$hp_gz,$d_skill));
       if($res <= 0){$res *= -1;$d_gz = round($res/$hp_gz);}
     }
   }
}
if($res >= 0){$a_tm = round($res/$dmg_tm);}
##############################
#* Tommygun skyter
#//1. Tommy
$res = 0;
$res = round(Dmg2HP((($a_tm*$dmg_tm)* $a_skill), $d_tm, $hp_tm, $d_skill));
if($res <= 0){$res *= -1;$d_tm = round($res/$hp_tm);}
else{
   #//2. Revs
   $res = round(Dmg2HP($res, $d_rev,$hp_rev,$d_skill));
   if($res <= 0){$res *= -1;$d_rev = round($res/$hp_rev);}
   else{
     #//3. Balltre
     $res = round(Dmg2HP($res, $d_ball,$hp_ball,$d_skill));
     if($res <= 0){$res *= -1;$d_ball = round($res/$hp_ball);}
     else{
       #//3. Gangstere
       $res = round(Dmg2HP($res, $d_gz,$hp_gz,$d_skill));
       if($res <= 0){$res *= -1;$d_gz = round($res/$hp_gz);}
     }
   }
}
if($res >= 0){$a_tm = round($res/$dmg_tm);}
##############################
#* Tommy skyter tilbake
#//1. Tommy
$res = 0;
$res = round(Dmg2HP((($d_tm*$dmg_tm2)* $d_skill), $a_tm, $hp_tm, $a_skill));
if($res <= 0){$res *= -1;$a_tm = round($res/$hp_tm);}
else{
   #//2. Revs
   $res = round(Dmg2HP($res, $a_rev,$hp_rev,$a_skill));
   if($res <= 0){$res *= -1;$a_rev = round($res/$hp_rev);}
   else{
     #//3. Balltre
     $res = round(Dmg2HP($res, $a_ball,$hp_ball,$a_skill));
     if($res <= 0){$res *= -1;$a_ball = round($res/$hp_ball);}
     else{
       #//3. Gangstere
       $res = round(Dmg2HP($res, $a_gz,$hp_gz,$a_skill));
       if($res <= 0){$res *= -1;$a_gz = round($res/$hp_gz);}
     }
   }
}
if($res >= 0){$d_tm = round($res/$dmg_tm2);}
##############################
##############################
#* Ball angriper
#//1. Ball
$res = 0;
$res = round(Dmg2HP((($a_ball*$dmg_ball)* $a_skill), $d_ball, $hp_ball, $d_skill));
if($res <= 0){$res *= -1;$d_ball = round($res/$hp_ball);}
else{
   #//2. Gz
   $res = round(Dmg2HP($res, $d_gz,$hp_gz,$d_skill));
   if($res <= 0){$res *= -1;$d_gz = round($res/$hp_gz);}
   else{
     #//3. Revs
     $res = round(Dmg2HP($res, $d_rev,$hp_rev,$d_skill));
     if($res <= 0){$res *= -1;$d_rev = round($res/$hp_rev);}
     else{
       #//3. Tommy
       $res = round(Dmg2HP($res, $d_tm,$hp_tm,$d_skill));
       if($res <= 0){$res *= -1;$d_tm = round($res/$hp_tm);}
     }
   }
}
if($res >= 0){$a_ball = round($res/$dmg_ball);}
##############################
##############################
#* Ball forsvarer
#//1. Ball
$res = 0;
$res = round(Dmg2HP((($d_ball*$dmg_ball2)* $d_skill), $a_ball, $hp_ball, $a_skill));
if($res <= 0){$res *= -1;$a_ball = round($res/$hp_ball);}
else{
   #//2. Gz
   $res = round(Dmg2HP($res, $a_gz,$hp_gz,$a_skill));
   if($res <= 0){$res *= -1;$a_rev = round($res/$hp_gz);}
   else{
     #//3. Revs
     $res = round(Dmg2HP($res, $a_rev,$hp_rev,$a_skill));
     if($res <= 0){$res *= -1;$a_rev = round($res/$hp_rev);}
     else{
       #//3. Tommy
       $res = round(Dmg2HP($res, $a_tm,$hp_tm,$a_skill));
       if($res <= 0){$res *= -1;$a_tm = round($res/$hp_tm);}
     }
   }
}
if($res >= 0){$d_ball = round($res/$dmg_ball2);}
##############################
##############################
#* Gz angriper
#//1. Rev
$res = 0;
$res = round(Dmg2HP((($a_rev*$dmg_rev)* $a_skill), $d_rev, $hp_rev, $d_skill));
if($res <= 0){$res *= -1;$d_rev = round($res/$hp_rev);}
else{
   #//2. Tommy
   $res = round(Dmg2HP($res, $d_tm,$hp_tm,$d_skill));
   if($res <= 0){$res *= -1;$d_tm = round($res/$hp_tm);}
   else{
     #//3. Ball
     $res = round(Dmg2HP($res, $d_ball,$hp_ball,$d_skill));
     if($res <= 0){$res *= -1;$d_ball = round($res/$hp_ball);}
     else{
       #//3. Gz
       $res = round(Dmg2HP($res, $d_gz,$hp_gz,$d_skill));
       if($res <= 0){$res *= -1;$d_gz = round($res/$hp_gz);}
     }
   }
}
if($res >= 0){$a_gz = round($res/$dmg_gz);}
##############################
##############################
#* Gz forsvarer
#//1. Rev
$res = 0;
$res = round(Dmg2HP((($d_rev*$dmg_rev2)* $d_skill), $a_rev, $hp_rev, $a_skill));
if($res <= 0){$res *= -1;$a_rev = round($res/$hp_rev);}
else{
   #//2. Tommy
   $res = round(Dmg2HP($res, $a_tm,$hp_tm,$a_skill));
   if($res <= 0){$res *= -1;$a_tm = round($res/$hp_tm);}
   else{
     #//3. Ball
     $res = round(Dmg2HP($res, $a_ball,$hp_ball,$a_skill));
     if($res <= 0){$res *= -1;$a_ball = round($res/$hp_ball);}
     else{
       #//3. Gz
       $res = round(Dmg2HP($res, $a_gz,$hp_gz,$a_skill));
       if($res <= 0){$res *= -1;$a_gz = round($res/$hp_gz);}
     }
   }
}
if($res >= 0){$d_gz = round($res/$dmg_gz2);}
##############################
#* Kamphunder angriper
$res = 0;
$res = round(Dmg2HP(($a_dg*$dmg_dg), $d_dg, $hp_dg, 1));
if($res <= 0){$d_dg = $res_d_dg;} #round($res/$hp_dg);
else{$a_dg = $res_d_dg;}#round($res/$dmg_dg2);}
##############################