Miscellany

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 70
}
on *:TEXT:!dm*:#: {
  if (!%dm) {
    set %player1 $nick
    set %dm oneplayer
    msg $chan $+ $nick has started a deathmatch, want to challange him? type !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 $+ $nick accepts %player1 $+ 's challange, $+ %shot will start.
      notice %shot Its your shot!
      set %dm ready
    }
  }
  else {
    if ($nick == %player1) {
      msg $chan $+ %player1 is an emo and wonts to kill himself
    }
  }
  else {
    if (%dm == ready) {
      notice $nick Sorry there is allready a death match running.
    }
  }
}
on *:TEXT:!whip:#: {
  if ($nick == %player1) && (%shot == %player1) {
    $iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan $+ $nick attempts 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 $+ $nick attempts 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 $+ $nick hits a %hit on $+ %player2 leaving $+ %player2 with 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 $+ $nick hits a %hit on $+ %player2 leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
    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 $+ $nick hits a %hit on $+ %player1 leaving $+ %player1 with 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 $+ $nick hits a %hit on $+ %player1 leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
    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 $+ $nick eats a shark and now has %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 $+ $nick eats a shark and now has %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 $+ $nick attempts 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 $+ $nick attempts 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 $+ $nick hits a %hit and %hit2 on $+ %player2 with his dds leaving $+ %player2 with 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 $+ $nick hits a %hit and %hit2 on $+ %player2 with his dds leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
    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 $+ $nick hits a %hit and %hit2 on $+ %player1 with his dds leaving $+ %player1 with 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 $+ $nick hits a %hit and %hit2 on $+ %player1 with his dds leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
    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 $+ $nick hits a %hit and %hit2 on $+ %player2 with his darkbow leaving $+ %player2 with 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 $+ $nick hits a %hit and %hit2 on $+ %player2 with his darkbow leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
    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 $+ $nick hits a %hit and %hit2 on $+ %player1 with his darkbow leaving $+ %player1 with 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 $+ $nick hits a %hit and %hit2 on $+ %player1 with his darkbow leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
    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 $+ $nick attempts 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 $+ $nick attempts 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 $+ $nick hits a %hit $+ , %hit1 and %hit2 on $+ %player2 with his graniate maul leaving $+ %player2 with 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 $+ $nick hits a %hit $+ , %hit1 and %hit2 on $+ %player2 with his graniate maul leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
    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 $+ $nick hits a %hit $+ , %hit1 and %hit2 on $+ %player1 with his graniate maul leaving $+ %player1 with 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 $+ $nick hits a %hit $+ , %hit1 and %hit2 on $+ %player1 with his graniate maul leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
    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 $+ $nick attempts 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 $+ $nick attempts 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 $+ $nick hits a %hit on $+ %player2 with his dharok leaving $+ %player2 with 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 $+ $nick hits a %hit on $+ %player2 with his dharok leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
    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 $+ $nick hits a %hit on $+ %player1 with his dharok leaving $+ %player1 with 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 $+ $nick hits a %hit on $+ %player1 with his dharok leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
    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 $+ $nick attempts 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 $+ $nick attempts 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 $+ $nick hits a %hit on $+ %player2 with his verac leaving $+ %player2 with 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 $+ $nick hits a %hit on $+ %player2 with his verac leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
    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 $+ $nick hits a %hit on $+ %player1 with his verac leaving $+ %player1 with 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 $+ $nick hits a %hit on $+ %player1 with his verac leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
    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 $+ $nick hits a %hit on $+ %player2 leaving $+ %player2 with 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 $+ $nick hits a %hit on $+ %player2 with his ice barrage leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
    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 $+ %player2 is %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!
    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 $+ $nick hits a %hit on $+ %player1 with his ice barrage leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
    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 $+ %player1 is %frez [ $+ [ %player1 ] ]
  }
}
on *:TEXT:!guthans:#: {
  if ($nick == %player1) && (%shot == %player1) {
    $iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan $+ $nick attempts 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 $+ $nick attempts 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 $+ $nick hits a %hit on $+ %player2 with his guthans spear leaving $+ %player2 with 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 $+ $nick hits a %hit on $+ %player2 with his guthans spear leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
    $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 $+ %player1 with his guthans spear leaving $+ %player1 with 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 $+ $nick hits a %hit on $+ %player1 with his guthans spear leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
    $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 $+ %player1 with his blood barrage leaving $+ %player2 with 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 $+ $nick hits a %hit on $+ %player2 with his blood barrage leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
    $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 $+ %player1 with his blood barrage leaving $+ %player1 with 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 $+ $nick hits a %hit on $+ %player1 with his blood barrage leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
    $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 $+ $nick fails and it is now %Player2 $+ 's turn
  notice %player2 Its your shot!
}
alias 2froz {
  set %shot %player1
  msg $chan $+ $nick fails and it is now %Player1 $+ 's turn
  notice %player1 Its your shot!
}
alias 1unfroz {
  msg $chan $+ $nick Has broken out of his ice cube and may keep fighting
  unset %frez [ $+ [ %player1 ] ]
}
alias 2unfroz {
  msg $chan $+ $nick Has broken out of his ice cube and may keep fighting
  unset %frez [ $+ [ %player2 ] ]
}
alias 2healed {
  msg $chan $+ %player2 has healed %hit hp!
  set %hp2 $calc(%hp2 + %hit)
  if (%hp2 > 99) {
    set %hp2 99
  }
}
alias 1healed {
  msg $chan $+ %player1 has healed %hit hp!
  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.
}