Blue Eye Logo

Blue Eye Macro

Automation is freedom
It is currently Thu Dec 14, 2017 10:17 am

All times are UTC




Post new topic Reply to topic  [ 39 posts ]  Go to page Previous  1, 2, 3, 4  Next
Author Message
 Post subject: Re: Roulette bot version 2
Thanked: 0 time(s)  Unread post Posted: Sat Jul 23, 2011 12:12 am 
Partner / Developer
Partner / Developer
User avatar



Joined: Mon Jan 18, 2010 11:51 am
Posts: 4523
Been thanked: 1164 time(s)
Has thanked: 132 time(s)
Contribution Points: 32783
You probably need to update the coordinate or the color inside the following function:

Code:
function("Check if we won")
     begin
          Variable.Set("won", "no")
          if  Color.At coordinate is not within (RGB range)("2", "65", "64", "10", "978", "159")
               begin
                    Variable.Set("won", "yes")
               end
     end
function


Apparently the coordinate 978/159 is not within the specified range, therefore the macro thinks it won.

_________________
Blue Eye - Developer / Moderator
Code:
Gigus


Please read the rules about contribution points - click here

Do you know everything about BE, the forum, licenses and contribution points?
Please take a minute to read this introduction & guidelines.


Top
 Profile  
Reply with quote  
 Post subject: Re: Roulette bot version 2
Thanked: 0 time(s)  Unread post Posted: Sat Sep 03, 2011 8:14 pm 
New User
New User



Joined: Wed Aug 31, 2011 4:34 am
Posts: 6
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 86
I've got me a problem i have writen one personalised script baset on yours, i did it for playing without quickspin and it worked perfectly.

but now i wanted to macke a copy of it but for quickspin instead and for some reason it skipps a step in the script?
what is the problem here, i cant figure it out^^

first script (working)
Code:
begin
     Variable.Set("bet", "{MinimumBet}")
     Function.Execute("Reset window location")
     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("Reset window location")
     begin
          Window.Set location("PKR - let's play!", "yes", "1", "1")
          Window.Bring to front("PKR - let's play!", "yes")
          Macro.Pause("1000")
     end
function

function("Place bet")
     begin loop("{bet}")
          Mouse.Move to coordinate("374", "434")
          Variable.Set random number("random", "50", "150")
          Macro.Pause("{random}")
          Mouse.Hold button("left")
          Macro.Pause("100")
          Mouse.Release button("left")
          Variable.Set random number("random", "100", "150")
          Macro.Pause("{random}")
     end
     if  Color.At coordinate is (RGB)("35", "3", "3", "371", "431")
          begin loop("{bet}")
               Mouse.Move to coordinate("374", "434")
               Variable.Set random number("random", "50", "150")
               Macro.Pause("{random}")
               Mouse.Hold button("left")
               Macro.Pause("100")
               Mouse.Release button("left")
               Variable.Set random number("random", "100", "150")
               Macro.Pause("{random}")
          end
     begin
          Variable.Set random number("random", "2000", "5000")
          Macro.Pause("{random}")
          Mouse.Move to coordinate("525", "726")
          Variable.Set random number("random", "50", "150")
          Macro.Pause("{random}")
          Mouse.Hold button("left")
          Macro.Pause("100")
          Mouse.Release button("left")
          Variable.Set random number("random", "1500", "2500")
          Macro.Pause("{random}")
          Mouse.Move to coordinate("525", "726")
          Variable.Set random number("random", "50", "150")
          Macro.Pause("{random}")
          Mouse.Hold button("left")
          Macro.Pause("100")
          Mouse.Release button("left")
          Variable.Set random number("random", "22000", "25000")
          Macro.Pause("{random}")
     end
function

function("Check if we won")
     begin
          Variable.Set("won", "no")
          if  Color.At coordinate is not within (RGB range)("2", "65", "64", "10", "989", "195")
               begin
                    Variable.Set("won", "yes")
               end
     end
function


second script, quickspin (not working)

Code:
begin
     Variable.Set("bet", "{MinimumBet}")
     Function.Execute("Reset window location")
     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("Reset window location")
     begin
          Window.Set location("PKR - let's play!", "yes", "1", "1")
          Window.Bring to front("PKR - let's play!", "yes")
          Macro.Pause("1000")
     end
function

