Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Sat Jan 21, 2017 12:07 am

All times are UTC




Post new topic Reply to topic  [ 71 posts ]  Go to page 1, 2, 3, 4, 5 ... 8  Next
Author Message
 Post subject: move script[beta version]
Thanked: 10 time(s)  Unread post Posted: Wed Jul 27, 2016 7:34 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Tue May 13, 2014 9:30 pm
Posts: 983
Location: egypt,cairo
Been thanked: 130 time(s)
Has thanked: 36 time(s)
Contribution Points: 1156
whats up guys i have seen many ppl want a script that moves if u r botting in an area where mobs are far from eachother like maze / maze entrance
how my script works ? it moves till it finds a target if not found rotates right and moves if not found again
rotates left and moves till it find it and keeps looping till it finds one


at 1st u should put this line in ur killing bot
Code:
//put rgp of mob
if  Color.At coordinate is not (RGB)("130", "182", "215", "609", "64")
          begin
               Macro.Execute new("DMO", "move", "Yes")
          end



here is the moving script its a beta version u should make ur moves like that
up arrow = w
down = s
right = d
left = a

sometimes moving gets bugged if so decrease the macro.pause or divide it on other parts ( what i mean it was macro.pause(1400) then i divided it to 700 and 2 parts of moving if it didnt work try making the pause 500 and make another move i hope u understood ) another bug in the script :- it stops my killing bot but i dont think its my script cuz also my login/killing bot stops and bem crashes alot idk if its my script or bem or even the whole laptop :/ anyway u can try it and better name it move and put in DMO Cetagory and pls tell me the result

Code:
 begin
     Function.Execute("move")
 end

function("move")
     begin
          Macro.Pause("100")
//RGP of monster
          if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
               begin
                    Keyboard.Press key("4")
                    Macro.Pause("100")
                    Keyboard.Hold keys("w")
                    Macro.Pause("700")
                    Keyboard.Release keys("w")
                    Keyboard.Press key("{<tab>}")
//RGP of monster again and do it to the other lines
                    if  Color.At coordinate is (RGB)("65", "116", "151", "608", "60")
                         begin
                              Macro.Abort()
                         end
                    Keyboard.Hold keys("w")
                    Macro.Pause("700")
                    Keyboard.Release keys("w")
                    Keyboard.Press key("{<tab>}")
                    if  Color.At coordinate is (RGB)("65", "116", "151", "608", "60")
                         begin
                              Macro.Abort()
                         end
                    if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                         begin
                              Keyboard.Press key("4")
                              Macro.Pause("100")
                              Keyboard.Hold keys("d")
                              Macro.Pause("700")
                              Keyboard.Release keys("d")
                              Keyboard.Press key("{<tab>}")
                              if  Color.At coordinate is (RGB)("65", "116", "151", "608", "60")
                                   begin
                                        Macro.Abort()
                                   end
                              Keyboard.Hold keys("d")
                              Macro.Pause("700")
                              Keyboard.Release keys("d")
                              Keyboard.Press key("{<tab>}")
                              if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                   begin
                                        Keyboard.Hold keys("d")
                                        Macro.Pause("700")
                                        Keyboard.Release keys("d")
                                        Keyboard.Press key("{<tab>}")
                                        if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                             begin
                                                  Keyboard.Press key("4")
                                                  Macro.Pause("100")
                                                  Keyboard.Hold keys("s")
                                                  Macro.Pause("700")
                                                  Keyboard.Release keys("s")
                                             end
                                        Keyboard.Press key("{<tab>}")
                                        if  Color.At coordinate is (RGB)("65", "116", "151", "608", "60")
                                             begin
                                                  Macro.Abort()
                                             end
                                        if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                             begin
                                                  Keyboard.Hold keys("s")
                                                  Macro.Pause("700")
                                                  Keyboard.Release keys("s")
                                                  Keyboard.Press key("{<tab>}")
                                                  if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                                       begin
                                                            Keyboard.Press key("4")
                                                            Macro.Pause("100")
                                                            Keyboard.Hold keys("a")
                                                            Macro.Pause("700")
                                                            Keyboard.Release keys("a")
                                                            Keyboard.Press key("{<tab>}")
                                                            if  Color.At coordinate is (RGB)("65", "116", "151", "608", "60")
                                                                 begin
                                                                      Macro.Abort()
                                                                 end
                                                            if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                                                 begin
                                                                      Keyboard.Hold keys("a")
                                                                      Macro.Pause("700")
                                                                      Keyboard.Release keys("a")
                                                                      Keyboard.Press key("{<tab>}")
                                                                      if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                                                           begin
                                                                                Keyboard.Press key("4")
                                                                                Macro.Pause("100")
                                                                                Function.Execute("rotate")
                                                                                if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                                                                     begin
                                                                                          Keyboard.Press key("4")
                                                                                          Macro.Pause("100")
                                                                                          Function.Execute("leftrotate")
                                                                                     end
                                                                           end
                                                                 end
                                                       end
                                             end
                                   end
                         end
               end
     end
