Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Sat Nov 18, 2017 12:08 pm

All times are UTC




Post new topic Reply to topic  [ 281 posts ]  Go to page Previous  1, 2, 3, 4, 5 ... 29  Next
Author Message
 Post subject: Re: BOT for NEWBIES (ALL MOBS / ALL MAPS)
Thanked: 0 time(s)  Unread post Posted: Sun Feb 23, 2014 2:01 am 
VIP Contributor
VIP Contributor
User avatar



Joined: Thu Jan 24, 2013 3:05 am
Posts: 1077
Been thanked: 345 time(s)
Has thanked: 80 time(s)
Contribution Points: 2072
thanks for trying :) :) :)

_________________
Super Anti-Lag v4.0 By Fontes95
Simple BOT for NEWBIES with Anti-Macro Protector

Image


Top
 Profile  
Reply with quote  
 Post subject: Re: BOT for NEWBIES (ALL MOBS / ALL MAPS)
Thanked: 0 time(s)  Unread post Posted: Wed Feb 26, 2014 11:59 am 
Silver Contributor
Silver Contributor



Joined: Sun Jun 24, 2012 12:04 pm
Posts: 115
Been thanked: 13 time(s)
Has thanked: 19 time(s)
Contribution Points: 32
its working everywhre and everytime


Top
 Profile  
Reply with quote  
 Post subject: Re: BOT for NEWBIES (ALL MOBS / ALL MAPS)
Thanked: 1 time(s)  Unread post Posted: Sat Mar 08, 2014 11:42 am 
VIP Contributor
VIP Contributor
User avatar



Joined: Thu Jan 24, 2013 3:05 am
Posts: 1077
Been thanked: 345 time(s)
Has thanked: 80 time(s)
Contribution Points: 2072
unikodok wrote:
its working everywhre and everytime


yes it is.. :lol:

_________________
Super Anti-Lag v4.0 By Fontes95
Simple BOT for NEWBIES with Anti-Macro Protector

Image


Top
 Profile  
Reply with quote  
 Post subject: Re: BOT for NEWBIES (ALL MOBS / ALL MAPS)
Thanked: 0 time(s)  Unread post Posted: Wed Mar 19, 2014 3:09 am 
VIP Contributor
VIP Contributor
User avatar



Joined: Thu Jan 24, 2013 3:05 am
Posts: 1077
Been thanked: 345 time(s)
Has thanked: 80 time(s)
Contribution Points: 2072
UP 8-) 8-) 8-) 8-)

_________________
Super Anti-Lag v4.0 By Fontes95
Simple BOT for NEWBIES with Anti-Macro Protector

Image


Top
 Profile  
Reply with quote  
 Post subject: Re: BOT for NEWBIES (ALL MOBS / ALL MAPS)
Thanked: 0 time(s)  Unread post Posted: Wed Mar 19, 2014 3:28 am 
Silver Contributor
Silver Contributor
User avatar



Joined: Thu Mar 13, 2014 11:52 am
Posts: 236
Location: Indonesia
Been thanked: 19 time(s)
Has thanked: 6 time(s)
Contribution Points: 135
potpot wrote:
This is an edited script of HyBoi and mast (thanks to them) :) .. i decided to post this for newbies who does not know how to edit RGB's..

Features:
Auto Kill All Mobs except Bosses / MCs
Auto Fatigue Bugging- Credit to mast
Auto Accept Log-in Bonus event- Credit to mast
Auto Abort Macro when you run-out of food at Slot F7
Trigger Enabled ctrl+1 = start / ctrl+2 = stop (if you are going to use the attached file)
Chat Enabled :)

Rules:
For 1024 x 768 Resolution Full Screen Only
Always put a None-Attribute Jacket at slot 1 of your inventory for Bug Fatigue

Change your Default Shortcuts to make this Macro work
Tamer:
Attack -F4
Loot- F5
Vitamins- F8
Bread- F6
Digimon:
HP Disk/ CC - F7
DS Disk - F3

No need to Edit your Target RGB it's already set to kill all mobs 8-)

CREDIT TO HyBoi and mast
pls vist there thread and hit the thank you button
http://www.blueeye-macro.com/viewtopic.php?f=304&t=2837 HyBoi's Thread
http://www.blueeye-macro.com/viewtopic.php?f=304&t=8281 mast Thread
no need to thank me :lol:

