Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Sun May 19, 2019 11:13 am

All times are UTC




Post new topic Reply to topic  [ 55 posts ]  Go to page 1, 2, 3, 4, 5, 6  Next
Author Message
 Post subject: Simple Bot Script With Tutorial By Elrayes(UPDATED)(May 7th)
Thanked: 9 time(s)  Unread post Posted: Sat Jul 16, 2016 5:23 am 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 866
Location: Egypt , Portsaid
Been thanked: 252 time(s)
Has thanked: 10 time(s)
Contribution Points: 1984
Hello Guys ,
I'm Ahmed Elrayes,
I've Made This Bot For You Guys as an Open Source with Easy Way to Configure .
Image
[*] Super Fast Bot
[*] Anti Auto
[*] Attack All Digimons ( Not Bosses Or MC)
[*] Fatigue Bug
[*] Anti KS

Image
This scripts Consist of 2 Scripts The First is the Attacking , and the second is the Loot to grab gold , items from the ground
At First Here is the Attacking Script :
Code:
begin
     Window.Bring to front("DMO", "No")
     Function.Execute("AntiAutocheck")
     Keyboard.Press key("{<tab>}")
     Function.Execute("anti-ks")
 end

function("anti-ks")
     begin
          // HP For Digimon 100%
          if  Color.At coordinate is (RGB)("198", "60", "49", "716", "55")
               begin
                    Function.Execute("Attack")
               end
     end
function

function("Attack")
     begin
          // Monster To Attack
          if  Color.At coordinate is (RGB)("36", "120", "181", "782", "81")
               begin loop()
                    Keyboard.Press keys("{<f2>}")
                    Macro.Pause("500")
                    Keyboard.Press keys("{<f1>}")
                    Keyboard.Press keys("1")
                    // That's the Tamer Skill Key
                    Keyboard.Press keys("3")
                    Function.Execute("Heal")
                    Function.Execute("Fatigue Check")
                    Function.Execute("AntiAutocheck")
                    // Here , set RGB for last bits of HP bar of target digimon so that it switches faster.
                    if  Color.At coordinate is not (RGB)("198", "60", "49", "573", "55")
                         begin
                              Function.Execute("AntiAutocheck")
                              Macro.Restart("yes")
                         end
               end
          // Same As the Monster Attack
          if  Color.At coordinate is not (RGB)("36", "120", "181", "782", "81")
               begin
                    Macro.Restart("yes")
               end
     end
function

function("Heal")
     // RGB for using item at F8 slot , i use this for Tamer DS Chicken Combo At 5%
     if  Color.At coordinate is not (RGB)("15", "241", "255", "120", "68")
          begin
               Keyboard.Press keys("{<f8>}")
          end
     // RGB for using item at F6 slot , i use this for HP Chicken Combo At 15%
     if  Color.At coordinate is not (RGB)("198", "60", "49", "116", "127")
          begin
               Keyboard.Press keys("{<f6>}")
          end
     // RGB for using item at F5  slot , i use this for HP Bread Where You Want
     if  Color.At coordinate is not (RGB)("132", "29", "18", "168", "124")
          begin
               Keyboard.Press keys("{<f5>}")
          end
     // RGB for using item at F3  slot , i use this for Digimon DS Where You Want
     if  Color.At coordinate is not (RGB)("15", "241", "255", "134", "142")
          begin
               Keyboard.Press keys("{<f3>}")
          end
     // RGB for using item at F4  slot , i use this for tamer Tamer DS Where You Want
     if  Color.At coordinate is not (RGB)("15", "241", "255", "136", "68")
          begin
               Keyboard.Press keys("{<f4>}")
          end
     // rgp of kfc , this will restore the red hp and remove fatigue
     if  Color.At coordinate is not (RGB)("111", "27", "25", "226", "53")
          begin
               Keyboard.Press key("{<f6>}")
               Macro.Pause("500")
          end
function

function("AntiAutocheck")
     begin
          //  Locate time progression bar when the Anti-Auto window pops up
if  Color.Pixel pattern can be located on screen("207,172,0,5,0,207,172,0,0,5,199,163,7,0,5,236,192,32,0,5,253,241,50,-5,0,253,241,50,0,-5,235,192,32,0,-5,198,163,7", "0")
               begin
                    Macro.Pause all other macros()
                    Window.Save screendump("C:\GDMO")
                    Function.Execute("Alerting")
                    Macro.Resume all paused macros()
               end
     end
