All pastes #486784 Raw Edit

Something

public text v1 · immutable
·published 2007-05-14 01:51 UTC
rendered paste body
alias pcw {
  if (%pcoff) { halt } 
  inc %pcused 
  inc %res 
  .notice $me The current Pest Control World is:3 %pcworld set by3 %pcnick , $+($duration($calc($ctime - %pctime)),) ago. Command used3 %pcused times. 
}
on $*:text:/^[!](world|pcw) */Si:#:{ 
  if (%pcoff) { halt } 
  inc %pcused 
  inc %res 
  notice $nick The current Pest Control World is:3 %pcworld set by3 %pcnick , $+($duration($calc($ctime - %pctime)),) ago. Command used3 %pcused times. 
}
alias pcon {
  if (!%pcoff) { .notice $me Status is already ON! | halt }
  .notice $me 14**[7»«14] Pest Control Script 14[[7ENABLED14]]
  unset %pcoff
}
on *:text:!on:#:{ 
  if ($nick isop $chan || $nick ishop $chan) {
    if (!%pcoff) { notice $nick Status is already ON! | halt }
    msg $chan 14**[7»«14] Pest Control Script 14[[7ENABLED14]]
    unset %pcoff 
  } 
} 
alias pcoff {
  if (%pcoff) { notice $me Status is already OFF! | halt } 
  .notice $me chan 14**[7»«14] Pest Control Script 14[[7DISABLED14]]
  timerworld off
  set %pcoff on
}
on *:text:!off:#:{ 
  if ($nick isop $chan || $nick ishop $chan) {
    if (%pcoff) { notice $nick Status is already OFF! | halt } 
    msg $chan 14**[7»«14] Pest Control Script 14[[7DISABLED14]]
    timerworld off
    set %pcoff on
  } 
}
alias change {
  if (%pcoff) { halt }
  set %pctime $ctime 
  set %pcnick $me 
  set %pcworld $1- 
  timerworld off
  timerworld -o 0 15 /msg $chan 14[7 »« 14] The current Pest Control World is: 14[[7 $+ %pcworld $+ 14]]
  msg $chan 14**[[7UPDATE14]]1 World Changed to 14[7 $+ %pcworld $+ 14]1 by 14[7 $+ %pcnick $+ 14]**

}
on *:text:!change*:#:{
  if ($nick isreg $chan) { notice $nick You cannot change the world! | halt }
  if (%pcoff) { halt }
  set %pctime $ctime 
  set %pcnick $nick 
  set %pcworld $2- 
  timerworld off
  timerworld -o 0 15 /msg $chan 14[7 »« 14] The current Pest Control World is: 14[[7 $+ %pcworld $+ 14]]
  msg $chan 14**[[7UPDATE14]]1 World Changed to 14[7 $+ %pcworld $+ 14]1 by 14[7 $+ %pcnick $+ 14]**
}
on *:TEXT:*:#: {
  if ( %res > 45 ) {
    quit 45 MAX buffer limit. RESTART.
    server irc.SwiftIRC.net -j #pc
    nick  Jam3s
    set %res
  }
}