;**********************
;* RoboTask Task file *
;* Do not edit!       *
;**********************
 
[Root]
ActionAfterRun=INTEGER|0
Actions=FOLDER
Automat=INTEGER|-1
CatID=INTEGER|1393962193
ContinueOnError=INTEGER|0
Events=FOLDER
ExternalName=STRING|"Task479"
Hide=INTEGER|0
ID=INTEGER|1140104690
Name=STRING|"Save and restore mouse position"
Priority=INTEGER|3
RunOnClose=INTEGER|0
RunOnStartup=INTEGER|0
ToLog=INTEGER|3

[Actions]
Action1=FOLDER
Action2=FOLDER
Action3=FOLDER

[Actions\Action1]
ActionID=STRING|"BASIC_SCRIPT"
Enabled=INTEGER|-1
Name=STRING|"Internal basic script"
Params=FOLDER

[Actions\Action1\Params]
line00000=STRING|"Public Type POINTAPI"
line00001=STRING|"        x As Long"
line00002=STRING|"        y As Long"
line00003=STRING|"End Type"
line00005=STRING|"Public Declare Function GetCursorPos Lib ""user32"" Alias ""GetCursorPos"" (lpPoint As POINTAPI) As Long"
line00007=STRING|"Sub Main"
line00008=STRING|"	Dim p As POINTAPI"
line00009=STRING|"	GetCursorPos(p)"
line00011=STRING|"	RoboTaskApp.SetUserVariable(""mouse_xpos"", CStr(p.x))"
line00012=STRING|"	RoboTaskApp.SetUserVariable(""mouse_ypos"", CStr(p.y))"
line00014=STRING|"End Sub"
linecount=STRING|"15"
source=STRING|"0"

[Actions\Action2]
ActionID=STRING|"A_DIALOG_MESSAGE"
Enabled=INTEGER|-1
Name=STRING|"Show ""Now you can move mouse. When you will press Enter (or Sapacebar) """
Params=FOLDER

[Actions\Action2\Params]
icon=STRING|"1"
msg0=STRING|"Now you can move mouse. When you will press Enter (or Sapacebar) "
msg1=STRING|"the mouse position will be restored."
msgcount=STRING|"2"
playsound=STRING|"0"
showmessage=STRING|"1"

[Actions\Action3]
ActionID=STRING|"BASIC_SCRIPT"
Enabled=INTEGER|-1
Name=STRING|"Internal basic script"
Params=FOLDER

[Actions\Action3\Params]
line00000=STRING|"Public Declare Function SetCursorPos Lib ""user32"" Alias ""SetCursorPos"" (ByVal x As Long, ByVal y As Long) As Long"
line00002=STRING|"Sub Main"
line00003=STRING|"	Dim x,y As Long"
line00005=STRING|"	x = CInt(RoboTaskApp.ExpandText(""{mouse_xpos}""))"
line00006=STRING|"	y = CInt(RoboTaskApp.ExpandText(""{mouse_ypos}""))"
line00008=STRING|"	SetCursorPos(x, y)"
line00010=STRING|"End Sub"
linecount=STRING|"11"
source=STRING|"0"

[Events]
Event1=FOLDER

[Events\Event1]
Enabled=INTEGER|-1
EventID=STRING|"E_GENERAL_HOTKEY"
Params=FOLDER

[Events\Event1\Params]
hotkey=STRING|"49224"