function("Place bet")
     begin loop("{bet}")
          Variable.Set random number("random", "50", "150")
          Macro.Pause("{random}")
          Mouse.Move to coordinate("374", "434")
          Variable.Set random number("random", "50", "150")
          Macro.Pause("{random}")
          Mouse.Hold button("left")
          Macro.Pause("100")
          Mouse.Release button("left")
          Variable.Set random number("random", "100", "150")
          Macro.Pause("{random}")
     end
     if  Color.At coordinate is (RGB)("35", "3", "3", "371", "431")
          begin loop("{bet}")
               Variable.Set random number("random", "50", "150")
               Macro.Pause("{random}")
               Mouse.Move to coordinate("374", "434")
               Variable.Set random number("random", "50", "150")
               Macro.Pause("{random}")
               Mouse.Hold button("left")
               Macro.Pause("100")
               Mouse.Release button("left")
               Variable.Set random number("random", "100", "150")
               Macro.Pause("{random}")
          end
     begin
          Variable.Set random number("random", "1000", "1500")
          Macro.Pause("{random}")
          Mouse.Move to coordinate("525", "726")
          Variable.Set random number("random", "50", "150")
          Macro.Pause("{random}")
          Mouse.Hold button("left")
          Macro.Pause("100")
          Mouse.Release button("left")
          Variable.Set random number("random", "1500", "2500")
          Macro.Pause("{random}")
          Mouse.Move to coordinate("525", "726")
          Variable.Set random number("random", "50", "150")
          Macro.Pause("{random}")
          Mouse.Hold button("left")
          Macro.Pause("100")
          Mouse.Release button("left")
          Variable.Set random number("random", "1000", "2000")
          Macro.Pause("{random}")
     end
function

function("Check if we won")
     begin
          Variable.Set("won", "no")
          if  Color.At coordinate is not within (RGB range)("2", "65", "64", "10", "989", "195")
               begin
                    Variable.Set("won", "yes")
               end
     end
function


i meen it's virutualy the same script, why does one work and not the other?^^


here is the log

