Something

alias playerhpbar {
  set %playerhp $1 
  if (%playerhp == 0 ) { msg $2 9,9-------------------- } { HALT }
  if (%playerhp isnum 1-5 ) { msg $2 9,9-4,4------------------- } { HALT }
  if (%playerhp isnum 5-10 ) { msg $2 9,9--4,4------------------ } { HALT }
  if (%playerhp isnum 10-15 ) { msg $2 9,9---4,4----------------- } { HALT } 
  if (%playerhp isnum 15-20 ) { msg $2 9,9----4,4---------------- } { HALT } 
  if (%playerhp isnum 20-25 ) { msg $2 9,9-----4,4--------------- } { HALT }
  if (%playerhp isnum 25-30 ) { msg $2 9,9------4,4-------------- } { HALT }
  if (%playerhp isnum 30-35 ) { msg $2 9,9-------4,4------------- } { HALT }
  if (%playerhp isnum 35-40 ) { msg $2 9,9--------4,4------------ } { HALT }
  if (%playerhp isnum 40-45 ) { msg $2 9,9---------4,4----------- } { HALT }
  if (%playerhp isnum 45-50 ) { msg $2 9,9----------4,4---------- } { HALT }
  if (%playerhp isnum 50-55 ) { msg $2 9,9-----------4,4--------- } { HALT }
  if (%playerhp isnum 55-60 ) { msg $2 9,9------------4,4-------- } { HALT }
  if (%playerhp isnum 60-65 ) { msg $2 9,9-------------4,4------- } { HALT }
  if (%playerhp isnum 65-70 ) { msg $2 9,9--------------4,4------ } { HALT }
  if (%playerhp isnum 70-75 ) { msg $2 9,9---------------4,4----- } { HALT }
  if (%playerhp isnum 75-80 ) { msg $2 9,9----------------4,4---- } { HALT }
  if (%playerhp isnum 80-85 ) { msg $2 9,9-----------------4,4--- } { HALT }
  if (%playerhp isnum 85-90 ) { msg $2 9,9------------------4,4-- } { HALT }
  if (%playerhp isnum 90-95 ) { msg $2 9,9-------------------4,4- } { HALT }
  if (%playerhp isnum 95-99 ) { msg $2 9,9--------------------4,4 } { HALT }
}
alias hpbr return $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*$1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-$1)))))
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,12unfroz,2froz)
    HALT
    goto two
  }
  halt
  else { HALT }
  :one
  set %hit $r(1,40)
  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!
    /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,40)
  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!
    /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,35) 
  set %hit2 $r(1,35)
  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!
    /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,35) 
    set %hit2 $r(1,35)
    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!
      /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,40) 
  set %hit2 $r(10,40)
  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!
    /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(1,40) 
    set %hit2 $r(1,40)
    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 $+ %player2 15with his darkbow leaving 4 $+ %player2 15with4 0hp!
      /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,12unfroz,2froz)
    HALT
    goto two
  }
  halt
  else { HALT }
  :one
  set %hit $r(1,35) 
  set %hit1 $r(1,35)
  set %hit2 $r(1,35)
  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!
    /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,35) 
    set %hit1 $r(1,35)
    set %hit2 $r(1,35)
    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!
      /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,12unfroz,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!
    /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 $+ %player2 15with his dharok leaving 4 $+ %player2 15with4 0hp!
    /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 dds 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,12unfroz,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!
    /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!
    /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!
    /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!
    if (%freeze == 1) { set %frez [ $+ [ %player2 ] ] Frozen }
    else { 
      set %frez [ $+ [ %player2 ] ] Not Frozen 
    } 
    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 $nick hits a %hit on %player1 leaving %player1 with 0hp!
    /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!
    if (%freeze == 1) { set %frez [ $+ [ %player1 ] ] Frozen }
    else {
      set %frez [ $+ [ %player1 ] ] Not Frozen
    } 
    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,12unfroz,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!
    /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 $+ %player2 15with his guthans spear leaving 4 $+ %player2 15with4 0hp!
    /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 $nick hits a %hit on %player2 with his blood barrage leaving %player2 with 0hp!
    /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 $nick hits a %hit on with his blood barrage %player1 leaving %player1 with 0hp! 
    /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
}