Code:
 begin loop()
     Function.Execute("Check")
     Keyboard.Hold keys("{<tab>}{<f5>}")
     Function.Execute("Human Pause")
     Keyboard.Release keys("{<tab>}{<f5>}")
     Function.Execute("Human Pause")
     Function.Execute("Heal")
     Function.Execute("Target")
 end

function("Target")
     // put the color the hp bar of the targeted digimon in this one to help prevent KSing
     if  Color.At coordinate is (RGB)("132", "29", "18", "533", "52")
          begin
               // RGB of the digi you want to attack
               if  Color.At coordinate is (RGB)("130", "182", "214", "608", "64")
                    begin loop()
                         Keyboard.Hold keys("{<f4>}")
                         Function.Execute("Human Pause")
                         Keyboard.Release keys("{<f4>}")
                         Keyboard.Hold keys("{<f2>}")
                         Function.Execute("Human Pause")
                         Keyboard.Release keys("{<f2>}")
                         Keyboard.Hold keys("{<f5>}")
                         Function.Execute("Human Pause")
                         Keyboard.Release keys("{<f5>}")
                         Function.Execute("Heal")
                         // Same co ordinates of the previous check
                         if  Color.At coordinate is not (RGB)("130", "182", "214", "608", "64")
                              begin
                                   Macro.Restart("no")
                              end
                    end
               // RGB of the red square of aggro monsters around the fist
               if  Color.At coordinate is (RGB)("164", "0", "29", "409", "69")
                    begin loop()
                         Keyboard.Hold keys("{<f5>}")
                         Function.Execute("Human Pause")
                         Keyboard.Release keys("{<f5>}")
                         Keyboard.Hold keys("{<f2>}")
                         Function.Execute("Human Pause")
                         Keyboard.Release keys("{<f2>}")
                         Function.Execute("Heal")
                         // Same RGB from above
                         if  Color.At coordinate is not (RGB)("164", "0", "29", "409", "69")
                              begin
                                   Macro.Restart("no")
                              end
                    end
               // Same RGB from above
               if  Color.At coordinate is not (RGB)("164", "0", "29", "409", "69")
                    begin
                         Macro.Restart("no")
                    end
          end
function

function("Human Pause")
     begin
          Variable.Set random number("HumanTime", "300", "500")
          Macro.Pause("{HumanTime}")
     end
function

function("Heal")
     // RGB of a part of digimon hp , preferable about 25% of your digimon HP , this uses Hp DISK in slot F7
     if  Color.At coordinate is not (RGB)("132", "29", "18", "131", "124")
          begin
               Keyboard.Hold keys("{<f7>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f7>}")
          end
     // RGB of a part of digimon hp to use FOOD in slot F6 , preferably specify about 50% of digimon HP
     if  Color.At coordinate is not (RGB)("132", "29", "18", "168", "124")
          begin
               Keyboard.Hold keys("{<f6>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f6>}")
          end
     // RGB for Digimon DS to use DS DISK in slot F3
     if  Color.At coordinate is not (RGB)("0", "138", "150", "127", "138")
          begin
               Keyboard.Hold keys("{<f3>}")
               Macro.Pause("50")
               Keyboard.Release keys("{<f3>}")
          end
     // RGB for TAMER DS , slot F8
     if  Color.At coordinate is not (RGB)("0", "162", "179", "133", "65")
          begin
               Keyboard.Hold keys("{<f8>}")
               Macro.Pause("50")
               Keyboard.Release keys("{<f8>}")
          end
function

function("Check")
     begin
          Function.Execute("DBonus")
          Function.Execute("Fatigue")
          Function.Execute("Abort")
     end
function

function("Abort")
     // This will end the bot when your food at slot F7 is empty.
     if  Color.At coordinate is (RGB)("119", "178", "227", "726", "686")
          begin
               Macro.Abort()
          end
function

