/usr/share/epic5/lice5/lice/lice.chanst 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 | #
# 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
# Updated to support halfop by tjh 13/05/2012
IF (word(2 $loadinfo()) != [pf]) {
LOAD -pf $word(1 $loadinfo());
RETURN;
};
PACKAGE LiCe;
# Description: gives some channel statistics
ALIAS chanst {
@ :ch.name = ischannel($0) ? [$0] : C;
UNLESS (onchannel($N $ch.name)) {
IF (ch.name == [0]) {
XECHO -B You're not on a channel in this window.;
RETURN;
};
XECHO -B $ch($ch.name)\: You're not on that channel.;
RETURN;
};
@ :ch.o = 0;
@ :ch.ho = 0;
@ :ch.d = 0;
@ :ch.v = 0;
@ :ch.t = 0;
@ :ch.h = hash_32bit($ch.name);
@ :ch.b = numitems(B$winserv()\-$ch.h);
FE ($channel($ch.name)) ch.1 {
@ ch.t++;
IF (left(1 $ch.1) == [@]) { @ ch.o++ }
ELSIF (left(1 $ch.1) == [%]) { @ ch.ho++ }
ELSIF (mid(1 1 $ch.1) == [+]) { @ ch.v++ }{
@ ch.d++;
};
};
@ :sets = strlen($lice.get(chan[$ch.h][S])) ? [\(Sets\: \+] ## lice.get(chan[$ch.h][S]) ## [\)] : [];
XECHO -B Stats $ch($ch.name)\: \($ch.t\) +o[$ch.o] +h[$ch.ho] +v[$ch.v] -o[$ch.d] +b[$ch.b] $sets;
};
#tjh/12
|