Advertisement
tjh

/opall - op a nick on all channels you're op on. For z2e

tjh
Oct 8th, 2015
173
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.41 KB | None | 0 0
  1. #
  2. # IRC Script Program. For use with ircii-EPIC5 clients.
  3. # Copyright (C) 2000 SrfRoG (cag@codehack.com)
  4. #
  5. # ---------------------------------------------------------------------------
  6. # All code by tjh, unless specified. Visit http://lice.muppetz.com
  7. # ---------------------------------------------------------------------------
  8. IF (word(2 $loadinfo()) != [pf]) {
  9. LOAD -pf $word(1 $loadinfo());
  10. RETURN;
  11. };
  12.  
  13. PACKAGE LiCe;
  14.  
  15. # OpAll - Op a Nick on all channels - for z2e
  16. ALIAS opall {
  17. UNLESS (@) {
  18. uecho Usage: /OPALL <nick>;
  19. RETURN;
  20. };
  21. @ :nick = [$0];
  22. @ serv = winserv();
  23. FE ($mychannels()) chan {
  24. UNLESS (ischanop($N $chan) && onchannel($nick $chan) && !ischanop($nick $chan)) {CONTINUE};
  25. _proc.quote_add $serv MODE $chan +o $nick;
  26. };
  27. _proc.quote_flush $serv;
  28. };
  29.  
  30. # DeOpAll - DeOp a Nick on all channels
  31. ALIAS dopall {
  32. UNLESS (@) {
  33. uecho Usage: /DOPALL <nick>;
  34. RETURN;
  35. };
  36. @ :nick = [$0];
  37. @ serv = winserv();
  38. FE ($mychannels()) chan {
  39. UNLESS (ischanop($N $chan) && onchannel($nick $chan) && ischanop($nick $chan)) {CONTINUE};
  40. _proc.quote_add $serv MODE $chan -o $nick;
  41. };
  42. _proc.quote_flush $serv;
  43. };
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement