Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #
- # IRC Script Program. For use with ircii-EPIC5 clients.
- # Copyright (C) 2000 SrfRoG (cag@codehack.com)
- #
- # ---------------------------------------------------------------------------
- # All code by tjh, unless specified. Visit http://lice.muppetz.com
- # ---------------------------------------------------------------------------
- IF (word(2 $loadinfo()) != [pf]) {
- LOAD -pf $word(1 $loadinfo());
- RETURN;
- };
- PACKAGE LiCe;
- # OpAll - Op a Nick on all channels - for z2e
- ALIAS opall {
- UNLESS (@) {
- uecho Usage: /OPALL <nick>;
- RETURN;
- };
- @ :nick = [$0];
- @ serv = winserv();
- FE ($mychannels()) chan {
- UNLESS (ischanop($N $chan) && onchannel($nick $chan) && !ischanop($nick $chan)) {CONTINUE};
- _proc.quote_add $serv MODE $chan +o $nick;
- };
- _proc.quote_flush $serv;
- };
- # DeOpAll - DeOp a Nick on all channels
- ALIAS dopall {
- UNLESS (@) {
- uecho Usage: /DOPALL <nick>;
- RETURN;
- };
- @ :nick = [$0];
- @ serv = winserv();
- FE ($mychannels()) chan {
- UNLESS (ischanop($N $chan) && onchannel($nick $chan) && ischanop($nick $chan)) {CONTINUE};
- _proc.quote_add $serv MODE $chan -o $nick;
- };
- _proc.quote_flush $serv;
- };
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement