alias dmoff {
  unset %hp [ $+ [ %nick1 ] ]
  unset %hp [ $+ [ %nick2 ] ]
  unset %specbar [ $+ [ %nick1 ] ]
  unset %specbar [ $+ [ %nick2 ] ]
  unset %sharks [ $+ [ %turn1 ] ]
  unset %sharks [ $+ [ %turn2 ] ]
  unset %barrages [ $+ [ %turn1 ] ]
  unset %barrages [ $+ [ %turn2 ] ]
  unset %frozen [ $+ [ %turn1 ] ]
  unset %frozen [ $+ [ %turn2 ] ]
  unset %nick1
  unset %nick2
  unset %turn1
  unset %turn2
  unset %turn11
  unset %turn22
  unset %whip
  unset %eat
  unset %dds1
  unset %dds2
  unset %msb1
  unset %msb2
  unset %cbow
  unset %barrage
  unset %R
  unset %dh
  unset %fwave
  disable #dm
}

alias scores {
  inc %wins [ $+ [ %turn1 ] ]
  inc %losses [ $+ [ %turn2 ] ]
}

on *:TEXT:!dm:#: {
  if (!%nick1) {
    enable #dm
    set %nick1 $nick
    set %turn1 $nick
    set %hp [ $+ [ %nick1 ] ] 99
    msg $chan 1Dm has been started by 4 $+ %nick1 $+ 1, type 4!dm to challenge 4 $+ %nick1 $+ 1, and 1type 4!dmcommmands1 for the dm commands.
  }
  elseif (%nick1) && (!%nick2) && ($group(#dm).status == on) && ($nick ison $chan) && (%nick1 ison $chan) {
    set %nick2 $nick
    set %hp [ $+ [ %nick2 ] ] 99
    set %turn2 %nick2
    set %turn11 %turn2
    set %turn22 %turn1
    set %specbar [ $+ [ %turn1 ] ] 100
    set %specbar [ $+ [ %turn2 ] ] 100
    set %sharks [ $+ [ %turn1 ] ] 10
    set %sharks [ $+ [ %turn2 ] ] 10
    set %barrages [ $+ [ %turn1 ] ] 4
    set %barrages [ $+ [ %turn2 ] ] 4
    set %frozen [ $+ [ %turn1 ] ] off
    set %frozen [ $+ [ %turn2 ] ] off
    msg $chan 4 $+ %nick2 has accepted 4 $+ %nick1 $+ 's challenge, type 4!dmcommands 1for the dm commands.
    timer 1 2 msg $chan It's 4 $+ %turn1 $+ 's turn.
  }
  else {
    notice $nick 1There is a dm already in progress, please wait.
    halt
  }
}

on *:TEXT:!stopdm:#:{
  if ($nick isop $chan) || ($nick ishop $chan) ($nick isvoice $chan) { 
    dmoff
    msg $chan 1The current dm has been stopped by4 $nick $+ 1.
  }
} 

#dm off

on *:TEXT:!turn:#: {
  if ($group(#dm).status == on) {
    msg $chan It's currently4 %turn1 $+ 's turn.
  }
  else {
    halt
  }
}

on *:TEXT:!current:#: {
  if ($nick == %turn1 || $nick == %turn2) {
    notice $nick 1Your current hp is:4 %hp [ $+ [ $nick ] ] $+ 1. You have4 %sharks [ $+ [ $nick ] ] 1sharks left. You can use4 %barrages [ $+ [ $nick ] ] 1more barrages. Your special bar is4 %specbar [ $+ [ $nick ] ] $+ % $+ 1. You1 $iif(%frozen [ $+ [ $nick == on ] ] , are , are not) frozen.
  }
  else {
    halt
  }
}

on *:TEXT:!whip:#: {
  if ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
    set %whip $rand(0,35)
    dec %hp [ $+ [ %turn2 ] ] %whip
  }
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %whip with a 1whip1.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    scores
    dmoff
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
    msg $chan 4 $+ %turn1 just hit a4 %whip with a 1whip1.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
    inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif (%frozen [ $+ [ %turn1 ] ] == on) {
    notice $nick 1You are frozen, you can't use the whip.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  }
}


