Megaten BOt

08/15/2012 09:33 hiram2#1
So iam making a expertise trainer to be use in Virtual battle in megaten i can do pretty much everything i can target the mobs and selectem but when the code must atack them it do nothing i dont know why if some one can help me thxs :D.
IS aoutoit

Code:
#include <ResFinder.au3>
#include <Colors.au3>
 
While 1
        HotKeySet("{F1}", "Go")
       
		
WEnd
 
Func Go()
        While 1
                For $i = 0 To 12 Step +1
                        $move = PixelSearch($res[0], $res[1], $res[2], $res[3], $colors[$i])
                        If @error <> 1 Then
                                MouseMove($move[0], $move[1], 5)
                                MouseDown("left")
                                MouseUp("left")
 
                                ; Call("clicked")
                                ; MsgBox(0, " ", "Clicked Was Called")
                                $clicked = 0
                                $clicolor = PixelGetColor($res[0] + 33, $res[1] + 51) ; 2244435
 
                                For $u = 0 To 100 Step +1
                                        If $clicolor = PixelGetColor($res[0] + 33, $res[1] + 51) Then
                                                Sleep(100)
                                        Else
                                                $clicked = 1
                                                ;MsgBox(0, " ", "Clicked = 1")w
                                                ExitLoop
                                        EndIf
                                Next
                                ; end click
 
                                If $clicked = 1 Then
                                        
                                MouseClick("left") 
				 Send( "{f2}" )
                                 Send( "{f2}" )
                                 Send( "{f3}" )
                                 Send( "{f3}" )
										
									   
                                EndIf
                                $clicolor = 0
                        EndIf
                Next
                $i = 0
        WEnd
	 EndFunc
09/25/2013 08:14 alphaxiii#2
i think i need to bump this.and also any tut topic you can put in?
11/15/2013 07:00 harabu#3
excuse me sir did you ever finish this bot if so i would like to know thank you