on $*:TEXT:/^[!](dm|duel) */Si:#:{
  if (!%duel.active) {
    if (!%duel.1) { 
      set %duel.1 $nick 
      msg $chan 4  $+ %duel.1  7has set up a Duel. Type 1!duel or !dm 7to challenge him. 
      set %duel.chan $chan  
      set -u10 %duel 1 
      timerDUEL 1 10 duel-check 
    }
    elseif ((%duel.1 != $null || $nick) && (%duel == 1)) { 
      if (%thechecker == 0) {
        set %duel.2 $nick 
        set %thechecker 1 
        msg $chan 2  $+  %duel.2  7has challenged 4 $+ %duel.1 
        msg $chan 2Commands are !whip !gaxe !defend !eat !tele !dds !barrage !2hd !gmaul !tb
      }
    }
    else {
      .notice $nick There is already an active Duel. Wait till this Duel has ended before starting another one.
    }
  } 
}

on *:TEXT:!endduel*:#:{
  if (%duel.active != $null) {
    if ($nick == %owner || %duel.1 || %duel.2) {
      .msg $chan 7Duel ended by 4 $+ $nick
      unset %duel*
      unset %damage
      set %thechecker 0
      set %teleblocked1 0
      set %teleblocked2 0
      set %gmaulspec1 0
      set %gmaulspec2 0
      set %ddsspec1 0
      set %ddsspec2 0
      .timers off
      halt
    }
    else {
      .notice $nick Only %owner or those taking part in the Duel are allowed to use this command
    }
  }
  else {
    .notice $nick There are no active Duels
  }
}

on *:TEXT:!whip*:#:{
  if (%duel.active == 1) {
    if ($nick == %duel.turn) {
      whip
    }
    elseif (($nick == %duel.1 || %duel.2) && ($nick != %duel.turn)) .notice $nick It is not your turn yet.
  }
  elseif (%duel.active == $null) .notice $nick This is a Duel only command. There are no active Duels right now. Type !duel to start a Duel.
}

on *:TEXT:!gmaul*:#: {
  if (%duel.active == 1) {
    if ($nick == %duel.turn) {
      gmaul
    }
  }
}

on *:TEXT:!dds*:#: {
  if (%duel.active == 1) {
    if ($nick == %duel.turn) {
      dds
    }
  }
}

on *:TEXT:!gaxe*:#: {
  if (%duel.active == 1) {
    if ($nick == %duel.turn) {
      gaxe
    }
  }
}

on *:TEXT:!tb*:#: {
  if (%duel.active == 1) {
    if ($nick == %duel.turn) {
      teleblock
    }
  }
}

on *:TEXT:!barrage*:#: {
  if (%duel.active == 1) {
    if ($nick == %duel.turn) {
      barrage
    }
  }
}

on *:TEXT:!2hd*:#: {
  if (%duel.active == 1) {
    if ($nick == %duel.turn) {
      2hand
    }
  }
}

on *:TEXT:!eat*:#:{
  if (%duel.active == 1) {
    if ($nick == %duel.turn) {
      eat
    }
  }
}

on *:TEXT:!tele*:#:{
  if (%duel.active == 1) {
    if ($nick == %duel.turn) {
      tele
    }
    elseif (($nick == %duel.1 || %duel.2) && ($nick != %duel.turn)) .notice $nick It is not your turn yet.
  }
}

on *:TEXT:!defend*:#:{
  if (%duel.active == 1) {
    if ($nick != %duel.turn) {
      defend
    }
  }
  elseif (%duel.active == $null) .notice $nick This is a Duel only command. There are no active Duels right now. Type !duel to start a Duel.
}

