alias theme {
echo 14 -a 7•›› 7Loading theme.. 7Please wait...
var %t $ctime
font -dz -8 tahoma
.timestamp -f 15«07hh15:07nn15:07ss15»
color action 6
color ctcp 4
color info 10
color info2 9
color invite 9
color join 9
color kick 9
color mode 9
color nick 9
color normal 15
color notice 8
color notify 15
color other 6
color own 15
color part 9
color quit 10
color topic 3
color wallops 5
color editbox 1
color inactive 0
color editbox text 15
color treebar 1
color listbox 1
color listbox text 15
color gray text 15
color title text 6
color treebar text 0
color background 1
var %i $cnick(0).mode
while %i > 0 { cnick -r %i | .dec %i }
.cnick * 04 ~&
.cnick * 04 @
.cnick * 08 %
.cnick * 12 +
.cnick -an * 10
echo 14 -a 7•›› 7mIRC 7Theme by 7J.T successfully loaded! 7Time taken: 7(14 $+ $duration($calc($ctime - %t)) $+ 7)
}
on *:start: theme
on ^*:text:*:#: {
echo -tm $chan $+(,$nick($chan,$nick).color,$chr(40),,$replace($remove($nick($chan,$nick).pnick,$nick),~,4~,&,4&,@,4@,%,8%,+,12+),$iif($nick($chan,$nick).color = 10,10-),15,$nick,,$nick($chan,$nick).color,$chr(41),,14:) $1-
haltdef
}
on ^*:text:*:?: {
echo -tm $nick 10(-15 $+ $nick $+ 10)14: $1-
haltdef
}
on *:input:*: {
if ($left($1,1) != /) {
!.msg $active $iif($left($1,1) == /,$eval($2-,2),$1-)
if ($active ischan) {
echo -t $chan $+(,$nick($chan,$me).color,$chr(40),,$replace($remove($nick($chan,$me).pnick,$me),~,4~,&,4&,@,4@,%,8%,+,12+),$iif($nick($chan,$me).color = 10,10-),15,$me,,$nick($chan,$me).color,$chr(41),,14:) $1-
}
else { echo -tm $active 10(-15 $+ $me $+ 10)14: $1- }
haltdef
}
}
on ^*:rawmode:#: {
echo -t $chan 7•›› 7Modes: 7( $+ $replace($remove($nick($chan,$nick).pnick,$nick),~,4~,&,4&,@,4@,%,8%,+,12+) $+ 15 $+ $nick $+ 7) 14sets: 7(3 $+ $1- $+ 7)
haltdef
}
on ^*:nick: {
var %i 1
while $chan(%i) {
if ($newnick ison $v1) { echo -t $chan(%i) 7••. 7Nickname 7Change: 7(15 $+ $nick $+ 7) 14to 7(15 $+ $newnick $+ 7) }
inc %i
}
haltdef
}
on ^*:part:#: {
if $nick != $me { echo 14 -t $chan 7••. 7Parts:15 $nick 7( $+ $address($nick,1) $+ 7) $iif($1-,( $+ $1- $+ 7)) }
haltdef
}
on ^*:join:#: {
if $nick != $me { echo 14 -t $chan 7••. 7Joins:15 $nick 7( $+ $address($nick,1) $+ 7) | haltdef }
}
on ^*:quit: {
var %i = 1
while $chan(%i) {
if ($nick ison $v1) { echo 14 -t $chan(%i) 7••. 7Quits:15 $nick 7( $+ $address($nick,1) $+ 7) 7( Quit: $iif($1 = Quit:,$2-,$1-) $+ 7) }
inc %i
}
haltdef
}
on ^*:kick:#: {
echo 14 -t $chan 7••. 7Kicks: $+(,$nick($chan,$knick).color,$chr(40),,$replace($remove($nick($chan,$knick).pnick,$knick),~,4~,&,4&,@,4@,%,8%,+,12+),$iif($nick($chan,$knick).color = 10,10-),15,$knick,,$nick($chan,$knick).color,$chr(41),) 7( $+ $address($knick,1) $+ 7) $&
15was kicked by $&
$+(,$nick($chan,$nick).color,$chr(40),,$replace($remove($nick($chan,$nick).pnick,$nick),~,4~,&,4&,@,4@,%,8%,+,12+),$iif($nick($chan,$nick).color = 10,10-),15,$nick,,$nick($chan,$nick).color,$chr(41),) 7( $+ $address($nick,1) $+ 7) $iif($1-,7(15 $+ $1- $+ 7))
haltdef
}
alias say {
if ($active == Status) { halt }
!.msg $active $1-
if ($active ischan) {
echo -t $active $+(,$nick($chan,$me).color,$chr(40),,$replace($remove($nick($chan,$me).pnick,$me),~,4~,&,4&,@,4@,%,8%,+,12+),$iif($nick($chan,$me).color = 10,10-),15,$me,,$nick($chan,$me).color,$chr(41),,14:) $1-
}
else { echo -tm $active 10(-15 $+ $me $+ 10)14: $1- }
}
alias msg {
!.msg $1 $2-
echo -t $1 $+(,$nick($chan,$me).color,$chr(40),,$replace($remove($nick($chan,$me).pnick,$me),~,4~,&,4&,@,4@,%,8%,+,12+),$iif($nick($chan,$me).color = 10,10-),15,$me,,$nick($chan,$me).color,$chr(41),,14:) $2-
}
alias amsg {
!.amsg $1-
var %i 1
while $chan(%i) {
echo -t $v1 $+(,$nick($chan,$me).color,$chr(40),,$replace($remove($nick($chan,$me).pnick,$me),~,4~,&,4&,@,4@,%,8%,+,12+),$iif($nick($chan,$me).color = 10,10-),15,$me,,$nick($chan,$me).color,$chr(41),,14:) $1-
inc %i
}
}
raw 401:*:echo -a »»» Error: No Such Nick ( $+ $2 $+ ) | halt
raw 402:*:echo -a »»» Error: No Such Server | halt
raw 403:*:echo -a »»» Error: No Such Channel ( $+ $2 $+ ) | halt
raw 404:*:echo -a »»» Error: Cannot Send To Channel ( $+ $2 $+ ) | halt
raw 405:*:echo -a »»» Error: You're On Too Many Channels | halt
raw 406:*:echo -a »»» Error: There Was No Such Nick ( $+ $2 $+ ) | halt
raw 407:*:echo -a »»» Error: Duplicate Recipients - No Message | halt
raw 409:*:echo -a »»» Error: No Origin Specified | halt
raw 411:*:echo -a »»» Error: No Recipient Given | halt
raw 412:*:echo -a »»» Error: No Text To Send | halt
raw 413:*:echo -a »»» Error: No Toplevel Domain Specified | halt
raw 414:*:echo -a »»» Error: Wildcard In Toplevel Domain | halt
raw 421:*:echo -a »»» Error: Unknown Command ( $+ $2 $+ ) | halt
raw 422:*:echo -a »»» Error: Motd File Missing | halt
raw 423:*:echo -a »»» Error: Administrative Info Unavailable | halt
raw 431:*:echo -a »»» Error: No Nick Givin | halt
raw 432:*:echo -a »»» Error: Erroneus Nick/Illegal Characters ( $+ $2 $+ ) | halt
raw 433:*:echo -a »»» Error: Nick $2 Already In Use | halt
raw 441:*:echo -a »»» Error: $2 Is Not On $3 | halt
raw 442:*:echo -a »»» Error: You're Not On $2 | halt
raw 443:*:echo -a »»» Error: $2 Is Aready On $3 | halt
raw 444:*:echo -a »»» Error: User Not Logged In | halt
raw 445:*:echo -a »»» Error: Summon Has Been Disabled | halt
raw 446:*:echo -a »»» Error: Users Has Been Disabled | halt
raw 451:*:echo -a »»» Error: You Have Not Registered | halt
raw 461:*:echo -a »»» Error: Not Enough Parameters Givin | halt
raw 462:*:echo -a »»» Error: You May Not Register | halt
raw 463:*:echo -a »»» Error: Your Host Isn't Among The Privileged | halt
raw 464:*:echo -a »»» Error: Password Incorrect | halt
raw 465:*:echo -a »»» Error: You're Banned From This Server | halt
raw 467:*:echo -a »»» Error: Channel Key Already Set | halt
raw 471:*:echo -a »»» Error: Channel Is Full | halt
raw 472:*:echo -a »»» Error: Unknown Mode Char ( $+ $2 $+ ) | halt
raw 473:*:echo -a »»» Error: $2 Is Invite Only | halt
raw 474:*:echo -a »»» Error: You Are Banned From $2 | halt
raw 475:*:echo -a »»» Error: Bad Channel Key | halt
raw 481:*:echo -a »»» Error: You're Not An IRC Operator | halt
raw 482:*:echo -a »»» Error: You're Not Channel Operator in $2 | halt
raw 483:*:echo -a »»» Error: Can't Kill Server | halt
raw 491:*:echo -a »»» Error: No Olines For Your Host | halt
raw 501:*:echo -a »»» Error: Unknown Mode Flag | halt
raw 502:*:echo -a »»» Error: Can't Change Mode For Other Users | halt
raw 314:*:echo -a - | echo -a Whowas On: $2 - $3 $+ @ $+ $4 | echo -a Address: *!*@ $+ $4 | echo -a Real Name: $iif(!$6-,None,$6-) $+ | halt
raw 369:*:echo -a End Of Whowas | echo -a - | halt
raw 301:*:echo -a Away: $3- | halt
raw 303:*:echo -a »»» Ison: $2- | halt
raw 305:*:echo -a 4»»» 15You Are No Longer Set As Away | halt
raw 306:*:echo -a 4»»» 15You Are Now Set As Away | halt
raw 375:*:echo -s - | echo -s 4Message Of The Day:2 $3 | echo -s - | halt
raw 376:*:echo -s - | echo -s 4End Of Motd | echo -s - | halt
raw 381:*:echo -a 4»»» 2You Are Now An IRC Oper | halt
raw 382:*:echo -a 4»»» 2Now Rehashing Server Config File | halt
raw 251:*:echo -s Server Info For: $server | echo -s Users Online: $4 | echo -s Invisible Users: $7 | echo -s Servers: $10 | halt
raw 252:*:echo -s 4Operators Online:2 $2 | halt
raw 253:*:echo -s 4Unknown Connections:2 $2 | halt
raw 254:*:echo -s 4Channels Formed:2 $2 | halt
raw 255:*:halt
raw 256:*:echo -s »»» Administrative Info:2 $5 | halt
raw 295:*:echo -a IRC Server Admin: Yes | halt
raw 308:*:echo -a IRC Server Admin: Yes | halt
raw 309:*:echo -a Services Admin: Yes | halt
raw 310:*:echo -a [ $+ $2 is a $network HelpOp] | halt
raw 311:*:echo -a - | echo -a Whois On: $2 - $3 $+ @ $+ $4 | echo -a Real Name: $iif(!$6,None,$6-) $+ | echo -a Address: *!*@ $+ $4 | halt
raw 312:*:echo -a Server: $3 | halt
raw 313:*:echo -a [ $+ $2 is an IRC Oper] | halt
raw 317:*:echo -a Idle: $3 $+ secs | halt
raw 318:*:echo -a End Of Whois | echo -a - | halt
alias -l c1 { return $+(04,$1,) }
alias -l c2 { return $+(08,$1,) }
alias -l c3 { return $+(12,$1,) }
raw 319:*: {
if (*@* iswm $3-) || (*%* iswm $3-) || (*+* iswm $3-) {
var %total $replace($3-,@,$c1(@),$chr(37),$c2($chr(37)),+,$c3(+))
echo -a Channels: %total
echo -a Total Count: ( $+ $iif($count(%total,@),4@ in $count(%total,@) $+ ,No 4Ops) $+ , $+ $iif($count(%total,$chr(37)),8 $chr(37) in $count(%total,$chr(37)) $+ , $chr(32) No 8HalfOps) $+ , $iif($count(%total,+),12+ in $count(%total,+) $+ ,No 12Voices) $+ ) (Over $matchtok(%total,$chr(35),0,32) $+ $iif($matchtok(%total,$chr(35),0,32) == 1,Channel,Channels) $+ )
halt
}
else {
echo -a Channels: $3-
echo -a Total Count: (No 4Ops, No 8HalfOps, No 12Voices) (Over $count($3-,$chr(35)) $+ $iif($count($3-,$chr(35)) == 1,Channel,Channels) $+ )
}
}
raw 307:*:echo -a [ $+ $2 is a registered nick] | halt
raw 320:*:echo -a [ $+ $2 $+ $3- $+ ] | halt
raw 368:*: { if ($chan = #Somechan) { echo -a $(%bancount. $+ $chan,2) bans! | haltdef } }
raw 378:*: echo -a Connecting: $6- | halt
raw 379:*: echo -a Modes: $6- | halt
raw 671:*: echo -a [ $+ $+(,$2,) is using SSL] | halt