Jump to content

Recommended Posts

Posted

Hey , I only know about about this stuff , I want to make a bot for this game called mu online.

#NoTrayIcon
if FileExists (@ScriptDir & "config.ini\") Then
    Dim $SkillButton = IniRead( @ScriptDir & "config.ini\" , "BuffCheckers" , "HealButton" , 1)
        Dim $SkillButton = IniRead( @ScriptDir & "config.ini\" , "BuffCheckers" , "SkillButton" , 5)
            Dim $SkillButton = IniRead( @ScriptDir & "config.ini\" , "BuffCheckers" , "DefenseButton" , 2)
                Dim $SkillButton = IniRead( @ScriptDir & "config.ini\" , "BuffCheckers" , "AttackButton" , 3)
            Else
                Dim $SkillButton = 5 , $HealButton = 1 , $DefenseButton = 2 , $AttackButton = 1
                EndIf
HotKeySet ("+{F5}",  "AE_Pattern"    )
HotKeySet ("+{F6}",  "AE_Pattern_Plus")
HotKeySet ("+{F9}",  "Left_Click"    )
HotkeySet ("+{F10}", "Stop"        )
HotKeySet ("+{F11}", "Right_Click"  ); + = Shift Key

Opt ("WinTitleMatchMode", 3   )
Opt ("MouseClickDownDelay", 55)
Opt ("MouseClickDelay", 1    )
Opt ("SendKeyDownDelay", 10   )
Opt ("SendKeyDelay", 1      )
Opt ("CaretCoordMode", 2      )

Dim $Skill_Delay, $Buff_Delay1, $Key_Delay = 1, $HC = 0 , $AC = 0 , $DC = 0 ,$APRC,$APLC,$APBC,$APHC,$Msg

GuiCreate( "Hybrid Bot V1.3", 400, 300,50,50)
GUISetFont(8,100,1,"")
$FileMenu=GuiCtrlCreateMenu( "File")
$Save=GuiCtrlCreateMenuItem( "Save",$FileMenu)
$defualt=GuiCtrlCreateMenuItem( "Default",$FileMenu)
$AboutMenu=GUICtrlCreateMenu( "Other")
$About=GUICtrlCreateMenuitem("About",$AboutMenu)
GuiCtrlCreateGroup( "Options of Buff" , 10 , 10, 150,110)
$HealCheck=GuiCtrlCreateCheckBox( "Heal" , 20 , 30, 100,20)
$DefenseCheck=GuiCtrlCreateCheckBox( "Defense" , 20 , 50,100,20)
$AttackCheck=GUICtrlCreateCheckbox( "Attack" , 20 , 70,100,20)
GUISetFont(9 ,400,4,"Maryiad Web Pro Bold")
GUICtrlCreateLabel( "Enjoy!",20,90,100,20)
GUISetFont(8,100,1,"")
GuiCtrlCreateGroup( "Options of Keys" , 10 ,120 , 150 , 145)
$SkillInput = GUICtrlCreateInput ("5",20, 140, 50,20)
$SkillUpdown = GUICtrlCreateUpdown($SkillInput)
GuiCtrlCreateLabel( "Attack Skill",75,143,60,20)
GuiCtrlSetLimit( $SkillUpdown, 9,1)
$HealInput = GuiCtrlCreateInput ("1",20,165,50,20)
$HealUpdown = GUICtrlCreateUpdown($HealInput)
GUICtrlCreateLabel( "Heal Buff" , 75,168,60,20)
GuiCtrlSetLimit( $HealUpdown, 9 ,1)
$DefenseInput = GuiCtrlcreateInput( "2",20 ,193,50,20)
$DefenseUpdown = GUICtrlCreateUpdown($DefenseInput)
GuiCtrlCreateLabel( "Def Buff", 75 , 198 ,60 ,20)
GuiCtrlSetLimit ( $DefenseUpdown, 9,1)
$AttackInput = GuiCtrlCreateInput("3",20,223,50,20)
$AttackUpdown = GUICtrlCreateUpdown($AttackInput)
GUICtrlCreateLabel( "Attack Buff" , 75 ,228 ,60 ,20)
GuiCtrlSetLimit($AttackUpdown, 9 ,1 )
GuiCtrlCreateGroup( "AutoPickers" , 170, 10, 150,110)
$APB=GuiCtrlCreateCheckBox( "While AE",180,30,100,20)
$APH=GUICtrlCreateCheckbox( "While Hybrid",180,50,100,20)
$APL=GUICtrlCreateCheckbox( "While LeftClick",180,70,100,20)
$APR=GUICtrlCreateCheckbox( "While RightClick",180,90,100,20)

GuiCtrlCreateGroup( "Instructions",170,120,200,145)

GUICtrlCreateLabel( "Welcome to the Hybrid bot V1.3" & @CRLF & "To use it press Shift + Button" & @Crlf & "Here is the list of buttons" & @CRLF & "Shift+F5 - AE Bot" & @CRLF & "Shift+F6 - Hybrid Bot" & @CRLF & "Shift+F9 - LeftClicker" & @CRLF & "Shift+F10 - Stoping all Functions" & @CRLF & "Shift+F11 - RightClicker" & @CRLF & "Enjoy. Made By zzxxzzxx and Misha", 180,140,170,120)
GUISetState ()


Func Left_Click (); Continuously Pressing Left Click.
    While (1)
        If WinActive("MU") Then
            MouseClick ("Left")
            if $APLC = 1 Then
            Send (" ", 1)
            Endif
            MouseUp ("Right")
        Else
            MouseClick ("Left")
            if $APLC = 1 Then
            Send (" ", 1)
            EndIf
            MouseUp ("Right")
        EndIf
    WEnd
EndFunc

Func Right_Click (); Continuously Pressing Right Click.
    While (1)
        If WinActive("MU") Then
            MouseClick ("Right")
            if $APRC = 1 Then
            Send (" ", 1)
            EndIf
            MouseUp ("Right")
        Else
            MouseClick ("Right")
            if $APRC =1 Then
            Send (" ", 1)
            EndIf
            Sleep(25)
            MouseUp ("Right")
            EndIf
    WEnd
EndFunc

Func AE_Pattern (); Skills In Fixed Pattern (L, R, LUU, RUU, LD, RD, LU, RU, U, D).
    Dim $x[11] = ['', 315, 495, 320, 480, 355, 440, 315, 495, 405, 405]
    Dim $y[11] = ['', 290, 290, 180, 180, 320, 310, 245, 245, 150, 320]
    While (1)
        If WinActive("MU") Then
            For $p = 1 To 10
                $Skill_Delay = 25
                if $APBC = 1 Then
                Send ("{"&$SkillButton&"} ")
            Else
                Send($SkillButton)
                EndIf
                Sleep ($Key_Delay)
                MouseClick ("Right", $x[$p] ,$y[$p] , 1)
                Skill_Delay ()
            Next
        EndIf
    WEnd
EndFunc

Func AE_Pattern_Plus (); Buff & Skills In Fixed Pattern (L, R, LUU, RUU, LD, RD, LU, RU, U, D).
    Local $x[11] = ['', 335, 440, 355, 445, 390, 420, 390, 420, 405, 405]
    Local $y[11] = ['', 290, 290, 245, 245, 300, 300, 280, 280, 270, 300]
    $Buff_Delay = 15; Change Here For Buff Delay.
    While (1)
        If WinActive("MU") Then

I need help 1. editing where the mouse moves on the screen

Posted

maybe

Opt("MouseCoordMode", 1) ;1=absolute, 0=relative, 2=client

and this cant be right

Dim $SkillButton = IniRead( @ScriptDir & "config.ini\" , "BuffCheckers" , "HealButton" , 1)

Dim $SkillButton = IniRead( @ScriptDir & "config.ini\" , "BuffCheckers" , "SkillButton" , 5)

Dim $SkillButton = IniRead( @ScriptDir & "config.ini\" , "BuffCheckers" , "DefenseButton" , 2)

Dim $SkillButton = IniRead( ...

8)

NEWHeader1.png

Posted

wouldnt it be ("MouseCoordMode", 2)

# MY LOVE FOR YOU... IS LIKE A TRUCK- #
Posted

what would that do ?

Arnt you wanting it to click to the right coordinates? because youd have to set it to client.
# MY LOVE FOR YOU... IS LIKE A TRUCK- #
Posted

this is a bot that auto attacks. so I can go to bed and afk. the co-ords I want to put in are like from autotit window info. so the mouse moves around the screen rightclick.

Posted (edited)

Is this bot only for you? Or do your friends want to use it too?

And then you declare one variable 5 times or 4 times and i think it would be possible for you to change this...

It isnt hat much difficult...

€: and we are not script slaves...

Edited by Daniel W.

--------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]

Posted

If you understand than you can change it yourself ...

(Very secret: Rename $Skillbutton to other variables )

--------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]

Posted

I don't understand can somone fix the bot to it simply just moves the mouse around ( I can imput those details) but I have made many mistakes if someone could spend 2 mins doing it. I would be greatfull

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
  • Recently Browsing   0 members

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