on $*:TEXT:/^[@.`!](tour((n)?(y|ament)?))/Si:#DM-tournaments, #DM, #DM-shop, #DM-bank: {
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if (%dmnick. [ $+ [ $nick ] ] == 1) {
    if (%dmid. [ $+ [ $nick ] ] == 1) { 
      if ($chan != #DM-tournaments) {
        notice $nick %c1 $+ You only can do this in $+ %c2 #DM-tournaments $+ %c1 .
        halt
      }
      if (%dm.tournament == on) { 
        notice $nick %c1 $+ There is already a $+ %c5 tournament $+ %c1 running, please wait.
        halt
      }
      if (!$2 || !$3) { 
        if (%dm.tournament == on) {
          halt
        }   
        notice $nick %c1 $+ Please type this: $+ %c3 !tournament <people to join> <stake>
        halt 
      }

      if ($2 != 4 && $2 != 8 && $2 != 16) { 
        notice $nick %c1 $+ Please choose $+ %c4 4 $+ %c1 $+ , $+ %c4 8 $+ %c1 or $+ %c4 16 $+ %c1 people to join!   
        HALT
      }
      set %dm.chan2 #DM-tournaments
      set %dm.tournament On
      set %dm.tournament.starter $nick     
      set %DM.tournament.player.1 %dm.tournament.starter      
      set %dm.tournamentppl 1
      set %dm.tournament.stake $3 
      set %dm.tournament.people $2
      msg $chan %c2 $+ $nick $+ %c1 started a tournament. Stake: %c3 %dm.tournament.stake $+ %c1 coins. Type $+ %c3 !join-tournament $+ %c1 to join it!    
    }
    else { 
      notice $nick %c1 $+ You need to register first. Type %c5 $+ `dm-register $+ %c1 first and follow the instructions. 
    } 
  }  
  else { 
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 !id(entify) yourpass $+ %c1 in my PM. 
  } 
}

on $*:TEXT:/^[!@`.](j(oin)?(-| )?tour(n|nam(ent)?|ny)?)/Si:#DM-tournaments, #DM, #DM-shop, #DM-bank: {
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if ($chan != #DM-tournaments) {
    notice $nick %c1 $+ You only can do this in $+ %c2 #DM-tournaments $+ %c1 .
    halt
  }


  if (%dmnick. [ $+ [ $nick ] ] == 1) {
    if (%dmid. [ $+ [ $nick ] ] == 1) { 
      if ($nick isin %dm.tournicks) {
        notice $nick %c1 $+ You're already in the tournament, please wait until it starts.
        halt
      }
      if ($calc(%dmmoney. [ $+ [ $nick ] ] - %dm.tournament.stake) < 0) {
        if (!%dmmoney. [ $+ [ $nick ] ]) .set %dmmoney. [ $+ [ $nick ] ] 0
        notice $nick %c1 $+ Insufficient money. You need $+ %c3 %dm.tournament.stake $+ %c1 coins, while you have only $+ %c3 %dmmoney. [ $+ [ $nick ] ] $+ %c1 coins.
        halt
      }
      if (%dm.tournamentwins. [ $+ [ $nick ] ] == $null) { .set %dm.tournamentwins. [ $+ [ $nick ] ] 0 }
      inc %dm.tournament.prize %dm.tournament.stake
      inc %dm.tournamentppl 1 
      set %dm.tournicks %dm.tournicks $nick
      if (%dm.tournamentppl == 2) {
        Set %dm.tournament.player.2 $nick
      }
      if (%dm.tournamentppl == 3) {
        Set %dm.tournament.player.3 $nick
      }
      if (%dm.tournamentppl == 4) {
        Set %dm.tournament.player.4 $nick
      }
      if (%dm.tournamentppl == 5) {
        Set %dm.tournament.player.5 $nick
      }
      if (%dm.tournamentppl == 6) {
        Set %dm.tournament.player.6 $nick
      }
      if (%dm.tournamentppl == 7) {
        Set %dm.tournament.player.7 $nick
      }
      if (%dm.tournamentppl == 8) {
        Set %dm.tournament.player.8 $nick
      }
      if (%dm.tournamentppl == 9) {
        Set %dm.tournament.player.9 $nick
      }
      if (%dm.tournamentppl == 10) {
        Set %dm.tournament.player.10 $nick
      }
      if (%dm.tournamentppl == 11) {
        Set %dm.tournament.player.11 $nick
      }
      if (%dm.tournamentppl == 12) {
        Set %dm.tournament.player.12 $nick
      }
      if (%dm.tournamentppl == 13) {
        Set %dm.tournament.player.13 $nick
      }
      if (%dm.tournamentppl == 14) {
        Set %dm.tournament.player.14 $nick
      }
      if (%dm.tournamentppl == 15) {
        Set %dm.tournament.player.15 $nick
      }
      if (%dm.tournamentppl == 16) {
        Set %dm.tournament.player.16 $nick
      }
      set %dm.tournament.needppl $calc(%dm.tournament.people - %dm.tournamentppl)
      Msg $chan %c2 $+ $nick $+ %c1 joined the tournament, we need $+ %c3 %dm.tournament.needppl $+ %c1 people more.
      if (%dm.tournament.needppl == 0) {
        msg $chan %c4 $+ The tournament is starting! $+ %c5 Have fun!
        fight1
        start.health      
      }
    } 
    else { 
      notice $nick %c1 $+ You need to register first. Type %c5 $+ `dm-register $+ %c1 first and follow the instructions. 
    } 
  }
  else { 
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 !id(entify) yourpass $+ %c1 in my PM. 
  } 
}

;######################## ATTACK - MELEE ################################
on $*:text:/^[?!@`.](at(t)?(ack)?|hit)/Si:#Dm-tournaments: {
  if (%dm.tournament == ON) {
    if ($nick == %dm.player1) {
      timerturnswitch off
      timerstopdm off
      if (%dmfreeze. [ $+ [ $nick ] ] >= 0 ) {
        msg %dm.chan %c1 $+ %dm.player1 $+ %c1 Tries to attack but he can't reach $+ %c2 %dm.player2 $+ %c1 $+ ; $+ %c2 %dm.player2 $+ %c1 gets the turn.
        notice $nick %c1 $+ Please wait $+ %c3 %dmfreeze. [ $+ [ $nick ] ] $+ %c1 more turns.
        set %dm.player1 %dm.player2
        set %dm.player2 $nick
        dec %dmfreeze. [ $+ [ $nick ] ]
        halt
      }
      if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ])  { 
        set %dm.hit $rand(0,5) 
        set %dmweapused his fist.
      }
      else { 
        var %dm.equipitem = $read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ $nick ] ],$chr(32),_) $+ *)
        if ($gettok(%dm.equipitem,3,64) != melee && Piece of air !isin %dmweapon. [ $+ [ $nick ] ]) {
          notice $nick %c1 $+ You can't use this command with a $+ %c4 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ . Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !cast $+ %c1 or %c3 $+ !use $+ %c1 instead.
          halt
        }
        set %dm.max $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),4,64)
        set %dm.hit $rand(0, %dm.max)
        set %dmweapused a $+ %c5 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ .
        if (home isin %dmweapon. [ $+ [ %dm.player1 ] ] && $r(1,5) == 2) {
          timer 1 1 notice $nick %c1 $+ You broke your $+ %c3 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ , meaning you lost it.
          unset %dmweapon. [ $+ [ %dm.player1 ] ]
        }
      } 
      health.check
      set %dm.player1 %dm.player2
      set %dm.player2 $nick
      timerturnswitch 1 120 turngone
    }
    elseif ($nick == %dm.player2) { 
      notice $nick %c1 $+ Its not your turn! 
    }
    else { 
      notice $nick %c1 $+ You are not fighting in this Tournament. 
    }
  }
  else {
    notice $nick %c1 $+ There is no tournament running! Type $+ %c6 !tournament $+ %c1 to start one.
  }
}
;######################## ATTACK - RANGE ################################
on $*:text:/^[@`.?!](s(h)?((o)?o)?t)/Si:#DM-tournaments: {
  if (%dm.tournament == ON) {
    if ($nick == %dm.player1) {
      timerturnswitch off
      timerstopdm off
      if (%dmfreeze. [ $+ [ $nick ] ] >= 0 ) {
        msg %dm.chan %c1 $+ %dm.player1 $+ %c1 Tries to attack but he can't reach $+ %c2 %dm.player2 $+ %c1 $+ ; $+ %c2 %dm.player2 $+ %c1 gets the turn.
        notice $nick %c1 $+ Please wait $+ %c3 %dmfreeze. [ $+ [ $nick ] ] $+ %c1 more turns.
        set %dm.player1 %dm.player2
        set %dm.player2 $nick
        dec %dmfreeze. [ $+ [ $nick ] ]
        halt
      }
      if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ] || !%dmarrow. [ $+ [ $nick ] ])  { 
        set %dm.hit $rand(0,5) 
        if (!%dmarrow. [ $+ [ $nick ] ] && %dmweapon. [ $+ [ $nick ] ]) { set %dmweapused a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 with the $+ %c5 basic arrows $+ %c1 $+ . }
        else { set %dmweapused his fist. } 
      }
      else { 
        var %dm.equipitem = $read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ $nick ] ],$chr(32),_) $+ *)
        if ($gettok(%dm.equipitem,3,64) != range && Piece of air !isin %dmweapon. [ $+ [ $nick ] ]) {
          notice $nick %c1 $+ You can't use this command with a $+ %c4 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ . Use %c3 $+ !attack $+ %c1 $+ , $+ %c3 !cast $+ %c1 or %c3 $+ !use $+ %c1 instead.
          halt
        }
        set %dm.max $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmarrow. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),5,64)
        set %dm.hit $rand(0, %dm.max)
        set %dm.poison $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmarrow. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),6,64)
        if (%dm.poison == P) .set %dm.poisondmg 10
        if (%dm.poison == P+) .set %dm.poisondmg 20
        if (%dm.poison == P++) .set %dm.poisondmg 40
        if (!%dmpoisoned. [ $+ [ %dm.player2 ] ] && %dm.poisondmg && $r(1,5) == 2) {
          set %addpoison 1
        }
        dec %dmarrow.amount. [ $+ [ $nick ] ] %arrows.shot
        set %dmweapused a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 with $+ %c5 $gettok(%dmarrow. [ $+ [ $nick ] ],1,64) $+ s $+ %c1 $+ .
        if (%dmarrow.amount. [ $+ [ $nick ] ] <= 0) {
          unset %dmarrow. [ $+ [ $nick ] ]
        }
        else {
          set %dmweapused %dmweapused $chr(32) | timer 1 1 notice %dm.player1 %c1 $+ You now have $+ %c3 %dmarrow.amount. [ $+ [ %dm.player1 ] ] $+ %c5 $gettok(%dmarrow. [ $+ [ %dm.player1 ] ],1,64) $+ s $+ %c1 left.
        }
        set %arrows.shot $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),4,64)
        if (%arrows.shot == 3) {
          set %dm.hit2 $rand(0, %dm.max)
          set %dm.hit3 $rand(0, %dm.max)
        }
      } 
      health.check
      set %dm.player1 %dm.player2
      set %dm.player2 $nick
      timerturnswitch 1 120 turngone
    }
    elseif ($nick == %dm.player2) { 
      notice $nick %c1 $+ Its not your turn! 
    }
    else { 
      notice $nick %c1 $+ You are not fighting in this tournament. 
    }
  }
  else {
    notice $nick %c1 $+ There is no tournament running! Type $+ %c6 !DM $+ %c1 to start one.
  }
}


