Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Mon Apr 23, 2018 9:51 am

All times are UTC




Post new topic Reply to topic  [ 3 posts ] 
Author Message
 Post subject: Roulette Bot Service { Release } + { Setup }
Thanked: 3 time(s)  Unread post Posted: Sat Sep 27, 2014 8:02 pm 
New User
New User
User avatar



Joined: Wed Sep 24, 2014 11:33 am
Posts: 7
Location: The Netherlands
Been thanked: 4 time(s)
Has thanked: 1 time(s)
Contribution Points: 208
Hi members of Blue Eye Forum.

This is a release for PKR - European Roulette.
The BOT is coded using the Martingale strategy.

So how does the bot works?
1: Bot will automatic spin The Wheel.
2: Check's the winning number.
3: Check's if the amount of kind is higher than the winning value.
4: Places bed on losing type / and doubles when loses.

{ Release } 1.5 - 27-9-14:
Quote:
Fixed Number 32 & 26
Some timing edits


Script:
Code:
 begin
     Variable.Set("bethigh", "{beth}")
     Variable.Set("betlow", "{betl}")
     Variable.Set("betoneven", "{bete}")
     Variable.Set("beteven", "{beto}")
     Variable.Set("betrood", "{betz}")
     Variable.Set("betzwart", "{betr}")
     Variable.Set random number("ms", "500", "1500")
     Variable.Set random number("msplace", "50", "100")
     Function.Execute("Reset window location")
     begin loop()
          Function.Execute("Place bet")
          Function.Execute("Check if we won")
          if  Variable.Is greater than (Math)("AantalZwart", "{Aantal}")
               begin
                    if  Variable.Is equal to("laatstekleur", "zwart")
                         begin
                              Variable.Multiply (Math)("betrood", "2")
                         end
               end
          if  Variable.Is greater than (Math)("AantalRood", "{Aantal}")
               begin
                    if  Variable.Is equal to("laatstekleur", "rood")
                         begin
                              Variable.Multiply (Math)("betzwart", "2")
                         end
               end
          if  Variable.Is greater than (Math)("AantalEven", "{Aantal}")
               begin
                    if  Variable.Is equal to("laatstetype", "even")
                         begin
                              Variable.Multiply (Math)("betoneven", "2")
                         end
               end
          if  Variable.Is greater than (Math)("AantalOneven", "{Aantal}")
               begin
                    if  Variable.Is equal to("laatstetype", "oneven")
                         begin
                              Variable.Multiply (Math)("beteven", "2")
                         end
               end
          if  Variable.Is greater than (Math)("AantalLaag", "{Aantal}")
               begin
                    if  Variable.Is equal to("laatsterange", "laag")
                         begin
                              Variable.Multiply (Math)("bethigh", "2")
                         end
               end
          if  Variable.Is greater than (Math)("AantalHoog", "{Aantal}")
               begin
                    if  Variable.Is equal to("laatsterange", "hoog")
                         begin
                              Variable.Multiply (Math)("betlow", "2")
                         end
               end
     end
 end

function("Reset window location")
     begin
          Window.Set location("European Roulette - Vegas High Roller", "yes", "1", "1")
          Window.Bring to front("European Roulette - Vegas High Roller", "yes")
          Macro.Pause("1000")
     end
function

