Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Fri Dec 15, 2017 6:33 am

All times are UTC




Post new topic Reply to topic  [ 52 posts ]  Go to page 1, 2, 3, 4, 5, 6  Next
Author Message
 Post subject: Monster Card Use and Kill Script By Elrayes!!!
Thanked: 6 time(s)  Unread post Posted: Sun May 01, 2016 2:00 am 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 441
Location: Egypt , Portsaid
Been thanked: 123 time(s)
Has thanked: 10 time(s)
Contribution Points: 975
For Many Requests I've Created This Code For MC to use and kill !!
At First This Is The Code
Code:
 begin
     Keyboard.Hold keys("{<tab>}")
     Function.Execute("Human Pause")
     Keyboard.Release keys("{<tab>}")
     Macro.Pause("100")
     Function.Execute("Checking")
     Function.Execute("Attack")
 end

function("Checking")
     begin
          //  Locate Attribute Pattern
          if  Color.Pixel pattern can be located on screen ("", "")
               begin
                    Function.Execute("MCCheck")
               end
     end
function

function("MCCheck")
     begin
          //  Locate Attribute Pattern
          if  Color.Pixel pattern can be located on screen ("", "")
               begin
                    //  Choose (X,Y) For Attribute
                    Color.Wait for and locate pixel pattern ("", "", "X", "Y")
                    Mouse.Move to coordinate("{X}", "{Y}")
                    Function.Execute("AFK3")
                    Mouse.Hold button("right")
                    Function.Execute("AFK3")
                    Mouse.Release button("right")
                    Function.Execute("AFK3")
               end
     end
function

function("Attack")
     // Attacking MC Card Monsters
     if  Color.At coordinate is (RGB)("", "", "", "", "")
          begin loop()
               Keyboard.Hold keys("1")
               Function.Execute("Human Pause")
               Keyboard.Release keys("1")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("4")
               Function.Execute("Human Pause")
               Keyboard.Release keys("4")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("3")
               Function.Execute("Human Pause")
               Keyboard.Release keys("3")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("{<f2>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f2>}")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("{<f1>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f1>}")
               Function.Execute("Loot")
               Function.Execute("Heal")
               // Here , set RGB for last bits of HP bar of target digimon so that it switches faster.
               if  Color.At coordinate is not (RGB)("", "", "", "", "")
                    begin
                         Macro.Restart("no")
                         Function.Execute("Heal")
                         Function.Execute("Loot")
                    end
          end
function

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

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

function("Heal")
     // RGB for using item at F6 slot , i use this for ds food
     if  Color.At coordinate is not (RGB)("", "", "", "", "")
          begin
               Keyboard.Hold keys("{<f6>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f6>}")
          end
     // RGB for using item at F7 slot , i use this for hp disks
     if  Color.At coordinate is not (RGB)("", "", "", "", "")
          begin
               Keyboard.Hold keys("{<f7>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f7>}")
          end
     // RGB for using item at 7 slot , i use this for hp food
     if  Color.At coordinate is not (RGB)("", "", "", "", "")
          begin
               Keyboard.Hold keys("7")
               Function.Execute("Human Pause")
               Keyboard.Release keys("7")
          end
     // RGB for using item at f8 slot , i use this for ds disk
     if  Color.At coordinate is not (RGB)("", "", "", "", "")
          begin
               Keyboard.Hold keys("{<f8>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f8>}")
          end
     // RGB for using item at 8 slot , i use this for tamer ds vitamin
     if  Color.At coordinate is not (RGB)("", "", "", "", "")
          begin
               Keyboard.Hold keys("8")
               Function.Execute("Human Pause")
               Keyboard.Release keys("8")
          end
function

function("Loot")
     begin
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
          Function.Execute("Human Pause")
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
          Function.Execute("Human Pause")
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
     end
function
 

At first click in investigator
Attachment:
1.png
1.png [ 16.89 KiB | Viewed 3899 times ]

Follow The Instructions From 1 To 4
Attachment:
2.png
2.png [ 739.58 KiB | Viewed 3899 times ]

