Miscellany

alias dmoff { 
  unset %hp [ $+ [ $($+(%,player1,$chan),2) ] ] 
  unset %hp [ $+ [ $($+(%,player2,$chan),2) ] ] 
  unset %specbar [ $+ [ $($+(%,player1,$chan),2) ] ] 
  unset %specbar [ $+ [ $($+(%,player2,$chan),2) ] ] 
  unset %sharks [ $+ [ $($+(%,turn1,$chan),2) ] ] 
  unset %sharks [ $+ [ %turn2 ] ] 
  unset %barrages [ $+ [ $($+(%,turn1,$chan),2) ] ] 
  unset %barrages [ $+ [ $($+(%,turn2,$chan),2) ] ] 
  unset %frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] 
  unset %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] 
  unset %player1 [ $+ [ $chan ] ] 
  unset %player2 [ $+ [ $chan ] ]
  unset %turn1 [ $+ [ $chan ] ]
  unset %turn2 [ $+ [ $chan ] ]  
  unset %whip [ $+ [ $chan ] ] 
  unset %eat [ $+ [ $chan ] ] 
  unset %dds1 [ $+ [ $chan ] ] 
  unset %dds2 [ $+ [ $chan ] ] 
  unset %cbow [ $+ [ $chan ] ]  
  unset %R 
  unset %dh [ $+ [ $chan ] ] 
  disable #dm 
} 

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

on *:TEXT:!ddm:#: { 
  if ($chan == #luckypc && $chan == #zetascript && $chan == mirc) { halt }
  if (!%player1 [ $+ [ $chan ] ]) { 
    enable #dm 
    set %player1 [ $+ [ $chan ] ] $nick 
    set %turn1 [ $+ [ $chan ] ] $nick 
    set %hp [ $+ [ $($+(%,player1,$chan),2) ] ] 500
    msg $chan *^* ( DM ) You have 60 seconds to death match %nick1 $+ . Type !DDM if you're not a sissy! 
    timer12 1 60 msg $chan *^* ( DM ) Death Match ended
    timer13 1 60 unset %player1 [ $+ [ $chan ] ]
    timer11 1 60 unset %turn1 [ $+ [ $chan ] ]
    timer14 1 60 unset %hp [ $+ [ $($+(%,player1,$chan),2) ] ]
    timer10 1 60 dmoff
  } 
  elseif ($address($nick,2) == $address(%player1 [ $+ [ $chan ] ],2)) { halt } 
  elseif (%player1 [ $+ [ $chan ] ]) && (!%player2 [ $+ [ $chan ] ]) && ($group(#dm).status == on) && ($nick ison $chan) && (%player1 [ $+ [ $chan ] ] ison $chan) { 
    set %player2 [ $+ [ $chan ] ] $nick 
    set %hp [ $+ [ $($+(%,player2,$chan),2) ] ] 500 
    set %turn2 [ $+ [ $chan ] ] $nick  
    set %specbar [ $+ [ $($+(%,player1,$chan),2) ] ] 100 
    set %specbar [ $+ [ $($+(%,player2,$chan),2) ] ] 100 
    set %sharks [ $+ [ $($+(%,player1,$chan),2) ] ] 10 
    set %sharks [ $+ [ $($+(%,player2,$chan),2) ] ] 10 
    set %lobs [ $+ [ $($+(%,player1,$chan),2) ] ] 5 
    set %lobs [ $+ [ $($+(%,player2,$chan),2) ] ] 5 
    set %frozen [ $+ [ $($+(%,player1,$chan),2) ] ] off 
    set %frozen [ $+ [ $($+(%,player2,$chan),2) ] ] off 
    timer* off
    msg $chan *^* ( DM ) %player2 [ $+ [ $chan ] ] has accepted $+ %player1 [ $+ [ $chan ] ] $+ 's challenge! 
    timer 1 1 msg $chan *^* ( DM ) Battle - %player1 [ $+ [ $chan ] ] Vs. %player2 [ $+ [ $chan ] ]
    timer 1 2 msg $chan *^* ( DM ) %player1 [ $+ [ $chan ] ] Go first! !DmCommands to see combat commands!
  } 
  else { 
    notice $nick There is a dm going, hold up! 
    halt 
  } 
} 

on *:TEXT:!dmoff:#: { 
  if ($nick == %player1 [ $+ [ $chan ] ] || $nick == %player2 [ $+ [ $chan ] ]) || $nick isop $chan || $nick ishop $chan || $nick isop #demonops) { 
    dmoff 
    msg $chan DM off by $nick $+ . 
  } 
} 