function("DBonus")
     // if there is character RGB
     if  Color.At coordinate is (RGB)("119", "93", "61", "416", "716")
          begin
               if  Color.At coordinate is (RGB)("255", "255", "255", "520", "546")
                    begin
                         Mouse.Move to coordinate("520", "546")
                         Function.Execute("AFK1")
                         Mouse.Hold button("left")
                         Function.Execute("AFK1")
                         Mouse.Release button("left")
                         Function.Execute("AFK1")
                         Mouse.Move to coordinate("400", "300")
                    end
               if  Color.At coordinate is (RGB)("238", "238", "238", "510", "577")
                    begin
                         Mouse.Move to coordinate("510", "577")
                         Function.Execute("AFK1")
                         Mouse.Hold button("left")
                         Function.Execute("AFK1")
                         Mouse.Release button("left")
                         Function.Execute("AFK1")
                         Mouse.Move to coordinate("400", "300")
                    end
               if  Color.At coordinate is (RGB)("177", "185", "219", "403", "164")
                    begin
                         Mouse.Move to coordinate("403", "164")
                         Function.Execute("AFK1")
                         Mouse.Hold button("left")
                         Function.Execute("AFK1")
                         Mouse.Release button("left")
                         Function.Execute("AFK1")
                         Mouse.Move to coordinate("400", "300")
                    end
          end
function

function("Fatigue")
     // put jacket(no/empty attribute at 1t slot)=>dont ever drag/remove/recoordinate inventory place
     if  Color.At coordinate is (RGB)("255", "175", "0", "224", "53")
          begin
               Function.Execute("Item")
               if  Color.At coordinate is (RGB)("125", "125", "125", "710", "134")
                    begin loop()
                         Function.Execute("Target")
                         Function.Execute("AFK2")
                         // start fatigue BUG => no more battle
                         if  Color.At coordinate is not (RGB)("125", "125", "125", "710", "134")
                              begin
                                   Macro.Break from loop("yes")
                              end
                    end
               Mouse.Move to coordinate("723", "143")
               Function.Execute("AFK2")
               Mouse.Hold button("right")
               Function.Execute("AFK1")
               Mouse.Release button("right")
               Function.Execute("AFK2")
               // notice jacket bound
               if  Color.At coordinate is (RGB)("211", "211", "211", "459", "233")
                    begin
                         Function.Execute("AFK1")
                         Keyboard.Hold keys("{<enter>}")
                         Function.Execute("AFK1")
                         Keyboard.Release keys("{<enter>}")
                         Function.Execute("AFK1")
                    end
               Function.Execute("AFK4")
               Function.Execute("AFK4")
               Function.Execute("AFK4")
               if  Color.At coordinate is (RGB)("125", "125", "125", "710", "134")
                    begin loop()
                         Function.Execute("Target")
                         Function.Execute("AFK2")
                         // end fatigue BUG => no more battle
                         if  Color.At coordinate is not (RGB)("125", "125", "125", "710", "134")
                              begin
                                   Macro.Break from loop("yes")
                              end
                    end
               Function.Execute("AFK2")
               Mouse.Move to coordinate("723", "143")
               Function.Execute("AFK2")
               Mouse.Hold button("right")
               Function.Execute("AFK1")
               Mouse.Release button("right")
               Function.Execute("AFK3")
               Keyboard.Hold keys("{<f6>}")
               Function.Execute("AFK1")
               Keyboard.Release keys("{<f6>}")
               Function.Execute("AFK2")
               Mouse.Move to coordinate("400", "300")
          end
function

function("Item")
     // if no inventory showen at game =>auto open for fatigue-bug BOT
     if  Color.At coordinate is not (RGB)("189", "218", "243", "812", "112")
          begin
               Keyboard.Hold keys("i")
               Function.Execute("AFK1")
               Keyboard.Release keys("i")
          end
function

function("AFK1")
     begin
          Variable.Set random number("AFK1", "400", "600")
          Macro.Pause("{AFK1}")
     end
function

function("AFK2")
     begin
          Variable.Set random number("AFK2", "1000", "1500")
          Macro.Pause("{AFK2}")
     end
function

function("AFK3")
     begin
          Variable.Set random number("AFK3", "3000", "3500")
          Macro.Pause("{AFK3}")
     end
function

