## SPACE .v2 test2 ;) - color theme for LiCe4
## author: derwan (derwan@derwan.org) (C) 2001

PACKAGE LiCeTheme

SET CLOCK ON
SET CLOCK_24HOUR ON
SET STATUS_DOES_EXPANDOS ON
SET BANNER_EXPAND ON
SET INPUT_PROMPT $_input.prompt()
SET REVERSE_STATUS_LINE OFF
SET STATUS_NO_REPEAT ON
SET -STATUS_OVERWRITE
SET -STATUS_USER9
SET STATUS_CLOCK %T
SET STATUS_AWAY [n/a$sar(/ /:/$after(:  $STATUS_USER3))]
SET STATUS_UMODE \(+%#\)
SET STATUS_NICKNAME %N
SET STATUS_WINDOW +
SET STATUS_CHANNEL [${ischanop($servernick() $chanwin())?[\@]:[${ischanvoice($servernick() $chanwin())?[\+]:[]}}$chanwin()/o:$#chops()[$numonchannel()]-[$_proc.procenty($#chops() $numonchannel())\%]/\(\+$chanmode($chanwin())\)]
SET STATUS_QUERY [query:\($Q\)]
SET STATUS_SERVER %S
SET STATUS_OPER \$
SET STATUS_CHANOP @
SET STATUS_VOICE +
SET STATUS_CPU_SAVER \(s\)
SET STATUS_HOLD \-\>
SET STATUS_HOLD_LINES \[%B\]
SET STATUS_NOTIFY \  \-\>\(\%F\)
SET STATUS_MAIL \[\>\<\]\(mail\:%M\)
SET STATUS_SCROLL ^
SET STATUS_NICKNAME $_main.nickname()
#SET STATUS_FORMAT $_proc.colcol(G %T%9 %N%# %H%B%Q%C %> \[win\:%W$winnum()%F\]$_server.main())
SET STATUS_FORMAT $_proc.colcol(G [%T%9] %N%# %H%B%Q%C %> %F  $_server.main())
#SET STATUS_FORMAT1 $_proc.colcol(G %T%9 %N%# $_main.host() %> $_server.main()\[%0\])
SET STATUS_FORMAT1 $_proc.colcol(G %T%9 %N%# $_main.host() %F %> $_server.main()\[%0\])
#SET STATUS_FORMAT2 $_proc.colcol(G %H%B\[win\:%W%R\[$winnum()\]%F\]%Q%C %> %M$_idle())%A
SET STATUS_FORMAT2 $_proc.colcol(G %H%B%Q%C %> %M$_idle())%A
^WINDOW DOUBLE ON
@ :timestamp = chr(3) ## [14,01\[] ## chr(3) ## [10,01\%X] ## chr(3) ## [14,01\]] ## chr(3)
^eval ASSIGN MAIN.TSFMT $timestamp
ALIAS fmt.action RETURN ${iscurchan($1)?[$_proc.colcol(V \*${ischanop($0 $1)?[@]:[]}$0)$chr(3)]:[$chr(3)11$1$chr(3)14,01\/$_proc.colcol(B \*${ischanop($0 $1)?[@]:[]}$0)$chr(3)]} $_proc.findpupka($0 $2-)$chr(3)
ALIAS fmt.action_me RETURN $_proc.colcol(R \-\ \*$0) $chr(3)14,01\[$chr(3)4,01$get_uh($0)$chr(3)14,01\]$chr(3)7 \-$chr(3) $_proc.findpupka($0 $2-)$chr(3)
ALIAS fmt.auto_reply RETURN ${iscurchan($1)?[$_proc.colcol(Y \<${ischanop($0 $1)?[@]:[]}$0\>)]:[$_proc.colcol(LB \<${ischanop($0 $1)?[@]:[]}$0\>)]}$chr(3) $chr(2)$_proc.findpupka($0 $2-)$chr(2)$chr(3)
ALIAS fmt.auto_reply_other $chr(3)11\<${ischanop($0 $1)?[@]:[]}$chr(3)10$0$chr(3)14\:$chr(3)10,01$1$chr(3)14,01\[$chr(3)11,01$winchan($1)$chr(3)14,01\]$chr(3)11\>$chr(3) $chr(2)$_proc.findpupka($0 $2-)$chr(2)$chr(3)
ALIAS fmt.gone_msg RETURN is away $chr(2)\*$chr(2) $0-
ALIAS fmt.back_msg RETURN is back $chr(2)\*$chr(2) $0-
ALIAS fmt.cant_join RETURN $_proc.colcol(R YOU can't join $0 \(reason\: $1-\))
ALIAS fmt.channel_nick RETURN ${iscurchan($0)?[$chr(3)9,01$0$chr(3)14,01\/$chr(3)09$1 $_myhost(C $1) $chr(3)3,01is now known as $chr(3)09,01$2$chr(3)]:[$chr(3)11,01$0$chr(3)14,01\/$chr(3)11$1 $_myhost(N $1) $chr(3)10,01is now known as $chr(3)11,01$2$chr(3)]}
ALIAS fmt.channel_signoff RETURN ${iscurchan($0)?[$chr(3)9,01$0$chr(3)14,01\/$chr(3)3,01SignOFF\: $chr(3)09,01$1 ${(strlen($2)&&[$2]!=[$0])?[$chr(3)14,01\($chr(3)03,01reason\:$chr(3) $_proc.findpupka($1 $2-)$chr(3)14,01\)]:[$chr(3)14,01\($chr(3)03,01$1 has no reason$chr(3)14,01\)]}]:[$chr(3)11,01$0$chr(3)14,01\/$chr(3)10,01SignOFF\: $chr(3)11,01$1 ${(strlen($2)&&[$2]!=[$0])?[$chr(3)14,01\($chr(3)10,01reason\:$chr(3) $_proc.findpupka($1 $2-)$chr(3)14,01\)]:[$chr(3)14,01\($chr(3)10,01$1 has no reason$chr(3)14,01\)]}]}$chr(3)
ALIAS fmt.ctcp_channel RETURN $_proc.colcol(V $uh($0) sends $_proc.puniacol(CTCP $toupper($2)) to everyone on $1)
ALIAS fmt.ctcp_me RETURN $_proc.colcol(V $uh($0) sends $_proc.puniacol(CTCP $toupper($2)) to You)
ALIAS fmt.ctcp_server RETURN $_proc.colcol(V $uh($0) sends $_proc.puniacol(CTCP $toupper($2)) to $1)
ALIAS fmt.dcc_chat RETURN $chr(3)6,01\[$chr(3)8,01\=$_proc.colcol(V $0)$chr(3)8,01=$chr(3)6,01]$chr(3) $_proc.findpupka($0 $1-)$chr(3)
ALIAS fmt.invite RETURN $_proc.colcol(Y $0 \[$get_uh($0)\] invites YOU to $1 \:\/)
ALIAS fmt.join RETURN ${iscurchan($1)?[$chr(3)9$1$chr(3)14,01\/$chr(3)9,01${temp_njoin}$chr(3)3,01JOIN\: $chr(3)9$0 $chr(3)14\[$chr(3)03,01$2$chr(3)14,01\]$chr(3)]:[$chr(3)11$1$chr(3)14,01\/$chr(3)11,01${temp_njoin}$chr(3)10,01JOIN\: $chr(3)11$0 $chr(3)14\[$chr(3)10,01$2$chr(3)14,01\]$chr(3)]} ${isvset(J)&&find_chan_flags($0!$2 $1)?[$chr(3)14\[$chr(3)$find_chan_flags($0!$2 $1)$chr(3)14\]$chr(3)]:[]}
ALIAS fmt.kick RETURN ${iscurchan($2)?[$chr(3)9$2$chr(3)14,01\/$chr(3)9,01$0 $chr(3)3,01was kicked by $chr(3)9,01$1 $_myhost(C $1) $chr(3)14,01\($chr(3)3,01reason\: $chr(3)$_proc.findpupka($1 $3-)$chr(3)14,01\)$chr(3)]:[$chr(3)11$2$chr(3)14,01\/$chr(3)11,01$0 $chr(3)10,01was kicked by $chr(3)11,01$1 $_myhost(N $1) $chr(3)14,01\($chr(3)10,01reason\: $chr(3)$_proc.findpupka($1 $3-)$chr(3)14,01\)$chr(3)]}
ALIAS fmt.kick_me RETURN $chr(3)7,01$1$chr(3)14,01 \[$chr(3)4,01$get_uh($1)$chr(3)14,01\]$chr(3)7 kicked YOU$chr(3)4 from channel$chr(3)7 $2$chr(3)4\:$chr(3) $_proc.findpupka($1 $3-)$chr(3)
ALIAS fmt.leave RETURN ${iscurchan($1)?[$chr(3)9$1$chr(3)14,01\/$chr(3)3,01part\: $chr(3)9,01$0 $chr(3)14,01\[$chr(3)3,01$2$chr(3)14,01\]$chr(3) ${(strlen($3)&&[$3]!=[$0])?[$chr(3)14,01\($chr(3)3,01reason\:$chr(3) $_proc.findpupka($0 $3-)$chr(3)14,01\)$chr(3)]:[$chr(3)14,01\($chr(3)3,01$0 has no reason$chr(3)14,01\)$chr(3)]}]:[$chr(3)11$1$chr(3)14,01\/$chr(3)10,01part\: $chr(3)11,01$0 $chr(3)14,01\[$chr(3)10,01$2$chr(3)14,01\]$chr(3) ${(strlen($3)&&[$3]!=[$0])?[$chr(3)14,01\($chr(3)10,01reason\:$chr(3) $_proc.findpupka($0 $3-)$chr(3)14,01\)$chr(3)]:[$chr(3)14,01\($chr(3)10,01$0 has no reason$chr(3)14,01\)$chr(3)]}]}
ALIAS fmt.mode RETURN ${iscurchan($1)?[$chr(3)9,01$1$chr(3)14\/$chr(3)3,01mode change $chr(3)9\[$2$chr(3)3,01 $3-$chr(3)9\]$chr(3)3 by $chr(3)9$0 $_myhost(C $0)]:[$chr(3)11,01$1$chr(3)14\/$chr(3)10,01mode change $chr(3)11\[$2$chr(3)10,01 $3-$chr(3)11\]$chr(3)10 by $chr(3)11$0 $_myhost(N $0)]}
ALIAS fmt.multiple_mode RETURN ${iscurchan($1)?[$chr(3)9,01$1$chr(3)14\/$chr(3)3,01MULTIPLE-mode change $chr(3)9\[$2$chr(3)3,01 $3-$chr(3)9\]$chr(3)3 by $chr(3)9$0 $_myhost(C $0)]:[$chr(3)11,01$1$chr(3)14\/$chr(3)10,01MULTIPLE-mode change $chr(3)11\[$2$chr(3)10,01 $3-$chr(3)11\]$chr(3)10 by $chr(3)11$0 $_myhost(N $0)]}
ALIAS fmt.mode_me RETURN $chr(3)9\#$chr(3)3,01$servername($winserv())$chr(3)9,01\#$chr(3)3\: user mode change $chr(3)9\[$chr(3)3,01$2- $servernick($servername($winserv()))$chr(3)9,01\]$chr(3)
ALIAS fmt.mode_server RETURN ${iscurchan($1)?[$_proc.colcol(R $1\/NeTHacK\(!\)/mode change \[$2-\] by \#$0\#)$chr(3)]:[$_proc.colcol(LB $1\/NeTHacK\(!\)/mode change \[$2-\] by \#$0\#)$chr(3)]}
ALIAS fmt.msg RETURN $chr(3)5\[$_proc.colcol(Y $0)$chr(3)14,01\($chr(3)5,01$get_uh($0)$chr(3)14\)$chr(3)5,01\]$chr(3) $_proc.findpupka($0 $1-)
ALIAS fmt.public RETURN ${iscurchan($1)?[$chr(3)09,01\<${ischanop($0 $1)?[\@]:[]}$chr(3)11,01$0$chr(3)09,01\>]:[$chr(3)11,01\<${ischanop($0 $1)?[\@]:[]}$chr(3)10,01$0$chr(3)11,01\/$chr(3)10,01$1$chr(3)11,01\>]}$chr(3) $_proc.findpupka($0 $2-)$chr(3)
ALIAS fmt.msg_group RETURN $chr(3)5\[$_proc.colcol(Y $0)$chr(3)14,01\($chr(3)5,01$get_uh($0)$chr(3)14\)\:$chr(3)8$1$chr(3)5,01\]$chr(3) $_proc.findpupka($0 $1-)
ALIAS fmt.public_msg RETURN $chr(3)5\[$_proc.colcol(Y $0)$chr(3)14\:$chr(3)8,01$1$chr(3)5\]$chr(3) $_proc.findpupka($0 $2-)$chr(3)
ALIAS fmt.public_other RETURN $chr(3)10\<$chr(3)11$0$chr(3)14\:$chr(3)11,01$1$chr(3)10\>$chr(3) $_proc.findpupka($0 $2-)$chr(3)
ALIAS fmt.notice RETURN $_proc.colcol(LB \- $uh($0) \-)$chr(3) $_proc.findpupka($0 $1-)
ALIAS fmt.public_notice RETURN $_proc.colcol(LB \- $0\:$1 \-)$chr(3) $_proc.findpupka($0 $2-)$chr(3)
ALIAS fmt.send_action RETURN $chr(3)7\> ${iscurchan($0)?[$chr(3)13\* ${ischanop($servernick() $0)?[@]:[]}$chr(3)6$servernick()$chr(3)]:[$chr(3)11\* ${ischanop($servernick() $0)?[@]:[]}$chr(3)10$servernick()$chr(3)]} $1-$chr(3)
ALIAS fmt.send_action_me RETURN $chr(3)7\> $chr(3)6$0$chr(3)14,01\/$chr(3)13\* $chr(3)6$servernick()$chr(3) $1-$chr(3)
ALIAS fmt.send_dcc_chat RETURN $chr(3)7\> $chr(3)6\[chat$chr(3)14\($chr(3)8\=$_proc.colcol(V $0)$chr(3)8\=$chr(3)14\)$chr(3)6\]$chr(3) $1-$chr(3)
ALIAS fmt.send_msg RETURN $chr(3)7\> $chr(3)5\[msg$chr(3)14\($_proc.colcol(Y $0)$chr(3)14\)$chr(3)5\]$chr(3) $1-$chr(3)
ALIAS fmt.send_public RETURN $chr(3)7\> ${iscurchan($0)?[$chr(3)9\<${ischanop($servernick($servername($winserv)) $0)?[@]:[]}$chr(3)11,01$servernick($servername($winserv))$chr(3)9\>]:[$chr(3)11\<${ischanop($servernick($servername($winserv)) $0)?[@]:[]}$chr(3)10,01$servernick($servername($winserv))$chr(3)11\>]}$chr(3) $1-$chr(3)
ALIAS fmt.talk_reply RETURN $chr(31)$0$chr(31)$chr(2)\:$chr(2)
ALIAS fmt.server_notice RETURN $_proc.colcol(R \#$0\#)$chr(3)4,01 $2-$chr(3)
ALIAS fmt.topic RETURN $chr(3)3,01Topic change on $chr(3)9,01$1$chr(3)3 by $chr(3)9,01$0$chr(3)14,01\:$chr(3) $2-$chr(3)
ALIAS fmt.topic_set RETURN $chr(3)3,01Topic on $chr(3)9,01$0$chr(3)14,01\:$chr(3) $1-
ALIAS fmt.usercmd RETURN $chr(3)4Friend $chr(3)7,01\!$chr(3)14,01\[$_proc.colcol(R $1)$chr(3)14,01\]$chr(3)4 request$chr(3)14,01\:$chr(3)7 $0 $chr(3)14,01\[$chr(3)4,01$get_uh($0)$chr(3)14,01]$chr(3)
ALIAS fmt.usergreet RETURN \[$chr(2)$_proc.punicol($0)$chr(2)\] $1-$chr(3)
ALIAS fmt.wallop RETURN $chr(3)7,01\#$chr(3)4,01$0$chr(3)07,01\@$chr(3)04,01$servername()$chr(3)07,01\#$chr(3) $4-$chr(3)
ALIAS fmt.wallop_me RETURN $chr(3)7> $chr(3)7\#$chr(3)4,01$servernick$chr(3)7\# -$chr(3)4 WallOp$chr(3)14\:$chr(3)$chr(2)$0$chr(2) $chr(3)14\($chr(3)4,01$1$chr(3)14,01\)$chr(3) $2-
ALIAS fmt.wallop_server RETURN $_proc.colcol(R WallOp\:) $chr(3)7,01\#$chr(3)04,01$0$chr(3)7,01\#$chr(3)4,01 $2-$chr(3)
ALIAS fmt.send_notice
ALIAS fmt.notify_signoff $_proc.colcol(B RETURN SignOff detected: $0 ${ismset(T)?[]:[at ]##Z})
ALIAS fmt.notify_signon $_proc.colcol(B RETURN SignOn detected: $0 ${ismset(T)?[]:[at ]##Z})
ALIAS fmt.notify_signon_uh $_proc.colcol(B RETURN SignOn detected: $0 \[$1-\] ${ismset(T)?[]:[at ]##Z})
ALIAS fmt.playmsg (num,tot,mtime,mnick,muh,mtext) {
	@ :banner1 = [=-= Num\: ] ## num ## [\[] ## tot ## [\]] ## [ - ] ## stime($mtime) ## [ \(] ## tdiff2(${time() - mtime}) ## [ago\)];@ :lbanner1 = 64-strlen($banner1);@ :lx = lbanner1/2;@ :tly = lbanner1-(2*lx);@ :addb = repeat($lx =-);IF (tly == 1) {@ :addb = [-] ## addb};@ :banner1 #= [ ] ## addb;@ :mbanner = _proc.colcol(LB $banner1)
 	XECHO ${mbanner}
	XECHO $chr(3)12,01From\: $_proc.colcol(Y $mnick) $chr(3)14,01\[ $_proc.colcol(Y $muh$chr(3))14,01 \]$chr(3)
	@ :width = word(0 $geom()) - 2;@ :fix = (strlen($mtext) > width) ? CONTINUED_LINE ## mtext : mtext;@ :fix = chr(3) ## [10,01] ## fix ## chr(3) ## [10,01]
	ECHO $fix
}
ALIAS fmt.playmsg_prompt RETURN $_proc.colcol(Y \[$0\/$1\] Enter option \(ENTER to continue\, \? for help\)\:\ )
ALIAS fmt.whois_bot {^ASSIGN -temp.whois_ul;IF ([$0]==[Whowas]) {@ :main = [Whowas ]}{@ :main = [Whois -]};RETURN $_proc.colcol(B =-=-=- End of $main$repeat(15 \=\-\=))}
ALIAS fmt.whois_mid {SWITCH ($0) {(Userlist) {@ :hand = mid(1 ${strlen($2) - 2} $2);@ :hash = hash_32bit($hand);@ :masks = numitems(User$hash);@ :chans = numitems(ChanUser$hash);@ :pass = main_PL[$hash]?[yes]:[no];^ASSIGN temp.whois_ul User $hash;RETURN $_proc.colcol(B $[-11]0 \|) $chr(3)10handle: $_proc.colcol(G $hand) $chr(3)14\($chr(3)10pass:$chr(3)11,01$pass$chr(3)10,01\,$chr(3)10 masks:$chr(3)11,01$masks$chr(3)10\, $chr(3)10,01chans:$chr(3)11,01$chans$chr(3)14\)$chr(3)};(Shitlist) {@ :hand = mid(1 ${strlen($2) - 2} $2);@ :hash = hash_32bit($hand);@ :masks = numitems(Shit$hash);@ :chans = numitems(ChanShit$hash);^ASSIGN temp.whois_ul Shit $hash;RETURN $_proc.colcol(B $[-11]0 \|) $chr(3)10handle$chr(3)14\: $_proc.colcol(R $hand) $chr(3)14\($chr(3)10masks:$chr(3)11,01$masks$chr(3)10,01\, $chr(3)10chans:$chr(3)11,01$chans$chr(3)14,01\)$chr(3)};(Channels) {^LOCAL chns;IF (temp.whois_ul) {@ :indx = word(0 $temp.whois_ul);@ :hand = word(1 $temp.whois_ul)};FEC ($1-) zn {IF ([$zn]==[$chr(3)]) {@ :tzn = chr(3) ## [11,01\[\^\C\]] ## chr(3) ## [10,01]}{IF ([$zn]==[$chr(2)]) {@ :tzn = chr(3) ## [11,01\[\^\B\]] ## chr(3) ## [10,01]}{IF ([$zn]==[$chr(31)]) {@ :tzn = chr(3) ## [11,01\[\^\U\]] ## chr(3) ## [10,01]}{@ :tzn = zn}}};@ :tchans #= tzn};FE ($tchans) chan {@ :mod = pass(@+ $left(1 $chan));@ :chn = mod?rest(1 $chan):chan;@ :flags = [];IF (hand) {@ :test = matchitem(Chan$indx$hand $chn *);UNLESS (test < 0) {@ :flags = chr(3) ## [14,1\[] ## chr(3) ## [${indx==[User]?[3]:[4]}] ## _proc.ul_m2a($indx $word(1 $getitem(Chan$indx$hand $test))) ## chr(3) ## [14,1\]] ## chr(3) ## [10,01]}};PUSH chns $chr(3)12,01$mod$chr(3)10,01$chn$flags};RETURN $_proc.colcol(B $[-11]0 \|)$chr(3)10 $chns};(*) {RETURN $_proc.colcol(B $[-11]0 \|)$chr(3)10 $1-$chr(3)}}}
ALIAS fmt.whois_top {_my.banner_whois;@ :ltmp = (56-strlen($0$1$2$3))/2;IF ([$0]==[Whowas]) {@ :addb = [     WHOWAS \|]}{@ :addb = [      WHOIS \|]};RETURN $_proc.colcol(B $addb) $_proc.colcol(LB $1) $chr(3)14\[ $_proc.colcol(LB $2\@$3)$chr(3)14,01 \]$chr(3)}
@ :banner = chr(3) ## [10,01#] ## chr(3)
eval ^SET BANNER [$banner]
ALIAS fmt.banner_info RETURN $_proc.colcol(LB \(\i\))$chr(3)
ALIAS fmt.banner_party RETURN $_proc.colcol(Y \(p\))$chr(3)
ALIAS fmt.banner_join RETURN $_proc.colcol(LB \[\>\])$chr(3)
ALIAS fmt.banner_leave RETURN $_proc.colcol(LB \[\<\])$chr(3)
ALIAS fmt.banner_signon RETURN $_proc.colcol(LB \[\!\])$chr(3)
ALIAS fmt.banner_signoff RETURN $_proc.colcol(B \[\<\])$chr(3)
ALIAS fmt.banner_invite RETURN $_proc.colcol(R \[i\])$chr(3)
ALIAS fmt.banner_mode RETURN $_proc.colcol(R \[\@\])$chr(3)
ALIAS fmt.banner_kick RETURN $_proc.colcol(R \<\<\<)$chr(3)
ALIAS fmt.banner_nick RETURN $_proc.colcol(LB \[N\])$chr(3)
ALIAS fmt.banner_ctcp RETURN $_proc.colcol(V \(\?\))$chr(3)
ALIAS fmt.banner_dcc RETURN $_proc.colcol(V \(\=\))$chr(3)
ALIAS fmt.banner_alert RETURN $_proc.colcol(R \(\!\))$chr(3)
ALIAS fmt.banner_userlist RETURN $_proc.colcol(LB \(\$\))$chr(3)
ALIAS fmt.banner_server RETURN $_proc.colcol(LB \[\$\])$chr(3)
ALIAS fmt.banner_chan RETURN $_proc.colcol(G \[\#\])$chr(3)
ALIAS fmt.banner_usage RETURN $_proc.colcol(LB \(\?\))$chr(3)
ALIAS fmt.banner_tip RETURN $_proc.colcol(LB \+\+\+)$chr(3)
ALIAS fmt.titlebar (text) {FEC ($text) zn {IF ([$zn]==[$chr(123)]) {@ :zn = [\[]};IF ([$zn]==[$chr(125)]) {@ :zn = [\]]};IF ([$zn]==[$chr(41)]) {@ :zn = [\[]};IF ([$zn]==[$chr(40)]) {@ :zn = [\[]};IF ([$zn]==[$chr(59)]) {@ :zn = [\,]};@ :tmain #= zn};@ :main = chr(3) ## [11,12\[\-\>\] ] ## tmain;IF (winnum(TB) != -1) {//^WINDOW TB STATUS_FORMAT "$^\^"main\"}}
ALIAS fmt.sc_top RETURN $_proc.colcol(G \+Names on \[$0\]\:)
ALIAS fmt.sc_max RETURN 7
ALIAS fmt.sc_mid (list) RETURN $_proc.sc_main($list)
ALIAS fmt.sc_bot (chan,ops,vois,lusrs,all) {IF ([$all]!=[0] && [$all]!=[]) {RETURN $_proc.colcol(G +Stats: \[$chan\]\: \-o\[$ops\/$all\]\($_proc.procenty($ops $all)\%\) \-v\[$vois\/$all\]\($_proc.procenty($vois $all)\%\) \-l\[$lusrs\/$all\]\($_proc.procenty($lusrs $all)\%\)  \+total\[$all\])}}
alias _myhost (indx,nick) {@ :host = get_uh($nick);SWITCH ($indx) {(C) {@ :kx = 3};(N) {@ :kx = 10}};@ :return = chr(3) ## [14\[] ## chr(3) ## kx ## [,01] ## host ## chr(3) ## [14,01\]] ## chr(3);@ FUNCTION_RETURN = return}
alias _proc.sc_main (list) {FE ($list) uuser {@ :tchar = left(1 $uuser);SWITCH ($tchar) {(\@) {@ :nick = after(\@ $uuser);@ :lnick = strlen($nick);@ :lrest = 10-lnick;@ :space = repeat($lrest  );@ :adduuser = chr(3) ## [09\@] ## chr(3) ## [03,01] ## nick ## chr(3) ## space};(\+) {@ :nick = after(\+ $uuser);@ :lnick = strlen($nick);@ :lrest = 10-lnick;@ :space = repeat($lrest  );@ :adduuser = chr(3) ## [09\+] ## chr(3) ## [03,01] ## nick ## chr(3) ## space};(*) {@ :nick = uuser;@ :lnick = strlen($nick);@ :lrest = 11-lnick;@ :space = repeat($lrest  );@ :adduuser = ## chr(3) ## [03,01] ## nick ## chr(3) ## space}};@ :adduuser = chr(3) ## [14,01\[] ## adduuser ## chr(3) ## [14,01\]];@ :return #= adduuser};@ FUNCTION_RETURN = return}
alias _proc.timeonserv (serv) {@ :hmain = hash_32bit($serv);@ :ttmain = main.STC[$hmain];IF (!ttmain) {_server_connect $servername($winserv())}{@ :teraz = time($Z);@ :seconds = teraz-ttmain;@ :tminut = seconds/60;@ :ttminut = tminut*60;@ :restseconds = seconds-ttminut;@ :thours = tminut/60;@ :tthours = thours*60;@ :restminut = tminut-tthours;@ :tday = thours/24;@ :ttday = 24*tday;@ :resthours = thours-ttday;IF ([$tday]>[0]) {@ :treturn = tday ## [d] ## resthours ## [h] ## restminut ## [m] ## restseconds ## [s]}{IF ([$thours]>[0]) {@ :treturn = thours ## [h] ## restminut ## [m] ## restseconds ## [s]}{IF ([$tminut]>[0]) {@ :treturn = tminut ## [m] ## restseconds ## [s]}{@ :treturn = seconds ## [s]}}};@ :return = [\(on\:] ## treturn ## [\)];@ FUNCTION_RETURN = return}}
# alias _proc.timeonserv (serv) {@ :tchar = 0;FEC (6420) zn {@ :ttime = word($zn $tdiff(${time() - F}));IF (ttime) {@ :treturn #= word($tchar s m h d) ## zn;@ :tchar++}};@ :return = [\(on\:] ## reverse($treturn) ## [\)];@ FUNCTION_RETURN = return}
alias _server_connect (serv) {@ :hmain = hash_32bit($serv);@ :contime = time($Z);@ main.STC[$hmain] = contime}
alias _server_disconnect (serv) {@ :hmain = hash_32bit($serv);@ main.STC[$hmain] = []}
alias _server.main {IF ([$S]!=[]) {@ :temptime = _proc.timeonserv($servername(winserv()));@ :treturn = [\[\#] ## S ## [\#] ## temptime ## [\(lag\:] ## STATUS_USER2 ## [\)];IF ([$LOG]==[ON]) {@ :treturn = treturn ## [\:L]};@ :return = treturn ## [\]]}{@ :treturn = [\[offline];IF ([$LOG]==[ON]) {@ :treturn = treturn ## [\:L]};@ :return = treturn ## [\]]};@ FUNCTION_RETURN = return}
alias _main.nickname {@ :nick = servernick($servername($winserv));@ :anick = main.auto_nick;IF (nick) {IF (anick) {IF ([$nick]==[$anick]) {@ :return = nick}{@ :return = nick ## [\(\*] ## anick ## [\)]}}{@ :return = nick}}{@ :return = [NoNaMe]};@ FUNCTION_RETURN = return}
alias _main.host {@ :ttwhoami = [$X];@ :ttident = before(\@ $ttwhoami);@ :tthost = after(\@ $before(\. $ttwhoami));@ :return = [\[im\:\(] ## ttident ## [@] ## tthost ## [\)\]];@ FUNCTION_RETURN = return}
alias _idle {@ :main = word(0 $STATUS_USER3);IF ([$main]==[Idle:]) {@ :ttreturn = sar(/ /:/$after(: $STATUS_USER3));@ :treturn = [\[idle] ## ttreturn ## [\]]};@ :return = [\[msgs:] ## STATUS_USER1 ## [\]] ## treturn;@ FUNCTION_RETURN = return}
alias _proc.procenty (x,y) {IF ([$x]!=[0] && [$x]!=[] && [$y]!=[0] && [$y]!=[]) {@ :return = (x*100)/y;@ FUNCTION_RETURN = return}}
alias _proc.colcol (indx,text) {SWITCH ($indx) {(G) {@ :cx = [03];@ :cy = [09]};(B) {@ :cx = [02];@ :cy = [12]};(R) {@ :cx = [04];@ :cy = [07]};(Y) {@ :cx = [05];@ :cy = [08]};(V) {@ :cx = [06];@ :cy = [13]};(LB) {@ :cx = [10];@ :cy = [11]}};FEC ($text) zn {@ :rcol = rand(2);SWITCH ($rcol) {(0) {@ :mcolor = cx};(1) {@ :mcolor = cy}};@ :return #= chr(3) ## mcolor ## [,01] ## zn};@ FUNCTION_RETURN = return}
alias _proc.findpupka (nick,text) {IF ([$text]!=[]) {@ :testtextu = match(\*$chr(133)\* $text);IF ([$testtextu]>[0]) {XECHO $_proc.colcol(R ## ALERT: detected \"pupka\" from $nick !);FEC ($text) zn {IF ([$zn]==[$chr(133)]) {@ :tzn = chr(2) ## [?] ## chr(2)}{@ :tzn = zn};@ :return #= tzn}}{@ :return = [$text]};@ FUNCTION_RETURN = return}}
alias _proc.puniacol (text) {FEC ($text) zn {@ :tzn = zn ## [ ];@ :main #= tzn};@ FUNCTION_RETURN = main}
alias _input.prompt (NULL) {@ :tchan = chanwin();@ :tnum = winnum();@ :tquery = [$Q];@ :treturn = [\[];IF (tchan) {@ :treturn #= [\(] ## tnum ## [\)] ## [ ch\(] ## tchan ## [\)];IF (tquery) {@ :treturn #= [\/q\(\\[33m] ## tquery ## [\\[32m\)]}}{IF (tquery) {@ :treturn #= [\(] ## tnum ## [\)] ## [ q\(\\[33m] ## tquery ## [\\[32m\)]}{@ :treturn #= [Win\:\(] ## tnum ## [\)]}};@ :return = [\\[32m\\[1m] ## treturn ## [\]\$ ] ## [\\[m];@ FUNCTION_RETURN = return}
alias _my.banner_whois {XECHO $_proc.colcol(B $repeat(22 \=\-\=))}
@ vspace = _proc.colcol(LB current theme is Space 2 by derwan \(derwan\@derwan.org\) for LiCe4)
ON #-CONNECT 13 * {eval echo _server_connect $0}
ON #-DISCONNECT 13 * {_server_disconnect $0}
ON ^MODE "% % %bb *" {XECHO -W $1 $fmt.banner_mode() $fmt.multiple_mode($*)}
ON ^MODE "% % %oo *" {XECHO -W $1 $fmt.banner_mode() $fmt.multiple_mode($*)}
ON ^MODE "% % %vv *" {XECHO -W $1 $fmt.banner_mode() $fmt.multiple_mode($*)}
ON ^MODE "*.* #% *" {XECHO -W $1 $fmt.banner_mode() $fmt.multiple_mode($*)}
eval XECHO $_proc.colcol(Y $_proc.puniacol($decode(DNCNDNCNDNCAFDFAEBEDEFCACOHGDCCACNCAEDGPGMGPHCCAHEGIGFGNGFCAGGGPHCCAEMGJEDGFDECADNCNDNCNDN)))
eval XECHO $_proc.colcol(LB $_proc.puniacol($decode(DNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDNCNDN)))
eval XECHO $_proc.colcol(G $_proc.puniacol($decode(FLGBHFHEGIGPHCDKCAGEGFHCHHGBGOCACIGEGFHCHHGBGOEAGEGFHCHHGBGOCOGPHCGHCJCACIEDCJCADCDADADBFN)))
