Sign in to follow this  
Followers 0
jimmyxxx

Some help

6 posts in this topic

Hi all am new with auto it and am working in a program for autoclicks (left and right for MU)

I have so far another script to use the button Q for potions, but i need to mix them in only 1 script

HotKeySet ( "{F6}", "SwitchToRUN" )

HotKeySet ( "{F7}", "SwitchToPAUSE" )

HotKeyset ( "{F8}", "QuitScript")

Dim $State = False

MsgBox(64, "AutoQ v1.2 by jimmyxxx", "AutoQ actived, F6 to start Q, F7 to stop and F8 to close")

While(1)

If($State = True)Then

Send( "q" )

EndIf

Sleep(10)

WEnd

Func SwitchToRUN()

$State = True

EndFunc

Func SwitchToPAUSE()

$State = False

EndFunc

Func QuitScript()

Exit

EndFunc

PD: how can i make spaces between every function in the Msgbox

Thanks for help :whistle:

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Srry for double post :whistle:

Edited by jimmyxxx

Share this post


Link to post
Share on other sites

PD: it can only be one function at time (right or left click) and the function must start with the same button as it stops (left click f9 and rightclick f10

Share this post


Link to post
Share on other sites

How about the following. I think it is what you mean and I think it should work :whistle:

HotKeySet ( "{F6}", "SwitchRunPause" )
HotKeyset ( "{F7}", "QuitScript")
HotKeyset ( "{F8}", "SwitchQ")
HotKeyset ( "{F9}", "SwitchLClick")
HotKeyset ( "{F10}", "SwitchRClick")

$run = false
$doLclick = false
$doRclick = false
$doQ = False

MsgBox(64, "AutoQ v1.2 by jimmyxxx", "AutoQ actived"& @CR & @CR &"F6 to run/pause script (script starts in Paused mode)"& @CR &"F7 to close"& @CR &"F8 to start/stop Q"& @CR &"F9 to start/stop LClick"& @CR &"F10 to start/stop RClick")

While 1
    If $run Then
        If $doLclick Then MouseClick("left")
        If $doRclick Then MouseClick("right")
        If $doQ Then Send("q")
    EndIf
    Sleep(100)
WEnd

Func SwitchRunPause()
    $run = Not $run
EndFunc

Func DoQ()
    $doQ = Not $doQ
EndFunc

Func SwitchLClick()
    $doLclick = Not $doLclick
EndFunc

Func SwitchRClick()
    $doRclick = Not $doRclick
EndFunc

Func SwitchQ()
    $doQ = Not $doQ
EndFunc

Func QuitScript()
    Exit
EndFunc

Exit

Roses are FF0000, violets are 0000FF... All my base are belong to you.

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

Yes in a way its right, but autoclick for left click and for right click "shouldnt" work at the same time. What i mean is when u press autoclick for left click, and then u wanna change for autoclick (right click) the left click should pause and so on.

, and the other thing is that unlocking script to work is a little confusing.

Anyway thanks very much for ur help.

Edited by jimmyxxx

Share this post


Link to post
Share on other sites

OK now it seems like this

HotKeyset ( "{F6}", "QuitScript")
HotKeySet ( "{F7}", "PauseAll" )
HotKeyset ( "{F8}", "SwitchQ")
HotKeyset ( "{F9}", "SwitchLClick")
HotKeyset ( "{F10}", "SwitchRClick")

$run = True
$doLclick = false
$doRclick = false
$doQ = False

MsgBox(64, "AutoQ v2 BETA by jimmyxxx", "AutoQ actived"& @CR & @CR &"-F6 to Close Program"& @CR &"-F7 to Pause All"& @CR &"-F8 to Start/Stop Q"& @CR &"-F9 to Start/Stop LeftClick"& @CR &"-F10 to Start/Stop RightClick")

While 1
    If $run Then
        If $doLclick Then MouseClick("left")
        If $doRclick Then MouseClick("right")
        If $doQ Then Send("q")
    EndIf
    Sleep(10)
WEnd

Func PauseAll()
    $doQ = Not $doQ
    $doLclick = Not $doLclick
    $doRclick = Not $doRclick
EndFunc

Func SwitchLClick()
    $doLclick = Not $doLclick
EndFunc

Func SwitchRClick()
    $doRclick = Not $doRclick
EndFunc

Func SwitchQ()
    $doQ = Not $doQ
EndFunc

Share this post


Link to post
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
Sign in to follow this  
Followers 0