on *:TEXT:!eat*:#: {
  if ($nick == %turn1) && (%sharks [ $+ [ %turn1 ] ] > 0) {
    set %eat $iif( %hp [ $+ [ %turn1 ] ] >= 79, $calc( 99 - %hp [ $+ [ %turn1 ] ] ) , 20)
    inc %hp [ $+ [ %turn1 ] ] %eat
    dec %sharks [ $+ [ %turn1 ] ]
    msg $chan 4 $+ %turn1 just healed4 20 hp by eating a 1shark1.4 %turn1 $+ 's hp is4 %hp [ $+ [ %turn1 ] ] .
    notice $nick 1You have4 %sharks [ $+ [ %turn1 ] ] 1sharks left.
    inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    set %frozen [ $+ [ %turn2 ] ] off
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif (%sharks [ $+ [ %turn1 ] ] < 1) {
    notice $nick 1You have already used up all 10 of your sharks, please use something else.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  }
}


on *:TEXT:!dds*:#: {
  if ($nick == %turn1) && (%specbar [ $+ [ %turn1 ] ] >= 25) && (%frozen [ $+ [ %turn1 ] ] == off) {
    set %dds1 $rand(0,30)
    set %dds2 $rand(0,30)
    dec %hp [ $+ [ %turn2 ] ] $calc( %dds1 + %dds2 )
  }
  elseif (%specbar [ $+ [ %turn1 ] ] <= 24) {
    notice %turn1 1Your special bar is less than4 25%1 so you cant use the dds.
    halt
  } 
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %dds1 and4 %dds2 with a 1dds.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    scores
    dmoff
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%specbar [ $+ [ %turn1 ] ] >= 25) && (%frozen [ $+ [ %turn1 ] ] == off)  {
    dec %specbar [ $+ [ %turn1 ] ] 25
    msg $chan 4 $+ %turn1 just hit a4 %dds1 and4 %dds2 with a 1dds.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    notice %turn1 1You're special bar is4 %specbar [ $+ [ %turn1 ] ] $+ % $+ 1.
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif (%frozen [ $+ [ %turn1 ] ] == on) {
    notice $nick 1You are frozen, you can't use the dds.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  }
}

on *:TEXT:!cbow:#: {
  if ($nick == %turn1) && ($nick != %turn2) {
    set %cbow $rand(0,30)
    dec %hp [ $+ [ %turn2 ] ] %cbow
  }
  if ( %frozen [ $+ [ %turn1 ] ] == on ) {
    dec %hp [ $+ [ %turn1 ] ] 4
  }
  if ( %hp [ $+ [ %turn1 ] ] < 1 ) && (%hp [ $+ [ %turn2 ] ] < 1 ) && (%frozen [ $+ [ %turn1 ] ] == on) {
    msg $chan 4 $+ %turn1 just hit a4 %cbow with a 1crystal bow. However,4 %turn1 was frozen so there is a4 4 damage penalty so both4 %turn1 and4 %turn2 are 4dead!
    inc %wins [ $+ [ %turn1 ] ]
    inc %wins [ $+ [ %turn2 ] ]
    inc %losses [ $+ [ %turn1 ] ]
    inc %losses [ $+ [ %turn2 ] ]
    dmoff
  }
  elseif ( %hp [ $+ [ %turn1 ] ] < 1 ) && {%hp [ $+ [ %turn2 ] ] > 0 ) && (%frozen [ $+ [ %turn1 ] ] == on) {
    set %hp [ $+ [ %turn1 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %cbow with a 1crystal bow.4 %turn2 $+ 's hp is4 %hp [ $+ [ %turn2 ] ] .
    timer 1 1 msg $chan However,4 %turn1 was 1frozen so there is a4 4 1damage penalty.4 %turn1 $+ 's hp is now4 %hp [ $+ [ %turn1 ] ] $+ .
    timer 1 2 msg $chan 4 $+ %turn1 is now dead!
    inc %wins [ [ %turn2 ] ]
    inc %losses [ $+ [ %turn1 ] ]
    dmoff
  }
  elseif (%hp [ $+ [ %turn1 ] ] > 0) && (%hp [ $+ [ %turn2 ] ] > 0) && (%frozen [ $+ [ %turn1 ] ] == on) {
    msg $chan 4 $+ %turn1 just hit a4 %cbow with a 1crystal bow. 4 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
    timer 1 1 msg $chan However,4 %turn1 was 1frozen so there is a4 4 damage penalty.4 %turn1 $+ 's hp is now4 %hp [ $+ [ %turn1 ] ] $+ .
    inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    set %frozen [ $+ [ %turn2 ] ] off
    unset %R
    timer 1 2 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif ( %hp [ $+ [ %turn2 ] ] < 1 ) && (%hp [ $+ [ %turn1 ] ] > 0) && (%frozen [ $+ [ %turn1 ] ] == off) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %cbow with a 1crystal bow.4 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    inc %wins [ $+ [ %turn1 ] ]
    inc %losses [ $+ [ %turn2 ] ]
    scores
    dmoff
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
    msg $chan 4 $+ %turn1 just hit a4 %cbow with a 1crystal bow.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
    inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    set %frozen [ $+ [ %turn2 ] ] off
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  }
}

on *:TEXT:!barrage:#: {
  if ($nick == %turn1) && (%barrages [ $+ [ %turn1 ] ] >= 0) {
    set %barrage $rand(0,30)
    set %R $r(1,5)
    dec %barrages [ $+ [ %turn1 ] ]
    dec %hp [ $+ [ %turn2 ] ] %barrage
  }
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %barrage with 1ice barrage.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    scores
    dmoff
  }
  elseif (%barrages [ $+ [ %turn1 ] ] <= -1) {
    notice %turn1 1You have used the ice barrage4 4 1times already, please choose something else.
    halt
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%barrages [ $+ [ %turn1 ] ] >= 0) && (%R isnum 1-4) {
    set %frozen [ $+ [ %turn2 ] ] on
    msg $chan 4 $+ %turn1 just hit a4 %barrage with 1ice barrage.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    notice %turn1 1You have4 %barrages [ $+ [ %turn1 ] ] 1more barrages left.
    timer 1 1 msg $chan 4 $+ %turn2 is 1frozen.
    inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    set  %frozen [ $+ [ %turn2 ] ] off
    unset %R
    timer 1 2 msg $chan It's 4 %turn1 $+ 's turn.
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%barrages [ $+ [ %turn1 ] ] >= 0) && (%R == 5) {
    msg $chan 4 $+ %turn1 just hit a4 %barrage with 1ice barrage.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    notice %turn1 1You have4 %barrages [ $+ [ %turn1 ] ] 1more barrages left.
    inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    set %frozen [ $+ [ %turn1 ] ] off
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  }
}

