rendered paste body
alias roomdec {
if (!$1) { halt }
var %v, %n, %k, %x, %nkr
%v = $remove($1-,$chr(37),$chr(35))
if ($prop == catagory) {
if ($left(%v,1) != $chr(91)) { %nkr = Unknown }
else {
%k = $left(%v,4)
%k = $remove(%k,$chr(91),$chr(93))
if (%k == XX) { %nkr = Server Room $+($chr(40),XX,$chr(41)) }
elseif (%k == GE) { %nkr = City Chats $+($chr(40),GE,$chr(41)) }
elseif (%k == CP) { %nkr = Computing $+($chr(40),CP,$chr(41)) }
elseif (%k == EA) { %nkr = Entertainment $+($chr(40),EA,$chr(41)) }
elseif (%k == GN) { %nkr = General $+($chr(40),GN,$chr(41)) }
elseif (%k == HE) { %nkr = Health $chr(38) Medicine $+($chr(40),HE,$chr(41)) }
elseif (%k == II) { %nkr = Interests $+($chr(40),II,$chr(41)) }
elseif (%k == LF) { %nkr = Lifestyles $+($chr(40),LF,$chr(41)) }
elseif (%k == MU) { %nkr = Music $+($chr(40),MU,$chr(41)) }
elseif (%k == NW) { %nkr = News $+($chr(40),NW,$chr(41)) }
elseif (%k == PR) { %nkr = Peers $+($chr(40),PR,$chr(41)) }
elseif (%k == RL) { %nkr = Religion $+($chr(40),RL,$chr(41)) }
elseif (%k == RM) { %nkr = Romance $+($chr(40),RM,$chr(41)) }
elseif (%k == SP) { %nkr = Sports $chr(38) Recreation $+($chr(40),SP,$chr(41)) }
elseif (%k == TN) { %nkr = Teens $+($chr(40),TN,$chr(41)) }
elseif (%k == UL) { %nkr = Unlisted $+($chr(40),UL,$chr(41)) }
else { %nkr = Unknown $+($chr(40),**,$chr(41)) }
}
}
elseif ($prop == language) {
%n = $right(%v,-4)
if ($left(%n,1) != $chr(91)) { %nkr = Unknown }
else {
%k = $left(%n,4)
%k = $remove(%k,$chr(91),$chr(93))
if (%k == XX) { %nkr = Server Room $+($chr(40),XX,$chr(41)) }
elseif (%k == EN) { %nkr = English $+($chr(40),EN,$chr(41)) }
elseif (%k == DE) { %nkr = German $chr(47) Deutch $+($chr(40),DE,$chr(41)) }
elseif (%k == NL) { %nkr = Dutch $chr(47) Nederlands $+($chr(40),NL,$chr(41)) }
elseif (%k == FR) { %nkr = French $chr(47) Français $+($chr(40),FR,$chr(41)) }
elseif (%k == SP) { %nkr = Spanish $chr(47) Español $+($chr(40),SP,$chr(41)) }
elseif (%k == IT) { %nkr = Italian $chr(47) Italiano $+($chr(40),IT,$chr(41)) }
else { %nkr = Unknown }
}
}
else {
if ($left(%v,1) != $chr(91)) { return %v }
else {
%n = $right(%v,-3)
if ($left(%n,1) == $chr(93)) { %k = $right(%n,-5) }
else { %k = %v }
%x = $replace(%k,$+($chr(92),b),$chr(32))
%nkr = %x
}
}
return %nkr
}
on ^*:ACTION:*:#:{
var %o, %r, %x, %c
if ($right($nick,2) == TA) { %o = $left($nick,-7) }
else { %o = $nick }
%r = $1-
if (Admin_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 06 %o %r | halt }
elseif (Sysma_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 06 %o %r | halt }
elseif (Sysop_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 06 %o %r | halt }
elseif (Guide_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 06 %o %r | halt }
elseif (_Bot iswm $right($nick,4)) && ($nick isowner $active) { echo $chan 02 %o : $+ %c $+ %x | halt }
else { echo $chan 06 $nick.decode(%o) %r | halt }
}
on ^*:TEXT:*:#:{
var %o, %r, %x, %c
if ($right($nick,2) == TA) { %o = $left($nick,-7) }
else { %o = $nick }
%r = $1-
if ($left(%r,3) = $+($chr(124),01)) { %c = 01 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),02)) { %c = 02 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),03)) { %c = 03 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),04)) { %c = 04 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),05)) { %c = 05 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),06)) { %c = 06 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),07)) { %c = 07 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),08)) { %c = 08 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),09)) { %c = 09 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),10)) { %c = 10 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),11)) { %c = 11 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),12)) { %c = 12 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),13)) { %c = 13 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),14)) { %c = 14 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),15)) { %c = 15 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),16)) { %c = 16 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),17)) { %c = 17 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),18)) { %c = 18 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),19)) { %c = 19 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),20)) { %c = 20 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),21)) { %c = 21 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),22)) { %c = 22 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),23)) { %c = 23 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),24)) { %c = 24 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),25)) { %c = 25 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),26)) { %c = 26 | %x = $right(%r,-10) }
elseif ($left(%r,3) = $+($chr(124),27)) { %c = 27 | %x = $right(%r,-10) }
else { %c = 01 | %x = %r }
%c = 01
%x = $remove(%x,^|Arial|^|)
%x = $remove(%x,^|Comic Sans MS|^|)
%x = $remove(%x,^|Courier|^|)
%x = $remove(%x,^|Fixedsys|^|)
%x = $remove(%x,^|Georgia|^|)
%x = $remove(%x,^|Impact|^|)
%x = $remove(%x,^|Lucida Console|^|)
%x = $remove(%x,^|Modern|^|)
%x = $remove(%x,^|MS Sans Serif|^|)
%x = $remove(%x,^|MS Serif|^|)
%x = $remove(%x,^|Roman|^|)
%x = $remove(%x,^|Script|^|)
%x = $remove(%x,^|Symbol|^|)
%x = $remove(%x,^|System|^|)
%x = $remove(%x,^|Tahoma|^|)
%x = $remove(%x,^|Terminal|^|)
%x = $remove(%x,^|Times New Roman|^|)
%x = $remove(%x,^|Trebuchet MS|^|)
%x = $remove(%x,^|Verdana|^|)
%x = $remove(%x,^|Webdings|^|)
if ($nick == $chan) { echo -a $+($chr(3),3) $+ $1- | halt }
if (Admin_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 02 %o : $+ %c $+ %x | halt }
elseif (Sysma_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 02 %o : $+ %c $+ %x | halt }
elseif (Sysop_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 02 %o : $+ %c $+ %x | halt }
elseif (Guide_ iswm $left($nick,6)) && ($nick isowner $active) { echo $chan 02 %o : $+ %c $+ %x | halt }
elseif (_Bot iswm $right($nick,4)) && ($nick isowner $active) { echo $chan 02 %o : $+ %c $+ %x | halt }
else { echo $chan 02 $nick.decode(%o) : $+ %c $+ %x | halt }
}
On *:input:#: {
if (%color == $null) { set %color 04 }
if (%font == $null) { set %font Verdana }
var %q, %n, %qnka, %qrst
%q = $me
if ($left(%q ,6) == Admin_) { %n = %q }
elseif ($left(%q ,6) == Sysma_) { %n = %q }
elseif ($left(%q ,6) == Sysop_) { %n = %q }
elseif ($left(%q ,6) == Guide_) { %n = %q }
elseif ($right(%q ,4) == _Bot) { %n = %q }
else { %n = $nick.decode(%q) }
if (/ != $left($1,1)) {
echo # 01 %n : $+ 01 $+ $1-
%qnka = %color
if (($left($chan,2) == $+($chr(37),$chr(35))) && (%randcolor == yes)) {
%qrst = $rand(1,27)
if %qrst < 10 {
%qnka = $+($chr(48),%qrst)
}
else {
%qnka = %qrst
}
}
.msg # $+($chr(124),%qnka,$chr(124),x,$chr(124),x,$chr(124),x,$chr(124),^,$chr(124),%font,$chr(124),^,$chr(124),$1-)
halt
}
if (/me == $1) {
echo # 06* %n $2-
.describe # $2-
halt
}
}
on ^*:NOTICE:*:#: {
if ($2 == AWAY) {
echo $chan $dtime $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has marked their status as Away.
halt
}
if ($2 == BACK) {
echo $color(join) -ti2 $chan $dtime $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has marked their status as Returned.
halt
}
else {
echo $chan $dtime [Notice] - Notice to $chan from $nick $+ : $1-
window -g[1] $chan
halt
}
}
raw 305:*:{
if ($chr(35) isin $active) {
notice $active away: back
echo $active $+($chr(3),14,$str($chr(160),8),$chr(187)) You are no longer marked as being away.
}
}
raw 306:*:{
if ($chr(35) isin $active) {
notice $active away: away
echo $active $+($chr(3),14,$str($chr(160),8),$chr(187)) You have been marked as being away.
}
}
raw 332:*:{
echo $2 $+($chr(3),10) $+ The chat's topic is: $+($chr(3),1) $+ $3-
halt
}
raw 333:*:{ halt }
on ^*:NICK:{
if ($nick != $me) { echo -t $comchan($newnick,1) $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) is now known as $nick.decode($newnick) $+ . }
else { echo -a $+($chr(3),14,$str($chr(160),8),$chr(187)) Your nick is now $nick.decode($newnick) $+ . }
halt
}
on *:JOIN:#:{
if ($nick == $me) {
clear $chan
echo $chan $+($chr(3),3) $+ Please wait, connecting to the server...
echo $chan $+($chr(3),4) $+ Connected!
echo $chan $chr(160)
halt
}
else { echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has joined the conversation. | halt }
}
on *:PART:#:{
if ($nick != $me) { echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has left the conversation. | halt }
}
on *:QUIT:{
if ($nick != $me) {
var %ComChan 1
while (%ComChan <= $comchan($nick,0)) {
echo $comchan($nick,%ComChan) $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has left the conversation.
inc %ComChan 1
}
halt
}
}
on ^*:RAWMODE:#:{
var %tmp
if ($1 == -v) && (*+*m* iswm $chan(#).mode) {
if ($2 isop $chan) { halt }
echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) a Spectator.
halt
}
if ($1 == -v) && (*+*m* !iswm $chan(#).mode) {
if ($2 isop $chan) { halt }
echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) a Participant.
halt
}
if ($1 == -o) {
if ($2 isvoice $chan) && (*+*m* iswm $chan(#).mode) { %tmp = Participant. }
elseif ($2 !isvoice $chan) && (*+*m* iswm $chan(#).mode) { %tmp = Spectator. }
else { %tmp = Participant. }
echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) a %tmp
halt
}
if ($1 == -q) {
if ($2 isvoice $chan) && (*+*m* iswm $chan(#).mode) { %tmp = Participant. }
elseif ($2 !isvoice $chan) && (*+*m* iswm $chan(#).mode) { %tmp = Spectator. }
else { %tmp = Participant. }
echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) a %tmp
halt
}
if ($1 == +v) {
if ($2 isop $chan) { halt }
echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) a Participant.
halt
}
if ($1 == +o) {
echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) a Host.
halt
}
if ($1 == +q) {
echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has made $nick.decode($2) an Owner.
halt
}
if ($1 == +l) {
echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has set the room limit to: $2-
halt
}
if ($1 == +m) {
echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $roomdec($chan) is now a moderated room.
halt
}
if ($1 == -m) {
echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $roomdec($chan) is no longer a moderated room.
halt
}
if ($1 == +r) {
echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $roomdec($chan) is now a registerd room.
halt
}
if ($1 == -r) {
echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $roomdec($chan) is no longer a registerd room.
halt
}
else {
echo $chan $+($chr(3),14,$str($chr(160),8),$chr(187)) $nick.decode($nick) has set mode: $1-
halt
}
}
on *:whisper:*:{
echo -a $1-
}