Скрипт - отображение ника, хоста, идла, каналов
Страница 1 из 1
Скрипт - отображение ника, хоста, идла, каналов
on ^*:hotlink:*:#:{
if (($getnick($1) ison $chan) || ($getnick($1).checktheme ison $chan)) $&
.timer.nickinfo -m 1 700 nickinfo $v1 $mouse.dx $mouse.dy $line($chan,0)
halt
}
alias -l nickinfo {
if (($2 == $mouse.dx) && ($3 == $mouse.dy) && ($4 == $line($active,0))) {
var %n = Nick: $1, %a = Address: $iif($mid($address($1,0),3),$v1,Unknown), $&
%i = Idle: $duration($nick($active,$1).idle), %c = Common Channels: $comchans($1), $&
%w = $gettok($sorttok($calc($getwidth(%n) + 113) $calc($getwidth(%a) + 92) $calc($getwidth(%i) + 115) $&
$calc($getwidth(%c) + 35),32,nr),1,32), %d = drawtext -r @nickinfo $rgb(text) tahoma 12
window -dhkpn +fL @NickInfo $round($calc($2 - (%w / 2)),0) $calc($3 - 40) $calc(%w) 80
drawfill -nr @nickinfo $rgb(face) $rgb(face) 0 0
%d 93 5 %n
%d 72 20 %a
%d 95 35 %i
%d 15 50 %c
setlayer 0 @nickinfo
window -o @nickinfo
var %x = 1
while (%x <= 255) {
setlayer %x @nickinfo
inc %x 1
}
checkmouse
}
}
alias -l comchans {
var %x = 1
while ($comchan($1,%x)) {
var %# = %# $+($remove($nick($v1,$1).pnick,$1),$v1)
inc %x 1
}
return %#
}
alias -l getwidth return $width($1-,tahoma,12)
alias -l getnick {
if ($prop == checktheme) noop $regex(nick,$1,/([a-z0-9Q`^-_{}|E]+)/iS)
else noop $regex(nick,$1,/([a-z0-9Q`^-_[]{}|E]+)/iS)
return $regml(nick,1)
}
alias -l closewin {
if ($mouseinwin) checkmouse
else {
var %x = 255
while (%x) {
setlayer %x @nickinfo
dec %x 1
}
window -c @nickinfo
}
}
alias -l checkmouse {
if ($mouseinwin) .timer.nickinfo_checkmouse -m 1 200 checkmouse
else .timer.nickinfo_closewin -m 1 600 closewin
}
alias -l mouseinwin return $inrect($mouse.dx,$mouse.dy,$window(@nickinfo).dx,$window(@nickinfo).dy,$window(@nickinfo).dw,$window(@nickinfo).dh)
on *:active:@nickinfo:window -a $lactive
if (($getnick($1) ison $chan) || ($getnick($1).checktheme ison $chan)) $&
.timer.nickinfo -m 1 700 nickinfo $v1 $mouse.dx $mouse.dy $line($chan,0)
halt
}
alias -l nickinfo {
if (($2 == $mouse.dx) && ($3 == $mouse.dy) && ($4 == $line($active,0))) {
var %n = Nick: $1, %a = Address: $iif($mid($address($1,0),3),$v1,Unknown), $&
%i = Idle: $duration($nick($active,$1).idle), %c = Common Channels: $comchans($1), $&
%w = $gettok($sorttok($calc($getwidth(%n) + 113) $calc($getwidth(%a) + 92) $calc($getwidth(%i) + 115) $&
$calc($getwidth(%c) + 35),32,nr),1,32), %d = drawtext -r @nickinfo $rgb(text) tahoma 12
window -dhkpn +fL @NickInfo $round($calc($2 - (%w / 2)),0) $calc($3 - 40) $calc(%w) 80
drawfill -nr @nickinfo $rgb(face) $rgb(face) 0 0
%d 93 5 %n
%d 72 20 %a
%d 95 35 %i
%d 15 50 %c
setlayer 0 @nickinfo
window -o @nickinfo
var %x = 1
while (%x <= 255) {
setlayer %x @nickinfo
inc %x 1
}
checkmouse
}
}
alias -l comchans {
var %x = 1
while ($comchan($1,%x)) {
var %# = %# $+($remove($nick($v1,$1).pnick,$1),$v1)
inc %x 1
}
return %#
}
alias -l getwidth return $width($1-,tahoma,12)
alias -l getnick {
if ($prop == checktheme) noop $regex(nick,$1,/([a-z0-9Q`^-_{}|E]+)/iS)
else noop $regex(nick,$1,/([a-z0-9Q`^-_[]{}|E]+)/iS)
return $regml(nick,1)
}
alias -l closewin {
if ($mouseinwin) checkmouse
else {
var %x = 255
while (%x) {
setlayer %x @nickinfo
dec %x 1
}
window -c @nickinfo
}
}
alias -l checkmouse {
if ($mouseinwin) .timer.nickinfo_checkmouse -m 1 200 checkmouse
else .timer.nickinfo_closewin -m 1 600 closewin
}
alias -l mouseinwin return $inrect($mouse.dx,$mouse.dy,$window(@nickinfo).dx,$window(@nickinfo).dy,$window(@nickinfo).dw,$window(@nickinfo).dh)
on *:active:@nickinfo:window -a $lactive
NoName- Help Operator
- Сообщения : 23
Дата регистрации : 2011-03-20
Возраст : 29
Откуда : из ада
Похожие темы
» Автовставка ника
» Скрипт антирекламы
» Скрипт-записки на боте
» Скрипт "албанского" языка
» Скрипт - Winamp
» Скрипт антирекламы
» Скрипт-записки на боте
» Скрипт "албанского" языка
» Скрипт - Winamp
Страница 1 из 1
Права доступа к этому форуму:
Вы не можете отвечать на сообщения
|
|