function

function("move2")
     begin
          Macro.Pause("100")
          if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
               begin
                    Keyboard.Press key("4")
                    Macro.Pause("100")
                    Keyboard.Hold keys("w")
                    Macro.Pause("700")
                    Keyboard.Release keys("w")
                    Keyboard.Press key("{<tab>}")
                    if  Color.At coordinate is (RGB)("65", "116", "151", "608", "60")
                         begin
                              Macro.Abort()
                         end
                    Keyboard.Hold keys("w")
                    Macro.Pause("700")
                    Keyboard.Release keys("w")
                    Keyboard.Press key("{<tab>}")
                    if  Color.At coordinate is (RGB)("65", "116", "151", "608", "60")
                         begin
                              Macro.Abort()
                         end
                    if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                         begin
                              Keyboard.Press key("4")
                              Macro.Pause("100")
                              Keyboard.Hold keys("d")
                              Macro.Pause("700")
                              Keyboard.Release keys("d")
                              Keyboard.Press key("{<tab>}")
                              if  Color.At coordinate is (RGB)("65", "116", "151", "608", "60")
                                   begin
                                        Macro.Abort()
                                   end
                              Keyboard.Hold keys("d")
                              Macro.Pause("700")
                              Keyboard.Release keys("d")
                              Keyboard.Press key("{<tab>}")
                              if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                   begin
                                        Keyboard.Hold keys("d")
                                        Macro.Pause("700")
                                        Keyboard.Release keys("d")
                                        Keyboard.Press key("{<tab>}")
                                        if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                             begin
                                                  Keyboard.Press key("4")
                                                  Macro.Pause("100")
                                                  Keyboard.Hold keys("s")
                                                  Macro.Pause("700")
                                                  Keyboard.Release keys("s")
                                             end
                                        Keyboard.Press key("{<tab>}")
                                        if  Color.At coordinate is (RGB)("65", "116", "151", "608", "60")
                                             begin
                                                  Macro.Abort()
                                             end
                                        if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                             begin
                                                  Keyboard.Hold keys("s")
                                                  Macro.Pause("700")
                                                  Keyboard.Release keys("s")
                                                  Keyboard.Press key("{<tab>}")
                                                  if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                                       begin
                                                            Keyboard.Press key("4")
                                                            Macro.Pause("100")
                                                            Keyboard.Hold keys("a")
                                                            Macro.Pause("700")
                                                            Keyboard.Release keys("a")
                                                            Keyboard.Press key("{<tab>}")
                                                            if  Color.At coordinate is (RGB)("65", "116", "151", "608", "60")
                                                                 begin
                                                                      Macro.Abort()
                                                                 end
                                                            if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                                                 begin
                                                                      Keyboard.Hold keys("a")
                                                                      Macro.Pause("700")
                                                                      Keyboard.Release keys("a")
                                                                      Keyboard.Press key("{<tab>}")
                                                                      if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                                                           begin
                                                                                Keyboard.Press key("4")
                                                                                Macro.Pause("100")
                                                                                Function.Execute("rotate")
                                                                                if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
                                                                                     begin
                                                                                          Keyboard.Press key("4")
                                                                                          Macro.Pause("100")
                                                                                          Function.Execute("leftrotate")
                                                                                     end
                                                                           end
                                                                 end
                                                       end
                                             end
                                   end
                         end
               end
     end
