lice5/0040777000000000000000000000000012551355737007032 5ustar00lice5/back.reasons0100777000000000000000000000075612551352056011325 0ustar00and if you laugh, i'll kill you! "LiCe: The few, the proud, the elite!" what's up? o/~ did i miss anything? please forgive me! with beer and pretzels for everyone! (yeah right) because i want to be bored "Linux: Saving us from the Gates from Hell" que pasa? "Linux: The choice of a GNU generation" and not happy about it either! hey. i am happy to be back. really. you can continue now. "LiCe: It picks up chicks!" for more...lag...lameness...and net*cough*sex next time, don't wait for me :) lice5/error.reasons0100777000000000000000000000044412551352056011550 0ustar00You are dumb :) Watch what you're doing dumbass! Erroneous Error, Erradicate!! This program will self-destruct in 5 minutes. You, stupid iiiiiidiot! Leave me alone, you sick little monkey! Error 001: Stupid User Detected. Count to 100 and try again. Snap out of it! Lamer alert! Lamer alert! lice5/extra/0040777000000000000000000000000012551355727010154 5ustar00lice5/extra/changelog.legacy0100777000000000000000000003374612551352056013276 0ustar00*** Changes in version 5.0.4m (modified) - Ugh. Embarassing mistake in /WTOG T function. Fixed. - We now unload the old theme before we load the new theme. This removes any custom on's etc the old theme may have set. Gives themers greater flexibility to changes things, without disrupting LiCe itself. - Properly fixed tab completion afer harassment from whitefang. - Small UI enhancements to the /TOG and /SENSORS systems. - Some other updates I'd missed to ensure things work with epic5. Upside is that oper-vision and ^wj will now complete correctly. *** Changes in version 5.0.3m (modified) - Added /et to quickly edit the current topic. Thanks whitefang for enhancement ideas. - Made /help accept two words, i.e. /help oper boot. This mirrors how help used to work in LiCe4. Requested by whitefang. - Updated all the theme's topicbar's. I'm no designer, feedback/changes are welcome! - Added two new binds, esc-l -> /PPL & esc-c -> /CLEAR [from Skuld] - Fixed /memo playback *** Changes in version 5.0.2m (modified) - Reimplemented help. It's an ugly bit of code but I'm still learning. It works well though. - Fixed topicbar not updating on theme change. - More optimizing /wtog t routine. - Autonick fixes and user notification clarity. - Fixed environment variable IRCNICK not settings /ar or /sens n on first time load. - If fmt.whois_bot or fmt.sc_bot is empty, a blank line will no longer be printed. Requested by whitefang for theme flexability. - Added new theme Erik3.2 by Erik (erik@z2e.org) - whitefang updated the BitchX theme. - Fixed a bunch of themes to support topicbar (/wtog t) - Fixed problem with chanlog -l (reported by whitefang!) *** Changes in version 5.0.1m (modified) - Unreleased test version with some internal changes and PF loader fixes. Bugfixes only! *** Changes in version 5.0.0m-beta (modified) - Welcome to the first beta of LiCe5! - Removed left overdebugging codes, cleaned up a few files. - epic5 1.1.2 is the minimum recommended version *** Changes in version 5.0.0m-rXX (modified) - Changed channel cache formatting, now uses fmt.topic_set. Keeps consitancy and looks better. - Fixed last few bugs in topline migration. Works as expected now! *** Changes in version 5.0.0m-r50 (modified) made by tjh [tim@muppetz.com] 6/06/09 - New version by tjh (tim@muppetz.com) working with epic5-1.0. - Converted all LiCe files to PF loader format. - New LiCe website! How long will this one last? - A lot of fixes for epic5. mask 11, LEAVE->PART, syntax issues. - Fixed tab completion. - Fixed themes to work with removal of REVERSE_STATUS in epic5 - Integrated /chanlog from wolf.scr addon for LiCe4. - Updated /WTOG T to use epic5's toplines feature. - Backed out some of HSOC's changes that seemed user specific. - Reverted /CTOG Q = Deafness. - Logging of invites while away. - Made auto-whois on inital message a toggle (MTOG i) - Added detection of server SILENCE support. A flood will now activate SILENCE for the isolate time, if server supports it. *** Changes in version 5.0.0i (independent) made by HSOC 22/03/04 - We welcome EPIC5... - various changes... - /CTOG Q now results in total deafness if preceded by /CTOG D (now stands for deaf as well). - integraded (copy) howl's help script from epic distribution. - fix wget to parse pages (NONBLOCKING). - fix /NEWS -r (again). - first public release (we are THERE!) 06/05/04 *** Changes in version 4.2.5i (independent) made by HSOC 10/28/03 - auto nick change on window queries (^w+q). - new lice.binds to fit latest EPIC4 client. - latest lice tab completion by srfrog. - updated themes. - fixed /TRANS and /NEWS (again!). - support for temporary ignores. (/SENSORS 2) - slightly more efficient flood protection. - /WINDOW KILL (^W+k) will now part you from ^W+j #chans - minor alias refurbishing and code refinement. * NOTICE: it is impossible to follow EPIC4 progress closely so starting from now I provide minimal fixes to this script _but_ I do not use EPIC4 to its full extend. New scripters are welcome. *** Changes in version 4.2.2i (independent) made by HSOC - 08/10/01 - /CTOG 2 JOIN/PART flood protection. (WILL BAN CYCLE FREAKS) - /BAN can now stack multiple modes. (+bbb) - /NEWS: -s works again, -t is gone. - Fixed possible security risk in some themes occured while /WTOG T was on. - Major /PARTY improvements + addons. - /COLOR will now kick/ban color text. (depends on /ctog CF) - Sockscanner now needs /CTOG J + /CTOG 2 ON to work. - This includes _ANY_ known bugs so consider it final product. *** Changes in version 4.2.1i (independent) made by HSOC - 04/22/01 - First public release of the tarball to celebrate the EPIC4.1.1 release. - Fix in userlist (now will op existing masks in multiple handles). (RoboHak) - Added /news -t International Headlines from the New York Times. - Minor refining of the code. - Added blackwind theme and updated armitage by Voland. - ARE WE THERE YET ???? (mail/suggestions?? hsoc@irc.gr) *** Changes in version 4.2.0i (independent) made by HSOC - 06/28/00 *LOTS* of help from the main man SrfRoG. Last edit: 10/8/00 - Fixed word/nick completion for epic4-510+ - New improved /BWORD now bans + accepts strings. - New improved flood protection will not ignore. people who are in the NO-IGNORE list (/IG nick ^msgs, ^all etc) - Default and HS themes now honor EPIC's /IG nick +public switch - New improved cache list now caches nick + time of the ban when possible. - Savelist updated to accept the + switch infront of masks. - /RBAN -l time removes bans older than "time". (in minutes) - /RBAN -n removes all bans made by this nick. - DEOP FLOOD protection (quite strict and not changeable) - /TOG X works in multiple servers. - New theme "merenta" (HS) - New theme "clice" (whitefang) - New theme "rage" by Chris O'Callaghan. - Will not attempt to remove old bans if already removed. - If you part a channel we keep your sets, dont save. (/CTOG) - /sdcc shows graphic status of dcc transfers. - Improved looks on /NOIG. - Added friendly /SILENCE interface. - Brought back Esc-e to reconnect to splitted servers. - Elite netjoin routine will silence JOINS PARTS CRAP on netjoins. (we use the isolate client value) - /RTAB [esc+r] now removes nicks from your tablist (thanks sot) - If /MTOG V, LiCe will automatically change to the new nick in tablist IF the person is in one of your current channels. - Fixed _proc.reply_action _annoying_ bug. (important when you join the same #chans in 2 servers) - /SBAR /MBAR /WBAR /DBAR added. (compact view of togs) - /CTOG now will set your normal channel togs if you are not in any channel. - /RAR removes auto-reply buffer. - /GDCC - skuld's gdcc by popular demand. - /CTOG D,J and N now actually work. - Will ban clones if tog J is on (according to $FLOOD_AFTER set) - Shows if a mask bans more than one person (if mtog v is on) - Added /ITIME Swatch's World Internet Time. - /TRANS fixed by SrfRoG. - Probably lots of minor fixes not worth mentioning. - Fixed friend command !PASS - reported by fahren - LiCe will no longer try to ignore servers - Heavy optimizations to userlist routines - /REOP wont try to op yourself - reported by Q - New "/WTOG T" for titlebar ... the text is setup from the themes. - Major /ADCC revamp, it now supports "files with spaces". (srfrog) - /DCC RESUME now resumes files regardless of $DCC_PATH - New /TOG R will make LiCe scan your channels and cycle for ops - /rdcc -a works as expected - Added /trace, /refriend, /fwall based on skuld - /SCAN scans your current channel for insecure SOCKS hosts. We use an indepedent c proggie for this purpose Also when /CTOG J is on and /TOG Q is off we scan hosts on join. You probably need to reompile sscan.c - /WTOG A allows to create seperate DCC/MSG windows. - Added cummulative deop/kick protection (checks for slow attempts) - Added adressbook (/BOOK) for /IMAIL (idea by Boldtrick) - Added /protect [esc+`] manually isolates the client and v/versa - /NEWS now checks for headlines from Reuters. - LOTS of trivial fixes. *** Changes in version 4.1.8,9 - 01/04/00 (Emergency Release 2) - Fixed more problems with themes UGH! - New "/MTOG 2" will toggle weather or not to touch the TAB reply list from auto-reply (public). - Fixed a problem detecting IRC Usermodes from env. *** Changes in version 4.1.7 - 01/04/00 (Emergency Release) - Fixed lame bug in userlist that would render it useless - found by fahren - /BAN wont remove/add the same ban (redundant) - found by fahren - Fixed some problems with themes. *** Changes in version 4.1.6 - 01/03/00 - Fixed last possible TAB bug, bleh - reported by Q - Fixed bug in /MTOG T - reported by Q - Auto Unban (/SENSORS 1) is disabled by default, to preserve the old behavior. /BAN -t will override this when used, as it should. - Fixed userlist cache for nick changes - reported by fahren - Fixed auto-unban for bans with "\"'s - reported by Charvel - Added a small delay to auto-nick to avoid self-nick collides, if this works ok, i'll add it to /SENSORS - suggested by Charvel - Fixed /SET REALNAME not to override your IRCNAME environment variable - reported by Martin Lucina - Changed the syntax for /TRANS, seems some people didnt like the old one. - delayed op/voice on join will only happen if the user isnt op/voice yet. - Fixed problem with patterns in the userlist - reported by fahren - Fixed kick when setting any keys - reported by fahren - The ban cache gets updated properly now - reported by fahren - Fixed ignores being saved over and over. - Keys f1-f12 point to the respective window, this might change in a future version (and it will). - Added two new themes (ktheme, khaze) from invalid - Added new theme (simplex) from Q - Added new theme (revamped lice3) from whitefang - Fixed /NEWS further, send me more comments on sites to add!! - Using /SET OUTPUT_REWRITE for timestamps now. *** Changes in version 4.1.5 - 11/29/99 - Fixed crash bug when trying to reconnect a server. - Added /IGNORE PARTS to "/CTOG Q" - Using new /SENSORS from whytefang - All bans are auto-remove by default, check /SENSORS - User /IGNORE's are now saved! (Channels always have saved under /CTOG) - Auto AWAY will only happen on the server you are idle, and mark you away only in that server. - Auto nick won't happen if a netsplit was detected recently, to avoid nick collisions. - Fixed /TOG X + Auto AWAY mess - reported by HSOC - Fixed nicks with slashes in TAB completion - reported by HSOC - Fixed old obscure bug in TAB completion, hopefully we're really fixed now. - Fixed BITCH MODE - reported by many people - Fixed Nethack protection - reported by wito - New command /NEWS added. ALPHA VERSION - New themes from HSOC *** Changes in version 4.1.4 - 11/03/99 (Emergency Release) - Fixed broken /BAN - Fixed broken tab completion - Fixed broken /SPING *** Changes in version 4.1.3 - 10/31/99 - New fmt hook "ftm.wallop_server" to break apart oper/server wallops. Also fixed fmt.wallop. - AutoNick (TOG A) now works from /SENSORS and updates automatically. - Added "/WTOG C" for dedicated DCC CHAT window. - Added "/MTOG 1" for alarming you of auto-reply activity in a window that isnt your current one. - New option "-t" for /BAN to specify temporary bans. - Added "/CTOG 1" to toggle the effectiveness of flood bans. - Syntax of /DEF was changed due to conflicts with phrase look ups. - Syntax of /TRANS was changed to add relay options. - /RLAG enhanced to handle SERVER PING responses. Also, aliases to /SPING for compatibility with the old skuld3 command. - Added new color pics for /PIC contributed by awol. - Added command /NEWS to read headlines from some popular online news sites. - Some changes in /SENSORS please check 'em out. - New themes added, check /THEME. *** Changes in version 4.1.2 - 09/17/99 - Fixed bug in theme "lice3" found by whitefang - Fixed bug in banlist found by aS2 - Fixed another bug in the userlist found by sage *** Changes in version 4.1.1 - 09/11/99 - Fixed more TAB bugs found. - Fixed DCC RESUME/DCC AUTOGET logic bugs. - Added new command /PPL, a port of skuld3's command. - Fixed +AV/+AO bug, it was an EPIC4 logic bug. - Changed the behavior of /BAN to allow multiple ban modes for the same user. See "/help oper ban" *** Changes in version 4.1.0 - 09/10/99 - Minor fixes to TAB completion, it works like the old one now. - Added new command /TRANS contributed by whitefang. It uses babelfish (http://babelfish.altavista.com) to translate text from different languages. See "/HELP user trans" - Changed "/CTOG O" (note reminders) to "/CTOG E". - Added two new channel toggles: "/CTOG O" and "/CTOG V" to control wether or not to kick ops/voices when they flood the channel. "/CTOG O" is on by default - dont kick ops on flood. - Server-oriented tab completion for /MSG (and friends). - Moved "/TOG V" (extended msgs) to "/MTOG", makes more sense there. - Moved "/TOG W" (msgs window) to "/WTOG", makes more sense there. - Added support for new EPIC4 /SAVE command. Load saved server list. *** Changes in version 4.0.11 - 07/25/99 - Rewrote TAB completion, again. - Fixes to WINDOW creation/switching mechanisms. - Many partyline fixes. *** Changes in version 4.0.10 - 07/24/99 - ChangeLog added back by popular demand. - New command /WTOG to control options for windows - Support for IrcNet's +e/+I channel modes. New commands: /BEXC /BINV /SI /SE /REXC /RINV to manipulate the +e/+I lists exactly like bans. - New BitchX theme contributed by whytefang. - New syntax theme contributed by whytefang. - Fixed several bugs in the partyline code. - New toggle option "/MTOG H" to highlight the auto-reply word(s) in the text string. VERY CPU EXPENSIVE! - New theme routines. - Improved TAB completion. Faster and smaller, the completion works anywhere in the string! - Improvements on existant code overall. *** Changes in version 4.0.9 - Unreleased lice5/extra/cooltalk.scr0100777000000000000000000001466412551352056012500 0ustar00# Dir. : ~/Deturbo # Name : tool.talk # Desc. : Cool Talking Tool - DESS # Version : 5.0 # ToolId : T7 # Date : 1/6/95 # Author : Converted by FRobOS!bcoats@indiana.edu # : See additional credits below. # Size : 11009 # Attrib. : rw-r--r-- # # This tool is a collection of CoolTalk aliases converted to # DESS originally taken from SuperPak by TG!cedras@rahul.net. # Original CoolTalk written by Sunil!sunil@silicone.che.sdsmt.edu and # drow!drow@phantom.com. Thanks to all these people for providing the # source of this tool. # DESS tool setup #^De.Tool.id T7 TALK 5.0 FRobOS!bcoats@indiana.edu IF ([$De.Version]==[]) {^alias De.Echo echo *** $0- ^alias HelpTalk T7.HelpTalk echo *** Talk loading - a DESS tool script echo *** /HelpTalk for help. } ALIAS BSAY { IF (strlen($0)) { @ :txt = ischannel($0) ? [$1-] : [$0-] @ :wid = strlen(SAY1 $txt) / 2 MSG ${ischannel($0)?[$0]:[$C]} $repeat($wid 2,10$chr(219)10,2$chr(219)) MSG ${ischannel($0)?[$0]:[$C]} 10,2$chr(219)11 $txt 2,10$chr(219) MSG ${ischannel($0)?[$0]:[$C]} $repeat($wid 2,10$chr(219)10,2$chr(219)) }{ECHO *** Usage: /BSAY [#channel] } } # DESS tool ^assign T7.Sane.Set abcdefghijklmnopqrstuvwxyz ^assign T7.Leet.Set.0.0 a ^assign T7.Leet.Set.0.1 A ^assign T7.Leet.Set.0.2 @ ^assign T7.Leet.Set.0.3 a ^assign T7.Leet.Set.1.0 b ^assign T7.Leet.Set.1.1 B ^assign T7.Leet.Set.1.2 |3 ^assign T7.Leet.Set.1.3 b ^assign T7.Leet.Set.2.0 c ^assign T7.Leet.Set.2.1 C ^assign T7.Leet.Set.2.2 ( ^assign T7.Leet.Set.2.3 [ ^assign T7.Leet.Set.3.0 d ^assign T7.Leet.Set.3.1 D ^assign T7.Leet.Set.3.2 c| ^assign T7.Leet.Set.3.3 |) ^assign T7.Leet.Set.4.0 e ^assign T7.Leet.Set.4.1 E ^assign T7.Leet.Set.4.2 3 ^assign T7.Leet.Set.4.3 [- ^assign T7.Leet.Set.5.0 f ^assign T7.Leet.Set.5.1 F ^assign T7.Leet.Set.5.2 /= ^assign T7.Leet.Set.5.3 ph ^assign T7.Leet.Set.6.0 g ^assign T7.Leet.Set.6.1 G ^assign T7.Leet.Set.6.2 9 ^assign T7.Leet.Set.6.3 g ^assign T7.Leet.Set.7.0 h ^assign T7.Leet.Set.7.1 H ^assign T7.Leet.Set.7.2 # ^assign T7.Leet.Set.7.3 |-| ^assign T7.Leet.Set.8.0 i ^assign T7.Leet.Set.8.1 I ^assign T7.Leet.Set.8.2 1 ^assign T7.Leet.Set.8.3 ! ^assign T7.Leet.Set.9.0 j ^assign T7.Leet.Set.9.1 J ^assign T7.Leet.Set.9.2 _/ ^assign T7.Leet.Set.9.3 j ^assign T7.Leet.Set.10.0 k ^assign T7.Leet.Set.10.1 K ^assign T7.Leet.Set.10.2 |< ^assign T7.Leet.Set.10.3 k ^assign T7.Leet.Set.11.0 l ^assign T7.Leet.Set.11.1 L ^assign T7.Leet.Set.11.2 |_ ^assign T7.Leet.Set.11.3 /_ ^assign T7.Leet.Set.12.0 m ^assign T7.Leet.Set.12.1 M ^assign T7.Leet.Set.12.2 |\/| ^assign T7.Leet.Set.12.3 m ^assign T7.Leet.Set.13.0 n ^assign T7.Leet.Set.13.1 N ^assign T7.Leet.Set.13.2 |\| ^assign T7.Leet.Set.13.3 /v ^assign T7.Leet.Set.14.0 o ^assign T7.Leet.Set.14.1 O ^assign T7.Leet.Set.14.2 0 ^assign T7.Leet.Set.14.3 () ^assign T7.Leet.Set.15.0 p ^assign T7.Leet.Set.15.1 P ^assign T7.Leet.Set.15.2 /> ^assign T7.Leet.Set.15.3 p ^assign T7.Leet.Set.16.0 q ^assign T7.Leet.Set.16.1 Q ^assign T7.Leet.Set.16.2 (,) ^assign T7.Leet.Set.16.3 q ^assign T7.Leet.Set.17.0 r ^assign T7.Leet.Set.17.1 R ^assign T7.Leet.Set.17.2 /~ ^assign T7.Leet.Set.17.3 /^ ^assign T7.Leet.Set.18.0 s ^assign T7.Leet.Set.18.1 S ^assign T7.Leet.Set.18.2 5 ^assign T7.Leet.Set.18.3 $ ^assign T7.Leet.Set.19.0 t ^assign T7.Leet.Set.19.1 T ^assign T7.Leet.Set.19.2 + ^assign T7.Leet.Set.19.3 ~|~ ^assign T7.Leet.Set.20.0 u ^assign T7.Leet.Set.20.1 U ^assign T7.Leet.Set.20.2 (_) ^assign T7.Leet.Set.20.3 |_| ^assign T7.Leet.Set.21.0 v ^assign T7.Leet.Set.21.1 V ^assign T7.Leet.Set.21.2 \/ ^assign T7.Leet.Set.21.3 v ^assign T7.Leet.Set.22.0 w ^assign T7.Leet.Set.22.1 W ^assign T7.Leet.Set.22.2 |/\| ^assign T7.Leet.Set.22.3 \/\/ ^assign T7.Leet.Set.23.0 x ^assign T7.Leet.Set.23.1 X ^assign T7.Leet.Set.23.2 >< ^assign T7.Leet.Set.23.3 x ^assign T7.Leet.Set.24.0 y ^assign T7.Leet.Set.24.1 Y ^assign T7.Leet.Set.24.2 `/ ^assign T7.Leet.Set.24.3 v/ ^assign T7.Leet.Set.25.0 z ^assign T7.Leet.Set.25.1 Z ^assign T7.Leet.Set.25.2 2 ^assign T7.Leet.Set.25.3 ~/_ alias T7.CoolTalk.1 {@ T7.Sane.Str = [$*] @ T7.Sane.Len = @T7.Sane.Str @ T7.Leet.Str = [] @ T7.Leet.Len = 0 while (T7.Leet.Len < T7.Sane.Len) {@ T7.Leet.Ind = index($mid($T7.Leet.Len 1 $T7.Sane.Str) $T7.sane.set) if (T7.Leet.Ind > -1) {@ T7.Leet.Str = T7.Leet.Str ## T7.leet.set[$T7.Leet.Ind][$rand(4)] } {@ T7.Leet.Str = T7.Leet.Str ## mid($T7.Leet.Len 1 $T7.Sane.Str) } @ T7.Leet.Len = T7.Leet.Len + 1 } @ function_return = T7.Leet.Str ^assign -T7.Leet.Len ;^assign -T7.Leet.Str ;^assign -T7.Leet.Ind ^assign -T7.Sane.Str ;^assign -T7.Sane.Str } alias T7.CoolTalk.2 {@ T7.In = [$0-] @ T7.Out = [] @ T7.Sz = @T7.In @ T7.Pt=0 while (T7.Pt < T7.Sz) {@ T7.Out = [$mid($T7.Pt 1 $T7.In)] ## T7.Out @ T7.Pt = T7.Pt + 1 } @ function_return= T7.Out } ^alias Me1 //me $T7.CoolTalk.1($0-) ^alias Say1 //say $T7.CoolTalk.1($0-) ^alias Msg1 //notice $0 $T7.CoolTalk.1($1-) ^alias Topic1 //topic $C $T7.CoolTalk.1($0-) #^alias Describe1 //describe $0 $T7.CoolTalk.1($1-) #^alias Reply1 Reply $0 $T7.CoolTalk.1($1-) ^alias Me2 //me $T7.CoolTalk.2($0-) ^alias Say2 //say $T7.CoolTalk.2($0-) ^alias Msg2 //notice $0 $T7.CoolTalk.2($1-) ^alias Topic2 //topic $C $T7.CoolTalk.2($0-) #^alias Describe2 //describe $0 $T7.CoolTalk.2($1-) #^alias Reply2 Reply $0 $T7.CoolTalk.2($1-) ^alias T7.HelpTalk { echo $bold$under\CoolTalk$bold$under $boldVersion 5.0 FroboS echo echo CoolTalk is a collection of talking/msging/etc alaises taken from echo Various Sources(SuperPak, Infinity, jfk), and modified slightly to fit echo DESS format to work with deturbo. Original CoolTalk co-authored by echo Sunil!sunil@silicone.che.sdsmt.edu and drow!drow@phantom.com. echo echo Usage: /me# /say# /msg# /topic# /describe# echo (Where # is a number value 1-2 ie. /me2 ) echo echo Samples: echo 1 $T7.CoolTalk.1(Sample Text) 2 $T7.CoolTalk.2(Sample Text) } ##-end lice5/extra/darkness.irc0100777000000000000000000000147212551352056012461 0ustar00### darkness oh oh oh great one! ### do we really want to see all notices? :p PACKAGE dark ALIAS darkness dark $* ALIAS dark (switch) { IF (switch) { IF (switch == [OFF]) { ^ASSIGN -dsw XECHO -B Removed filter of annoying server notices in $servername() ^ON ^SERVER_NOTICE -"% ??? %NOTICE% -- K-lined *" ^ON ^SERVER_NOTICE -"% ??? %NOTICE% -- Autokilled *" ^ON ^SERVER_NOTICE -"% ??? %NOTICE% -- SSL_accept() *" RETURN } @ dsw = 1 XECHO -B Now filtering annoying server notices in $servername() ^ON ^SERVER_NOTICE "% ??? %NOTICE% -- K-lined *" # ^ON ^SERVER_NOTICE "% ??? %NOTICE% -- Autokilled *" # ^ON ^SERVER_NOTICE "% ??? %NOTICE% -- SSL_accept() *" # }{uecho Usage: /DARKNESS [ON|OFF] \(currently ${dsw ? [ON] : [OFF]}\)} } #HS/03 lice5/extra/dcrypt-4-epic4.irc0100777000000000000000000002150712551352056013320 0ustar00#### #### Dynamicrypt, (c)1996 Slasher. Mods by SrfRoG/asmodean/HSOC #### v1.0m, public release. #### #### This code brought to you by Slasher: 100% elite, 100% cryptic. #### #### 02/25/96 : Basic encryption / decryption scheme active. #### 02/28/96 : Added user friendly symbols to indicate en/de-cryption #### 03/04/96 : Fixed [Bogus Encryption] errors in decrypt sequence. #### 03/07/96 : Added multichannel decryption support. #### 03/08/96 : Fixed repeating of last message error. #### 05/11/96 : Enhanced for ircii-2.8.2 #### - Added fec() support, for faster proc. #### - Lots of hacks to make it faster/safer. #### 07/11/96 : added ON PUBLIC/ON PUBLIC_OTHER hooks to avoid multiple- #### leaks. Also changed the public mask to ^O^O to avoid fake #### encryption. #### 04/24/98 : Enhanced for EPIC 3.004 by asmodean #### The encryption now designates blocks of encrypted text, #### deliminated by ascii 5 chars (^E), instead of being #### hard coded to public text. Encrypted blocks anywhere #### are automatically decrypted and underlined. #### 06/07/98 : Changed the function names to avoid conflict with internal #### EPIC client functions. Now dencrypt() and ddecrypt(). #### 02/11/98 : Added more aliases eglobops/ewall(ops). #### 09/16/00 : Ported for EPIC4 by HSOC (FINALLY) #### added multiple hooks for decoding. @ crypt.ver = [v1.0m] @ crypt.dec = chr(5) @ crypt.alpha = [abcdefghijklmnopqrstuvwxyz] alias e { if ([$0]) { MSG $C $crypt.dec$crypt.dec$cencrypt($*) }{uecho [?] USAGE: /E } } alias em emsg alias en enotice alias emsg if ([$0]) {msg $0 $crypt.dec$crypt.dec$cencrypt($1-)}{uecho [?] USAGE: /EMSG } alias enotice if ([$0]) {notice $0 $crypt.dec$crypt.dec$cencrypt($1-)}{uecho [?] USAGE: /ENOTICE } alias ekill if ([$0]) {kill $0 $crypt.dec$crypt.dec$cencrypt($1-)}{uecho [?] USAGE: /EKILL } alias eme if ([$0]) {me $crypt.dec$crypt.dec$cencrypt($*)}{uecho [?] USAGE: /EME } alias eglobops if ([$0]) {globops $crypt.dec$crypt.dec$cencrypt($*)}{uecho [?] USAGE: /EGLOBOPS } alias ewallops if ([$0]) {wallops $crypt.dec$crypt.dec $cencrypt($*)}{uecho [^B?^B] USAGE: /EWALLOPS } alias etopic if ([$0]) { if (ischannel($0)) { topic $0 $crypt.dec$crypt.dec$cencrypt($1-) }{etopic $C $*} }{echo [?] USAGE: /ETOPIC [channel] } alias ekick if ([$0]) { if (ischannel($0)) { kick $0 $1 $crypt.dec$crypt.dec$cencrypt($2-) }{ekick $C $*} }{echo [?] USAGE: /EKICK [channel] } alias ewall { IF (@) { IF (ischannel($0) && onchannel($N $0)) { ^LOCAL wall.chan $0 ^LOCAL wall.msg $1- }{ ^LOCAL wall.chan $C ^LOCAL wall.msg $* } UNLESS (ischanop($N $wall.chan)) {ECHO $fmt.banner_alert() Warning: You are not channel operator on $ch($wall.chan)} @ :_e.out = cencrypt($wall.msg) IF (left(1 $R) == [u]) { @ :wall.many = numwords($chops($wall.chan)) QUOTE NOTICE @$wall_chan :$crypt.dec$crypt.dec eWall:$wall.chan\($wall.many\) $_e.out }{ @ wall_list = chops($wall.chan) @ :wall.many = numwords($chops($wall.chan)) @ wall_list = remw($N $wall_list) ^ASSIGN wall_send $crypt.dec$crypt.dec eWall:$wall.chan\($wall.many\) $_e.out _proc.loop_send $winserv() NOTICE wall_list wall_send } mecho >>12-11e7Wall:12-$wall.chan\\($wall.many\) $wall.msg }{uecho [?] USAGE: /EWALL [channel] } } ^on ^public '% % $crypt.dec$crypt.dec*' { xecho -w $chanwin($1) 11e\: $fmt.public($0 $1 $decrypt($tolower($mid(2 256 $2-)))) } ^on ^public_other '% % $crypt.dec$crypt.dec*' { xecho -w $chanwin($1) 11e\: $fmt.public_other($0 $1 $decrypt($tolower($mid(2 256 $2-)))) } ^on ^public_msg '% % $crypt.dec$crypt.dec*' { xecho -w $chanwin($1) 11e\: $fmt.public_msg($0 $1 $decrypt($tolower($mid(2 256 $2-)))) } ^on ^public_notice '% % $crypt.dec$crypt.dec*' { xecho -w $chanwin($1) 11e\: $fmt.public_notice($0 $1 $decrypt($tolower($mid(2 256 $2-)))) } ^on ^action '% % $crypt.dec$crypt.dec*' { if (ischannel($1)) { xecho -w $chanwin($1) 11e\: $fmt.action($0 $1 $decrypt($tolower($mid(2 256 $2-)))) }{ echo 11e\: $fmt.action_me($0 $1 $decrypt($tolower($mid(2 256 $2-)))) } } ^on ^kick '% % % $crypt.dec$crypt.dec*' { @ :text = ([$0] == servernick()) ? fmt.kick_me($0 $1 $2 $decrypt($tolower($mid(2 256 $3-)))) : fmt.kick($0 $1 $2 $decrypt($tolower($mid(2 256 $3-)))) xecho -w $chanwin($2) 11e\: $fmt.banner_kick() $text } ^on ^kill '% % % % $crypt.dec$crypt.dec*' { xecho -w OV$servernum() 11e\: ### KILL $0\: $1 killed by $2 \($decrypt($tolower($mid(2 256 $4-)))\) } ^on ^332 '% % $crypt.dec$crypt.dec*'{ xecho -w $chanwin($1) 11e\: $fmt.banner_chan() $fmt.topic_set($1 $decrypt($tolower($mid(2 256 $2-)))) } ^on ^topic '% % $crypt.dec$crypt.dec*' { xecho -w $chanwin($1) 11e\: $fmt.banner_chan() $fmt.topic($0 $1 $decrypt($tolower($mid(2 256 $2-)))) } ^on ^wallop '% % $crypt.dec$crypt.dec*' { xecho -w OV$servernum() 11e\: $fmt.banner_server() $fmt.wallop($0 $1 $decrypt($tolower($mid(2 256 $2-)))) } ^on ^server_notice '% ??? %GLOBAL% -- % % $crypt.dec$crypt.dec*' { xecho -w OV$servernum() 11e\: $fmt.banner_server() #GLOBOPS# $fmt.wallop($5 null $decrypt($tolower($mid(2 256 $6-)))) } ^on ^msg '% $crypt.dec$crypt.dec*' { if (ismset(M)) {_proc.away_save $0 $userhost() $decrypt($tolower($mid(2 256 $1-)))} mecho 11e\: $fmt.msg($0 $decrypt($tolower($mid(2 256 $1-)))) $chr(7) } ^on ^msg_group '% % $crypt.dec$crypt.dec*' { if (ismset(M)) {_proc.away_save $0 $userhost() [$1] $decrypt($tolower($mid(2 256 $2-)))} mecho 11e\: $fmt.msg_group($0 $1 $decrypt($tolower($mid(2 256 $2-)))) } ^on ^notice '% $crypt.dec$crypt.dec*' { if (ismset(M)) {_proc.away_save $0 $userhost() $decrypt($tolower($mid(2 256 $1-)))} mecho 11e\: $fmt.notice($0 $decrypt($tolower($mid(2 256 $1-)))) } ^on ^send_action '% $crypt.dec$crypt.dec*' { if (ischannel($0)) { xecho -w $chanwin($0) 11e\: $fmt.send_action($0 $decrypt($tolower($mid(2 256 $1-)))) }{ echo 11e\: $fmt.send_action_me($0 $decrypt($tolower($mid(2 256 $1-)))) } } ^on ^send_msg '% $crypt.dec$crypt.dec*' { mecho 11e\: $fmt.send_msg($0 $decrypt($tolower($mid(2 256 $1-)))) } ^on ^send_notice '% $crypt.dec$crypt.dec*' { mecho 11e\: $fmt.send_notice($0 $decrypt($tolower($mid(2 256 $1-)))) } ^on ^send_public '% $crypt.dec$crypt.dec*' { xecho -w $chanwin($0) 11e\: $fmt.send_public($0 $decrypt($tolower($mid(2 256 $1-)))) } alias decrypt { @ _d.csum = index($mid(0 1 $0-) $crypt.alpha) @ _d.rand = index($mid(1 1 $0-) $crypt.alpha) @ _d.line = mid(2 256 $0-) @ _d.outs = [] fec ($_d.line) _d { @ _d.indx = index($_d $crypt.alpha) if ((_d.indx - _d.rand) < 0) {@ _d.mask = 26 + _d.indx - _d.rand} {@ _d.mask = _d.indx - _d.rand} if (_d.indx >= 0) {@ _d.outs = [$_d.outs]##[$mid($_d.mask 1 $crypt.alpha)]} {@ _d.outs = [$_d.outs]##[$_d]} } @ _d.fchr = index($mid(0 1 $_d.outs) $crypt.alpha) @ _d.lchr = index($mid(${@_d.outs - 1} 1 $_d.outs) $crypt.alpha) if (_d.lchr > _d.fchr) {@ _d.mask = _d.lchr - _d.fchr}{@ _d.mask = _d.fchr - _d.lchr} if ([$_d.csum]==[$_d.mask]) {@ function_return = [$_d.outs]} {@ function_return = [$_d.line (no encryption)]} } alias cencrypt { @ _e.line = tolower($0-) @ _e.rand = rand(24) + 1 @ _e.outs = [] fec ($_e.line) _e { @ _e.indx = index($_e $crypt.alpha) if ((_e.indx + _e.rand) > 25) {@ _e.mask = _e.indx + _e.rand - 26} {@ _e.mask = _e.indx + _e.rand} if (_e.indx >= 0) {@ _e.outs = [$_e.outs]##[$mid($_e.mask 1 $crypt.alpha)]} {@ _e.outs = [$_e.outs]##[$_e]} } @ _e.fchr = index($mid(0 1 $_e.line) $crypt.alpha) @ _e.lchr = index($mid(${@_e.line - 1} 1 $_e.line) $crypt.alpha) if (_e.lchr > _e.fchr) {@ _e.csum = _e.lchr - _e.fchr}{@ _e.csum = _e.fchr - _e.lchr} @ _e.csum = mid($_e.csum 1 $crypt.alpha) @ function_return = [$_e.csum]##[$mid($_e.rand 1 $crypt.alpha)]##[$_e.outs] } alias dcrypt crypt alias crypt { echo echo @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ echo @@ DynamiCrypt $crypt.ver\ @@ Encrypt : /E @@ echo @@---------------------@@ Decrypt : automatic. @@ echo @@ (c)1996 Slasher @@ Mods: SrfRoG (srfrog@srfrog.com) @@ echo @@==========================================================@@ echo @@ 100% elite, 100% cryptic @@ echo @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ echo } eval echo *** Slasher's \DynamiCrypt $crypt.ver\ now loaded. /CRYPT for help. @ lice(DynamiCrypt $crypt.ver) @ srand($time()) lice5/extra/koko.irc0100777000000000000000000000203112551352056011602 0ustar00# MaSS-Deop protection for LiCe4 PACKAGE LiCe ON #-MODE -99 "% % *-o* *" { IF (match($0 $servernick($servernum())) || pass(. $0) || !ischanop($servernick($servernum()) $1)) {RETURN} IF (rmatch($2 *-oo* *-o*-o*)) { @ :serv = servernum() @ :bmask = mask(11 $0!$userhost($0)) @ :chan_hash = hash_32bit($1) @ :mode = get_cookie(User $1 $0 $chan_hash) #IF ((mode & 10) == 10) {RETURN} IF (mode & 4) {RETURN} IF (iscset(C $chan_hash)) { _proc.quote_add $serv KICK $1 $0 :[DEOP FLOOD] - kicking after $count(o $2) modes. IF (iscset(F $chan_hash)) { _proc.ban $1 $serv $bmask $0 $chan_hash }{_proc.quote_flush $serv} }{ #IF (!iscset(C $chan_hash) && !iscset(F $chan_hash)) { _proc.mode_add $serv $1 -o $0 _proc.mode_flush $serv $1 } IF (ismset(U)) {_proc.away_save LiCe licelogd [$1] FAST DEOP FLOOD from $0 \($userhost($0)\)} UNLESS (isset(Q)) {_proc.quote_add $serv NOTICE $0 :[DEOP FLOOD]: $randread($main.reason_revenge)} } } #HS/00 lice5/extra/lice.color0100777000000000000000000000200012551352056012110 0ustar00### color is lame!!! PACKAGE LiCe; ALIAS color (chan,switch) { IF (switch) { IF (switch == [OFF]) { XECHO -B Removed COLORBAN in $chan; ^ASSIGN -color[$hash_32bit($chan)]; ^ON #-PUBLIC 31 -'% $chan **'; RETURN; }; XECHO -B Now enforcing COLORBAN in $chan; ^ASSIGN color[$hash_32bit($chan)] 1; ^ON #-PUBLIC 31 '% $chan **' { IF (!ischanop($servernick() $1)) {RETURN}; @ :serv = servernum(); @ :chan.hash = hash_32bit($1); IF (iscset(F $chan.hash)) { _proc.ban $1 $serv $mask(2 $userhost($0)) $0 $chan.hash; }; IF (iscset(C $chan.hash)) { _proc.quote_add $serv KICK $1 $0 :Brought to you by TECHNICOLOR(c); _proc.quote_flush $serv; }; }; }{ IF (chan == [ON] || chan == [OFF]) {/COLOR $C $chan}{ @ ch = (chan ? chan : C); uecho COLORBAN in $ch is ${color[$hash_32bit($ch)]?[ON]:[OFF]}; uecho Usage: /COLOR <#channel> [ON|OFF]; }}; }; lice5/extra/lice.database0100777000000000000000000001161512551352056012552 0ustar00# lice.database # --------------------------------------------------------------------------- # LiCe Database Editor/Viewer for epic5's $dbmctl() # --------------------------------------------------------------------------- # # Written by tjh 2012 - tim@muppetz.com # # Much help and guidance from #epic on efnet. Couldn't have written this # without the help of hop, caf, CrazyEddy & many other helpful friendly souls # in there. Thanks! # # IF (word(2 $loadinfo()) != [pf]) { LOAD -pf $word(1 $loadinfo()); RETURN; }; # database editor version ASSIGN db.ev 1.1; UNLESS (id.v) {XECHO -B What? You need to have loaded LiCe 5.2.0+ first before you can edit its Database!;RETURN} XECHO; XECHO +--------------------------------------------------------+; XECHO Database Editor v$db.ev for LiCe $id.v; XECHO; XECHO /dblist - Database list/search commands; XECHO /dbedit - Database editing commands; # This routine lets you edit/change/delete and create database variables. # Which is kinda useful really for an "editor" right? ALIAS dbedit { UNLESS (([$0]) && ([$1])) { XECHO -B Usage: /dbedit