#dm on

on *:TEXT:!dinfo:#: { 
  if ($group(#dm).status == on) { 
    if ($nick == %turn1 [ $+ [ $chan ] ] || $nick == %turn2 [ $+ [ $chan ] ]) { 
      notice $nick *^* ( DM ) 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. 
      msg $chan *^* ( DM ) currently %turn1 [ $+ [ $chan ] ] $+ 's turn. 
    } 
    else { 
      halt 
    }
  }
  else { 
    halt 
  }  
} 

on *:TEXT:!whip:#: { 
  if ($nick == %turn1 [ $+ [ $chan ] ]) && ($nick != %turn2 [ $+ [ $chan ] ]) && (%frozen [ $+ [ $($+(%,player1,$chan),2) ] ] == off) { 
    set %whip [ $+ [ $nick ] ] $iif(%charge,$rand(0,50),$rand(0,40)) 
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] %whip [ $+ [ $chan ] ] 
  } 
  if ( %hp [ $+ [ $($+(%,player2,$chan),2) ] ] < 1 ) { 
    set %hp [ $+ [ $($+(%,player2,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit %whip with a whip. %player2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,player2,$chan),2) ] ] . 
    timer 1 1 msg $chan *^* ( DM ) %player2 [ $+ [ $chan ] ] is now dead! 
    scores 
    dmoff 
  } 
  elseif ($nick == %turn1 [ $+ [ $chan ] ]) && ($nick != %turn2 [ $+ [ $chan ] ]) && (%frozen [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] == off) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] just hit a %whip with a whip. %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,player2,$chan),2) ] ] . 
    inc %specbar [ $+ [ $($+(%,player1,$chan),2) ] ] $iif(%specbar [ $+ [ $($+(%,player1,$chan),2) ] ] >= 96, $calc( 100 - %specbar [ $+ [ $($+(%,player1,$chan),2) ] ] ) , 5 ) 
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    unset %R 
    timer 1 1 msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  } 
  elseif (%frozen [ $+ [ $($+(%,player1,$chan),2) ] ] == on) { 
    notice $nick You are frozen! Hit !pass
  } 
  elseif ($nick == %turn2 [ $+ [ $chan ] ]) { 
    notice $nick It's not your turn nub!!
  } 
} 


on *:TEXT:!shark:#: { 
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%sharks [ $+ [ $($+(%,player1,$chan),2) ] ] > 0) { 
    set %eat $iif( %hp [ $+ [ $($+(%,player1,$chan),2) ] ] >= 79, $calc( 99 - %hp [ $+ [ $($+(%,player1,$chan),2) ] ] ) , 20) 
    inc %hp [ $+ [ $($+(%,player1,$chan),2) ] ] %eat 
    dec %sharks [ $+ [ $($+(%,player1,$chan),2) ] ] 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] just healed 20 health by eating a shark! $+ %turn1 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,player1,$chan),2) ] ] . 
    notice $nick You have %sharks [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] sharks left. 
    inc %specbar [ $+ [ $($+(%,player1,$chan),2) ] ] $iif(%specbar [ $+ [ $($+(%,player1,$chan),2) ] ] >= 96, $calc( 100 - %specbar [ $+ [ $($+(%,player1,$chan),2) ] ] ) , 5 ) 
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ %turn2 [ $+ [ $chan ] ] ] ] off 
    unset %R 
    timer 1 1 msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  } 
  elseif (%sharks [ $+ [ $($+(%,player1,$chan),2) ] ] < 1) { 
    notice $nick You have already eaten all your sharks. 
  } 
  elseif ($nick == %turn2 [ $+ [ $chan ] ]) { 
    notice $nick It's not your turn nub!!
  } 
} 