on *:TEXT:!dh:#: {
  if ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
    if (%hp [ $+ [ %turn1 ] ] isnum 70-99) && (%hp [ $+ [ %turn1 ] ] !isnum 0-69) {
      set %dh $rand(0,25)
    }
    elseif (%hp [ $+ [ %turn1 ] ] isnum 50-69) && (%hp [ $+ [ %turn1 ] ] !isnum 0-49) && (%hp [ $+ [ %turn1 ] ] !isnum 70-99) {
      set %dh $rand(0,25)
    }
    elseif (%hp [ $+ [ %turn1 ] ] isnum 35-49) && (%hp [ $+ [ %turn1 ] ] !isnum 0-34) && (%hp [ $+ [ %turn1 ] ] !isnum 50-99) {
      set %dh $rand(0,45)
    }
    elseif (%hp [ $+ [ %turn1 ] ] isnum 20-34) && (%hp [ $+ [ %turn1 ] ] !isnum 0-19) && (%hp [ $+ [ %turn1 ] ] !isnum 35-99) {
      set %dh $rand(0,55)
    }
    elseif (%hp [ $+ [ %turn1 ] ] isnum 8-19) && (%hp [ $+ [ %turn1 ] ] !isnum 0-7 ) && (%hp [ $+ [ %turn1 ] ] !isnum 20-99) {
      set %dh $rand(0,75)
    }
    elseif (%hp [ $+ [ %turn1 ] ] isnum 1-7) && (%hp [ $+ [ %turn1 ] ] !isnum 0) && (%hp [ $+ [ %turn1 ] ] !isnum 8-99) {
      set %dh $rand(0,85)
    }
    dec %hp [ $+ [ %turn2 ] ] %dh
    if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
      set %hp [ $+ [ %turn2 ] ] 0
      msg $chan 4 $+ %turn1 just hit a4 %dh with a 1dharoks.4 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
      timer 1 1 msg $chan 4 %turn2 is now dead!
      scores
      dmoff
    }
    elseif ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
      msg $chan 4 $+ %turn1 just hit a4 %dh with a 1dharoks.4 %turn2 $+ 's hp is4 %hp [ $+ [ %turn2 ] ] $+ .
      inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
      set %turn1 %turn11
      set %turn2 %turn22
      set %turn11 %turn2
      set %turn22 %turn1
      unset %R
      timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
    }
    elseif (%frozen [ $+ [ %turn1 ] ] == on) {
      notice $nick 1You are frozen, you can't use dharoks.
    }
    elseif ($nick == %turn2) {
      notice $nick 1It's not your turn
    }
  }
}

