Irssi Theme (v2)
Platform: mIRC
Published Nov 27, 2010
Updated Nov 27, 2010
Irssi theme for mIRC, new version :)
alias say {
var %target = $active, %string = $$1-
if (%target ischan) msg $v1 %string
elseif ($query(%target)) msg $v1 %string
elseif (=* iswm %target) msg $v2 %string
}
alias me {
var %target = $active, %string = $$1-
if (%target ischan) describe $v1 %string
elseif ($query(%target)) describe $v1 %string
elseif (=* iswm %target) describe $v2 %string
}
alias msg {
if ($isid) return
!.msg $$1-
if ($show) {
if ($1 ischan) {
var %prefix = $chr(32)
if ($me isowner $1) var %prefix = ~
elseif ($me isop $1) var %prefix = @
elseif ($me ishelp $1) var %prefix = %
elseif ($me isvo $1) var %prefix = +
echo -ti $+ $calc($indent + $len($me) + 5) $1 $+(14<15,%prefix,00,$me,14>) $+(15,$2-,)
}
elseif ($query($1)) {
echo -ti $+ $calc($indent + $len($me) + 4) $1 $+(14<00,$me,14>) $+(15,$2-,)
}
elseif (=* iswm $1) {
echo -ti $+ $calc($indent + $len($me) + 4) $1 $+(14<00,$me,14>) $+(15,$2-,)
}
else {
echo -ti $+ $calc($indent + 5) 14[05message14(04 $+ $1 $+ 14)14] $+(15,$2-,)
}
}
}
alias describe {
if ($isid) return
!.describe $$1-
if ($show) {
if ($1 ischan) {
echo -ti $+ $calc($indent + 5) $1 00 * $me $+ $+(15,$2-,)
}
elseif ($query($1)) {
echo -ti $+ $calc($indent + 5) $1 00 * $me $+ $+(15,$2-,)
}
elseif (=* iswm $1) {
echo -ti $+ $calc($indent + 5) $1 00 * $me $+ $+(15,$2-,)
}
else {
echo -ti $+ $calc($indent + 5) 14[05action14(04 $+ $1 $+ 14)14] $+(15,$2-,)
}
}
}
alias notice {
if ($isid) return
!.notice $$1-
if ($show) {
echo -ti $+ $calc($indent + 5) 14[05notice14(04 $+ $1 $+ 14)14] $+(15,$2-,)
}
}
alias ctcp {
if ($isid) return
!.ctcp $$1-
if ($show) {
echo -ti $+ $calc($indent + 5) 14[05ctcp14(04 $+ $1 $+ 14)14] $+(15,$2,) $+(15,$3-,)
}
}
alias ctcpreply {
if ($isid) return
!.ctcpreply $$1-
if ($show) {
echo -ti $+ $calc($indent + 5) 14[05notice14(04 $+ $1 $+ 14)14] $+(15,$2,) $+(15,$3-,)
}
}
alias query {
if ($isid) return
!.query $$1-
if ($show) {
var %query = $window(*,$window(*,0))
echo -nti $+ $calc($indent + 5) %query 12-15!12- 00Irssi: 15Starting query in $+(00,$network,) 15with $+(00,%query,)
}
}
alias indent {
if ($gettok($readini($mircini,options,n4),12,44)) return $len($timestamp)
return 0
}
on *:START: {
scid -a clearall
}
on *:EXIT: {
var %i = $scid(0)
while (%i) {
unset %sync. [ $+ [ $scid(%i) ] $+ ] .*
unset %names. [ $+ [ $scid(%i) ] $+ ] .*
unset %whois. [ $+ [ $scid(%i) ] $+ ] .*
unset %whowas. [ $+ [ $scid(%i) ] $+ ] .*
dec %i
}
}
on *:CONNECT: {
}
on *:DISCONNECT: {
unset %sync. [ $+ [ $cid ] $+ ] .*
unset %names. [ $+ [ $cid ] $+ ] .*
unset %whois. [ $+ [ $cid ] $+ ] .*
unset %whowas. [ $+ [ $cid ] $+ ] .*
}
on *:INPUT:*: {
if ($mid($1,1,1) === $readini($mircini,text,commandchar)) {
if ($ctrlenter) { }
else {
return
}
}
if ($halted) return
haltdef
var %target = $active, %string = $1-
if (%target ischan) msg $v1 %string
elseif ($query(%target)) msg $v1 %string
elseif (=* iswm %target) msg $v2 %string
}
on *:OPEN:?:*: {
echo -mti $+ $calc($indent + 5) $nick 12-15!12- 00Irssi: 15Starting query in $+(00,$network,) 15with $+(00,$nick,)
}
on *:OPEN:=: {
echo -nti $+ $calc($indent + 5) =$nick 12-15!12- 00Irssi: 15Starting query in $+(00,$network,) 15with $+(00,=$nick,)
}
on *:CLOSE:=: {
echo -nti $+ $calc($indent + 5) =$nick 12-15!12- 00Irssi: 15Closing query with $+(00,=$nick,)
}
on ^&*:TEXT:*:*: {
if ($halted) return
haltdef
if (# ischan) {
var %prefix = $chr(32)
if ($nick isowner #) var %prefix = ~
elseif ($nick isop #) var %prefix = @
elseif ($nick ishelp #) var %prefix = %
elseif ($nick isvo #) var %prefix = +
if ($highlight($1-)) {
echo -lbfmti $+ $calc($indent + $len($nick) + 5) # $+(14<15,%prefix,08,$nick,14>) $+(15,$1-,)
}
else {
echo -lbfmti $+ $calc($indent + $len($nick) + 5) # $+(14<15,%prefix,15,$nick,14>) $+(15,$1-,)
}
}
else {
echo -lbfmti $+ $calc($indent + $len($nick) + 4) $nick $+(14<04,$nick,14>) $+(15,$1-,)
}
}
on ^&*:ACTION:*:*: {
if ($halted) return
haltdef
if (# ischan) {
echo -lbfmti $+ $calc($indent + 5) # 00 * $nick $+ $+(15,$1-,)
}
else {
echo -lbfmti $+ $calc($indent + 5) $nick 00 * $nick $+ $+(15,$1-,)
}
}
on ^&*:NOTICE:*:*: {
if ($halted) return
haltdef
if (# ischan) {
echo -lbfmti $+ $calc($indent + 5) $+(14-13,$nick,14:06,#,14-) $+(15,$1-,)
}
else {
echo -lbfmti $+ $calc($indent + 5) 14-13 $+ $nick $+ 14(06 $+ $address $+ 14)14- $+(15,$1-,)
}
}
on ^&*:CHAT:*: {
if ($halted) return
haltdef
if (CTCP_MESSAGE ACTION ?* iswm $1-) {
echo -lbfmti $+ $calc($indent + $len($nick) + 11) =$nick 00 (*dcc*) $nick $+ $+(15,$mid($1-,22,-1),)
}
elseif (ACTION ?* iswm $1-) {
echo -lbfmti $+ $calc($indent + $len($nick) + 11) =$nick 00 (*dcc*) $nick $+ $+(15,$mid($1-,9,-1),)
}
else {
echo -lbfmti $+ $calc($indent + $len($nick) + 4) =$nick $+(14<04,$nick,14>) $+(15,$1-,)
}
}
on ^&*:JOIN:#: {
if ($halted) return
haltdef
if ($nick == $me) {
inc %sync. [ $+ [ $cid ] $+ . $+ [ # ] ]
set %sync. [ $+ [ $cid ] $+ . $+ [ # ] $+ ] .ticks $ticks
set %sync. [ $+ [ $cid ] $+ . $+ [ # ] $+ ] .mode $true
set %sync. [ $+ [ $cid ] $+ . $+ [ # ] $+ ] .ial $true
set %sync. [ $+ [ $cid ] $+ . $+ [ # ] $+ ] .ibl $true
;set %sync. [ $+ [ $cid ] $+ . $+ [ # ] $+ ] .iel $true
;set %sync. [ $+ [ $cid ] $+ . $+ [ # ] $+ ] .iil $true
who #
mode # b
;mode # e
;mode # I
}
echo -ti $+ $calc($indent + 5) # 12-15!12- $+(11,$nick,) $+(14[10,$address,14]) 15has joined $+(00,#,)
}
on ^&*:PART:#: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) # 12-15!12- $+(10,$nick,) $+(14[15,$address,14]) 15has left $+(00,#,) $+(14[15,$1-,14])
}
on ^&*:KICK:#: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) # 12-15!12- $+(10,$knick,) 15was kicked from $+(00,#,) 15by $+(00,$nick,) $+(14[15,$1-,14])
}
on ^&*:NICK: {
if ($halted) return
haltdef
if ($nick == $me) {
var %c = $comchan($newnick,0)
while (%c) {
echo -ti $+ $calc($indent + 5) $comchan($newnick,%c) 12-15!12- 15You're is now known as $+(00,$newnick,)
dec %c
}
}
else {
var %c = $comchan($newnick,0)
while (%c) {
echo -ti $+ $calc($indent + 5) $comchan($newnick,%c) 12-15!12- $+(10,$nick,) 15is now known as $+(11,$newnick,)
dec %c
}
}
}
on ^&*:QUIT: {
if ($halted) return
haltdef
var %c = $comchan($nick,0)
while (%c) {
echo -ti $+ $calc($indent + 5) $comchan($nick,%c) 12-15!12- $+(10,$nick,) $+(14[15,$address,14]) 15has quit $+(14[15,$1-,14])
dec %c
}
if ($query($nick)) {
echo -ti $+ $calc($indent + 5) $nick 12-15!12- $+(10,$nick,) $+(14[15,$address,14]) 15has quit $+(14[15,$1-,14])
}
if ($chat($nick)) {
echo -ti $+ $calc($indent + 5) =$nick 12-15!12- $+(10,$nick,) $+(14[15,$address,14]) 15has quit $+(14[15,$1-,14])
}
}
on ^&*:TOPIC:#: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) # 12-15!12- $+(00,$nick,) 15changed topic of $+(00,#,) 15to: $+(15,$1-,)
}
on ^&*:RAWMODE:#: {
if ($halted) return
haltdef
if (. isin $nick) {
echo -ti $+ $calc($indent + 5) # 12-15!12- $+(04ServerMode15/10,#,) $+(14[15,$1-,14]) 15by $+(00,$nick,)
}
else {
echo -ti $+ $calc($indent + 5) # 12-15!12- $+(15mode/10,#,) $+(14[15,$1-,14]) 15by $+(00,$nick,)
}
}
on ^&*:SNOTICE:*: {
if ($halted) return
haltdef
echo -mti $+ $calc($indent + 5) 12-15!12- $+(03!,$nick,) $+(15,$1-,)
}
on ^&*:INVITE:#: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- $+(00,$nick,) 15invites you to $+(00,#,)
}
on ^&*:USERMODE: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15Mode change $+(14[15,$1-,14]) 15for user $+(00,$nick,)
}
on ^&*:NOTIFY: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- $+(00,$nick,) 15is now online
}
on ^&*:UNOTIFY: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- $+(00,$nick,) 15is now offline
}
on &*:CTCPREPLY:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 15CTCP $+(00,$1,) 15reply from $+(00,$nick,) $+ 15: $+(15,$2-,)
}
CTCP &*:*:*: {
if ($1 == DCC) return
if ($halted) return
haltdef
if (# ischan) {
echo -ti $+ $calc($indent + 5) $+(09,$nick,) $+(14[03,$address,14]) 03requested CTCP $+(09,$1,) 03from $+(09,#,) $+ 15: $+(15,$2-,)
}
else {
echo -ti $+ $calc($indent + 5) $+(09,$nick,) $+(14[03,$address,14]) 03requested CTCP $+(09,$1,) 03from $+(09,$me,) $+ 15: $+(15,$2-,)
}
}
RAW 311:*: {
if ($halted) return
haltdef
if (%whois. [ $+ [ $cid ] ]) {
echo -ti $+ $calc($indent + 5) 12-15!12- 15End of WHOIS
dec %whois. [ $+ [ $cid ] ]
if (%whois. [ $+ [ $cid ] ] = 0) unset %whois. [ $+ [ $cid ] ]
}
inc %whois. [ $+ [ $cid ] ]
echo -ti $+ $calc($indent + 5) 12-15!12- $+(00,$2,) $+(14[15,$3,@,$4,14])
echo -ti $+ $calc($indent + 17) 12-15!12- 15ircname 15: $+(15,$6-,)
}
RAW 319:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 17) 12-15!12- 15channels 15: $+(15,$sorttok($3-,32,c),)
}
RAW 312:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 17) 12-15!12- 15server 15: $+(15,$3,) $+(14[15,$4-,14])
}
RAW 330:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 17) 12-15!12- 15auth 15: $+(15,$3,)
}
RAW 338:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 17) 12-15!12- 15realip 15: $+(15,$4-,) $+(14[15,$3,14])
}
RAW 313:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 17) 12-15!12- 15: $+(00,$5-,)
}
RAW 317:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 17) 12-15!12- 15idle 15: $+(15,$duration($3),) 14[15signon: $+(15,$asctime($4),) $+ 14]
}
RAW 318:*: {
if ($halted) return
haltdef
if (%whois. [ $+ [ $cid ] ]) {
echo -ti $+ $calc($indent + 5) 12-15!12- 15End of WHOIS
dec %whois. [ $+ [ $cid ] ]
if (%whois. [ $+ [ $cid ] ] = 0) unset %whois. [ $+ [ $cid ] ]
}
}
RAW 301:*: {
if ($halted) return
haltdef
if (%whowas. [ $+ [ $cid ] ]) {
echo -ti $+ $calc($indent + 17) 12-15!12- 15away 15: $+(15,$3-,)
}
else {
echo -ti $+ $calc($indent + 5) 12-15!12- $+(00,$2,) 15is away: $+(15,$3-,)
}
}
RAW 314:*: {
if ($halted) return
haltdef
inc %whowas. [ $+ [ $cid ] ]
echo -ti $+ $calc($indent + 5) 12-15!12- $+(00,$2,) $+(14[15,$3,@,$4,14])
echo -ti $+ $calc($indent + 17) 12-15!12- 15was 15: $+(15,$6-,)
}
RAW 369:*: {
if ($halted) return
haltdef
if (%whowas. [ $+ [ $cid ] ]) {
echo -ti $+ $calc($indent + 5) 12-15!12- 15End of WHOWAS
dec %whowas. [ $+ [ $cid ] ]
if (%whowas. [ $+ [ $cid ] ] = 0) unset %whowas. [ $+ [ $cid ] ]
}
}
RAW 352:*: {
if ($halted) return
haltdef
if (%sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ial) {
return
}
else {
echo -ti $+ $calc($indent + 5) 12-15!12- $+(10,$str($chr(160),$calc(10 - $len($2))),$mid($2,1,10),) $+(00,$6,$str($chr(160),$calc(9 - $len($6))),) $+(15,$7,$str($chr(160),$calc(3 - $len($7))),) $+(15,$8,$str($chr(160),$calc(2 - $len($8))),) $+(15,$3,@,$4,) $+(14[00,$9-,14])
}
}
RAW 315:*: {
if ($halted) return
haltdef
if (%sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ial) {
var %sync = 0, %ial = $false, %ibl = $false, %iel = $false, %iil = $false
if ($chan($2).ial) var %ial = $true, %sync = %sync + 1
if ($chan($2).ibl) var %ibl = $true, %sync = %sync + 1
;if ($chan($2).iel) var %iel = $true, %sync = %sync + 1
;if ($chan($2).iil) var %iil = $true, %sync = %sync + 1
if (%sync == 2) {
var %ms = $ticks - %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ticks
echo -nti $+ $calc($indent + 5) $2 12-15!12- 00Irssi: 15Join to $+(00,$2,) 15was synced in $+(00,$int($calc(%ms / 1000)),) 15secs
dec %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] ]
if (%sync. [ $+ [ $cid ] $+ . $+ [ $2 ] ] = 0) unset %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] ]
unset %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ticks
}
unset %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ial
}
else {
echo -ti $+ $calc($indent + 5) 12-15!12- 15End of /WHO list
}
}
RAW 367:*: {
if ($halted) return
haltdef
if (%sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ibl) {
return
}
else {
var %#, %ibl = 0
if ($2 ischan) var %# = $v1
if ($ibl($2,0)) var %ibl = $v1
echo -ti $+ $calc($indent + 5) %# 12-15!12- $+(15,%ibl,) 15- $+(00,$2,) $+ 15: 15ban $+(10,$3,)
}
}
RAW 368:*: {
if ($halted) return
haltdef
if (%sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ibl) {
var %sync = 0, %ial = $false, %ibl = $false, %iel = $false, %iil = $false
if ($chan($2).ial) var %ial = $true, %sync = %sync + 1
if ($chan($2).ibl) var %ibl = $true, %sync = %sync + 1
;if ($chan($2).iel) var %iel = $true, %sync = %sync + 1
;if ($chan($2).iil) var %iil = $true, %sync = %sync + 1
if (%sync == 2) {
var %ms = $ticks - %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ticks
echo -nti $+ $calc($indent + 5) $2 12-15!12- 00Irssi: 15Join to $+(00,$2,) 15was synced in $+(00,$int($calc(%ms / 1000)),) 15secs
dec %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] ]
if (%sync. [ $+ [ $cid ] $+ . $+ [ $2 ] ] = 0) unset %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] ]
unset %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ticks
}
unset %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ibl
}
else {
var %#
if ($2 ischan) var %# = $v1
echo -ti $+ $calc($indent + 5) %# 12-15!12- 15End of Channel Ban list
}
}
RAW 348:*: {
if ($halted) return
haltdef
if (%sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .iel) {
return
}
else {
var %#, %iel = 0
if ($2 ischan) var %# = $v1
if ($iel($2,0)) var %iel = $v1
echo -ti $+ $calc($indent + 5) %# 12-15!12- $+(15,%iel,) 15- $+(00,$2,) $+ 15: 15ban exception $+(10,$3,)
}
}
RAW 349:*: {
if ($halted) return
haltdef
if (%sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .iel) {
var %sync = 0, %ial = $false, %ibl = $false, %iel = $false, %iil = $false
if ($chan($2).ial) var %ial = $true, %sync = %sync + 1
if ($chan($2).ibl) var %ibl = $true, %sync = %sync + 1
;if ($chan($2).iel) var %iel = $true, %sync = %sync + 1
;if ($chan($2).iil) var %iil = $true, %sync = %sync + 1
if (%sync == 2) {
var %ms = $ticks - %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ticks
echo -nti $+ $calc($indent + 5) $2 12-15!12- 00Irssi: 15Join to $+(00,$2,) 15was synced in $+(00,$int($calc(%ms / 1000)),) 15secs
dec %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] ]
if (%sync. [ $+ [ $cid ] $+ . $+ [ $2 ] ] = 0) unset %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] ]
unset %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ticks
}
unset %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .iel
}
else {
var %#
if ($2 ischan) var %# = $v1
echo -ti $+ $calc($indent + 5) %# 12-15!12- 15End of Channel Exception list
}
}
RAW 346:*: {
if ($halted) return
haltdef
if (%sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .iil) {
return
}
else {
var %#, %iil = 0
if ($2 ischan) var %# = $v1
if ($iil($2,0)) var %iil = $v1
echo -ti $+ $calc($indent + 5) %# 12-15!12- $+(15,%iil,) 15- $+(00,$2,) $+ 15: 15invite $+(10,$3,)
}
}
RAW 347:*: {
if ($halted) return
haltdef
if (%sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .iil) {
var %sync = 0, %ial = $false, %ibl = $false, %iel = $false, %iil = $false
if ($chan($2).ial) var %ial = $true, %sync = %sync + 1
if ($chan($2).ibl) var %ibl = $true, %sync = %sync + 1
;if ($chan($2).iel) var %iel = $true, %sync = %sync + 1
;if ($chan($2).iil) var %iil = $true, %sync = %sync + 1
if (%sync == 2) {
var %ms = $ticks - %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ticks
echo -nti $+ $calc($indent + 5) $2 12-15!12- 00Irssi: 15Join to $+(00,$2,) 15was synced in $+(00,$int($calc(%ms / 1000)),) 15secs
dec %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] ]
if (%sync. [ $+ [ $cid ] $+ . $+ [ $2 ] ] = 0) unset %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] ]
unset %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .ticks
}
unset %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .iil
}
else {
var %#
if ($2 ischan) var %# = $v1
echo -ti $+ $calc($indent + 5) %# 12-15!12- 15End of Channel Invite list
}
}
RAW 324:*: {
if ($halted) return
haltdef
if (%sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .mode) {
unset %sync. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ ] .mode
}
else {
var %#
if ($2 ischan) var %# = $v1
echo -nti $+ $calc($indent + 5) %# 12-15!12- $+(15mode/10,$2,) $+(14[15,$3-,14])
}
}
RAW 329:*: {
if ($halted) return
haltdef
var %#
if ($2 ischan) var %# = $v1
echo -nti $+ $calc($indent + 5) %# 12-15!12- 15Channel $+(10,$2,) 15created $asctime($3) $+
}
RAW 353:*: {
if ($halted) return
haltdef
if (%sync. [ $+ [ $cid ] $+ . $+ [ $3 ] ]) {
return
}
elseif ($3 ischan) {
return
}
else {
echo -nti $+ $calc($indent + 5) 12-15!12- 15Names on $+(00,$3,) $+ 15: $+(15,$4-,)
}
}
RAW 355:*: {
if ($halted) return
haltdef
if (%sync. [ $+ [ $cid ] $+ . $+ [ $3 ] ]) {
return
}
elseif ($3 ischan) {
return
}
else {
echo -nti $+ $calc($indent + 5) 12-15!12- 15Names on $+(00,$3,) $+ 15: $+(15,$4-,)
}
}
RAW 366:*: {
if ($halted) return
haltdef
if ($2 ischan) {
echo -ti $+ $calc($indent + 5) $2 12-15!12- 14[03Users $+(09,$2,) $+ 14]
var %i = $nick($2,0), %long = 0, %0 = $nick($2,0)
while (%i) {
var %nickname = $nick($2,%i), %i = %i - 1
if ($len(%nickname) > %long) var %long = $v1
}
var %i = 1, %c = 1, %column = $floor($calc(($window($2).dw / $width(*,$window($2).font,$window($2).fontsize,$window($2).fontbold) - $indent - 4) / (%long + 4))), %row = $ceil($calc(%0 / %column))
while (%c <= %column) {
var %r = 1, %c = %c + 1
while (%r <= %row) {
var %n = %r, %r = %r + 1
if (%i <= %0) {
var %prefix = $chr(32), %nick = $nick($2,%i), %i = %i + 1
if (%nick isowner $2) var %prefix = ~
elseif (%nick isop $2) var %prefix = @
elseif (%nick ishelp $2) var %prefix = %
elseif (%nick isvoice $2) var %prefix = +
set %names. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ . $+ [ %n ] ] %names. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ . $+ [ %n ] ] $+(14[00,%prefix,15,%nick,,$str( ,$calc(%long - $len(%nick))),14])
}
}
}
var %n = 1
while (%n <= %row) {
echo -t $2 %names. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ . $+ [ %n ] ]
unset %names. [ $+ [ $cid ] $+ . $+ [ $2 ] $+ . $+ [ %n ] ]
inc %n
}
echo -ti $+ $calc($indent + 5) $2 12-15!12- 00Irssi: $+(00,$2,) $+ 15: 15Total of $+(00,%0,) 15nicks 14[ $+ $+(00,$nick($2,0,o),) 15ops, $+(00,$nick($2,0,h),) 15halfops, $+(00,$nick($2,0,v),) 15voices, $+(00,$nick($2,0,r),) 15normal14]
}
else {
echo -nti $+ $calc($indent + 5) 12-15!12- 15End of /NAMES list
}
}
RAW 331:*: {
if ($halted) return
haltdef
var %#
if ($2 ischan) var %# = $v1
echo -ti $+ $calc($indent + 5) %# 12-15!12- $+(00,$2,) $+ 15: 15No topic set
}
RAW 332:*: {
if ($halted) return
haltdef
var %#
if ($2 ischan) var %# = $v1
echo -ti $+ $calc($indent + 5) %# 12-15!12- 15Topic for $+(10,$2,) $+ 15: $+(15,$3-,)
}
RAW 333:*: {
if ($halted) return
haltdef
var %#
if ($2 ischan) var %# = $v1
echo -ti $+ $calc($indent + 5) %# 12-15!12- 15Topic set by $+(00,$3,) $+(14[15,$asctime($4),14])
}
RAW 404:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15Unable to message $+(00,$2,)
}
RAW 482:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- $+(00,$2,) 15You're not channel operator
}
RAW 396:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- $+(00,$2,) 15is now your hidden host
}
RAW 451:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15Register first!
}
RAW 441:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 14[05invite14(04 $+ $2 $+ 14)14] $+(15,$3,)
}
RAW 443:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- $+(00,$2,) 15is already on $+(00,$3,)
}
RAW 421:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- $+(15,$2,) 15Unknown command
}
RAW 433:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15Nick $+(00,$2,) 15is already in use
}
RAW 471:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15Cannot join to channel $+(00,$2,) 15(Channel is full)
}
RAW 473:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15Cannot join to channel $+(00,$2,) 15(You must be invited)
}
RAW 474:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15Cannot join to channel $+(00,$2,) 15(You are banned)
}
RAW 475:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15Cannot join to channel $+(00,$2,) 15(You need a key)
}
RAW 477:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15Cannot join to channel $+(00,$2,) 15(Registered only)
}
RAW 401:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15There is no such nick $+(15,$2,)
}
RAW 406:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15There is no such nick $+(15,$2,)
}
RAW 403:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- $+(00,$2,) $+ 15: 15No such channel
}
RAW 251:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15There are $+(15,$4,) 15users and $+(15,$7,) 15invisible on $+(15,$10,) 15servers
}
RAW 252:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- $+(15,$2,) 15operator(s) online
}
RAW 253:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- $+(15,$2,) 15unknown connection(s)
}
RAW 254:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- $+(15,$2,) 15channels formed
}
RAW 255:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15I have $+(15,$4,) 15clients and $+(15,$7,) 15servers
}
RAW 001:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15Welcome to the Internet Relay Network, $+(15,$($+($,$0),2),)
}
RAW 002:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15Your host is $+(15,$left($5,-1),) $+ 15, running version $+(15,$8,)
}
RAW 003:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- 15This server was created $+(15,$6-,)
}
RAW 004:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- $+(15,$2,) $+(15,$3,) $+(15,$4,) $+(15,$5,)
}
RAW 005:*: {
if ($halted) return
haltdef
echo -ti $+ $calc($indent + 5) 12-15!12- $+(15,$deltok($2-,-5-,32),) 15are supported by this server
}
RAW *:*: {
if ($numeric == 321) || ($numeric == 322) || ($numeric == 323) return
if ($halted) return
haltdef
if ($0 > 1) {
echo -ti $+ $calc($indent + 5) 12-15!12- $+(15,$2-,)
}
}