on *:TEXT:!lob:#: { 
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%lobs [ $+ [ $($+(%,player1,$chan),2) ] ] > 0) { 
    set %eat $iif( %hp [ $+ [ $($+(%,player1,$chan),2) ] ] >= 87, $calc( 99 - %hp [ $+ [ $($+(%,player1,$chan),2) ] ] ) , 12) 
    inc %hp [ $+ [ $($+(%,player1,$chan),2) ] ] %eat 
    dec %lobs [ $+ [ $($+(%,player1,$chan),2) ] ] 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] just healed 12 health by eating a lobster! $+ %turn1 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,player1,$chan),2) ] ] . 
    notice $nick You have %sharks [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] lobbies left. 
    inc %specbar [ $+ [ $($+(%,player1,$chan),2) ] ] $iif(%specbar [ $+ [ $($+(%,player1,$chan),2) ] ] >= 96, $calc( 100 - %specbar [ $+ [ $($+(%,player1,$chan),2) ] ] ) , 5 ) 
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ %turn2 [ $+ [ $chan ] ] ] ] off 
    unset %R 
    timer 1 1 msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  } 
  elseif (%sharks [ $+ [ $($+(%,player1,$chan),2) ] ] < 1) { 
    notice $nick You have already eaten all your lobs. 
  } 
  elseif ($nick == %turn2 [ $+ [ $chan ] ]) { 
    notice $nick It's not your turn nub!!
  } 
} 


on *:TEXT:!dds:#: { 
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 25) && (%frozen [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] == off) { 
    set %dds1 [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,50),$rand(0,45))
    set %dds2 [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,50),$rand(0,45)) 
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $calc( %dds1 [ $+ [ $chan ] ] + %dds2 [ $+ [ $chan ] ] ) 
  } 
  elseif (%specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] <= 24) { 
    notice %turn1 [ $+ [ $chan ] ] You don't have enough spec!! 
    halt 
  }  
  if ( %hp [ $+ [ $($+(%,player2,$chan),2) ] ] < 1 ) { 
    set %hp [ $+ [ $($+(%,player2,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit  %dds1 [ $+ [ $chan ] ] & %dds2 [ $+ [ $chan ] ] with a Dragon Dagger! %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ %turn2 [ $+ [ $chan ] ] ] ] $+ !
    timer 1 1 msg $chan *^* ( DM ) %turn2 [ $+ [ $chan ] ] is now dead! YAY
    scores 
    dmoff 
  } 
  elseif ($nick == %turn1 [ $+ [ $chan ] ]) && ($nick != %turn2 [ $+ [ $chan ] ]) && (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 25) && (%frozen [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] == off)  { 
    dec %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] 25 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %dds1 [ $+ [ $chan ] ] & %dds2 [ $+ [ $chan ] ] with a Dragon Dagger! %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ %turn2 [ $+ [ $chan ] ] ] ] $+ !
    notice %turn1 [ $+ [ $chan ] ] Remaining Spec :: %specbar [ $+ [ $($+(%,player1,$chan),2) ] ] $+ % $+ ! 
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    unset %R 
    timer 1 1 msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  } 
  elseif (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == on) { 
    notice $nick You are frozen!! Hit !pass 
    halt
  } 
  elseif ($nick == %turn2 [ $+ [ $chan ] ]) { 
    notice $nick It's not your turn nub!!
    halt
  } 
} 

