Tom's RSS Pro: Tutorial V3 (Code)

[ThomasGrant]

Here is a list of things I would like this bot to do.

1. Load settings.
1a. Load settings for window position.
1b. Load setting for the amount of spins.
1c. Load previous balance.
1d. Load Chip settings.

2. Save settings.
2a. All of the above but saving each setting.

3. Load and save spins.

4. Use spin data to set systems settings.

5. Update balance.

And what ever else I can think of.

[ThomasGrant]

Ok, I have started coding this bot.
I think you are going to find this interesting.

So I hope you will join in.
And perhaps learn something.

I am going to show you many of the things I have learnt so far.
And show you how they work.
And what they do.

Put your name down.
If you wish to follow along.

The more people who participate.
The more fun I will have.
And the more motivated I will be.

[ThomasGrant]

Now... lets get started.

First part I wanted to work out.
Was to get the window to remember the position on exit.
And then to have the window open up in that position.

I did a fair bit of research on this.
But found it difficult to implement into RSS Pro.

So I found what tid bits I could.
And got it to work.

And here is the very simple code that makes it work.

First we have to make a New Folder on our C: drive and call it rss-data
c:\rss-data

This is where all the data will be stored.

In this instance, it will be the window position.

Once we have the new folder we add in a few variables to the script.

var F : Text;
     S : String;
var i,bal;

Then we add some script when we close the window.

Code Select Expand

procedure Form2Close(Sender: TObject; var Action: TCloseAction);
begin
   AssignFile(F,'c:\rss-data\winpos');
   Rewrite(F);         
   Writeln(F,Self.Top);
   Writeln(F,Self.Left); 
   CloseFile(F);     
end;

What this will do. Is Write to a file in rss-data called winpos (Window Position)
AssignFile(F,'c:\rss-data\winpos');
It will write the top position and the left position of the window to the file.

EASY...

Run and save.
Doing this will make sure the file exists.
Other wise you will get an error when you do the next bit.

Now to make it load those settings when the window opens.

Code Select Expand

procedure Form2Create(Sender: TObject);
begin
    AssignFile(F,'c:\rss-data\winpos');{If no file exist. Then you will get an error message}
    Reset(F);{open the file for reading}
    i := 0;
    while not eof(F) do {loop that will repeat until the end of file will be not found}
    begin
        S:=ReadLn(F); {read the first line into "s" variable}
        if i=0 then Self.Top:=s;{Sets the form window to its last top position}
        if i=1 then Self.Left:=s;{Sets the form window to its last left position}
        i := i+1;
    end;
    CloseFile(F);//close the file   
end;

This will open the window in the last saved position.

Was that hard?

And guess what?

It works...