alias irclink {
set %server $1
set %channel $iif($2,$2)
dialog -m irclink irclink
did -ra irclink 1 mIRC has been asked to connect to " $+ %server $+ "
}
dialog irclink {
title "Server"
size -1 -1 146 51
option dbu
text "mIRC has been asked to connect to ", 1, 1 2 144 8
radio "Open A New Connection", 2, 0 13 70 10
radio "Change To Server", 3, 0 24 54 10
button "Ok", 4, 95 41 25 10
button "Cancel", 5, 121 41 25 10
}
on *:dialog:irclink:init:*:{ did -c $dname 2 }
on *:dialog:irclink:sclick:*:{
if $did == 4 { dialog -c $dname }
elseif $did == 5 {
unset %server
unset %channel
dialog -x $dname
}
}
on *:dialog:irclink:close:*:{
server $iif($did(2).state,-m) %server $iif(%channel,-j %channel)
unset %server
unset %channel
}
on ^*:hotlink:*irc?//*.*/*:#:{ .echo -q . }
on *:hotlink:*:*:{
var %server $gettok($1,2,$asc(/)), %channel = $+($chr(35),$gettok($1,3,$asc(/)))
irclink %server $iif(%channel != $chr(35),%channel)
}