alias duel-check {
  if (%duel.1 && %duel.2 != $null) {
    .msg %duel.chan 7Setting up duel. Duel will startnow
    .timerSTART 1 1.5 startduel
  }
  elseif (%duel.2 == $null) { .msg %duel.chan 7No one has dared to take up 4 $+ %duel.1 $+ 's 7challenge. Duel cancelled. | unset %duel* }
}

alias hp-check {
  if (%duel.2.hp <= 0) {
    .msg %duel.chan 4 $+ %duel.1 7has defeated 2 $+ %duel.2 7in battle.
    unset %duel*
    unset %block*
    unset %damage
    set %thechecker 0
    set %teleblocked2 0
    set %teleblocked1 0
    set %gmaulspec1 0
    set %gmaulspec2 0
    set %ddsspec1 0
    set %ddsspec2 0
    halt
  }
  if (%duel.1.hp <= 0) {
    .msg %duel.chan 2 $+ %duel.2 7has defeated 4 $+ %duel.1 7in battle.
    unset %duel*
    unset %block*
    unset %damage
    set %thechecker 0
    set %teleblocked2 0
    set %teleblocked1 0
    set %gmaulspec2 0
    set %gmaulspec1 0
    set %ddsspec1 0
    set %ddsspec2 0
    halt
  }
}

alias startduel {
  set %duel.1.hp 99
  set %duel.2.hp 99
  set %duel.active 1
  .msg %duel.chan 7Duel start! 4 $+ %duel.1 7will face off with 2 $+ %duel.2 $+ .
  set %duel.turn %duel.1
  .msg %duel.chan 7OK 4 $+ %duel.1 7will start first against 2 $+ %duel.2 $+ .
}

alias hit {
  if (%duel.turn == %duel.1) {
    dec %duel.2.hp %damage
    .msg %duel.chan 4 $+ %duel.1 7hits 2 $+ %duel.2 7for %damage damage. 2 $+ %duel.2 7has %duel.2.hp hitpoints left.
    hp-check
    set %duel.turn %duel.2
    .msg %duel.chan 7It is now 2 $+ %duel.2 $+ 's 7turn.
  }
  elseif (%duel.turn == %duel.2) {
    dec %duel.1.hp %damage
    .msg %duel.chan 2 $+ %duel.2 7hits 4 $+ %duel.1 7for %damage damage. 4 $+ %duel.1 7has %duel.1.hp hitpoints left.
    hp-check
    set %duel.turn %duel.1
    .msg %duel.chan 7It is now 2 $+ %duel.1 $+ 's 7turn.
  }
  unset %damage
}

alias whip {
  if (%duel.turn == %duel.1) {
    msg %duel.chan 4 $+ %duel.1 7swings at 2 $+ %duel.2 7with his sxc whip...
    set %damage $rand(0,45)
    timerattack 1 2 hit
    if (%duel.2.hp <= 0) set %duel.2.hp 0
  }
  elseif (%duel.turn == %duel.2) {
    .msg %duel.chan 2 $+ %duel.2 7swings at 4 $+ %duel.1 7with his sxc whip...
    set %damage $rand(0,45)
    .timerattack 1 2 hit
    if (%duel.2.hp <= 0) set %duel.2.hp 0
  }
}

alias gmaul {
  if (%duel.turn == %duel.1) {
    if (%gmaulspec1 <= 1) {
      set %spec1 $rand(0,29)
      set %spec2 $rand(0,29)
      inc %gmaulspec1 1
      .msg %duel.chan 4 $+ %duel.1  7swings at 2 $+ %duel.2  7with his g-g-granite maul for a 4 $+ %spec1 %spec2  7spec!
      set %damage $calc(%spec1 + %spec2)
      .timerattack 1 2 hit
    }
    else {
      .msg %duel.chan 4 $+ %duel.1  7swings at 2 $+ %duel.2  7with his g-g-granite maul but has no specs! so its just a 4 %damage  7hit!
      set %damage $rand(0,25)
      .timerattack 1 2 hit
    }
  }
  elseif (%duel.turn == %duel.2) {
    if (%gmaulspec2 <= 1) {
      set %spec1 $rand(0,29)
      set %spec2 $rand(0,29)
      inc %gmaulspec2 1
      .msg %duel.chan 4 $+ %duel.2  7swings at 2 $+ %duel.1  7with his g-g-granite maul for a 4 $+ %spec1 %spec2  7spec!
      set %damage $calc(%spec1 + %spec2)
      .timerattack 1 2 hit
    }
    else {
      .msg %duel.chan 4 $+ %duel.2  7swings at 2 $+ %duel.1  7with his g-g-granite maul but has no specs! so its just a 4 %damage  7hit!
      set %damage $rand(0,25)
      .timerattack 1 2 hit
    }
  }
}

alias dds {
  if (%duel.turn == %duel.1) {
    if (%ddsspec1 <= 4) {
      set %spec1 $rand(0,32)
      set %spec2 $rand(0,32)
      inc %ddsspec1 1
      .msg %duel.chan 4 $+ %duel.1  7swipes at 2 $+ %duel.2  7with his BLOODY sharp dds for a 4 $+ %spec1 %spec2  7spec!
      set %damage $calc(%spec1 + %spec2)
      .timerattack 1 2 hit
    }
    else {
      .msg %duel.chan 4 $+ %duel.1  7can only poke at 2 $+ %duel.2  7with 0 spec for 4 %damage  7damage!
      set %damage $rand(0,25)
      .timerattack 1 2 hit
    }
  }
  elseif (%duel.turn == %duel.2) {
    if (%ddsspec2 <= 4) {
      set %spec1 $rand(0,32)
      set %spec2 $rand(0,32)
      .msg %duel.chan 4 $+ %duel.2  7swipes at 2 $+ %duel.1  7with his BLOODY sharp dds for a 4 $+ %spec1 %spec2  7spec!
      set %damage $calc(%spec1 + %spec2)
      .timerattack 1 2 hit
    }
    else {
      .msg %duel.chan 4 $+ %duel.2  7can only poke at 2 $+ %duel.1  7with 0 spec for 4 %damage  7damage!
      set %damage $rand(0,25)
      .timerattack 1 2 hit
    }
  }
}

alias gaxe {
  if (%duel.turn == %duel.1) {
    .msg %duel.chan 4 $+ %duel.1 7swipes at 2 $+ %duel.2 7with his massive axe...
    set %damage $rand(0,60)
    .timerattack 1 2 hit
  }
  elseif (%duel.turn == %duel.2) {
    .msg %duel.chan 2 $+ %duel.2 7swipes at 4 $+ %duel.1 7with his massive axe...
    set %damage $rand(0,60)
    .timerattack 1 2 hit
  }
}

alias 2hand {
  if (%duel.turn == %duel.1) {
    .msg %duel.chan 4 $+ %duel.1 7swipes at 2 $+ %duel.2 7with his massive 2hander!...
    set %damage $rand(10,37)
    .timerattack 1 2 hit
  }
  elseif (%duel.turn == %duel.2) {
    .msg %duel.chan 2 $+ %duel.2 7swipes at 4 $+ %duel.1 7with his massive 2hander!...
    set %damage $rand(10,37)
    .timerattack 1 2 hit
  }
}

alias barrage {
  if (%duel.turn == %duel.1) {
    .msg %duel.chan 4 $+ %duel.1 7Casts BARRAGE on 2 $+ %duel.2 7with his 1337 mage skillz...
    set %damage $rand(0,35)
    .timerattack 1 1 hit
  }
  elseif (%duel.turn == %duel.2) {
    .msg %duel.chan 2 $+ %duel.2 7Casts BARRAGE on 4 $+ %duel.1 7with his 1337 mage skillz...
    set %damage $rand(0,35)
    .timerattack 1 1 hit
  }
}

alias eat {
  if (%duel.turn == %duel.1) {
    msg %duel.chan 4 $+ %duel.1 7grabs out a shark and heals himself
    inc %duel.1.hp 20
    if (%duel.1.hp > 50) set %duel.1.hp 50
    set %duel.turn %duel.2
    msg %duel.chan 7It is now 2 $+ %duel.2 $+ 's 7turn.
  }
  elseif (%duel.turn == %duel.2) {
    msg %duel.chan 2 $+ %duel.2 7grabs out a shark and heals himself
    inc %duel.2.hp 20
    if (%duel.2.hp > 50) set %duel.2.hp 50
    set %duel.turn %duel.1
    msg %duel.chan 7It is now 2 $+ %duel.1 $+ 's 7turn.
  }
} 

alias tele {
  if (%duel.turn == %duel.1) {
    if (%teleblocked1 = 1) {
      msg $chan 7lol no noob ur tbed 
      set %duel.turn %duel.2 
      msg %duel.chan 7It is now 2 $+ %duel.2 $+ 's 7turn.  
    }
    else {
      msg %duel.chan 4 $+ %duel.1 7shits himself and teles the fuckouta there
      set %duel.turn %duel.2
      msg %duel.chan 4 $+ %duel.2 7has unofically defeated 2 $+ %duel.1 7in battle.
      unset %duel*
      unset %block*
      unset %damage
      set %thechecker 0
      halt
    }
  }
  elseif (%duel.turn == %duel.2) {
    if (%teleblocked2 = 1) {
      msg $chan 7lol no noob ur tbed
      set %duel.turn %duel.2   
      msg %duel.chan 7It is now 2 $+ %duel.2 $+ 's 7turn.
    }
    else {
      msg %duel.chan 4 $+ %duel.2 7shits himself and teles the fuckouta there
      set %duel.turn %duel.1
      msg %duel.chan 4 $+ %duel.1 7has unofically defeated 2 $+ %duel.2 7in battle.
      unset %duel*
      unset %block*
      unset %damage
      set %thechecker 0
      halt
    }
  } 
}

alias teleblock {
  if (%duel.turn == %duel.1) {
    if (%teleblocked2 = 1) {
      msg %duel.chan 4 $+ %duel.1 7erm dumars hes alredy tbed
      set %duel.turn %duel.2
      msg %duel.chan 7It is now 2 $+ %duel.2 $+ 's 7turn.
    }
    else {
      msg %duel.chan 4 $+ %duel.1 7whips out his spellbook and teleblocks the fuckin noob %duel.2 
      set %teleblocked2 1
      set %duel.turn %duel.2
      msg %duel.chan 7It is now 2 $+ %duel.2 $+ 's 7turn.
      halt
    }
  }
  elseif (%duel.turn == %duel.2) {
    if (%teleblocked1 = 1) {
      msg %duel.chan 4 $+ %duel.1 7erm dumars hes alredy tbed
      set %duel.turn %duel.1
      msg %duel.chan 7It is now 2 $+ %duel.1 $+ 's 7turn.
    }
    else {
      msg %duel.chan 4 $+ %duel.2 7whips out his spellbook and teleblocks the fuckin noob %duel.1
      set %teleblocked1 1
      set %duel.turn %duel.1
      msg %duel.chan 7It is now 2 $+ %duel.1 $+ 's 7turn.
      halt
    }
  } 
}

alias defend {
  timerattack off
  if (%duel.turn == %duel.1) {
    set %block $rand(1,10)
    if (%block <= 7) {
      .msg %duel.chan 2 $+ %duel.2 7successfully blocks 4 $+ %duel.1 $+ 's 7attack. 
      set %duel.turn %duel.2
      .msg %duel.chan 7It is now 2 $+ %duel.2 $+ 's 7turn.
    }
    elseif (%block > 7) {
      set %block.damage $floor($calc(%damage/2))
      dec %duel.2.hp %block.damage
      .msg %duel.chan 2 $+ %duel.2 7manages to block 4 $+ %duel.1 $+ 's 7attack. But the force of the blow does %block.damage damage to 2 $+ %duel.2 $+ . %duel.2 7has %duel.2.hp hitpoints left.
      hp-check
      set %duel.turn %duel.2
      .msg %duel.chan 7It is now 2 $+ %duel.2 $+ 's 7turn.
    }
    if (%duel.turn == %duel.2) {
      set %block $rand(1,10)
      if (%block <= 7) {
        .msg %duel.chan 4 $+ %duel.1 7successfully blocks 2 $+ %duel.2 $+ 's 7attack. 
        set %duel.turn %duel.1
        .msg %duel.chan 7It is now 4 $+ %duel.1 $+ 's 7turn.
      }
      elseif (%block > 7) {
        set %block.damage $floor($calc(%damage/2))
        dec %duel.1.hp %block.damage
        .msg %duel.chan 4 $+ %duel.1 7manages to block 2 $+ %duel.2 $+ 's 7attack. But the force of the blow does %block.damage damage to 4 $+ %duel.1 $+. %duel.1 7has %duel.1.hp hitpoints left.
        hp-check
        set %duel.turn %duel.1
        .msg %duel.chan 7It is now 4 $+ %duel.1 $+ 's 7turn.
      }
    }
  }
  unset %damage
  unset %block*
}