Then 3 to 4
Attachment:
3.png
3.png [ 743.02 KiB | Viewed 3899 times ]

The Pics from 5 to 9 !!!
Attachment:
4.png
4.png [ 743.18 KiB | Viewed 3899 times ]

Attachment:
5.png
5.png [ 752.12 KiB | Viewed 3899 times ]

Attachment:
6.png
6.png [ 741.9 KiB | Viewed 3899 times ]

Copy Them As This Pic
Attachment:
7.png
7.png [ 23.57 KiB | Viewed 3899 times ]

Be Care Full of this Line
// Choose (X,Y) For Attribute
cuz the code Must be Like this !!!
Code:
("Your Selected Patterns", "X", "Y")

Then
Open Investigator
Attachment:
8.png
8.png [ 21.41 KiB | Viewed 3899 times ]

Select The RGB Of Digimons TO Attack !!!
Under The Digimon Level
Attachment:
9.png
9.png [ 781.26 KiB | Viewed 3899 times ]

Then Investigator
Attachment:
10.png
10.png [ 17.98 KiB | Viewed 3899 times ]

Select when HP is 0%
Attachment:
11.png
11.png [ 777.92 KiB | Viewed 3899 times ]

Then Investigator
Attachment:
12.png
12.png [ 21.63 KiB | Viewed 3899 times ]

Then Select the Tamer DS Lower Case sp it will use cc if it arrived to this spot to not lose ur Evolve !!!
and do the same for all the cases HP and DS for Both Digimon and Tamer !!!
Attachment:
13.png
13.png [ 876.36 KiB | Viewed 3899 times ]


If You Liked This Please Press Thanks----------->

_________________
New Macro Protector Script By Elrayes™
http://blueeye-macro.com/viewtopic.php?f=304&t=30153
[Function] to Let Mouse Select Target
http://blueeye-macro.com/viewtopic.php?f=304&t=30115
New Dropping Att Code By Me
http://blueeye-macro.com/viewtopic.php?f=304&t=27523
Monster Card Use and Kill Script By Elrayes!!!
http://blueeye-macro.com/viewtopic.php?f=304&t=27560
[Release] Elrayes BOT Multi Functional BOT!!
viewtopic.php?f=304&t=30783


Last edited by ahmedwaill on Mon May 02, 2016 10:57 pm, edited 1 time in total.

Top
 Profile  
Reply with quote  
 Post subject: Re: Monster Card Use and Kill Script By Elrayes!!!
Thanked: 0 time(s)  Unread post Posted: Sun May 01, 2016 3:22 pm 
Silver Contributor
Silver Contributor



Joined: Wed Sep 05, 2012 10:00 am
Posts: 110
Been thanked: 9 time(s)
Has thanked: 22 time(s)
Contribution Points: 163
wow finaly some one created it !!! thx bro it will help all of us finaly i can forget my MC 6 and 5 !!!!!
eddit im getting error when trying to make pixels thing and it brings me to line with Keyboard realese('8')


Top
 Profile  
Reply with quote  
 Post subject: Re: Monster Card Use and Kill Script By Elrayes!!!
Thanked: 0 time(s)  Unread post Posted: Mon May 02, 2016 12:10 am 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 441
Location: Egypt , Portsaid
Been thanked: 123 time(s)
Has thanked: 10 time(s)
Contribution Points: 975
michlon wrote:
wow finaly some one created it !!! thx bro it will help all of us finaly i can forget my MC 6 and 5 !!!!!
eddit im getting error when trying to make pixels thing and it brings me to line with Keyboard realese('8')

sorry if am late cuz am very busy these days but please show me ur full script and am gonna get the error

_________________
New Macro Protector Script By Elrayes™
http://blueeye-macro.com/viewtopic.php?f=304&t=30153
[Function] to Let Mouse Select Target
http://blueeye-macro.com/viewtopic.php?f=304&t=30115
New Dropping Att Code By Me
http://blueeye-macro.com/viewtopic.php?f=304&t=27523
Monster Card Use and Kill Script By Elrayes!!!
http://blueeye-macro.com/viewtopic.php?f=304&t=27560
[Release] Elrayes BOT Multi Functional BOT!!
viewtopic.php?f=304&t=30783


Top
 Profile  
Reply with quote  
 Post subject: Re: Monster Card Use and Kill Script By Elrayes!!!
Thanked: 0 time(s)  Unread post Posted: Mon May 02, 2016 8:37 am 
Silver Contributor
Silver Contributor



Joined: Wed Sep 05, 2012 10:00 am
Posts: 110
Been thanked: 9 time(s)
Has thanked: 22 time(s)
Contribution Points: 163
ahmedwaill wrote:
michlon wrote:
wow finaly some one created it !!! thx bro it will help all of us finaly i can forget my MC 6 and 5 !!!!!
eddit im getting error when trying to make pixels thing and it brings me to line with Keyboard realese('8')

sorry if am late cuz am very busy these days but please show me ur full script and am gonna get the error

i sended you 2 pictures in the pm if you could make the bot use MC 5 will be ewsome cuz tryed alot times and no luck with those pixels and it is make error that i sayed before with keyboard
ty and have a nice day!


Top
 Profile  
Reply with quote  
 Post subject: Re: Monster Card Use and Kill Script By Elrayes!!!
Thanked: 0 time(s)  Unread post Posted: Mon May 02, 2016 9:26 am 
Silver Contributor
Silver Contributor



Joined: Wed Sep 05, 2012 10:00 am
Posts: 110
Been thanked: 9 time(s)
Has thanked: 22 time(s)
Contribution Points: 163
ahmedwaill wrote:
michlon wrote:
wow finaly some one created it !!! thx bro it will help all of us finaly i can forget my MC 6 and 5 !!!!!
eddit im getting error when trying to make pixels thing and it brings me to line with Keyboard realese('8')

sorry if am late cuz am very busy these days but please show me ur full script and am gonna get the error


here full script
Code:
 begin
     Keyboard.Hold keys("{<tab>}")
     Function.Execute("Human Pause")
     Keyboard.Release keys("{<tab>}")
     Macro.Pause("100")
     Function.Execute("Checking")
     Function.Execute("Attack")
 end

function("Checking")
     begin
          //  Locate Attribute Pattern
          if  Color.Pixel pattern can be located on screen ("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0")
               begin
                    Function.Execute("MCCheck")
               end
     end
function

function("MCCheck")
     begin
          //  Locate Attribute Pattern
          if  Color.Pixel pattern can be located on screen ("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0")
               begin
                    //  Choose (X,Y) For Attribute
                    Color.Wait for and locate pixel pattern ("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0")
                    Mouse.Move to coordinate("{X}", "{Y}")
                    Function.Execute("AFK3")
                    Mouse.Hold button("right")
                    Function.Execute("AFK3")
                    Mouse.Release button("right")
                    Function.Execute("AFK3")
               end
     end
function

function("Attack")
     // Attacking MC Card Monsters
     if  Color.At coordinate is (RGB)("170", "170", "170", "899", "65")
          begin loop()
               Keyboard.Hold keys("1")
               Function.Execute("Human Pause")
               Keyboard.Release keys("1")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("4")
               Function.Execute("Human Pause")
               Keyboard.Release keys("4")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("3")
               Function.Execute("Human Pause")
               Keyboard.Release keys("3")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("{<f2>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f2>}")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("{<f1>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f1>}")
               Function.Execute("Loot")
               Function.Execute("Heal")
               // Here , set RGB for last bits of HP bar of target digimon so that it switches faster.
               if  Color.At coordinate is not (RGB)("66", "31", "19", "688", "57")
                    begin
                         Macro.Restart("no")
                         Function.Execute("Heal")
                         Function.Execute("Loot")
                    end
          end
function

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

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

function("Heal")
     // RGB for using item at F6 slot , i use this for ds food
     if  Color.At coordinate is not (RGB)("15", "241", "255", "134", "68")
          begin
               Keyboard.Hold keys("{<f6>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f6>}")
          end
     // RGB for using item at F7 slot , i use this for hp disks
     if  Color.At coordinate is not (RGB)("198", "60", "49", "135", "127")
          begin
               Keyboard.Hold keys("{<f7>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f7>}")
          end
     // RGB for using item at 7 slot , i use this for hp food
     if  Color.At coordinate is not (RGB)("216", "65", "54", "186", "128")
          begin
               Keyboard.Hold keys("7")
               Function.Execute("Human Pause")
               Keyboard.Release keys("7")
          end
     // RGB for using item at f8 slot , i use this for ds disk
     if  Color.At coordinate is not (RGB)("15", "241", "255", "143", "142")
          begin
               Keyboard.Hold keys("{<f8>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f8>}")
          end
     // RGB for using item at 8 slot , i use this for tamer ds vitamin
     if  Color.At coordinate is not (RGB)("4", "228", "243", "140", "67")
          begin
               Keyboard.Hold keys("8")
               Function.Execute("Human Pause")
               Keyboard.Release keys("8")
          end
function

function("Loot")
     begin
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
          Function.Execute("Human Pause")
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
          Function.Execute("Human Pause")
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
     end
function
 


Top
 Profile  
Reply with quote  
 Post subject: Re: Monster Card Use and Kill Script By Elrayes!!!
Thanked: 0 time(s)  Unread post Posted: Mon May 02, 2016 12:12 pm 
Contributor
Contributor
User avatar



Joined: Tue Jan 05, 2016 7:14 am
Posts: 62
Location: Malolos Bulacan
Been thanked: 2 time(s)
Has thanked: 0 time(s)
Contribution Points: 0
only for monster cards mc1 / mc2 can?


Top
 Profile  
Reply with quote  
 Post subject: Re: Monster Card Use and Kill Script By Elrayes!!!
Thanked: 0 time(s)  Unread post Posted: Mon May 02, 2016 10:42 pm 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 441
Location: Egypt , Portsaid
Been thanked: 123 time(s)
Has thanked: 10 time(s)
Contribution Points: 975
henschel01 wrote:
only for monster cards mc1 / mc2 can?

Yes You Can But you've to make the Pattern on the card number !!! like mc2 make pattern around number 2

_________________
New Macro Protector Script By Elrayes™
http://blueeye-macro.com/viewtopic.php?f=304&t=30153
[Function] to Let Mouse Select Target
http://blueeye-macro.com/viewtopic.php?f=304&t=30115
New Dropping Att Code By Me
http://blueeye-macro.com/viewtopic.php?f=304&t=27523
Monster Card Use and Kill Script By Elrayes!!!
http://blueeye-macro.com/viewtopic.php?f=304&t=27560
[Release] Elrayes BOT Multi Functional BOT!!
viewtopic.php?f=304&t=30783


Top
 Profile  
Reply with quote  
 Post subject: Re: Monster Card Use and Kill Script By Elrayes!!!
Thanked: 1 time(s)  Unread post Posted: Mon May 02, 2016 10:54 pm 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 441
Location: Egypt , Portsaid
Been thanked: 123 time(s)
Has thanked: 10 time(s)
Contribution Points: 975
michlon wrote:
ahmedwaill wrote:
michlon wrote:
wow finaly some one created it !!! thx bro it will help all of us finaly i can forget my MC 6 and 5 !!!!!
eddit im getting error when trying to make pixels thing and it brings me to line with Keyboard realese('8')

sorry if am late cuz am very busy these days but please show me ur full script and am gonna get the error


here full script
Code:
 begin
     Keyboard.Hold keys("{<tab>}")
     Function.Execute("Human Pause")
     Keyboard.Release keys("{<tab>}")
     Macro.Pause("100")
     Function.Execute("Checking")
     Function.Execute("Attack")
 end

function("Checking")
     begin
          //  Locate Attribute Pattern
          if  Color.Pixel pattern can be located on screen ("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0")
               begin
                    Function.Execute("MCCheck")
               end
     end
function

