File: scan

package info (click to toggle)
epic5 3.0.3-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 5,328 kB
  • sloc: ansic: 75,810; makefile: 648; ruby: 227; python: 215; sh: 78; perl: 13
file content (23 lines) | stat: -rw-r--r-- 573 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
if (word(2 $loadinfo()) != [pf]) { load -pf $word(1 $loadinfo()); return; };

#
# Just a quick and dirty /scan routine. It's about as fast as I could
# make it. It could be fast if the nicks weren't aligned but that'd be
# ugly.
#
# - whitefang (thall@magenet.com)
#

alias scan (chan)
{
        @ chan = ischannel($chan) ? chan : C;
        unless (chan) 
                return;

        xecho -b Users on $chan:;
        fe ($strip(?. $channel($chan))) n1 n2 n3 n4 n5 n6 {
                echo $[11]n1 $[11]n2 $[11]n3 $[11]n4 $[11]n5 $[11]n6;
        };
};

# tjbh/2000