;######################## ATTACK - MAGE #################################
on $*:text:/^[?!@`.](cast|spell)/Si:#DM-tournaments: {
  if (%dm.tournament == ON) {
    if ($nick == %dm.player1) {
      timerturnswitch off
      timerstopdm off
      if (%dmfreeze. [ $+ [ $nick ] ] >= 0 ) {
        msg %dm.chan %c1 $+ %dm.player1 $+ %c1 Tries to attack but he can't reach $+ %c2 %dm.player2 $+ %c1 $+ ; $+ %c2 %dm.player2 $+ %c1 gets the turn.
        notice $nick %c1 $+ Please wait $+ %c3 %dmfreeze. [ $+ [ $nick ] ] $+ %c1 more turns.
        set %dm.player1 %dm.player2
        set %dm.player2 $nick
        dec %dmfreeze. [ $+ [ $nick ] ]
        halt
      }
      set %dmspellname $read(dmshopitems.txt, w, $replace($2-,$chr(32),_) $+ *)
      set %dmspell2 $gettok(%dmspellname,1,64)
      set %dmspell $replace(%dmspell2,_,$chr(32))
      if (!%dmspell) {
        notice $nick %c1 $+ There's no such spell as %c4 $+ " $+ $2- $+ " $+ %c1 $+ .
        halt
      }
      if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ] || !$2)  { 
        set %dm.hit $calc($rand(0,10) + $rand(
        set %dmweapused the basic spell.
      }
      else { 
        set %dm.weaponuse $read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ $nick ] ],$chr(32),_) $+ *)
        if ($gettok(%dm.weaponuse,3,64) != mage && Piece of air !isin %dmweapon. [ $+ [ $nick ] ]) {
          notice $nick %c1 $+ You can't use this command with a $+ %c4 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ . Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !attack $+ %c1 or %c3 $+ !use $+ %c1 instead.
          halt
        }
        set %reqstaff $gettok(%dmspellname,4,64)
        set %reqstaff $replace(%reqstaff,_,$chr(32))
        if (%reqstaff == Newbie magic staff && %dmweapon. [ $+ [ $nick ] ] != Newbie magic staff && %dmweapon. [ $+ [ $nick ] ] != Beginner magic staff && %dmweapon. [ $+ [ $nick ] ] != Magic staff && %dmweapon. [ $+ [ $nick ] ] != Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Ultimate magic staff && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) {
          notice $nick %c1 $+ You need a $+ %c5 Newbie magic staff $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ .
          halt
        }
        elseif (%reqstaff == Beginner magic staff && %dmweapon. [ $+ [ $nick ] ] != Beginner magic staff && %dmweapon. [ $+ [ $nick ] ] != Magic staff && %dmweapon. [ $+ [ $nick ] ] != Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Ultimate magic staff && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) {
          notice $nick %c1 $+ You need a $+ %c5 Beginner magic staff $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ .
          halt
        }
        elseif (%reqstaff == Magic staff && %dmweapon. [ $+ [ $nick ] ] != Magic staff && %dmweapon. [ $+ [ $nick ] ] != Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Ultimate magic staff && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) {
          notice $nick %c1 $+ You need a $+ %c5 Magic staff $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ .
          halt
        }
        elseif (%reqstaff == Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Ultimate magic staff && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) {
          notice $nick %c1 $+ You need an $+ %c5 Advanced magic staff $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ .
          halt
        }
        if ($gettok(%dmspellname,3,64) == aspell) {
          set %dm.max $gettok(%dmspellname,5,64)
          if (%dmweapon. [ $+ [ $nick ] ] == Newbie magic staff) .set %dm.max $calc(%dm.max * 0.8)
          if (%dmweapon. [ $+ [ $nick ] ] == Beginner magic staff) .set %dm.max $calc(%dm.max * 0.9)
          if (%dmweapon. [ $+ [ $nick ] ] == Advanced magic staff) .set %dm.max $calc(%dm.max * 1.1)
          if (%dmweapon. [ $+ [ $nick ] ] == Ultimate magic staff) .set %dm.max $calc(%dm.max * 1.2)
          if (%dmweapon. [ $+ [ $nick ] ] == Two duel handed magic wands) .set %dm.max $calc(%dm.max * 1.5)
          set %dm.hit $rand(5, %dm.max) 
          set %dmweapused %c3 $+ %dmspell $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ .
          if ($gettok(%dmspellname,6,64) == freeze) {
            set %dmfreeze. [ $+ [ %dm.player2 ] ] 2
            if (%dmclass. [ $+ [ %dm.player2 ] ] != melee) .set %dmfreeze. [ $+ [ %dm.player2 ] ] 0
            set %dmweapused %dmweapused  | msg %dm.chan %c2 $+ %dm.player2 $+ %c1 has been frozen, meaning he can't use $+ %c3 melee attacks $+ %c1 for $+ %c5 2 $+ %c1 turns.
          }
          health.check
        }
        elseif ($gettok(%dmspellname,3,64) == hspell) {
          set %dm.heal $calc(%dm.starthealth. [ $+ [ %dm.player1 ] ] / 100 * $gettok(%dmspellname,5,64))
          inc %dmhealth. [ $+ [ %dm.player1 ] ] %dm.heal
          if (%dmhealth. [ $+ [ %dm.player1 ] ] > %dm.starthealth. [ $+ [ %dm.player1 ] ]) {
            set %dm.heal $calc(%dm.starthealth. [ $+ [ %dm.player1 ] ] - %dmhealth. [ $+ [ %dm.player1 ] ])
            set %dmhealth. [ $+ [ %dm.player1 ] ] %dm.starthealth. [ $+ [ %dm.player1 ] ]
          }
          msg %dm.chan2 %c2 $+ %dm.player1 $+ %c1 casts $+ %c5 %dmspell $+ %c1 healing him with $+ %c4 %dm.heal $+ %c1 hitpoints. He now has $+ %c4 %dmhealth. [ $+ [ %dm.player1 ] ] $+ %c1 hitpoints.  
        }
        elseif ($gettok(%dmspellname,3,64) == tspell) {
          set %dmfreeze. [ $+ [ %dm.player2 ] ] 4
          if (%dmclass. [ $+ [ %dm.player2 ] ] != melee) .set %dmfreeze. [ $+ [ %dm.player2 ] ] 2
          msg %dm.chan2 %c2 $+ %dm.player1 $+ %c5 teleports away $+ %c1 $+ , meaning $+ %c2 %dm.player2 $+ %c1 can't use $+ %c3 melee attacks $+ %c1 for $+ %c5 4 $+ %c1 $+ , and $+ %c3 ranged/magic attacks $+ %c1 for $+ %c5 2 $+ %c1 turns. 
        }

        writeini dminv.ini $nick %dmspell2 $calc($readini(dminv.ini,$nick,%dmspell2) - 1)
        set %dmweapused %dmweapused  | timer 1 1 notice %dm.player1 %c1 $+ You have $+ %c3 $readini(dminv.ini,$nick,%dmspell2) $+ %c4 %dmspell $+ s $+ %c1 left. 
        if ($readini(dminv.ini,$nick,%dmspell2) <= 0) .remini dminv.ini $nick %dmspell2 
      } 
      set %dm.player1 %dm.player2
      set %dm.player2 $nick
      timerturnswitch 1 120 turngone
    }
    elseif ($nick == %dm.player2) { 
      notice $nick %c1 $+ Its not your turn! 
    }
    else { 
      notice $nick %c1 $+ You are not fighting in this tournament. 
    }
  }
  else {
    notice $nick %c1 $+ There is no tournament running! Type $+ %c6 !DM $+ %c1 to start one.
  }
}


;#################################################################################
;############################ ALIASES OF TOURNY's#################################
;#################################################################################

alias -l turngone {
  if (%dm.tournament == ON) {  
    msg %dm.chan2 %c2 $+ %dm.player1 $+ %c1 hasn't attacked or used a potion/spell within $+ %c3 1 minute $+ %c1 $+ ; $+ %c2 %dm.player2 $+ 's $+ %c1 turn.
    timerstopdm 1 60 turngone 
    var %dm.player3 = %dm.player1
    set %dm.player1 %dm.player2
    set %dm.player2 %dm.player3
  }
}

alias -l health.check {
  if (%DM.tournament == ON) {
    if (%dmpoisoned. [ $+ [ %dm.player1 ] ]) {
      if (%dmpoisoned. [ $+ [ %dm.player1 ] ] > %dmhealth. [ $+ [ %dm.player1 ] ]) { 
        set %dmpoisoned. [ $+ [ %dm.player1 ] ] %dmhealth. [ $+ [ %dm.player1 ] ]
        var %dm.player3 = %dm.player1
        set %dm.player1 %dm.player2
        set %dm.player2 %dm.player3 
        msg %dm.chan2 %c2 $+ %dm.player2 $+ %c1 gets $+ %c6 %dmpoisoned. [ $+ [ %dm.player1 ] ] $+ %c1 damage from poison. He now has $+ %c4 %dmhealth. [ $+ [ %dm.player2 ] ] $+ %c1 hitpoints left.
        msg %dm.chan2 %c2 $+ %dm.player2 $+ %c1 has died because of poison! $+ %c2 %dm.player1 $+ %c1 gets $+ %c3 $calc(%dmlvl. [ $+ [ %dm.player1 ] ] * 15) $+ %c1 bonus expoints for this fight! 
        :playerdied
      }
      else {
        dec %dmhealth. [ $+ [ %dm.player1 ] ] %dmpoisoned. [ $+ [ %dm.player1 ] ]
        msg %dm.chan2 %c2 $+ %dm.player1 $+ %c1 gets $+ %c6 %dmpoisoned. [ $+ [ %dm.player1 ] ] $+ %c1 damage from poison. He now has $+ %c4 %dmhealth. [ $+ [ %dm.player1 ] ] $+ %c1 hitpoints left.
      }
    }
    if (%dm.hit > %dmhealth. [ $+ [ %dm.player2 ] ]) { 
      set %dm.hit %dmhealth. [ $+ [ %dm.player2 ] ] 
    }
    msg %dm.chan2 %c2 $+ %dm.player1 $+ %c1 has hit $+ %c3 %dm.hit $+ %c1 on $+ %c2 %dm.player2 $+ %c1 using %dmweapused
    if (%addpoison) {
      msg %dm.chan2 %c2 $+ %dm.player2 $+ %c1 is poisoned with $+ %c6 %dm.poisondmg $+ %c1 poison damage each turn!
      set %dmpoisoned. [ $+ [ %dm.player2 ] ] %dm.poisondmg
      unset %addpoison
    }
    dec %dmhealth. [ $+ [ %dm.player2 ] ] %dm.hit
    if  (%dmhealth. [ $+ [ %dm.player2 ] ] <= 0) { 
      msg %dm.chan2 %c2 $+ %dm.player2 $+ %c1 has been defeated! $+ %c2 %dm.player1 $+ %c1 gets $+ %c3 $calc(%dmlvl. [ $+ [ %dm.player1 ] ] * 15) $+ %c1 bonus expoints for this fight! 
      :playerdied
      set %dm.tournament.winner. [ $+ [ %fight ] ] %dm.player1 
      inc %dmloses. [ $+ [ %dm.player2 ] ] 
    }
  }
  inc %fight
  msg %dm.chan2 %c2 $+ %dm.player2 $+ %c1 has $+ %c4 %dmhealth. [ $+ [ %dm.player2 ] ] $+ %c1 hitpoints left! 
  notice %dm.player1 %c1 $+ You gained $+ %c6 %dm.hit $+ %c1 XP.
  inc %dm.xp. [ $+ [ %dm.player1 ] ] %dm.hit
  xp.check 
  if %dmhealth. [ $+ [ %dm.player2 ] ] <= 0) {  
    if (%dm.tournament.people == 8 && %fight == 2) {
      fight2
    }
    if (%dm.tournament.people == 8 && %fight == 3) {
      fight3
    }
    if (%dm.tournament.people == 8 && %fight == 4) {
      fight4
    }
    if (%dm.tournament.people == 8 && %fight == 5) {
      fight5.semi
    }
    if (%dm.tournament.people == 8 && %fight == 6) {
      fight6.semi
    }
    if (%dm.tournament.people == 8 && %fight == 7) {
      fight7.final
    }
    if (%dm.tournament.people == 8 && %fight == 8) {
      msg $chan %c2 $+ %dm.tournament.winner.7 $+ %c1 has won the $+ %c5 Tournament $+ %c1 $+ ! Therefor he gets %dm.tournament.prize !
      inc %dm.tournament.wins. [ $+ [ %dm.tournament.winner.7 ] ]
      inc %dm.money. [ $+ [ %dm.tournament.winner.7 ] ] %dm.tournament.prize
      msg $chan %dm.tournament.winner.7 now has %dm.money. [ $+ [ %dm.tournament.winner.7 ] ] coins!
    }

    if (%dm.tournament.people == 4 && %fight == 2) {
      fight2
    }
    if (%dm.tournament.people == 4 && %fight == 3) {
      fight3.final
    }
    if (%dm.tournament.people == 4 && %fight == 4) {                                                             
      msg $chan %c2 $+ %dm.tournament.winner.3 $+ %c1 has won the $+ %c5 Tournament $+ %c1 $+ ! Therefor he gets %dm.tournament.prize !
      inc %dm.tournament.wins. [ $+ [ %dm.tournament.winner.3 ] ]
      inc %dm.money. [ $+ [ %dm.tournament.winner.3 ] ] %dm.tournament.prize
      msg $chan %dm.tournament.winner.3 now has %dm.money. [ $+ [ %dm.tournament.winner.3 ] ] coins!
    }
    if (%dm.tournament.people == 16 && %fight == 2) {
      fight2
    }
    if (%dm.tournament.people == 16 && %fight == 3) {
      fight3
    }
    if (%dm.tournament.people == 16 && %fight == 4) {
      fight4

    }
    if (%dm.tournament.people == 16 && %fight == 5) {
      fight5
    }
    if (%dm.tournament.people == 16 && %fight == 6) {
      fight6
    }
    if (%dm.tournament.people == 16 && %fight == 7) {
      fight7
    }
    if (%dm.tournament.people == 16 && %fight == 8) {
      fight8
    }
    if (%dm.tournament.people == 16 && %fight == 9) {
      fight9.kwart
    }
    if (%dm.tournament.people == 16 && %fight == 10) {
      fight10.kwart
    }
    if (%dm.tournament.people == 16 && %fight == 11) {
      fight11.kwart
    }
    if (%dm.tournament.people == 16 && %fight == 12) {
      fight12.kwart
    }
    if (%dm.tournament.people == 16 && %fight == 13) {
      fight13.kwart
    }
    if (%dm.tournament.people == 16 && %fight == 14) {
      fight14.kwart
    }
    if (%dm.tournament.people == 16 && %fight == 15) {
      fight15.final
    }
    if (%dm.tournament.people == 16 && %fight == 16) {
      msg $chan %c2 $+ %dm.tournament.winner.15 $+ %c1 has won the $+ %c5 Tournament $+ %c1 $+ ! Therefor he gets %dm.tournament.prize !
      inc %dm.tournament.wins. [ $+ [ %dm.tournament.winner.15 ] ]
      inc %dm.money. [ $+ [ %dm.tournament.winner.15 ] ] %dm.tournament.prize
      msg $chan %dm.tournament.winner.15 now has %dm.money. [ $+ [ %dm.tournament.winner.15 ] ] coins!
    }
  }
}
;################## fight aliases!! ############################;




alias -l fight1 {
  set %Dm.player1 %dm.tournament.player.1
  set %dm.player2 %dm.tournament.player.2
  msg $chan %c1 $+ Now fighting in the first battle of this tournament: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !   
  set %fight 1

}
alias -l fight2 {
  set %Dm.player1 %dm.tournament.player.3
  set %dm.player2 %dm.tournament.player.4
  msg $chan %c1 $+ The 2 people that will now compeet are $+ %c2 %dm.player1 $+ %c4 and $+ %c2 %dm.player2 $+ %c4 $+ !

}
alias -l fight3 {
  set %Dm.player1 %dm.tournament.player.5
  set %dm.player2 %dm.tournament.player.6
  msg $chan %c1 $+ This is already the $+ %c5 third fight $+ %c1 of this tournament, $+ %c2 %dm.player1 $+ %c4 and $+ %c2 %dm.player2 $+ %c1 will compeet.

}
alias -l fight4 {
  set %Dm.player1 %dm.tournament.player.7
  set %dm.player2 %dm.tournament.player.8
  msg $chan %c1 $+ Now compeeting are $+ %c2 %dm.player1 $+ %c4 and $+ %c2 %dm.player2 $+ %c4 $+ !   

}
alias -l fight5 {
  set %Dm.player1 %dm.tournament.player.9
  set %dm.player2 %dm.tournament.player.10
  msg $chan %c1 $+ The fight we're gonna see now is: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c1 %dm.player2 $+ %c4 $+ !   

}
alias -l fight6 {
  set %Dm.player1 %dm.tournament.player.11
  set %dm.player2 %dm.tournament.player.12
  msg $chan %c1 $+ Next fight is between: $+ %c2 %dm.player1 $+ %c4 and $+ %c2 %dm.player2 $+ %c4 $+ !   

}
alias -l fight7 {
  set %Dm.player1 %dm.tournament.player.13
  set %dm.player2 %dm.tournament.player.14
  msg $chan %c1 $+ What a fantastic fight this is gonna be! $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !   

}
alias -l fight8 {
  set %Dm.player1 %dm.tournament.player.15
  set %dm.player2 %dm.tournament.player.16
  msg $chan %c1 $+ This is the last fight until the next rounds! $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !   

}
alias fight5.semi {
  set %dm.player1 %dm.tournament.winner.1
  set %DM.player2 %dm.tournament.winner.2
  msg $chan %c1 $+ It's now the semi finals! $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 dm.player2 $+ %c4 $+ !    

}
alias fight6.semi {
  set %dm.player1 %dm.tournament.winner.3
  set %DM.player2 %dm.tournament.winner.4
  msg $chan %c1 $+ They have come so far, but now one of them will have to die! %c2 $+ %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !   

}
alias fight7.final {
  set %dm.player1 %dm.tournament.winner.5
  set %DM.player2 %dm.tournament.winner.6
  msg $chan %c1 $+ This is the one and only final! $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !   

}
alias fight3.final {
  set %dm.player1 %dm.tournament.winner.1
  set %DM.player2 %dm.tournament.winner.2
  msg $chan %c1 $+ This is the one and only final! $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !   

}
alias -l fight9.kwart {
  set %DM.player1 %dm.tournament.winner.1
  set %DM.player2 %dm.tournament.winner.2
  msg $chan %c1 $+ Now fighting: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !

}
alias -l fight10.kwart {
  set %DM.player1 %dm.tournament.winner.3
  set %DM.player2 %dm.tournament.winner.4
  msg $chan %c1 $+ Now fighting: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !

}
alias -l fight11.kwart {
  set %DM.player1 %dm.tournament.winner.5
  set %DM.player2 %dm.tournament.winner.6
  msg $chan %c1 $+ Now fighting: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !

}
alias -l fight12.kwart {
  set %DM.player1 %dm.tournament.winner.7
  set %DM.player2 %dm.tournament.winner.8
  msg $chan %c1 $+ Now fighting: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !

}
alias -l fight13.semi {
  set %DM.player1 %dm.tournament.winner.9
  set %DM.player2 %dm.tournament.winner.10
  msg $chan %c1 $+ Now fighting: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !

}
alias -l fight14.semi {
  set %DM.player1 %dm.tournament.winner.11
  set %DM.player2 %dm.tournament.winner.12
  msg $chan %c1 $+ And last but not least: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !

}
alias -l fight15.final {
  set %DM.player1 %dm.tournament.winner.13
  set %DM.player2 %dm.tournament.winner.14
  msg $chan %c1 $+ This is the one and only final! $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !

}

alias -l start.health {
  set %dmhealth. [ $+ [ %DM.tournament.player.1 ] ] $calc(%dmlvl. [ $+ [ %dm.player1 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.2 ] ] $calc(%dmlvl. [ $+ [ %dm.player2 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.3 ] ] $calc(%dmlvl. [ $+ [ %dm.player3 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.4 ] ] $calc(%dmlvl. [ $+ [ %dm.player4 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.5 ] ] $calc(%dmlvl. [ $+ [ %dm.player5 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.6 ] ] $calc(%dmlvl. [ $+ [ %dm.player6 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.7 ] ] $calc(%dmlvl. [ $+ [ %dm.player7 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.8 ] ] $calc(%dmlvl. [ $+ [ %dm.player8 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.9 ] ] $calc(%dmlvl. [ $+ [ %dm.player9 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.10 ] ] $calc(%dmlvl. [ $+ [ %dm.player10 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.11 ] ] $calc(%dmlvl. [ $+ [ %dm.player11 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.12 ] ] $calc(%dmlvl. [ $+ [ %dm.player12 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.13 ] ] $calc(%dmlvl. [ $+ [ %dm.player13 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.14 ] ] $calc(%dmlvl. [ $+ [ %dm.player14 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.15 ] ] $calc(%dmlvl. [ $+ [ %dm.player15 ] ] ^1.2 * 30 + 80)
  set %dmhealth. [ $+ [ %DM.tournament.player.16 ] ] $calc(%dmlvl. [ $+ [ %dm.player16 ] ] ^1.2 * 30 + 80)
}