All pastes #826889 Raw Edit

Stuff

public text v1 · immutable
#826889 ·published 2007-12-21 14:20 UTC
rendered paste body
on *:TEXT:!Tournament*:DM: {
if (%Dm.tournament == on) { 
notice $nick there is already a tournaments running please w8!
}
if ($2- == $null) { 
Notice $nick Please type this: !tournament "people to join" "stake" 
}
Set %dm.tournament On
Set %tournament.starter $nick
if ($2 != 4 || $2 != 8) { 
notice Nick please use 4 or 8 people to join!   
HALT
 }
  if (%dmid. [ $+ [ $nick ] ] == 1) { 
      if (%dmnick. [ $+ [ $nick ] ] == 1) {
Msg $chan %dm.tournament.starter started a tournament, Type !join-tournament to join it!
  Set %dm.tournament. [ $+ [ %dm.tournament.starter ] ] 0
set %DM.tournament.stake $3 
set %dm.tournament.people $2
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:!join-tournament*:#: {

If (%DM.tournamentwins. [ $+ [ $nick ] ] == $null) { .set %dm.tournamentwins. [ $+ [ $nick ] ] 0 }
if (%dmid. [ $+ [ $nick ] ] == 1) { 
      if (%dmnick. [ $+ [ $nick ] ] == 1) {
inc %DM.tournament.price %dm.tournament.stake
Inc %dm.tournament. [ $+ [ %tournament.starter ] ] 1 
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 1) {
Set %dm.tournament.player.1 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 2) {
Set %dm.tournament.player.2 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 3) {
Set %dm.tournament.player.3 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 4) {
Set %dm.tournament.player.4 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 5) {
Set %dm.tournament.player.5 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 6) {
Set %dm.tournament.player.6 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 7) {
Set %dm.tournament.player.7 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 8) {
Set %dm.tournament.player.8 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 9) {
Set %dm.tournament.player.9 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 10) {
Set %dm.tournament.player.10 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 11) {
Set %dm.tournament.player.11 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 12) {
Set %dm.tournament.player.12 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 13) {
Set %dm.tournament.player.13 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 14) {
Set %dm.tournament.player.14 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 15) {
Set %dm.tournament.player.15 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == 16) {
Set %dm.tournament.player.16 $nick
}
if (%dm.tournament. [ $+ [ %tournament.starter ] ] == %dm.tournament.people) {

fight1
}
} 
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.chan %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.chan %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.
  }
}
 
 



alias -l turngone {
if (%dm.tournament == ON) {  
msg %dm.chan %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 turngone2 
  var %dm.player3 = %dm.player1
  set %dm.player1 %dm.player2
  set %dm.player2 %dm.player3
}
}
alias -l turngone2 {
if (%DM.tournament == ON) { 
 msg %dm.chan %c2 $+ %dm.player1 $+ %c1 nor $+ %c2 %dm.player2 $+ %c1 has attacked or used a potion/spell within $+ %c3 2 minutes $+ %c1 $+ ; deathmatch halted.
  enddm
}
}
 
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.chan %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.chan %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.chan %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.chan %c2 $+ %dm.player1 $+ %c1 has hit $+ %c3 %dm.hit $+ %c1 on $+ %c2 %dm.player2 $+ %c1 using %dmweapused
  if (%addpoison) {
    msg %dm.chan %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.chan %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 ] ] 
nextround
  }
  msg %dm.chan %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 
}
}
 

