on $*:text:!commands:*:{ 
  msg $nick .::. Attacks .::. 
  msg $nick !whip 
  msg $nick !dds 
  msg $nick !dh 
  msg $nick !eat 
  msg $nick !msb
  msg $nick !anchor
  msg $nick !guthan
  msg $nick !cbow
  msg $nick !dbow
  msg $nick !godsword
  msg $nick .::. Others .::.
  msg $nick !tele
  msg $nick !dm 
  msg $nick !stopdm
}

on *:text:!dm*:#: { 
  if (%duel2 == active) { 
    msg $chan a DM is already active please wait for it to end. 
  } 
  if (%duel == active) { 
    set %player2 $nick
    msg $chan the match is set! %player1 vs %player2 
    notice %player1 Type "!commands" for the commands list.
    notice %player2 Type "!commands" for the commands list.
    set %duel2 active 
    set %p1hp 99 
    set %p2hp 99 
    set %spec1 0 
    set %spec2 0 
    set %turn 1 
    msg $chan %player1 gets first hit!

  } 
  else { 
    set %duel active 
    set %player1 $nick 
    msg $chan $nick has initiated a DM type !DM to fight them 
  } 
} 


on *:text:!eat*:#: { 
  if (%turn == 1) { 
    if (%p1hp == 99) {
      notice $nick You already have 99 hitpoints, please choose another command.
      halt
    }
    else ($nick == %player1) { 
      set %turn 2 
      inc %p1hp 20 
      msg $chan %player1 eats a shark and gains 20 hp 
      msg $chan %player1 has %p1hp hp left 
    } 
  } 
  else if (%turn == 2) { 
    if (%p2hp == 99) {
      notice $nick You already have 99 hitpoints, please choose another command.
      halt
    }
    if ($nick == %player2) { 
      set %turn 1 
      inc %p2hp 20 
      msg $chan %player2 eats a shark and gains 20 hp 
      msg $chan %player2 has %p2hp hp
    } 
  } 
} 

on *:text:!dds*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      if (%spec2 < 4) { 
        set %hit1 $rand(0,23) 
        set %hit2 $rand(0,23) 
        inc %spec1 
        msg $chan %player1 has hit %hit1 and %hit2 
        dec %p2hp %hit1 
        dec %p2hp %hit2 
        msg $chan %player2 has %p2hp hp left 
        set %turn 2 
      } 
      if (%p2hp < 1) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
    else if (%spec1 == 4) { 
      notice %player1 you are out of specials 
    } 
  } 
  else { 
    if (%turn == 2) { 
      if ($nick == %player2) { 
        if (%spec2 < 4) { 
          set %hit1 $rand(0,23) 
          set %hit2 $rand(0,23) 
          inc %spec2 
          msg $chan %player2 has hit %hit1 and %hit2 
          dec %p1hp %hit1 
          dec %p1hp %hit2 
          msg $chan %player1 has %p1hp hp left 
          set %turn 1 
          if (%p2hp < 1) { 
            msg $chan %player1 has defeated %player2
            unset %duel 
            unset %player1 
            unset %player2 
            unset %duel2 
            unset %p1hp 
            unset %p2hp 
            unset %spec1 
            unset %spec2 
            unset %turn 
            unset %hit1 
            unset %hit2 
          } 
          else { 
          } 
        } 
        else if (%spec2 == 4) { 
          notice %player2 you are out of specials. 
        } 
      } 
    } 
  } 
} 

on *:text:!dbow*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      if (%spec2 < 4) { 
        set %hit1 $rand(5,45) 
        set %hit2 $rand(2,42) 
        inc %spec1 
        msg $chan %player1 has hit %hit1 and %hit2 
        dec %p2hp %hit1 
        dec %p2hp %hit2 
        msg $chan %player2 has %p2hp hp left 
        set %turn 2 
      } 
      if (%p2hp < 1) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
    else if (%spec1 == 4) { 
      notice %player1 you are out of specials 
    } 
  } 
  else { 
    if (%turn == 2) { 
      if ($nick == %player2) { 
        if (%spec2 < 4) { 
          set %hit1 $rand(5,45) 
          set %hit2 $rand(2,42) 
          inc %spec2 
          msg $chan %player2 has hit %hit1 and %hit2 
          dec %p1hp %hit1 
          dec %p1hp %hit2 
          msg $chan %player1 has %p1hp hp left 
          set %turn 1 
          if (%p2hp < 1) { 
            msg $chan %player1 has defeated %player2
            unset %duel 
            unset %player1 
            unset %player2 
            unset %duel2 
            unset %p1hp 
            unset %p2hp 
            unset %spec1 
            unset %spec2 
            unset %turn 
            unset %hit1 
            unset %hit2 
          } 
          else { 
          } 
        } 
        else if (%spec2 == 4) { 
          notice %player2 you are out of specials. 
        } 
      } 
    } 
  } 
} 


