/usr/share/epic5/lice5/lice/lice.sc 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 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 | #
# 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 for EPIC5 by tjh
IF (word(2 $loadinfo()) != [pf]) {
LOAD -pf $word(1 $loadinfo());
RETURN;
};
PACKAGE LiCe;
ALIAS sc {
IF ([$0]==[-f]) {
IF (!ismset(V)) {
@ :xum = 1;
@ lice.set(main.mset ${lice.get(main.mset)##[V]});
};
NAMES ${ischannel($1) ? [$1] : C};
IF (xum) {WAIT -CMD @ lice.set(main.mset $strip(V $lice.get(main.mset)))};
RETURN;
};
@ :chan = ischannel($0) ? [$0] : C;
IF (chan == [0]) {RETURN};
UNLESS (onchannel($servernick() $chan)) {
NAMES $chan;
RETURN;
};
@ :max = fmt.sc_max() ? fmt.sc_max() : (word(0 $geom()) - 1) / 11;
@ :min = ismset(T) ? ((strlen($strftime($lice.get(main.tsfmt))) + 2) / 11) + 1 : 0;
@ :max -= min;
@ scn.v = scn.o = scn.l = scn.h = 0;
@ :scn.list = [];
ECHO $fmt.sc_top($chan);
FE ($channel($chan)) nick {
PUSH scn.list $_proc.scn_mode($nick);
IF (numwords($scn.list) != max) {CONTINUE};
ECHO $fmt.sc_mid($scn.list);
@ :scn.list = [];
};
IF (strlen($scn.list)) {ECHO $fmt.sc_mid($scn.list)};
@ :scn.t = scn.v + scn.o + scn.l + scn.h;
IF (aliasctl(ALIAS EXISTS fmt.sc_bot)) {ECHO $fmt.sc_bot($chan $scn.o $scn.h $scn.v $scn.l $scn.t)};
purge scn;
};
ALIAS _proc.scn_mode (nick) {
@ :nic = mid(2 9 $nick);
IF (left(1 $nick) == [@]) {
@ scn.o++;
^LOCAL mod @;
} ELSIF (left(1 $nick) == [%]) {
@ scn.h++;
^LOCAL mod %;
} ELSIF (mid(1 1 $nick) == [+]) {
@ scn.v++;
^LOCAL mod +;
} ELSE {
IF (strlen($nick)) {@ scn.l++};
};
@ :ret = mod ## nic;
RETURN $ret;
};
#tjh/12
|