[Release] V-Bot

;========================================================================
; 
; Template:     WinTrigger (former OnOpen/OnClose)
; Description:  Act upon (de)activation/(un)existance of programs/windows
; Online Ref.:  http://www.autohotkey.com/forum/viewtopic.php?t=63673
;
; Last Update:  15/Mar/2010 17:30
;
; Created by:   MasterFocus
;               http://www.autohotkey.net/~MasterFocus/AHK/
;
; Thanks to:    Lexikos, for improving it significantly
;               http://www.autohotkey.com/forum/topic43826.html#267338
;
;========================================================================
;
; This template contains two examples by default. You may remove them.
;
; * HOW TO ADD A PROGRAM to be checked upon (de)activation/(un)existance:
;
; 1. Add a variable named ProgWinTitle# (Configuration Section)
; containing the desired title/ahk_class/ahk_id/ahk_group
;
; 2. Add a variable named WinTrigger# (Configuration Section)
; containing the desired trigger ("Exist" or "Active")
;
; 3. Add labels named LabelTriggerOn# and/or LabelTriggerOff#
; (Custom Labels Section) containing the desired actions
;
; 4. You may also change CheckPeriod value if desired
;
;========================================================================

#Persistent
#SingleInstance, force
#NoTrayIcon

DetectHiddenWindows off

if 0 < 2
{
	msgbox, invalid parameters
	ExitApp
}
guihwnd=%1%
dohwnd=%2%

;EXE:=AhkExported()

; ------ ------ CONFIGURATION SECTION ------ ------

; Program Titles
ProgWinTitle1 = ahk_id %guihwnd%
WinTrigger1 = Active
ProgWinTitle2 = ahk_id %dohwnd%
WinTrigger2 = Active

; SetTimer Period
CheckPeriod = 200

; ------ END OF CONFIGURATION SECTION ------ ------

SetTimer, LabelCheckTrigger, %CheckPeriod%
Return

; ------ ------ ------

LabelCheckTrigger:
  While ( ProgWinTitle%A_Index% != "" && WinTrigger := WinTrigger%A_Index% )
    if ( !ProgRunning%A_Index% != !Win%WinTrigger%( ProgWinTitle := ProgWinTitle%A_Index% ) )
      GoSubSafe( "LabelTriggerO" ( (ProgRunning%A_Index% := !ProgRunning%A_Index%) ? "n" : "ff" ) A_Index )
Return

; ------ ------ ------

GoSubSafe(mySub)
{
  if IsLabel(mySub)
    GoSub %mySub%
}

; ------ ------ CUSTOM LABEL SECTION ------ ------


LabelTriggerOn1:
LabelTriggerOn2:
	WinActivate, ahk_id %dohwnd%
	WinActivate, ahk_id %guihwnd%
Return

/*
LabelTriggerOff1:
LabelTriggerOff2:
	msgbox deactivated
return
*/

; ------ END OF CUSTOM LABEL SECTION ------ ------

/*
AhkExported(mapping=""){
	static init
	static functions="
  (Join
ahkFunction:s=sssssssssss|ahkPostFunction:s=sssssssssss|ahkExec:ui=s|
addFile:ut=sucuc|addScript:ut=si|ahkassign:ui=ss|ahkExecuteLine:ut=utuiui|
ahkFindFunc:ut=s|ahkFindLabel:ut=s|ahkgetvar:s=sui|ahkLabel:ui=sui|ahkPause:s
)"
	If (!init && init := Object())
   {
		If !A_IsCompiled	
			functions .= "|addFile:ui=sucuc|addScript:ui=sucuc"
      VarSetCapacity(file,512)
      DllCall("GetModuleFileName","UInt",DllCall("GetModuleHandle","UInt",0),"Uint",&file,"UInt",512)
      DllCall("LoadLibrary","Str",(A_IsCompiled ? A_ScriptFullPath : A_AhkPath))
      Loop,Parse,functions,|
      {
        StringSplit,v,A_LoopField,:
        v=
    		if (mapping){
    			loop,Parse,Mapping,%A_Space%
    				If (SubStr(A_LoopField,1,InStr(A_LoopField,"=")-1)=v1)
    					v:=SubStr(A_LoopField,InStr(A_LoopField,"=")+1)
    				else if (A_LoopField=v1)
    					v:=A_LoopField
    			if (v && !init[v])
    				init[v]:=DynaCall((A_IsCompiled ? A_ScriptFullPath : A_AhkPath) . "\" . v1,v2)
    			continue
    		} else v:=v1
        init[v]:=DynaCall((A_IsCompiled ? A_ScriptFullPath : A_AhkPath) . "\" . v1,v2)
      }
   }
	return init
}
*/

ExitApp