function("AFK4")
     begin
          Function.Execute("AFK3")
          Function.Execute("Heal")
          Function.Execute("Target")
          Function.Execute("AFK3")
          Function.Execute("Heal")
          Function.Execute("Target")
          Function.Execute("AFK3")
          Function.Execute("Heal")
          Function.Execute("Target")
          Function.Execute("AFK3")
          Function.Execute("Heal")
          Function.Execute("Target")
          Function.Execute("AFK3")
          Function.Execute("Heal")
          Function.Execute("Target")
          Function.Execute("AFK3")
          Function.Execute("Heal")
          Function.Execute("Target")
          Function.Execute("AFK3")
          Function.Execute("Heal")
          Function.Execute("Target")
          Function.Execute("AFK3")
          Function.Execute("Heal")
          Function.Execute("Target")
          Function.Execute("AFK3")
          Function.Execute("Heal")
          Function.Execute("Target")
          Function.Execute("AFK3")
     end
function

function("AFK5")
     begin
          Function.Execute("Target")
          if  Color.At coordinate is (RGB)("198", "60", "49", "545", "55")
               begin
                    Function.Execute("BOT")
                    Macro.Restart("yes")
               end
          Function.Execute("AFK3")
          Function.Execute("Loot")
          Function.Execute("Heal")
          Function.Execute("Target")
          if  Color.At coordinate is (RGB)("198", "60", "49", "545", "55")
               begin
                    Function.Execute("BOT")
                    Macro.Restart("yes")
               end
          Function.Execute("AFK3")
     end
function

function("AFK6")
     begin
          Function.Execute("AFK2")
          if  Color.At coordinate is (RGB)("198", "60", "49", "545", "55")
               begin
                    Function.Execute("AFK2")
               end
     end
function
 



What can be detected?


Top
 Profile  
Reply with quote  
 Post subject: Re: BOT for NEWBIES (ALL MOBS / ALL MAPS)
Thanked: 1 time(s)  Unread post Posted: Wed Mar 19, 2014 7:44 am 
VIP Contributor
VIP Contributor
User avatar



Joined: Sun Oct 13, 2013 9:55 am
Posts: 594
Location: The World That Never Was
Been thanked: 76 time(s)
Has thanked: 9 time(s)
Contribution Points: 1206
maybe you can remove "auto accept daily login" to make faster bot, since its automaticly accepted

_________________
_________________
Dont forget to click
"Thank You"
If I help You


Top
 Profile  
Reply with quote  
 Post subject: Re: BOT for NEWBIES (ALL MOBS / ALL MAPS)
Thanked: 0 time(s)  Unread post Posted: Wed Mar 19, 2014 9:18 am 
Active User
Active User



Joined: Fri Mar 07, 2014 5:49 am
Posts: 37
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 71
Thx guys


Last edited by LetMeBeStealth on Mon Mar 24, 2014 7:02 am, edited 2 times in total.
Word changed


Top
 Profile  
Reply with quote  
 Post subject: Re: BOT for NEWBIES (ALL MOBS / ALL MAPS)
Thanked: 1 time(s)  Unread post Posted: Fri Mar 21, 2014 3:37 am 
Silver Contributor
Silver Contributor
User avatar



Joined: Thu Mar 20, 2014 1:41 pm
Posts: 209
Location: Denpasar
Been thanked: 24 time(s)
Has thanked: 6 time(s)
Contribution Points: 6
1366 x 768 please :D

_________________
sorry my bad english

IF I HELP CLICK THANK YOU THERE ->


Top
 Profile  
Reply with quote  
 Post subject: Re: BOT for NEWBIES (ALL MOBS / ALL MAPS)
Thanked: 0 time(s)  Unread post Posted: Thu May 01, 2014 7:52 am 
VIP Contributor
VIP Contributor
User avatar



Joined: Thu Jan 24, 2013 3:05 am
Posts: 1077
Been thanked: 345 time(s)
Has thanked: 80 time(s)
Contribution Points: 2072
bagus1029 wrote:
1366 x 768 please :D


sorry im only using low end Laptop :lol: :lol: :lol:

_________________
Super Anti-Lag v4.0 By Fontes95
Simple BOT for NEWBIES with Anti-Macro Protector

Image


Top
 Profile  
Reply with quote  
 Post subject: Re: BOT for NEWBIES (ALL MOBS / ALL MAPS)
Thanked: 0 time(s)  Unread post Posted: Mon May 26, 2014 1:04 pm 


hey pot can u make with f2 skill ??? pls , im like a dead man right now its been 2 days havent sleep doing maze f2 quest :(


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