Jump to content

Bot Need help


Recommended Posts

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

Link to comment
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

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

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]

Link to comment
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]

Link to comment
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

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