on ^*:HOTLINK:*:#: {
var %nr = 1, %prefix
while ($mid($prefix,%nr,1)) { var %prefix = $addtok(%prefix,$v1,44) | inc %nr }
edited line --> if ($remove($1, [ %prefix ,<,> ] ) ison $chan) { .timercs -m 1 700 clonescanwindow $v1 $chan $mouse.dx $mouse.dy $line($active,0) }
; mouse moving over another word in the channel window: hide clonecheck-window
elseif ($window($+(@clonecheck,$chr(160),*),1)) { window -h $v1 }
halt
}
; the clonescan-and-show alias
alias -l clonescanwindow {
new line--> if (($3 == $mouse.dx) && ($4 == $mouse.dy) && ($5 == $line($active,0))) {
; store active window to a var
var %a = $active, %w = $+(@clonecheck,$chr(160),$2)
; create a new- or restore and rename the old clonecheck-window
if ($window($+(@clonecheck,$chr(160),*),1)) {
renwin $v1 %w
window -o %w
}
else { window -doCk0w0 +L %w -1 -1 300 80 }
clear %w
if ($ialchan($+(*!*@,$ial($1).host),$2,0) == 1) { aline 9 %w $chr(2) No clones $+ $chr(15) of $1 }
else {
; clones found: list the clones
var %c.num = $calc($v1 -1), %nr = 1, %clones
while ($ialchan($+(*!*@,$ial($1).host),$2,%nr).nick) {
if ($v1 != $1) { var %clones = $addtok(%clones,$v1,32) }
inc %nr
}
aline 4 %w $chr(2) %c.num $iif((%c.num == 1),Clone,Clones) $+ $chr(15) of $1
aline -p %w %clones
sline %w 2
}
; refocus stored active window
window -a %a
new line--> }
}
menu @clonecheck* {
close window "clonecheck" : window -c $active
}