function("Place bet")
     if  Variable.Is greater than (Math)("AantalZwart", "{Aantal}")
          begin loop("{betrood}")
               Mouse.Move to coordinate("889", "618")
               Macro.Pause("{msplace}")
               Mouse.Click at coordinate("889", "618", "Left")
          end
     if  Variable.Is greater than (Math)("AantalRood", "{Aantal}")
          begin loop("{betzwart}")
               Mouse.Move to coordinate("773", "553")
               Macro.Pause("{msplace}")
               Mouse.Click at coordinate("773", "553", "Left")
          end
     if  Variable.Is greater than (Math)("AantalEven", "{Aantal}")
          begin loop("{betoneven}")
               Mouse.Move to coordinate("1009", "697")
               Macro.Pause("{msplace}")
               Mouse.Click at coordinate("1009", "697", "Left")
          end
     if  Variable.Is greater than (Math)("AantalOneven", "{Aantal}")
          begin loop("{beteven}")
               Mouse.Move to coordinate("663", "494")
               Macro.Pause("{msplace}")
               Mouse.Click at coordinate("663", "494", "Left")
          end
     if  Variable.Is greater than (Math)("AantalLaag", "{Aantal}")
          begin loop("{bethigh}")
               Mouse.Move to coordinate("1135", "766")
               Macro.Pause("{msplace}")
               Mouse.Click at coordinate("1135", "766", "Left")
          end
     if  Variable.Is greater than (Math)("AantalHoog", "{Aantal}")
          begin loop("{betlow}")
               Mouse.Move to coordinate("569", "437")
               Macro.Pause("{msplace}")
               Mouse.Click at coordinate("569", "437", "Left")
          end
     begin
          Macro.Pause("100")
          Mouse.Move to coordinate("968", "926")
          Macro.Pause("100")
          Macro.Pause("{ms}")
          Mouse.Click at coordinate("968", "926", "Left")
          Macro.Pause("2500")
     end
function

