/usr/share/epic5/script/guh is in epic5 1.1.11-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | if (word(2 $loadinfo()) != [pf]) { load -pf $word(1 $loadinfo()); return; };
/*
* guh Copyright 1993 - Dont ask me why i called it that. I just did.
*
* Written by Jeremy Nelson (jnelson@acronet.net)
* Requires ircII-EPIC
*
* General aliases that are useful for tracking
* "whatchan" - returns all the channels a person is on
* "is_on" - returns the nickname of a user if s/he is on.
* "uh" - takes a list of names and returns a list of userhosts
* corresponding to those nicks
* "inc" - more for antiquity's sake, proves a point
*/
alias whatchan
{
stack push on 319;
^on ^319 * {
stack pop on 319;
return $1-;
};
wait for ^whois $0;
};
alias is_on
{
@ serverctl(set $servernum() maxison 0);
^local blahblah;
stack push on 303
^on ^303 * {
bless;
push blahblah $*;
};
wait for ison $*;
stack pop on 303;
return $blahblah;
};
alias is_off
{
^local blahblah $*;
fe ($is_on($*)) foo {
@ blahblah = remw($foo $blahblah);
};
return $blahblah;
};
alias uh
{
^local blahblah;
wait for {
^userhost $* -cmd {
bless;
push blahblah $3@$4;
};
};
return $blahblah;
};
alias inc (var, amt default 1)
{
@ *var += amt;
};
#hop'93
|