Hi there.
Yes, it's yours truly.
With my very first RSS Pro Tutorial.
You can follow along if you like.
Ok, phew...
I just managed to make my first RSS Pro Bot.
I got it to do something.
Amazing...
This is a very, very basic RSS Pro Bot.
For the moment, all I have it doing is spinning the wheel
and placing numbers in a marque.
And anyone can do this.
So sit back.
Relax...
And let's get started.
1. Run RSS Pro.
Unit1 and Unit2
Code and Design
Unit2 is where the form is.
Code and Design.
Code is where the code is.
And Design is where you design what it will look like.
2. Change the form name.
On the left side you have 2 tabs.
One is Properties.
And the other is Events.
(link:://rouletteprofesor.com/rss-pro/01.jpg)
(link:://rouletteprofesor.com/rss-pro/02.jpg)
Go to the Properties tab.
Properties Tab is where you can change the look of the object.
In this case all we are doing is changing the name of the form.
Find where it says Caption.
And change the form1 to what ever name you want the form to have.
Tom's Bot
3. Now we are going to add 4 different objects to the form.
Obj 1.= A memo.
Obj 2.= A combo box
Obj 3.= A field box
Obj 4.= A Button
(link:://rouletteprofesor.com/rss-pro/04.jpg)
Once you have done this.
You should save it.
Go to the File Menu.
And do a "Save All"
This will save all the components.
It will save 4 things.
Unit1.psc
Unit2.psc
Unit2.sfm
my-bot.ssproj (Here you enter in the name of the project)
Now we are going to change the 5 objects.
Obj 0.= form1 (Tom's Bot)
Obj 1.= A memo.
Obj 2.= A combo box
Obj 3.= A field box
Obj 4.= A Button
Obj 0.= form1 (Tom's Bot)
Changing the form.
From Sizable. To fixed.
(link:://rouletteprofesor.com/rss-pro/03.jpg)
Obj 1.= A memo.
Clear the text from the memo.
(link:://rouletteprofesor.com/rss-pro/05.jpg)
(link:://rouletteprofesor.com/rss-pro/06.jpg)
Obj 2.= A combo box
Edit the text for the combo box.
Here I put in Casinos.
As we are going to add a list of casinos to chose from.
(link:://rouletteprofesor.com/rss-pro/07.jpg)
(link:://rouletteprofesor.com/rss-pro/08.jpg)
Obj 3.= A field box
Here we do the same thing.
Enter in a text.
For this field box we will enter in the number 20.
As we are going to use this to enter in how many times we want the wheel to spin.
(link:://rouletteprofesor.com/rss-pro/09.jpg)
Obj 4.= A Button
Now all we do is change the caption of the button to "Spin"
(link:://rouletteprofesor.com/rss-pro/10.jpg)
Here it is all finished.
(link:://rouletteprofesor.com/rss-pro/11.jpg)
Do a Save All. From the File menu.
Do this often. So you don't lose your work.
Note: Run the script before saving.
Just in-case something you did, didn't work.
You can always go back to the last save.
Now... all the GUI is done.
Onto programming.
We are going to make it do something.
First, we are going to add in some casinos.
Second, we are going to get it to spin the wheel.
Then third, we are going to show the numbers that have spun in the memo.
Step 1. (Adding in Casinos to play at)
(link:://rouletteprofesor.com/rss-pro/12.jpg)
We add these Items to the menu.
Chose a casino.
EuroGrand
bet365casino
Casino Tropez
Mapau
21Nova
William Hill
(link:://rouletteprofesor.com/rss-pro/13.jpg)
Run the script.
(link:://rouletteprofesor.com/rss-pro/14.jpg)
And press on the menu to see the list of Casinos.
Now we add some action to the menu.
So when you select the casino.
It will chose that casino to play at.
Double click on the combo box (Menu)
And this will take you to the Script area.
This is what the code looks like.
procedure ComboBox1Change(Sender: TObject);
begin
end;
Now put something inside it.
procedure ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0:ShowMessage('Choose a casino');
1:set_roulette_window_name('European Roulette - EuroGrand Casino');
2:set_roulette_window_name('European Roulette - bet365casino');
3:set_roulette_window_name('European Roulette - Casino Tropez');
4:set_roulette_window_name('European Roulette - Mapau Casino');
5:set_roulette_window_name('Roulette Pro - 21Nova Casino');
6:set_roulette_window_name('European Roulette - William Hill CASINO CLUB');
end;
end;
Ok, Run it again.
And go to the menu.
This is what happens when you select one of the menu items.
(link:://rouletteprofesor.com/rss-pro/15.jpg)
(link:://rouletteprofesor.com/rss-pro/16.jpg)
Easy...
So far so good.
Step 2. and Step 3.
Getting the wheel to spin.
And getting the numbers that turn up into the memo.
Step 2. (Spin that wheel)
Double click on the button.
This is what the code looks like.
procedure Button1Click(Sender: TObject);
begin
end;
Now all we do, is get it to spin.
So we add this line to the procedure.
click_spin();
procedure Button1Click(Sender: TObject);
begin
click_spin();
end;
Open up one of the casinos.
And go to the roulette table.
Run the script.
Chose the casino from the menu.
Press the "Spin" Button.
And see if the casino wheel spins.
(link:://rouletteprofesor.com/rss-pro/17.jpg)
(link:://rouletteprofesor.com/rss-pro/18.jpg)
Ok, we got the wheel to spin...
Woopdie dooo...
Next...
Step 3. (Get the numbers to show up in the memo)
We add this code to the script.
memo1.Lines.Add(get_last_number());
This will get the last number that appeared on the casino.
And send it to the memo.
procedure Button1Click(Sender: TObject);
begin
click_spin();
memo1.Lines.Add(get_last_number());
end;
(link:://rouletteprofesor.com/rss-pro/19.jpg)
And now for the rest of it.
Here we get it to spin for x amount of spins automatically.
This is where the script may get a little complicated.
We are going to be working with the field we set up.
Here we enter in a number, and it should spin for x spins.
So we use this.
if edit1.Text <>'' then
begin
end;
And we also have to add some variables to the script.
So lets add two variables to the script.
spins
n
uses
Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
var spins;
Also we have to set the variables up to equal something.
This is at the bottom of the script.
begin
spins:=20;
end;
And we add a variable to the button procedure like this.
procedure ButtonClick(Sender: TObject);
var cnt;
This is what the code looks like when it is all done.
procedure Button1Click(Sender: TObject);
var cnt;
begin
if edit1.Text <>'' then
begin
spins:=IntToStr(edit1.Text)
for cnt:=0 to spins do
begin
click_spin();
memo1.Lines.Add(get_last_number());
end;
end;
end;
The entire script.
{$FORM TForm2, Unit2.sfm}
uses
Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
var spins;
procedure Form2Create(Sender: TObject);
begin
end;
procedure ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0:ShowMessage('Choose a casino');
1:set_roulette_window_name('European Roulette - EuroGrand Casino');
2:set_roulette_window_name('European Roulette - bet365casino');
3:set_roulette_window_name('European Roulette - Casino Tropez');
4:set_roulette_window_name('European Roulette - Mapau Casino');
5:set_roulette_window_name('Roulette Pro - 21Nova Casino');
6:set_roulette_window_name('European Roulette - William Hill CASINO CLUB');
end;
end;
procedure Button1Click(Sender: TObject);
var cnt;
begin
if edit1.Text <>'' then
begin
spins:=IntToStr(edit1.Text)
for cnt:=0 to spins do
begin
click_spin();
memo1.Lines.Add(get_last_number());
end;
end;
end;
begin
spins:=20;
end;
Here is a video of it working.
link:://rouletteprofesor.com/rss-pro/my-bot-vid.html (link:://rouletteprofesor.com/rss-pro/my-bot-vid.html)
Before doing the each step.
Make sure you Run the script.
If all is good.
Then save it all.
Run and Save.
And keep on doing that.
Tom mate,
:thumbsup: :thumbsup: :thumbsup: :thumbsup: :thumbsup: :thumbsup: :thumbsup:
For me it would be like traying to discover the Pluton.
Will continue with my spreadsheet and the pencil.
Hey Thomas, great! So you truly are "The Roulette Professor"!
[attachimg=#]
Very descriptive logo you had posted there by the way!
Keep 'em coming, I never really got to learn PASCAL, and this pascal-oriented language is an opportunity to see the Syntax of the "goo ol' P" in action :thumbsup:. Kudos and many thanks for taking the time to put your tutorial up!
Appreciated.
Thanks Victor.
And thanks for your encouragement.
If you read the tutorial.
I think you would find Pascal rather easy to use.
Anyway...
Onto the next RSS Pro tutorial.
Going to make it a bit more complicated.
With more in the code.
Quote from: ThomasGrant on Jul 19, 09:31 PM 2010
Thanks Victor.
And thanks for your encouragement.
If you read the tutorial.
I think you would find Pascal rather easy to use.
I did read it, It is easy to understand.
Very easy to grasp commands such as:
click_spin();
and
memo1.Lines.Add(get_last_number());
So far so good :)