on *:TEXT:!cbow:#: { 
  if ($nick == %turn1 [ $+ [ $chan ] ]) && ($nick != %turn2 [ $+ [ $chan ] ]) { 
    set %cbow $iif(%charge [ $+ [ $nick ] ],$rand(10,30),$rand(0,30)) 
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] %cbow [ $+ [ $chan ] ]
  } 
  if ( %frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == on ) { 
    dec %hp [ $+ [ $($+(%,turn1,$chan),2) ] ] 4 
  } 
  if ( %hp [ $+ [ $($+(%,turn1,$chan),2) ] ] < 1 ) && (%hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == on) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit %cbow [ $+ [ $chan ] ] with a crystal bow. However, %turn1 [ $+ [ $chan ] ] was frozen so there was a 4 damage penalty now both %turn1 [ $+ [ $chan ] ] and %turn2 [ $+ [ $chan ] ] are dead! Stupid nub!
    inc %wins [ $+ [ $($+(%,turn1,$chan),2) ] ] 
    inc %wins [ $+ [ $($+(%,turn2,$chan),2) ] ] 
    inc %losses [ $+ [ $($+(%,turn1,$chan),2) ] ] 
    inc %losses [ $+ [ $($+(%,turn2,$chan),2) ] ] 
    dmoff 
  } 
  elseif ( %hp [ $+ [ $($+(%,turn1,$chan),2) ] ] < 1 ) && {%hp [ $+ [ $($+(%,turn2,$chan),2) ] ] > 0 ) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == on) { 
    set %hp [ $+ [ $($+(%,turn1,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %cbow [ $+ [ $chan ] ] with a crystal bow! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ %turn2 [ $+ [ $chan ] ] ] ] . 
    timer 1 1 msg $chan %turn1 [ $+ [ $chan ] ] was frozen and there is a 4 damage penalty. Idiot. %turn1 [ $+ [ $chan ] ] $+ 's hp is now %hp [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] $+ . 
    timer 1 2 msg $chan %turn1 [ $+ [ $chan ] ] is now dead! 
    inc %wins [ [ $($+(%,turn2,$chan),2) ] ] 
    inc %losses [ $+ [ $($+(%,turn1,$chan),2) ] ] 
    dmoff 
  } 
  elseif (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] > 0) && (%hp [ $+ [ $($+(%,turn2,$chan),2) ] ] > 0) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == on) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %cbow [ $+ [ $chan ] ] with a crystal bow! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
    timer 1 1 msg $chan %turn1 [ $+ [ $chan ] ] was frozen and there is a 4 damage penalty. Idiot. %turn1 [ $+ [ $chan ] ] $+ 's hp is now %hp [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] $+ . 
    inc %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] $iif(%specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] >= 96, $calc( 100 - %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] ) , 5 ) 
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ %turn2 [ $+ [ $chan ] ] ] ] off 
    unset %R 
    timer 1 2 msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  } 
  elseif ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) && (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] > 0) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == off) { 
    set %hp [ $+ [ $($+(%,turn1,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %cbow [ $+ [ $chan ] ] with a crystal bow! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ %turn2 [ $+ [ $chan ] ] ] ] . 
    timer 1 1 msg $chan $+ %turn2 [ $+ [ $chan ] ] is now dead! YAY
    inc %wins [ $+ [ $($+(%,turn1,$chan),2) ] ] 
    inc %losses [ $+ [ $($+(%,turn2,$chan),2) ] ] 
    scores 
    dmoff 
  } 
  elseif ($nick == %turn1 [ $+ [ $chan ] ]) && ($nick != %turn2 [ $+ [ $chan ] ]) && (%frozen [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] == off) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %cbow [ $+ [ $chan ] ] with a crystal bow! %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn1,$chan),2) ] ] . 
    inc %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] $iif(%specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] >= 96, $calc( 100 - %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] ) , 5 ) 
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ %turn2 [ $+ [ $chan ] ] ] ] off 
    unset %R 
    timer 1 1 msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  } 
  elseif ($nick == %turn2 [ $+ [ $chan ] ]) { 
    notice $nick It's not your turn 
  } 
} 

on *:TEXT:!barrage:#: { 
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%barrages [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 0) && (%runes [ $+ [ $nick ] ] >= 0) { 
    set %barrage $rand(0,30) 
    set %R $r(1,5) 
    dec %runes [ $+ [ $nick ] ] 20
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] %barrage [ $+ [ $chan ] ] 
  } 
  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) { 
    set %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %barrage [ $+ [ $chan ] ] with ice barrage! %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $+ . 
    timer 1 1 msg $chan *^* ( DM ) %turn2 [ $+ [ $chan ] ] is now dead! 
    scores 
    dmoff 
  } 
  elseif (%runes [ $+ [ $nick ] ] <= 0) { 
    notice $nick You have no runes to cast this!!
  }
  elseif ($nick == %turn1 [ $+ [ $chan ] ]) && ($nick != %turn2 [ $+ [ $chan ] ]) && (%runes [ $+ [ $($+(%,turn1,$chan),2) ] ] >= 0) && (%R isnum 1-4) { 
    set %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] on 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %barrage [ $+ [ $chan ] ] with ice barrage. %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $+ . 
    notice %turn1 [ $+ [ $chan ] ] You have %runes [ $+ [ $($+(%,turn1,$chan),2) ] ] more runes left. 
    timer 1 1 msg $chan *^* ( DM ) %turn2 [ $+ [ $chan ] ] is frozen. 
    inc %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] $iif(%specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] >= 96, $calc( 100 - %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] ) , 5 ) 
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set  %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] off 
    unset %R 
    timer 1 2 msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  } 
  elseif ($nick == %turn1 [ $+ [ $chan ] ]) && ($nick != %turn2 [ $+ [ $chan ] ]) && (%runes [ $+ [ $($+(%,turn1,$chan),2) ] ] >= 0) && (%R == 5) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %barrage [ $+ [ $chan ] ] with ice barrage. %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $+ . 
    notice %turn1 [ $+ [ $chan ] ] You have %runes [ $+ [ $($+(%,turn1,$chan),2) ] ] more runes left. 
    inc %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] $iif(%specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] >= 96, $calc( 100 - %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] ) , 5 ) 
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] off 
    unset %R 
    timer 1 1 msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  } 
  elseif ($nick == %turn2 [ $+ [ $chan ] ]) { 
    notice $nick It's not your turn nub!!
  } 
} 

