theme script (need help)
Posted by xam
Monday, June 12, 2006
Description: I am need of help on getting the nicks to line up perfectly :/ any ideas?
/***************
mini theme, by xam.
beta 1
*///////////////
;;on events used by script;;
;sets font type
on *:start:/font -asgdz 11 Tahoma
on *:load:/font -asgdz 11 Tahoma
;changes incoming text from channels.
on ^*:text:*:#:{
set %::n $nick
echo -t $chan $_spacel $chr(3) [^K]10 $+ $iif($nick(#,%::n).pnick != %::n,$left($nick(#,%::n).pnick,1),$null) $+ %::n $+ [^K] $chr(124) $1- | halt
}
;changes incoming text from private messages.
on ^*:text:*:?:{
set %::n $nick
echo -t $nick $_spacel $chr(3) [^K]10 $+ $iif($nick(#,%::n).pnick != %::n,$left($nick(#,%::n).pnick,1),$null) $+ %::n $+ [^K] $chr(124) $1- | halt
}
;changes outgoing text
on *:input:*:{
if ($left($1,1) == $chr($asc(/))) return
if ($left($1,1) == $chr($asc($))) return
.msg $active $1-
/* no need for this anymore.
if ($active == #support) return
if ($left($1,1) == $chr($asc(/))) return
%::n = $nick
.msg $active $1-
}
*/
}
;;aliass used by script;;
;Creates space length before nicks
alias _spacel {
return [^K]00 $str($chr(15) $chr(32),$_length)
}
;Sets length to use.
alias _length {
%::l = 50
return $calc(%::l - $width(%::n,Tahoma,11,0,0))
}
;msg alias to prevent conflict from other scripts.
alias msg {
%::n = $me
.msg $1 $2-
echo -t $1 $_spacel $chr(3) [^K]15 $+ $iif($nick(#,%::n).pnick != %::n,$left($nick(#,%::n).pnick,1),$null) $+ %::n $+ [^K] $chr(124) $2- | halt
}