function

function("Alerting")
     begin loop()
          Speech.Say("Macro Protector Detected","yes")
          Macro.Pause("200")
          Speech.Say("Please Answer it","yes")
if  Color.Pixel pattern can not be located on screen("207,172,0,5,0,207,172,0,0,5,199,163,7,0,5,236,192,32,0,5,253,241,50,-5,0,253,241,50,0,-5,235,192,32,0,-5,198,163,7", "0")
               begin
                    Macro.Break from loop("yes")
               end
     end
function

function("Fatigue Check")
     begin
          // put x,y of the shirt with attributes
          if  Color.At coordinate is (RGB)("255", "175", "0", "123", "53")
               begin
                    Function.Execute("Fatigue")
               end
     end
function

function("Fatigue")
     begin
          // RGB of Tamer's hp if its not yellow
          if  Color.At coordinate is not (RGB)("250", "175", "0", "122", "52")
               begin
                    Macro.Abort()
               end
          // RGP of tamer's hp if its yellow
          if  Color.At coordinate is (RGB)("250", "175", "0", "122", "52")
               begin
                    Function.Execute("remove tshirt")
                    Macro.Pause("30000")
                    Function.Execute("put tshirt")
                    Macro.Pause("2000")
                    Function.Execute("Heal")
               end
     end
function

function("remove tshirt")
     begin
          // put x,y of the shirt without attributes
          Keyboard.Hold keys("c")
          Macro.Pause("500")
          Keyboard.Release keys("c")
          Macro.Pause("500")
          Mouse.Move to coordinate("158", "203")
          Mouse.Hold button("Right")
          Macro.Pause("500")
          Mouse.Release button("Right")
          Macro.Pause("500")
          Keyboard.Hold keys("c")
          Macro.Pause("500")
          Keyboard.Release keys("c")
     end
function

function("put tshirt")
     begin
          // put x,y of the shirt with attributes
          if  Color.Pixel pattern can be located on screen("26,26,26,5,0,92,193,61,5,0,182,204,168,5,0,119,193,94,0,5,213,216,207,0,5,97,62,34,0,5,210,158,83,-5,0,171,116,62,-5,0,59,38,19,-5,0,231", "15")
               begin
                    //  X,Y Of Shirt
                    Color.Wait for and locate pixel pattern("26,26,26,5,0,92,193,61,5,0,182,204,168,5,0,119,193,94,0,5,213,216,207,0,5,97,62,34,0,5,210,158,83,-5,0,171,116,62,-5,0,59,38,19,-5,0,231", "15", "X", "Y")
                    Mouse.Move to coordinate("{X}", "{Y}")
                    Color.Wait for pixel pattern to appear("26,26,26,5,0,92,193,61,5,0,182,204,168,5,0,119,193,94,0,5,213,216,207,0,5,97,62,34,0,5,210,158,83,-5,0,171,116,62,-5,0,59,38,19,-5,0,231", "15")
                    Mouse.Hold button("Right")
                    Macro.Pause("500")
                    Mouse.Release button("Right")
                    Macro.Pause("500")
               end
     end
function

Then just Copy this script Then Create a New Macro Then Paste it .
Then Follow the pics to Configure it .

At first Configure the Anti-KS to not steal Others Digimons , to avoid Busting as a bot .
Image
Image

Then Import it .

Image

Image

Image

Image

Image

Image

Image

To Edit The Anti Auto Function Follow This Topic !!!
viewtopic.php?f=304&t=30153

Image

Then The Fatigue Bug :
Image

Image

Image

Image

Image

Image

Then Save&Exit This Script!!!
Image

Image

Then Create a New Macro for the Second Part which is the Loot :

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

function("Loot")
     begin
          // The Loot Button Is F10
          Keyboard.Press key("4")
          Macro.Pause("300")
          Keyboard.Press key("4")
          Macro.Pause("300")
          Keyboard.Press key("4")
          Macro.Pause("300")
          Keyboard.Press key("4")
     end
     // Made By Elrayes
function
 


Image

Image

Now here is how it looks :
Image

Image

Regards,
Ahmed Elrayes ,
Thanks To HyBoi For His Script!!

Image

