Auto Combo for MuOnline

[Lemonadez]

Here what I wanted the cycle to be

If i Right click press 1.

If i Right click again press 2

If i Right click again press 3

Or maybe its.

SendKey 1

If i press Right Click Send 2

If I press Right Click Send 3

Right click

then go back to begining again. the Sendkey "1",2,3 is a number on top of letters.

I Get Error on this one.

expandcollapse popup

TrayTip("[autocombo] F9 on f10 off.", 8 , 16)


Opt ("SendKeyDelay", 1     )

HotKeySet ("{F9}",  "combo" )


HotkeySet ("{F10}", "Stop"     )

Func combo ()

If Mouseclick("Right") Then
Send ("1", 1)
If Mouseclick("Right") Then
Send ("2", 1)
If Mouseclick("Right") Then
Send ("3", 1)
MouseUp("Right")
sleep(3)
Send ("1", 1)

EndFunc



;********** Stop **********

; Stops The Program.

Func Stop ()

While 1 = 1
Sleep (1000)
Wend

EndFunc

Edited October 1, 2008 by Lemonadez

[Lemonadez]

bump

[raj2734]

ok, well first you are using if statements wrong.

The syntax is

If <expression> Then statement

<do something>

EndIf

Second

Mouseclick("Right") will simulate a right mouse click for you. It is not the same as you saying "If right mouse click, do this" The return value refers to if the mouse click was simulated or not.

You might be able to associate a hotkey with a mouse click, i've never tried before. If you can do that than you create a couter of some sort and keep track of what Send command to use.

[martin]

I think you need something like this

expandcollapse popup

TrayTip("[autocombo] F9 on f10 off, F11 quit.", 8, 16)


Opt("SendKeyDelay", 1)
#include <misc.au3>

HotKeySet("{F9}", "combo")
HotKeySet("{F11}","Leave")

HotKeySet("{F10}", "StopGo")
Global $count = 1, $halt = False
while 1
    sleep(50)
WEnd

Func Combo()
    $halt = false
    While 1
        
        If _IsPressed("02") Then; if  right mouse button pressed
            Send(String($count))
            
            while _IsPressed("02");wait for key to be released
                sleep(30)
            WEnd
            
            $count += 1
            If $count > 3 Then $count = 1
        EndIf
        if $halt then return

    WEnd
EndFunc  ;==>Combo



Func StopGo();stop reacting to mouse button
    $halt = True
EndFunc  ;==>StopGo

Func Leave()
    Exit
EndFunc

[Rub3n5]

Here what I wanted the cycle to be

If i Right click press 1.

If i Right click again press 2

If i Right click again press 3

Or maybe its.

SendKey 1

If i press Right Click Send 2

If I press Right Click Send 3

Right click

then go back to begining again. the Sendkey "1",2,3 is a number on top of letters.

I Get Error on this one.

expandcollapse popup

TrayTip("[autocombo] F9 on f10 off.", 8 , 16)


Opt ("SendKeyDelay", 1     )

HotKeySet ("{F9}",  "combo" )


HotkeySet ("{F10}", "Stop"     )

Func combo ()

If Mouseclick("Right") Then
Send ("1", 1)
If Mouseclick("Right") Then
Send ("2", 1)
If Mouseclick("Right") Then
Send ("3", 1)
MouseUp("Right")
sleep(3)
Send ("1", 1)

EndFunc



;********** Stop **********

; Stops The Program.

Func Stop ()

While 1 = 1
Sleep (1000)
Wend

EndFunc

Hello My Code Is This Form:

expandcollapse popup

TrayTip("[autocombo] F9 on f10 off, F11 quit.", 8, 16)


Opt("SendKeyDelay", 1)
#include <misc.au3>

HotKeySet("{F9}", "combo")
HotKeySet("{F11}","Leave")

HotKeySet("{F10}", "StopGo")
Global $count = 1, $halt = False
while 1
    sleep(50)
WEnd

Func Combo()
    $halt = false
    While 1
        
        If _IsPressed("02") Then; if  right mouse button pressed
            Send(String($count))
            
            while _IsPressed("02");wait for key to be released
                sleep(30)
            WEnd
            
            $count += 1
            If $count > 3 Then $count = 1
        EndIf
        if $halt then return

    WEnd
EndFunc  ;==>Combo



Func StopGo();stop reacting to mouse button
    $halt = True
EndFunc  ;==>StopGo

Func Leave()
    Exit
EndFunc

How can I make the application Press the buttons 1,2,3 automatically when launching?

[bogQ]

@Rub3n5

You revived very old topic

And

Tearms Of Service

...in policing users who may develop and/or use "hacks" and/or "cheats" to gain advantage over other users. ...

...o) You may not exploit any bug, feature, or design within any WEBZEN product or Service. You may not intentionally use and/or share such information, real or fictitious, regardless of intent, or if it grants an unfair advantage. ...

[Zumbrah]

nice

[Jos]

6 minutes ago, Zumbrah said:

nice

...First post in a 10 years old thread with this one word..... because?