on $*:text:/^[!@]dm/Si:#:{
  if (!%dm) {
    if (!%dminc) {
      set %player1 $nick
      msg $chan [7DM] Started by7 $nick $+ . Type 7!DM To fight him.
      set %hp1 99
      set %spec1 4
      set %dminc HI
      set %food1 10
    }
    else {
      if (%dminc) {
        if (%player1 != $nick) {
          set %player2 $nick
          var %tutu = $r(1,2)
          msg $chan [7DM] Started: $+($chr(91),$chr(3),07,%player1 Vs. $chr(3),07,$nick,$chr(3),$chr(93),$chr(3),07) $iif(%tutu == 1,%player1,$nick) Goes first.
          set %hp2 99
          set %spec2 4
          unset %dminc
          set %dm y0
          set %turn $iif(%tutu == 1,%player1,$nick)
          set %food2 10
        }
        else msg $chan [7DM-ERR] Last time i heard, you cant DM yourself..GF nub
      }
    }
  }
  else msg $chan [7DM-ERR] There is a dm on progress $+($chr(91),$chr(3),07,%player1 Vs.7 %player2,$chr(3),$chr(93))
}

on $*:text:/^[!@]dds/Si:#:{
  if (%dm) {
    if ($nick == %player1) {
      if ($nick == %turn) {
        if ($2 == -s) {
          if (%spec1 >= 1) {
            var %hit = $r(1,30)
            var %hit2 = $r(1,30)
            dec %hp2 %hit 
            dec %hp2 %hit2
            msg $chan [7DM]7 %player1 $+($chr(3),$chr(91),$chr(3),07,DDS,$chr(3),$chr(91),$chr(3),07,S,$chr(3),$chr(93),$chr(93)) On $+($chr(91),$chr(3),07,%player2,$chr(3),$chr(93)) Hitting $+($chr(91),$chr(3),07,%hit,$chr(3),$chr(124),$chr(3),07,%hit2,$chr(3),$chr(93),$chr(40),$chr(3),07,$calc(%hit + %hit2),$chr(3),$chr(41)) Before:7 $calc(%hp2 + %hit + %hit2) $+ . After:7 $iif(%hp2 > 0,%hp2,0) $+ . $+($chr(91),$hpreturn(%hp2),$chr(93))
            set %turn %player2
            dec %spec1 
            $iif(%hp2 <= 0,cleanit $chan)
          }
          else msg $chan [7DM-ERROR] You have $+($chr(91),$chr(3),07,%spec1,$chr(3),/,$chr(3),07,1,$chr(3),$chr(93)) Specials needed for this.
        }
        else {
          var %hit = $r(1,20)
          dec %hp2 %hit 
          msg $chan [7DM]7 %player1 $+($chr(3),$chr(91),$chr(3),07,DDS,$chr(3),$chr(93)) On $+($chr(91),$chr(3),07,%player2,$chr(3),$chr(93)) Hitting $+($chr(91),$chr(3),07,%hit,$chr(3),$chr(93)) Before:7 $calc(%hp2 + %hit) $+ . After:7 $iif(%hp2 > 0,%hp2,0) $+ .
          set %turn %player2
          $iif(%hp2 <= 0,cleanit $chan)
        }
      }
      else msg $chan [7DM-ERR] It is7 $iif($nick == %player1,%player2,%player1) $+ 's Turn.
    }
    else {
      if ($nick == %player2) {
        if ($nick == %turn) {
          if ($2 == -s) {
            if (%spec2 >= 1) {
              var %hit = $r(1,30)
              var %hit2 = $r(1,30)
              dec %hp1 %hit 
              dec %hp1 %hit2
              msg $chan [7DM]7 %player2 $+($chr(3),$chr(91),$chr(3),07,DDS,$chr(3),$chr(91),$chr(3),07,S,$chr(3),$chr(93),$chr(93)) On $+($chr(91),$chr(3),07,%player1,$chr(3),$chr(93)) Hitting $+($chr(91),$chr(3),07,%hit,$chr(3),$chr(124),$chr(3),07,%hit2,$chr(3),$chr(93),$chr(40),$chr(3),07,$calc(%hit + %hit2),$chr(3),$chr(41)) Before:7 $calc(%hp1 + %hit + %hit2) $+ . After:7 $iif(%hp1 > 0,%hp1,0) $+ . $+($chr(91),$hpreturn(%hp1),$chr(93))
              set %turn %player1
              dec %spec2 
              $iif(%hp1 <= 0,cleanit $chan)
            }
            else msg $chan [7DM-ERROR] You have $+($chr(91),$chr(3),07,%spec2,$chr(3),/,$chr(3),07,1,$chr(3),$chr(93)) Specials needed for this.
          }
          else {
            var %hit = $r(1,20)
            dec %hp1 %hit 
            msg $chan [7DM]7 %player2 $+($chr(3),$chr(91),$chr(3),07,DDS,$chr(3),$chr(93)) On $+($chr(91),$chr(3),07,%player1,$chr(3),$chr(93)) Hitting $+($chr(91),$chr(3),07,%hit,$chr(3),$chr(93)) Before:7 $calc(%hp1 + %hit) $+ . After:7 $iif(%hp1 > 0,%hp1,0) $+ .
            set %turn %player1
            $iif(%hp1 <= 0,cleanit $chan)
          }
        }
        else msg $chan [7DM-ERR] It is7 $iif($nick == %player1,%player2,%player1) $+ 's Turn.
      }
    }
  }
  else msg $chan [7DM-ERR] There is no DM in progress.
}

