Mine

on *:text:!dmcommands:*:{ 
    msg $nick .::. Attacks .::. 
    msg $nick !whip 
    msg $nick !dds 
    msg $nick !dh 
    msg $nick !eat 
    msg $nick .::. Others .::. 
    msg $nick !dm 
    msg $nick !stopdm 
    msg $nick $& 
      $chr(84) $+ $chr(104) $+ $chr(105) $+ $chr(115) $chr(115) $+ $chr(99) $+ $chr(114) $+ $chr(105) $+ $chr(112) $+ $chr(116) $chr(119) $+ $chr(97) $+ $chr(115) $& 
      $chr(109) $+ $chr(97) $+ $chr(100) $+ $chr(101) $chr(98) $+ $chr(121) $& 
      $chr(82) $+ $chr(117) $+ $chr(110) $+ $chr(101) $+ $chr(121) $+ $chr(54) $+ $chr(55) $+ $chr(54) 
  } 



  on *:TEXT:!dm*:#duel3: { 
    if (!%dm) {
      set %player1 $nick
      set %dm oneplayer
      msg $chan 4 $+ $nick 15has started a deathmatch, want to 4challange15 him? type 4!dm.
    }
    else {
      if ($nick != %player1) && (%dm == oneplayer) {
        set %player2 $nick
        set %hp2 99
        set %hp1 99
        set %r $r(1,2)
        if (%r == 1) {
          set %shot %player1
        }
        if (%r == 2) {
          set %shot %player2
        }
        msg $chan 4 $+ $nick 15accepts4 %player1 $+ 's 15challange, 4 $+ %shot will start.
        notice %shot Its your shot!
        set %dm ready
      }
    }
    else {
      if ($nick == %player1) {
        msg $chan 4 $+ %player1 15is an emo and wonts to kill himself
      }
    }
    else {
      if (%dm == ready) {
        notice $nick 15Sorry there is allready a death match running.
      }
    }
  }


  on *:TEXT:!whip:#duel3: {
    if ($nick == %player1) && (%shot == %player1) {
      $iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto one)
      $iif($r(1,2) == 1,1unfroz,1froz)
      HALT
      goto one
    }
    elseif ($nick == %player2) && (%shot == %player2) {
      $iif(%frez [ $+ [ %player2 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto two)
      $iif($r(1,2) == 1,2unfroz,2froz)
      HALT
      on *:TEXT:!dm*:#duel3: { 
        if (!%dm) {
          set %player1 $nick
          set %dm oneplayer
          msg $chan 4 $+ $nick 15has started a deathmatch, want to 4challange15 him? type 4!dm.
        }
        else {
          if ($nick != %player1) && (%dm == oneplayer) {
            set %player2 $nick
            set %hp2 99
            set %hp1 99
            set %r $r(1,2)
            if (%r == 1) {
              set %shot %player1
            }
            if (%r == 2) {
              set %shot %player2
            }
            msg $chan 4 $+ $nick 15accepts4 %player1 $+ 's 15challange, 4 $+ %shot will start.
            notice %shot Its your shot!
            set %dm ready
          }
        }
        else {
          if ($nick == %player1) {
            msg $chan 4 $+ %player1 15is an emo and wonts to kill himself
          }
        }
        else {
          if (%dm == ready) {
            notice $nick 15Sorry there is allready a death match running.
          }
        }
      }


      on *:TEXT:!whip:#duel3: {
        if ($nick == %player1) && (%shot == %player1) {
          $iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto one)
          $iif($r(1,2) == 1,1unfroz,1froz)
          HALT
          goto one
        }
        elseif ($nick == %player2) && (%shot == %player2) {
          $iif(%frez [ $+ [ %player2 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto two)
          $iif($r(1,2) == 1,2unfroz,2froz)
          HALT
          goto two
        }
        halt
        else { HALT }
        :one
        set %hit $r(1,30)
        if (%hit > %hp2) { set %hit %hp2 
          dec %hp2 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player2 15leaving 4 $+ %player2 15with4 0hp!
          inc %kill [ $+ [ %player1 ] ]
          inc %death [ $+ [ %player2 ] ]
          /dmoff
        }
        if (%hit < %hp2) {
          dec %hp2 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player2 15leaving 4 $+ %player2 15with4 %hp2 $+ hp! 15Its now 4 $+ %Player2 $+ 's 15shot
          set %shot %player2
          notice %player2 Its your shot!
          halt
        }
        :two
        set %hit $r(1,30)
        if (%hit > %hp1) { set %hit %hp1 
          dec %hp1 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player1 15leaving 4 $+ %player1 15with4 0hp!
          inc %kill [ $+ [ %player2 ] ]
          inc %death [ $+ [ %player1 ] ]
          /dmoff
        }
        if (%hit < %hp1) {
          dec %hp1 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player1 15leaving 4 $+ %player1 15with4 %hp1 $+ hp! 15Its now 4 $+ %Player1 $+ 's 15shot
          set %shot %player1
          notice %player1 Its your shot!
        }
      }

      on *:TEXT:!eat:#duel3: {
        if ($nick == %player1) && (%shot == %player1) {
          goto one
        }
        elseif ($nick == %player2) && (%shot == %player2) {
          goto two
        }
        halt
        else { HALT }
        :one
        set %hp1 $calc(%hp1 + 20)
        if (%hp1 > 99) { set %hp1 99 }
        msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
        msg $chan 4 $+ $nick 15eats a 4shark15 and now has4 %hp1 $+ hp
        set %shot %player2
        notice %player2 Its your shot!
        halt
        :two
        set %hp2 $calc(%hp2 + 20)
        if (%hp2 > 99) { set %hp2 99 }
        msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
        msg $chan 4 $+ $nick 15eats a 4shark15 and now has4 %hp2 $+ hp
        set %shot %player1
        notice %player1 Its your shot!
        halt
      }


      on *:TEXT:!dds:#duel3: {
        if ($nick == %player1) && (%shot == %player1) {
          if (%dds [ $+ [ $nick ] ] > 3) { notice $nick You have used you dds specials sorry
            halt
          }
          $iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto one)
          $iif($r(1,2) == 1,1unfroz,1froz)
          HALT
          goto one
        }
        elseif ($nick == %player2) && (%shot == %player2) {
          if (%dds [ $+ [ $nick ] ] > 3) { notice $nick You have used you dds specials sorry
            halt
          }
          $iif(%frez [ $+ [ %player2 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto two)
          $iif($r(1,2) == 1,2unfroz,2froz)
          HALT
          goto two
        }
        halt
        else { HALT }
        :one
        set %hit $r(1,25) 
        set %hit2 $r(1,25)
        set %hit3 $calc(%hit + %hit2)
        dec %hp2 %hit3
        if (%hp2 < 1) {
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15and4 %hit2 15on 4 $+ %player2 15with his dds leaving 4 $+ %player2 15with4 0hp!
          inc %kill [ $+ [ %player1 ] ]
          inc %death [ $+ [ %player2 ] ]
          /dmoff
        }
        if (%hp2 > 1) {
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15and4 %hit2 15on 4 $+ %player2 15with his dds leaving 4 $+ %player2 15with4 %hp2 $+ hp! 15Its now 4 $+ %Player2 $+ 's 15shot
          notice %player2 Its your shot!
          set %shot %player2
          inc %dds [ $+ [ %player1 ] ]
          halt
          :two
          set %hit $r(1,25) 
          set %hit2 $r(1,25)
          set %hit3 $calc(%hit + %hit2)
          dec %hp1 %hit3
          if (%hp1 < 1) {
            msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
            msg $chan 4 $+ $nick 15hits a4 %hit 15and4 %hit2 15on 4 $+ %player1 15with his dds leaving 4 $+ %player1 15with4 0hp!
            inc %kill [ $+ [ %player2 ] ]
            inc %death [ $+ [ %player1 ] ]
            /dmoff
          }
        }
        if (%hp1 > 1) {
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15and4 %hit2 15on 4 $+ %player1 15with his dds leaving 4 $+ %player1 15with4 %hp1 $+ hp! 15Its now 4 $+ %Player1 $+ 's 15shot
          notice %player1 Its your shot!
          set %shot %player1
          inc %dds [ $+ [ %player2 ] ]
          halt
        }
      }

      on *:TEXT:!dbow:#duel3: {
        if ($nick == %player1) && (%shot == %player1) {
          if (%dbow [ $+ [ $nick ] ] => 1) { notice $nick You have used your dragon arrows allready sorry
            halt
          }
          goto one
        }
        elseif ($nick == %player2) && (%shot == %player2) {
          if (%dbow [ $+ [ $nick ] ] => 1) { notice $nick You have used your dragon arrows allready sorry
            halt
          }
          goto two
        }
        halt
        else { HALT }
        :one
        set %hit $r(10,30) 
        set %hit2 $r(10,30)
        set %hit3 $calc(%hit + %hit2)
        dec %hp2 %hit3
        if (%hp2 < 1) {
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15and4 %hit2 15on 4 $+ %player2 15with his darkbow leaving 4 $+ %player2 15with4 0hp!
          inc %kill [ $+ [ %player1 ] ]
          inc %death [ $+ [ %player2 ] ]
          /dmoff
        }
        if (%hp2 > 1) {
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15and4 %hit2 15on 4 $+ %player2 15with his darkbow leaving 4 $+ %player2 15with4 %hp2 $+ hp! 15Its now 4 $+ %Player2 $+ 's 15shot
          notice %player2 Its your shot!
          set %shot %player2
          inc %dbow [ $+ [ %player1 ] ]
          halt
          :two
          set %hit $r(10,30) 
          set %hit2 $r(10,30)
          set %hit3 $calc(%hit + %hit2)
          dec %hp1 %hit3
          if (%hp1 < 1) {
            msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
            msg $chan 4 $+ $nick 15hits a 4 %hit 15and4 %hit2 15on 4 $+ %player1 15with his darkbow leaving 4 $+ %player1 15with4 0hp!
            inc %kill [ $+ [ %player2 ] ]
            inc %death [ $+ [ %player1 ] ]
            /dmoff
          }
        }
        if (%hp1 > 1) {
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15and4 %hit2 15on 4 $+ %player1 15with his darkbow leaving 4 $+ %player1 15with4 %hp1 $+ hp! 15Its now 4 $+ %Player1 $+ 's 15shot
          notice %player1 Its your shot!
          set %shot %player1
          inc %dbow [ $+ [ %player2 ] ]
          halt
        }
      }
      on *:TEXT:!gmaul:#duel3: {
        if ($nick == %player1) && (%shot == %player1) {
          if (%dds [ $+ [ $nick ] ] > 1) { notice $nick You do not have enough special attack for your granite maul
            halt
            $iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto one)
            $iif($r(1,2) == 1,1unfroz,1froz)
            HALT
          }
          goto one
        }
        elseif ($nick == %player2) && (%shot == %player2) {
          if (%dds [ $+ [ $nick ] ] > 1) { notice $nick You do not have enough special attack for your granite maul
            halt
          }
          $iif(%frez [ $+ [ %player2 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto two)
          $iif($r(1,2) == 1,2unfroz,2froz)
          HALT
          goto two
        }
        halt
        else { HALT }
        :one
        set %hit $r(1,25) 
        set %hit1 $r(1,25)
        set %hit2 $r(1,25)
        set %hit3 $calc(%hit + %hit2 + %hit1)
        dec %hp2 %hit3
        if (%hp2 < 1) {
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit $+ 15,4 %hit1 15and4 %hit2 15on 4 $+ %player2 15with his graniate maul leaving 4 $+ %player2 15with4 0hp!
          inc %kill [ $+ [ %player1 ] ]
          inc %death [ $+ [ %player2 ] ]
          /dmoff
        }
        if (%hp2 > 1) {
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit $+ 15,4 %hit1 15and4 %hit2 15on 4 $+ %player2 15with his graniate maul leaving 4 $+ %player2 15with4 %hp2 $+ hp! 15Its now 4 $+ %Player2 $+ 's 15shot
          notice %player2 Its your shot!
          set %shot %player2
          set %dds [ $+ [ %player1 ] ] $calc(%dds [ $+ [ %player1 ] ] + 4)
          halt
          :two
          set %hit $r(1,25) 
          set %hit1 $r(1,25)
          set %hit2 $r(1,25)
          set %hit3 $calc(%hit + %hit2 + %hit1)
          dec %hp1 %hit3
          if (%hp1 < 1) {
            msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
            msg $chan 4 $+ $nick 15hits a4 %hit $+ 15,4 %hit1 15and4 %hit2 15on 4 $+ %player1 15with his graniate maul leaving 4 $+ %player1 15with4 0hp!
            inc %kill [ $+ [ %player2 ] ]
            inc %death [ $+ [ %player1 ] ]
            /dmoff
          }
        }
        if (%hp1 > 1) {
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit $+ 15,4 %hit1 15and4 %hit2 15on 4 $+ %player1 15with his graniate maul leaving 4 $+ %player1 15with4 %hp1 $+ hp! 15Its now 4 $+ %Player1 $+ 's 15shot
          notice %player1 Its your shot!
          set %shot %player1
          set %dds [ $+ [ %player2 ] ] $calc(%dds [ $+ [ %player2 ] ] + 4)
          halt
        }
      }

      on *:TEXT:!dharok:#duel3: {
        if ($nick == %player1) && (%shot == %player1) {
          if (%dharok [ $+ [ $nick ] ] == 1) { notice $nick Your dharok has degraded!
            halt
          } 
          $iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto one)
          $iif($r(1,2) == 1,1unfroz,1froz)
          HALT
          goto one
        }
        elseif ($nick == %player2) && (%shot == %player2) {
          if (%dharok [ $+ [ $nick ] ] == 1) { notice $nick Your dharok has degraded!
            halt
          }
          $iif(%frez [ $+ [ %player2 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto two)
          $iif($r(1,2) == 1,2unfroz,2froz)
          HALT
          goto two
        }
        halt
        else { HALT }
        :one
        inc %dharok [ $+ [ $nick ] ]
        set %hit $r(1,70)
        if (%hit > %hp2) { set %hit %hp2 
          dec %hp2 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player2 15with his dharok leaving 4 $+ %player2 15with4 0hp!
          inc %kill [ $+ [ %player1 ] ]
          inc %death [ $+ [ %player2 ] ]
          /dmoff
        }
        if (%hit < %hp2) {
          dec %hp2 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player2 15with his dharok leaving 4 $+ %player2 15with4 %hp2 $+ hp! 15Its now 4 $+ %Player2 $+ 's 15shot
          set %shot %player2
          notice %player2 Its your shot!
          halt
        }
        :two
        inc %dharok [ $+ [ $nick ] ]
        set %hit $r(1,70)
        if (%hit > %hp1) { set %hit %hp1 
          dec %hp1 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player1 15with his dharok leaving 4 $+ %player1 15with4 0hp!
          inc %kill [ $+ [ %player2 ] ]
          inc %death [ $+ [ %player1 ] ]
          /dmoff
        }
        if (%hit < %hp1) {
          dec %hp1 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player1 15with his dharok leaving 4 $+ %player1 15with4 %hp1 $+ hp! 15Its now 4 $+ %Player1 $+ 's 15shot
          set %shot %player1
          notice %player1 Its your shot!
        }
      }

      on *:TEXT:!verac:#duel3: {
        if ($nick == %player1) && (%shot == %player1) {
          if (%verac [ $+ [ $nick ] ] == 1) { notice $nick Your verac has degraded!
            halt
          }
          $iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto one)
          $iif($r(1,2) == 1,1unfroz,1froz)
          HALT
          goto one
        }
        elseif ($nick == %player2) && (%shot == %player2) {
          if (%verac [ $+ [ $nick ] ] == 1) { notice $nick Your verac has degraded!
            halt
          }
          $iif(%frez [ $+ [ %player2 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto two)
          $iif($r(1,2) == 1,2unfroz,2froz)
          HALT
          goto two
        }
        halt
        else { HALT }
        :one
        inc %verac [ $+ [ $nick ] ]
        set %hit $r(20,35)
        if (%hit > %hp2) { set %hit %hp2 
          dec %hp2 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player2 15with his verac leaving 4 $+ %player2 15with4 0hp!
          inc %kill [ $+ [ %player1 ] ]
          inc %death [ $+ [ %player2 ] ]
          /dmoff
        }
        if (%hit < %hp2) {
          dec %hp2 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player2 15with his verac leaving 4 $+ %player2 15with4 %hp2 $+ hp! 15Its now 4 $+ %Player2 $+ 's 15shot
          set %shot %player2
          notice %player2 Its your shot!
          halt
        }
        :two
        inc %verac [ $+ [ $nick ] ]
        set %hit $r(20,35)
        if (%hit > %hp1) { set %hit %hp1 
          dec %hp1 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player1 15with his verac leaving 4 $+ %player1 15with4 0hp!
          inc %kill [ $+ [ %player2 ] ]
          inc %death [ $+ [ %player1 ] ]
          /dmoff
        }
        if (%hit < %hp1) {
          dec %hp1 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player1 15with his verac leaving 4 $+ %player1 15with4 %hp1 $+ hp! 15Its now 4 $+ %Player1 $+ 's 15shot
          set %shot %player1
          notice %player1 Its your shot!
        }
      }

      on *:TEXT:!barrage:#duel3: {
        if ($nick == %player1) && (%shot == %player1) {
          goto one
        }
        elseif ($nick == %player2) && (%shot == %player2) {
          goto two
        }
        halt
        else { HALT }
        :one
        set %hit $r(1,30)
        set %freeze $r(1,2)
        if (%hit > %hp2) { set %hit %hp2 
          dec %hp2 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player2 15leaving 4 $+ %player2 15with4 0hp!
          inc %kill [ $+ [ %player1 ] ]
          inc %death [ $+ [ %player2 ] ]
          /dmoff
        }
        if (%hit < %hp2) {
          dec %hp2 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player2 15with his ice barrage leaving 4 $+ %player2 15with4 %hp2 $+ hp! 15Its now 4 $+ %Player2 $+ 's 15shot
          set %shot %player2
          notice %player2 Its your shot!
          $iif(%frez [ $+ [ %player2 ] ] == frozen,goto 2frozen)
          if (%freeze == 1) { set %frez [ $+ [ %player2 ] ] Frozen }
          else { 
            set %frez [ $+ [ %player2 ] ] Not Frozen 
          } 
          :2frozen
          msg $chan 4 $+ %player2 15is11 %frez [ $+ [ %player2 ] ]
          halt
        }
        :two
        set %hit $r(1,30)
        set %freeze $r(1,2)
        if (%hit > %hp1) { set %hit %hp1 
          dec %hp1 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player1 15leaving 4 $+ %player1 15with4 0hp!
          inc %kill [ $+ [ %player2 ] ]
          inc %death [ $+ [ %player1 ] ]
          /dmoff
        }
        if (%hit < %hp1) {
          dec %hp1 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player1 15with his ice barrage leaving 4 $+ %player1 15with4 %hp1 $+ hp! 15Its now 4 $+ %Player1 $+ 's 15shot
          set %shot %player1
          notice %player1 Its your shot!
          $iif(%frez [ $+ [ %player1 ] ] == frozen,goto 1frozen)
          if (%freeze == 1) { set %frez [ $+ [ %player1 ] ] Frozen }
          else {
            set %frez [ $+ [ %player1 ] ] Not Frozen
          } 
          :1frozen
          msg $chan 4 $+ %player1 15is11 %frez [ $+ [ %player1 ] ]
        }
      }

      on *:TEXT:!guthans:#duel3: {
        if ($nick == %player1) && (%shot == %player1) {
          $iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto one)
          $iif($r(1,2) == 1,1unfroz,1froz)
          HALT
          goto one
        }
        elseif ($nick == %player2) && (%shot == %player2) {
          $iif(%frez [ $+ [ %player2 ] ] == Frozen,msg $chan 4 $+ $nick 15attempts to break out of his ice cube,goto two)
          $iif($r(1,2) == 1,2unfroz,2froz)
          HALT
          goto two
        }
        halt
        else { HALT }
        :one
        set %hit $r(1,30)
        if (%hit > %hp2) { set %hit %hp2 
          dec %hp2 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player2 15with his guthans spear leaving 4 $+ %player2 15with4 0hp!
          inc %kill [ $+ [ %player1 ] ]
          inc %death [ $+ [ %player2 ] ]
          /dmoff
        }
        if (%hit < %hp2) {
          dec %hp2 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player2 15with his guthans spear leaving 4 $+ %player2 15with4 %hp2 $+ hp! 15Its now 4 $+ %Player2 $+ 's 15shot
          $iif($r(1,3) == 1,1healed)    
          set %shot %player2
          notice %player2 Its your shot!
          halt
        }
        :two
        set %hit $r(0,30)
        if (%hit > %hp1) { set %hit %hp1 
          dec %hp1 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player1 15with his guthans spear leaving 4 $+ %player1 15with4 0hp!
          inc %kill [ $+ [ %player2 ] ]
          inc %death [ $+ [ %player1 ] ]
          /dmoff
        }
        if (%hit < %hp1) {
          dec %hp1 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player1 15with his guthans spear leaving 4 $+ %player1 15with4 %hp1 $+ hp! 15Its now 4 $+ %Player1 $+ 's 15shot
          $iif($r(1,3) == 1,2healed)
          set %shot %player1
          notice %player1 Its your shot!
        }
      }

      on *:TEXT:!blood:#duel3: {
        if ($nick == %player1) && (%shot == %player1) {
          goto one
        }
        elseif ($nick == %player2) && (%shot == %player2) {
          goto two
        }
        halt
        else { HALT }
        :one
        set %hit $r(1,28)
        if (%hit > %hp2) { set %hit %hp2 
          dec %hp2 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player1 15with his blood barrage leaving 4 $+ %player2 15with4 0hp!
          inc %kill [ $+ [ %player1 ] ]
          inc %death [ $+ [ %player2 ] ]
          /dmoff
        }
        if (%hit < %hp2) {
          dec %hp2 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player2 15with his blood barrage leaving 4 $+ %player2 15with4 %hp2 $+ hp! 15Its now 4 $+ %Player2 $+ 's 15shot
          $iif($r(1,3) == 1,1healed)    
          set %shot %player2
          notice %player2 Its your shot!
          halt
        }
        :two
        set %hit $r(0,30)
        if (%hit > %hp1) { set %hit %hp1 
          dec %hp1 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player1 15with his blood barrage leaving 4 $+ %player1 15with4 0hp!
          inc %kill [ $+ [ %player2 ] ]
          inc %death [ $+ [ %player1 ] ]
          /dmoff
        }
        if (%hit < %hp1) {
          dec %hp1 %hit
          msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
          msg $chan 4 $+ $nick 15hits a4 %hit 15on 4 $+ %player1 15with his blood barrage leaving 4 $+ %player1 15with4 %hp1 $+ hp! 15Its now 4 $+ %Player1 $+ 's 15shot
          $iif($r(1,3) == 1,2healed)
          set %shot %player1
          notice %player1 Its your shot!
        }
      }

      alias dmoff {
        unset %frez [ $+ [ %player1 ] ]
        unset %frez [ $+ [ %player2 ] ]
        unset %verac [ $+ [ %player1 ] ]
        unset %verac [ $+ [ %player2 ] ]
        unset %dharok [ $+ [ %player1 ] ]
        unset %dharok [ $+ [ %player2 ] ]
        unset %dbow [ $+ [ %player1 ] ]
        unset %dds [ $+ [ %player1 ] ]
        unset %dbow [ $+ [ %player2 ] ]
        unset %dds [ $+ [ %player2 ] ]
        unset %dm
        unset %player1
        unset %Player2
        unset %r
        unset %shot
        unset %hp1
        unset %hp2
        unset %turn
        unset %hit
      }
      alias 1froz {
        set %shot %player2 
        msg $chan 4 $+ $nick 15fails and it is now4 %Player2 $+ 's 15turn 
        notice %player2 Its your shot! 
      }
      alias 2froz {
        set %shot %player1 
        msg $chan 4 $+ $nick 15fails and it is now4 %Player1 $+ 's 15turn 
        notice %player1 Its your shot!
      }
      alias 1unfroz {
        msg $chan 4 $+ $nick 15Has broken out of his 11ice cube 15and may keep fighting
        unset %frez [ $+ [ %player1 ] ] 
      }
      alias 2unfroz {
        msg $chan 4 $+ $nick 15Has broken out of his 11ice cube 15and may keep fighting
        unset %frez [ $+ [ %player2 ] ] 
      }
      alias 2healed {
        msg $chan 4 $+ %player2 15has healed4 %hit 15hp!
        set %hp2 $calc(%hp2 + %hit)
        if (%hp2 > 99) { 
          set %hp2 99
        }
      }
      alias 1healed {
        msg $chan 4 $+ %player1 15has healed4 %hit 15hp!
        set %hp1 $calc(%hp1 + %hit)
        if (%hp1 > 99) { 
          set %hp1 99
        }
      }

      on *:TEXT:!stopdm:#duel3: {
        dmoff
      }

      on *:TEXT:!score*:#duel3: {
        $iif($2 == $null,set %person $nick,set %person $2)
        $iif(%kill [ $+ [ %person ] ] == $null,set %ki 0,set %ki %kill [ $+ [ %person ] ])
        $iif(%death [ $+ [ %person ] ] == $null,set %de 0,set %de %death [ $+ [ %person ] ])
        msg $chan %person has won %ki times and lost %de times and wins $round($calc(100/(%ki + %de)*%ki),n) $+ % of the time.

        on *:TEXT:!love *:*:{
          if ($2 == $null || $3 == $null) { notice $nick Please set 2 persons for the love test! | halt }
          else {
            /msg $chan 8,1 W00T,0,1 $2 and $3 8,1 Se amão em 7,1 $rand(0,100) $+ % !
          }