|
; http://dev.adiirc.com/boards/5/topics/520
|
|
; /Links mIRC copycat
|
|
; v0.1 by pereba
|
|
|
|
; Server response for each link
|
|
raw 364:*:{
|
|
var %line $puttok($3-,$chr(40) $+ $remove($4,:) $+ $chr(41),2,32)
|
|
|
|
; Since 0 is the current server user is connected, lets add it as first row
|
|
if (0 isin $4) iline -h $wname 1 %line
|
|
|
|
; Add all other servers in sequence
|
|
else aline -h $wname $chr(160) $+ %line
|
|
|
|
; Prevent internal AdiIRC handle of command
|
|
halt
|
|
}
|
|
|
|
; End of /Links list
|
|
raw 365:*: {
|
|
; Unhide window on finish
|
|
window -w3 $wname
|
|
|
|
; Select first row
|
|
sline $wname 1
|
|
|
|
; Put focus to window if flag -n were not used
|
|
if ( [ % $+ links.active.minimized. $+ [ $cid ] ] ) {
|
|
unset %links.active.minimized. $+ $cid
|
|
return
|
|
}
|
|
window -a $wname
|
|
}
|
|
|
|
; Permission denied in some networks, then lets close the window
|
|
raw 481:*: {
|
|
if ($wactive) {
|
|
window -c $window($wname)
|
|
unset %links.active.* $+ $cid
|
|
}
|
|
}
|
|
|
|
; Replace internal /Links command
|
|
alias links {
|
|
; If disconnected, call internal /links command to echo default error msg
|
|
if ($status != connected) { !links | return }
|
|
|
|
; Check if a previous /links is active, then clear window prior to resend command
|
|
if ( $wactive ) { unset %links.active. $+ $cid | clear $wname }
|
|
|
|
; Open window if unavailable (-x support removed for now due an AdiIRC bug where mdi control buttons are gone)
|
|
var %flags $iif(-* iswm $1,$regsubex($1,/[^n]/gSi,))
|
|
if (%flags) set -e %links.active.minimized. $+ $cid $!true
|
|
if (!$window($wname)) window -lkvh $+ %flags $wname
|
|
|
|
; Var to indicate links window is active
|
|
set -e %links.active. $+ $cid $!true
|
|
|
|
; Print same mIRC msg to Status Window
|
|
echo 17 -st $prefixsys Retrieving links...
|
|
|
|
; Call internal /Links
|
|
!links $1-
|
|
|
|
; Prevent internal AdiIRC handle of command
|
|
halt
|
|
}
|
|
|
|
alias -l wactive {
|
|
return [ % $+ links.active. $+ [ $cid ] ]
|
|
}
|
|
|
|
; Window name where /Links output is sent
|
|
alias -l wname return $+(@,$adilang(Links),$chr(160),$adilang(List),$chr(160),$network)
|
|
|
|
on *:CLOSE:$($wname):{
|
|
unset %links.active. $+ $cid
|
|
}
|
|
|
|
menu @* {
|
|
dclick:$iif($active == $wname,server $gettok($line($wname,$1),1,32))
|
|
-
|
|
$iif($active == $wname,Connect to Server) :/server $$1
|
|
$iif($active == $wname,Copy to Clipboard) :/clipboard $$1
|
|
-
|
|
$iif($active == $wname,Update Links) :/links
|
|
-
|
|
; mIRC saves list in .ini format, since I have no idea where it can be used later, lets use simple savebuf for now
|
|
$iif($active == $wname,Save Links...) :/savebuf -l $active $$sdir($adiircdir,Save Links $network) $+ \ $+ $$input(File Name:,e,Save Links $network,links_ $+ $network $+ .txt)
|
|
}
|
|
|
|
menu status {
|
|
-
|
|
$adilang(Links):/links
|
|
-
|
|
}
|