on $*:text:/^[!@]Whip/Si:#:{
  if (%dm) {
    if ($nick == %player1) {
      if ($nick == %turn) {
        if ($2 == -s) {
          if (%spec1 >= 2) {
            var %hit = $r(1,45)
            dec %hp2 %hit 
            msg $chan [7DM]7 %player1 $+($chr(3),$chr(91),$chr(3),07,WHIP,$chr(3),$chr(91),$chr(3),07,S,$chr(3),$chr(93),$chr(93)) On $+($chr(91),$chr(3),07,%player2,$chr(3),$chr(93)) Hitting $+($chr(91),$chr(3),07,%hit,$chr(3),$chr(93)) Before:7 $calc(%hp2 + %hit) $+ . After:7 $iif(%hp2 > 0,%hp2,0) $+ . $+($chr(91),$hpreturn(%hp2),$chr(93))
            set %turn %player2
            dec %spec1 2
            $iif(%hp2 <= 0,cleanit $chan)
          }
          else msg $chan [7DM-ERROR] You have $+($chr(91),$chr(3),07,%spec1,$chr(3),/,$chr(3),07,2,$chr(3),$chr(93)) Specials needed for this.
        }
        else {
          var %hit = $r(1,35)
          dec %hp2 %hit 
          msg $chan [7DM]7 %player1 $+($chr(3),$chr(91),$chr(3),07,WHIP,$chr(3),$chr(93)) On $+($chr(91),$chr(3),07,%player2,$chr(3),$chr(93)) Hitting $+($chr(91),$chr(3),07,%hit,$chr(3),$chr(93)) Before:7 $calc(%hp2 + %hit) $+ . After:7 $iif(%hp2 > 0,%hp2,0) $+ . $+($chr(91),$hpreturn(%hp2),$chr(93))
          set %turn %player2
          $iif(%hp2 <= 0,cleanit $chan)
        }
      }
      else msg $chan [7DM-ERR] It is7 $iif($nick == %player1,%player2,%player1) $+ 's Turn.
    }
    else {
      if ($nick == %player2) {
        if ($nick == %turn) {
          if ($2 == -s) {
            if (%spec2 >= 1) {
              var %hit = $r(1,40)
              dec %hp1 %hit 
              msg $chan [7DM]7 %player2 $+($chr(3),$chr(91),$chr(3),07,WHIP,$chr(3),$chr(91),$chr(3),07,S,$chr(3),$chr(93),$chr(93)) On $+($chr(91),$chr(3),07,%player1,$chr(3),$chr(93)) Hitting $+($chr(91),$chr(3),07,%hit,$chr(3),$chr(93)) Before:7 $calc(%hp1 + %hit) $+ . After:7 $iif(%hp1 > 0,%hp1,0) $+ . $+($chr(91),$hpreturn(%hp1),$chr(93))
              set %turn %player1
              dec %spec2 2
              $iif(%hp1 <= 0,cleanit $chan)
            }
            else msg $chan [7DM-ERROR] You have $+($chr(91),$chr(3),07,%spec2,$chr(3),/,$chr(3),07,2,$chr(3),$chr(93)) Specials needed for this.
          }
          else {
            var %hit = $r(1,40)
            dec %hp1 %hit 
            msg $chan [7DM]7 %player2 $+($chr(3),$chr(91),$chr(3),07,WHIP,$chr(3),$chr(93)) On $+($chr(91),$chr(3),07,%player1,$chr(3),$chr(93)) Hitting $+($chr(91),$chr(3),07,%hit,$chr(3),$chr(93)) Before:7 $calc(%hp1 + %hit) $+ . After:7 $iif(%hp1 > 0,%hp1,0) $+ . $+($chr(91),$hpreturn(%hp1),$chr(93))
            set %turn %player1
            $iif(%hp1 <= 0,cleanit $chan)
          }
        }
        else msg $chan [7DM-ERR] It is7 $iif($nick == %player1,%player2,%player1) $+ 's Turn.
      }
    }
  }
  else msg $chan [7DM-ERR] There is no DM in progress.
}

