/usr/share/epic5/lice5/lice/lice.msay is in epic5-script-lice 1:5.3.0-1.
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 | #
# IRC Script Program. For use with ircii-EPIC5 clients.
# Copyright (C) 2000 SrfRoG (cag@codehack.com)
#
# ---------------------------------------------------------------------------
# All code by SrfRoG, unless specified. Visit https://lice.muppetz.com
# ---------------------------------------------------------------------------
# Updated to support all servers by tjh 14/5/2012
IF (word(2 $loadinfo()) != [pf]) {
LOAD -pf $word(1 $loadinfo());
RETURN;
};
PACKAGE LiCe;
ALIAS msay {
SWITCH ($0) {
() {uecho Usage: /MSAY [-a] <public text>};
(-a) {
FOR serv from 0 to $serverctl(MAX) {
IF (serverctl(GET $serv CONNECTED)) {
@ msay_list = mychannels($serv);
^ASSIGN msay_send $1-;
_proc.loop_send $serv PRIVMSG msay_list msay_send;
};
};
ECHO $fmt.send_public(ALL/#* $1-);
};
(*) {
@ msay_list = mychannels();
^ASSIGN msay_send $*;
_proc.loop_send $winserv() PRIVMSG msay_list msay_send;
ECHO $fmt.send_public(#* $*);
};
};
};
#tjh/12
|