Jump to content

Help me please


Recommended Posts

First of all...Rapidshare Sucks!! SendSpace.com!

Second, we know you didn't make this program, and I don't trust it, so, I am not really helpful!

EDIT: Good news for you, it's a old AutoIt version, which means you can decompile it with the old decompiler that comes with AutoIt! I did it for you. Heres it's source.

; <AUT2EXE VERSION: 3.0.102.0>

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: C:\Documents and Settings\SSHS4\My Documents\Autoit files\ac3.au3>
; ----------------------------------------------------------------------------

; <AUT2EXE VERSION: 3.0.102.0>


MsgBox(0, "Tacoman14's Autoclicker V3", "AutoClicker Seccessfully Loaded"  & @CRLF & "F8====> AutoBuffer" & @CRLF & "F9====> Left Click" & @CRLF & "F10====> Right Click" & @CRLF & "F11====> Stop Clicks" & @CRLF & " " & @CRLF & "Please Do the Follow Before using the AutoBuff Feature:" & @CRLF & "Set your Defence Buff to #2" & @CRLF & "Set your Attack Buff to #3" & @CRLF & "Set your Heal to #6" & @CRLF & "Set your Game Resolution to 1280x1024" & @CRLF & " " & @CRLF & "Not doing so will result in the autobuff not working...")



HotKeySet("{F9}", "startclick")
HotkeySet("{F11}", "HK_STOP")
Hotkeyset("{F10}",  "Rightclick")
HotKeySet("{F8}",  "Autobuff")

; This is the clicking function
Func startclick()
; Continuous loop that clicks the left mouse button
while(1)
MouseClick("left")
Opt("MouseClickDelay", 20)
WEnd
EndFunc

Func Rightclick()
; Continuous loop that clicks the left mouse button
while(1)
MouseClick("Right")
WEnd
EndFunc

Func Autobuff()
While (1)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,25)
Opt("MouseClickDownDelay", 200)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,25)
Opt("MouseClickDownDelay", 200)
Send("6")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,25)
Opt("MouseClickDownDelay", 700)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,65)
Opt("MouseClickDownDelay", 200)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,65)
Opt("MouseClickDownDelay", 200)
Send("6")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,65)
Opt("MouseClickDownDelay", 700)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,105)
Opt("MouseClickDownDelay", 200)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,105)
Opt("MouseClickDownDelay", 200)
Send("6")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,105)
Opt("MouseClickDownDelay", 700)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,160)
Opt("MouseClickDownDelay", 200)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,160)
Opt("MouseClickDownDelay", 200)
Send("6")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,160)
Opt("MouseClickDownDelay", 700)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,195)
Opt("MouseClickDownDelay", 200)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,195)
Opt("MouseClickDownDelay", 200)
Send("6")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,195)
Opt("MouseClickDownDelay", 700)

Wend
Endfunc


; Stops the program
Func HK_STOP()
while 1 = 1
  Sleep(1000)
wend
EndFunc

; Need to keep the program running until you press the hotkey
while(1)
sleep(1000)
WEnd



; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Documents and Settings\SSHS4\My Documents\Autoit files\ac3.au3>
; ----------------------------------------------------------------------------
Edited by R6V2
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...