Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- menu nicklist {
- Common channels $1: /comchans $1
- }
- alias comchans {
- var %csc $cid, %sci 0, %tot 0
- while (%sci < $scon(0)) {
- inc %sci 1
- scon %sci
- var %n $comchan($1,0)
- var %i 0
- while (%i < %n) {
- inc %i 1
- var %netchan $+($network,:,$comchan($1,%i))
- if (!$istok(%all,%netchan,32)) {
- var %t %t $comchan($1,%i)
- var %all %all %netchan
- inc %tot 1
- }
- }
- }
- echo -ag Total %tot Common channels with $1 - %t
- scid %csc
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement