SET CLOCK ON SET CLOCK_24HOUR ON SET CLOCK_FORMAT %H:%M SET INPUT_PROMPT > SET REVERSE_STATUS_LINE ON SET STATUS_AWAY 01,03 SET STATUS_CHANNEL %C SET STATUS_CHANOP 04@01 SET STATUS_CLOCK %T SET STATUS_CPU_SAVER {%L Save Mode} SET STATUS_DOES_EXPANDOS ON SET STATUS_FORMAT 01,03 [ %R ] 01,00%A %@%=%C%Q %M%>%F ${(%1 != 0)?[00\[MSG %1\]01]:[]} SET STATUS_FORMAT1 01,03 [ %R ] 01,00%A %*%N%# %@%=%C(%+)\%Q%S %>%O %F 01${[$numonchannel($chan)]!=[0]?[\(14${numonchannel($chan)}01=04${numwords($chops())}01+08${chvoicen($chan)}01+${nonv($chan)}\)]:()} SET STATUS_FORMAT2 01,03 %T 01,00%A $servername($winserv()) %L%M %H%B %>%D ${(%1 != 0)?[00\[MSG %1\]01]:[]} (lag %2) SET STATUS_HOLD 001 SET STATUS_HOLD_LINES :%B SET -STATUS_INSERT SET STATUS_MAIL 00[MAIL %M]01 SET STATUS_MODE +%+ SET STATUS_NICKNAME %N SET STATUS_NOTIFY 00[ %F ]01 SET STATUS_NO_REPEAT ON SET STATUS_OPER 04*01 SET STATUS_OVERWRITE [O] SET STATUS_QUERY 00 [> %Q ]01 SET STATUS_SERVER %S SET STATUS_TRUNCATE_RHS ON SET STATUS_UMODE (+%#) SET STATUS_VOICE 08+01 SET STATUS_WINDOW + SET HIGH_BIT_ESCAPE 0 SET EIGHT_BIT_CHARACTERS ON ALIAS fmt.back_msg RETURN is back: $0- ALIAS fmt.gone_msg RETURN is away: $0- ALIAS fmt.send_public RETURN ${iscurchan($0)?[]:[03$0]}${ischanop($N $0)?[04@]:[${ischanvoice($N $0)?[05+]:[00>]}]}$servernick()00> $1- ALIAS fmt.send_action RETURN 00>> 05$servernick() $1- #ALIAS fmt.send_action RETURN 00>> 05$servernick()${iscurchan($0)?[]:[\:$0]} $1- ALIAS fmt.send_action_me RETURN 00>> \(16$0\\) $servernick() $1- ALIAS fmt.send_dcc_chat RETURN 00>> 06=$0= $1- ALIAS fmt.send_msg RETURN 00>> 00[10$000] $1- ALIAS fmt.send_notice RETURN 00>> 12- 09$0 12- $1- ALIAS fmt.public RETURN \(${ischanop($0 $1)?[04@]:[${ischanvoice($0 $1)?[05+]:[]}]}10$0${iscurchan($1)?[]:[03$1]}) $2- ALIAS fmt.public_msg RETURN ${match(** $igtype($rigmask($0!$userhost($0))))?[11\( 02$012/11$rest(1 $1)\ 11\)\ $2-]:[11\( 2$012/11$rest(1 $1)\ 11\)\ $2-]} ALIAS fmt.public_other RETURN \(${ischanop($0 $1)?[04@]:[${ischanvoice($0 $1)?[05+]:[]}]}10$003$1) $2- ALIAS fmt.public_notice RETURN 11- 13$012/11$rest(1 $ch($1))\ 11- $2- ALIAS fmt.msg RETURN 00[11$000] $1- ALIAS fmt.msg_group RETURN 00[11$0\:$100] $2- ALIAS fmt.action RETURN ${ischanop($0 $1)?[04@]:[${ischanvoice($0 $1)?[05+]:[]}]}05$0${iscurchan($1)?[]:[$1]} 05$2- ALIAS fmt.action_me RETURN > \(16$N\\) $0 $2- ALIAS fmt.auto_reply RETURN 00\(${ischanop($0 $1)?[04@]:[${ischanvoice($0 $1)?[05+]:[]}]}10$0${iscurchan($1)?[]:[03$1]}00) $2- ALIAS fmt.auto_reply_other RETURN 00\(${ischanop($0 $1)?[04@]:[${ischanvoice($0 $1)?[05+]:[]}]}10$0${iscurchan($1)?[]:[03$1]}00) $2- ALIAS fmt.talk_reply RETURN $0: ALIAS fmt.dcc_chat RETURN 00\:[9$000]\: $1- ALIAS fmt.dcc_send RETURN 00\:[9$000]\: $1- ALIAS fmt.topic_set RETURN 05$1- ALIAS fmt.usercmd RETURN 08friend !$1 request: 10$uh($0) ALIAS fmt.notify_signoff RETURN SignOFF! $0\ ALIAS fmt.notify_signon RETURN SignON! $0\ ALIAS fmt.notify_signon_uh RETURN SignON!: $0\ \($1\) ALIAS fmt.channel_nick RETURN 05nick $1 10$2 ALIAS fmt.channel_signoff RETURN 08off 10$1 03$0 \($2-\) ALIAS fmt.join RETURN ${temp_njoin}08join 10$0 03$1 \($2\) ${isvset(J)&&find_chan_flags($0!$2 $1)?[14\[$find_chan_flags($0!$2 $1)14\]]:[]} ALIAS fmt.leave RETURN 08part 10$0 03$1 \($2\) ${(strlen($3)&&[$3]!=[$0])?[\($3-\)]:[]} ALIAS fmt.mode RETURN 05mode 10$0 03$1 "$2-\" ALIAS fmt.mode_me RETURN 05mode $S ALIAS fmt.kick RETURN 08kick 10$1 03$2 11$0 \($3-\) ALIAS fmt.mode_bans RETURN 08mode 10$0 03$1 "$2-\" ALIAS fmt.notice RETURN 12- 9$uh($0)\ 12- $1- ALIAS fmt.invite RETURN 05invite 10$0 03$1 \($2\) ALIAS fmt.topic RETURN 08topic 10$0 03$1 $2- ALIAS fmt.usergreet RETURN [$0] $1- ALIAS fmt.mode_server RETURN 08nethack $0 03$1 \"$2-\" ALIAS fmt.kick_me RETURN 07kicked 10$1 03$2 \($3-\) ALIAS fmt.cant_join RETURN 07can't join 03$0 \($1-\) ALIAS fmt.server_notice RETURN #$0# $2- ALIAS fmt.wallop RETURN 12\( 11$0@$servername()\ 12\) $4- ALIAS fmt.wallop_me RETURN 14>> 12- 13$servernick() 12- WallOp:$0\\($1\) $2- ALIAS fmt.wallop_server RETURN Wallop: #$0# $2- ALIAS fmt.ctcp_channel RETURN $uh($0) 08ctcp $toupper($2)\ to all $1\ ALIAS fmt.ctcp_me RETURN $uh($0) 08ctcp $toupper($2)\ ALIAS fmt.ctcp_server RETURN $uh($0) 08ctcp $toupper($2)\ to $1\ ALIAS fmt.playmsg_prompt RETURN [$0/$1] Enter option (ENTER to continue, ? for help): EVAL ^SET BANNER [*] ALIAS fmt.banner_info RETURN 05$G ALIAS fmt.banner_party RETURN 03 11 $G ALIAS fmt.banner_join RETURN 05$G ALIAS fmt.banner_leave RETURN 05$G ALIAS fmt.banner_signon RETURN 05$G ALIAS fmt.banner_signoff RETURN 05$G ALIAS fmt.banner_invite RETURN 05$G ALIAS fmt.banner_mode RETURN 05$G ALIAS fmt.banner_kick RETURN 08$G ALIAS fmt.banner_nick RETURN 05$G ALIAS fmt.banner_ctcp RETURN 05$G ALIAS fmt.banner_dcc RETURN 6 $G ALIAS fmt.banner_alert RETURN 8$G ALIAS fmt.banner_userlist RETURN 9 $G ALIAS fmt.banner_server RETURN 5 seeer $G ALIAS fmt.banner_chan RETURN 05$G ALIAS fmt.banner_usage RETURN 00$G ALIAS fmt.banner_tip RETURN 16 tip +++ ALIAS fmt.titlebar (text) { IF (winnum(TB) != -1) {//^WINDOW TB STATUS_FORMAT "$^\^"text\"} } ALIAS fmt.sc_max RETURN 6 ALIAS fmt.sc_top RETURN $cparse(%K__\(%g$0%n%K\)$repeat(${64-strlen($0)} _)) ALIAS fmt.sc_mid (list) { FE ($list) xx { @ :mod = pass(@+ $xx) @ :spc = mod ? mod : [ ] @ :nic = strip(@+ $xx) @ :ret #= [%B] ## spc ## [%n] ## [$[9]nic] ## [ ] } RETURN $cparse(%K|%n$ret)} ALIAS fmt.sc_bot RETURN $cparse(%K-\(%c$Z%n%K\)$repeat(36 -)\(%n%Wo:%n%c$repeat(${3-strlen($1)} $chr(32))$1%n%K\)=\(%n%Wv:%n%c$repeat(${3-strlen($2)} $chr(32))$2%n%K\)=\(%n%Wt:%n%c$repeat(${3-strlen($4)} $chr(32))%W$4%n%K\)-%n) ALIAS fmt.whois_top RETURN 01,02[ 10,2$0 16,2$1 10,2\($2@$3\) 01,02] 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 2: $[-9]0 2: handle: $hand \(pass:$pass, masks:$masks, chans:$chans\)};(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 2: 0$[-9]0 2: handle: $hand \(masks:$masks, chans:$chans\)};(Channels) {^LOCAL chns;IF (temp.whois_ul) {@ :indx = word(0 $temp.whois_ul);@ :hand = word(1 $temp.whois_ul)};FE ($1-) 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 = [14\[] ## [] ## [${indx==[User]?[3]:[4]}] ## _proc.ul_m2a($indx $word(1 $getitem(Chan$indx$hand $test))) ## [14\]] ## []}};PUSH chns $mod\$chn$flags};RETURN 2: 01$[-9]0 2: $chns};(*) {RETURN 2: $[-9]0 2: $1-}} ALIAS fmt.whois_bot {^ASSIGN -temp.whois_ul;RETURN 14--- End of $0 ---} ALIAS fmt.playmsg (num,tot,mtime,mnick,muh,mtext) { ECHO [Num: $num/$tot - $stime($mtime) \($tdiff2(${time() - mtime}) ago\)] ECHO 10From: $mnick \($muh\) @ :width = word(0 $geom()) - 2 @ :fix = (strlen($mtext) > width) ? CONTINUED_LINE ## mtext : mtext ECHO $fix } @ mytheme = [madneon] XECHO -b -=- madneon's LiCe theme * do not spam! -=-