All pastes #761257 Raw Edit

Someone

public text v1 · immutable
·published 2007-11-04 19:07 UTC
rendered paste body
on *:TEXT:!barrage:#: {
  if ($nick == %turn1) && (%barrages [ $+ [ %turn1 ] ] >= 0) {
    set %barrage $rand(0,30)
    set %R $r(1,10)
    dec %barrages [ $+ [ %turn1 ] ]
    dec %hp [ $+ [ %turn2 ] ] %barrage
  }
  if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
    set %hp [ $+ [ %turn2 ] ] 0
    msg $chan 10[9›10›] %turn1 just hit a %barrage with ice barrage. %turn2 $+ 's hp is %hp [ $+ [ %turn2 ] ] $+ . 
    timer 1 1 msg $chan 10[9›10›] %turn2 is now dead! 
    scores
    dmoff
  }
  elseif (%barrages [ $+ [ %turn1 ] ] <= -1) {
    notice %turn1 10[9›10›] You can only use the Barrage 4 times per DM. 
    halt
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%barrages [ $+ [ %turn1 ] ] >= 0) && (%R isnum 1-7) {
    set %frozen [ $+ [ %turn2 ] ] on
    msg $chan 10[9›10›] %turn1 just hit a %barrage with ice barrage. %turn2 $+ 's hp is %hp [ $+ [ %turn2 ] ] $+ . 
    notice %turn1 10[9›10›] You have %barrages [ $+ [ %turn1 ] ] more barrages left. 
    timer 1 1 msg $chan 10[9›10›] %turn2 is frozen! 
    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 10[9›10›] It's %turn1 $+ 's turn. 
  }
  elseif ($nick == %turn1) && ($nick != %turn2) && (%barrages [ $+ [ %turn1 ] ] >= 0) && (%R isnum 8-10) {
    msg $chan 10[9›10›] %turn1 just hit a %barrage with ice barrage. %turn2 $+ 's hp is %hp [ $+ [ %turn2 ] ] $+ . 
    notice %turn1 10[9›10›] 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 $chan10[9›10›] It's %turn1 $+ 's turn. 
  }
  elseif ($nick == %turn2) {
    notice $nick 10[9›10›] It's not your turn! 
  }
}