on *:TEXT:!whip:#:{ 
  if (%dm !== on) {
  notice $nick $s3(There is no Death Match on atm!) $s4(Type !dm to begin) }
  elseif (%dm == on) {
    if ($nick !== %dmp1) && ($nick !== %dmp2) {
    notice $nick $s2(You are not involved in this Death Match!) }
    elseif ($nick == %dmp1) {
      if (%player !== %dmp1) {
      notice $nick $s2(It's not your turn!) }
      elseif (%player == %dmp1) {
        set %hit $rand(0,45)
        timer 1 1 msg $chan $s2(%dmp1 throws a mighty swing at %dmp1 hitting a... ) $s1(%hit $+ !) 
        set %dmhp2 $calc( %dmhp2 - %hit) 
        if (%dmhp2 < 0) {
          msg $chan $s2(%dmp2) $s1(has fallen to the mighty) $s5(%dmp1) 
          set %dm off
          unset %dmp1
        unset %dmp2 }
        elseif (%dmhp2 > 0) {
          msg $chan $s2(%dmp2 now has) $s1(%dmhp2) $s2(hp) 
          set %player %dmp2
    notice %dmp2 $s1(It's your turn!) } } }
    elseif ($nick == %dmp2) {
      if (%player !== %dmp2) {
      notice $nick $s2(It's not your turn!) }
      elseif (%player == %dmp2) {
        set %hit $rand(0,45)
        msg $chan $s2(%dmp2 throws a mighty swing at %dmp1 hitting a...) $s1(%hit $+ !) 
        set %dmhp1 $calc( %dmhp1 - %hit) 
        if (%dmhp1 < 0) {
          msg $chan $s2(%dmp1) $s1(has fallen to the mighty) $s5(%dmp2) 
          set %dm off
          unset %dmp1
        unset %dmp2 }
        elseif (%dmhp1 > 0) {
          msg $chan $s2(%dmp1 now has) $s1(%dmhp1) $s2(hp) 
          set %player %dmp1
        notice %dmp1 $s1(It's your turn!) }
      }
    }
  }
}


on *:TEXT:!cbow:#:{ 
  if (%dm !== on) {
  notice $nick $s3(There is no Death Match on atm!) $s4(Type !dm to begin) }
  elseif (%dm == on) {
    if ($nick !== %dmp1) && ($nick !== %dmp2) {
    notice $nick $s2(You are not involved in this Death Match!) }
    elseif ($nick == %dmp1) {
      if (%player !== %dmp1) {
      notice $nick $s2(It's not your turn!) }
      elseif (%player == %dmp1) {
        set %hit $rand(0,25)
        msg $chan $s2(%dmp1 realsed the crystal arrow hitting a...) $s1(%hit $+ !) 
        set %dmhp2 $calc( %dmhp2 - %hit) 
        if (%dmhp2 < 0) {
          msg $chan $s2(%dmp2) $s1(has fallen to the mighty) $s5(%dmp1) 
          set %dm off
          unset %dmp1
        unset %dmp2 }
        elseif (%dmhp2 > 0) {
          msg $chan $s2(%dmp2 now has) $s1(%dmhp2) $s2(hp) 
          set %player %dmp2
    notice %dmp2 $s1(It's your turn!) } } }
    elseif ($nick == %dmp2) {
      if (%player !== %dmp2) {
      notice $nick $s2(It's not your turn!) }
      elseif (%player == %dmp2) {
        set %hit $rand(0,25)
        msg $chan $s2(%dmp2 realses the crystal arrow hitting a...) $s1(%hit $+ !) 
        set %dmhp1 $calc( %dmhp1 - %hit) 
        if (%dmhp1 < 0) {
          msg $chan $s2(%dmp1) $s1(has fallen to the mighty) $s5(%dmp2) 
          set %dm off
          unset %dmp1
        unset %dmp2 }
        elseif (%dmhp1 > 0) {
          msg $chan $s2(%dmp1 now has) $s1(%dmhp1) $s2(hp) 
          set %player %dmp1
        notice %dmp1 $s1(It's your turn!) }
      }
    }
  }
}



on *:TEXT:!eat:#:{ 
  if (%dm !== on) {
  notice $nick $s3(There is no Death Match on atm!) $s4(Type !dm to begin) }
  elseif (%dm == on) {
    if ($nick !== %dmp1) && ($nick !== %dmp2) {
    notice $nick $s2(You are not involved in this Death Match!) }
    elseif ($nick == %dmp1) {
      if (%player !== %dmp1) {
      notice $nick $s2(It's not your turn!) }
      elseif (%player == %dmp1) {
        if (%sharks1 !== 0) {
          if (%dmhp1 == 99) {
          notice $nick $s5(Fool, why eat at full hp?) $s1(I give you chance to use another command.) }
          elseif (%dmhp1 !== 99) {
            set %dmhp1 $calc( %dmhp1 + 20) 
            msg $chan $s2(%dmp1) $s1(has eaten a shark)
            if (%dmhp1 > 99) {
              set %dmhp1 99
              msg $chan $s2(%dmp1 now has) $s1(%dmhp1) $s2(hp)
              set %player %dmp2
              set %sharks1 $calc( %sharks1 - 1)
              notice %dmp2 $s1(It's your turn!) 
            notice %dmp1 $s2(You now have) $s1(%sharks1) $s2(sharks left) }
            elseif (%dmhp1 < 99) {
              msg $chan $s2(%dmp1 now has) $s1(%dmhp1) $s2(hp) 
              set %player %dmp2
              set %sharks1 $calc( %sharks1 - 1)
              notice %dmp2 $s1(It's your turn!) 
            notice %dmp1 $s2(You now have) $s1(%sharks1) $s2(sharks left) }
            elseif (%sharks1 == 0) {
    notice $nick $s1(You don't have any sharks left!) $s3(Use another command) | Halt } } } } }
    elseif ($nick == %dmp2) {
      if (%player !== %dmp2) {
      notice $nick $s2(It's not your turn!) }
      elseif ($nick == %dmp2) {
        if (%player !== %dmp2) {
        notice $nick $s2(It's not your turn!) }
        elseif (%player == %dmp2) {
          if (%sharks2 !== 0) {
            if (%dmhp2 == 99) {
            notice $nick $s5(Fool, why eat at full hp?) $s1(I give you chance to use another command.) }
            elseif (%dmhp2 !== 99) {
              set %dmhp2 $calc( %dmhp2 + 20) 
              msg $chan $s2(%dmp2) $s1(has eaten a shark)
              if (%dmhp2 > 99) {
                set %dmhp2 99
                msg $chan $s2(%dmp2 now has) $s1(%dmhp2) $s2(hp)
                set %player %dmp1
                set %sharks2 $calc( %sharks2 - 1)
                notice %dmp1 $s1(It's your turn!) 
              notice %dmp2 $s2(You now have) $s1(%sharks2) $s2(sharks left) }
              elseif (%dmhp2 < 99) {
                msg $chan $s2(%dmp2 now has) $s1(%dmhp2) $s2(hp) 
                set %player %dmp1
                set %sharks2 $calc( %sharks2 - 1)
                notice %dmp1 $s1(It's your turn!) 
              notice %dmp2 $s2(You now have) $s1(%sharks2) $s2(sharks left) }
              elseif (%sharks2 == 0) {
      notice $nick $s1(You don't have any sharks left!) $s3(Use another command) | Halt } } } } }
    }
  }
}


on *:TEXT:!stopdm:#:{ 
  if (%dm == on) {
    if ($nick isop $chan) {
      msg $chan $s2(DM stopped by Channel OP -) $s1($nick)
      unset %dmp1
      unset %dmp2
    set %dm off }
    elseif ($nick == %dmp1) || ($nick == %dmp2) {
      msg $chna $s2(DM stopped by DM contender -) $s1($nick) 
      unset %dmp1
      unset %dmp2
    set %dm off }
    elseif ($nick !== %dmp1) && ($nick !== %dmp2) && ($nick !isop $chan) {
    notice $nick $s2(You do not have the power to stop the DM) }
  }
  elseif (%dm !== on) {
    msg $chan $s1(No Death Match is currently set -) $s2(To start type !dm)
  }
}

on *:TEXT:!dm:#:{ 
  if (%dmp1 == $null) && (%dmp2 == $null) {
    msg $chan $s2($Nick would like a DM!) $s1(Please type) $s5(!dm) $s1(to accept his request) 
  set %dmp1 $nick }
  elseif (%dm == on) {
  msg $chan $s2(Sorry $nick -) $s1(A DM is already in progress - Get a Channel Op to stop it by typing !stopdm) }
  elseif (%dmp1 !== $null) && (%dmp2 == $null) {
    if ($nick == %dmp1) {
    msg $chan $s1(Stupid $nick $+ !) $s2(You cannot accept your own request!) | halt } 
    elseif ($nick !== %dmp1) {
      msg $chan $s2($nick) $s1(has accpeted %dmp1 $+ 's request!)
      msg $chan $s2(Both players have 99HP and a total of 7 sharks)
      msg $chan $s3(%dmp1 shall start)
      notice %dmp1 $s1(It's your turn!) $s4(To view the commands type !dmcommands) 
      set %dm on
      set %dmp2 $nick
      set %dmhp1 99
      set %dmhp2 99
      set %dmspec1 100
      set %dmspec2 100
      set %sharks1 7
      set %sharks2 7
      set %spec1 100
      set %spec2 100
    set %player %dmp1 }
  }
}


on *:TEXT:!dds:#:{ 
  if (%dm !== on) {
  notice $nick $s3(There is no Death Match on atm!) $s4(Type !dm to begin) }
  elseif (%dm == on) {
    if ($nick !== %dmp1) && ($nick !== %dmp2) {
    notice $nick $s2(You are not involved in this Death Match!) }
    elseif ($nick == %dmp1) {
      if (%player !== %dmp1) {
      notice $nick $s2(It's not your turn!) }
      elseif (%player == %dmp1) {
        if (%player == %dmp1) {
          if (%spec1 > 24) {
            set %spec1 $calc( %spec1 - 25 )
            set %hit1 $rand(0,30)
            set %hit2 $rand(0,30)
            msg $chan $s2(%dmp1 flings his arm is a mighty special hitting) $s5(%hit1) $s2(&) $s5(%hit2) 
            set %dmhp2 $calc( %dmhp2 - %hit1 - %hit2 ) 
            if (%dmhp2 < 0) {
              msg $chan $s2(%dmp2) $s1(has fallen to the mighty) $s5(%dmp1) 
              set %dm off
              unset %dmp1
            unset %dmp2 }
            elseif (%dmhp2 > 0) {
              msg $chan $s2(%dmp2 now has) $s1(%dmhp2) $s2(hp) 
              set %player %dmp2
              notice %dmp1 $s2(You now have %spec1 $+ % of your special bar left.)
          notice %dmp2 $s1(It's your turn!) } }
          elseif (%spec1 < 24) {
    notice %dmp1 $s2(You don't have enough special left use your dragon dagger!) } } } }
    elseif ($nick == %dmp2) {
      if (%player !== %dmp2) {
      notice $nick $s2(It's not your turn!) }
      elseif (%player == %dmp2) {
        if (%player == %dmp2) {
          if (%spec2 > 24) {
            set %spec2 $calc( %spec2 - 25 )
            set %hit1 $rand(0,30)
            set %hit2 $rand(0,30)
            msg $chan $s2(%dmp2 flings his arm in a mighty special hitting) $s5(%hit1) $s2(&) $s5(%hit2) 
            set %dmhp1 $calc( %dmhp1 - %hit1 - %hit2 ) 
            if (%dmhp1 < 0) {
              msg $chan $s2(%dmp1) $s1(has fallen to the mighty) $s5(%dmp2) 
              set %dm off
              unset %dmp1
            unset %dmp2 }
            elseif (%dmhp1 > 0) {
              msg $chan $s2(%dmp1 now has) $s1(%dmhp1) $s2(hp) 
              set %player %dmp1
              notice %dmp2 $s2(You now have %spec2 $+ % of your special bar left.)
            notice %dmp1 $s1(It's your turn!) }
            elseif (%spec1 < 24) {
            notice %dmp2 $s3(You don't have enough special left yo use your dragon dagger! }
          }
        }
      }
    }
  }
}