function("Check if we won")
     begin
          Variable.Set("laatstekleur", "onbekend")
          Variable.Set("laatstetype", "onbekend")
          Variable.Set("laatsterange", "onbekend")
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "622", "333")
               begin
                    Macro.Write to log("Nummer 1 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "687", "273")
               begin
                    Macro.Write to log("Nummer 2 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("beteven", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "749", "216")
               begin
                    Macro.Write to log("Nummer 3 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "670", "360")
               begin
                    Macro.Write to log("Nummer 4 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("beteven", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "734", "296")
               begin
                    Macro.Write to log("Nummer 5 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "796", "241")
               begin
                    Macro.Write to log("Nummer 6 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("beteven", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "719", "384")
               begin
                    Macro.Write to log("Nummer 7 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "783", "323")
               begin
                    Macro.Write to log("Nummer 8 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("beteven", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "840", "262")
               begin
                    Macro.Write to log("Nummer 9 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "770", "412")
               begin
                    Macro.Write to log("Nummer 10 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("beteven", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "833", "345")
               begin
                    Macro.Write to log("Nummer 11 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("betlow", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "889", "287")
               begin
                    Macro.Write to log("Nummer 12 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("beteven", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "821", "440")
               begin
                    Macro.Write to log("Nummer 13 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("betlow", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "879", "373")
               begin
                    Macro.Write to log("Nummer 14 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("beteven", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "938", "309")
               begin
                    Macro.Write to log("Nummer 15 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("betlow", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "872", "469")
               begin
                    Macro.Write to log("Nummer 16 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("beteven", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "933", "398")
               begin
                    Macro.Write to log("Nummer 17 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("betlow", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "989", "334")
               begin
                    Macro.Write to log("Nummer 18 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "laag")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalHoog", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalLaag", "1")
                    Variable.Set("betlow", "1")
                    Variable.Set("beteven", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "926", "499")
               begin
                    Macro.Write to log("Nummer 19 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("bethigh", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "986", "427")
               begin
                    Macro.Write to log("Nummer 20 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("bethigh", "1")
                    Variable.Set("beteven", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1041", "361")
               begin
                    Macro.Write to log("Nummer 21 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("bethigh", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "983", "526")
               begin
                    Macro.Write to log("Nummer 22 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("bethigh", "1")
                    Variable.Set("beteven", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1039", "455")
               begin
                    Macro.Write to log("Nummer 23 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("bethigh", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1093", "387")
               begin
                    Macro.Write to log("Nummer 24 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("bethigh", "1")
                    Variable.Set("beteven", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1038", "558")
               begin
                    Macro.Write to log("Nummer 25 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("bethigh", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1097", "483")
               begin
                    Macro.Write to log("Nummer 26 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("bethigh", "1")
                    Variable.Set("beteven", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1149", "413")
               begin
                    Macro.Write to log("Nummer 27 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("bethigh", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1100", "591")
               begin
                    Macro.Write to log("Nummer 28 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("bethigh", "1")
                    Variable.Set("beteven", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1155", "514")
               begin
                    Macro.Write to log("Nummer 29 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("bethigh", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1205", "441")
               begin
                    Macro.Write to log("Nummer 30 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("bethigh", "1")
                    Variable.Set("beteven", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1159", "626")
               begin
                    Macro.Write to log("Nummer 31 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("bethigh", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1212", "544")
               begin
                    Macro.Write to log("Nummer 32 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("bethigh", "1")
                    Variable.Set("beteven", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1267", "469")
               begin
                    Macro.Write to log("Nummer 33 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("bethigh", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1225", "658")
               begin
                    Macro.Write to log("Nummer 34 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("bethigh", "1")
                    Variable.Set("beteven", "1")
                    Variable.Set("betrood", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1278", "577")
               begin
                    Macro.Write to log("Nummer 35 Found")
                    Variable.Set("laatstekleur", "zwart")
                    Variable.Set("laatstetype", "oneven")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalRood", "0")
                    Variable.Set("AantalEven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalOneven", "1")
                    Variable.Add (Math)("AantalZwart", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betzwart", "1")
                    Variable.Set("betoneven", "1")
                    Variable.Set("bethigh", "1")
               end
          if  Color.At coordinate is not within (RGB range)("126", "10", "10", "25", "1327", "499")
               begin
                    Macro.Write to log("Nummer 36 Found")
                    Variable.Set("laatstekleur", "rood")
                    Variable.Set("laatstetype", "even")
                    Variable.Set("laatsterange", "hoog")
                    Variable.Set("AantalZwart", "0")
                    Variable.Set("AantalOneven", "0")
                    Variable.Set("AantalLaag", "0")
                    Variable.Add (Math)("AantalEven", "1")
                    Variable.Add (Math)("AantalRood", "1")
                    Variable.Add (Math)("AantalHoog", "1")
                    Variable.Set("betrood", "1")
                    Variable.Set("beteven", "1")
                    Variable.Set("bethigh", "1")
               end
          Color.Wait for color at coordinate to be (RGB)("10", "1", "1", "969", "893")
          Macro.Pause("100")
     end
function
 


Predefinded Variables
Image

Proof Video:
Quote:


This bot uses: red/black : 1-18/19-36 : Even/Odd

Please PM me when you need help setting up this script!
I'm not responsible when you lose your money using this script.
You may Thank me if you like this script :D

_________________
Image
PM me if need help && Like me if like!


Top
 Profile  
Reply with quote  
 Post subject: Re: Roulette Bot Service { Release } + { Setup }
Thanked: 0 time(s)  Unread post Posted: Sat Sep 27, 2014 9:58 pm 
Partner / License admin
Partner / License admin
User avatar



Joined: Sun Oct 10, 2010 5:16 pm
Posts: 1770
Location: USA
Been thanked: 370 time(s)
Has thanked: 29 time(s)
Contribution Points: 16158
Excellent macro; good job! The way you wrote it makes it easy to modify for other strategy methods also.

_________________
----------------------------------------Syrifina---------------------------------------------------
PM me for licenses and/or licensing information: Click Here
[Be sure to include and update your profile with your BE ID]

Forum Rules
Reminder of rules regarding Contribution points
Getting started in 1, 2, 3
Virtual Drivers; Manual Installers


Top
 Profile  
Reply with quote  
 Post subject: Re: Roulette Bot Service { Release } + { Setup }
Thanked: 0 time(s)  Unread post Posted: Tue Mar 10, 2015 2:14 pm 
New User
New User



Joined: Mon Mar 09, 2015 6:55 pm
Posts: 10
Location: italy
Been thanked: 1 time(s)
Has thanked: 3 time(s)
Contribution Points: 10
hi max i'm doing a roulette bot and i've read your post, such a great post but i don't understand everything.
Could you help me with my work?
thank you
description is here:
http://www.blueeye-macro.com/viewtopic.php?f=10&t=22315


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