Someone

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 DM has been started by 2 $+ %nick1 $+ ! Type 4!dm to challenge 2 $+ %nick1 $+ . 
  } 
  elseif ($address($nick,2) == $address(%nick1,2)) {  msg $chan 2 $+ %turn1 is such a freaking moron that he wants to dm himself. | halt  } 
  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 14 $+ %nick2 has accepted 2 $+ %nick1 $+ 's challenge! 
    timer 1 1 msg $chan For a list of dm commands, type 4!dmcommands
    timer 1 2 msg $chan It's 2 $+ %turn1 $+ 's turn. 
  } 
  else { 
    notice $nick There is a dm already in progress, please wait. 
    halt 
  } 
} 
on *:TEXT:!stopdm:#: { 
  if ($nick == %nick1 || $nick == %nick2) || ($address($nick,2) == $address($me,2)) { 
    dmoff 
    msg $chan DM halted by 2 $+ $nick $+ . 
  } 
} 
#dm off
on *:TEXT:!turn:#: { 
  if ($group(#dm).status == on) { 
    msg $chan It's currently2 %turn1 $+ 's turn. 
  } 
  else { 
    halt 
  } 
} 
on *:TEXT:!status:#: { 
  if ($nick == %turn1 || $nick == %turn2) { 
    notice $nick Your current hp is: %hp [ $+ [ $nick ] ] $+ . You have %sharks [ $+ [ $nick ] ] sharks left. You can use %barrages [ $+ [ $nick ] ] more barrages. Your special bar is %specbar [ $+ [ $nick ] ] $+ % $+ . You $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,40) 
    dec %hp [ $+ [ %turn2 ] ] %whip 
  } 
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) { 
    set %hp [ $+ [ %turn2 ] ] 0 
    msg $chan 2 $+ %turn1 just hit a4 %whip with a 10whip.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] . 
    timer 1 1 msg $chan 14 $+ %turn2 is now 4dead! 
    scores 
    dmoff 
  } 
  elseif ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) { 
    msg $chan 2 $+ %turn1 just hit a4 %whip with a 10whip.14 %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's14 %turn1 $+ 's turn. 
  } 
  elseif (%frozen [ $+ [ %turn1 ] ] == on) { 
    notice $nick You are frozen, you can't use the whip. 
  } 
  elseif ($nick == %turn2) { 
    notice $nick It'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 2 $+ %turn1 just healed4 20 hp by eating a 10shark. 2 $+ %turn1 $+ 's hp is 4 %hp [ $+ [ %turn1 ] ] . 
    notice $nick You have %sharks [ $+ [ %turn1 ] ] sharks 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's14 %turn1 $+ 's turn. 
  } 
  elseif (%sharks [ $+ [ %turn1 ] ] < 1) { 
    notice $nick You have already used up all 10 of your sharks, please use something else. 
  } 
  elseif ($nick == %turn2) { 
    notice $nick It'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 Your special bar is less than 25% so you cant use the dds. 
    halt 
  }  
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) { 
    set %hp [ $+ [ %turn2 ] ] 0 
    msg $chan 2 $+ %turn1 just hit a4 %dds1 and4 %dds2 with a 10dds.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ . 
    timer 1 1 msg $chan 14 $+ %turn2 is now 4dead! 
    scores 
    dmoff 
  } 
  elseif ($nick == %turn1) && ($nick != %turn2) && (%specbar [ $+ [ %turn1 ] ] >= 25) && (%frozen [ $+ [ %turn1 ] ] == off)  { 
    dec %specbar [ $+ [ %turn1 ] ] 25 
    msg $chan 2 $+ %turn1 just hit a4 %dds1 and4 %dds2 with a 10dds.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ . 
    notice %turn1 You're special bar is %specbar [ $+ [ %turn1 ] ] $+ % $+ . 
    set %turn1 %turn11 
    set %turn2 %turn22 
    set %turn11 %turn2 
    set %turn22 %turn1 
    unset %R 
    timer 1 1 msg $chan It's14 %turn1 $+ 's turn. 
  } 
  elseif (%frozen [ $+ [ %turn1 ] ] == on) { 
    notice $nick You are frozen, you can't use the dds. 
  } 
  elseif ($nick == %turn2) { 
    notice $nick It'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 2 $+ %turn1 just hit a4 %cbow  with a 10crystal bow. However,2 %turn1 was frozen so there was a4 4 damage penalty so both2 %turn1 and14 %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 2 $+ %turn1 just hit a4 %cbow with a 10crystal bow.14 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] . 
    timer 1 1 msg $chan However,2 %turn1 was 11frozen so there is a4 4 6damage penalty.2 %turn1 $+ 's hp is now4 %hp [ $+ [ %turn1 ] ] $+ . 
    timer 1 2 msg $chan 2 $+ %turn1 is now 4dead! 
    inc %wins [ [ %turn2 ] ] 
    inc %losses [ $+ [ %turn1 ] ] 
    dmoff 
  } 
  elseif (%hp [ $+ [ %turn1 ] ] > 0) && (%hp [ $+ [ %turn2 ] ] > 0) && (%frozen [ $+ [ %turn1 ] ] == on) { 
    msg $chan 2 $+ %turn1 just hit a4 %cbow with a 10crystal bow. 14 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] . 
    timer 1 1 msg $chan However,2 %turn1 was 11frozen so there is a4 4 damage penalty.2 %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's14 %turn1 $+ 's turn. 
  } 
  elseif ( %hp [ $+ [ %turn2 ] ] < 1 ) && (%hp [ $+ [ %turn1 ] ] > 0) && (%frozen [ $+ [ %turn1 ] ] == off) { 
    set %hp [ $+ [ %turn2 ] ] 0 
    msg $chan 2 $+ %turn1 just hit a4 %cbow with a 10crystal bow.14 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] . 
    timer 1 1 msg $chan 14 $+ %turn2 is now 4dead! 
    inc %wins [ $+ [ %turn1 ] ] 
    inc %losses [ $+ [ %turn2 ] ] 
    scores 
    dmoff 
  } 
  elseif ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) { 
    msg $chan 2 $+ %turn1 just hit a4 %cbow with a 10crystal bow.14 %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's14 %turn1 $+ 's turn. 
  } 
  elseif ($nick == %turn2) { 
    notice $nick It'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 2 $+ %turn1 just hit a4 %barrage with 10ice barrage.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ . 
    timer 1 1 msg $chan 14 $+ %turn2 is now 4dead! 
    scores 
    dmoff 
  } 
  elseif (%barrages [ $+ [ %turn1 ] ] <= -1) { 
    notice %turn1 You have used the ice barrage 4 times already, please choose something else. 
    halt 
  } 
  elseif ($nick == %turn1) && ($nick != %turn2) && (%barrages [ $+ [ %turn1 ] ] >= 0) && (%R isnum 1-4) { 
    set %frozen [ $+ [ %turn2 ] ] on 
    msg $chan 2 $+ %turn1 just hit a4 %barrage with 10ice barrage.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ . 
    notice %turn1 You have %barrages [ $+ [ %turn1 ] ] more barrages left. 
    timer 1 1 msg $chan 14 $+ %turn2 is 11frozen. 
    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 14 %turn1 $+ 's turn. 
  } 
  elseif ($nick == %turn1) && ($nick != %turn2) && (%barrages [ $+ [ %turn1 ] ] >= 0) && (%R == 5) { 
    msg $chan 2 $+ %turn1 just hit a4 %barrage with 10ice barrage.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ . 
    notice %turn1 You have %barrages [ $+ [ %turn1 ] ] more 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's14 %turn1 $+ 's turn. 
  } 
  elseif ($nick == %turn2) { 
    notice $nick It'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,30) 
    } 
    elseif (%hp [ $+ [ %turn1 ] ] isnum 50-69) && (%hp [ $+ [ %turn1 ] ] !isnum 0-49) && (%hp [ $+ [ %turn1 ] ] !isnum 70-99) { 
      set %dh $rand(0,35) 
    } 
    elseif (%hp [ $+ [ %turn1 ] ] isnum 35-49) && (%hp [ $+ [ %turn1 ] ] !isnum 0-34) && (%hp [ $+ [ %turn1 ] ] !isnum 50-99) { 
      set %dh $rand(0,40) 
    } 
    elseif (%hp [ $+ [ %turn1 ] ] isnum 20-34) && (%hp [ $+ [ %turn1 ] ] !isnum 0-19) && (%hp [ $+ [ %turn1 ] ] !isnum 35-99) { 
      set %dh $rand(0,50) 
    } 
    elseif (%hp [ $+ [ %turn1 ] ] isnum 8-19) && (%hp [ $+ [ %turn1 ] ] !isnum 0-7) && (%hp [ $+ [ %turn1 ] ] !isnum 20-99) { 
      set %dh $rand(0,60) 
    } 
    elseif (%hp [ $+ [ %turn1 ] ] isnum 1-7) && (%hp [ $+ [ %turn1 ] ] !isnum 0) && (%hp [ $+ [ %turn1 ] ] !isnum 8-99) { 
      set %dh $rand(0,70) 
    } 
    dec %hp [ $+ [ %turn2 ] ] %dh 
    if ( %hp [ $+ [ %turn2 ] ] < 1 ) { 
      set %hp [ $+ [ %turn2 ] ] 0 
      msg $chan 2 $+ %turn1 just hit a4 %dh with a 10dharoks. 14 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] . 
      timer 1 1 msg $chan 14 $+ %turn2 is now 4dead! 
      scores 
      dmoff 
    } 
    elseif ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) { 
      msg $chan 2 $+ %turn1 just hit a4 %dh with a 10dharoks.14 %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's14 %turn1 $+ 's turn. 
    } 
    elseif (%frozen [ $+ [ %turn1 ] ] == on) { 
      notice $nick You are frozen, you can't use dharoks. 
    } 
    elseif ($nick == %turn2) { 
      notice $nick It's not your turn 
    } 
  } 
} 
on *:TEXT:!fwave:#: { 
  if ($nick == %turn1) && ($nick != %turn2) { 
    set %fwave $rand(0,20) 
    dec %hp [ $+ [ %turn2 ] ] %fwave 
  } 
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) { 
    set %hp [ $+ [ %turn2 ] ] 0 
    msg $chan 2 $+ %turn1 just hit a4 %fwave with 10fire wave.14 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] . 
    timer 1 1 msg $chan 14 $+ %turn2 is now 4dead! 
    scores 
    dmoff 
  } 
  elseif ($nick == %turn1) && ($nick != %turn2) { 
    msg $chan 2 $+ %turn1 just hit a4 %fwave with 10fire wave.14 %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's14 %turn1 $+ 's turn. 
  } 
  elseif ($nick == %turn2) { 
    notice $nick It'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 Your special bar is less than 50% so you cant use the magic shortbow. 
    halt 
  }  
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) { 
    set %hp [ $+ [ %turn2 ] ] 0 
    msg $chan 2 $+ %turn1 just hit a4 %msb1 and4 %msb2 with a 10magic shortbow.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ . 
    timer 1 1 msg $chan 14 $+ %turn2 is now 4dead! 
    scores 
    dmoff 
  } 
  elseif ($nick == %turn1) && ($nick != %turn2) && (%specbar [ $+ [ %turn1 ] ] >= 50) { 
    dec %specbar [ $+ [ %turn1 ] ] 50 
    msg $chan 2 $+ %turn1 just hit a4 %msb1 and4 %msb2 with a 10magic shortbow.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ . 
    notice %turn1 You're special bar is %specbar [ $+ [ %turn1 ] ] $+ % $+ . 
    set %turn1 %turn11 
    set %turn2 %turn22 
    set %turn11 %turn2 
    set %turn22 %turn1 
    unset %R 
    timer 1 1 msg $chan It's14 %turn1 $+ 's turn. 
  } 
  elseif ($nick == %turn2) { 
    notice $nick It's not your turn 
  } 
} 
#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 ] ]) 
  msg $chan 2 $+ %nick $+ 's Win-Loss record:2 %allwins -2 %allloss $+ . The win vs loss percentage is2 $round($bytes($calc(100/( %allwins + %allloss ) * %allwins ),b3),3) $+ % -2 $round($bytes($calc(100/( %allwins + %allloss ) * %allloss ),b3),3) $+ % $+ . 
}