on *:TEXT:!firewave:#: {
  if ($nick == %turn1) && ($nick != %turn2) {
    set %fwave $rand(0,25)
    dec %hp [ $+ [ %turn2 ] ] %fwave
  }
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %fwave with 1fire wave.4 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    scores
    dmoff
  }
  elseif ($nick == %turn1) && ($nick != %turn2) {
    msg $chan 4 $+ %turn1 just hit a4 %fwave with 1fire wave.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
    inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    set %frozen [ $+ [ %turn2 ] ] off
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  }
}

on *:TEXT:!msb*:#: {
  if ($nick == %turn1) && (%specbar [ $+ [ %turn1 ] ] >= 50) {
    set %msb1 $rand(0,25)
    set %msb2 $rand(0,25)
    dec %hp [ $+ [ %turn2 ] ] $calc( %msb1 + %msb2 )
  }
  elseif (%specbar [ $+ [ %turn1 ] ] <= 49) {
    notice %turn1 1Your special bar is less than4 75%1 so you cant use the magic shortbow.
    halt
  } 
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %msb1 and4 %msb2 with a 1magic shortbow.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    scores
    dmoff
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%specbar [ $+ [ %turn1 ] ] >= 50) {
    dec %specbar [ $+ [ %turn1 ] ] 75
    msg $chan 4 $+ %turn1 just hit a4 %msb1 and4 %msb2 with a 1magic shortbow.4 %turn2 $+ 's hp is4 %hp [ $+ [ %turn2 ] ] $+ .
    notice %turn1 1You're special bar is4 %specbar [ $+ [ %turn1 ] ] $+ % $+ 1.
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  }
}

on *:TEXT:!darkbow*:#: {
  if ($nick == %turn1) && (%specbar [ $+ [ %turn1 ] ] >= 75) {
    set %msb1 $rand(0,40)
    set %msb2 $rand(0,38)
    dec %hp [ $+ [ %turn2 ] ] $calc( %msb1 + %msb2 )
  }
  elseif (%specbar [ $+ [ %turn1 ] ] <= 49) {
    notice %turn1 1Your special bar is less than4 75%1 so you cant use the dark bow.
    halt
  } 
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %msb1 and4 %msb2 with a 1dark bow.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    scores
    dmoff
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%specbar [ $+ [ %turn1 ] ] >= 50) {
    dec %specbar [ $+ [ %turn1 ] ] 75
    msg $chan 4 $+ %turn1 just hit a4 %msb1 and4 %msb2 with a 1dark bow.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    notice %turn1 1You're special bar is4 %specbar [ $+ [ %turn1 ] ] $+ % $+ 1.
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  }
}