on *:TEXT:!dh:#: {
  if ($nick == %turn1 [ $+ [ $chan ] ]) && ($nick != %turn2 [ $+ [ $chan ] ]) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == off) { 
    if (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] isnum 70-99) && (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] !isnum 0-69) { 
      set %dh $rand(0,30) 
    } 
    elseif (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] isnum 50-69) && (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] !isnum 0-49) && (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] !isnum 70-99) { 
      set %dh $rand(0,35) 
    } 
    elseif (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] isnum 35-49) && (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] !isnum 0-34) && (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] !isnum 50-99) { 
      set %dh $rand(0,40) 
    } 
    elseif (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] isnum 20-34) && (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] !isnum 0-19) && (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] !isnum 35-99) { 
      set %dh $rand(0,50) 
    } 
    elseif (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] isnum 8-19) && (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] !isnum 0-7) && (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] !isnum 20-99) { 
      set %dh $rand(0,60) 
    } 
    elseif (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] isnum 1-7) && (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] !isnum 0) && (%hp [ $+ [ $($+(%,turn1,$chan),2) ] ] !isnum 8-99) { 
      set %dh $rand(0,70) 
    } 
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] %dh [ $+ [ $chan ] ] 
    if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) { 
      set %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] 0 
      msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] just hit a %dh [ $+ [ $chan ] ] with a dharoks. $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
      timer 1 1 msg $chan %turn2 [ $+ [ $chan ] ] is now dead! 
      scores 
      dmoff 
    } 
    elseif ($nick == %turn1 [ $+ [ $chan ] ]) && ($nick != %turn2 [ $+ [ $chan ] ]) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == off) { 
      msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] just hit a %dh [ $+ [ $chan ] ] with a dharoks. %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
      inc %specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] $iif(%specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] >= 96, $calc( 100 - %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] ) , 5 ) 
      set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
      set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
      set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
      set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
      unset %R 
      timer 1 1 msg $chan It's %turn1 [ $+ [ $chan ] ] $+ 's turn. 
    } 
    elseif (%frozen [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] == on) { 
      notice $nick You are frozen!!
    } 
    elseif ($nick == %turn2 [ $+ [ $chan ] ]) { 
      notice $nick It's not your turn nub!!
    } 
  } 
} 

on *:TEXT:!mage:#: { 
  if ($nick == %turn1 [ $+ [ $chan ] ]) && ($nick != %turn2 [ $+ [ $chan ] ]) && (%runes [ $+ [ $nick ] ] >= 10) { 
    set %mage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(10,35),$rand(0,20))
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] %mage [ $+ [ $chan ] ]
    dec %runes [ $+ [ $nick ] ] 10
  } 
  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) { 
    set %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %mage [ $+ [ $chan ] ] with A SPELL $+ ! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
    timer 1 1 msg $chan %turn2 [ $+ [ $chan ] ] is now dead! YAY
    scores 
    dmoff 
  } 
  elseif (%runes [ $+ [ $nick ] ] <= 9) { 
    notice $nick You don't have enuf runes!
    halt 
  }
  elseif ($nick == %turn1 [ $+ [ $chan ] ]) && ($nick != %turn2 [ $+ [ $chan ] ]) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %mage [ $+ [ $chan ] ] with A SPELL $+ ! %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
    inc %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] $iif(%specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] >= 96, $calc( 100 - %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] ) , 5 ) 
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] off 
    unset %R 
    timer 1 1 msg $chan It's %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  } 
  elseif ($nick == %turn2 [ $+ [ $chan ] ]) { 
    notice $nick It's not your turn nub!
  } 
} 

