Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Tue Feb 28, 2017 5:33 am

All times are UTC




Post new topic Reply to topic  [ 4 posts ] 
Author Message
 Post subject: datamon normal bot(fixed Aurelia's version) 1920x1080
Thanked: 2 time(s)  Unread post Posted: Thu Dec 22, 2016 8:52 am 
New User
New User



Joined: Wed Jan 14, 2015 4:47 pm
Posts: 6
Been thanked: 4 time(s)
Has thanked: 0 time(s)
Contribution Points: 17
adapted from aurelia's script.

fixed:
1) Exit error
2) changed rgb values to work on 1920x1080 resolution.

HP disk: F7
DS disk: F8

full script:
Quote:
begin loop()
// RGB of the DC Notice
if Color.At coordinate is (RGB)("250", "250", "250", "668", "110")
begin
Function.Execute("Auto Relogin 2")
// Same co ordinates of the previous check
if Color.At coordinate is not (RGB)("250", "250", "250", "668", "110")
begin
Macro.Restart("yes")
end
end
// RGB of the Server Continent Pyramid(White Tiles at Top Right)
if Color.At coordinate is (RGB)("246", "246", "246", "1864", "13")
begin
// Heal Before Entering
Function.Execute("heal")
Humanly.Pause("500", "600")
// Double Click on Mono NPC
Mouse.Move to coordinate("1067", "455")
Function.Execute("Human Pause")
Mouse.Double click("Left")
Humanly.Pause("1500", "2000")
// Click on Data Normal
Mouse.Move to coordinate("890", "125")
Function.Execute("Human Pause")
Mouse.Click("Left")
Humanly.Pause("500", "1000")
// Click on Yes
Mouse.Move to coordinate("913", "391")
Function.Execute("Human Pause")
Mouse.Click("Left")
// Same co ordinates of the previous check
if Color.At coordinate is not (RGB)("246", "246", "246", "1864", "13")
begin
Macro.Restart("yes")
end
Function.Execute("wait")
end
// RGB of the Datamon Normal(White Tiles at Top Right)
if Color.At coordinate is (RGB)("250", "250", "250", "1854", "14")
begin
// path of moving to ete bot
Macro.Execute new("Datamon Normal", "Enter", "yes")
Humanly.Pause("1500", "1500")
Function.Execute("attack ete")
// Same co ordinates of the previous check
if Color.At coordinate is not (RGB)("250", "250", "250", "1854", "14")
begin
Macro.Restart("yes")
end
end
end

function("wait")
begin
Macro.Pause("10000")
end
function

function("attack ete")
begin
// RGB of Ete Image
if Color.At coordinate is not (RGB)("164", "0", "29", "857", "73")
begin
Keyboard.Hold keys("{<tab>}")
Function.Execute("Human Pause")
Keyboard.Release keys("{<tab>}")
Function.Execute("Human Pause")
end
// RGB of Ete Image
when Color.At coordinate is (RGB)("164", "0", "29", "857", "73")
begin loop()
// Shorcut for shock
Keyboard.Hold keys("1")
Function.Execute("Human Pause")
Keyboard.Release keys("1")
Keyboard.Hold keys("{<f2>}")
Function.Execute("Human Pause")
Keyboard.Release keys("{<f2>}")
Function.Execute("Human Pause")
Function.Execute("heal")
// RGB of any Blue area in Rank Table after you kill ete
if Color.At coordinate is (RGB)("23", "92", "189", "1120", "374")
begin
Macro.Break from loop("yes")
Function.Execute("Human Pause")
Keyboard.Hold keys("{<esc>}")
Function.Execute("Human Pause")
Keyboard.Release keys("{<esc>}")
Function.Execute("exit")
end
end
end
function

function("exit")
begin
Keyboard.Hold keys("4")
Function.Execute("Human Pause")
Keyboard.Release keys("4")
Macro.Pause("3500")
// path of moving to Mono(inside)
Macro.Execute new("Datamon Normal", "Exit", "yes")
Humanly.Pause("2000", "2000")
// Double Click on Mono NPC(Inside)
Mouse.Move to coordinate("1499", "483")
Function.Execute("Human Pause")
Mouse.Double click("left")
Humanly.Pause("1500", "1500")
// Delay for tamer to go to mono npc (depend on ur tamer speed)
Macro.Pause("11000")
// Click on Server Pyramid
Mouse.Move to coordinate("878", "148")
Function.Execute("Human Pause")
Mouse.Click("left")
Macro.Pause("6000")
end
function

function("Human Pause")
begin
Humanly.Pause("100", "300")
end
function

