rendered paste bodyalias -l _isactive if ($cid == $activecid) { return 1 } | return 0
alias -l _active if ($cid == $activecid) { return a } | return s
on *:START:{
.timestamp -f 12(14hh12:14nn12:14sstt12)
.font -da 14 Tahoma
.color background 01
.color info 00
.color info2 00
echo -ta 12-14-12- 14Welcome to 2m4IR8C $+(12v14,$version) 12 $+ $me $+ 14!
.titlebar $+(Blaze1454»,$me,«)
halt
}
alias -l _ischat {
var %n = $mid($1, 2)
if (=* !iswm $1) { return 1 }
if (=* iswm $1) && (($chat(%n)) || ($fserv(%n))) { return 1 }
return 0
}
on &*:INPUT:*:{
if ($0) && ((/* !iswm $1) || ($ctrlenter)) && (($active ischan) || ($query($active)) || (=* iswm $active)) && ($window($active, 0) = 1) {
say $1- | halt
}
}
on ^&*:WALLOPS:*:{
echo -ti2a 12Wallop 14(12 $+ $nick 14--12 $address $+ 14) $strip($1-, o) $+ %:comments | haltdef
}
alias dns {
if ($isid) { return }
if (!$0) || (($1 == -h) && ($0 = 1)) || ((. !isin $1) && ($1 != -h) && (!$server)) {
.timer.blz 1 0 !dns $1- | .timer.blz -e | return
}
.!dns $1-
if (!$show) { return }
var %h = $1, %f
if ($istok(-h -c, $1, 32)) { %f = $1 | %h = $2 }
if (%f != -h) && (. !isin %h) && ($address(%h, 5)) { %h = $gettok($ifmatch, 2, 64) }
echo -ti2a 12-14-12- 14(12DNS14) Attempting to resolve 12 $+ $1 $+(14[12,$replace(%h,.,14.12,-,14-12,:,14:12),14]) $+ $+$1$3%:comments
}
;
on &*:DNS:{
if ($dns(0)) {
var %i = 1, %t = $dns(0)
while (%i <= %t) {
echo -ti2a $+(12,-,14,-,,12,-) $+(,14,$chr(40),,12,DNS,,14,$chr(41),) 14Resolved $+($chr(91),12,$replace($dns(%i).addr,.,14.12,-,14-12,:,14:12),14]) 14to $+(,14,$chr(40),,12,$replace($dns(%i).ip,.,14.12),,14,$chr(41)) %:comments | haltdef
inc %i
}
}
else {
echo -ti2a $+(,12,-,14,-,,12,-) $+(,14,$chr(40),,12,DNS,,14,$chr(41),) 14Unable to resolve $+(,12,$iif($nick,$nick,$dns(%i))) | haltdef
}
}
on ^&*:TOPIC:#:{
if ($chan !ischan) { return }
echo -ti2 $chan 12-14-12- 12 $+ $nick 14changes the topic to12: $1- $+$1$3%:comments | haltdef
}
alias me {
if ($isid) { return }
if (!$server) || (!$0) || (($active !ischan) && (!$query($active))) && (=* !iswm $active) {
.timer.blz 1 0 !me $1- | .timer.blz -e | halt
}
.!describe $active $1-
if (!$show) { return }
if ($active ischan) {
if ($nick($active, $me).pnick != $me) { set -u1 %::cmode $left($ifmatch, 1) }
echo -ai2t 12 $+ %::cmode $+ $me $1- %:comments | haltdef
unset %::cmode
}
else {
echo -ai2t 14»12 $me $1- | haltdef
}
}
alias action {
if ($isid) { return }
if (!$server) || (!$0) || (($active !ischan) && (!$query($active))) && (=* !iswm $active) {
.timer.kte 1 0 !action $1- | .timer.kte -e | halt
}
me $1-
}
alias describe {
if ($isid) { return }
if (!$server) || ($0 < 2) || (!$_ischat($1)) {
.timer.kte 1 0 !describe $1- | .timer.kte -e | halt
}
.!describe $1-
if (!$show) { return }
set -nu1 %::text $2- | set -u1 %::target $1 | set -u1 %::nick $1
set -nu1 %::me $me | set -nu1 %::server $server | set -nu1 %::port $port
set -nu1 %::pre 14--12»
set -nu1 %::c1 12 | set -nu1 %::c2 14 | set -nu1 %::c3 14 | set -nu1 %::c4 15
if (* iswm %::text) { set -nu1 %::parentext 12-- 14(12 $+ %::text $+ 14) }
if ($1 ischan) || ($query($1)) || (=* iswm $1) {
set -u1 %:echo echo -ti2 $1
if ($1 ischan) {
set -u1 %::chan $1
if ($nick($1, $me).pnick != $me) { set -u1 %::cmode $left($ifmatch, 1) }
set -u1 %::cnick $nick($1, $me).color
%:echo 12 $+ %::cmode $+ %::me %::text $+ %:comments
}
else { %:echo $ttime 12 $+ %::me %::text $+ %:comments }
}
else { set -u1 %:echo echo -ti2 $+ $_active | %:echo -> * $+ %::target $+ * %::text $+ %:comments }
unset %:echo %::parentext %::target %::chan %::cmode %::cnick %::nick %::me %::server %::port %::pre %::c? %::text
}
alias ame {
if ($isid) { return }
if (!$server) || (!$0) || (!$chan(0)) { .timer.kte 1 0 !ame $1- | .timer.kte -e | halt }
!.ame $1-
if (!$show) { return }
set -nu1 %::text $1- | set -u1 %::nick $me
set -nu1 %::me $me | set -nu1 %::server $server | set -nu1 %::port $port
set -nu1 %::pre 14--12»
set -nu1 %::c1 11 | set -nu1 %::c2 14 | set -nu1 %::c3 00 | set -nu1 %::c4 15
if (* iswm %::text) { set -nu1 %::parentext 11-- 14(11 $+ %::text $+ 14) }
var %i = $chan(0)
while (%i) {
set -u1 %::chan $chan(%i)
set -u1 %::target %::chan
set -u1 %:echo echo -ti2 %::chan
if ($nick(%::chan, $me).pnick != $me) { set -u1 %::cmode $left($ifmatch, 1) }
set -u1 %::cnick $nick(%::chan, $me).color
%:echo 12 $+ %::cmode $+ %::me %::text $+ %:comments
dec %i
}
unset %:echo %::parentext %::target %::chan %::cnick %::cmode %::nick %::me %::server %::port %::pre %::c? %::text
}
;
alias msg {
if ($isid) { return }
if ($0 < 2) || ((=* !iswm $1) && ($status == disconnected)) || (!$_ischat($1)) {
.timer.blz 1 0 !msg $1- | .timer.blz -e | halt
}
.!msg $1-
if (!$show) { return }
if ($1 ischan) || ($query($1)) || (=* iswm $1) {
if ($1 ischan) {
if ($nick($1, $me).pnick != $me) { set -u1 %::cmode $left($ifmatch, 1) }
echo -ti2 $1 12» 14(12 $+ %::cmode $+ 14 $+ $me $+ 14) $2- %:comments | haltdef
}
else { echo -ti2 $1 12» 14(14 $+ $me $+ 14) $2- %:comments }
}
else {
echo -ti2a 14--12» 14(12Message 14/ 12 $+ $1 $+ 14) $2- %:comments | haltdef
}
unset %::cmode
}
on ^&*:INVITE:#:{
echo $color(invite) -ati2 12-14-12- 12 $+ $nick 14wants you to join 12 $+ $chan $+ 14, you gonna or not? $+$1$3%:comments | haltdef
}
raw 305:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14You are no longer away. | haltdef }
raw 306:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14You are now away. | haltdef }
raw 310:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14dis dude12 $2 14or watev is available to help u. | haltdef }
raw 474:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Unable to join12 $2 14cause i banned for - fudges - sakes!!! | haltdef }
raw 471:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Unable to join12 $2 14cause the channel is full | haltdef }
raw 473:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Unable to join12 $2 14cause it is invite only sry | haltdef }
raw 475:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Unable to join12 $2 14cause i need the correct key!!!!!!! | haltdef }
raw 477:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Unable to join12 $2 14cause i need to register my current nickname :( | haltdef }
raw 405:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Unable to join12 $2 14cause i already have $chan(0) channels up! | haltdef }
raw 403:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14newb12 $2 14doesnt exist so go die | haltdef }
raw 441:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14wow retard12 $2 14is not on12 $3 | haltdef }
raw 301:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Away: [12 $+ $3- $+ 14] | haltdef }
raw 311:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Nick:12 $2 14Address:12 $3 $+ 14@12 $+ $replace($4,.,14.12,-,14-12,:,14:12) 14*12 $6- | haltdef }
raw 312:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Server:12 $replace($3,.,14.12) 14[12 $+ $4- $+ 14] | haltdef }
raw 313:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14is he a big bad irc administrater type person? yer he a12 $5- | haltdef }
raw 317:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Idle:12 $3 seconds idle | haltdef }
raw 318:*: { echo -at 14—12—14—12—14—12—14—End of /whois list—12—14—12—14—12—14— | haltdef }
raw 307:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Registered?12 $iif($2-,Yes,No) | haltdef }
raw 671:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Using a safe and fast and secure connection!?!?!??!?12 $iif($2-,Yer,Nar) | haltdef }
raw 320:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Random stoof:12 $3- | haltdef }
raw 378:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Connecting From:12 $replace($6,.,14.12,-,14-12,@,14@12) 14Ip:12 $replace($7-,.,14.12) | haltdef }
raw 482:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Sorry, your not an op in12 $2 | haltdef }
raw 319:*: {
var %chans = $3-
echo -at 14--12» $+(14[12,$numeric,14]) 12 $+ $2 14is on: $+($replace(%chans,@,$+(,12,@,,14),+,$+(,12+,,14),%,$+(12%,14))) 14--- Common:12 $comchan($2,0) | haltdef
}
raw 292:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14HelpOperator:12 $2- | haltdef }
raw 001:*: { echo -st 14--12» $+(14[12,$numeric,14]) 14 $+ $2- | haltdef }
raw 002:*: { echo -st 14--12» $+(14[12,$numeric,14]) 14 $+ $2- | haltdef }
raw 003:*: { Echo -st 14--12» $+(14[12,$numeric,14]) 14 $+ $2- | haltdef }
raw 004:*: { Echo -st 14--12» $+(14[12,$numeric,14]) 14 $+ $2- | haltdef }
raw 005:*: { echo -st 14--12» $+(14[12,$numeric,14]) 14 $+ $2- | haltdef }
raw 290:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14sry mate - der noting able to help u about for watev - sry | haltdef }
raw 340:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Ip:12 $2- | haltdef }
raw 431:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Nub you gotta give a nickname to whois or i will kill u man i truly will just watch | haltdef }
raw 294:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Your help request of12 $2- 14has been sent to an IRCoperator of dis big bad gay network dey call12 $network $+ 14. | haltdef }
raw 481:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14No sry, your not kewl enough to do that on12 $network | haltdef }
raw 433:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14I am so gol darn sorry but you cannot change your nickname to12 $2 14Because its in use!!!! | haltdef }
raw 404:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14bahaha kint talk cus of12 $replace($3-,$chr(40),$+(14,$chr(40),12),$chr(41),$+(14,$chr(41),12),+,14+12) | haltdef }
raw 381:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Guess what, Im now an IRC op!!!!!! wewt wewt | haltdef }
raw 332:*: { echo -t $2 14Topic:12 $3- | haltdef }
raw 388:*: { echo -ta 14--12» $+(14[12,$numeric,14]) 14Channel:12 $2 14Protect:12 $3- | haltdef }
raw 389:*: { echo -ta 14—12—14—12—14—12—14—End of12 $2 14Protected user list14—12—14—12—14—12—14— | haltdef }
raw 346:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Channel:12 $2 14Invite:12 $3 14By:12 $4 | haltdef }
raw 347:*: { echo -at 14—12—14—12—14—12—14—End of12 $2 14Invite list14—12—14—12—14—12—14— | haltdef }
raw 348:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Channel:12 $2 14Except:12 $3 14By:12 $4 | haltdef }
raw 349:*: { echo -at 14—12—14—12—14—12—14—End of12 $2 14Except list14—12—14—12—14—12—14— | haltdef }
raw 367:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Channel:12 $2 14Ban:12 $3 14By:12 $4 | haltdef }
raw 368:*: { echo -at 14—12—14—12—14—12—14—End of12 $2 14Bans list14—12—14—12—14—12—14— | haltdef }
raw 375:*: { echo -st 14--12» $+(14[12,$numeric,14]) 12 $+ $replace($3,.,14.12) 14Messege of the day!!! | haltdef }
raw 372:*: { Echo -st 14Motd:12 $3- | haltdef }
raw 376:*: { echo -st 14—12—14—12—14—12—14—End of 12/motd14 command14—12—14—12—14—12—14— | haltdef }
raw 401:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14There is no nick called "12 $+ $2 $+ 14" u stupid peice of poop ill flush u down da toilet holmes | haltdef }
raw 408:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Cant use colors on4 $2 14cause their emo and dont like pretty rainbows. | haltdef }
raw 412:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14What? you think12 $2 14is gonna know what your saying if you dont say anything? i dun think so. | haltdef }
raw 421:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Whats12 $2 $+ 14?14 well whatever it is, its not going to do anything u stupid punk. | haltdef }
raw 422:*: { echo -st 14--12» $+(14[12,$numeric,14]) 14Motd file is missing4 $me $+ 14, oh well! | haltdef }
raw 432:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Sorry,12 $2 14is a bad nickname, cannot be used cos of12 $5- 14gol darnet, gona hav 2 tink uv a beter 1! besides,12 $2 14was a gay name anyway. | haltdef }
raw 437:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Dude, your banned on a channel so you cant change your nickname omg that sucks!!!! | haltdef }
raw 438:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Srry mate, u b spammin wit da nikname chang n u hav 2 wait12 $9 14seconds till u can change bak! | haltdef }
raw 472:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14hm? I may b not vry smart but i m smart nuf 2 kno that12 $2 14is a character that i just do not understand i am sorry. | haltdef }
raw 371:*: { echo -at 14Info:12 $2- | haltdef }
raw 374:*: { echo -at 14—12—14—12—14—12—14—End of da12/INFO14 list14—12—14—12—14—12—14— | haltdef }
raw 341:*: { echo -at 14--12» $+(14[12,$numeric,14]) 12 $+ $2 14Has been invited to:12 $3 $+ 14. | haltdef }
raw 443:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Dude your a loser open your eyes,12 $2 14is already on12 $3 | haltdef }
raw 353:*: { haltdef }
raw 366:*: { haltdef }
raw 431:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Newb u tink i stoopid er somfin? u cant change ur nick 2 nothing stupid head | haltdef }
raw 331:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14this chan is not civilized enough to have a topic, Sorry $me $+ . | haltdef }
raw 352:*: { if (%chan) { halt } else { echo -at 14--12» $+(14[12,$numeric,14]) 12/WHO $6 $+ 14: Active:12 $2 14Prefixed:12 $3 14Host:12 $4 14Server:12 $5 14Current nick:12 $6 14Flags:12 $7 14Hops:12 $8 14Real name:12 $9 14Gay:12 Yes | haltdef } }
raw 315:*: { if (%chan) { halt } else { echo -at 14—12—14—12—14—12—14—End of da12 /Who 14list14—12—14—12—14—12—14— | haltdef } }
raw 310:*: { echo -at 14--12» $+(14[12,$numeric,14]) $1- }
raw 324:*: { echo -t $2 14--12» $+(14[12,$numeric,14]) 14Modes12 $2 $+ 14:12 $replace($3-,+,14+12,-,14-12,$chr(44),$+(14,$chr(44),12),[,14[12,],14]12,#,14#12,:,14:12,$chr(35),$+(14,$chr(35),12)) | haltdef }
raw 329:*: { echo -t $2 14--12» $+(14[12,$numeric,14]) 14Created on:12 $replace($asctime($3-),:,14:12) | haltdef }
raw 386:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14Channel owners for12 $2 $+ 14:12 $3- | haltdef }
raw 387:*: { echo -at 14—12—14—12—14—12—14—14End of Channel owner list14—12—14—12—14—12—14— | haltdef }
raw 335:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14R12 $2 14a bot????12 YA!!!!! :) | haltdef }
raw 536:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14HE R FILTERING MESSAGES | Haltdef }
raw 460:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14sry mate,12 $2 14cannot set mode Q | haltdef }
raw 972:*: { echo -at 14--12» $+(14[12,$numeric,14]) 14sry mate,12 $3 14r12 $5- $+ 14!!!!!! | haltdef }
raw 333:*: { echo -t $2 14--12» $+(14[12,$numeric,14]) 14Topic for12 $2 14Set by:12 $replace($3,!,14!12,@,14@12,.,14.12,-,14-12) 14on12 $replace($asctime($4-),:,14:12) | haltdef }
on ^&*:JOIN:#:{
if ($chan !ischan) { return }
if ($nick == $me) { echo $color(join) -ti2 $chan 12-14-12- 14Joined: 12 $+ $chan $+$1$3%:comments | haltdef }
else { echo $color(join) -ti2 $chan 14--12»12 $nick 14(12 $+ $replace($address,.,14.12,-,14-12,@,14@12,:,14:12) $+ 14)14 has joined 14(12 $+ $chan $+ 14) $+ %:comments | haltdef }
unset %:echo %::nick %::address %::target %::me %::server %::port %::pre %::c? %::chan %::cmode %::cnick
}
on ^&*:PART:#:{
if ($chan !ischan) { return }
if ($nick == $me) { haltdef }
else { echo $color(join) -ti2 $chan 14--12»12 $nick 14(12 $+ $replace($address,.,14.12,-,14-12,@,14@12) $+ 14)14 has parted 14(12 $+ $chan $+ 14)12 %::text $+ %:comments | haltdef }
unset %:echo %::nick %::address %::target %::me %::server %::port %::pre %::c? %::chan %::cmode %::cnick
}
alias notice {
if ($isid) { return }
if (!$server) || ($0 < 2) { .timer.blz 1 0 !notice $1- | .timer.blz -e | halt }
.!notice $1-
if (!$show) { return }
if ($1 ischan) { set -u1 %::chan $1 | echo $color(notice) -ti2 $+ $_active 14--12» 14(12CNotice $+ 14/12 $+ $1 $+ 14) $2- $+ %:comments }
else { echo -ti2a 14--12» 14(12Notice $+ 14/12 $+ $1 $+ 14) $2- $+ %:comments }
}
alias say {
if ($isid) { return }
if ($status == disconnected) || (!$0) || (($active !ischan) && (!$query($active))) && (=* !iswm $active) {
.timer.blz 1 0 !say $1- | .timer.blz -e | halt
}
.!msg $active $1-
if ($active ischan) {
if ($nick($active, $me).pnick != $me) { set -u1 %::cmode $left($ifmatch, 1) }
echo $color(own) -ati2 12» 14(12 $+ %::cmode $+ 14 $+ $me $+ 14) $1- $+ %:comments
}
else {
echo $color(own) -ati2 12» 1414( $+ $me $+ ) $1- %:comments
}
}
on &^*:ACTION:*:#:{
if ($chan !ischan) { return }
if ($nick($chan, $nick).pnick != $nick) { set -nu1 %::cmode $left($ifmatch, 1) } | set -nu1 %::cnick $nick($chan, $nick).color
echo $color(action) -mlbfti2 $chan 12 $+ %::cmode $+ 12 $+ $nick $1- %:comments | haltdef
unset %::cmode %::cnick
}
ctcp &^*:*:?: {
echo -mti2a 14[12CTCP14] 14(12 $+ $nick 14-- 12 $+ $replace($address,@,14@12,.,14.12,-,14-12) $+ 14) $strip($1, o) $+ %:comments | haltdef
}
on &^*:NOTICE:*:?:{
if ($_isactive) && (@* !iswm $active) && ($hget(Kte_Events, Active.Notices)) { set -u1 %:echo %e $+ a }
if ($nick == NickServ) { echo $color(notice) -amti2 14[12NickServ14]14 $1- $+ %:comments | haltdef }
if ($nick == ChanServ) { echo $color(notice) -amti2 14[12ChanServ14]14 $1- $+ %:comments | haltdef }
if ($nick == HostServ) { echo $color(notice) -amti2 14[12HostServ14]14 $1- $+ %:comments | haltdef }
if ($nick == OperServ) { echo $color(notice) -amti2 14[12OperServ14]14 $1- $+ %:comments | haltdef }
if ($nick == BotServ) { echo $color(notice) -amti2 14[12BotServ14]14 $1- $+ %:comments | haltdef }
if ($nick == MemoServ) { echo $color(notice) -amti2 14[12MemoServ14]14 $1- $+ %:comments | haltdef }
else {
if ($nick != NickServ && $nick != ChanServ && $nick != HostServ && $nick != OperServ && $nick != Botserv) {
echo $color(notice) -amti2 14[12Notice14] 14(12 $+ $nick 14-- 12 $+ $replace($address,@,14@12,.,14.12,-,14-12) $+ 14) $1- $+ %:comments | haltdef
}
}
}
on &^*:TEXT:*:?:{
if ($query($nick)) {
echo $color(normal) -mti2 $nick 12« 14(14 $+ $nick $+ 14) $strip($1-, o) $+ %:comments | haltdef
}
else {
!.query $nick
echo $color(normal) -mti2 $nick 12« 14(14 $+ $nick $+ 14) $strip($1-, o) $+ %:comments | haltdef
}
unset %:echo
}
on &^*:ACTION:*:?:{
if ($query($nick)) { set -u1 %:echo %e $nick | echo $color(action) -mti2 $nick 14«12 $nick $strip($1-, o) %:comments | haltdef }
else {
if ($window(Message Window)) { set -u1 %:echo %e $+ d }
elseif ($_isactive) && (@* !iswm $active) && ($hget(Kte_Events, Active.Queries)) { set -u1 %:echo %e $+ a }
else { set -u1 %:echo %e $+ s }
%:echo « $nick $strip($1-, o) $+ %:comments | haltdef
}
unset %:echo
}
;
on &^*:NOTICE:*:#:{
if ($chan !ischan) { return }
echo $color(notice) -mti2 $chan 14(14-12@14 $+ $nick $+ 12:14 $+ $chan $+ 12@14-14) $strip($1-, o) %:comments | haltdef
}
on ^&*:USERMODE:{
echo $color(mode) -sti2 12-14-12- 12 $+ $me $+ 14sets usermode 14(12 $+ $1- $+ 14) $+ %:comments | haltdef
}
on ^&*:QUIT:{
var %i = $comchan($nick, 0), %tgt, %st = 0
set -nu1 %::text $strip($1-, o)
set -nu1 %::me $me | set -nu1 %::server $server | set -nu1 %::port $port
set -nu1 %::pre 4~~
set -nu1 %::c1 12 | set -nu1 %::c2 14 | set -nu1 %::c3 12 | set -nu1 %::c4 15
set -nu1 %::nick $nick
set -nu1 %::address $address
if (* iswm %::text) { set -nu1 %::parentext 11-- 14(4 $+ %::text $+ 14) }
while (%i) {
%::chan = $comchan($nick, %i)
%tgt = $gettok($hget(Kte_Events, %::chan), 3, 44)
if (%tgt = 4) { dec %i | continue }
if (%tgt = 3) || (%tgt = 2) { %st = 1 }
if (!%tgt) || (%tgt = 3) || (%tgt = 1) { %:echo = echo $color(quit) -ti2 %::chan | %:echo $+(,%::c1,12«,14--) $+(,%::c3,%::nick,) $+(,%::c2,$chr(40),,%::c1,$replace(%::address,@,14@12,.,14.12,-,14-12),,%::c2,$chr(41),) 14has left IRC $iif(%::text,$+(,%::c2,$chr(40),,%::c1,$iif(%::text,%::text,masturbating!!!!!!),,%::c2,$chr(41))) %:comments }
dec %i
}
unset %::chan
if ($query($nick)) { %:echo = echo $color(quit) -ti2 $nick | %:echo $+(,%::c1,«,,%::c3,--) $+(,%::c3,%::nick,) $+(,%::c2,$chr(40),,%::c1,%::address,,%::c2,$chr(41),) has left IRC $iif(%::text,$+(,%::c2,$chr(40),,%::c1,%::text,,%::c2,$chr(41))) %:comments }
if (%st) { %:echo = echo $color(quit) -sti2 | %:echo $+(,%::c1,«,,%::c3,--) $+(,%::c3,%::nick,) $+(,%::c2,$chr(40),,%::c1,%::address,,%::c2,$chr(41),) has left IRC $iif(%::text,$+(,%::c2,$chr(40),,%::c1,%::text,,%::c2,$chr(41))) %:comments }
haltdef
unset %:echo %::nick %::address %::parentext %::me %::server %::port %::pre %::c? %::text
}
on ^&*:RAWMODE:#:{
if ($chan !ischan) { return }
echo $color(mode) -ti2 $chan 12-14-12- $+(,12,$nick,) 14sets mode12 $+(,14,$chr(40),,12,$gettok($1-,1,32)) $+(,14,$gettok($1-,2-,32),,14,$chr(41)) %:comments | haltdef
}
on ^&*:KICK:#:{
if ($chan !ischan) { return }
var %tgt = 1
if (%tgt = 3) && ($knick != $me) { haltdef | return }
if (%tgt = 2) { set -u1 %:echo echo $color(kick) -sti2 }
else { set -u1 %:echo echo $color(kick) -ti2 $chan }
set -u1 %::knick $knick
set -u1 %::kaddress $gettok($address($knick, 5), 2, 33)
set -nu1 %::text $strip($1-, o)
set -nu1 %::me $me | set -nu1 %::server $server | set -nu1 %::port $port
set -nu1 %::pre 14--12»
set -nu1 %::c1 11 | set -nu1 %::c2 14 | set -nu1 %::c3 14 | set -nu1 %::c4 15
set -nu1 %::nick $nick
set -nu1 %::address $address
set -nu1 %::target $target
if ($nick($chan, $nick).pnick != $nick) { set -nu1 %::cmode $left($ifmatch, 1) } | set -nu1 %::cnick $nick($chan, $nick).color
set -nu1 %::chan $chan
if (* iswm %::text) { set -nu1 %::parentext 12-- 14(12 $+ %::text $+ 14) }
if ($knick == $me) {
%:echo 12«14-- You were kicked from 12 $+ %::chan 14by12 %::nick 14(12 $+ %::text $+ 14) $+ %:comments
if (%tgt == 2) { set -u1 %:echo echo $color(kick) -ti2 $chan }
else { set -u1 %:echo echo $color(kick) -seti2 }
%:echo 12«14-- You were kicked from 12 $+ %::chan $+ 14by 12 $+ %::nick 14(12 $+ %::text $+ 14) $+ %:comments
}
else { %:echo 12«14--12 %::knick $+ 14was kicked from 14(12 $+ %::chan $+ 14) 14by 12 $+ %::nick %::parentext %:comments }
haltdef
unset %:echo %::nick %::address %::target %::parentext %::knick %::kaddress %::me %::server %::port %::pre %::c? %::chan %::cmode %::cnick %::text
}
on ^&*:NICK:{
var %i = $comchan($newnick, 0), %tgt
set -nu1 %::me $me | set -nu1 %::server $server | set -nu1 %::port $port
set -nu1 %::pre 00--11»
set -nu1 %::c1 12 | set -nu1 %::c2 14 | set -nu1 %::c3 14 | set -nu1 %::c4 15
set -nu1 %::nick $nick
set -nu1 %::address $address
set -u1 %::newnick $newnick
if ($nick == $me) { %:echo = echo $color(nick) -sti2 | %:echo 12-14-12- 14Your nick is now 12 $+ %::newnick $+$1$3%:comments }
while (%i) {
set -u1 %::chan $comchan($newnick, %i)
%tgt = $gettok($hget(Kte_Events, %::chan), 7, 44)
if (%tgt != 2) || ($nick == $me) { %:echo = echo $color(nick) -ti2 %::chan | %:echo 12-14-12-12 %::nick 14changes nick to 12 $+ %::newnick $+$1$3%:comments }
dec %i
}
if ($query($newnick)) { unset %::chan | %:echo = echo $color(nick) -ti2 $newnick | %:echo 12-14-12- %::nick 14changes nick to 12 $+ %::newnick $+$1$3%:comments }
haltdef
unset %:echo %::nick %::address %::chan %::newnick %::me %::server %::port %::pre %::c?
}
on ^&*:ERROR:*:{
echo $color(other) -sti2 12-14-12- 14(12Error14) 14-12 $+ $replace($2-,[,14[12,-,14-12,.,14.12,$chr(40),$+(14,$chr(40),12),:,14:12,$chr(41),$+(14,$chr(41),12)) $+$1$3%:comments | haltdef
}
on ^&*:SNOTICE:*:{
echo $color(notice) -sti2 14Server 14(12 $+ $replace($server,.,14.12) $+ 14)14 $1- $+ %:comments | haltdef
}
on &^*:TEXT:*:#:{
if ($chan !ischan) { return }
if ($nick($chan, $nick).pnick != $nick) { set -nu1 %::cmode [ $+ [ $nick ] ] $left($ifmatch, 1) }
echo -mlbfti2 $chan 12» 14(12 $+ %::cmode [ $+ [ $nick ] ] $+ 14 $+ $nick $+ 14) $1- $+ %:comments | haltdef
unset %::cmode [ $+ [ $nick ] ]
}