Код:
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Close")
HotKeySet("{F7}", "Stacksword")
HotKeySet("{F8}", "StackHelm")
HotKeySet("{F9}", "Stackbody")
HotKeySet("{F10}", "Stackshield")
HotKeySet("{end}", "DoNothing")
WinActivate("Diablo II")
WinWaitActive("Diablo II")
WinMove("Diablo II", "", 0, 0)
Sleep(2000)
Func StackHelm()
While 1
MouseMove(237, 117, 3) ;237= width 117= height, change these number if ur screen resolution is not 1440 x 900 3= mouse speed
Sleep(Random(1, 2))
MouseClick("LEFT") ;clicks mercs helm
Sleep(Random(1, 2))
MouseMove(558, 117, 3) ;moves to char helm
Sleep(Random(1, 2))
MouseClick("LEFT") ;clicks char helm
Sleep(Random(1, 2))
MouseMove(239, 115, 3) ;moves to mercs helm
Sleep(Random(1, 2))
MouseClick("LEFT") ;clicks mercs helm
Sleep(Random(4, 5))
MouseMove(235, 120, 3) ;moves to mercs helm
Sleep(Random(1, 2))
MouseClick("LEFT") ;clicks mercs helm
Sleep(Random(1, 2))
MouseMove(555, 115, 3) ;moves to char helm
Sleep(Random(1, 2))
MouseClick("LEFT") ;clicks char helm
Sleep(Random(1, 2))
MouseMove(234, 114, 3) ;moves to mercs helm
Sleep(Random(1, 2))
MouseClick("LEFT") ;clicks mercs helm
Sleep(Random(4, 5))
WEnd
EndFunc ;==>StackHelm
Func Stacksword()
While 1
MouseMove(130, 190, 3) ;moves to mercs sword
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks mercs sword
Sleep(Random(10, 15))
MouseMove(450, 192, 3) ;moves to char sword
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks char sword
Sleep(Random(10, 15))
MouseMove(133, 187, 3) ;moves to mercs sword
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks mercs sword
Sleep(Random(147, 150))
MouseMove(131, 189, 3) ;moves to mercs sword
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks mercs sword
Sleep(Random(10, 15))
MouseMove(448, 191, 3) ;moves to char sword
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks char sword
Sleep(Random(10, 15))
MouseMove(130, 188, 3) ;moves to mercs sword
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks mercs sword
Sleep(Random(145, 150))
WEnd
EndFunc ;==>Stacksword
Func Stackbody()
While 1
MouseMove(240, 203, 3) ;moves to mercs body
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks mercs body
Sleep(Random(10, 15))
MouseMove(567, 207, 3) ;moves to char body
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks char body
Sleep(Random(10, 15))
MouseMove(236, 200, 3) ;moves to mercs body
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks mercs body
Sleep(Random(145, 150))
MouseMove(237, 204, 3) ;moves to mercs body
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks mercs body
Sleep(Random(10, 15))
MouseMove(566, 184, 3) ;moves to char body
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks char body
Sleep(Random(10, 15))
MouseMove(233, 177, 3) ;moves to mercs body
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks mercs body
Sleep(Random(145, 150))
WEnd
EndFunc ;==>Stackbody
Func Stackshield()
While 1
MouseMove(360, 190, 3) ;moves to mercs shield
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks mercs shield
Sleep(Random(10, 15))
MouseMove(680, 192, 3) ;moves to char shield
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks char shield
Sleep(Random(10, 15))
MouseMove(361, 187, 3) ;moves to mercs shield
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks mercs shield
Sleep(Random(147, 150))
MouseMove(359, 189, 3) ;moves to mercs shield
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks mercs shield
Sleep(Random(10, 15))
MouseMove(679, 191, 3) ;moves to char shield
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks char shield
Sleep(Random(10, 15))
MouseMove(362, 188, 3) ;moves to mercs shield
Sleep(Random(10, 15))
MouseClick("LEFT") ;clicks mercs shield
Sleep(Random(145, 150))
WEnd
EndFunc ;==>Stackshield
Func TogglePause()
While 1
WEnd
EndFunc ;==>TogglePause
Func DoNothing()
While 1
WEnd
EndFunc ;==>DoNothing
Func Close()
Exit
EndFunc ;==>Close
While 1
WEnd
делал для диабло2.