If You Like It Feel Free To ClicK On Thank You Button :) ---------------------->

_________________
--------------------------------------------------------------------------------
All Of My Scripts Can Be Found in Here !!!
viewtopic.php?f=304&p=190914
--------------------------------------------------------------------------------
Image


Last edited by Elrayes on Tue May 07, 2019 4:42 am, edited 15 times in total.

Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Sat Jul 16, 2016 6:43 am 
Silver Contributor
Silver Contributor



Joined: Sun Oct 19, 2014 11:03 pm
Posts: 219
Been thanked: 17 time(s)
Has thanked: 19 time(s)
Contribution Points: 6
Can u explain what anti-auto means tahnks

_________________
FC Barca Is Life.


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 1 time(s)  Unread post Posted: Sat Jul 16, 2016 10:01 am 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 866
Location: Egypt , Portsaid
Been thanked: 252 time(s)
Has thanked: 10 time(s)
Contribution Points: 1984
hairullaeva wrote:
Can u explain what anti-auto means tahnks

Anti Auto is the Script what solvs the Macro Protector

_________________
--------------------------------------------------------------------------------
All Of My Scripts Can Be Found in Here !!!
viewtopic.php?f=304&p=190914
--------------------------------------------------------------------------------
Image


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Sat Jul 16, 2016 7:07 pm 
New User
New User



Joined: Sat Mar 19, 2016 3:08 pm
Posts: 22
Been thanked: 1 time(s)
Has thanked: 6 time(s)
Contribution Points: 17
Work without bypass?


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 1 time(s)  Unread post Posted: Sat Jul 16, 2016 7:10 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 866
Location: Egypt , Portsaid
Been thanked: 252 time(s)
Has thanked: 10 time(s)
Contribution Points: 1984
yahyama2001 wrote:
Work without bypass?

hmmm ByPass isn't that important if you are windows 64x
..

_________________
--------------------------------------------------------------------------------
All Of My Scripts Can Be Found in Here !!!
viewtopic.php?f=304&p=190914
--------------------------------------------------------------------------------
Image


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Sat Jul 16, 2016 9:06 pm 
Silver Contributor
Silver Contributor



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


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Sun Jul 17, 2016 5:38 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 866
Location: Egypt , Portsaid
Been thanked: 252 time(s)
Has thanked: 10 time(s)
Contribution Points: 1984
Javier1031 wrote:
Thanks :)

you are welcome bro hope u like it... :)

_________________
--------------------------------------------------------------------------------
All Of My Scripts Can Be Found in Here !!!
viewtopic.php?f=304&p=190914
--------------------------------------------------------------------------------
Image


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Sun Jul 17, 2016 5:53 pm 
Silver Contributor
Silver Contributor
User avatar



Joined: Sun Oct 20, 2013 7:37 pm
Posts: 100
Location: Argentina
Been thanked: 15 time(s)
Has thanked: 6 time(s)
Contribution Points: 190
Nice, but what does "Anti KS" mean?

_________________
A "thanks" helps me to continue helping :D
------------------------------------------------------------------------------------


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Sun Jul 17, 2016 6:43 pm 
VIP Contributor
VIP Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 866
Location: Egypt , Portsaid
Been thanked: 252 time(s)
Has thanked: 10 time(s)
Contribution Points: 1984
AgusMaris wrote:
Nice, but what does "Anti KS" mean?

Anti Kill Steal... bto not attack any monster that Others attacking

_________________
--------------------------------------------------------------------------------
All Of My Scripts Can Be Found in Here !!!
viewtopic.php?f=304&p=190914
--------------------------------------------------------------------------------
Image


Top
 Profile  
Reply with quote  
 Post subject: Re: [Release] ™Elrayes Bot™ By Ahmed Elrayes
Thanked: 0 time(s)  Unread post Posted: Mon Jul 18, 2016 10:14 am 
Contributor
Contributor



Joined: Wed Apr 02, 2014 12:42 pm
Posts: 93
Location: France
Been thanked: 47 time(s)
Has thanked: 25 time(s)
Contribution Points: 127
Bro does this work for 1366*768 without any changes ??? Btw , i used ur other script and it stucks when the bless comes maybe cuz of anti-ks function

_________________
HIT thank you , ITS FREE


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 55 posts ]  Go to page 1, 2, 3, 4, 5, 6  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:  
cron


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