Tiltblocker AHK

; AHK tilt blocker v 1.03
; September 18, 2006
; by Roland
; Contributions by Adde, 


; --------------------- EDIT THESE SETTINGS

; Set what hotkey should open a new tilt blocker box
; LINK: http://www.autohotkey.com/docs/KeyList.htm

hotkey_open_one     := "#Space"                ; ^Space
hotkey_open_default := "^Space"                ; ^Space

; Change to your favorite color
; LINK: http://www.w3schools.com/html/html_colors.asp

default_color = FF0000

; Set default width/height of tilt blocker box

default_width = 110
default_height = 45

; Set if new blockers should have a resize border (1) or not (0)

default_resize = 0

; Set if one new tilt blocker box should open at startup (1) or not (0)
; Set if all default tilt blocker boxes (see settings below) should open at startup (1) or not (0)

open_one_at_startup = 1
open_default_at_startup = 0

; Set x/y/w/h for all blocker boxes that should be opened by default.

default_boxes_x := "5, 139, 806, 946, 5, 139, 806, 946"
default_boxes_y := "495, 514, 495, 514, 1065, 1085, 1065, 1085"
default_boxes_w := "141, 141, 141, 141, 141, 141, 141, 141"
default_boxes_h := "74, 55, 74, 55, 74, 55, 74, 55"

; Set default transparancy.

default_trans = 500


; --------------------- DO NOT EDIT BELOW

; #NoTrayIcon
#NoEnv
#SingleInstance force
#Include %a_scriptDir%
#Include Functions.ahk
#SingleInstance force

SetWorkingDir %a_scriptDir%

OnMessage(0x201, "WM_LBUTTONDOWN")
OnMessage(0x204, "WM_RBUTTONDOWN")
;OnMessage(0x207, "WM_MBUTTONDOWN")

IsCompiled()
CheckAHKVersion("1.0.44.08")

Menu, ctxt, Add, &Color, Color
Menu, ctxt, Add, Color &All, ColorAll
Menu, ctxt, Add
Menu, ctxt, Add, Show Resize Border, ShowResizeBorder
Menu, ctxt, Add, Hide Resize Border, HideResizeBorder
Menu, ctxt, Add
Menu, ctxt, Add, Duplicate, Duplicate
Menu, ctxt, Add
Menu, ctxt, Add, Close This, CloseThis
Menu, ctxt, Add, Close All, CloseAll
Menu, ctxt, Add
Menu, ctxt, Add, Show Coordinates, ShowCoordinates
Menu, ctxt, Add
Menu, ctxt, Add, &Help, Help
Menu, ctxt, Add
Menu, ctxt, Add, E&xit, Exit

Hotkey, %hotkey_open_one%, OpenOne,  UseErrorLevel 
Hotkey, %hotkey_open_default%, OpenDefault,  UseErrorLevel 

Loop 99 
        guiList := AddToList(guiList, a_index)   
                
StringSplit, default_boxes_x_list, default_boxes_x, `,
StringSplit, default_boxes_y_list, default_boxes_y, `,
StringSplit, default_boxes_w_list, default_boxes_w, `,
StringSplit, default_boxes_h_list, default_boxes_h, `,
      
if (open_one_at_startup)
        NewGui()
if (open_default_at_startup)
        OpenDefault()
        
return

;------- end of auto-execute section --------

OpenDefault:
        OpenDefault()
return

OpenDefault()
{
        local n
        Loop, %default_boxes_x_list0%
        {
                n := a_index
                NewGui(default_boxes_x_list%n%, default_boxes_y_list%n%, default_boxes_w_list%n%, default_boxes_h_list%n%, "", 0)
        }
}

;---- new gui ----

OpenOne:
        NewGui()
return

;  #Space::NewGui()

NewGui(x="", y="", w="", h="", color="", resize="")
{
global
n := ExFromList(guiList,1)
guiList := RemoveFromList(guiList, n)
Gui %n%:Default
Gui +Lastfound +Toolwindow -Caption +0x800000 +AlwaysOnTop
Gui -Caption
if (resize = "")
        resize := default_resize
if (color = "")
        color := default_color
if (w = "")
        w := default_width
if (h = "")
        h := default_height
id := WinExist()
num%id% = %n%
this_color%n% = %color%
this_resize%n% = %resize%
Gui, Color, %color%
WinSet, Transparent, %default_trans%
if (resize)
        Gui +Resize
if (x <> "")
        Gui Show, w%w% h%h% x%x% y%y%
else
        Gui Show, w%w% h%h%
this_active%n% = 1
}

;----- context menu ----

WM_RBUTTONDOWN() {
global
lastGui = %a_gui%
WinGetActiveStats, a_title, a_w, a_h, a_X, a_Y
SysGet, a_border, 32
Menu, ctxt, Show
}

Color:
n := ExFromList(guiList,1)
guiList := RemoveFromList(guiList, n)
c := ColorPicker("","",-1,n)
guiList := AddToList(guiList, g)
If ( c )
{
        Gui, %lastGui%: Color, % c        
                this_color%lastGui% = %c%
}
return

ColorAll:
n++
c := ColorPicker("","",-1,n)
n--
If ( ! c )
        return
Loop % n 
{
        Gui, %a_index%: Color, % c      
                this_color%a_index% = %c%
}
return

Help:
h = 
(
Win + Space: New Gui
Left mouse button: Move
Ctrl + Left mouse button: Size
Middle mouse button: Close
)
Msgbox(h, "IconI bold BackgroundWhite -Owner","Help")
return

Exit:
ExitApp

ShowResizeBorder:
        Gui, %lastGui%: +Resize
        Gui, %lastGui%: Show
        
        this_resize%lastGui% = 1
return

HideResizeBorder:
        Gui, %lastGui%: -Resize
        Gui, %lastGui%: Show
        this_resize%lastGui% = 0
return

Duplicate:
        if (this_resize%lastGui%)
                border := a_border + 2  
        else
                border := 0
        NewGUI("", "", a_w-border, a_h-border, color%lastGui%, this_resize%lastGui%)
return

CloseThis:
Gui %lastGui%: destroy
guiList := AddToList(guiList, lastGui)
return

CloseAll:
Loop 99
        if (this_active%a_index%)
        {
                Gui %a_index%: destroy
                guiList := AddToList(guiList, a_index)  
        }
return

ShowCoordinates:
        WinGetActiveStats, title, w, h, X, Y 
        Msgbox x=%x%`ny=%y%`nwidth=%w%`nheight=%h%
return

;-------- move --------

Move() {
SetBatchLines -1
WinGetPos, wx, wy, ww, wh
MouseMove, ww, wh
CoordMode Mouse, Screen
Loop {
                If ! GetKeyState("LButton","P")
                        break
                MouseGetPos, x, y
                x -= wx
                y -= wy
                If ( x  < 10 )
                        x = 10
                If ( y < 10 )
                        y = 10
                WinMove,,,,, x, y
        }
}

WM_LBUTTONDOWN() {
If GetKeyState("Ctrl")
        Move()
else
        PostMessage, 0xA1, 2
}

;------- close ------ 

WM_MBUTTONDOWN() {
global 
id := WinExist()
g := num%id%
Gui %g%: destroy
guiList := AddToList(guiList, g)
this_active%g% = 0
}