Someone

on *:TEXT:!dmcommands*:#: {
  msg $nick !whip - Damage 0-40
  msg $nick !dds - Damage 0-35 0-35 - 25% spec bar
  msg $nick !dbow - Damage 0-40 0-40 - 1 shot
  msg $nick !gmaul - Damage 0-35 0-35 0-35 - 100% spec bar
  msg $nick !dharok - Damage 0-70 - 1 shot
  msg $nick !verac - Damage 20-35 - 1 shot
  msg $nick !barrage - Damage 0-30 - Can freeze
  msg $nick !guthans - Damage 1-30 - 33.3% chance of healing
  msg $nick !eat - Heals 20
}
on *:TEXT:!dm:#: { 
  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:#: {
  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:#: {
  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:#: {
  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:#: {
  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:#: {
  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:#: {
  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:#: {
  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:#: {
  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:#: {
  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:#: {
  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:!offdm:#: {
  dmoff
}
on *:TEXT:!score*:#: {
  $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:!win*:#: {
  if ($nick == apple) {
    $iif($2 == $null,set %person $nick,set %person $2)
  }
  if (%person == %player1) {
    msg $chan %person wins the dm with a %hp2 using his shotgun
    dmoff
  }
  if (%person == %player2) {
    msg $chan %person wins the dm with a %hp1 using his shotgun
    dmoff
  }
  else {
    notice $nick %person isnt in the dm
  }
}