Post by Kindreth Kin on Jul 13, 2005 15:00:31 GMT -5
now u need to know a little it about programing for this progam. it is called autoIt 3.
www.AutoIt.com
with the program and with this below that u can change u will be able to afk craft grinding
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
Dim $Cnt
WinActivate("SwgClient")
Sleep(2000)
For $Cnt = 1 To 325
Send("{F3}") ;Start Crafting
Sleep(8000)
MouseClick("left",935,729) ;Schematic to Assemble
Sleep(4000)
MouseClick("left",351,391,2) ;Ingredient 1
Sleep(4000)
MouseClick("left",351,391,2) ;Ingredient 2
Sleep(4000)
MouseClick("left",419,390,2) ;Ingredient 3
Sleep(4000)
MouseClick("left",908,809) ;Assemble to Result
Sleep(5000)
MouseClick("left",815,761) ;Result to Prototype
Sleep(5000)
MouseClick("left",870,761) ;Finish
Sleep(10000)
$Cnt = $Cnt + 1
Send("{F4}") ;Start Crafting
Sleep(8000)
MouseClick("left",935,729) ;Schematic to Assemble
Sleep(4000)
MouseClick("left",351,391,2) ;Ingredient 1
Sleep(4000)
MouseClick("left",351,391,2) ;Ingredient 2
Sleep(4000)
MouseClick("left",419,390,2) ;Ingredient 3
Sleep(4000)
MouseClick("left",908,809) ;Assemble to Result
Sleep(5000)
MouseClick("left",815,761) ;Result to Prototype
Sleep(5000)
MouseClick("left",870,761) ;Finish
Sleep(10000)
$Cnt = $Cnt + 1
Send("{F5}") ;Start Crafting
Sleep(8000)
MouseClick("left",935,729) ;Schematic to Assemble
Sleep(4000)
MouseClick("left",351,391,2) ;Ingredient 1
Sleep(4000)
MouseClick("left",351,391,2) ;Ingredient 2
Sleep(4000)
MouseClick("left",419,390,2) ;Ingredient 3
Sleep(4000)
MouseClick("left",908,809) ;Assemble to Result
Sleep(5000)
MouseClick("left",815,761) ;Result to Prototype
Sleep(5000)
MouseClick("left",870,761) ;Finish
Sleep(10000)
Next
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip("Items Crafted: " & $Cnt,0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
www.AutoIt.com
with the program and with this below that u can change u will be able to afk craft grinding
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
Dim $Cnt
WinActivate("SwgClient")
Sleep(2000)
For $Cnt = 1 To 325
Send("{F3}") ;Start Crafting
Sleep(8000)
MouseClick("left",935,729) ;Schematic to Assemble
Sleep(4000)
MouseClick("left",351,391,2) ;Ingredient 1
Sleep(4000)
MouseClick("left",351,391,2) ;Ingredient 2
Sleep(4000)
MouseClick("left",419,390,2) ;Ingredient 3
Sleep(4000)
MouseClick("left",908,809) ;Assemble to Result
Sleep(5000)
MouseClick("left",815,761) ;Result to Prototype
Sleep(5000)
MouseClick("left",870,761) ;Finish
Sleep(10000)
$Cnt = $Cnt + 1
Send("{F4}") ;Start Crafting
Sleep(8000)
MouseClick("left",935,729) ;Schematic to Assemble
Sleep(4000)
MouseClick("left",351,391,2) ;Ingredient 1
Sleep(4000)
MouseClick("left",351,391,2) ;Ingredient 2
Sleep(4000)
MouseClick("left",419,390,2) ;Ingredient 3
Sleep(4000)
MouseClick("left",908,809) ;Assemble to Result
Sleep(5000)
MouseClick("left",815,761) ;Result to Prototype
Sleep(5000)
MouseClick("left",870,761) ;Finish
Sleep(10000)
$Cnt = $Cnt + 1
Send("{F5}") ;Start Crafting
Sleep(8000)
MouseClick("left",935,729) ;Schematic to Assemble
Sleep(4000)
MouseClick("left",351,391,2) ;Ingredient 1
Sleep(4000)
MouseClick("left",351,391,2) ;Ingredient 2
Sleep(4000)
MouseClick("left",419,390,2) ;Ingredient 3
Sleep(4000)
MouseClick("left",908,809) ;Assemble to Result
Sleep(5000)
MouseClick("left",815,761) ;Result to Prototype
Sleep(5000)
MouseClick("left",870,761) ;Finish
Sleep(10000)
Next
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip("Items Crafted: " & $Cnt,0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc