on ^*:hotlink:*irc://*.*/*:#:{ .echo -q . }
on *:hotlink:*:*:{ echo -a $hotline }

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)
}