on *:TEXT:!gmaul:#: {
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 25) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == off) { 
    set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,50),$rand(0,45))
    set %damage2 [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,50),$rand(0,45))
    set %damage3 [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,50),$rand(0,45))
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $calc( %damage [ $+ [ $chan ] ] + %damage2 [ $+ [ $chan ] ] + %damage3 [ $+ [ $chan ] ] ) 
    dec %specbar [ $+ [ $nick ] ] 50
  }
  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) { 
    set %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit %damage [ $+ [ $chan ] ] & %damage2 [ $+ [ $chan ] ] & %damage3 [ $+ [ $chan ] ] with a granite maul! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
    timer 1 1 msg $chan %turn2 [ $+ [ $chan ] ] is now dead! 
    scores 
    dmoff 
  } 
  elseif (  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] > 1 ) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit %damage [ $+ [ $chan ] ] & %damage2 [ $+ [ $chan ] ] & %damage3 [ $+ [ $chan ] ] with a granite maul! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
    notice %turn1 [ $+ [ $chan ] ] Remaining Spec :: %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] $+ % $+ !
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] off 
    unset %R 
    timer 1 1 msg $chan It's %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  }
  elseif (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ]) {
    notice $nick You're frozen! Hit !Pass
  }
  elseif (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 25) {
    notice $nick You dont have enough spec!! !charge
  }
}

on *:TEXT:!daxe:#: {
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 25) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == off) { 
    set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,70),$rand(0,50))
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $calc( %damage [ $+ [ $chan ] ] + %damage2 [ $+ [ $chan ] ] + %damage3 [ $+ [ $chan ] ] ) 
    dec %specbar [ $+ [ $nick ] ] 50
  }
  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) { 
    set %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %damage [ $+ [ $chan ] ] with a dragon battle axe! %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $+ . 
    timer 1 1 msg $chan %turn2 [ $+ [ $chan ] ] is now dead! 
    scores 
    dmoff 
  } 
  elseif (  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] > 1 ) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit %damage [ $+ [ $chan ] ] with a dragon battle axe! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
    notice %turn1 [ $+ [ $chan ] ] Remaining Spec :: %specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] $+ % $+ !
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] off 
    unset %R 
    timer 1 1 msg $chan It's %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  }
  elseif (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ]) {
    notice $nick You're frozen! Hit !Pass
  }
  elseif (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 25) {
    notice $nick You dont have enough spec!! !charge
  }
}

on *:TEXT:!dbow:#: {
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 25) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == off) { 
    set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,45),$rand(0,35))
    set %damage2 [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,45),$rand(0,35))
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $calc( %damage [ $+ [ $chan ] ] + %damage2 [ $+ [ $chan ] ] + %damage3 [ $+ [ $chan ] ] ) 
    dec %spec [ $+ [ $nick ] ] 75
  }
  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) { 
    set %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %damage [ $+ [ $chan ] ] with a Darkbow! %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $+ . 
    timer 1 1 msg $chan %turn2 [ $+ [ $chan ] ] is now dead! 
    scores 
    dmoff 
  }
  elseif (  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] > 1 ) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit %damage [ $+ [ $chan ] ] with a Darkbow! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
    notice $nick Special remaining - %spec [ $+ [ $nick ] ]
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] off 
    unset %R 
    timer 1 1 msg $chan It's %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  }
  elseif (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ]) {
    notice $nick You're frozen! Hit !Pass
  }  
  elseif (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 25) {
    notice $nick You dont have enough spec!! !charge
  }
}


on *:TEXT:!bbarrage:#: {
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%runes [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 40) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == off) { 
    set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(20,40),$rand(0,35))
    set %heal [ $+ [ $chan ] ] $rand(5,%damage [ $+ [ $chan ] ])
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] %damage [ $+ [ $chan ] ]
    dec %runes [ $+ [ $nick ] ] 40
    inc %hp [ $+ [ $($+(%,turn1,$chan),2) ] ] %heal [ $+ [ $chan ] ]
  }
  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) { 
    set %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %damage [ $+ [ $chan ] ] with a Blood Barrage! %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $+ . 
    timer 1 1 msg $chan %turn2 [ $+ [ $chan ] ] is now dead! 
    scores 
    dmoff 
  }
  elseif (  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] > 1 ) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit %damage [ $+ [ $chan ] ] with a Blood Barrage! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . %turn1 [ $+ [ $chan ] ] $+ 's hp is now %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
    notice $nick Special remaining - %spec [ $+ [ $nick ] ]
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] off 
    unset %R 
    timer 1 1 msg $chan It's %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  }
  elseif (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ]) {
    notice $nick You're frozen! Hit !Pass
  }  
  elseif (%runes [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 25) {
    notice $nick You dont have enough runes!!
  }
}