on *:text:!msb*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      if (%spec2 < 4) { 
        set %hit1 $rand(5,23) 
        set %hit2 $rand(2,18) 
        inc %spec1 
        msg $chan %player1 has hit %hit1 and %hit2 
        dec %p2hp %hit1 
        dec %p2hp %hit2 
        msg $chan %player2 has %p2hp hp left 
        set %turn 2 
      } 
      if (%p2hp < 1) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
    else if (%spec1 == 4) { 
      notice %player1 you are out of specials 
    } 
  } 
  else { 
    if (%turn == 2) { 
      if ($nick == %player2) { 
        if (%spec2 < 4) { 
          set %hit1 $rand(5,23) 
          set %hit2 $rand(2,18) 
          inc %spec2 
          msg $chan %player2 has hit %hit1 and %hit2 
          dec %p1hp %hit1 
          dec %p1hp %hit2 
          msg $chan %player1 has %p1hp hp left 
          set %turn 1 
          if (%p2hp < 1) { 
            msg $chan %player1 has defeated %player2
            unset %duel 
            unset %player1 
            unset %player2 
            unset %duel2 
            unset %p1hp 
            unset %p2hp 
            unset %spec1 
            unset %spec2 
            unset %turn 
            unset %hit1 
            unset %hit2 
          } 
          else { 
          } 
        } 
        else if (%spec2 == 4) { 
          notice %player2 you are out of specials. 
        } 
      } 
    } 
  } 
} 


on *:text:!anchor*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      set %turn 2 
      set %hit $rand(0,42)
      msg $chan %player1 has hit a %hit 
      dec %p2hp %hit 
      msg $chan %player2 has %p2hp hp left 
      if (%p2hp < 1) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
  else if (%turn == 2) { 
    if ($nick == %player2) { 
      set %turn 1 
      set %hit $rand(0,40)
      msg $chan %player2 has hit a %hit 
      dec %p1hp %hit 
      msg $chan %player1 has %p1hp hp left 
      if (%p1hp < 1) { 
        msg $chan %player2 has defeated %player1 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
} 



on *:text:!cbow*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      set %turn 2 
      set %hit $rand(10,25) 
      msg $chan %player1 has hit a %hit 
      dec %p2hp %hit 
      msg $chan %player2 has %p2hp hp left 
      if (%p2hp < 1) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
  else if (%turn == 2) { 
    if ($nick == %player2) { 
      set %turn 1 
      set %hit $rand(10,25) 
      msg $chan %player2 has hit a %hit 
      dec %p1hp %hit 
      msg $chan %player1 has %p1hp hp left 
      if (%p1hp < 1) { 
        msg $chan %player2 has defeated %player1 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
} 


on *:text:!Godsword*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      set %turn 2 
      set %hit $rand(0,60) 
      msg $chan %player1 has hit a %hit 
      dec %p2hp %hit 
      msg $chan %player2 has %p2hp hp left 
      if (%p2hp < 1) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
  else if (%turn == 2) { 
    if ($nick == %player2) { 
      set %turn 1 
      set %hit $rand(0,30) 
      msg $chan %player2 has hit a %hit 
      dec %p1hp %hit 
      msg $chan %player1 has %p1hp hp left 
      if (%p1hp < 1) { 
        msg $chan %player2 has defeated %player1 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
} 
on *:text:!whip*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      set %turn 2 
      set %hit $rand(0,30) 
      msg $chan %player1 has hit a %hit 
      dec %p2hp %hit 
      msg $chan %player2 has %p2hp hp left 
      if (%p2hp < 1) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
  else if (%turn == 2) { 
    if ($nick == %player2) { 
      set %turn 1 
      set %hit $rand(0,30) 
      msg $chan %player2 has hit a %hit 
      dec %p1hp %hit 
      msg $chan %player1 has %p1hp hp left 
      if (%p1hp < 1) { 
        msg $chan %player2 has defeated %player1 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
} 

on *:text:!dh*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      set %turn 2 
      set %dh $rand(10,50) 
      msg $chan %player1 has hit a %dh 
      dec %p2hp %dh 
      msg $chan %player2 has %p2hp hp left 
      if (%p2hp < 1) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
  if (%turn == 2) { 
    if ($nick == %player2) { 
      set %turn 1 
      set %dh $rand(10,70) 
      msg $chan %player2 has hit a %dh 
      dec %p1hp %dh 
      msg $chan %player1 has %p1hp hp left 
      if (%p1hp < 1) { 
        msg $chan %player2 has defeated %player1
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
}
on *:text:!guthan*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      set %turn 2 
      set %dh $rand(0,30) 
      msg $chan %player1 has hit a %dh 
      dec %p2hp %dh 
      msg $chan %player2 has %p2hp hp left 
      if (%p2hp < 1) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
  if (%turn == 2) { 
    if ($nick == %player2) { 
      set %turn 1 
      set %dh $rand(0,30) 
      msg $chan %player2 has hit a %dh 
      dec %p1hp %dh 
      msg $chan %player1 has %p1hp hp left 
      if (%p1hp < 1) { 
        msg $chan %player2 has defeated %player1
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
}

if (%turn == 2) { 
  if ($nick == %player2) { 
    msg $chan msg $chan %player1 has defeated %player2
    unset %duel 
    unset %player1 
    unset %player2 
    unset %duel2 
    unset %p1hp 
    unset %p2hp 
    unset %spec1 
    unset %spec2 
    unset %turn 
    unset %hit1 
    unset %hit2 
  }
}
}
on *:text:!enddm*:#: { 
if ($nick isop $chan)
msg $chan 4DM STOPPED
unset %duel 
unset %player1 
unset %player2 
unset %duel2 
unset %p1hp 
unset %p2hp 
unset %spec1 
unset %spec2 
unset %turn 
unset %hit1 
unset %hit2 
}
else Notice $nick Only Ops may use this command.{
}