'Script Copyright  2012 Ryan Marshall (Skarn)
'All Rights Reserved
'
'Permission granted to Jim Dillard (RedneckDude)
'for use in 'Imbezzeled DX' theme produced by Jim Dillard.

Dim lastState

Sub dxInit()
	lastState = "upState"
	Object.State = "upState"
End Sub

Sub Object_OnScriptEnter
	Call dxInit()
End Sub

Function Object_OnLButtonUpEx(obj,x,y,dragged)
	If dragged = False Then
		If lastState = "upState" Then
			obj.State = "downState"
			lastState = "downState"
		ElseIf lastState = "downState" Then
			obj.State = "upState"
			lastState = "upState"
		End If
	End If
End Function

Sub Object_OnStateChangeEx(obj,state)
	If state <> "downState" And state <> "upState" Then
		Object.StatePreempt = lastState
	End If
End Sub
