Context Menus for Total Commander

@opposite
; open new tab in opposite pane 
if(activewindow("Total Co*")) do
    Keys {fast}{to Total Co*}+^{up}
    QUIT
endif

@this
; open new (active) tab in this pane 
if(activewindow("Total Co*")) do
    Keys {to Total Co*}^{up}
    QUIT
endif

@backg
; open new tab in this pane in the background 
if(activewindow("Total Co*")) do
    Keys {to Total Co*}^+T
    QUIT
endif

@extract_to
; extract to user specified path 
if(activewindow("Total Co*")) do
    LOCAL hFocus=WIN.GetFocus
    local extract_path = InputCancel("Extraction Path: ")
    WIN.SetFocus(hFocus)
    Wait.For(20000, activewindow("Total Co*"))
    Keys {to Total Co*}%{F9}
    Wait.For(20000, activewindow("Unpack*"))
    IF(NOT activewindow("Unpack*"))
    QUIT
    Keys {to Unpa*}{end}+{home}&(extract_path)\{enter}
endif

@extract_here
; extract archive into this subdir 
if(activewindow("Total Co*")) do
    Keys {to Total Co*}%{F9}
    Wait.Until(activewindow("Unpack*"))
    Keys {to Unpa*} {enter}
endif

@extract_opposite
; extract archive into active tab in opposite pane 
if(activewindow("Total Co*")) do
    Keys {to Total Co*}%{F9}
    Wait.Until(activewindow("Unpack*"))
    Keys {to Unpa*}{enter}
endif

@extract_subdir_current_pane
; extract archive into a subdir of the currently active pane 
if(activewindow("Total Co*")) do
    local filepath
    filepath = file.folder(_file_) ++ "\\" ++ file.name(_file_)
    Keys {to Total Co*}%{F9}
    Wait.Until(activewindow("Unpack*"))
    Keys {to Unpa*}&(filepath){enter}
endif

@extract_subdir_opposite_pane
; extract archive into a subdir of the opposite active pane 
if(activewindow("Total Co*")) do
    Keys {to Total Co*}%{F9}
    Wait.Until(activewindow("Unpack*"))
    Keys {to Unpa*}{end}&(file.name(_file_))\{enter}
endif