on *:TEXT:!dba:#: {
  if ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
    set %whip $rand(0,42)
    dec %hp [ $+ [ %turn2 ] ] %whip
  }
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %whip with a 1dragon battleaxe.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    scores
    dmoff
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
    msg $chan 4 $+ %turn1 just hit a4 %whip with a 1dragon battleaxe.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
    inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2 
    set %turn22 %turn1
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif (%frozen [ $+ [ %turn1 ] ] == on) {
    notice $nick 1You are frozen, you can't use the dragon battle axe.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  }
}

on *:TEXT:!dhally*:#: {
  if ($nick == %turn1) && (%specbar [ $+ [ %turn1 ] ] >= 75) {
    set %msb1 $rand(18,38)
    set %msb2 $rand(16,41)
    dec %hp [ $+ [ %turn2 ] ] $calc( %msb1 + %msb2 )
  }
  elseif (%specbar [ $+ [ %turn1 ] ] <= 49) {
    notice %turn1 1Your special bar is less than4 75%1 so you cant use the dragon hally.
    halt
  } 
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %msb1 and4 %msb2 with a 1dragon hally.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    scores
    dmoff
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%specbar [ $+ [ %turn1 ] ] >= 50) {
    dec %specbar [ $+ [ %turn1 ] ] 75
    msg $chan 4 $+ %turn1 just hit a4 %msb1 and4 %msb2 with a 1dragon hally.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    notice %turn1 1You're special bar is4 %specbar [ $+ [ %turn1 ] ] $+ % $+ 1.
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif (%frozen [ $+ [ %turn1 ] ] == on) {
    notice $nick 1You are frozen, you can't use the dragon hally.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  } 
}

on *:TEXT:!gmaul*:#: {
  if ($nick == %turn1) && (%specbar [ $+ [ %turn1 ] ] >= 75) {
    set %msb1 $rand(0,42)
    set %msb2 $rand(0,37)
    set %msb3 $rand(0,34)
    dec %hp [ $+ [ %turn2 ] ] $calc( %msb1 + %msb2 + %msb3 )
  }
  elseif (%specbar [ $+ [ %turn1 ] ] <= 49) {
    notice %turn1 1Your special bar is less than4 100%1 so you cant use the granite maul.
    halt
  } 
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %msb1 ,4 %msb2 and4 %msb3 with a 1granite maul.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    scores
    dmoff
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%specbar [ $+ [ %turn1 ] ] >= 100) {
    dec %specbar [ $+ [ %turn1 ] ] 100
    msg $chan 4 $+ %turn1 just hit a4 %msb1 ,4 %msb2 and4 %msb3 with a 1granite maul.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    notice %turn1 1You're special bar is4 %specbar [ $+ [ %turn1 ] ] $+ % $+ 1.
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif (%frozen [ $+ [ %turn1 ] ] == on) {
    notice $nick 1You are frozen, you can't use the granite maul.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  } 
}

on *:TEXT:!dlong*:#: {
  if ($nick == %turn1) && (%specbar [ $+ [ %turn1 ] ] >= 75) {
    set %msb1 $rand(2,49)
    dec %hp [ $+ [ %turn2 ] ] $calc( %msb1 )
  }
  elseif (%specbar [ $+ [ %turn1 ] ] <= 49) {
    notice %turn1 1Your special bar is less than4 25%1 so you cant use the dragon long.
    halt
  } 
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %msb1 with a 1dragon long.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    scores
    dmoff
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%specbar [ $+ [ %turn1 ] ] >= 100) {
    dec %specbar [ $+ [ %turn1 ] ] 25
    msg $chan 4 $+ %turn1 just hit a4 %msb1 with a 1dragon long.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    notice %turn1 1You're special bar is4 %specbar [ $+ [ %turn1 ] ] $+ % $+ 1.
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif (%frozen [ $+ [ %turn1 ] ] == on) {
    notice $nick 1You are frozen, you can't use the dragon long.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  }
}

on *:TEXT:!dmace*:#: {
  if ($nick == %turn1) && (%specbar [ $+ [ %turn1 ] ] >= 75) {
    set %msb1 $rand(0,50)
    dec %hp [ $+ [ %turn2 ] ] $calc( %msb1 )
  }
  elseif (%specbar [ $+ [ %turn1 ] ] <= 49) {
    notice %turn1 1Your special bar is less than4 25%1 so you cant use the dragon mace.
    halt
  } 
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %msb1 with a 1dragon mace.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    scores
    dmoff
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%specbar [ $+ [ %turn1 ] ] >= 100) {
    dec %specbar [ $+ [ %turn1 ] ] 25
    msg $chan 4 $+ %turn1 just hit a4 %msb1 with a 1dragon mace.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    notice %turn1 1You're special bar is4 %specbar [ $+ [ %turn1 ] ] $+ % $+ 1.
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif (%frozen [ $+ [ %turn1 ] ] == on) {
    notice $nick 1You are frozen, you can't use the dragon mace.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  }
}

on *:TEXT:!xbow:#: {
  if ($nick == %turn1) && ($nick != %turn2) {
    set %cbow $rand(0,27)
    dec %hp [ $+ [ %turn2 ] ] %cbow
  }
  if ( %frozen [ $+ [ %turn1 ] ] == on ) {
    dec %hp [ $+ [ %turn1 ] ] 4
  }
  if ( %hp [ $+ [ %turn1 ] ] < 1 ) && (%hp [ $+ [ %turn2 ] ] < 1 ) && (%frozen [ $+ [ %turn1 ] ] == on) {
    msg $chan 4 $+ %turn1 just hit a4 %cbow  with a 1karils bow. However,4 %turn1 was frozen so there was a4 4 damage penalty so both4 %turn1 and4 %turn2 are 4dead!
    inc %wins [ $+ [ %turn1 ] ]
    inc %wins [ $+ [ %turn2 ] ]
    inc %losses [ $+ [ %turn1 ] ]
    inc %losses [ $+ [ %turn2 ] ]
    dmoff
  }
  elseif ( %hp [ $+ [ %turn1 ] ] < 1 ) && {%hp [ $+ [ %turn2 ] ] > 0 ) && (%frozen [ $+ [ %turn1 ] ] == on) {
    set %hp [ $+ [ %turn1 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %cbow with a 1karils bow.4 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
    timer 1 1 msg $chan However,4 %turn1 was 1frozen so there is a4 4 1damage penalty.4 %turn1 $+ 's hp is now4 %hp [ $+ [ %turn1 ] ] $+ .
    timer 1 2 msg $chan 4 $+ %turn1 is now dead!
    inc %wins [ [ %turn2 ] ]
    inc %losses [ $+ [ %turn1 ] ]
    dmoff
  }
  elseif (%hp [ $+ [ %turn1 ] ] > 0) && (%hp [ $+ [ %turn2 ] ] > 0) && (%frozen [ $+ [ %turn1 ] ] == on) {
    msg $chan 4 $+ %turn1 just hit a4 %cbow with a 1karils bow. 4 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
    timer 1 1 msg $chan However,4 %turn1 was 1frozen so there is a4 4 damage penalty.4 %turn1 $+ 's hp is now4 %hp [ $+ [ %turn1 ] ] $+ 1.
    inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    set %frozen [ $+ [ %turn2 ] ] off
    unset %R
    timer 1 2 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif ( %hp [ $+ [ %turn2 ] ] < 1 ) && (%hp [ $+ [ %turn1 ] ] > 0) && (%frozen [ $+ [ %turn1 ] ] == off) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %cbow with a 1karils bow.4 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    inc %wins [ $+ [ %turn1 ] ]
    inc %losses [ $+ [ %turn2 ] ]
    scores
    dmoff
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
    msg $chan 4 $+ %turn1 just hit a4 %cbow with a 1karils bow.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
    inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    set %frozen [ $+ [ %turn2 ] ] off
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  }
}
on *:TEXT:!d2h*:#: {
  if ($nick == %turn1) && (%specbar [ $+ [ %turn1 ] ] >= 25) && (%frozen [ $+ [ %turn1 ] ] == off) {
    set %dds1 $rand(0,48)
    dec %hp [ $+ [ %turn2 ] ] %dds1
  }
  elseif (%specbar [ $+ [ %turn1 ] ] <= 24) {
    notice %turn1 1Your special bar is less than4 65%1 so you cant use the d2h.
    halt
  } 
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 4 $+ %turn1 just hit a4 %dds1 with a 1d2h.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    timer 1 1 msg $chan 4 $+ %turn2 is now dead!
    scores
    dmoff
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%specbar [ $+ [ %turn1 ] ] >= 25) && (%frozen [ $+ [ %turn1 ] ] == off)  {
    dec %specbar [ $+ [ %turn1 ] ] 75
    msg $chan 4 $+ %turn1 just hit a4 %dds1 with a 1d2h.4 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
    notice %turn1 1You're special bar is4 %specbar [ $+ [ %turn1 ] ] $+ % $+ 1.
    set %turn1 %turn11
    set %turn2 %turn22
    set %turn11 %turn2
    set %turn22 %turn1
    unset %R
    timer 1 1 msg $chan It's4 %turn1 $+ 's turn.
  }
  elseif (%frozen [ $+ [ %turn1 ] ] == on) {
    notice $nick 1You are frozen, you can't use the d2h.
  }
  elseif ($nick == %turn2) {
    notice $nick 1It's not your turn
  }
}