function

function("rotate")
     begin
          Mouse.Hold button("right")
          Mouse.Move in direction("right", "100")
          Mouse.Release button("right")
          Function.Execute("move")
          Keyboard.Press key("{<tab>}")
          Macro.Pause("100")
          if  Color.At coordinate is (RGB)("65", "116", "151", "608", "60")
               begin
                    Macro.Abort()
               end
          if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
               begin
                    Function.Execute("leftrotate")
               end
     end
function

function("leftrotate")
     begin
          Mouse.Hold button("right")
          Mouse.Move in direction("left", "100")
          Mouse.Release button("right")
          Keyboard.Press key("{<tab>}")
          if  Color.At coordinate is (RGB)("65", "116", "151", "608", "60")
               begin
                    Macro.Abort()
               end
          if  Color.At coordinate is not (RGB)("76", "131", "209", "555", "43")
               begin
                    Function.Execute("move2")
                    Macro.Pause("100")
               end
     end
function
 

pls give a thanks if it helped u

_________________
Never demoralize the newbies dont forget all of us were newbies 2 ;)
I cant test these bugs anymore bcuz of school
zdg new bug
viewtopic.php?f=303&t=28260
moving script
viewtopic.php?f=304&t=28270
kimeramon bug
viewtopic.php?f=303&t=27875
datamon new bug
viewtopic.php?f=303&t=28323

new edg bug

viewtopic.php?f=303&t=28318


Top
 Profile  
Reply with quote  
 Post subject: Re: move script[beta version]
Thanked: 0 time(s)  Unread post Posted: Thu Jul 28, 2016 2:02 pm 
Contributor
Contributor



Joined: Fri Jun 24, 2016 8:16 am
Posts: 79
Been thanked: 3 time(s)
Has thanked: 74 time(s)
Contribution Points: 25
thanks


Top
 Profile  
Reply with quote  
 Post subject: Re: move script[beta version]
Thanked: 1 time(s)  Unread post Posted: Thu Jul 28, 2016 2:21 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Tue May 13, 2014 9:30 pm
Posts: 983
Location: egypt,cairo
Been thanked: 130 time(s)
Has thanked: 36 time(s)
Contribution Points: 1156
dekol87 wrote:
thanks

np if u found any bug tell me to fix it ^^

_________________
Never demoralize the newbies dont forget all of us were newbies 2 ;)
I cant test these bugs anymore bcuz of school
zdg new bug
viewtopic.php?f=303&t=28260
moving script
viewtopic.php?f=304&t=28270
kimeramon bug
viewtopic.php?f=303&t=27875
datamon new bug
viewtopic.php?f=303&t=28323

new edg bug

viewtopic.php?f=303&t=28318


Top
 Profile  
Reply with quote  
 Post subject: Re: move script[beta version]
Thanked: 0 time(s)  Unread post Posted: Thu Jul 28, 2016 10:37 pm 
New User
New User



Joined: Thu Jul 28, 2016 10:26 pm
Posts: 6
Been thanked: 0 time(s)
Has thanked: 8 time(s)
Contribution Points: 22
wow awesome thanks BTW


Top
 Profile  
Reply with quote  
 Post subject: Re: move script[beta version]
Thanked: 1 time(s)  Unread post Posted: Fri Jul 29, 2016 6:18 am 
VIP Contributor
VIP Contributor
User avatar



