;Rejoin Channel after a delay
alias hop {
  set %CS.DoNotCloseChannel True

  if ($1 == $null) {
    var %CS.ActiveChanTemp $active
    part %CS.ActiveChanTemp
    .timer $+ $server $+ $active 1 3 join %CS.ActiveChanTemp
  }
  else {
    part $1-
    .timer $+ $server $+ $1 1 3 join $1
  }
}

alias Rejoin {
  hop $1-
}

;Return the wnd.dll's location
alias WindowDLL {
  return $findfile($scriptdir,wnd.dll,1).shortfn
}

;this is the signal used by the dll
on *:SIGNAL:Wnd: {

  ;Create @WindowDLL if Non-Existent 
  if ($window(@WindowDLL) == $null) {
    window @WindowDLL
    echo $color(info) @WindowDLL * This Window Displays all output sent by the Window DLL - $csversion
  }

  ;Output all Information from Window DLL to @WindowDLL
  if ($3 != $null) {
    echo @WindowDLL * 2Event Name: $1 4Window HWND: $2  3Event Specific: $3-
  }
  else {
    echo @WindowDLL * 2Event Name: $1 4Window HWND: $2
  }

  if ($1 == tryclose) {
    if (%CS.DoNotCloseChannel == True) {
      unset %CS.DoNotCloseChannel
      dll $WindowDLL release $2
    }
    else {
      CloseHook $2
    }
  }
}

;on Join Identify Channel with Window DLL
on ME:*:JOIN:#: {
  dll $WindowDLL hook $window($chan).hwnd
}

alias CloseHook {
  dll $WindowDLL close $1
}