RMB + Scroll = zoom

[MastrUsr]

Hello!
This is my first post

I finally got this working and thought i'd share it with you guys!
This code send ctrl + numpad add/sub to zoom in/out when the right mouse button is held down and the wheel is scrolled. The context menu wont pop up after release and the normal button functionality is kept.

Any suggestions to make this better (or correct any faults ) is very welcome!

Code: Select all

~RButton Up::
	if (var=1)
	{
		Sleep, 10
		var:=0
		sendinput, {Esc}
	}
Return

~RButton & WheelUp::
	var:=1
	if (var=1)
    {
	  sendinput, {CTRLDOWN} {NumpadAdd} {CTRLUP}
	}
return

~RButton & WheelDown::
	var:=1
	if (var=1)
    {
	  sendinput, {CTRLDOWN} {NumpadSub} {CTRLUP}
	}
return