Clean this for me?

[juliobrazil]

Hi! well, this is pretty much is a script request, can anyone please clean this script out and fix a couple of things?. What I really want.

>No random stuff, Just UP DOWN sent to my game.

>And to send a right click in WoW to the MIDDLE of the screen every 4 minutes.

(I read something about ControlClick but could not understand it)

Thanks for reading my post!

expandcollapse popup

; ---------------------------------------------------------------------------- 
; 
; AutoIt Version:        3.2.0 
; Author:                The-Chad <chadscrib@gmail.com> 
; Website:              OnlineGameHacker <www.OnlineGameHacker.com> 
; Script Function:      Anti Afk 
; 
; ---------------------------------------------------------------------------- 


HotKeySet("{F9}", "hide") 
HotKeySet("{F10}", "show") 
AutoItSetOption("WinTitleMatchMode", 4) 
While 1 
   Sleep(1000) 
WEnd 

Func hide() 
   Global $Show = 0 
   Global $handle = WinGetHandle("classname=GxWindowClassD3d") 
   WinSetState($handle, "", @SW_MINIMIZE) 
   WinSetState($handle, "", @SW_HIDE) 
   If @error Then 
      MsgBox(0, "error", "couldnt find WoW") 
   Else 
      While 1 
         $unique = Random(1, 4, 1) 
         If $unique = 1 Then 
            ControlSend($handle, "", "", "{UP DOWN}") 
            Sleep(100 + Random(1, 50, 1)) 
            ControlSend($handle, "", "", "{UP UP}") 
            ControlSend($handle, "", "", "{DOWN DOWN}") 
            Sleep(100 + Random(1, 50, 1)) 
            ControlSend($handle, "", "", "{DOWN UP}") 
            Sleep(200000 + Random(5000, 15000, 1)) 
         ElseIf $unique = 2 Then 
            ControlSend($handle, "", "", "{RIGHT DOWN}") 
            Sleep(100 + Random(1, 50, 1)) 
            ControlSend($handle, "", "", "{RIGHT UP}") 
            ControlSend($handle, "", "", "{LEFT DOWN}") 
            Sleep(100 + Random(1, 50, 1)) 
            ControlSend($handle, "", "", "{LEFT UP}") 
            Sleep(200000 + Random(5000, 15000, 1)) 
         ElseIf $unique = 3 Then 
            ControlSend($handle, "", "", "{DOWN DOWN}") 
            Sleep(100 + Random(1, 50, 1)) 
            ControlSend($handle, "", "", "{DOWN UP}") 
            ControlSend($handle, "", "", "{UP DOWN}") 
            Sleep(100 + Random(1, 50, 1)) 
            ControlSend($handle, "", "", "{UP UP}") 
            Sleep(200000 + Random(5000, 15000, 1)) 
         ElseIf $unique = 4 Then 
            ControlSend($handle, "", "", "{LEFT DOWN}") 
            Sleep(100 + Random(1, 50, 1)) 
            ControlSend($handle, "", "", "{LEFT UP}") 
            ControlSend($handle, "", "", "{RIGHT DOWN}") 
            Sleep(100 + Random(1, 50, 1)) 
            ControlSend($handle, "", "", "{RIGHT UP}") 
            Sleep(200000 + Random(5000, 15000, 1)) 
         EndIf 
         If $Show > 0 Then ExitLoop 
      WEnd 
   EndIf 
EndFunc  ;==>hide 

Func show() 
   Global $Show = 1 
   WinSetState("World of Warcraft", "", @SW_SHOW) 
   WinSetState("World of Warcraft", "", @SW_MAXIMIZE) 
   WinActivate($handle, "") 
EndFunc  ;==>show

Edited March 17, 2007 by juliobrazil

[SmOke_N]

http://www.autoitscript.com/autoit3/docs/