Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Thu Nov 26, 2020 6:57 am

All times are UTC




Post new topic Reply to topic  [ 2 posts ] 
Author Message
 Post subject: casino roulette robot
Thanked: 0 time(s)  Unread post Posted: Sun Nov 08, 2020 6:16 pm 
New User
New User



Joined: Sun Nov 08, 2020 6:05 pm
Posts: 1
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 10
I'm having problems in the code:
he says he has an error on line 10
Code:
begin
     Variable.Set("Aposta", "(Minima)")
     Function.Execute("Local de tela")
     begin loop()
          Function.Execute("Colocar aposta")
          Function.Execute("Verificar acerto")
          if  Variable.Is equal to("Acertou", "Sim")
               begin
                    Variable.Set("Aposta", "(Minima)")
               end
          if  Variable.Is equal to("Acertou", "Nao")
               begin
                    Variable.Multiply (Math)("Aposta", "2")
                    if  Variable.Is greater than (Math)("Aposta", "(Maxima)")
                         begin
                              Variable.Set("Aposta", "(Minima)")
                         end
               end
     end
 end

function("Local de tela")
     begin
          Window.Set location("Cassino ao Vivo Online - Jogos de Cassino » Cassino Betfair™ - Google Chrome", "Yes", "1", "1")
          Window.Bring to front("\"Cassino ao Vivo Online - Jogos de Cassino » Cassino Betfair™ - Google Chrome", "Yes")
          Macro.Pause("1000")
     end
function

function("Colocar aposta")
     begin loop()
          Mouse.Click at coordinate("15", "15", "Left")
     end
     begin
          Mouse.Click at coordinate("33", "33", "Left")
          Macro.Pause("500")
          Color.Wait for color at coordinate to be within (RGB range)("142", "20", "13", "10", "456", "361")
          Macro.Pause("500")
     end
function

function("Verificar acerto")
     begin
          Variable.Set("Acertou", "Nao")
          if  Color.At coordinate is not within (RGB range)("61", "147", "238", "10", "380", "174")
               begin
                    Variable.Set("Acertou", "Sim")
               end
     end
function


If anyone can help me


Attachments:
File comment: error o line 10
2.png
2.png [ 306.72 KiB | Viewed 38 times ]
Top
 Profile  
Reply with quote  
 Post subject: Re: casino roulette robot
Thanked: 0 time(s)  Unread post Posted: Sun Nov 08, 2020 8:53 pm 
Partner / License admin
Partner / License admin
User avatar



Joined: Sun Oct 10, 2010 5:16 pm
Posts: 2124
Location: USA
Been thanked: 490 time(s)
Has thanked: 37 time(s)
Contribution Points: 17300
First, I would add an "end" to this "if" statement...I don't think it will work like that.

Code:
          if  Variable.Is equal to("Acertou", "Nao")
               begin
                    Variable.Multiply (Math)("Aposta", "2")
                    if  Variable.Is greater than (Math)("Aposta", "(Maxima)")


But your main issue is that variables start and end with a single { and } not parenthesis ( ). Not sure if you want the parenthesis as part of your variable name, but if you just add the brackets then it will save without an error:
Code:
 begin
     Variable.Set("Aposta", "(Minima)")
     Function.Execute("Local de tela")
     begin loop()
          Function.Execute("Colocar aposta")
          Function.Execute("Verificar acerto")
          if  Variable.Is equal to("Acertou", "Sim")
               begin
                    Variable.Set("Aposta", "(Minima)")
               end
          if  Variable.Is equal to("Acertou", "Nao")
               begin
                    Variable.Multiply (Math)("Aposta", "2")
               end
          if  Variable.Is greater than (Math)("Aposta", "{(Maxima)}")
               begin
                    Variable.Set("Aposta", "{(Minima)}")
               end
     end
 end

_________________
----------------------------------------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  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 2 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