on $*:text:/^[!@](eat|shark)/Si:#:{
  if (%dm) {
    if ($nick == %player1) {
      if ($nick == %turn) {
        if (%food1 >= 1) {
          dec %food1 
          inc %hp1 20
          set %turn %player2
          msg $chan [7DM]7 %player1 Has gained7 20 Hp from shark. $+($chr(91),Before:,$chr(3),07 $calc(%hp1 - 20),$chr(3),$chr(124),After:,$chr(3),07 %hp1,$chr(3),$chr(93)) $+($chr(91),$hpreturn(%hp1),$chr(93))
        }
        else msg $chan [7DM-ERR] You have $+($chr(91),$chr(3),07,%food1,$chr(3),/,$chr(3),07,1,$chr(3),$chr(93)) Sharks needed.
      }
      else msg $chan [7DM-ERR] It is7 $iif($nick == %player1,%player2,%player1) $+ 's Turn.
    }
    else {
      if ($nick == %player2) {
        if ($nick == %turn) {
          if (%food2 >= 1) {
            dec %food2
            inc %hp2 20
            set %turn %player1
            msg $chan [7DM]7 %player2 Has gained7 20 Hp from shark. $+($chr(91),Before:,$chr(3),07 $calc(%hp2 - 20),$chr(3),$chr(124),After:,$chr(3),07 %hp2,$chr(3),$chr(93)) $+($chr(91),$hpreturn(%hp2),$chr(93))
          }
          else msg $chan [7DM-ERR] You have $+($chr(91),$chr(3),07,%food2,$chr(3),/,$chr(3),07,1,$chr(3),$chr(93)) Sharks needed.
        }
        else msg $chan [7DM-ERR] It is7 $iif($nick == %player1,%player2,%player1) $+ 's Turn.
      }
      elseif ($nick != %player1) && ($nick != %player2) msg $chan [7DM-ERR] You arent in this DM.
    }
  }
  else msg $chan [7DM-ERR] There is no DM in progress.
}

alias cleanit {
  if (%hp1 <= 0) {
    msg $1 [7DM]7 %player2 Has beaten7 %player1 $+ , He had7 %hp2 Hp left when7 %player1 Died.
    unset %hp1
    unset %hp2
    unset %player1
    unset %player2
    unset %dm
    unset %spec1
    unset %spec2
    unset %food1
    unset %food2
    unset %turn
  }
  elseif (%hp2 <= 0) {
    msg $1 [7DM]7 %player1 Has beaten7 %player2 $+ , He had7 %hp1 Hp left when7 %player2 Died.
    unset %hp1
    unset %hp2
    unset %player1
    unset %player2
    unset %dm
    unset %spec1
    unset %spec2
    unset %turn
    unset %food2
    unset %food1
  }
}
alias hpreturn {
  var %hp = $calc($1 / 5)
  return 3,3 $+ $+($str(.,%hp)) $+ 4,4 $+ $+($str(.,$calc(19.8 - %hp)),$chr(3))
}