function("MCCheck")
     begin
          //  Locate Attribute Pattern
          if  Color.Pixel pattern can be located on screen ("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0")
               begin
                    //  Choose (X,Y) For Attribute
                    Color.Wait for and locate pixel pattern ("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0")
                    Mouse.Move to coordinate("{X}", "{Y}")
                    Function.Execute("AFK3")
                    Mouse.Hold button("right")
                    Function.Execute("AFK3")
                    Mouse.Release button("right")
                    Function.Execute("AFK3")
               end
     end
function

function("Attack")
     // Attacking MC Card Monsters
     if  Color.At coordinate is (RGB)("170", "170", "170", "899", "65")
          begin loop()
               Keyboard.Hold keys("1")
               Function.Execute("Human Pause")
               Keyboard.Release keys("1")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("4")
               Function.Execute("Human Pause")
               Keyboard.Release keys("4")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("3")
               Function.Execute("Human Pause")
               Keyboard.Release keys("3")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("{<f2>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f2>}")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("{<f1>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f1>}")
               Function.Execute("Loot")
               Function.Execute("Heal")
               // Here , set RGB for last bits of HP bar of target digimon so that it switches faster.
               if  Color.At coordinate is not (RGB)("66", "31", "19", "688", "57")
                    begin
                         Macro.Restart("no")
                         Function.Execute("Heal")
                         Function.Execute("Loot")
                    end
          end
function

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

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

function("Heal")
     // RGB for using item at F6 slot , i use this for ds food
     if  Color.At coordinate is not (RGB)("15", "241", "255", "134", "68")
          begin
               Keyboard.Hold keys("{<f6>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f6>}")
          end
     // RGB for using item at F7 slot , i use this for hp disks
     if  Color.At coordinate is not (RGB)("198", "60", "49", "135", "127")
          begin
               Keyboard.Hold keys("{<f7>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f7>}")
          end
     // RGB for using item at 7 slot , i use this for hp food
     if  Color.At coordinate is not (RGB)("216", "65", "54", "186", "128")
          begin
               Keyboard.Hold keys("7")
               Function.Execute("Human Pause")
               Keyboard.Release keys("7")
          end
     // RGB for using item at f8 slot , i use this for ds disk
     if  Color.At coordinate is not (RGB)("15", "241", "255", "143", "142")
          begin
               Keyboard.Hold keys("{<f8>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f8>}")
          end
     // RGB for using item at 8 slot , i use this for tamer ds vitamin
     if  Color.At coordinate is not (RGB)("4", "228", "243", "140", "67")
          begin
               Keyboard.Hold keys("8")
               Function.Execute("Human Pause")
               Keyboard.Release keys("8")
          end
function

function("Loot")
     begin
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
          Function.Execute("Human Pause")
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
          Function.Execute("Human Pause")
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
     end
function
 

i believe that ur mistake is in this !!
Attachment:
1.png
1.png [ 13.87 KiB | Viewed 3824 times ]

it should be like this
Code:
("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0", "X", "Y")

_________________
New Macro Protector Script By Elrayes™
http://blueeye-macro.com/viewtopic.php?f=304&t=30153
[Function] to Let Mouse Select Target
http://blueeye-macro.com/viewtopic.php?f=304&t=30115
New Dropping Att Code By Me
http://blueeye-macro.com/viewtopic.php?f=304&t=27523
Monster Card Use and Kill Script By Elrayes!!!
http://blueeye-macro.com/viewtopic.php?f=304&t=27560
[Release] Elrayes BOT Multi Functional BOT!!
viewtopic.php?f=304&t=30783


Top
 Profile  
Reply with quote  
 Post subject: Re: Monster Card Use and Kill Script By Elrayes!!!
Thanked: 0 time(s)  Unread post Posted: Tue May 03, 2016 6:05 pm 
Silver Contributor
Silver Contributor



Joined: Wed Sep 05, 2012 10:00 am
Posts: 110
Been thanked: 9 time(s)
Has thanked: 22 time(s)
Contribution Points: 163
Code:
 begin
     Keyboard.Hold keys("{<tab>}")
     Function.Execute("Human Pause")
     Keyboard.Release keys("{<tab>}")
     Macro.Pause("100")
     Function.Execute("Checking")
     Function.Execute("Attack")
 end