on *:TEXT:!dmcommands:#: {
  timer 1 1 /msg $nick  1 -
  timer 1 2 /msg $nick 4 .:: Death-Match Commands ::.
  timer 1 3 /msg $nick  !dm 4<Start DeathMatch>
  timer 1 4 /msg $nick  !whip 4<Abyssal Whip>
  timer 1 5 /msg $nick  !dds 4<Dragon Dagger>
  timer 1 6 /msg $nick  !barrage 4<Ice Barrage>
  timer 1 7 /msg $nick  !gmaul 4<Granite Maul>
  timer 1 8 /msg $nick  !dlong 4<Dragon Longsword>
  timer 1 9 /msg $nick  !darkbow 4<Dark Bow>
  timer 1 10 /msg $nick  !msb 4<Magic Shortbow>
  timer 1 11 /msg $nick  !dh 4<Dharoks>
  timer 1 12 /msg $nick  !dmace 4<Dragon Mace>
  timer 1 13 /msg $nick  !dhally 4<Dragon Hally>
  timer 1 14 /msg $nick  !eat 4<Shark>
  timer 1 15 /msg $nick  !cbow 4<Crystal Bow>
  timer 1 16 /msg $nick  !xbow 4<Karils Bow>
  timer 1 17 /msg $nick  !firewave 4<Fire Wave>
  timer 1 18 /msg $nick  !d2h 4<Dragon 2H>
  timer 1 19 /msg $nick  !dba 4<Dragon Battleaxe>
  timer 1 20 /msg $nick  !current 4<Current Status>
  timer 1 21 /msg $nick  !score 4<Your Score>
  timer 1 22 /msg $nick  !turn 4<Whos Turn>
  timer 1 23 /msg $nick  !stopdm 4<End DeathMatch>
  timer 1 24 /msg $nick 4 .:: End of Death-Match Commands ::.
  timer 1 25 /msg $nick  1 -
}

#dm end

on *:TEXT:!score*:#: {
  var %nick = $iif(!$2,$nick,$2)
  var %allwins = $iif(!%wins [ $+ [ %nick ] ],0,%wins [ $+ [ %nick ] ])
  var %allloss = $iif(!%losses [ $+ [ %nick ] ],0,%losses [ $+ [ %nick ] ])
  notice $nick 4 $+ %nick $+ 's 1Win-Loss record:4 %allwins -4 %allloss $+ 1. The win vs loss percentage is4 $round($bytes($calc(100/( %allwins + %allloss ) * %allwins ),b3),3) $+ % 1-4 $round($bytes($calc(100/( %allwins + %allloss ) * %allloss ),b3),3) $+ % $+ 1.
}