rendered paste body;
; NoNameScript v4.03 - dynamic theme file - coded by greeny
; Don't edit anything in here unless you REALLY know what you're doing!
; File dynamically generated by NoNameScript 4.03 theme engine 1.01 at 28/09/2006 23:52:40
;
alias msg {
if (!$isid) && ($remove($2-,$chr(32)) != $null) {
!.msg $$1-
if ($show) {
if ($1 ischan) || ($query($1)) || (=* iswm $1) {
if ($1 ischan) {
echo -ti12c own $1 02( $+ $cmod($1,$me) $+ $+ $me $+ 02) $2-
}
else {
echo -ti12c own $1 02( $+ $me $+ 02) $2-
}
}
else {
echo $actcid(ti12c) normal 02 12 $+ $1 $+ 12 $2-
}
}
}
}
alias amsg {
var %t = $$1-
if (!$isid) && ($remove(%t,$chr(32)) != $null) {
!.amsg %t
if ($show) {
if ($chan(0)) {
var %c = $v1
while (%c) {
tokenize 32 $chan(%c) %t
echo -ti12c own $1 02( $+ $cmod($1,$me) $+ $+ $me $+ 02) $2-
dec %c
}
}
}
}
}
alias describe {
if (!$isid) {
!.describe $1-
if (!$show) { return }
if ($1 ischan) || ($query($1)) || (=* iswm $1) {
if ($1 ischan) {
echo -ti12c action $1 $cmod($1,$me) $+ $me $2-
}
else {
echo -ti12c action $1 $me $2-
}
}
else {
echo $actcid(ti12c) action 02 12 $+ $1 $2-
}
}
}
alias ame {
var %t = $$1-
if (!$isid) && ($remove(%t,$chr(32)) != $null) {
!.ame %t
if ($show) {
if ($chan(0)) {
var %c = $v1
while (%c) {
tokenize 32 $chan(%c) %t
echo -ti12c action $1 $cmod($1,$me) $+ $me $2-
dec %c
}
}
}
}
}
alias notice {
if (!$isid) {
.!notice $1-
if (!$show) { return }
echo $actcid(ti12c) notice 02 12 - $+ $1 $+ 12- $2-
}
}
alias dns {
if (!$isid) {
!.dns $1-
if ($show) {
var %h = $1,%f
if ($istok(-h -c,$1,32)) { var %f = $1,%h = $2 }
if (%f != -h) && (. !isin %h) && ($address(%h,5)) { %h = $gettok($v1,2,64) }
echo -ati12c info 02 12 dns: resolving $thmbr(%h) $+ ...
}
}
}
alias ctcp {
if (!$isid) {
!.ctcp $1-
if ($2 == PING) { set -u100 $+(%,pingticks.,$cid,.,$1) $nn.ticks }
if ($show) && ($2 != DCC) {
echo $actcid(ti12c) ctcp 02 02? $+ $1 $+ 02? $2 $3-
}
}
}
alias ctcpreply {
if (!$isid) {
!.ctcpreply $1-
if ($show) {
echo $actcid(ti12c) ctcp 02 02! $+ $1 $+ 02! $2 $3-
}
}
}
on ^&*:notify:{
haltdef
echo $actcid(ti12c) info 02 12 notify: $thmbr($nick) is now online!
}
on ^&*:unotify:{
haltdef
echo $actcid(ti12c) info 02 12 unnotify: $thmbr($nick) is now offline!
}
alias thmecho {
if ($1 == -s) { var %e = -sti12c info }
elseif ($1 == -a) { var %e = $actcid(ti12c info) }
else { var %e = -ti12c info $1 }
echo %e 02 12 $+ $2-
}
alias thmerror {
if ($1 == -s) { var %e = -sti12c info }
elseif ($1 == -a) { var %e = $actcid(ti12c info) }
else { var %e = -ti12c info $1 }
echo %e 02 12error: $2-
}
alias thmls {
if ($1 == -s) { var %e = -sti12c info }
elseif ($1 == -a) {
if (@* iswm $active) || ($cid != $activecid) { var %e = -sti12c info }
else { var %e = -ati12c info }
}
else { var %e = -ti12c info $1 }
echo %e 02((
}
alias thmhl {
if ($1- != $null) {
return 02(12 $+ $1- $+ 02)12
}
}
alias thmbr {
if ($1- != $null) {
return 02(12 $+ $1- $+ 02)12
}
}
on &^*:join:#:{
haltdef
if ($chan !ischan) { return }
if ($nick != $me) {
var %e = $thmev($chan)
if (%e isnum 0-1) { %e = -ti12c join $chan }
elseif (%e == 2) { %e = -sti12c join }
elseif (%e == 3) { goto skip }
echo %e 02 12 join: $thmbr($nick) $thmbr($address)
:skip
if (%qryevent) && ($query($nick)) && (j isin %qrytypes) {
echo -ti12c join $nick 02 12 join: $thmbr($+($nick,:,$chan)) $thmbr($address)
}
}
else { set -u100 %joinprog. [ $+ [ $chan ] $+ ] . [ $+ [ $cid ] ] $nn.ticks }
}
on &!^*:part:#:{
haltdef
if ($chan !ischan) { return }
var %e = $thmev($chan)
if (%e isnum 0-1) { %e = -ti12c part $chan }
elseif (%e == 2) { %e = -sti12c part }
elseif (%e == 3) { goto skip }
echo %e 02 12 part: $thmbr($nick) $thmbr($address) $thmbr($1-)
:skip
if (%qryevent) && ($query($nick)) && (p isin %qrytypes) {
echo -ti12c part $nick 02 12 part: $thmbr($+($nick,:,$chan)) $thmbr($address) $thmbr($1-)
}
}
on &^*:kick:#:{
haltdef
if ($chan !ischan) { return }
if ($knick == $me) {
echo -sti12c kick 02 12 kick: you were kicked out of $thmbr($chan) by $thmbr($nick) $thmbr($1-)
}
var %e = $thmev($chan)
if (%e isnum 0-1) { %e = -ti12c kick $chan }
elseif (%e == 2) { %e = -sti12c kick }
elseif (%e == 3) { goto skip }
echo %e 02 12 kick: $thmbr($knick) was kicked by $thmbr($nick) $thmbr($1-)
if ($away.chklog($null).event) && ($ccontrol($chan)) {
echo -ti12c kick $away.logwin 02 12 kick: $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $thmbr($1-)
}
:skip
if (%qryevent) && (k isin %qrytypes) {
if ($query($knick)) {
echo -ti12c kick $knick 02 12 kick: $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $thmbr($1-)
}
if ($query($nick)) {
echo -ti12c kick $nick 02 12 kick: $thmbr($knick) was kicked by $thmbr($+($nick,:,$chan)) $thmbr($1-)
}
}
}
on &^*:quit:{
haltdef
var %c = $comchan($nick,0)
while (%c) {
var %e = $thmev($comchan($nick,%c))
if (%e isnum 0-1) { %e = -ti12c quit $comchan($nick,%c) }
elseif (%e == 2) { %e = -sti12c quit }
elseif (%e == 3) {
%e = -sti12c quit
echo %e 02 12 quit: $thmbr($nick) $thmbr($address) $thmbr($1-)
%e = -ti12c quit $comchan($nick,%c)
}
elseif (%e == 4) { goto skip }
echo %e 02 12 quit: $thmbr($nick) $thmbr($address) $thmbr($1-)
:skip
dec %c
}
if (%qryevent) && ($query($nick)) && (q isin %qrytypes) {
echo -ti12c quit $nick 02 12 quit: $thmbr($nick) $thmbr($address) $thmbr($1-)
}
}
on &^*:nick:{
haltdef
if ($nick === $newnick) { return }
var %c = $comchan($newnick,0),%q = $query(0)
while (%c) {
var %e = $thmev($comchan($newnick,%c))
if (%e isnum 0-1) { %e = -ti12c nick $comchan($newnick,%c) }
elseif (%e == 2) { goto skip }
echo %e 02 12 nick: $thmbr($nick) is now known as $thmbr($newnick)
:skip