on *:TEXT:!items:#:{
  notice $nick You can currently use these items in a DM:
  notice $nick [WEAPONS] !whip, !dds, !dharoks, !ice barrage
  notice $nick [FOOD] !shark
  notice $nick [OTHER] !enddm, !recharge
}

on *:TEXT:!stopdm:#:{
  if ($address($nick,2) == $address($me,2)) || ($nick isop $chan) || ($nick == %dm1 [ $+ [ $chan ] ]) || ($nick == %dm2 [ $+ [ $chan ] ]) {
    if (%dmstatus [ $+ [ $chan ] ] != $null) {
      msg $chan  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ The current  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ DM  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ is canceled by  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ .
    }
    else {
      notice $nick There is no DM running on this channel!
    }
    unset %dm1 [ $+ [ $chan ] ]
    unset %dm2 [ $+ [ $chan ] ]
    unset %dmstatus [ $+ [ $chan ] ]
    unset %dmturn [ $+ [ $chan ] ]
    unset %dmhp1 [ $+ [ $chan ] ] 
    unset %dmhp2 [ $+ [ $chan ] ]
    unset %dmdd1 [ $+ [ $chan ] ]
    unset %dmdd2 [ $+ [ $chan ] ]
  }
}

on *:TEXT:!endall*:#:{
  if ($address($nick,2) == $address($me,2)) {
    amsg [AMSG] $nick is ending all games. Reason: $2-
    unset %dm1*
    unset %dm2*
    unset %dmstatus*
    unset %dmturn*
    unset %dmhp1*
    unset %dmhp2*
    unset %dmdd1*
    unset %dmdd2*
  }
}

on *:TEXT:!dm*:#:{
  if ($chan == #tdc) {
    notice $nick Oh no, NO DM's in $chan $+ , you $nick $+ -being-noob! Invite [DM]Mighty into another channel!
  }
  else {
    if (%dmstatus [ $+ [ $chan ] ] == $null) {
      set %dmstatus $+ $chan open
      set %dm1 $+ $chan $nick
      msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ is challenging anybody in $+ $read(c:/mircsaves/colors2.txt, s, $chan) $chan  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ to DM him! Show us how brave you are and accept the challenge by typing  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ !dm $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ .
    }
    elseif (%dmstatus [ $+ [ $chan ] ] == open) {
      if ($nick == %dm1 [ $+ [ $chan ] ]) {
        notice $nick You cannot fight yourself!
      }
      else {
        set %dmstatus $+ $chan on
        set %dm2 $+ $chan $nick
        set %dmhp1 $+ $chan 99
        set %dmhp2 $+ $chan 99
        set %dmspec1 $+ $chan 100
        set %dmspec2 $+ $chan 100
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has accepted the challenge and will fight against  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
        var %dmstart = $rand(1,2)
        describe $chan gambles the dices..
        if (%dmstart == 1) {
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ may start this battle by typing the first command.
          set %dmturn $+ $chan 1
        }
        elseif (%dmstart == 2) {
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ may start this battle by typing the first command.
          set %dmturn $+ $chan 2
        }
        msg $chan  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ To view all available items, type  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ !items $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ .
      }
      elseif (%dmstatus [ $+ [ $chan ] ] == on) {
        notice $nick There is already a DM running. Please try again later!
      }
    }
  }
}