function("Checking")
     begin
          //  Locate Attribute Pattern
          if  Color.Pixel pattern can be located on screen ("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0")
               begin
                    Function.Execute("MCCheck")
               end
     end
function

function("MCCheck")
     begin
          //  Locate Attribute Pattern
          if  Color.Pixel pattern can be located on screen ("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0")
               begin
                    //  Choose (X,Y) For Attribute
                    Color.Wait for and locate pixel pattern ("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0")
                    Mouse.Move to coordinate("{X}", "{Y}")
                    Function.Execute("AFK3")
                    Mouse.Hold button("right")
                    Function.Execute("AFK3")
                    Mouse.Release button("right")
                    Function.Execute("AFK3")
               end
     end
function

function("Attack")
     // Attacking MC Card Monsters
     if  Color.At coordinate is (RGB)("170", "170", "170", "899", "65")
          begin loop()
               Keyboard.Hold keys("1")
               Function.Execute("Human Pause")
               Keyboard.Release keys("1")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("4")
               Function.Execute("Human Pause")
               Keyboard.Release keys("4")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("3")
               Function.Execute("Human Pause")
               Keyboard.Release keys("3")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("{<f2>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f2>}")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("{<f1>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f1>}")
               Function.Execute("Loot")
               Function.Execute("Heal")
               // Here , set RGB for last bits of HP bar of target digimon so that it switches faster.
               if  Color.At coordinate is not (RGB)("66", "31", "19", "688", "57")
                    begin
                         Macro.Restart("no")
                         Function.Execute("Heal")
                         Function.Execute("Loot")
                    end
          end
function

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

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

function("Heal")
     // RGB for using item at F6 slot , i use this for ds food
     if  Color.At coordinate is not (RGB)("15", "241", "255", "134", "68")
          begin
               Keyboard.Hold keys("{<f6>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f6>}")
          end
     // RGB for using item at F7 slot , i use this for hp disks
     if  Color.At coordinate is not (RGB)("198", "60", "49", "135", "127")
          begin
               Keyboard.Hold keys("{<f7>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f7>}")
          end
     // RGB for using item at 7 slot , i use this for hp food
     if  Color.At coordinate is not (RGB)("216", "65", "54", "186", "128")
          begin
               Keyboard.Hold keys("7")
               Function.Execute("Human Pause")
               Keyboard.Release keys("7")
          end
     // RGB for using item at f8 slot , i use this for ds disk
     if  Color.At coordinate is not (RGB)("15", "241", "255", "143", "142")
          begin
               Keyboard.Hold keys("{<f8>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f8>}")
          end
     // RGB for using item at 8 slot , i use this for tamer ds vitamin
     if  Color.At coordinate is not (RGB)("4", "228", "243", "140", "67")
          begin
               Keyboard.Hold keys("8")
               Function.Execute("Human Pause")
               Keyboard.Release keys("8")
          end
function

function("Loot")
     begin
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
          Function.Execute("Human Pause")
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
          Function.Execute("Human Pause")
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
     end
function
 
[/quote]
i believe that ur mistake is in this !!
Attachment:
1.png

it should be like this
Code:
("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0", "X", "Y")
[/quote]
and how can i do it ? i tryed many times withut a luck ...


Top
 Profile  
Reply with quote  
 Post subject: Re: Monster Card Use and Kill Script By Elrayes!!!
Thanked: 0 time(s)  Unread post Posted: Tue May 03, 2016 7:25 pm 
Gold Contributor
Gold Contributor
User avatar



Joined: Fri Nov 01, 2013 10:45 pm
Posts: 441
Location: Egypt , Portsaid
Been thanked: 123 time(s)
Has thanked: 10 time(s)
Contribution Points: 975
copy this
Code:
 begin
     Keyboard.Hold keys("{<tab>}")
     Function.Execute("Human Pause")
     Keyboard.Release keys("{<tab>}")
     Macro.Pause("100")
     Function.Execute("Checking")
     Function.Execute("Attack")
 end