Log:
------------------------------------------------------------------------------
Started
Executing: Variable.Set(Variable name: bet, Value: {MinimumBet})
Error: A variable called MinimumBet, does not exist
Executing: Function.Execute(Name: Reset window location)
Executing: Window.Set location(Window ID/Title: PKR - let's play!, Exact match: yes, X Coordinate: 1, Y Coordinate: 1)
Executing: Window.Bring to front(Window ID/Title: PKR - let's play!, Exact match: yes)
Executing: Macro.Pause(Duration: 1000)
Executing: Function.Execute(Name: Place bet)
<--------------------------------------------------------------------------------------------------------------------here it skipps parts from the function "place bet"
Checking if: Color.At coordinate is (RGB)(R: 35, G: 3, B: 3, X coordinate: 371, Y coordinate: 431)
Result: No
Executing: Variable.Set random number(Variable name: random, From: 1000, To: 1500)
Executing: Macro.Pause(Duration: 1210)
Executing: Mouse.Move to coordinate(X Coordinate: 525, Y Coordinate: 726)
Executing: Variable.Set random number(Variable name: random, From: 50, To: 150)
Executing: Macro.Pause(Duration: 109)
Executing: Mouse.Hold button(Mouse Button: left)
Executing: Macro.Pause(Duration: 100)
Executing: Mouse.Release button(Mouse Button: left)
Executing: Variable.Set random number(Variable name: random, From: 1500, To: 2500)
Executing: Macro.Pause(Duration: 1896)
Executing: Mouse.Move to coordinate(X Coordinate: 525, Y Coordinate: 726)
Executing: Variable.Set random number(Variable name: random, From: 50, To: 150)
Executing: Macro.Pause(Duration: 112)
Executing: Mouse.Hold button(Mouse Button: left)
Executing: Macro.Pause(Duration: 100)
Executing: Mouse.Release button(Mouse Button: left)
Executing: Variable.Set random number(Variable name: random, From: 1000, To: 2000)
Executing: Macro.Pause(Duration: 1236)
Executing: Function.Execute(Name: Check if we won)
Executing: Variable.Set(Variable name: won, Value: no)
Checking if: Color.At coordinate is not within (RGB range)(R: 2, G: 65, B: 64, Range: 10, X Coordinate: 989, Y Coordinate: 195)
Result: Yes
Executing: Variable.Set(Variable name: won, Value: yes)
Checking if: Variable.Is equal to(Variable name: won, Value: yes)
Result: Yes
Executing: Macro.Report progress(Progress: We won! Resetting bet)
Executing: Variable.Set(Variable name: bet, Value: {MinimumBet})
Error: A variable called MinimumBet, does not exist
Checking if: Variable.Is equal to(Variable name: won, Value: no)
Result: No
Executing: Function.Execute(Name: Place bet)
Checking if: Color.At coordinate is (RGB)(R: 35, G: 3, B: 3, X coordinate: 371, Y coordinate: 431)
Result: No
Executing: Variable.Set random number(Variable name: random, From: 1000, To: 1500)
Executing: Macro.Pause(Duration: 1306)
Executing: Mouse.Move to coordinate(X Coordinate: 525, Y Coordinate: 726)
Executing: Variable.Set random number(Variable name: random, From: 50, To: 150)
Executing: Macro.Pause(Duration: 119)
Executing: Mouse.Hold button(Mouse Button: left)
Executing: Macro.Pause(Duration: 100)
Executing: Mouse.Release button(Mouse Button: left)
Executing: Variable.Set random number(Variable name: random, From: 1500, To: 2500)
Executing: Macro.Pause(Duration: 2445)
Executing: Mouse.Move to coordinate(X Coordinate: 525, Y Coordinate: 726)
Executing: Variable.Set random number(Variable name: random, From: 50, To: 150)
Executing: Macro.Pause(Duration: 56)
Executing: Mouse.Hold button(Mouse Button: left)
Executing: Macro.Pause(Duration: 100)
Executing: Mouse.Release button(Mouse Button: left)
Executing: Variable.Set random number(Variable name: random, From: 1000, To: 2000)
Executing: Macro.Pause(Duration: 1535)
Executing: Function.Execute(Name: Check if we won)
Executing: Variable.Set(Variable name: won, Value: no)
Checking if: Color.At coordinate is not within (RGB range)(R: 2, G: 65, B: 64, Range: 10, X Coordinate: 989, Y Coordinate: 195)
Result: Yes
Executing: Variable.Set(Variable name: won, Value: yes)
Checking if: Variable.Is equal to(Variable name: won, Value: yes)
Result: Yes
Executing: Macro.Report progress(Progress: We won! Resetting bet)
Executing: Variable.Set(Variable name: bet, Value: {MinimumBet})
Error: A variable called MinimumBet, does not exist
Checking if: Variable.Is equal to(Variable name: won, Value: no)
Result: No
Executing: Function.Execute(Name: Place bet)
Checking if: Color.At coordinate is (RGB)(R: 35, G: 3, B: 3, X coordinate: 371, Y coordinate: 431)
Result: No
Executing: Variable.Set random number(Variable name: random, From: 1000, To: 1500)
Executing: Macro.Pause(Duration: 1233)
Executing: Mouse.Move to coordinate(X Coordinate: 525, Y Coordinate: 726)
Executing: Variable.Set random number(Variable name: random, From: 50, To: 150)
Executing: Macro.Pause(Duration: 76)
Executing: Mouse.Hold button(Mouse Button: left)
Executing: Macro.Pause(Duration: 100)
Executing: Mouse.Release button(Mouse Button: left)
Executing: Variable.Set random number(Variable name: random, From: 1500, To: 2500)
Executing: Macro.Pause(Duration: 2119)
Aborted
------------------------------------------------------------------------------------

there is a error message that's coming up after i run it and ask if i want to se the log, so how do i make the program run the whole function?^^

P.S: i'm gonna modefy the first script to work for both later, but i'm still curius on what's wrong with this^^


Top
 Profile  
Reply with quote  
 Post subject: Re: Roulette bot version 2
Thanked: 0 time(s)  Unread post Posted: Sat Sep 03, 2011 8:38 pm 
Partner / License admin
Partner / License admin
User avatar



Joined: Sun Oct 10, 2010 5:16 pm
Posts: 1689
Location: USA
Been thanked: 358 time(s)
Has thanked: 26 time(s)
Contribution Points: 15915
In your new macro:

- It looks like you didn't set the 2 variables minimum/maximum bet.
- You have an extra random number generator that you don't use (shouldn't hurt anything though)
- You shortened the time between actions, you sure it's not faster than the game?

_________________
----------------------------------------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 version 2
Thanked: 0 time(s)  Unread post Posted: Sat Sep 03, 2011 9:38 pm 
New User
New User



Joined: Wed Aug 31, 2011 4:34 am
Posts: 6
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 86
haha that's funny, i wrote Minimumbet/Maximumbet intead of MinimumBet/MaximunBet on the variable^^

thx for the help^^
while i waited for a reply i modifyed the first so it can handle both anyway, but it's nice to know what was wrong^^

(it's always the litle things haha)


here is the whole script for the finished bot, should work for both quick and normal now^^

Code:
 begin
     Variable.Set("bet", "{MinimumBet}")
     Function.Execute("Reset window location")
     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("Reset window location")
     begin
          Window.Set location("PKR - let's play!", "yes", "1", "1")
          Window.Bring to front("PKR - let's play!", "yes")
          Macro.Pause("1000")
     end
function

function("Place bet")
     begin loop("{bet}")
          Mouse.Move to coordinate("374", "434")
          Variable.Set random number("random", "50", "150")
          Macro.Pause("{random}")
          Mouse.Hold button("left")
          Macro.Pause("100")
          Mouse.Release button("left")
     end
     if  Color.At coordinate is (RGB)("11", "40", "41", "930", "270")
          begin
               Variable.Set random number("random", "100", "500")
               Macro.Pause("{random}")
               Mouse.Move to coordinate("525", "726")
               Variable.Set random number("random", "50", "150")
               Macro.Pause("{random}")
               Mouse.Hold button("left")
               Macro.Pause("100")
               Mouse.Release button("left")
               Variable.Set random number("random", "19000", "21000")
               Macro.Pause("{random}")
          end
     if  Color.At coordinate is not (RGB)("11", "40", "41", "930", "270")
          begin
               Variable.Set random number("random", "100", "500")
               Macro.Pause("{random}")
               Mouse.Move to coordinate("525", "726")
               Variable.Set random number("random", "50", "150")
               Macro.Pause("{random}")
               Mouse.Hold button("left")
               Macro.Pause("100")
               Mouse.Release button("left")
               Variable.Set random number("random", "5500", "6000")
               Macro.Pause("{random}")
          end
function

function("Check if we won")
     begin
          Variable.Set("won", "no")
          if  Color.At coordinate is not within (RGB range)("2", "65", "64", "10", "989", "195")
               begin
                    Variable.Set("won", "yes")
               end
     end
function
 


(btw the extra pause time and click was just a precuasion if for some reason the firs click did't register, but it was not nessesery after i rewrote it to "mouse.move" instead of "mouse.click" ^^)


Top
 Profile  
Reply with quote  
 Post subject: Re: Roulette bot version 2
Thanked: 0 time(s)  Unread post Posted: Sun Sep 04, 2011 2:08 pm 
Partner / Developer
Partner / Developer
User avatar



Joined: Mon Jan 18, 2010 11:51 am
Posts: 4523
Been thanked: 1164 time(s)
Has thanked: 132 time(s)
Contribution Points: 32783
Im glad you solved it, and good spot Syrifina.

ps, Mouse move will move the cursor in a path from the current position to the destination, "Mouse.Set coordinate" will jump directly to the destination, making the macro faster.

If Mouse.Click at....... does not work, try increasing the "Mouse move delay" inside BE settings under the Performance tab.

_________________
Blue Eye - Developer / Moderator
Code:
Gigus


Please read the rules about contribution points - click here

Do you know everything about BE, the forum, licenses and contribution points?
Please take a minute to read this introduction & guidelines.


Top
 Profile  
Reply with quote  
 Post subject: Re: Roulette bot version 2
Thanked: 0 time(s)  Unread post Posted: Sun Jan 15, 2012 9:49 am 


hello,
I tried this code and it really works perfectly for
me in almost all cassinos... Thenks for this nice macro!

But I would want change this system "Martingale" to
"D'Alembert" in this Macro!!!

The D'Alembert System its almost same how Martingale, but
the bet its not doubled!

exemple:
The sequence of bets in a losing streak is:
1, 2, 3, 4, 5, etc

The sequence of bets for 3 losses and 3 wins would be:
1, 2, 3, 4, 3, 2, 1

Here a Link:
http://www.roulettesavior.com/systems/dalembert/

can help me pleas change this progression in this macro
to D'Alembert System?

I have no idea like this goes...:(

Ps. sorry for my bad english^^


Top
  
Reply with quote  
 Post subject: Re: Roulette bot version 2
Thanked: 0 time(s)  Unread post Posted: Mon Jan 16, 2012 2:26 pm 
New User
New User
User avatar



Joined: Fri Jan 13, 2012 1:04 pm
Posts: 20
Been thanked: 2 time(s)
Has thanked: 0 time(s)
Contribution Points: 77
realy good! I'll play again PKR now :D

_________________
Image


Top
 Profile  
Reply with quote  
 Post subject: Re: Roulette bot version 2
Thanked: 0 time(s)  Unread post Posted: Fri Mar 02, 2012 12:06 am 
New User
New User



Joined: Fri Mar 02, 2012 12:02 am
Posts: 16
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 97
Bazzysh wrote:
haha that's funny, i wrote Minimumbet/Maximumbet intead of MinimumBet/MaximunBet on the variable^^

thx for the help^^
while i waited for a reply i modifyed the first so it can handle both anyway, but it's nice to know what was wrong^^

(it's always the litle things haha)


here is the whole script for the finished bot, should work for both quick and normal now^^

Code:
 begin
     Variable.Set("bet", "{MinimumBet}")
     Function.Execute("Reset window location")
     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("Reset window location")
     begin
          Window.Set location("PKR - let's play!", "yes", "1", "1")
          Window.Bring to front("PKR - let's play!", "yes")
          Macro.Pause("1000")
     end
function

function("Place bet")
     begin loop("{bet}")
          Mouse.Move to coordinate("374", "434")
          Variable.Set random number("random", "50", "150")
          Macro.Pause("{random}")
          Mouse.Hold button("left")
          Macro.Pause("100")
          Mouse.Release button("left")
     end
     if  Color.At coordinate is (RGB)("11", "40", "41", "930", "270")
          begin
               Variable.Set random number("random", "100", "500")
               Macro.Pause("{random}")
               Mouse.Move to coordinate("525", "726")
               Variable.Set random number("random", "50", "150")
               Macro.Pause("{random}")
               Mouse.Hold button("left")
               Macro.Pause("100")
               Mouse.Release button("left")
               Variable.Set random number("random", "19000", "21000")
               Macro.Pause("{random}")
          end
     if  Color.At coordinate is not (RGB)("11", "40", "41", "930", "270")
          begin
               Variable.Set random number("random", "100", "500")
               Macro.Pause("{random}")
               Mouse.Move to coordinate("525", "726")
               Variable.Set random number("random", "50", "150")
               Macro.Pause("{random}")
               Mouse.Hold button("left")
               Macro.Pause("100")
               Mouse.Release button("left")
               Variable.Set random number("random", "5500", "6000")
               Macro.Pause("{random}")
          end
function

function("Check if we won")
     begin
          Variable.Set("won", "no")
          if  Color.At coordinate is not within (RGB range)("2", "65", "64", "10", "989", "195")
               begin
                    Variable.Set("won", "yes")
               end
     end
function
 


(btw the extra pause time and click was just a precuasion if for some reason the firs click did't register, but it was not nessesery after i rewrote it to "mouse.move" instead of "mouse.click" ^^)


Hi, this is working RLY good when you fix the coordinates a bit, but I have a question. How do I change so that the script sees the 0 (loss) as a loss, cuz right now at PKR it gives you back what you spent, like bet $2 on red, ball lands on 0 you get that 2 dollars back. But then the script sees that as a win, but I want that to count as a loss. Where and how do I change that?

Edit: Fixed it =) was pretty simple, All I had to do was to tweek the
Code:
begin
          Variable.Set("won", "no")
          if  Color.At coordinate is not within (RGB range)("2", "65", "64", "10", "989", "195")
               begin

to what ever the RGB color and coordinates was for me. :P

Btw, your script works ALOT better then the original one. GJ on it =)

//Snaert


Top
 Profile  
Reply with quote  
 Post subject: Re: Roulette version 2
Thanked: 0 time(s)  Unread post Posted: Sun Mar 04, 2012 11:33 pm 


how do i use the code in blue eye. plz help


Top
  
Reply with quote  
 Post subject: Re: Roulette bot version 2
Thanked: 0 time(s)  Unread post Posted: Mon Mar 05, 2012 12:04 am 
Active User
Active User



Joined: Tue Feb 07, 2012 11:22 pm
Posts: 37
Location: sweden
Been thanked: 0 time(s)
Has thanked: 0 time(s)
Contribution Points: 157
tnh good


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