All pastes #451370 Raw Edit

Something

public text v1 · immutable
·published 2007-04-21 13:31 UTC
rendered paste body
on *:invite:#:{
  if ($nick == $me) { 
    /timer 1 5 /set %pc.kicker. [ $+ [ $chan ] ] OFF  
  } 
}
on *:join:#:{ 
  if ($nick == $me) { 
    /timer 1 5 /set %pc.kicker. [ $+ [ $chan ] ] OFF 
  }
} 
on $*:text:/^[!@.]a(v|uto ?voice) ?on/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) { 
    /msg $chan 4,1Voice mode is now enabled for 8,1¤13,1 $chan 8,1¤ 
    set %var.av [ $+ [ $chan ] ] ON 
  }
}
on $*:text:/^[!@.]a(v|uto ?voice) ?off/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) { 
    /msg $chan 4,1Voice mode is now disabled for 8,1¤13,1 $chan 8,1¤
    set %var.av [ $+ [ $chan ] ] OFF 
  } 
}
on $*:text:/^[!@.]ban ?off/Si:#:{
  if ($nick isop $chan || $nick isop $chan) { 
    /msg $chan 4,1Ban mode is now disabled for 8,1¤13,1 $chan 8,1¤
    set %var.ban [ $+ [ $chan ] ] OFF 
  }
}
on $*:text:/^[!@.]ban ?on/Si:#:{
  if ($nick isop $chan || $nick isop $chan) { 
    /msg $chan 4,1Ban mode is now enabled for 8,1¤13,1 $chan 8,1¤
    /set %var.ban [ $+ [ $chan ] ] ON
  }
}

on $*:text:/^[!@.]a(dd)?wl/Si:#lolol:{
  if ($nick ishop $chan || $nick isop $chan) && ($read(wl.txt, w, $address($2,2) $+ $chan)) {
    notice $nick 4,1 $2 8,1¤13,1 (Host: $address($2,2) $+ ) 8,1¤4,1is already whitelisted on 8,1¤13,1 $chan $+ ! 8,1¤
  }
  elseif (!$read(wl.txt, sw, $address($2,2))) {
    write wl.txt $address($2,2) $+ $chan
    msg $chan 4,1 $($+(4,$2)) 8,1¤13,1 (Host: $address($2,2) $+ ) 8,1¤4,1has been whitelisted on 8,1¤13,1 $chan $+ . 8,1¤
  }
}
on $*:text:/^[!@.]d(el)?wl/Si:#lolol:{
  if ($nick ishop $chan || $nick isop $chan) && (!$read(wl.txt, w, $address($2,2) $+ $chan)) {
    msg $chan 4,1 $($+(4,$2)) 8,1¤13,1 (Host: $address($2,2) $+ ) 8,1¤4,1 Not found in whitelist database in 8,1¤13,1 $chan $+ . 8,1¤
  }
  elseif ($read(wl.txt, w, $address($2,2) $+ $chan)) {
    write -dw $+ $address($2,2) $+ $chan wl.txt
    msg $chan 4,1 $2 8,1¤13,1 (Host: $address($2,2) $+ ) 8,1¤4,1 has been successfully deleted from whitelist
  }
}

on $*:text:/^[!@.](combat-on|cmb-on|combat on|cmb on)/Si:#lolol:{
  if ($nick isop $chan || $nick ishop $chan || $nick == Lastrites) {
    msg $chan 4,1Reqs for 8,1¤13,1 $chan 8,1¤4,1 are currently 8,1¤13,1 ON 8,1¤4,1
  set %pc.kicker. [ $+ [ $chan ] ] ON  }
}
on $*:text:/^[!@.](combat-off|cmb-off|combat off|cmb off)/Si:#lolol:{
  if ($nick isop $chan || $nick ishop $chan || $nick == Lastrites) {
    msg $chan 4,1Reqs for 8,1¤13,1 $chan 8,1¤4,1 are currently 8,1¤13,1 OFF 8,1¤4,1
  set %pc.kicker. [ $+ [ $chan ] ] OFF  }
}
on *:text:!reqs*:#lolol: {
  if (%pc.kicker. [ $+ [ $chan ] ] == OFF) { halt }
  if ($nick isop $chan || $nick ishop $chan || $nick == Lastrites) && ($2-) {
    msg $chan 4,1Reqs for 8,1¤13,1 $chan 8,1¤4,1 Currently set to 8,1¤13,1 $2 8,1¤4,1 Combat or 8,1¤13,1 $3 8,1¤4,1 Attack/Str combined.
    set %cmb [ $+ [ $chan ] ] $2
  set %aas [ $+ [ $chan ] ] $3 }
  elseif ($nick isvoice $chan) || ($nick isreg $chan) || ($nick isop $chan) || ($nick ishop $chan) && (!$2-) {
    notice $nick 4,1Hey, you need combat and combined 8,1¤13,1 att+str 8,1¤4,1
    notice $nick 8,1¤13,1 eg. 8,1¤4,1!reqs 100 180 is level 100 combat with 180 combined att+str
    notice $nick 8,1¤13,1 Reqs atm are 8,1¤4,1 $iif(%cmb [ $+ [ $chan ] ] && %aas [ $+ [ $chan ] ] ,Combat %cmb [ $+ [ $chan ] ] or %aas [ $+ [ $chan ] ] combined att+str,Not set atm)
  }
}