Anonymous

On *:START: { .timestamp -f $TTimeStamp($mc1) | .timestamp -g $mc2(-dd/mm/yy-) | color background $remove($bg,$chr(3)) | color normal $remove($mc,$chr(3)) | color own $remove($mc,$chr(3)) | color whois $remove($mc2,$chr(3)) | color notice $remove($noc,$chr(3)) | .cnick -rs 1 | .cnick -rs 2 | .cnick -rs 3 | .cnick -rs 4 | .cnick -s1 * $remove($opc,$chr(3)) @ | .cnick -s2 * $remove($hopc,$chr(3)) % | cnick -s3 * $remove($voicec,$chr(3)) + | .cnick -ns4 * $remove($regc,$chr(3)) }
On *:LOAD: { .timestamp -f $TTimeStamp($mc1) | .timestamp -g $mc2(-dd/mm/yy) | color background $remove($bg,$chr(3)) | color normal $remove($mc,$chr(3)) | color own $remove($mc,$chr(3)) | color whois $remove($mc2,$chr(3)) | color notice $remove($noc,$chr(3)) | .cnick -rs 1 | .cnick -rs 2 | .cnick -rs 3 | .cnick -rs 4 | .cnick -s1 * $remove($opc,$chr(3)) @ | .cnick -s2 * $remove($hopc,$chr(3)) % | cnick -s3 * $remove($voicec,$chr(3)) + | .cnick -ns4 * $remove($regc,$chr(3)) | echo -sae $mc2(Theme loaded.) | if ($readini(Theme.ini,Settings,IdleCheck) == On) { .TimerBusy [ $+ [ $network ] ] 0 20 IdleCheck } }
On *:UNLOAD: { .timestamp -f [hh:nn:ss] | .timestamp -g -dd/mm/yy- [hh:nn:ss] | echo -sae $mc2(Theme unloaded.) }
On *:CONNECT: { unset %Copy* | if (!%awayreason [ $+ [ $network ] ]) && ($readini(Theme.ini,Settings,IdleCheck) == On) { .TimerBusy [ $+ [ $network ] ] 0 20 IdleCheck } | if (%awayreason [ $+ [ $network ] ]) { away %awayreason [ $+ [ $network ] ] } | if ($readini(Theme.ini,Settings,AutoID)) { ns id $readini(Theme.ini,Settings,AutoID) } | elseif (!$readini(Theme.ini,Settings,AutoID)) { if ($?!="You do not have AutoID set up. Would you like to do it now?") { :setup | var %AutoID $?*="Please enter your password." | if (%AutoID) { writeini Theme.ini Settings AutoID %AutoID | ns id %AutoID } | elseif (!$?!"Are you sure you want to cancel?") { goto setup } } } | Theme }
On *:DISCONNECT: { haltdef | var %a 1 | while %a <= $chan(0) { echo $chan(%a) $qc($TTimeStamp) $qc($+(»,$me)) $qc($+($chr(40),$remove($address($me,0),*,!),$chr(41))) $qc(quit IRC) | inc %a } }
On ^*:USERMODE: { haltdef | echo -sae $TTimeStamp($mdc) $mdc(»I set usermode $1-) }
On ^*:JOIN:#: { haltdef | echo $chan $TTimeStamp($jc) $jc($+(»,$nick $chr(40),$address,$chr(41) joined $chan)) | if ($+($chr(44),$nick,$chr(44)) !isin $readini(NickTrack.ini,NickTrack2,$address($nick,2))) { .Writeini -n NickTrack.ini Nicktrack2 $address($nick,2) $iif($readini(NickTrack.ini,NickTrack2,$address($nick,2)),$+($v1,$nick,$chr(44)),$+($chr(44),$nick,$chr(44))) } | if ($+($chr(44),$nick,$chr(44)) !isin $readini(NickTrack.ini,NickTrack3,$address($nick,3))) { .Writeini -n NickTrack.ini Nicktrack3 $address($nick,3) $iif($readini(NickTrack.ini,NickTrack3,$address($nick,3)),$+($v1,$nick,$chr(44)),$+($chr(44),$nick,$chr(44))) } }
On ^*:PART:#: { haltdef | echo $chan $TTimeStamp($pc) $pc($+(»,$nick $chr(40),$address,$chr(41) parted $chan,$iif($1,$+(:,$chr(32),$TextCol($1-,Part))))) }
On ^*:RAWMODE:* { haltdef | echo -m $chan $TTimeStamp($mdc) $+($mdc(»),$NickCol($nick,$chan)) $mdc(set mode $1-) | if (b isin $gettok($1,1,32)) { var %a 1 | while %a <= 20 { if ($address($me,%a) isin $1-) || (($gettok($1-,%a,32)) && ($+(*,$gettok($1-,%a,32),*) iswm $address($me,1))) || ($me isin $gettok($1-,%a,32)) { if (r !isincs $usermode) && ($readini(Theme.ini,Settings,AutoID)) { ns id $readini(Theme.ini,Settings,AutoID) } | if (r !isincs $usermode) && (!$readini(Theme.ini,Settings,AutoID)) { echo -ase $mc1(Unban attempt failed. You are not identified and do not have AutoID set up. To do so $+ $chr(44) type) $mc2(/AutoID Password) | halt } | if ($address($me,%a) isin $1-) { var %b %b $address($me,%a) } | if (($gettok($1-,%a,32)) && ($+(*,$gettok($1-,%a,32),*) iswm $address($me,1))) || ($me isin $gettok($1-,%a,32)) { var %b %b $gettok($1-,%a,32) } } | inc %a } | if (%b) { .timerunban [ $+ [ $chan ] ] 1 0.3 mode $chan $+(-,$str(b,10)) %b } } }
On ^*:KICK:#: { haltdef | echo -m $chan $TTimeStamp($kc) $kc(» $+ $nick kicked $knick from $chan $+ :) $iif($1- != $nick,$TextCol($1-,Kick),$kc(No reason specified.)) | if ($knick == $me) { if (r !isincs $usermode) && ($readini(Theme.ini,Settings,AutoID)) { ns id $readini(Theme.ini,Settings,AutoID) } | .timerunban [ $+ [ $chan ] ] 1 0.5 cs unban $chan | .timerjoin 1 1 join $chan } }
On ^*:TEXT:*:*: { haltdef | echo -mc normal $iif($chan,$chan,$nick) $TTimeStamp($mc1) $+($mc2($chr(40)),$NickCol($nick,$iif($chan,$chan,PM)),$mc2($chr(41) $+ :)) $code($1-) | if ($HlCheck($1-)) && ($chan) { flash | writeini -n Theme.ini Highlights Times $iif($readini(Theme.ini,Highlights,Times),$calc($v1 + 1),1) | writeini -n Theme.ini Highlights $address($nick,3) $iif($readini(Theme.ini,Highlights,$address($nick,3)),$calc($v1 + 1),1) | echo -a $+(11,$chr(44),12,$time([hh:nn:ss TT]) 00• 11,$chr(40),00,$chan,:,$nick,11,$chr(41),00:11 $strip($1-)) | if (%awayreason [ $+ [ $network ] ]) && (!%awayreply [ $+ [ $network ] ] [ $+ [ $nick ] ] [ $+ [ Channel ] ]) { notice $nick $+($mc1(°),$mc2(º),$mc1(·)) $mc1(I am currently away) $+($mc1(º),$mc2(º),$mc1(º)) $mc1(Reason:) $mc2(%awayreason [ $+ [ $network ] ]) $+($mc1(º),$mc2(º),$mc1(º)) $mc1(I have been away for: $duration($calc($ctime - %awaytime [ $+ [ $network ] ] ))) $+($mc1(º),$mc2(º),$mc1(º)) $+($mc2($chr(40)),$mc1(Response to highlight),$mc2($chr(41))) $+($mc1(°),$mc2(º),$mc1(·)) | set -u600 %awayreply [ $+ [ $network ] ] [ $+ [ $nick ] ] [ $+ [ Channel ] ] Replied } } | if (!$chan) { flash | if (%awayreason [ $+ [ $network ] ]) && (!%awayreply [ $+ [ $network ] ] [ $+ [ $nick ] ] [ $+ [ PM ] ]) { msg $nick $+($mc1(°),$mc2(º),$mc1(·)) $mc1(I am currently away) $+($mc1(º),$mc2(º),$mc1(º)) $mc1(Reason:) $mc2(%awayreason [ $+ [ $network ] ]) $+($mc1(º),$mc2(º),$mc1(º)) $mc1(I have been away for: $duration($calc($ctime - %awaytime [ $+ [ $network ] ] ))) $+($mc1(º),$mc2(º),$mc1(º)) $+($mc2($chr(40)),$mc1(Response to PM),$mc2($chr(41))) $+($mc1(°),$mc2(º),$mc1(·)) | set -u600 %awayreply [ $+ [ $network ] ] [ $+ [ $nick ] ] [ $+ [ PM ] ] Replied } } | if (%Copy [ $+ [ $nick ] ] == All) || (($chan) && (%Copy [ $+ [ $nick ] ] == $chan)) || ((!$chan) && (%Copy [ $+ [ $nick ] ] == PM)) { msg $iif($chan,$chan,$nick) $1- } }
On ^*:ACTION:*:*: { haltdef | echo -m $iif($chan,$chan,$nick) $TTimeStamp($ac) $ac($+(»,$NickCol($nick,$iif($chan,$chan,nick)))) $TextCol($1-,action) | if ($HlCheck($1-)) && ($chan) { flash | writeini -n Theme.ini Highlights Times $iif($readini(Theme.ini,Highlights,Times),$calc($v1 + 1),1) | writeini -n Theme.ini Highlights $address($nick,3) $iif($readini(Theme.ini,Highlights,$address($nick,3)),$calc($v1 + 1),1) | echo -a $+(11,$chr(44),12,$time([hh:nn:ss TT]) 00• 11»,00,$chan,:,$nick,11 $strip($1-)) | if (%awayreason [ $+ [ $network ] ]) && (!%awayreply [ $+ [ $network ] ] [ $+ [ $nick ] ] [ $+ [ Channel ] ]) { notice $nick $mc1(I am currently) $mc2(away) $mc1(» » Reason:) $mc2(%awayreason [ $+ [ $network ] ]) $mc1(« « Feel free to leave me a PM. (Response to highlight)) | set -u600 %awayreply [ $+ [ $network ] ] [ $+ [ $nick ] ] [ $+ [ Channel ] ] Replied } } | if (!$chan) { flash | if (%awayreason [ $+ [ $network ] ]) && (!%awayreply [ $+ [ $network ] ] [ $+ [ $nick ] ] [ $+ [ PM ] ]) { msg $nick $mc1(I am currently) $mc2(away) $mc1(» » Reason:) $mc2(%awayreason [ $+ [ $network ] ]) $mc1(« « Feel free to leave me a PM. (Response to PM)) | set -u600 %awayreply [ $+ [ $network ] ] [ $+ [ $nick ] ] [ $+ [ PM ] ] Replied } } | if ($HlCheck($1-)) && (%retaliate == $nick) { describe $iif($chan,$chan,$nick) $replace($1-,$HlCheck($1-),$nick) } | if (!%retaliate) && ($regex($strip($1-),/(slaps?|attacks?|hits?|wacks?|pelts?|smacks?|punche?s?|kicks?|pushe?s?|beats?) $HlCheck($1-) */Si)) { set -u10 %retaliate $nick | describe $iif($chan,$chan,$nick) dodges $nick and counter attacks with $read(ItemDB.txt) } | if (%Copy [ $+ [ $nick ] ] == All) || (($chan) && (%Copy [ $+ [ $nick ] ] == $chan)) || ((!$chan) && (%Copy [ $+ [ $nick ] ] == PM)) { describe $iif($chan,$chan,$nick) $1- } }
On ^*:NOTICE:*:*: { haltdef | if (*.*.* iswm $nick) && (*invited*into the channel* iswm $1-) { echo -a $TTimeStamp($noc) $noc(* INVITE: $+(»,$1) $+($chr(40),$address,$chr(41)) invited $3 to join $chan $+ .) | if ($active != $chan) { echo $chan $TTimeStamp($noc) $noc(* INVITE: $1 invited $3 to join $chan $+ .) } } | else { echo -ac notice $TTimeStamp($noc) $+($noc(-),$NickCol($nick,Notice),$iif($chan,$NickCol(-> $+ $chan,Notice),$null),$noc(-)) $TextCol($1-,Notice) } }
On ^*:SNOTICE:*: { haltdef | echo -a $TTimeStamp($noc) $+($noc(-),$NickCol($nick,Notice),$iif($chan,$NickCol(-> $+ $chan,Notice),$null),$noc(-)) $TextCol($1-,Notice) }
On *:CTCPREPLY:*: { haltdef | if ($1 == PING) { .timerping [ $+ [ $nick ] ] off | echo -a $TTimeStamp($cc) $cc(* CTCP:) $cc($nick $+ -> $+ $me) $cc($1 reply:) $TextCol($calc(%PING [ $+ [ $nick ] ] * 100) $+ ms,CTCP) | unset %PING [ $+ [ $nick ] ] } | if ($1 != PING) { echo -a $TTimeStamp($cc) $cc(* CTCP:) $cc($nick $+ -> $+ $me) $cc($1 reply:) $TextCol($2-,CTCP) } }
On ^*:NICK: { haltdef | if ($nick == $me) { echo -se $TTimeStamp($nnc) $nnc(»I changed my nick to $newnick) | if (Unknown* iswm $newnick) { if ($readini(Theme.ini,Settings,AutoID)) { ns release $nick $readini(Theme.ini,Settings,AutoID) | .timernick 1 0.3 nick $nick $chr(124) ns id $readini(Theme.ini,Settings,AutoID) } | if (!$readini(Theme.ini,Settings,AutoID)) { echo -a $mc1(You do not have AutoID set up. To do so $+ $chr(44) type) $mc2(/AutoID Password)) } | } } | var %a $comchan($newnick,0) | while %a { echo $comchan($newnick,%a) $TTimeStamp($nnc) $nnc($+(»,$nick) changed their nick to $newnick) | dec %a } | if ($address($newnick,2) == $null) { halt } | if ($+($chr(44),$newnick,$chr(44)) !isin $readini(NickTrack.ini,NickTrack2,$address($newnick,2))) { Writeini -n NickTrack.ini Nicktrack2 $address($newnick,2) $iif($readini(NickTrack.ini,NickTrack2,$address($newnick,2)),$+($v1,$newnick,$chr(44)),$+($chr(44),$newnick,$chr(44))) } | if ($+($chr(44),$newnick,$chr(44)) !isin $readini(NickTrack.ini,NickTrack3,$address($newnick,3))) { Writeini -n NickTrack.ini Nicktrack3 $address($newnick,3) $iif($readini(NickTrack.ini,NickTrack3,$address($newnick,3)),$+($v1,$newnick,$chr(44)),$+($chr(44),$newnick,$chr(44))) } }
On ^*:QUIT: { haltdef | var %a 1 | while %a <= $comchan($nick,0) { echo $comchan($nick,%a) $TTimeStamp($qc) $qc($+(»,$nick)) $qc($+($chr(40),$address,$chr(41))) $+($TextCol(quit IRC,Quit),$iif($1- != Quit:,$+(:,$chr(32),$TextCol($iif($1 == Quit:,$2-,$1-),Quit)))) | inc %a } }
On ^*:INVITE:#: { haltdef | echo -a $TTimeStamp($mc2) $mc2(* INVITE: $+(»,$nick) $+($chr(40),$address,$chr(41)) invited you to join $chan) }
On ^*:TOPIC:#: { haltdef | echo -m $chan $TTimeStamp($tc) $tc($+(»,$NickCol($nick,$chan))) $tc(changed $chan topic to:) $TextCol($1-,Topic) }
On *:DEOP:#: { if ($opnick == $me) && ($nick != $me) && (r isincs $usermode) { .ns update | .timerdeop [ $+ [ $chan ] ] 1 1 msg $chan =(? } }
On *:DEHELP:#: { if ($hnick == $me) && ($nick != $me) && (r isincs $usermode) { .ns update | .timerdeh [ $+ [ $chan ] ] 1 1 msg $chan =(? } }
On *:DEVOICE:#: { if ($vnick == $me) && ($nick != $me) && (r isincs $usermode) { .ns update | .timerdev [ $+ [ $chan ] ] 1 1 msg $chan =(? } }
CTCP ^*:*:*: { haltdef | echo -a $TTimeStamp($cc) $cc(* CTCP:) $cc($nick $+ -> $+ $me) $TextCol($1,CTCP) | if ($1 == PING) { .ctcpreply $nick PING PONG } | elseif ($1 == TIME) { .ctcpreply $nick $1 Tick Tock? } | elseif ($1 != VERSION) { .ctcpreply $nick $1 I don't get it. } }
RAW 332:*: { haltdef | echo $2 $TTimeStamp($tc) $tc($+(»,Topic:)) $TextCol($3-,Topic) }
RAW 333:*: { haltdef | echo $2 $TTimeStamp($tc) $tc($+(»,Set by: $3)) }
RAW 477:*: { haltdef | echo -ase $mc1(You need to be identified to join $2 $+ .) }
RAW 474:*: { haltdef | echo -ase $mc1(You have been banned from entering $2 $+ .) }
RAW 404:*: { haltdef | if ($3-5 == You are banned) { echo -ase $mc1(Message not sent. You are banned from this channel.) } | if ($3-4 == No external) { echo -ase $mc1(Message not sent. You need to be on $2 to send messages there.) } | if ($3 == Multi-target) { echo $2 $mc1(Message not sent. Multi-target messages are blocked on $2 $+ .) } }
RAW 378:*: { haltdef | set -u60 %WhoisCon [ $+ [ $2 ] ] $6- }
RAW 311:*: { haltdef | set -u60 %Whois [ $+ [ $2 ] ] $+($6,$chr(9),$3,@,$4) }
RAW 319:*: { haltdef | set -u60 %Whois [ $+ [ $2 ] ] $+(%Whois [ $+ [ $2 ] ],$chr(9),$3-) }
RAW 312:*: { haltdef | set -u60 %Whois [ $+ [ $2 ] ] $+(%Whois [ $+ [ $2 ] ],$chr(9),$3,$chr(9),$4-) }
RAW 301:*: { haltdef | if (%Whois [ $+ [ $2 ] ]) { set -u60 %WhoisAway [ $+ [ $2 ] ] $3- } | elseif (!%AwayNoticed [ $+ [ $2 ] ]) { echo -a $TTimeStamp($mc1) $mc1(* AWAY:) $mc2($2) $mc1(is currently set to away:) $mc2($3-) | set -u600 %AwayNoticed [ $+ [ $2 ] ] Noticed } }
RAW 307:*: { haltdef | set -u60 %WhoisID [ $+ [ $2 ] ] True }
RAW 317:*: { haltdef | set -u60 %Whois [ $+ [ $2 ] ] $+(%Whois [ $+ [ $2 ] ],$chr(9),$3,$chr(9),$4) }
RAW 318:*: { haltdef | tokenize 9 $+($2,$chr(9),%Whois [ $+ [ $2 ] ]) | echo -a $mc1(-) | echo -a $TTimeStamp($mc1) $mc1(* WHOIS: $1 » Real Name:) $mc2($2) | if (%WhoisCon [ $+ [ $2 ] ]) { echo -a $TTimeStamp($mc1) $mc1(* WHOIS: $2 » Connecting From:) $mc2(%WhoisCon [ $+ [ $2 ] ]) } | echo -a $TTimeStamp($mc1) $mc1(* WHOIS: $1 » Host:) $mc2($3) | echo -a $TTimeStamp($mc1) $mc1(* WHOIS: $1 » Server:) $mc2($5) $mc2($+($chr(40),$6,$chr(41))) | echo -a $TTimeStamp($mc1) $mc1(* WHOIS: $1 » Identified:) $mc2($iif(%WhoisID [ $+ [ $1 ] ],Yes,No)) | echo -a $TTimeStamp($mc1) $mc1(* WHOIS: $1 » On Channels:) $mc2($4) | echo -a $TTimeStamp($mc1) $mc1(* WHOIS: $1 » Idle Time:) $mc2($duration($7)) | if (%WhoisAway [ $+ [ $1 ] ]) { echo -a $TTimeStamp($mc1) $mc1(* WHOIS: $1 » Currently Away:) $mc2(%WhoisAway [ $+ [ $1 ] ]) } | echo -a $mc1(-) | unset %Whois* [ $+ [ $1 ] ] }
On *:INPUT:*: {
  if (%awayreason [ $+ [ $network ] ]) && (!$regex($1,/\/back */Si)) { if (!%AwayReminder [ $+ [ $network ] ]) { echo -a $TTimeStamp($mc1) $mc1(* AWAY:) $mc1(You are still set to) $mc2(away) $+ $mc1(. Reason:) $mc2(%awayreason [ $+ [ $network ] ]) | set %AwayReminder [ $+ [ $network ] ] 1 } | elseif (%Awayreason [ $+ [ $network ] ]) { $iif(%AwayReminder [ $+ [ $network ] ] == 10,unset %AwayReminder [ $+ [ $network ] ],inc %AwayReminder [ $+ [ $network ] ]) } }
  if ($regex($left($1,2),/^m[+-] */Si)) { haltdef | mode $chan $right($left($1,2),1) $+ $right($eval($1-,2),-2)) }
  elseif ($regex($1,/^(aadd|adel|alist|info|glist|aka|akdel|ak(l(ist)?|v(iew)?)) */Si)) {
    haltdef
    if ($1 == info) { $iif($left($2,1) == $chr(35),cs,ns) info $2- }
    if ($1 == aadd) { var %aadd $eval($2-,2) | tokenize 32 %aadd | if ($2) { cs access $chan add $1 $2 } | if ($4) { cs access $chan add $3 $4 } | if ($6) { cs access $chan add $5 $6 } | if ($8) { cs access $chan add $7 $8 } | if ($10) { cs access $chan add $9 $10 } | if ($12) { cs access $chan add $11 $12 } | if ($14) { cs access $chan add $13 $14 } | if ($16) { cs access $chan add $15 $16 } | if ($18) { cs access $chan add $17 $18 } | if ($20) { cs access $chan add $19 $20 } }
    if ($1 == adel) { var %adel $eval($2-,2) | tokenize 32 %adel | if ($1) { cs access $chan del $1 } | if ($2) { cs access $chan del $2 } | if ($3) { cs access $chan del $3 } | if ($4) { cs access $chan del $4 } | if ($5) { cs access $chan del $5 } | if ($6) { cs access $chan del $6 } | if ($7) { cs access $chan del $6 } | if ($8) { cs access $chan del $8 } | if ($9) { cs access $chan del $9 } | if ($10) { cs access $chan del $10 } }
    if ($1 == alist) { if ($2 == $eval($me,0)) || (!$chan) { ns alist } | else { cs access $chan list $2- } }
    if ($1 == glist) { ns glist }
    if ($1 == aka) { cs akick $chan add $2- }
    if ($1 == akdel) { cs akick $chan del $2 }
    if ($left($1,3) == akl) { cs akick $chan list }
    if ($left($1,3) == akv) { cs akick $chan view }
  }
  else { if ($left($1,1) != /) { haltdef | $iif($active != Status Window,.msg $active $1-,.echo -a $eval($1-,2)) } }
}
Alias Say { haltdef | .msg $active $$1- }
Alias Query { haltdef | query $$1 | .msg $$1 $$2- }
Alias Me { haltdef | .me $$1- | echo -ac action $TTimeStamp($ac) $ac($+(»,$NickCol($me,$iif($chan,$chan,nick)))) $TextCol($$1-,Action) }
Alias Amsg { haltdef | .amsg $$1- | var %a 1 | while $chan(%a) { echo -mc normal $chan(%a) $TTimeStamp($mc1) $+($mc2($chr(40)),$NickCol($me,$chan(%a)),$mc2($chr(41) $+ :)) $code($$1-) | inc %a } }
Alias Ame { haltdef | .ame $$1- | var %a 1 | while $chan(%a) { echo -m $chan(%a) $TTimeStamp($ac) $ac($+(»,$NickCol($me,$chan(%a)))) $TextCol($$1-,Action) | inc %a } }
Alias Msg { haltdef | if ($left($$1,1) != $chr(35)) { if (!$window($$1)) { query $$1 $$2- } | elseif ($window($$1)) { .msg $$1 $$2- | echo -c normal $$1 $TTimeStamp($mc1) $+($mc2($chr(40)),$NickCol($me,PM),$mc2($chr(41) $+ :)) $code($$2-) } } | if ($left($$1,1) == $chr(35)) { .msg $$1 $$2- | if ($me ison $$1) { echo -mc normal $$1 $TTimeStamp($mc1) $+($mc2($chr(40)),$NickCol($me,$$1),$mc2($chr(41) $+ :)) $code($$2-) } | if ($me !ison $$1) { echo -ac notice $TTimeStamp($noc) $+($noc(-),$NickCol($me $+ -> $+ $$1,Notice),$noc(-)) $TextCol($$2-,notice) } } }
Alias Describe { haltdef | .describe $$1 $$2- | if ($left($$1,1) != $chr(35)) { if (!$window($$1)) { query $$1 } | echo -m $$1 $TTimeStamp($ac) $+($ac(»),$NickCol($me,$$1)) $TextCol($$2-,action) } | if ($left($$1,1) == $chr(35)) { if ($me ison $$1) { echo $$1 $TTimeStamp($ac) $+($ac(»),$NickCol($me,$$1)) $TextCol($$2-,action) } | if ($me !ison $$1) { echo -a $TTimeStamp($ac) $+($ac(»),$NickCol($me $+ -> $+ $$1,nick)) $TextCol($$2-,action) } } }
Alias Notice { haltdef | .notice $$1 $$2- | echo -ac notice $TTimeStamp($noc) $+($noc(-),$NickCol($me,Notice),$NickCol(-> $+ $$1,$$1),$noc(-)) $TextCol($$2-,Notice) }
Alias CTCP { haltdef | .ctcp $$1 $$2 | if ($$2 == PING) { .timerping [ $+ [ $$1 ] ] 30 0.1 inc %PING [ $+ [ $$1 ] ] 0.1 } | echo -a $TTimeStamp($cc) $cc(* CTCP:) $cc($me $+ -> $+ $$1) $cc($upper($$2)) }
Alias CTCPREPLY { haltdef | .ctcpreply $$1 $upper($$2) $$3- | echo -a $TTimeStamp($cc) $cc(* CTCP:) $cc($me $+ -> $+ $$1) $cc($upper($$2) reply:) $TextCol($$3-,CTCP) }
Alias NickTrack { if (!$1) { echo -a $TTimeStamp($mc1) $mc1(* NICKTRACK:) $mc1(You must specify the IRC) $mc2(host) $mc1(or) $mc2(nickname) $mc1(that you wish to track.) } | if ($1) { if (!$address($1,2)) { echo -a $TTimeStamp($mc1) $mc1(* NICKTRACK:) $mc1(Unable to nicktrack. Can't find) $mc2($1) $+ $mc1('s host.) } | else { echo -a $TTimeStamp($mc1) $mc1(* NICKTRACK:) $iif(@ !isin $1,$mc1(Nick:) $mc2($1) $mc1(|),$null) $mc1(Host:) $mc2($iif(@ isin $1,$1,$address($1,2))) $mc1(| Used Names:) $mc2($iif($readini(NickTrack.ini,$iif(*. isin $1,NickTrack3,NickTrack2),$iif(@ isin $1,$1,$address($1,$iif(*. isin $1,3,2)))),$replace($right($left($v1,-1),-1),$chr(44),$+($chr(44),$chr(32))),No records)) | if (@ !isin $1) { echo -a $TTimeStamp($mc1) $mc1(* NICKTRACK:) $iif(@ !isin $1,$mc1(Nick:) $mc2($1) $mc1(|),$null) $mc1(Host:) $mc2($iif(@ isin $1,$1,$address($1,3))) $mc1(| Used Names:) $mc2($iif($readini(NickTrack.ini,NickTrack3,$iif(@ isin $1,$1,$address($1,3))),$replace($right($left($v1,-1),-1),$chr(44),$+($chr(44),$chr(32))),No records)) } } } }
Alias IdleCheck { if (!$1) { if ($idle >= $gettok($readini(Theme.ini,Settings,IdleCheck),2,32)) { afk Busy $+($chr(40),$duration($gettok($readini(Theme.ini,Settings,IdleCheck),2,32)) idle time,$chr(41)) } } | if ($1 == On) { if ($2 !isnum) { echo -a $TTimeStamp($mc1) $mc1(* IDLE:) $mc1(You must specify a druation in seconds for idle away to trigger on. Syntax:) $mc2(/IdleCheck On 1200) | halt } | writeini Theme.ini Settings IdleCheck On $2 | echo -a $TTimeStamp($mc1) $mc1(* IDLE:) $mc1(Automatic away after $duration($2) minutes idle time enabled.) | .TimerBusy [ $+ [ $network ] ] 0 20 IdleCheck } | if ($1 == Off) { writeini Theme.ini Settings IdleCheck Off | echo -a $TTimeStamp($mc1) $mc1(* IDLE:) $mc1(Automatic away disabled.) } }
Alias Afk { .TimerBusy [ $+ [ $network ] ] off | away $iif($1- != $null,$1-,Away) | set %awayreason [ $+ [ $network ] ] $iif($1,$1-,Away) | set %awayleft [ $+ [ $network ] ] $time(hh:nntt) | set %awaydate [ $+ [ $network ] ] $time(dd/mm) | set %awaytime [ $+ [ $network ] ] $iif($1- == Busy $+($chr(40),$duration($gettok($readini(Theme.ini,Settings,IdleCheck),2,32)) idle time,$chr(41)),$calc($ctime - $gettok($readini(Theme.ini,Settings,IdleCheck),2,32)),$ctime) | amsg $+($mc1(°),$mc2(º),$mc1(·)) $mc1(I am Now) $mc2(AwAy) $mc1(Reason:) $+($mc1(º),$mc2(º),$mc1(º)) $mc1(%awayreason [ $+ [ $network ] ]) $+($mc1(º),$mc2(º),$mc1(º)) $mc2(LeFt At:) $+($mc1(º),$mc2(º),$mc1(º)) $mc1($time(hh:nntt)) $+($mc1(°),$mc2(º),$mc1(·)) }
Alias Back { if (!%awayreason [ $+ [ $network ] ]) { echo -a $TTimeStamp($mc1) $mc1(* AWAY:) $mc1(You are not set to away.) } | if (%awayreason [ $+ [ $network ] ]) { away | amsg $+($mc1(°),$mc2(º),$mc1(·)) $mc1(I am Now) $mc2(BaCk) $mc1(from) $+($mc1(º),$mc2(º),$mc1(º)) $mc1(%awayreason [ $+ [ $network ] ]) $+($mc1(º),$mc2(º),$mc1(º)) $mc2(AwAy FoR:) $+($mc1(º),$mc2(º),$mc1(º)) $mc1($duration($calc( $ctime - %awaytime [ $+ [ $network ] ] ))) $+($mc2($chr(40)),$mc1(%awayleft [ $+ [ $network ] ] $iif(%awaydate [ $+ [ $network ] ] == $time(dd/mm),$null,%awaydate [ $+ [ $network ] ])),$mc2(->),$mc1($time(hh:nntt) $iif(%awaydate [ $+ [ $network ] ] == $date(dd/mm),$null,$time(dd/mm))),$mc2($chr(41))) $+($mc1(°),$mc2(º),$mc1(·)) | unset %away* | if ($readini(Theme.ini,Settings,IdleCheck) == On) { .TimerBusy [ $+ [ $network ] ] 0 20 IdleCheck } } }
Alias Code { var %a $1- | tokenize 32 %a | var %b 1 | while %b <= $numtok(%a,32) { if ($decode($eval($+($chr(36),%b),2))) && ($encode($decode($eval($+($chr(36),%b),2))) == $eval($+($chr(36),%b),2)) { var %c %c $+($chr(2),$chr(40),Code:,$chr(32),$decode($eval($+($chr(36),%b),2)),$chr(41),$chr(2)) } | inc %b } | return %a %c }
Alias Copy { if (!$regex($1,/^(On|Off) */Si)) { echo -a $TTimeStamp($mc1) $mc1(*COPY) $mc1(You must specify whether to start or stop copying. Syntax:) $mc2(/Copy On/Off Nick All/#Channel/PM) | halt } | if (!$2) { echo -a $TTimeStamp($mc1) $mc1(*COPY) $mc1(You must specify who you want to copy. Syntax:) $mc2(/Copy On/Off nick Nick All/#Channel/PM) | halt } | if ($2) { if ($1 == On) { if (!$regex($3,/^(All|PM) */Si)) && ($left($3,1) != $chr(35)) { echo -a $TTimeStamp($mc1) $mc1(*COPY) $mc1(You must specify where you want to copy. #Channel $+ $chr(44) PM $+ $chr(44) or both. Syntax:) $mc2(/Copy On/Off Nick All/#Channel/PM) | halt } | if ($left($3,1) == $chr(35)) && (($me !ison $3) || ($2 !ison $3)) { echo -a $TTimeStamp($mc1) $mc1(*COPY) $mc1($iif($me !ison $3,You are,$2 is) not on that channel.) | halt } | if (!$address($2,2)) || ($2 == $me) { echo -a $TTimeStamp($mc1) $mc1(*COPY) $mc1($iif($2 == $me,You can't copy yourself!,Unable to find $2 $+ .)) | halt } | set %Copy [ $+ [ $2 ] ] $3 | echo -a $TTimeStamp($mc1) $mc1(*COPY) $mc1(Now copying) $mc2($2) $mc1(in $iif($3 == all,all channels and PM.,$iif($3 == PM,PM,$3))) } | if ($1 == Off) { unset %Copy [ $+ [ $2 ] ] | echo -a $TTimeStamp($mc1) $mc1(*COPY) $mc1(No longer copying) $mc2($2) $+ $mc1(.) } } }
Alias AutoID { if (!$1) { echo -a $TTimeStamp($mc1) $mc1(* AUTO-ID:) $mc1(You must specify a password to automatically identify with.) } | if ($1) && (!$regex($1,/^(clear|reset|del(ete)?|unset) */Si)) { writeini -n Theme.ini Settings AutoID $1 | echo -a $TTimeStamp($mc1) $mc1(* AUTO-ID:) $mc1(Automatic identification password set to:) $mc2($1) } | if ($1) && ($regex($1,/^(clear|reset|del(ete)?|unset) */Si)) { remini Theme.ini Settings AutoID | echo -a $TTimeStamp($mc1) $mc1(* AUTO-ID:) $mc1(Your AutoID password has been deleted.) } }
Alias AutoJoin { if (!$readini(Theme.ini,Settings,$+(AutoJoin,$network))) { writeini -n Theme.ini Settings $+(AutoJoin,$network) $chr(44) } | if (!$1) { if ($remove($readini(Theme.ini,Settings,$+(AutoJoin,$network)),$chr(44))) { join $left($right($readini(Theme.ini,Settings,$+(AutoJoin,$network)),-1),-1) } | if (!$remove($readini(Theme.ini,Settings,$+(AutoJoin,$network)),$chr(44))) { echo -a $TTimeStamp($mc1) $mc1(* AUTO-JOIN:) $mc1(There are no) $mc2(channels) $mc1(on your) $mc2(AutoJoin) $mc1(list.) } } | if ($1 == Add) { if ($left($2,1) != $chr(35)) { echo -a $TTimeStamp($mc1) $mc1(* AUTO-JOIN:) $mc1(You must specify a valid) $mc2(channel) $mc1(to add to your) $mc2(AutoJoin) $mc1(list.) } | if ($left($2,1) == $chr(35)) { if ($+($chr(44),$2,$chr(44)) isin $readini(Theme.ini,Settings,$+(AutoJoin,$network))) { echo -a $TTimeStamp($mc1) $mc1(* AUTO-JOIN:) $mc1(Channel) $mc2($2) $mc1(is already on your) $mc2(AutoJoin) $mc1(list.) } | elseif ($+($chr(44),$2,$chr(44)) !isin $readini(Theme.ini,Settings,$+(AutoJoin,$network))) { writeini -n Theme.ini Settings $+(AutoJoin,$network) $+($readini(Theme.ini,Settings,$+(AutoJoin,$network)),$2,$chr(44)) | echo -a $TTimeStamp($mc1) $mc1(* AUTO-JOIN:) $mc1(Channel) $mc2($2) $mc1(added to your) $mc2(AutoJoin) $mc1(list.) } } } | if ($1 == Del) { if (!$2) { echo -a $TTimeStamp($mc1) $mc1(* AUTO-JOIN:) $mc1(You must specify which) $mc2(channel) $mc1(you wish to remove from your) $mc2(AutoJoin) $mc1(list.) } | if ($2) { if ($+($chr(44),$2,$chr(44)) isin $readini(Theme.ini,Settings,$+(AutoJoin,$network))) { writeini -n Theme.ini Settings $+(AutoJoin,$network) $remove($readini(Theme.ini,Settings,$+(AutoJoin,$network)),$+($chr(44),$2)) | echo -a $TTimeStamp($mc1) $mc1(* AUTO-JOIN:) $mc1(Channel) $mc2($2) $mc1(removed from your) $mc2(AutoJoin) $mc1(list.) } | elseif ($+($chr(44),$2,$chr(44)) !isin $readini(Theme.ini,Settings,$+(AutoJoin,$network))) { echo -a $TTimeStamp($mc1) $mc1(* AUTO-JOIN:) $mc1(Channel) $mc2($2) $mc1(is not on your) $mc2(AutoJoin) $mc1(list.) } } } | if ($1 == list) { if ($remove($readini(Theme.ini,Settings,$+(AutoJoin,$network)),$chr(44))) { echo -a $TTimeStamp($mc1) $mc1(*AUTO-JOIN:) $mc1(Your autojoin list:) $mc2($replace($left($right($readini(Theme.ini,Settings,$+(AutoJoin,$network)),-1),-1),$chr(44),$+($chr(44),$chr(32)))) } | if (!$remove($readini(Theme.ini,Settings,$+(AutoJoin,$network)),$chr(44))) { echo -a $TTimeStamp($mc1) $mc1(*AUTO-JOIN:) $mc1(There are no) $mc2(channels) $mc1(on your) $mc2(AutoJoin) $mc1(list.) } } }
Alias AJoin { if (!$readini(Theme.ini,Settings,$+(AutoJoin,$network))) { writeini -n Theme.ini Settings $+(AutoJoin,$network) $chr(44) } | if (!$1) { if ($remove($readini(Theme.ini,Settings,$+(AutoJoin,$network)),$chr(44))) { join $left($right($readini(Theme.ini,Settings,$+(AutoJoin,$network)),-1),-1) } | if (!$remove($readini(Theme.ini,Settings,$+(AutoJoin,$network)),$chr(44))) { echo -a $TTimeStamp($mc1) $mc1(*AUTO-JOIN:) $mc1(There are no) $mc2(channels) $mc1(on your) $mc2(AutoJoin) $mc1(list.) } } | if ($1 == Add) { if ($left($2,1) != $chr(35)) { echo -a $TTimeStamp($mc1) $mc1(*AUTO-JOIN:) $mc1(You must specify a valid) $mc2(channel) $mc1(to add to your) $mc2(AutoJoin) $mc1(list.) } | if ($left($2,1) == $chr(35)) { if ($+($chr(44),$2,$chr(44)) isin $readini(Theme.ini,Settings,$+(AutoJoin,$network))) { echo -a $TTimeStamp($mc1) $mc1(*AUTO-JOIN:) $mc1(Channel) $mc2($2) $mc1(is already on your) $mc2(AutoJoin) $mc1(list.) } | elseif ($+($chr(44),$2,$chr(44)) !isin $readini(Theme.ini,Settings,$+(AutoJoin,$network))) { writeini -n Theme.ini Settings $+(AutoJoin,$network) $+($readini(Theme.ini,Settings,$+(AutoJoin,$network)),$2,$chr(44)) | echo -a $TTimeStamp($mc1) $mc1(*AUTO-JOIN:) $mc1(Channel) $mc2($2) $mc1(added to your) $mc2(AutoJoin) $mc1(list.) } } } | if ($1 == Del) { if (!$2) { echo -a $TTimeStamp($mc1) $mc1(*AUTO-JOIN:) $mc1(You must specify which) $mc2(channel) $mc1(you wish to remove from your) $mc2(AutoJoin) $mc1(list.) } | if ($2) { if ($+($chr(44),$2,$chr(44)) isin $readini(Theme.ini,Settings,$+(AutoJoin,$network))) { writeini -n Theme.ini Settings $+(AutoJoin,$network) $remove($readini(Theme.ini,Settings,$+(AutoJoin,$network)),$+($chr(44),$2)) | echo -a $TTimeStamp($mc1) $mc1(*AUTO-JOIN:) $mc1(Channel) $mc2($2) $mc1(removed from your) $mc2(AutoJoin) $mc1(list.) } | elseif ($+($chr(44),$2,$chr(44)) !isin $readini(Theme.ini,Settings,$+(AutoJoin,$network))) { echo -a $TTimeStamp($mc1) $mc1(*AUTO-JOIN:) $mc1(Channel) $mc2($2) $mc1(is not on your) $mc2(AutoJoin) $mc1(list.) } } } | if ($1 == list) { if ($remove($readini(Theme.ini,Settings,$+(AutoJoin,$network)),$chr(44))) { echo -a $TTimeStamp($mc1) $mc1(*AUTO-JOIN:) $mc1(Your autojoin list:) $mc2($replace($left($right($readini(Theme.ini,Settings,$+(AutoJoin,$network)),-1),-1),$chr(44),$+($chr(44),$chr(32)))) } | if (!$remove($readini(Theme.ini,Settings,$+(AutoJoin,$network)),$chr(44))) { echo -a $TTimeStamp($mc1) $mc1(*AUTO-JOIN:) $mc1(There are no) $mc2(channels) $mc1(on your) $mc2(AutoJoin) $mc1(list.) } } }
Alias Backwards { var %a $len($2-) | var %b 1 | var %c $right($2-,1) | while %b <= %a { var %c %c $+ $right($left($replace($2-,$chr(32),-),- $+ %b),1) | inc %b } | $1 $replace(%c,-,$chr(32)) }
Alias Flip { var %a $len($2-) | var %b 1 | var %c $utext($right($2-,1)) | while %b <= %a { var %c %c $+ $utext($right($left($replace($2-,$chr(32),-),- $+ %b),1)) | inc %b } | $1 $replace(%c,-,$chr(32)) }
Alias Utext { if ($1 == a) { return ɐ } | if ($1 == b) { return q } | if ($1 == c) { return ɔ } | if ($1 == d) { return p } | if ($1 == e) { return ǝ } | if ($1 == f) { return f } | if ($1 == g) { return 6 } | if ($1 == h) { return ɥ } | if ($1 == i) { return ı } | if ($1 == j) { return ɾ } | if ($1 == k) { return ʞ } | if ($1 == l) { return l } | if ($1 == m) { return ɯ } | if ($1 == n) { return u } | if ($1 == o) { return o } | if ($1 == p) { return d } | if ($1 == q) { return b } | if ($1 == r) { return ɹ } | if ($1 == s) { return s } | if ($1 == t) { return ʇ } | if ($1 == u) { return n } | if ($1 == v) { return ʌ } | if ($1 == w) { return ʍ } | if ($1 == x) { return x } | if ($1 == y) { return ʎ } | if ($1 == z) { return z } | else { return $1 } }
Alias Slaps { me slaps $1- around a bit with a large trout | set -u10 %retaliate $1 }
Alias Slap { me slaps $1- around a bit with a large trout | set -u10 %retaliate $1 }
Alias Hug { me huggles $$1- }
Alias Huggles { me huggles $$1- }
Alias Highlight { if (!$readini(Theme.ini,Settings,Highlights)) { writeini -n Theme.ini Settings Highlights $chr(124) } | if (!$1) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(You must specify either:) $+($mc2(list),$mc1($chr(44)) $mc2(add word),$mc1($chr(44)) $mc2(del word),$mc1($chr(44)) $mc2(echo <name>),$mc1($chr(44)) $mc2(say <name>)) } | if ($1 == add) { if (!$2) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(You must specify a word to add to your) $mc2(highlight) $mc1(words list.) } | if ($2) { if ($+($chr(160),$2,$chr(160)) isin $readini(Theme.ini,Settings,Highlights)) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(The word) $mc2($2) $mc1(is already on your) $mc2(highlight) $mc1(list.) } | elseif ($+($chr(160),$2,$chr(160)) !isin $readini(Theme.ini,Settings,Highlights)) { writeini -n Theme.ini Settings Highlights $+($readini(Theme.ini,Settings,Highlights),$chr(160),$2,$chr(160),$chr(124)) | echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(Word) $mc2($2) $mc1(added to your) $mc2(highlights) $mc1(list.) } } } | if ($1 == del) { if (!$2) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(You must specify a word to remove from your) $mc2(highlight) $mc1(words list.) } | if ($2) { if ($+($chr(160),$2,$chr(160)) isin $readini(Theme.ini,Settings,Highlights)) { writeini -n Theme.ini Settings Highlights $remove($readini(Theme.ini,Settings,Highlights),$+($chr(124),$chr(160),$2,$chr(160))) | echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(World) $mc2($2) $mc1(removed from your) $mc2(highlight) $mc1(list.) } | elseif ($+($chr(160),$2,$chr(160)) !isin $readini(Theme.ini,Settings,Highlights)) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(Word) $mc2($2) $mc1(is not in your) $mc2(highlight) $mc1(list.) } } } | if ($1 == list) { if ($remove($readini(Theme.ini,Settings,Highlights),$chr(124))) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(Your highlight words:) $mc2($right($left($readini(Theme.ini,Settings,Highlights),-1),-1)) } | if (!$remove($readini(Theme.ini,Settings,Highlights),$chr(124))) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(You do not have any) $mc2(highlight) $mc1(words set.) } } | if ($regex($1,/^(say|echo) *$/Si)) { if (!$2) { $1 $iif($1 == echo,$TTimeStamp($mc1) $mc1(* HIGHLIGHT:)) $mc1(I have been highlighted) $mc2($iif($readini(Theme.ini,Highlights,Times),$bytes($v1,b),0)) $mc1(times.) } | if ($2) { if (!$address($2,3)) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(Unable to find) $mc2($2) $+ $mc1('s host.) } | if ($address($2,3)) { $1 $iif($1 == echo,$TTimeStamp($mc1) $mc1(* HIGHLIGHT:)) $mc1(I have been highlighted) $mc2($iif($readini(Theme.ini,Highlights,$address($2,3)),$bytes($v1,b),0)) $mc1(times by) $mc2($2) $+ $mc1(.) } } } }
Alias Hl { if (!$readini(Theme.ini,Settings,Highlights)) { writeini -n Theme.ini Settings Highlights $chr(124) } | if (!$1) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(You must specify either:) $+($mc2(list),$mc1($chr(44)) $mc2(add word),$mc1($chr(44)) $mc2(del word),$mc1($chr(44)) $mc2(echo <name>),$mc1($chr(44)) $mc2(say <name>)) } | if ($1 == add) { if (!$2) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(You must specify a word to add to your) $mc2(highlight) $mc1(words list.) } | if ($2) { if ($+($chr(160),$2,$chr(160)) isin $readini(Theme.ini,Settings,Highlights)) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(The word) $mc2($2) $mc1(is already on your) $mc2(highlight) $mc1(list.) } | elseif ($+($chr(160),$2,$chr(160)) !isin $readini(Theme.ini,Settings,Highlights)) { writeini -n Theme.ini Settings Highlights $+($readini(Theme.ini,Settings,Highlights),$chr(160),$2,$chr(160),$chr(124)) | echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(Word) $mc2($2) $mc1(added to your) $mc2(highlights) $mc1(list.) } } } | if ($1 == del) { if (!$2) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(You must specify a word to remove from your) $mc2(highlight) $mc1(words list.) } | if ($2) { if ($+($chr(160),$2,$chr(160)) isin $readini(Theme.ini,Settings,Highlights)) { writeini -n Theme.ini Settings Highlights $remove($readini(Theme.ini,Settings,Highlights),$+($chr(124),$chr(160),$2,$chr(160))) | echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(World) $mc2($2) $mc1(removed from your) $mc2(highlight) $mc1(list.) } | elseif ($+($chr(160),$2,$chr(160)) !isin $readini(Theme.ini,Settings,Highlights)) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(Word) $mc2($2) $mc1(is not in your) $mc2(highlight) $mc1(list.) } } } | if ($1 == list) { if ($remove($readini(Theme.ini,Settings,Highlights),$chr(124))) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(Your highlight words:) $mc2($right($left($readini(Theme.ini,Settings,Highlights),-1),-1)) } | if (!$remove($readini(Theme.ini,Settings,Highlights),$chr(124))) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(You do not have any) $mc2(highlight) $mc1(words set.) } } | if ($regex($1,/^(say|echo) *$/Si)) { if (!$2) { $1 $iif($1 == echo,$TTimeStamp($mc1) $mc1(* HIGHLIGHT:)) $mc1(I have been highlighted) $mc2($iif($readini(Theme.ini,Highlights,Times),$bytes($v1,b),0)) $mc1(times.) } | if ($2) { if (!$address($2,3)) { echo -a $TTimeStamp($mc1) $mc1(* HIGHLIGHT:) $mc1(Unable to find) $mc2($2) $+ $mc1('s host.) } | if ($address($2,3)) { $1 $iif($1 == echo,$TTimeStamp($mc1) $mc1(* HIGHLIGHT:)) $mc1(I have been highlighted) $mc2($iif($readini(Theme.ini,Highlights,$address($2,3)),$bytes($v1,b),0)) $mc1(times by) $mc2($2) $+ $mc1(.) } } } }
Alias Search {
  if (!$regex($1,/^(Nick|Host) */Si)) { echo -a $TTimeStamp($mc1) $mc1(* SEARCH:) $+($mc1(You must specify a search type. "),$mc2(Nick),$mc1(" or "),$mc2(host),$mc1(".)) }
  if ($regex($1,/^(Nick|Host) */Si)) {
    if (!$strip($2)) { echo -a $TTimeStamp($mc1) $mc1(* SEARCH:) $mc1(You must specify a) $mc2($left($strip($1),4)) $mc1(to search for.) }
    if ($strip($2)) && ($regex($strip($1),/^Nick */Si)) {
      var %a 1
      while %a <= $chan(0) {
        var %b 1
        while %b <= $nick($chan(%a),0) {
          if ($strip($2) == $nick($chan(%a),%b)) { var %c %c $+($chan(%a),$chr(44)) }
          inc %b
        }
        inc %a
      }
      if (%c == $null) { echo -a $TTimeStamp($mc1) $mc1(* SEARCH:) $mc1(No nick was found matching) $mc2($strip($2)) $+ $mc1(.) }
      if (%c != $null) { echo -a $TTimeStamp($mc1) $mc1(* SEARCH:) $mc1(The nick) $mc2($strip($2)) $mc1(is on channels) $mc2($left(%c,-1)) }
    }
    if ($strip($2)) && ($regex($strip($1),/^Host */Si)) {
      var %a 1
      while %a <= $chan(0) {
        var %b 1
        while %b <= $nick($chan(%a),0) {
          if ($+(*,$strip($2),*) iswm $+($chr(160),$address($nick($chan(%a),%b),0),$chr(160))) {
            if (%c == $null) { var %c 1 }
            var %d 1
            while %d <= %c {
              if ($gettok($eval($+(%,%d),2),1,32) == $nick($chan(%a),%b)) { var %e found | set $+(%,%d) $eval($+(%,%d),2) $+($chan(%a),$chr(44)) }
              if ($gettok($eval($+(%,%d),2),1,32) != $nick($chan(%a),%b)) && (%d == %c) && (%e != found) { set $+(%,$calc(%c + 1)) $nick($chan(%a),%b) $address($nick($chan(%a),%b),0) $+($chan(%a),$chr(44)) }
              inc %d
            }
            if (%e != found) { inc %c }
            unset %e
          }
          inc %b
        }
        inc %a
      }
      if (%2 == $null) { echo -a $TTimeStamp($mc1) $mc1(* SEARCH:) $mc1(No host was found matching) $mc2($strip($2)) $+ $mc1(.) }
      if (%2 != $null) {
        var %e 2
        while %e <= %c {
          echo -a $TTimeStamp($mc1) $mc1(* SEARCH:) $mc1(The host) $mc2($strip($2)) $mc1(matches) $mc2($gettok($eval($+(%,%e),2),1,32)) $+ $mc1('s host) $mc2($gettok($eval($+(%,%e),2),2,32)) $mc1(on channels) $mc2($left($gettok($eval($+(%,%e),2),3-,32),-1))
          unset $eval($+(%,%e),1)
          inc %e
        }
      }
    }
  }
}
Alias c01 { return $+($chr(3),01,$1,$chr(3)) }
Alias c02 { return $+($chr(3),02,$1,$chr(3)) }
Alias c03 { return $+($chr(3),03,$1,$chr(3)) }
Alias c04 { return $+($chr(3),04,$1,$chr(3)) }
Alias c05 { return $+($chr(3),05,$1,$chr(3)) }
Alias c06 { return $+($chr(3),06,$1,$chr(3)) }
Alias c07 { return $+($chr(3),07,$1,$chr(3)) }
Alias c08 { return $+($chr(3),08,$1,$chr(3)) }
Alias c09 { return $+($chr(3),09,$1,$chr(3)) }
Alias c10 { return $+($chr(3),10,$1,$chr(3)) }
Alias c11 { return $+($chr(3),11,$1,$chr(3)) }
Alias c12 { return $+($chr(3),12,$1,$chr(3)) }
Alias c13 { return $+($chr(3),13,$1,$chr(3)) }
Alias c14 { return $+($chr(3),14,$1,$chr(3)) }
Alias c15 { return $+($chr(3),15,$1,$chr(3)) }
Alias tc01 { return $+($chr(3),01,$replace($1,$chr(15),$+($chr(3),01)),$chr(3)) }
Alias tc02 { return $+($chr(3),02,$replace($1,$chr(15),$+($chr(3),02)),$chr(3)) }
Alias tc03 { return $+($chr(3),03,$replace($1,$chr(15),$+($chr(3),03)),$chr(3)) }
Alias tc04 { return $+($chr(3),04,$replace($1,$chr(15),$+($chr(3),04)),$chr(3)) }
Alias tc05 { return $+($chr(3),05,$replace($1,$chr(15),$+($chr(3),05)),$chr(3)) }
Alias tc06 { return $+($chr(3),06,$replace($1,$chr(15),$+($chr(3),06)),$chr(3)) }
Alias tc07 { return $+($chr(3),07,$replace($1,$chr(15),$+($chr(3),07)),$chr(3)) }
Alias tc08 { return $+($chr(3),08,$replace($1,$chr(15),$+($chr(3),08)),$chr(3)) }
Alias tc09 { return $+($chr(3),09,$replace($1,$chr(15),$+($chr(3),09)),$chr(3)) }
Alias tc10 { return $+($chr(3),10,$replace($1,$chr(15),$+($chr(3),10)),$chr(3)) }
Alias tc11 { return $+($chr(3),11,$replace($1,$chr(15),$+($chr(3),11)),$chr(3)) }
Alias tc12 { return $+($chr(3),12,$replace($1,$chr(15),$+($chr(3),12)),$chr(3)) }
Alias tc13 { return $+($chr(3),13,$replace($1,$chr(15),$+($chr(3),13)),$chr(3)) }
Alias tc14 { return $+($chr(3),14,$replace($1,$chr(15),$+($chr(3),14)),$chr(3)) }
Alias tc15 { return $+($chr(3),15,$replace($1,$chr(15),$+($chr(3),15)),$chr(3)) }
Alias TTimeStamp { if ($readini(Theme.ini,Settings,TimeStamp)) { return $+($chr(3),$remove($iif($1,$1,$mc1),$chr(3)),$time($replace($readini(Theme.ini,Settings,TimeStamp),<k>,$chr(3),<b>,$chr(2),<u>,$chr(31))),$chr(3)) } | else { return $+($chr(3),$remove($iif($1,$1,$mc1),$chr(3)),$time([hh:nn:ss TT]),$chr(3)) $mc2(•) } }
Alias Colours { Colour $1- }
Alias Colors { Colour $1- }
Alias Colour {
  if (!$1) || ($1 isnum) { echo -a $mc1(You must specify one of the following parameters to set a colour:) $mc2($+(TimeStamp,$chr(44) Nick,$chr(44) Notice,$chr(44) Action,$chr(44) Kick,$chr(44) Join,$chr(44) Part,$chr(44) Mode,$chr(44) Message,$chr(44) Quit,$chr(44) Topic,$chr(44) CTCP,$chr(44)  MC1,$chr(44) MC2,.)) $mc1(Example:) $mc2(/Colour Notice 05) }
  elseif ($2 isnum) || ($regex($1,/^(Nick|T(ime)?S(tamp)?) */Si)) {
    if ($regex($1,/^Notice */Si)) { writeini -n Theme.ini Settings CNotice $left($2,2) | color notice $left($2,2) | echo -a $c02(Notices will now appear in) $noc(-this colour-) }
    elseif ($regex($1,/^(Act(ion)?|Desc(ribe)?) */Si)) { writeini -n Theme.ini Settings CAction $left($2,2) | echo -a $c02(Actions will now appear in) $ac(-this colour-) }
    elseif ($regex($1,/^Kick */Si)) { writeini -n Theme.ini Settings CKick $left($2,2) | echo -a $c02(Kicks will now appear in) $kc(-this colour-) }
    elseif ($regex($1,/^Part */Si)) { writeini -n Theme.ini Settings CPart $left($2,2) | echo -a $c02(Parts will now appear in) $pc(-this colour-) }
    elseif ($regex($1,/^Join */Si)) { writeini -n Theme.ini Settings CJoin $left($2,2) | echo -a $c02(Joins will now appear in) $jc(-this colour-) }
    elseif ($regex($1,/^Mode */Si)) { writeini -n Theme.ini Settings CMode $left($2,2) | echo -a $c02(Mode changes will now appear in) $mdc(-this colour-) }
    elseif ($regex($1,/^Topic */Si)) { writeini -n Theme.ini Settings CTopic $left($2,2) | echo -a $c02(Topic messages will now appear in) $tc(-this colour-) }
    elseif ($regex($1,/^CTCP */Si)) { writeini -n Theme.ini Settings CCTCP $left($2,2) | echo -a $c02(CTCPs will now appear in) $cc(-this colour-) }
    elseif ($regex($1,/^B(ack)?G(round)? */Si)) { writeini -n Theme.ini Settings CBG $left($2,2) | color background $left($2,2) | echo -a $c02(The background has been changed.) }
    elseif ($1 == nick) {
      if (!$regex($2,/^(Change|P(riv(ate)?)?M(e?ss?a?ge?)?|Notice|Op(erator)?|H(alf)?Op(erator)?|V(oice)?|Reg(ular)?) */Si)) { echo -a $c02(You must specify which nick element to change:) $mc2(/Colour Nick Change/PM/Notice/Op/HalfOp/Voice/Regular) }
      elseif ($3 !isnum) { echo -a $c02(You must specify a colour to set.) }
      elseif ($regex($2,/^Change */Si)) { writeini -n Theme.ini Settings CNick $left($3,2) | echo -a $c02(Nick changes will now appear in) $nnc(-this colour-) }
      elseif ($regex($2,/^P(riv(ate)?)?M(e?ss?a?ge?)? */Si)) { writeini -n Theme.ini Settings CNPM $left($3,2) | echo -a $c02(Nickname's in PM will now appear in) $npm(-this colour-) }
      elseif ($regex($2,/^Notice */Si)) { writeini -n Theme.ini Settings CNNotice $left($3,2) | echo -a $c02(Nicknames in notices will now appear in) $nnoc(-this colour-) }
      elseif ($regex($2,/^Op(erator)? */Si)) { writeini -n Theme.ini Settings Op $left($3,2) | .cnick -rs 1 | .cnick -s1 * $left($3,2) @ | saveini | echo -a $mc1(Channel operators will now appear in) $opc(-this colour-) }
      elseif ($regex($2,/^H(alf)?Op(erator)? */Si)) { writeini -n Theme.ini Settings HalfOp $left($3,2) | .cnick -rs 2 | .cnick -s2 * $left($3,2) % | saveini | echo -a $c02(Channel halfops will now appear in) $hopc(-this colour-) }
      elseif ($regex($2,/^V(oice)? */Si)) { writeini -n Theme.ini Settings Voice $left($3,2) | .cnick -rs 3 | .cnick -s3 * $left($3,2) + | saveini | echo -a $c02(Voiced users will now appear in) $voicec(-this colour-) }
      elseif ($regex($2,/^Reg(ular)? */Si)) { writeini -n Theme.ini Settings Reg $left($3,2) | .cnick -rs 4 | .cnick -ns4 * $left($3,2) | saveini | echo -a $c02(Regular users will now appear in) $regc(-this colour-) }
      else { echo -a $c02(You must specify which nick element to change:) $mc2(/Colour Nick Change/PM/Notice/Op/HalfOp/Voice/Regular) }
    }
    elseif ($regex($1,/^Me?ss?a?ge? */Si)) { writeini -n Theme.ini Settings CMessage $left($2,2) | color normal $left($2,2) | color own $left($2,2) | echo -a $c02(Messages will now appear in) $mc(-this colour-) }
    elseif ($regex($1,/^My?C(olou?r)?1 */Si)) { writeini -n Theme.ini Settings MC1 $left($2,2) | echo -a $c02(Personal colour 1 will now appear in) $mc1(-this colour-) }
    elseif ($regex($1,/^My?C(olou?r)?2 */Si)) { writeini -n Theme.ini Settings MC2 $left($2,2) | color whois $left($2,2) | .timestamp -g $mc2(-dd/mm/yy) | echo -a $c02(Personal colour 2 will now appear in) $mc2(-this colour-) }
    elseif ($regex($1,/^T(ime)?S(tamp)? */Si)) {
      if (!$2) || ($regex($2,/^(del(ete)?|rem(ove)?|unset|def(ault)?) */Si)) { remini Theme.ini Settings TimeStamp | .TimeStamp -f $TTimeStamp | echo -a $c02(Your TimeStamp has been set back to default:) $TTimeStamp }
      else { writeini -n Theme.ini Settings TimeStamp $replace($2-,$chr(3),<k>,$chr(2),<b>,$chr(31),<u>) | .TimeStamp -f $TTimeStamp | echo -a $c02(Your TimeStamp is now:) $TTimeStamp }
    }
    else { echo -a $mc1(You must specify one of the following parameters to set a colour:) $mc2($+(TimeStamp,$chr(44) Nick,$chr(44) Notice,$chr(44) Action,$chr(44) Kick,$chr(44) Join,$chr(44) Part,$chr(44) Mode,$chr(44) Message,$chr(44) Quit,$chr(44) Topic,$chr(44) CTCP,$chr(44) MC1,$chr(44) MC2,.)) $mc1(Example:) $mc2(/Colour Notice 05) }
 
  }
  else { echo -a $mc1(You must specify one of the following parameters to set a colour:) $mc2($+(TimeStamp,$chr(44) Nick,$chr(44) Notice,$chr(44) Action,$chr(44) Kick,$chr(44) Join,$chr(44) Part,$chr(44) Mode,$chr(44) Message,$chr(44) Quit,$chr(44) Topic,$chr(44) CTCP,$chr(44) MC1,$chr(44) MC2,.)) $mc1(Example:) $mc2(/Colour Notice 05) }
}
Alias NNc { return $+($chr(3),$iif($readini(Theme.ini,Settings,CNick),$v1,03),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CNick),$v1,03))),$chr(3)) }
Alias Noc { return $+($chr(3),$iif($readini(Theme.ini,Settings,CNotice),$v1,05),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CNotice),$v1,05))),$chr(3)) }
Alias Ac { return $+($chr(3),$iif($readini(Theme.ini,Settings,CAction),$v1,06),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CAction),$v1,06))),$chr(3)) }
Alias Kc { return $+($chr(3),$iif($readini(Theme.ini,Settings,CKick),$v1,04),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CKick),$v1,04))),$chr(3)) }
Alias Pc { return $+($chr(3),$iif($readini(Theme.ini,Settings,CPart),$v1,03),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CPart),$v1,03))),$chr(3)) }
Alias Jc { return $+($chr(3),$iif($readini(Theme.ini,Settings,CJoin),$v1,03),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CJoin),$v1,03))),$chr(3)) }
Alias Mdc { return $+($chr(3),$iif($readini(Theme.ini,Settings,CMode),$v1,03),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CMode),$v1,03))),$chr(3)) }
Alias Qc { return $+($chr(3),$iif($readini(Theme.ini,Settings,CQuit),$v1,02),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CQuit),$v1,02))),$chr(3)) }
Alias Tc { return $+($chr(3),$iif($readini(Theme.ini,Settings,CTopic),$v1,03),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CTopic),$v1,03))),$chr(3)) }
Alias Cc { return $+($chr(3),$iif($readini(Theme.ini,Settings,CCTCP),$v1,04),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CCTCP),$v1,04))),$chr(3)) }
Alias BG { return $+($chr(3),$iif($readini(Theme.ini,Settings,CBG),$v1,00),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CBG),$v1,00))),$chr(3)) }
Alias Mc { return $+($chr(3),$iif($readini(Theme.ini,Settings,CMessage),$v1,01),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CMessage),$v1,01))),$chr(3)) }
Alias NNoc { return $+($chr(3),$iif($readini(Theme.ini,Settings,CNNotice),$v1,10),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CNNotice),$v1,10))),$chr(3)) }
Alias NPMc { return $+($chr(3),$iif($readini(Theme.ini,Settings,CNPM),$v1,10),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,CNPM),$v1,10))),$chr(3)) }
Alias Mc1 { return $+($chr(3),$iif($readini(Theme.ini,Settings,MC1),$v1,02),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,MC1),$v1,02))),$chr(3)) }
Alias Mc2 { return $+($chr(3),$iif($readini(Theme.ini,Settings,MC2),$v1,12),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,MC2),$v1,12))),$chr(3)) }
Alias Opc { return $+($chr(3),$iif($readini(Theme.ini,Settings,Op),$v1,04),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,Op),$v1,04))),$chr(3)) }
Alias Hopc { return $+($chr(3),$iif($readini(Theme.ini,Settings,HalfOp),$v1,07),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,HalfOp),$v1,07))),$chr(3)) }
Alias Voicec { return $+($chr(3),$iif($readini(Theme.ini,Settings,Voice),$v1,12),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,Voice),$v1,12))),$chr(3)) }
Alias Regc { return $+($chr(3),$iif($readini(Theme.ini,Settings,Reg),$v1,02),$replace($1,$chr(15),$+($chr(3),$iif($readini(Theme.ini,Settings,Reg),$v1,02))),$chr(3)) }
Alias TextCol {
  if ($2 == notice) { var %a 1 | var %b $1 | while $gettok($1,%a,3) { if ($left($gettok($1,%a,3),1) !isnum) { var %b $replace(%b,$+($chr(3),$gettok($1,%a,3)),$+($left($noc,3),$gettok($1,%a,3))) } | inc %a } | return $noc($code(%b)) }
  if ($2 == action) { var %a 1 | var %b $1 | while $gettok($1,%a,3) { if ($left($gettok($1,%a,3),1) !isnum) { var %b $replace(%b,$+($chr(3),$gettok($1,%a,3)),$+($left($ac,3),$gettok($1,%a,3))) } | inc %a } | return $ac($code(%b)) }
  if ($2 == kick) { var %a 1 | var %b $1 | while $gettok($1,%a,3) { if ($left($gettok($1,%a,3),1) !isnum) { var %b $replace(%b,$+($chr(3),$gettok($1,%a,3)),$+($left($kc,3),$gettok($1,%a,3))) } | inc %a } | return $kc($code(%b)) }
  if ($2 == Part) { var %a 1 | var %b $1 | while $gettok($1,%a,3) { if ($left($gettok($1,%a,3),1) !isnum) { var %b $replace(%b,$+($chr(3),$gettok($1,%a,3)),$+($left($pc,3),$gettok($1,%a,3))) } | inc %a } | return $pc($code(%b)) }
  if ($2 == Topic) { var %a 1 | var %b $1 | while $gettok($1,%a,3) { if ($left($gettok($1,%a,3),1) !isnum) { var %b $replace(%b,$+($chr(3),$gettok($1,%a,3)),$+($left($tc,3),$gettok($1,%a,3))) } | inc %a } | return $tc($code(%b)) }
  if ($2 == CTCP) { var %a 1 | var %b $1 | while $gettok($1,%a,3) { if ($left($gettok($1,%a,3),1) !isnum) { var %b $replace(%b,$+($chr(3),$gettok($1,%a,3)),$+($left($cc,3),$gettok($1,%a,3))) } | inc %a } | return $cc($code(%b)) }
  if ($2 == Quit) { var %a 1 | var %b $1 | while $gettok($1,%a,3) { if ($left($gettok($1,%a,3),1) !isnum) { var %b $replace(%b,$+($chr(3),$gettok($1,%a,3)),$+($left($qc,3),$gettok($1,%a,3))) } | inc %a } | return $qc($code(%b)) }
  else { var %a 1 | var %b $1 | while $gettok($1,%a,3) { if ($left($gettok($1,%a,3),1) !isnum) { var %b $replace(%b,$+($chr(3),$gettok($1,%a,3)),$+($left($mc,3),$gettok($1,%a,3))) } | inc %a } | return $mc($code(%b)) }
}
Alias NickCol {
  if ($2 == Notice) { return $nnoc($1) }
  elseif ($1 == ChanServ) || (SwiftIRC.net isin $1) { return $opc($1) }
  else { return $iif($left($2,1) == $chr(35),$iif($1 isop $2,$opc($1),$iif($1 ishop $2,$hopc($1),$iif($1 isvoice $2,$voicec($1),$regc($1)))),$npmc($1)) }
}
Alias HLCheck { if ($regex(HL,$+($chr(160),$replace($remove($strip($1),$chr(44),.,!,",?,<,>,@,+,%,*),$chr(32),$chr(160)),$chr(160)),/( $+ $replace($right($left($+($chr(124),$chr(160),$me,$chr(160),$readini(Theme.ini,Settings,Highlights)),-1),-1),[,\[,],\],.,\.,/,\/) $+ ) */Si)) { return $remove($regml(HL,1),$chr(160)) } }
Alias OTM { echo -s $1- | .write Theme-Features.txt $strip($1-) }
Alias Theme {
  if ($readini(Theme.ini,Settings,One-Time) != Done) {
    echo -s $mc1(-)
    echo -s $mc2(One-time message:)
    OTM $mc1(This is a customizable mIRC Theme Script.)
    OTM $mc1(To customize colours and timestamps $+ $chr(44) type) $mc2(/Colour Item Colour#) $+ $mc1(.)
    OTM $mc1(Simply typing) $mc2(/Colour) $mc1(will display the available customizable items.)
    OTM $mc1(In the meantime $+ $chr(44) your mIRC appearance will be set to this Theme's default appearance.)
    OTM $mc1(-)
    OTM $mc2(In-built features:)
    OTM $mc1(AutoID: You can set up automatic identification using) $mc2(/AutoID Password) $+ $mc1(.)
    OTM $mc1(- If you do not have this set up $+ $chr(44) you will be prompted to do so every time you connect.)
    OTM $mc1(AutoJoin: You can automatically join all of your saved channels using) $mc2(/AJoin) $+ $mc1(.)
    OTM $mc1(-Channels can be added saved using) $mc2(/AJoin Add #Channel) $+ $mc1(.)
    OTM $mc1(-Channels can be removed using) $mc2(/AJoin Del #Channel) $+ $mc1(.)
    OTM $mc1(-You can view your automatic join list using) $mc2(/AJoin List) $+ $mc1(.)
    OTM $mc1(Highlight: You can set highlight words to alert you when you are addressed. The alert will make mIRC flash.)
    OTM $mc1(- Words can be added using) $mc2(/Hl Add Word) $+ $mc1(.)
    OTM $mc1(- Words can be removed using) $mc2(/Hl Del Word) $+ $mc1(.)
    OTM $mc1(- You can view your highlights using) $mc2(/Hl List) $+ $mc1(.)
    OTM $mc1(- Private messages will always alert you regardless of what is said.)
    OTM $mc1(- You can view how many times you have been highlighted using) $mc2(/Hl Echo/Say) $+ $mc1(.)
    OTM $mc1(- You can view how many times you have been highlighted by a user using) $mc2(/Hl Echo/Say Nick) $+ $mc1(.)
    OTM $mc1(Copy: Copy someone using) $mc2(/Copy On Nick PM/All/#Channel)
    OTM $mc1(- You can turn copy off using) $mc2(/Copy Off Nick) $+ $mc1(.)
    OTM $mc1(Away: Set yourself away using) $mc2(/Afk <Reason>) $+ $mc1(.)
    OTM $mc1(- Whilst set to away $+ $chr(44) anyone who highlighs or PMs you will recieve a notice.)
    OTM $mc1(- Set yourself back using) $mc2(/Back) $+ $mc1(.)
    OTM $mc1(Idle: Automatic away after specified idle time using) $mc2(/IdleCheck On Time(in seconds)) $+ $mc1(.)
    OTM $mc1(- If enabled $+ $chr(44) you will automatically be set to away with the reason "Busy" after the specified amount of inactivity.)
    OTM $mc1(- The idle feature can be disabled using) $mc2(/IdleCheck On/Off) $+ $mc1(. It is disabled by default.)
    OTM $mc1(NickTrack: All detected nicks will be saved.)
    OTM $mc1(- You can see which nicks a user has used before using) $mc2(/NickTrack Nick/Host) $+ $mc1(.)
    OTM $mc1(- You can also right click a user's nick in the list box and select NickTrack.)
    OTM $mc1(Retaliate: Automatically retaliate when slapped $+ $chr(44) with a 10 second automatic reverse action feature.)
    OTM $mc1(- Items used in retaliate will come from the item list which is installed when you first connect. You will be alerted when the install is complete.)
    OTM $mc1(Code: Any message that contains encoded text using $eval($encode,0) will be automatically decoded.)
    OTM $mc1(Flip: Talk upsidedown!) $mc2(/Flip say message) $+ $mc1(.)
    OTM $mc1(Backwards: Talk backwards!) $mc2(/Backwards say message) $+ $mc1(.)
    OTM $mc1(Search: Search the channels you are in for a user using) $mc2(/Search Nick Nick) $mc1(or) $mc2(/Search Host Host) $+ $mc1(.)
    OTM $mc1(All in-built features appear in your own personalized colours which can be set using /Colour MC1/MC2 Colour#)
    echo -s $mc2(This is a one-time message $+ $chr(44) but you can view these features again by going to: $$+($gettok($mircexe,$+(1,-,$calc($numtok($mircexe,92) -1)),92),\,Theme-Features.txt))
    echo -s $mc1(-)
    if ($sock(ItemDB.1)) { sockclose ItemDB.1 }
    sockopen ItemDB.1 www.runehq.com 80
    .timersetup 1 1 echo -se $TTimeStamp($mc1) $mc1(* ITEMLIST:) $mc2(Item list installation initialized...)
    .writeini Theme.ini Settings One-Time Done
    .writeini popups.ini lpopup n0 Info:/uwho $eval($$1,0)
    .writeini popups.ini lpopup n1 Whois:/whois $eval($$1,0)
    .writeini popups.ini lpopup n2 Query:/query $eval($$1,0)
    .writeini popups.ini lpopup n3 NickTrack:/echo -a $eval($TTimeStamp($mc1) $mc1(* NICKTRACK:) $mc1(Nick:) $mc2($$1) $mc1(| Host:) $mc2($address($$1,2)) $mc1(| Used Names:) $mc2($iif($readini(NickTrack.ini,NickTrack2,$address($$1,2)),$replace($right($left($v1,-1),-1),$chr(44),$+($chr(44),$chr(32))),No records)),0) $chr(124) echo -a $eval($TTimeStamp($mc1) $mc1(* NICKTRACK:) $mc1(Nick:) $mc2($$1) $mc1(| Host:) $mc2($address($$1,3)) $mc1(| Used Names:) $mc2($iif($readini(NickTrack.ini,NickTrack3,$address($$1,3)),$replace($right($left($v1,-1),-1),$chr(44),$+($chr(44),$chr(32))),No records)),0)
    .writeini popups.ini lpopup n4 -
    .writeini popups.ini lpopup n5 Control
    .writeini popups.ini lpopup n6 .Ignore:/ignore $eval($$1,0) 1
    .writeini popups.ini lpopup n7 .Unignore:/ignore -r $eval($$1,0) 1
    .writeini popups.ini lpopup n8 .Op:/mode $eval(#,0) +ooo $eval($$1,0) $eval($2,0) $eval($3,0)
    .writeini popups.ini lpopup n9 .Deop:/mode $eval(#,0) -ooo $eval($$1,0) $eval($2,0) $eval($3,0)
    .writeini popups.ini lpopup n10 .Halfop:/mode $eval(#,0) +hhh $eval($$1,0) $eval($2,0) $eval($3,0)
    .writeini popups.ini lpopup n11 .Dehalfop:/mode $eval(#,0) -hhh $eval($$1,0) $eval($2,0) $eval($3,0)
    .writeini popups.ini lpopup n12 .Voice:/mode $eval(#,0) +vvv $eval($$1,0) $eval($2,0) $eval($3,0)
    .writeini popups.ini lpopup n13 .Devoice:/mode $eval(#,0) -vvv $eval($$1,0) $eval($2,0) $eval($3,0)
    .writeini popups.ini lpopup n14 .Kick:/kick $eval(#,0) $eval($$1,0)
    .writeini popups.ini lpopup n15 .Kick (why):/kick $eval(#,0) $eval($$1,0) $eval($$?="Reason:",0)
    .writeini popups.ini lpopup n16 .Ban:/mode $eval(#,0) +b $eval($$1,0)
    .writeini popups.ini lpopup n17 .Ban, Kick:/mode $eval(#,0) +b $eval($address($$1,2),0) $chr(124) /kick $eval(#,0) $eval($$1,0)
    .writeini popups.ini lpopup n18 .Ban, Kick (why):/mode $eval(#,0) +b $eval($address($$1,2),0) $chr(124) /kick $eval(#,0) $eval($$1,0) $eval($$?="Reason:",0)
    .writeini popups.ini lpopup n19 CTCP
    .writeini popups.ini lpopup n20 .Ping:/ctcp $eval($$1,0) ping
    .writeini popups.ini lpopup n21 .Time:/ctcp $eval($$1,0) time
    .writeini popups.ini lpopup n22 .Version:/ctcp $eval($$1,0) version
    .writeini popups.ini lpopup n23 DCC
    .writeini popups.ini lpopup n24 .Send:/dcc send $eval($$1,0)
    .writeini popups.ini lpopup n25 .Chat:/dcc chat $eval($$1,0)
    .writeini popups.ini lpopup n26 -
    .writeini popups.ini lpopup n27 Slap:/me slaps $eval($$1,0) around a bit with $eval($read(ItemDB.txt),0) $chr(124) set -u10 $eval(%retaliate $$1,0)
    .writeini popups.ini lpopup n28 Huggle:/me huggles $eval($$1,0)
    .reload -pn popups.ini
  }
}
On *:SOCKOPEN:ItemDB.*: { sockwrite -nt $sockname GET /RHQItemDB.php?asort=&sort=item&desc=0&pageno= $+ $gettok($sockname,2,46) HTTP/1.1 | sockwrite -nt $sockname Host: www.runehq.com | sockwrite -nt $sockname $crlf }
On *:SOCKREAD:ItemDB.*: { if ($sockerr) { halt } | var %read | sockread %read | if (*a href="RHQItemView.php?id=*">*</a></td><td class='sitetbl* iswm %read) { write ItemDB.txt $iif($regex($left(%a,1),/^[aeiou] */Si),an,a) $remove($nohtml($gettok(%read,2,62)),') } | if (Copyright Notice:<br /> isin %read) { if ($gettok($sockname,2,46) != 81) { sockopen ItemDB. [ $+ [ $calc($gettok($sockname,2,46) + 1) ] ] www.runehq.com 80 | sockclose $sockname } | elseif ($gettok($sockname,2,46) == 81) { sockclose $sockname | .TimerIDBC 1 1 ItemListCompleted } } }
Alias -l ItemListCompleted { noop $input(Item list has been successfully installed.,o,Set up) | echo -se $TTimeStamp($mc1) $mc1(* ITEMLIST:) $mc2(Item list install complete.) }
Alias -l Nohtml { var %x, %i = $regsub($1-,/(^[^<]+>|<[^>]+>|<[^>]+$)/g,$null,%x) | var %x = $regsubex(%x,/&#(\d+);/g,$chr(\1)) | return $replace($remove(%x,$chr(9),</i>,<i>,</li>,<li>,<ol type="1">,type="1">),&copy;,$chr(169),&quot;,",&apos;,',&lt;,<,&gt;,>),&quot;,",<b>,,</b>,) }