/usr/share/epic5/lice5/lice/lice.pic 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 | #
# IRC Script Program. For use with ircii-EPIC5 clients.
# Copyright (C) 2000 SrfRoG (cag@codehack.com)
#
# ---------------------------------------------------------------------------
# Description : ASCII pics for LiCe
# Sources : kendi/mozy, CKeeper, alt.ascii.cow, DeadelviS.
# Code : SrfRoG (cag@codehack.com)
# ---------------------------------------------------------------------------
# Updated for EPIC5 by tjh
IF (word(2 $loadinfo()) != [pf]) {
LOAD -pf $word(1 $loadinfo());
RETURN;
};
PACKAGE LiCe;
ALIAS PIC {
IF (@) {
@ :pic.trg = strlen($1) ? [$1] : C;
@ :pic.file = which($LiCePath/pics/$0);
UNLESS (strlen($pic.file)) {RETURN};
@ :pic.fd = open($pic.file R);
UNLESS (pic.fd) {
XECHO -B Could not open "$0\";
RETURN;
};
UNTIL (eof($pic.fd)) {
@ :pic.str = read($pic.fd);
IF (pic.str) {MSG $pic.trg $pic.str};
};
@ close($pic.fd);
IF (strlen($2)) {MSG $pic.trg ** $2-}
}{
IF (fexist($LiCePath/pics) == 1) {
CD $LiCePath/pics;
@ :pic.list = glob(*);
^CD ~;
UNLESS (strlen($pic.list)) {
XECHO -B No pictures found;
RETURN;
};
iecho Your picture collection:;
echo.recursive $pic.list;
uecho Usage: /PIC <picture> [target] [message];
}{
XECHO -B Path not found: $LiCePath/pics;
IF (mkdir($LiCePath/pics)) {
XECHO -B Failed to create: $LiCePath/pics;
};
};
};
};
#tjh/12
|