Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Fri Apr 26, 2019 9:57 am

All times are UTC




Post new topic Reply to topic  [ 1 post ] 
Author Message
 Post subject: Roulette, looping mixed sequence (Red & Black- Martingale)
Thanked: 0 time(s)  Unread post Posted: Mon Jan 28, 2019 9:33 pm 
New User
New User



Joined: Mon Jan 28, 2019 12:22 am
Posts: 3
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 16
I'm trying to set this code by Gigus (thanks a lot!) to create an infinite loop of 6 bets in this sequence:

Red
Black
Red
Red
Black
Black

Martingale:
I will double the bet every time I loose (x2,x4.x8,x16,x32,x64) but following that sequence.

The code now works just on a single bet in loop on the red (in Martingale mode):

Code:
 begin
     Variable.Set("bet", "{MinimumBet}")
     begin loop()
          Function.Execute("Place bet")
          Function.Execute("Check if we won")
          if  Variable.Is equal to("won", "yes")
               begin
                    Macro.Report progress("We won! Resetting bet")
                    Variable.Set("bet", "{MinimumBet}")
               end
          if  Variable.Is equal to("won", "no")
               begin
                    Macro.Report progress("We lost! Doubling bet")
                    Variable.Multiply (Math)("bet", "2")
                    if  Variable.Is greater than (Math)("bet", "{MaximumBet}")
                         begin
                              Macro.Report progress("Giving up and resetting bet")
                              Variable.Set("bet", "{MinimumBet}")
                         end
               end
     end
 end

function("Place bet")
     begin loop("{bet}")
          Mouse.Click at coordinate("605", "662", "left")
     end
     begin
          Mouse.Click at coordinate("708", "734", "left")
          Macro.Pause("900")
     end
function

function("Check if we won")
     begin
          Variable.Set("won", "no")
          if  Color.At coordinate is within (RGB range)("255", "253", "245", "5", "911", "730")
               begin
                    Mouse.Click at coordinate("909", "738", "left")
                    Variable.Set("won", "yes")
               end
     end
function



Can someone help me?
I can't figure out how to do it..

Thanks a lot!

Sorry for my bad English


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

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