on *:TEXT:!whip:#:{
  if (%dmstatus [ $+ [ $chan ] ] == on) {
    if ($nick == %dm1 [ $+ [ $chan ] ]) && (%dmturn [ $+ [ $chan ] ] == 1) {
      var %hit = $rand(0,35)
      if (%hit >= %dmhp2 [ $+ [ $chan ] ]) {
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has been killed!  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ kills $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ with a crushing $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp2 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ .
        inc %dmn [ $+ [ $nick ] ]
        var %p = %dm2 [ $+ [ $chan ] ]
        inc %dml [ $+ [ %p ] ]
        if (%dml [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
        if (%dmn [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
        var %k = %dmn [ $+ [ $nick ] ]
        var %l = %dml [ $+ [ $nick ] ]
        var %a = %dmn [ $+ [ %p ] ]
        var %s = %dml [ $+ [ %p ] ]
        var %n = $calc(%k / (%k + %l))
        var %x = $calc(%a / (%a + %s))
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%n * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %p  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%x * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
        unset %dm1 $+ $chan
        unset %dm2 $+ $chan
        unset %dmstatus $+ $chan
        unset %dmturn $+ $chan
        unset %dmhp1 $+ $chan
        unset %dmhp2 $+ $chan
        unset %dmspec1 $+ $chan
        unset %dmspec2 $+ $chan
      }
      else {
        set %dmhp2 $+ $chan $calc(%dmhp2 [ $+ [ $chan ] ] - %hit)
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ pulls out  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ an abyssal whip  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ and hits $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ on  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has now $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp left!
        set %dmturn $+ $chan 2
      }
    }
    elseif ($nick == %dm2 [ $+ [ $chan ] ]) && (%dmturn [ $+ [ $chan ] ] == 2) {
      var %hit = $rand(0,35)
      if (%hit >= %dmhp1 [ $+ [ $chan ] ]) {
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has been killed!  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ kills  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ with a crushing $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp1 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ .
        inc %dmn [ $+ [ $nick ] ]
        var %p = %dm1 [ $+ [ $chan ] ]
        inc %dml [ $+ [ %p ] ]
        if (%dml [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
        if (%dmn [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
        if (%dml [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
        if (%dmn [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
        var %k = %dmn [ $+ [ $nick ] ]
        var %l = %dml [ $+ [ $nick ] ]
        var %a = %dmn [ $+ [ %p ] ]
        var %s = %dml [ $+ [ %p ] ]
        var %n = $calc(%k / (%k + %l))
        var %x = $calc(%a / (%a + %s))
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%n * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %p  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%x * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
        unset %dm1 $+ $chan
        unset %dm2 $+ $chan
        unset %dmstatus $+ $chan
        unset %dmturn $+ $chan
        unset %dmhp1 $+ $chan
        unset %dmhp2 $+ $chan
        unset %dmspec1 $+ $chan
        unset %dmspec2 $+ $chan
      }
      else {
        set %dmhp1 $+ $chan $calc(%dmhp1 [ $+ [ $chan ] ] - %hit)
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ pulls out  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ an abyssal whip  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ and hits $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ on  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has now $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp left!
        set %dmturn $+ $chan 1
      }
    }
  }
}

on *:TEXT:!shark:#:{
  if (%dmstatus [ $+ [ $chan ] ] == on) {
    if ($nick == %dm1 [ $+ [ $chan ] ]) && (%dmturn [ $+ [ $chan ] ] == 1) {
      var %dmshark = $rand(1,20)
      set %dmturn [ $+ [ $chan ] ] 2
      if (%dmshark isnum 1) {
        set %dmhp2 [ $+ [ $chan ] ] $calc(%dmhp2 [ $+ [ $chan ] ] + 20)
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ accidently drops the shark.  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ takes it and eats it.
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has healed $+ $read(c:/mircsaves/colors2.txt, s, $chan) 20  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp. He has  $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp now!
      }
      else {
        set %dmhp1 [ $+ [ $chan ] ] $calc(%dmhp1 [ $+ [ $chan ] ] + 20)
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ eats the shark and heals $+ $read(c:/mircsaves/colors2.txt, s, $chan) 20  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp. He has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp now!
      }
    }
    elseif ($nick == %dm2 [ $+ [ $chan ] ]) && (%dmturn [ $+ [ $chan ] ] == 2) {
      var %dmshark = $rand(1,20)
      set %dmturn [ $+ [ $chan ] ] 1
      if (%dmshark isnum 1) {
        set %dmhp1 [ $+ [ $chan ] ] $calc(%dmhp1 [ $+ [ $chan ] ] + 20)
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ accidently drops the shark.  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ takes it and eats it.
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has healed $+ $read(c:/mircsaves/colors2.txt, s, $chan) 20  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp. He has  $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp now!
      }
      else {
        set %dmhp2 [ $+ [ $chan ] ] $calc(%dmhp2 [ $+ [ $chan ] ] + 20)
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ eats the shark and heals $+ $read(c:/mircsaves/colors2.txt, s, $chan) 20  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp. He has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp now!
      }
    }
  }
}

on *:TEXT:!dds*:#:{
  if (%dmstatus [ $+ [ $chan ] ] == on) {
    if ($nick == %dm1 [ $+ [ $chan ] ]) && (%dmturn [ $+ [ $chan ] ] == 1) {
      if (%dmspec1 [ $+ [ $chan ] ] < 25) {
        notice $nick You do not have enough specs left! Type !recharge to add 25%.
        notice $nick You have currently got %dmspec1 [ $+ [ $chan ] ] % remaining! 25% is required for a DD spec!
        halt
      }
      else {
        set %dmspec1 [ $+ [ $chan ] ] $calc(%dmspec1 [ $+ [ $chan ] ] - 25)
        notice $nick Your special attack bar has now %dmspec1 [ $+ [ $chan ] ] $+ % remaining!
        var %hit1 = $rand(0,30)
        var %hit2 = $rand(0,30)
        var %hit = $calc(%hit1 + %hit2)
        if (%hit >= %dmhp2 [ $+ [ $chan ] ]) {
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has been killed!  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ kills  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ with $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit1  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit2  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
          inc %dmn [ $+ [ $nick ] ]
          var %p = %dm2 [ $+ [ $chan ] ]
          inc %dml [ $+ [ %p ] ]
          if (%dml [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
          if (%dmn [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
          if (%dml [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
          if (%dmn [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
          var %k = %dmn [ $+ [ $nick ] ]
          var %l = %dml [ $+ [ $nick ] ]
          var %a = %dmn [ $+ [ %p ] ]
          var %s = %dml [ $+ [ %p ] ]
          var %n = $calc(%k / (%k + %l))
          var %x = $calc(%a / (%a + %s))
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%n * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %p  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%x * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
          unset %dm1 $+ $chan
          unset %dm2 [ $+ [ $chan ] ]
          unset %dmstatus [ $+ [ $chan ] ]
          unset %dmturn [ $+ [ $chan ] ]
          unset %dmhp1 [ $+ [ $chan ] ]
          unset %dmhp2 [ $+ [ $chan ] ]
          unset %dmspec1 [ $+ [ $chan ] ]
          unset %dmspec2 [ $+ [ $chan ] ]
        }
        else {
          set %dmhp2 [ $+ [ $chan ] ] $calc(%dmhp2 [ $+ [ $chan ] ] - %hit)
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ pulls out  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ a dragon dagger  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ and hits $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit1  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit2  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ on $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dm2 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has now $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp left!
          set %dmturn [ $+ [ $chan ] ] 2
        }
      }
    }
    if ($nick == %dm2 [ $+ [ $chan ] ]) && (%dmturn [ $+ [ $chan ] ] == 2) {
      if (%dmspec2 [ $+ [ $chan ] ] < 25) {
        notice $nick You do not have enough specs left! Type !recharge to add 25%.
        notice $nick You have currently got %dmspec2 [ $+ [ $chan ] ] $+ % remaining! 25% is required for a DD spec!
        halt
      }
      else {
        set %dmspec2 [ $+ [ $chan ] ] $calc(%dmspec2 [ $+ [ $chan ] ] - 25)
        notice $nick Your special attack bar has now %dmspec2 [ $+ [ $chan ] ] $+ % remaining!  
        var %hit1 = $rand(0,30)
        var %hit2 = $rand(0,30)
        var %hit = $calc(%hit1 + %hit2)
        if (%hit >= %dmhp1 [ $+ [ $chan ] ]) {
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has been killed!  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ kills  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ with $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit1  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit2  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
          inc %dmn [ $+ [ $nick ] ]
          var %p = %dm1 [ $+ [ $chan ] ]
          inc %dml [ $+ [ %p ] ]
          if (%dml [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
          if (%dmn [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
          if (%dml [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
          if (%dmn [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
          var %k = %dmn [ $+ [ $nick ] ]
          var %l = %dml [ $+ [ $nick ] ]
          var %a = %dmn [ $+ [ %p ] ]
          var %s = %dml [ $+ [ %p ] ]
          var %n = $calc(%k / (%k + %l))
          var %x = $calc(%a / (%a + %s))
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%n * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %p  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%x * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
          unset %dm1 $+ $chan
          unset %dm2 [ $+ [ $chan ] ]
          unset %dmstatus [ $+ [ $chan ] ]
          unset %dmturn [ $+ [ $chan ] ]
          unset %dmhp1 [ $+ [ $chan ] ]
          unset %dmhp2 [ $+ [ $chan ] ]
          unset %dmspec1 [ $+ [ $chan ] ]
          unset %dmspec2 [ $+ [ $chan ] ]
        }
        else {
          set %dmhp1 [ $+ [ $chan ] ] $calc(%dmhp1 [ $+ [ $chan ] ] - %hit)
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ pulls out  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ a dragon dagger  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ and hits $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit1  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit2  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ on $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dm1 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has now $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp left!
          set %dmturn [ $+ [ $chan ] ] 1
        }
      }
    }
  }
}

on *:TEXT:!dh*:#:{
  if (%dmstatus [ $+ [ $chan ] ] == on) {
    if ($nick == %dm1 [ $+ [ $chan ] ]) && (%dmturn [ $+ [ $chan ] ] == 1) {
      if (%dmspec1 [ $+ [ $chan ] ] < 50) {
        notice $nick You do not have enough specs left! Type !recharge to add 25%.
        notice $nick You have currently got %dmspec1 [ $+ [ $chan ] ] $+ % remaining! 50% is required for dharoks!
        halt
      }
      if (%dmspec1 [ $+ [ $chan ] ] >= 50) {
        set %dmspec1 [ $+ [ $chan ] ] $calc(%dmspec1 [ $+ [ $chan ] ] - 50)
        notice $nick Your special attack bar has now %dmspec1 [ $+ [ $chan ] ] $+ % remaining!
        if (%dmhp1 [ $+ [ $chan ] ] isnum 1-10) var %hit = $rand(25,90)
        if (%dmhp1 [ $+ [ $chan ] ] isnum 10-19) var %hit = $rand(10,75)
        if (%dmhp1 [ $+ [ $chan ] ] isnum 20-29) var %hit = $rand(0,70)
        if (%dmhp1 [ $+ [ $chan ] ] isnum 30-39) var %hit = $rand(0,65)
        if (%dmhp1 [ $+ [ $chan ] ] isnum 40-49) var %hit = $rand(0,60)
        if (%dmhp1 [ $+ [ $chan ] ] isnum 50-59) var %hit = $rand(0,55)
        if (%dmhp1 [ $+ [ $chan ] ] isnum 60-69) var %hit = $rand(0,50)
        if (%dmhp1 [ $+ [ $chan ] ] isnum 70-79) var %hit = $rand(0,45)
        if (%dmhp1 [ $+ [ $chan ] ] isnum 80-89) var %hit = $rand(0,40)
        if (%dmhp1 [ $+ [ $chan ] ] isnum 90-99) var %hit = $rand(0,35)
        if (%hit >= %dmhp2 [ $+ [ $chan ] ]) {
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has been killed!  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ splits  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ] $+ 's  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ head in two pieces with $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
          inc %dmn [ $+ [ $nick ] ]
          var %p = %dm2 [ $+ [ $chan ] ]
          inc %dml [ $+ [ %p ] ]
          if (%dml [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
          if (%dmn [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
          if (%dml [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
          if (%dmn [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
          var %k = %dmn [ $+ [ $nick ] ]
          var %l = %dml [ $+ [ $nick ] ]
          var %a = %dmn [ $+ [ %p ] ]
          var %s = %dml [ $+ [ %p ] ]
          var %n = $calc(%k / (%k + %l))
          var %x = $calc(%a / (%a + %s))
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%n * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %p  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%x * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
          unset %dm1 $+ $chan
          unset %dm2 [ $+ [ $chan ] ]
          unset %dmstatus [ $+ [ $chan ] ]
          unset %dmturn [ $+ [ $chan ] ]
          unset %dmhp1 [ $+ [ $chan ] ]
          unset %dmhp2 [ $+ [ $chan ] ]
          unset %dmspec1 [ $+ [ $chan ] ]
          unset %dmspec2 [ $+ [ $chan ] ]
        }
        else {
          set %dmhp2 [ $+ [ $chan ] ] $calc(%dmhp2 [ $+ [ $chan ] ] - %hit)
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ pulls out  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ full dharoks with %dmhp1 [ $+ [ $chan ] ] hp  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ and hits $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ on $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dm2 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has now $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp left!
          set %dmturn [ $+ [ $chan ] ] 2
        }
      }
    }
    if ($nick == %dm2 [ $+ [ $chan ] ]) && (%dmturn [ $+ [ $chan ] ] == 2) {
      if (%dmspec2 [ $+ [ $chan ] ] < 50) {
        notice $nick You do not have enough specs left! Type !recharge to add 25%.
        notice $nick You have currently got %dmspec2 [ $+ [ $chan ] ] % remaining! 50% is required for dharoks!
        halt
      }
      if (%dmspec2 [ $+ [ $chan ] ] >= 50) {
        set %dmspec2 [ $+ [ $chan ] ] $calc(%dmspec2 [ $+ [ $chan ] ] - 50)
        notice $nick Your special attack bar has now %dmspec2 [ $+ [ $chan ] ] $+ % remaining!
        if (%dmhp2 [ $+ [ $chan ] ] isnum 1-10) var %hit = $rand(0,80)
        if (%dmhp2 [ $+ [ $chan ] ] isnum 10-19) var %hit = $rand(0,75)
        if (%dmhp2 [ $+ [ $chan ] ] isnum 20-29) var %hit = $rand(0,70)
        if (%dmhp2 [ $+ [ $chan ] ] isnum 30-39) var %hit = $rand(0,65)
        if (%dmhp2 [ $+ [ $chan ] ] isnum 40-49) var %hit = $rand(0,60)
        if (%dmhp2 [ $+ [ $chan ] ] isnum 50-59) var %hit = $rand(0,55)
        if (%dmhp2 [ $+ [ $chan ] ] isnum 60-69) var %hit = $rand(0,50)
        if (%dmhp2 [ $+ [ $chan ] ] isnum 70-79) var %hit = $rand(0,45)
        if (%dmhp2 [ $+ [ $chan ] ] isnum 80-89) var %hit = $rand(0,40)
        if (%dmhp2 [ $+ [ $chan ] ] isnum 90-99) var %hit = $rand(0,35)
        if (%hit >= %dmhp1 [ $+ [ $chan ] ]) {
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has been killed!  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ splits  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ] $+ 's  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ head in two pieces with $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
          inc %dmn [ $+ [ $nick ] ]
          var %p = %dm1 [ $+ [ $chan ] ]
          inc %dml [ $+ [ %p ] ]
          if (%dml [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
          if (%dmn [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
          if (%dml [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
          if (%dmn [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
          var %k = %dmn [ $+ [ $nick ] ]
          var %l = %dml [ $+ [ $nick ] ]
          var %a = %dmn [ $+ [ %p ] ]
          var %s = %dml [ $+ [ %p ] ]
          var %n = $calc(%k / (%k + %l))
          var %x = $calc(%a / (%a + %s))
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%n * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %p  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%x * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
          unset %dm1 $+ $chan
          unset %dm2 $+ $chan
          unset %dmstatus $+ $chan
          unset %dmturn $+ $chan
          unset %dmhp1 $+ $chan
          unset %dmhp2 $+ $chan
          unset %dmspec1 $+ $chan
          unset %dmspec2 $+ $chan
        }
        else {
          set %dmhp1 [ $+ [ $chan ] ] $calc(%dmhp1 [ $+ [ $chan ] ] - %hit)
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ pulls out  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ full dharoks with %dmhp2 [ $+ [ $chan ] ] hp  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ and hits $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ on $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dm1 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has now $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp left!
          set %dmturn [ $+ [ $chan ] ] 1
        }
      }
    }
  }
}
=
on *:TEXT:!recharge:#:{
  if (%dmstatus [ $+ [ $chan ] ] == on) {
    if ($nick == %dm1 [ $+ [ $chan ] ]) && (%dmturn [ $+ [ $chan ] ] == 1) {
      if (%dmspec1 [ $+ [ $chan ] ] isnum 0-75) {
        set %dmspec1 [ $+ [ $chan ] ] $calc($dmspec1 [ $+ [ $chan ] ] + 25)
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has recharged his special attack bar with $+ $read(c:/mircsaves/colors2.txt, s, $chan) 25% $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
        set %dmturn [ $+ [ $chan ] ] 2
      }
      elseif (%dmspec1 [ $+ [ $chan ] ] isnum 76-99) {
        var %x = $calc(100 - %dmspec1 [ $+ [ $chan ] ])
        set %dmspec1 [ $+ [ $chan ] ] $calc($dmspec1 [ $+ [ $chan ] ] + %x)
        set %dmturn 2
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has recharged his special attack bar with $+ $read(c:/mircsaves/colors2.txt, s, $chan) %x $+ % $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
      }
      elseif (%dmspec1 [ $+ [ $chan ] ] isnum 100) {
        notice $nick Your special attack bar is already 100%! Please use another command.
        halt
      }
    }
    if ($nick == %dm2 [ $+ [ $chan ] ]) && (%dmturn [ $+ [ $chan ] ] == 2) {
      if (%dmspec2 isnum 0-75) {
        set %dmspec2 [ $+ [ $chan ] ] $calc($dmspec2 [ $+ [ $chan ] ] + 25)
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has recharged his special attack bar with $+ $read(c:/mircsaves/colors2.txt, s, $chan) 25% $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
        set %dmturn [ $+ [ $chan ] ] 1
      }
      elseif (%dmspec2 [ $+ [ $chan ] ] isnum 76-99) {
        var %x = $calc(100 - %dmspec1 [ $+ [ $chan ] ])
        set %dmspec2 [ $+ [ $chan ] ] $calc($dmspec2 [ $+ [ $chan ] ] + %x)
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has recharged his special attack bar with $+ $read(c:/mircsaves/colors2.txt, s, $chan) %x $+ % $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
        set %dmturn [ $+ [ $chan ] ] 1
      }
      elseif (%dmspec2 [ $+ [ $chan ] ] isnum 100) {
        notice $nick Your special attack bar is already 100%! Please use another command.
        halt
      }
    }
  }
}

on *:TEXT:!veracs:#:{
  if ($address($nick,2) == $address($me,2)) || ($nick === Lars`) {
    if ($nick == %dm1 [ $+ [ $chan ] ]) {
      msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ uses veracs, and kills $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ with a $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp2 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ !
    }
    if ($nick == %dm2 [ $+ [ $chan ] ]) {
      msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ uses veracs, and kills $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ with a $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp1 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ !
    }
    inc %dmn [ $+ [ $nick ] ]
    var %p = %dm2 [ $+ [ $chan ] ]
    inc %dml [ $+ [ %p ] ]
    if (%dml [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
    if (%dmn [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
    if (%dml [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
    if (%dmn [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
    var %k = %dmn [ $+ [ $nick ] ]
    var %l = %dml [ $+ [ $nick ] ]
    var %a = %dmn [ $+ [ %p ] ]
    var %s = %dml [ $+ [ %p ] ]
    var %n = $calc(%k / (%k + %l))
    var %x = $calc(%a / (%a + %s))
    msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%n * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
    msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %p  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%x * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
    unset %dm1 $+ $chan
    unset %dm2 $+ $chan
    unset %dmstatus $+ $chan
    unset %dmturn $+ $chan
    unset %dmhp1 $+ $chan
    unset %dmhp2 $+ $chan
    unset %dmspec1 $+ $chan
    unset %dmspec2 $+ $chan
  }
}

on *:TEXT:!eat:#:{
  if ($address($nick,2) == $address($me,2)) || ($nick === Lars`) {
    if ($nick == %dm1 [ $+ [ $chan ] ]) {
      msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ decides to cheat, and heals $+ $read(c:/mircsaves/colors2.txt, s, $chan) 1000  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp!
      set %dmhp1 [ $+ [ $chan ] ] $calc(%dmhp1 [ $+ [ $chan ] ] + 1000)
      msg $chan  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ He has now $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp!
    }
    if ($nick == %dm2 [ $+ [ $chan ] ]) {
      msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ decides to cheat, and heals $+ $read(c:/mircsaves/colors2.txt, s, $chan) 1000  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp!
      set %dmhp2 [ $+ [ $chan ] ] $calc(%dmhp2 [ $+ [ $chan ] ] + 1000)
      msg $chan  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ He has now $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp!
    }
  }
}

on *:TEXT:!ice*:#:{
  if (%dmstatus [ $+ [ $chan ] ] == on) {
    if ($nick == %dm1 [ $+ [ $chan ] ]) && (%dmturn [ $+ [ $chan ] ] == 1) {
      var %hit = $rand(0,30)
      if (%hit >= %dmhp2 [ $+ [ $chan ] ]) {
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has been killed!  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ kills $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ with a crushing $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp2 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ .
        inc %dmn [ $+ [ $nick ] ]
        var %p = %dm2 [ $+ [ $chan ] ]
        inc %dml [ $+ [ %p ] ]
        if (%dml [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
        if (%dmn [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
        var %k = %dmn [ $+ [ $nick ] ]
        var %l = %dml [ $+ [ $nick ] ]
        var %a = %dmn [ $+ [ %p ] ]
        var %s = %dml [ $+ [ %p ] ]
        var %n = $calc(%k / (%k + %l))
        var %x = $calc(%a / (%a + %s))
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%n * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %p  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%x * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
        unset %dm1 $+ $chan
        unset %dm2 $+ $chan
        unset %dmstatus $+ $chan
        unset %dmturn $+ $chan
        unset %dmhp1 $+ $chan
        unset %dmhp2 $+ $chan
        unset %dmspec1 $+ $chan
        unset %dmspec2 $+ $chan
      }
      else {
        set %dmhp2 $+ $chan $calc(%dmhp2 [ $+ [ $chan ] ] - %hit)
        var %x = $rand(1,3)
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ pulls out  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ a master wand  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ and Ice Barrages $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ on  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
        if (%x = 1) {
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has been frozen by  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick $+ 's  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ Ice Barrage! $+ $read(c:/mircsaves/colors2.txt, s, $chan) $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ is now able to do another turn!
        }
        else {
          set %dmturn $+ $chan 2
        }
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has now $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp left!
      }
    }
    elseif ($nick == %dm2 [ $+ [ $chan ] ]) && (%dmturn [ $+ [ $chan ] ] == 2) {
      var %hit = $rand(0,30)
      if (%hit >= %dmhp1 [ $+ [ $chan ] ]) {
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has been killed!  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ kills  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ with a crushing $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp1 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ .
        inc %dmn [ $+ [ $nick ] ]
        var %p = %dm1 [ $+ [ $chan ] ]
        inc %dml [ $+ [ %p ] ]
        if (%dml [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
        if (%dmn [ $+ [ $nick ] ] == $null) set %dml $+ $nick 0
        if (%dml [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
        if (%dmn [ $+ [ %p ] ] == $null) set %dmn $+ %p 0
        var %k = %dmn [ $+ [ $nick ] ]
        var %l = %dml [ $+ [ $nick ] ]
        var %a = %dmn [ $+ [ %p ] ]
        var %s = %dml [ $+ [ %p ] ]
        var %n = $calc(%k / (%k + %l))
        var %x = $calc(%a / (%a + %s))
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ $nick ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%n * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %p  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmn [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ wins and $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dml [ $+ [ %p ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ losses so far! This is a win percentage of $+ $read(c:/mircsaves/colors2.txt, s, $chan) $calc(%x * 100) $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ $chr(37) $+ !
        unset %dm1 $+ $chan
        unset %dm2 $+ $chan
        unset %dmstatus $+ $chan
        unset %dmturn $+ $chan
        unset %dmhp1 $+ $chan
        unset %dmhp2 $+ $chan
        unset %dmspec1 $+ $chan
        unset %dmspec2 $+ $chan
      }
      else {
        set %dmhp1 $+ $chan $calc(%dmhp1 [ $+ [ $chan ] ] - %hit)
        var %x = $rand(1,3)
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ pulls out  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ a master wand  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ and hits $+ $read(c:/mircsaves/colors2.txt, s, $chan) %hit  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ on  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ] $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
        if (%x = 1) {
          msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has been frozen by  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick $+ 's  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ Ice Barrage! $+ $read(c:/mircsaves/colors2.txt, s, $chan) $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ is now able to do another turn!
        }
        else {
          set %dmturn $+ $chan 1
        }
        msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ has now $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dmhp1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ hp left!
      }
    }
  }
}

on *:TEXT:!turn:#:{
  if ($address($nick,2) == $address($me,2)) || ($nick === Lars`) {
    if (%dmturn [ $+ [ $chan ] ] == 2) {
      set %dmturn [ $+ [ $chan ] ] 1
      msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ decides to cheat and gives the turn to $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dm1 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
    }
    elseif (%dmturn [ $+ [ $chan ] ] == 1) {
      set %dmturn [ $+ [ $chan ] ] 2
      msg $chan  $+ $read(c:/mircsaves/colors2.txt, s, $chan) $+ $nick  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ decides to cheat and gives the turn to $+ $read(c:/mircsaves/colors2.txt, s, $chan) %dm2 [ $+ [ $chan ] ]  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ !
    }
  }
}

on *:TEXT:!colo*:#:{
  if (%status [ $+ [ $chan ] ] [ $+ [ $nick ] ] >= 4) && (%aaddress [ $+ [ $chan ] ] [ $+ [ $nick ] ] == $address($nick,3) || %aaddress1 [ $+ [ $chan ] ] [ $+ [ $nick ] ] == $address($nick,3) || %aaddress2 [ $+ [ $chan ] ] [ $+ [ $nick ] ] == $address($nick,3) || %aaddress3 [ $+ [ $chan ] ] [ $+ [ $nick ] ] == $address($nick,3) || %aaddress4 [ $+ [ $chan ] ] [ $+ [ $nick ] ] == $address($nick,3)) || ($nick isop $chan) || ($address($me,2) == $address($nick,2)) {
    if ($2 !isnum) || ($3 !isnum) || ($2 > 15) || ($3 > 15) {
      notice $nick The colors have to be between 0 and 15! For example: !colors 3 7.
    }
    else {
      if ($2 isnum 0-15) {
        write -ds $+ $chan c:/mircsaves/colors1.txt
        write c:/mircsaves/colors1.txt $chan $2
      }
      if ($3 isnum 0-15) {
        write -ds $+ $chan c:/mircsaves/colors2.txt
        write c:/mircsaves/colors2.txt $chan $3
      }
      msg $chan  $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ The colors on $+ $read(c:/mircsaves/colors2.txt, s, $chan) $chan $+  $+ $read(c:/mircsaves/colors1.txt, s, $chan) are now like $+ $read(c:/mircsaves/colors2.txt, s, $chan) these $+ $read(c:/mircsaves/colors1.txt, s, $chan) $+ .
    }
  }
}