Jump to content

Auto Combo for MuOnline


Recommended Posts

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.

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 by Lemonadez
Link to comment
Share on other sites

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.

Link to comment
Share on other sites

I think you need something like this

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
Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.
Link to comment
Share on other sites

  • 1 year later...

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.

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:

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?

Link to comment
Share on other sites

@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. ...

TCP server and client - Learning about TCP servers and clients connection
Au3 oIrrlicht - Irrlicht project
Au3impact - Another 3D DLL game engine for autoit. (3impact 3Drad related)



460px-Thief-4-temp-banner.jpg
There are those that believe that the perfect heist lies in the preparation.
Some say that it’s all in the timing, seizing the right opportunity. Others even say it’s the ability to leave no trace behind, be a ghost.

 
Link to comment
Share on other sites

  • 10 years later...
  • Developers
6 minutes ago, Zumbrah said:

nice

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

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

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...