охохо)
вот тебе рабочий макрос, он несколько обрезанный, но функцию свою выполняет) для AutoIt
Global $Paused
HotKeySet("`", "TogglePause")
HotKeySet("{DEL}", "Terminate")
$a = InputBox( "Question", "Delay between clicks?", "4000" )
$b = 0
WinActivate ("Darkfall Online")
Sleep( 600 )
Sleep (600)
$i = 0
While $i <= 10000000000
Sleep (300)
Harvest()
Sleep (300)
Harvest2()
Sleep (300)
$i = $i + 1
Wend
Func Harvest()
$m = 0
$b = 0
While $m < 6
$b = $b + 1
If $b = 1 Then Sleep(250)
If $b = 1 Then Send("1")
If $b = 1 Then sleep(250)
If $b = 1 Then Send("3")
If $b = 1 Then $m = $m + 1
If $b = 1 Then sleep(250)
If $b = 2 Then Send("2")
If $b = 2 Then sleep(250)
If $b = 2 Then Send("4")
If $b = 2 Then $m = $m + 1
If $b = 2 Then sleep(250)
If $b = 3 Then Send("1")
If $b = 3 Then sleep(250)
If $b = 3 Then Send("5")
If $b = 3 Then $m = $m + 1
If $b = 3 Then sleep(250)
If $b = 4 Then Send("2")
If $b = 4 Then sleep(250)
If $b = 4 Then Send("6")
If $b = 4 Then $m = $m + 1
If $b = 4 Then sleep(250)
If $b = 5 Then Send("1")
If $b = 5 Then sleep(250)
If $b = 5 Then Send("7")
If $b = 5 Then $m = $m + 1
If $b = 5 Then sleep(250)
If $b = 6 Then Send("2")
If $b = 6 Then sleep(250)
If $b = 6 Then Send("8")
If $b = 6 Then $m = $m + 1
If $b = 6 Then sleep(250)
If $b = 6 Then $b = 0
MouseClick( "Left" )
Sleep( $a )
WEnd
Sleep (300)
Send ("H")
Sleep (900)
Send("u")
Sleep (300)
EndFunc
Func Harvest2()
$m = 0
$b = 0
While $m < 6
$b = $b + 1
If $b = 1 Then Sleep(250)
If $b = 1 Then Send("1")
If $b = 1 Then sleep(250)
If $b = 1 Then Send("3")
If $b = 1 Then $m = $m + 1
If $b = 1 Then sleep(250)
If $b = 2 Then Send("2")
If $b = 2 Then sleep(250)
If $b = 2 Then Send("4")
If $b = 2 Then $m = $m + 1
If $b = 2 Then sleep(250)
If $b = 3 Then Send("1")
If $b = 3 Then sleep(250)
If $b = 3 Then Send("5")
If $b = 3 Then $m = $m + 1
If $b = 3 Then sleep(250)
If $b = 4 Then Send("2")
If $b = 4 Then sleep(250)
If $b = 4 Then Send("6")
If $b = 4 Then $m = $m + 1
If $b = 4 Then sleep(250)
If $b = 5 Then Send("1")
If $b = 5 Then sleep(250)
If $b = 5 Then Send("7")
If $b = 5 Then $m = $m + 1
If $b = 5 Then sleep(250)
If $b = 6 Then Send("2")
If $b = 6 Then sleep(250)
If $b = 6 Then Send("8")
If $b = 6 Then $m = $m + 1
If $b = 6 Then sleep(250)
If $b = 6 Then $b = 0
MouseClick( "Left" )
Sleep( $a )
WEnd
Sleep (300)
Send ("H")
Sleep (900)
Send("u")
Sleep (600)
EndFunc
Func Terminate( )
Exit 0
EndFunc
работает сей кусок кода примерно так - нужен 1 чистый хотбар, в слоты 1 и 2 ставишь посохи в слоты с 3 по 8 включительно, ставишь спеллы) запускаешь и он начинает перебирать палки, а затем кастовать спеллы.
где то еще были куски кода, от этого макроса, на восстановление и автозамену сломанной палки, но я хз
потерялось)
- Мне нужен твой асфальт, нутелла и попугай!