Sign in to follow this  
Followers 0
Meshios

Bot Need help

12 posts in this topic

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

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

can you make it right ? or so it works ? a

Share this post


Link to post
Share on other sites

wouldnt it be ("MouseCoordMode", 2)


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

Share this post


Link to post
Share on other sites

what would that do ?

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

come on

Share this post


Link to post
Share on other sites

#9 ·  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]

Share this post


Link to post
Share on other sites

I understnad , this is just the basis , I can make it into a program , I just need the script corrected.

Share this post


Link to post
Share on other sites

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]

Share this post


Link to post
Share on other sites

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

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