on *:TEXT:!rc:#: {
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%runes [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 40) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == off) { 
    set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,100),$rand(0,50))
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] %damage [ $+ [ $chan ] ]
    dec %spec [ $+ [ $nick ] ] 5
  }
  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) { 
    set %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %damage [ $+ [ $chan ] ] with a Rubber Chicken! %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $+ . 
    timer 1 1 msg $chan %turn2 [ $+ [ $chan ] ] is now dead! 
    scores 
    dmoff 
  }
  elseif (  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] > 1 ) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit %damage [ $+ [ $chan ] ] with a Rubber Chicken! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
    notice $nick Special remaining - %spec [ $+ [ $nick ] ]
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] off 
    unset %R 
    timer 1 1 msg $chan It's %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  }
  elseif (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ]) {
    notice $nick You're frozen! Hit !Pass
  }  
  elseif (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 25) {
    notice $nick You dont have enough spec!! !charge
  }
}

on *:TEXT:!guth:#: {
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 75) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == off) { 
    set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,80),$rand(0,65))
    set %heal [ $+ [ $chan ] ] $rand(0,%damage [ $+ [ $chan ] ])
    set %loss [ $+ [ $chan ] ] $read(yes.txt)
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] %damage [ $+ [ $chan ] ]
    dec %runes [ $+ [ $nick ] ] 75
    inc [ $+ [ $($+(%,turn1,$chan),2) ] ] $rand(10,%damage [ $+ [ $chan ] ])
  }
  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) { 
    set %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %damage [ $+ [ $chan ] ] with Guthans! %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $+ . 
    timer 1 1 msg $chan %turn2 [ $+ [ $chan ] ] is now dead! 
    scores 
    dmoff 
  }
  elseif (  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] > 1 ) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit %damage [ $+ [ $chan ] ] with Guthans! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . %turn1 [ $+ [ $chan ] ] $+ 's hp is now %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
    notice $nick Special remaining - %spec [ $+ [ $nick ] ]
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] off 
    unset %R 
    timer 1 1 msg $chan It's %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  }
  elseif (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ]) {
    notice $nick You're frozen! Hit !Pass
  }  
  elseif (%runes [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 25) {
    notice $nick You dont have enough spec!! !charge
  }
}

on *:TEXT:!charge:#: {
  if ($nick == %turn1 [ $+ [ $chan ] ]) { 
    set %charge [ $+ [ $nick ] ]
    inc %specbar [ $+ [ $nick ] ] $rand(10,30)
    inc %hp [ $+ [ $nick ] ] $rand(5,20)
    msg $chan *^* [ DM ] $nick is charging!  New health - %hp [ $+ [ $nick ] ]
    notice $nick Special remaining - %spec [ $+ [ $nick ] ]
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] off 
    unset %R 
    timer 1 1 msg $chan It's %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  }
  else {
    notice $nick Its not your turn!!
  }
}


on *:TEXT:!pass:#: {
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == on) { 
    msg $chan *^* [ DM ] $nick is frozen and passed their turn!  Current health - %hp [ $+ [ $nick ] ]
    unset %freeze [ $+ [ $chan ] ]
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] off 
    unset %R 
    timer 1 1 msg $chan It's %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  }
  elseif ($nick != %turn1 [ $+ [ $chan ] ]) {
    notice $nick Its not your turn!!
  }
  elseif ( %frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == off) {
    notice $nick You are not frozen!
  }
}


on *:TEXT:!dmcommands:#: {
  if ($nick !isreg $chan) {
    msg $nick !shark - !lob - !dds - !mage - !barrage - !bbarrage - !daxe - !guth - !charge - !rc - !dbow - !babby - !love - !ch33t - !gmaul - !cbow - !whip - !dh
  }
}