Joined: Tue May 13, 2014 9:30 pm
Posts: 983
Location: egypt,cairo
Been thanked: 130 time(s)
Has thanked: 36 time(s)
Contribution Points: 1156
momo2000mma wrote:
wow awesome thanks BTW


np happy to help ^^

_________________
Never demoralize the newbies dont forget all of us were newbies 2 ;)
I cant test these bugs anymore bcuz of school
zdg new bug
viewtopic.php?f=303&t=28260
moving script
viewtopic.php?f=304&t=28270
kimeramon bug
viewtopic.php?f=303&t=27875
datamon new bug
viewtopic.php?f=303&t=28323

new edg bug

viewtopic.php?f=303&t=28318


Top
 Profile  
Reply with quote  
 Post subject: Re: move script[beta version]
Thanked: 0 time(s)  Unread post Posted: Thu Aug 04, 2016 2:29 pm 
New User
New User



Joined: Tue Oct 14, 2014 9:41 am
Posts: 13
Been thanked: 2 time(s)
Has thanked: 4 time(s)
Contribution Points: 21
this is amazing for maze entrance man keep it up and thanks man


Top
 Profile  
Reply with quote  
 Post subject: Re: move script[beta version]
Thanked: 0 time(s)  Unread post Posted: Thu Aug 04, 2016 3:01 pm 
Silver Contributor
Silver Contributor



Joined: Wed Jul 13, 2016 3:24 pm
Posts: 111
Been thanked: 8 time(s)
Has thanked: 11 time(s)
Contribution Points: 96
Thanks man :D


Top
 Profile  
Reply with quote  
 Post subject: Re: move script[beta version]
Thanked: 0 time(s)  Unread post Posted: Fri Aug 05, 2016 8:49 am 
New User
New User



Joined: Tue Oct 14, 2014 9:41 am
Posts: 13
Been thanked: 2 time(s)
Has thanked: 4 time(s)
Contribution Points: 21
man little help can you show me how to put this moving bot script at hyboi's bot? thanks in advance man


Top
 Profile  
Reply with quote  
 Post subject: Re: move script[beta version]
Thanked: 0 time(s)  Unread post Posted: Fri Aug 05, 2016 12:01 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Tue May 13, 2014 9:30 pm
Posts: 983
Location: egypt,cairo
Been thanked: 130 time(s)
Has thanked: 36 time(s)
Contribution Points: 1156
dexband wrote:
man little help can you show me how to put this moving bot script at hyboi's bot? thanks in advance man

put this line in ur code
Code:
 // Move
     if  Color.At coordinate is not (RGB)("181", "148", "221", "581", "37")
          begin
               Macro.Execute new("DMO", "move3", "No")
          end

and make the move script a seperate script and let that line trigger it also make sure u name it move3 and in DMO cetagory or just replace the names in code to ur names

_________________
Never demoralize the newbies dont forget all of us were newbies 2 ;)
I cant test these bugs anymore bcuz of school
zdg new bug
viewtopic.php?f=303&t=28260
moving script
viewtopic.php?f=304&t=28270
kimeramon bug
viewtopic.php?f=303&t=27875
datamon new bug
viewtopic.php?f=303&t=28323

new edg bug

viewtopic.php?f=303&t=28318


Top
 Profile  
Reply with quote  
 Post subject: Re: move script[beta version]
Thanked: 0 time(s)  Unread post Posted: Fri Aug 05, 2016 1:38 pm 
Gold Contributor
Gold Contributor



Joined: Sat Oct 25, 2014 6:09 am
Posts: 410
Been thanked: 24 time(s)
Has thanked: 5 time(s)
Contribution Points: 21
wow awesome, i have been searching this to solve my maze problem :D :D


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 71 posts ]  Go to page 1, 2, 3, 4, 5 ... 8  Next

All times are UTC


You cannot post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Jump to:  


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group