Sandboxie Support

Code: Select all

;
/*
Close Combat(tm)V: Invasion Normandy Demo

A fixed map scroll speed and
a necessary adjusted margin.

http://ahkscript.org/
*/

#NoEnv
#SingleInstance force

SetTitleMatchMode,RegEx

Global NULL:=0

Global WinTitle:="Close Combat ahk_class TBX3AppWindow"

Global RECT
VarSetCapacity(RECT,16)

Global Margin:=5 ; original margin; touch it, you break it
Global NewMargin:=5 ; tacked onto original margin

CoordMode,Mouse,Client

;SendMode Input

Loop
{
	Sleep,50 ; adjust DelayInMilliseconds
	
	WinWaitActive,%WinTitle%
	hWnd:=WinExist()
	DllCall("GetClientRect","UPtr",hWnd,"UPtr",&RECT)
	NumPut(BorderLeft:=NumGet(RECT,0,"Int")+Margin,RECT,0,"Int")
	NumPut(BorderTop:=NumGet(RECT,4,"Int")+Margin,RECT,4,"Int")
	NumPut((BorderRight:=NumGet(RECT,8,"Int")-Margin)-1,RECT,8,"Int")
	NumPut((BorderBottom:=NumGet(RECT,12,"Int")-Margin)-1,RECT,12,"Int")
	DllCall("ClientToScreen","UPtr",hWnd,"UPtr",&RECT)
	DllCall("ClientToScreen","UPtr",hWnd,"UPtr",&RECT+8)
	DllCall("ClipCursor","UPtr",&RECT)
	MouseGetPos,CX,CY
;ToolTip,CursorX:%CX%`nCursorY:%CY%
	BorderLeft+=NewMargin,BorderTop+=NewMargin
	BorderRight-=NewMargin,BorderBottom-=NewMargin
;ToolTip,%BorderLeft%`n%BorderTop%`n%BorderRight%`n%BorderBottom%`n
	
	Left:=CX<=BorderLeft,Top:=CY<=BorderTop
	Right:=CX>=BorderRight,Bottom:=CY>=BorderBottom
	
	if(Left&&Top)
		Send,{Numpad7}
	else if(Top&&Right)
		Send,{Numpad9}
	else if(Left&&Bottom)
		Send,{Numpad1}
	else if(Bottom&&Right)
		Send,{Numpad3}
	else if(Left)
		Send,{Numpad4}
	else if(Top)
		Send,{Numpad8}
	else if(Right)
		Send,{Numpad6}
	else if(Bottom)
		Send,{Numpad2}
}

return

~LButton::
IfWinNotActive,%WinTitle%
{
	DllCall("ClipCursor","UPtr",NULL)
}
return

/*
	if(CX<=BorderLeft)
		Send,{Left}
	if(CY<=BorderTop)
		Send,{Up}
	if(CX>=BorderRight)
		Send,{Right}
	if(CY>=BorderBottom)
		Send,{Down}
*/
;