function("heal")
// Use HP Disk
if Color.At coordinate is not (RGB)("243", "57", "40", "200", "129")
begin
Keyboard.Hold keys("{<f7>}")
Function.Execute("Human Pause")
Keyboard.Release keys("{<f7>}")
end
// Use Food
if Color.At coordinate is not (RGB)("216", "65", "54", "185", "128")
begin
Keyboard.Hold keys("7")
Function.Execute("Human Pause")
Keyboard.Release keys("7")
end
// Use DS Disk
if Color.At coordinate is not (RGB)("15", "241", "255", "163", "142")
begin
Keyboard.Hold keys("{<f8>}")
Function.Execute("Human Pause")
Keyboard.Release keys("{<f8>}")
end
// Use Vitamin
if Color.At coordinate is not (RGB)("216", "65", "54", "221", "53")
begin
Keyboard.Hold keys("8")
Function.Execute("Human Pause")
Keyboard.Release keys("8")
end
function

function("Auto Relogin 2")
begin
Window.Bring to front("DMO", "yes")
end
begin
// RGB of ur tamer face
if Color.At coordinate is not (RGB)("192", "136", "90", "49", "60")
begin
Macro.Abort all other macros()
end
// RGB of DC screen(Notice)
if Color.At coordinate is (RGB)("250", "250", "250", "668", "110")
begin
Window.Close("DMO", "No")
Macro.Pause("10000")
end
// RGB of anything on ur desktop
if Color.At coordinate is (RGB)("210", "223", "255", "47", "20")
begin
Mouse.Double click at coordinate("337", "560", "left")
Macro.Pause("8000")
end
end
begin
// RGB of anything on DMO Update Client
if Color.At coordinate is (RGB)("255", "218", "231", "747", "253")
begin
Mouse.Click at coordinate("404", "571", "left")
Macro.Pause("25000")
end
end
begin
// RGB of login area i use id area
if Color.At coordinate is (RGB)("250", "250", "250", "679", "502")
begin
Keyboard.Insert text("Username")
Macro.Pause("1000")
Keyboard.Press key("{<tab>}")
Macro.Pause("1000")
Keyboard.Insert text("Password")
Macro.Pause("1000")
Keyboard.Press key("{<enter>}")
Macro.Pause("8000")
end
// RGP of selecting server
if Color.At coordinate is (RGB)("142", "144", "145", "771", "517")
begin
Keyboard.Press key("{<enter>}")
Macro.Pause("8000")
end
// RGB of Selecting character " use any button ( back-creat-delete) in the screen of dmo
if Color.At coordinate is (RGB)("22", "56", "59", "1209", "568")
begin
Keyboard.Press key("{<enter>}")
Macro.Pause("20000")
// RGP of ur tamer screen
Color.Wait for color at coordinate to be (RGB)("198", "60", "49", "201", "52")
end
end
begin
// RGB of your Tamer Face
Window.Bring to front("DMO", "No")
if Color.At coordinate is (RGB)("192", "136", "90", "49", "60")
begin
Function.Execute("Heal")
// this will re digivolve u to mega form
Keyboard.Press key("{<pageup>}")
Macro.Pause("400")
end
end
function



Follow Aurelia's instructions for setting up of bot. bot contains three parts. For enter script and exit script go to Aurelia's post to download. REPLACE the original Full Script with this one.


Top
 Profile  
Reply with quote  
 Post subject: Re: datamon normal bot(fixed Aurelia's version) 1920x1080
Thanked: 0 time(s)  Unread post Posted: Sun Jan 08, 2017 11:23 pm 
New User
New User



Joined: Tue Jul 19, 2016 1:47 pm
Posts: 19
Been thanked: 3 time(s)
Has thanked: 5 time(s)
Contribution Points: 25
Wow it worked , thank u so much ! :)


Top
 Profile  
Reply with quote  
 Post subject: Re: datamon normal bot(fixed Aurelia's version) 1920x1080
Thanked: 0 time(s)  Unread post Posted: Thu Feb 23, 2017 4:39 am 
Contributor
Contributor
User avatar



Joined: Fri Aug 05, 2016 9:36 am
Posts: 98
Location: Malaysia
Been thanked: 26 time(s)
Has thanked: 11 time(s)
Contribution Points: 195
Thanks for using my script. :D

_________________
We are all noob to begin with.

IF I HELP PLEASE CLICK THANK YOU

Datamon Normal Script ~> viewtopic.php?f=304&t=285122
Auto-Relogin(DC) Script [All-Reso Tutorials] ~> viewtopic.php?f=304&t=28597


Top
 Profile  
Reply with quote  
 Post subject: Re: datamon normal bot(fixed Aurelia's version) 1920x1080
Thanked: 0 time(s)  Unread post Posted: Thu Feb 23, 2017 11:58 am 
Silver Contributor
Silver Contributor



Joined: Thu Aug 06, 2015 6:22 pm
Posts: 105
Been thanked: 39 time(s)
Has thanked: 11 time(s)
Contribution Points: 149
Aurelia wrote:
Thanks for using my script. :D

its actualy my script but played with :mrgreen:


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 4 posts ] 

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