Meshios Posted June 26, 2006 Share Posted June 26, 2006 Hey , I only know about about this stuff , I want to make a bot for this game called mu online. expandcollapse popup#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 More sharing options...
Valuater Posted June 26, 2006 Share Posted June 26, 2006 maybeOpt("MouseCoordMode", 1) ;1=absolute, 0=relative, 2=clientand this cant be rightDim $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) Link to comment Share on other sites More sharing options...
Meshios Posted June 26, 2006 Author Share Posted June 26, 2006 can you make it right ? or so it works ? a Link to comment Share on other sites More sharing options...
AzKay Posted June 26, 2006 Share Posted June 26, 2006 wouldnt it be ("MouseCoordMode", 2) # MY LOVE FOR YOU... IS LIKE A TRUCK- # Link to comment Share on other sites More sharing options...
Meshios Posted June 26, 2006 Author Share Posted June 26, 2006 what would that do ? Link to comment Share on other sites More sharing options...
AzKay Posted June 26, 2006 Share Posted June 26, 2006 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 More sharing options...
Meshios Posted June 26, 2006 Author Share Posted June 26, 2006 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. Link to comment Share on other sites More sharing options...
Meshios Posted June 26, 2006 Author Share Posted June 26, 2006 come on Link to comment Share on other sites More sharing options...
Daniel W. Posted June 26, 2006 Share Posted June 26, 2006 (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 June 26, 2006 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 More sharing options...
Meshios Posted June 27, 2006 Author Share Posted June 27, 2006 I understnad , this is just the basis , I can make it into a program , I just need the script corrected. Link to comment Share on other sites More sharing options...
Daniel W. Posted June 27, 2006 Share Posted June 27, 2006 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 More sharing options...
Meshios Posted June 27, 2006 Author Share Posted June 27, 2006 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 More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now