alias -l nextround {
if (%dm.tournament.people == 8 && %fight == 1) {
fight2
}
if (%dm.tournament.people == 8 && %fight == 2) {
fight3
}
if (%dm.tournament.people == 8 && %fight == 3) {
fight4
}
if (%dm.tournament.people == 8 && %fight == 4) {
fight5.semi
}
if (%dm.tournament.people == 8 && %fight == 5) {
fight6.semi
}
if (%dm.tournament.people == 8 && %fight == 6) {
fight7.final
}
if (%dm.tournament.people == 8 && %fight == 7) {
msg $chan %dm.tournament.winner.7 has won the Tournament! therefor he gets %dm.tournament.price!
inc %dm.tournament.wins. [ $+ [ %dm.tournament.winner.7 ] ]
inc %dM.money. [ $+ [ %dm.tournament.winner.7 ] ]
}
if (%dm.tournament.people == 4 && %fight == 1) {
fight2
}
if (%dm.tournament.people == 4 && %fight == 2) {
fight3.final
}
if (%dm.tournament.people == 4 && %fight == 3) {
msg $chan %dm.tournament.winner.3 has won the Tournament! therefor he gets %dm.tournament.price!
inc %dm.tournament.wins. [ $+ [ %dm.tournament.winner.3 ] ]
inc %dM.money. [ $+ [ %dm.tournament.winner.3 ] ]
}
if (%dm.tournament.people == 16 && %fight == 1) {
fight2
}
if (%dm.tournament.people == 16 && %fight == 2) {
fight3
}
if (%dm.tournament.people == 16 && %fight == 3) {
fight4
}
if (%dm.tournament.people == 16 && %fight == 4) {
fight5
}
if (%dm.tournament.people == 16 && %fight == 5) {
fight6
}
if (%dm.tournament.people == 16 && %fight == 6) {
fight7
}
if (%dm.tournament.people == 16 && %fight == 7) {
fight8
}
if (%dm.tournament.people == 16 && %fight == 8) {
fight9.kwart
}
if (%dm.tournament.people == 16 && %fight == 9) {
fight10.kwart
}
if (%dm.tournament.people == 16 && %fight == 10) {
fight11.kwart
}
if (%dm.tournament.people == 16 && %fight == 11) {
fight12.kwart
}
if (%dm.tournament.people == 16 && %fight == 12) {
fight13.kwart
}
if (%dm.tournament.people == 16 && %fight == 13) {
fight14.kwart
}
if (%dm.tournament.people == 16 && %fight == 14) {
fight15.final
}
if (%dm.tournament.people == 16 && %fight == 15) {
msg $chan %dm.tournament.winner.3 has won the Tournament! therefor he gets %dm.tournament.price!
inc %dm.tournament.wins. [ $+ [ %dm.tournament.winner.15 ] ]
inc %dM.money. [ $+ [ %dm.tournament.winner.15 ] ]
}






alias -l fight1 {
set %Dm.player1 %dm.tournament.player1
set %dm.player2 %dm.tournament.player2
set %fight 1

}
alias -l fight2 {
set %Dm.player1 %dm.tournament.player3
set %dm.player2 %dm.tournament.player4
set %fight 2
}
alias -l fight3 {
set %Dm.player1 %dm.tournament.player5
set %dm.player2 %dm.tournament.player6
set %fight 3
}
alias -l fight4 {
set %Dm.player1 %dm.tournament.player7
set %dm.player2 %dm.tournament.player8
set %fight 4
}
alias -l fight5 {
set %Dm.player1 %dm.tournament.player7
set %dm.player2 %dm.tournament.player8
set %fight 5
}
alias -l fight6 {
set %Dm.player1 %dm.tournament.player7
set %dm.player2 %dm.tournament.player8
set %fight 6
}
alias -l fight7 {
set %Dm.player1 %dm.tournament.player7
set %dm.player2 %dm.tournament.player8
set %fight 7
}
alias -l fight8 {
set %Dm.player1 %dm.tournament.player7
set %dm.player2 %dm.tournament.player8
set %fight 8
}
alias fight5.semi {
set %dm.player1 %dm.tournament.winner.1
set %DM.player2 %dm.tournament.winner.2
set %fight 5 
}
alias fight6.semi {
set %dm.player1 %dm.tournament.winner.3
set %DM.player2 %dm.tournament.winner.4
set %fight 6 
}
alias fight7.final {
set %dm.player1 %dm.tournament.winner.5
set %DM.player2 %dm.tournament.winner.6
set %fight 7 
}
alias fight3.final {
set %dm.player1 %dm.tournament.winner.1
set %DM.player2 %dm.tournament.winner.2
set %fight 3
}
alias -l fight9.kwart {
set %DM.player1 %dm.tournament.winner.1
set %DM.player2 %dm.tournament.winner.2
}
alias -l fight10.kwart {
set %DM.player1 %dm.tournament.winner.3
set %DM.player2 %dm.tournament.winner.4
}
alias -l fight11.kwart {
set %DM.player1 %dm.tournament.winner.5
set %DM.player2 %dm.tournament.winner.6
}
alias -l fight12.kwart {
set %DM.player1 %dm.tournament.winner.7
set %DM.player2 %dm.tournament.winner.8
}
alias -l fight13.semi {
set %DM.player1 %dm.tournament.winner.9
set %DM.player2 %dm.tournament.winner.10
}
alias -l fight14.semi {
set %DM.player1 %dm.tournament.winner.11
set %DM.player2 %dm.tournament.winner.12
}
alias -l fight15.final {
set %DM.player1 %dm.tournament.winner.13
set %DM.player2 %dm.tournament.winner.14
}