function("Checking")
     begin
          //  Locate Attribute Pattern
          if  Color.Pixel pattern can be located on screen ("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0")
               begin
                    Function.Execute("MCCheck")
               end
     end
function

function("MCCheck")
     begin
          //  Locate Attribute Pattern
          if  Color.Pixel pattern can be located on screen ("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0")
               begin
                    //  Choose (X,Y) For Attribute
                    Color.Wait for and locate pixel pattern ("152,186,189,5,2,31,106,78,-5,0,127,227,43,5,-2,157,192,196,5,0,255,244,248,5,0,25,41,34,5,0,8,8,8,0,2,8,8,8,-5,0,108,213,12,-5,0,66,212,73", "0", "X", "Y")
                    Mouse.Move to coordinate("{X}", "{Y}")
                    Function.Execute("AFK3")
                    Mouse.Hold button("right")
                    Function.Execute("AFK3")
                    Mouse.Release button("right")
                    Function.Execute("AFK3")
               end
     end
function

function("Attack")
     // Attacking MC Card Monsters
     if  Color.At coordinate is (RGB)("170", "170", "170", "899", "65")
          begin loop()
               Keyboard.Hold keys("1")
               Function.Execute("Human Pause")
               Keyboard.Release keys("1")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("4")
               Function.Execute("Human Pause")
               Keyboard.Release keys("4")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("3")
               Function.Execute("Human Pause")
               Keyboard.Release keys("3")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("{<f2>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f2>}")
               Function.Execute("Human Pause")
               Keyboard.Hold keys("{<f1>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f1>}")
               Function.Execute("Loot")
               Function.Execute("Heal")
               // Here , set RGB for last bits of HP bar of target digimon so that it switches faster.
               if  Color.At coordinate is not (RGB)("66", "31", "19", "688", "57")
                    begin
                         Macro.Restart("no")
                         Function.Execute("Heal")
                         Function.Execute("Loot")
                    end
          end
function

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

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

function("Heal")
     // RGB for using item at F6 slot , i use this for ds food
     if  Color.At coordinate is not (RGB)("15", "241", "255", "134", "68")
          begin
               Keyboard.Hold keys("{<f6>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f6>}")
          end
     // RGB for using item at F7 slot , i use this for hp disks
     if  Color.At coordinate is not (RGB)("198", "60", "49", "135", "127")
          begin
               Keyboard.Hold keys("{<f7>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f7>}")
          end
     // RGB for using item at 7 slot , i use this for hp food
     if  Color.At coordinate is not (RGB)("216", "65", "54", "186", "128")
          begin
               Keyboard.Hold keys("7")
               Function.Execute("Human Pause")
               Keyboard.Release keys("7")
          end
     // RGB for using item at f8 slot , i use this for ds disk
     if  Color.At coordinate is not (RGB)("15", "241", "255", "143", "142")
          begin
               Keyboard.Hold keys("{<f8>}")
               Function.Execute("Human Pause")
               Keyboard.Release keys("{<f8>}")
          end
     // RGB for using item at 8 slot , i use this for tamer ds vitamin
     if  Color.At coordinate is not (RGB)("4", "228", "243", "140", "67")
          begin
               Keyboard.Hold keys("8")
               Function.Execute("Human Pause")
               Keyboard.Release keys("8")
          end
function

function("Loot")
     begin
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
          Function.Execute("Human Pause")
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
          Function.Execute("Human Pause")
          Keyboard.Hold keys("4")
          Function.Execute("Human Pause")
          Keyboard.Release keys("4")
     end
function
 

_________________
New Macro Protector Script By Elrayes™
http://blueeye-macro.com/viewtopic.php?f=304&t=30153
[Function] to Let Mouse Select Target
http://blueeye-macro.com/viewtopic.php?f=304&t=30115
New Dropping Att Code By Me
http://blueeye-macro.com/viewtopic.php?f=304&t=27523
Monster Card Use and Kill Script By Elrayes!!!
http://blueeye-macro.com/viewtopic.php?f=304&t=27560
[Release] Elrayes BOT Multi Functional BOT!!
viewtopic.php?f=304&t=30783


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 52 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:  


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