on *:TEXT:!love:#: {
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 5) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == off) && ($nick == ajturtle) { 
    set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,150),$rand(0,100))
    set %heal [ $+ [ $nick ] ] $rand(0,%damage [ $+ [ $chan ] ])
    inc %hp [ $+ [ $nick ] ] %heal [ $+ [ $nick ] ]
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] %damage [ $+ [ $chan ] ]
    dec %specbar [ $+ [ $nick ] ] %specbar [ $+ [ $nick ] ]
  }
  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) { 
    set %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %damage [ $+ [ $chan ] ] with amy's love! %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $+ . 
    timer 1 1 msg $chan %turn2 [ $+ [ $chan ] ] is now dead! 
    scores 
    dmoff 
  }
  elseif (  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] > 1 ) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit %damage [ $+ [ $chan ] ] with amy's love! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
    notice $nick Special remaining - %spec [ $+ [ $nick ] ]
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] off 
    unset %R 
    timer 1 1 msg $chan It's %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  }
  elseif (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ]) {
    notice $nick You're frozen! Hit !Pass
  }  
  elseif (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 25) {
    notice $nick You dont have enough spec!! !charge
  }
}

on *:TEXT:!babby:#: {
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 5) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == off) && ($nick == babby_joe) { 
    set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,100),$rand(0,50))
    set %heal [ $+ [ $nick ] ] $rand(0,%damage [ $+ [ $chan ] ])
    inc %hp [ $+ [ $nick ] ] %heal [ $+ [ $nick ] ]
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] %damage [ $+ [ $chan ] ]
    dec %specbar [ $+ [ $nick ] ] %specbar [ $+ [ $nick ] ]
  }
  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) { 
    set %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit a %damage [ $+ [ $chan ] ] with a evil grin! %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $+ . 
    timer 1 1 msg $chan  %turn2 [ $+ [ $chan ] ] is now dead! 
    scores 
    dmoff 
  }
  elseif (  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] > 1 ) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit %damage [ $+ [ $chan ] ] with a evil grin! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
    notice $nick Special remaining - %spec [ $+ [ $nick ] ]
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] off 
    unset %R 
    timer 1 1 msg $chan It's %turn1 [ $+ [ $chan ] ] $+ 's turn. 
  }
  elseif (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ]) {
    notice $nick You're frozen! Hit !Pass
  }  
  elseif (%specbar [ $+ [ %turn1 [ $+ [ $chan ] ] ] ] >= 25) {
    notice $nick You dont have enough spec!! !charge
  }
}

on *:TEXT:!ch33t:#: {
  if ($nick == %turn1 [ $+ [ $chan ] ]) && (%specbar [ $+ [ $($+(%,turn1,$chan),2) ] ] >= 5) && (%frozen [ $+ [ $($+(%,turn1,$chan),2) ] ] == off) && ($nick isop #demonops) { 
    set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(60,200),$rand(55,175))
    set %heal [ $+ [ $nick ] ] $rand(50,%damage [ $+ [ $chan ] ])
    inc %hp [ $+ [ $nick ] ] %heal [ $+ [ $nick ] ]
    dec %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] %damage [ $+ [ $chan ] ]
    dec %spec [ $+ [ $nick ] ] 5
  }
  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] < 1 ) { 
    set %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] 0 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit %damage [ $+ [ $chan ] ] with his Admin powers! %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] $+ . 
    timer 1 1 msg $chan %turn2 [ $+ [ $chan ] ] is now dead! 
    scores 
    dmoff 
  }
  elseif (  if ( %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] > 1 ) { 
    msg $chan *^* ( DM ) %turn1 [ $+ [ $chan ] ] hit %damage [ $+ [ $chan ] ] with Admin powers! $+ %turn2 [ $+ [ $chan ] ] $+ 's hp is %hp [ $+ [ $($+(%,turn2,$chan),2) ] ] . 
    notice $nick Special remaining - %spec [ $+ [ $nick ] ]
    set %player1 [ $+ [ $chan ] ] %turn1 [ $+ [ $chan ] ]
    set %player2 [ $+ [ $chan ] ] %turn2 [ $+ [ $chan ] ]
    set %turn1 [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] 
    set %turn2 [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] 
    set %frozen [ $+ [ $($+(%,turn2,$chan),2) ] ] off 
    unset %R 
    timer 1 1 msg $chan It's %turn1 [ $+ [ $chan ] ] $+ 's 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 $+ %nick $+ 's Win-Loss record: %allwins - %allloss $+ . The win vs loss percentage is $round($bytes($calc(100/( %allwins + %allloss ) * %allwins ),b3),3) $+ % - $round($bytes($calc(100/( %allwins + %allloss ) * %allloss ),b3),3) $+ % $+ . 
}