Silver

[Silver]

Hello, in this post will be available the s_utils module.
It contain usefull functions and procedures, that do the codding process easy.

1. procedure bet_x_on_y(xunits,yelements,chips);
   Bet the xunits amount on yelements elements.
   Chips is the declaration of chips from your script.
   Ex: bet_x_on_y(17.5,['column1','dozen1'],chips);

2. function in_array(i_nr,i_array):boolean;
   Check if the i_nr value is from the i_array array.
   Ex: if in_array(3,[1,2,3,4,5,6]) then print('Number 3 is from line 1-6') else print('Number 3 is not from line 1-6');

3. function number_is(number, name):boolean;
   Check if the number is red, black ,etc.
   Ex: if number_is(3,'line1') then print('Number 3 is from line1') else print('Number 3 is not from line 1');
   Ex: if number_is(34,'dozen2') then print('Number 34 is from dozen2') else print('Number 34 is not from dozen2');

4. procedure wait_ms(ms_in);
   wait ms_in milliseconds
   Ex: click_rebet(); wait_ms(2000); click_clear_bets(); //will wait 2 seconds

In the attachment you can download the s_utils.psc and the s_utils_example.psc.

[Lickmastr]

Hi there silver
I`m looking at your s_utils here, and was wondering about the number_is function.

I see you need to specify 2 parameters when dooing this .ex: Number_is(1,red)
But what if i want to use only Red? I want to find out if the last number is just red: Ex:


repeat
click_spin()
until Number_is(red)

how could i make this happen?

[Silver]

Here is your solution -)

repeat
click_spin()
until Number_is(get_last_number(),'red');

[Lickmastr]

Oh.. hehe.. why did i not see that one coming? hehe.. tnx

[thomasgrant]

Question on utils.
Ok, I have been trying to add this procedure to utils.

procedure display_spins;
begin                                            
    {Here we dispaly how many times the roulette wheel has spun.}
    if (nos=ds)
    then
    begin
        print('The wheel has spun '+IntToStr(nos)+' times');
        Print('');        
        ds:= ds + 50
    end;
end;
With not much success.
First I tried it as is.
Then I tried sending arguments to it.

procedure display_spins(nos,ds);

nos:=0
ds:=50;
for k:=0 to 110 do
    begin
        click_spin();
        nos:= nos + 1

      display_spins(nos,ds);
        
        last_number:=get_last_number();
end; //k:=0 to Spins do  

After my spins = get to 50
It will display that I have reached 50
But when spins reaches 100
Nothing happens.
Should it be in an array? of some sorts?

This happens when I add it to the utils.
And call the routine up from there.

When I add the routine to the main script.
It works fine.
I just remove the arguments.

nos:=0
ds:=50;
for k:=0 to 110 do
    begin
        click_spin();
        nos:= nos + 1

      display_spins;
       
        last_number:=get_last_number();
end; //k:=0 to Spins do 

[thomasgrant]

Perhaps you could explain how utils works.
And how to add procedures and functions to it.
And how to test that they do what they are supposed to do.

[thomasgrant]

Another question on utils.
I added some more info to this part of the script.

function number_is(number, name):boolean;
{check if the number is red, black ,etc.}
begin
   result:=false;
   case name of
      'Red':  if in_array(number,[1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36]) then
      begin
         result:=True;
         red_numbers[1]:=elements[w,1];
      end;
      'Black':if in_array(number,[2,4,6,8,10,11,13,15,17,20,22,24,26,28,29,31,33,35]) then
      begin
         result:=True;
         black_numbers[1]:=elements[w,1];
      end;
      'Odd': if in_array(number,[1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35]) then
      begin
         result:=True;
         odd_numbers[1]:=elements[w,1];
      end;
      'Even':if in_array(number,[2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36]) then
      begin
         result:=True;
         even_numbers[1]:=elements[w,1];
      end;
      'Low': if in_array(number,[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18]) then
      begin
         result:=True;
         low_numbers[1]:=elements[w,1];
      end;
      'High':if in_array(number,[19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36]) then
      begin
         result:=True;
         high_numbers[1]:=elements[w,1];
      end;
      
      //here you can add other elements
   end;
end;

red_numbers[1]:=elements[w,1];
Here I have set the array red_numbers[1] to = elements[w,1];
Now, I am not sure this will work if I have it in the utils.
I have this in my main script.
But would like to have it in utils.
Saves on script size.
How do I go about doing the above?
How would I go about adding this to utils so it will work?

[Silver]

On all your questions I have the one answer - you confuse the variable from the main script, and from the unit s_utils.
In your s_utils you have:
        print('The wheel has spun '+IntToStr(nos)+' times');
        Print('');       
        ds:= ds + 50
and here you increase the value of ds - but you increase the value of variable from s_utils.

But the other variable from the main script (with the same name ds) will not be changed.
So in s_utils you cannot modify the value of variables declared in main script.
In order to omit such situations - just declare the variables with different names.

procedure display_spins(utils_nos,utils_ds);

And about red_numbers[1]:=elements[w,1]; - I think you may found the solutions to do this calculation in main script.
Because the same rule: in s_utils you cannot modify the value of variables declared in main script.
This rule is common for all programming languages.

Good luck !!!

[thomasgrant]

Thank you.
So it seems that utils is only good for sending in true or false statements.
Or doing action. Click_Chip etc.
Hmmm, ok.

[Tags:]

Jump to: Please select a destination: ----------------------------- Our Network ----------------------------- => Online-Roulette-Systems.Info ----------------------------- New Members ----------------------------- => Welcome Here => Videos ===> RBS [Playtech] ===> RBS [RTG] ===> RBS [BetVoyager] ===> DCS [Playtech] ===> DCS [RTG] ===> DCS [BetVoyager] ===> AVSB [Playtech] ===> AVSB [RTG] ===> AVSB [BetVoyager] ===> AVSB Pro [Playtech] ===> RSS [Playtech] ===> RSS [Playtech | Live] ===> RSS [RTG] ===> RSS [BetVoyager] ===> RSS [Microgaming] ===> RSS Pro [Playtech] ===> RSS Pro [Playtech | Live] ===> RSS Pro [RTG] ===> RSS Pro [BetVoyager] ===> RSS Pro [Microgaming] ===> RNG Studio ===> X2VS1 [Playtech] ===> X3VS1 [Playtech] ----------------------------- Community Control Panel ----------------------------- => General Discussion => News & Events => Projects ===> LRA Project ===> RNG-D Project => Support => FAQ => Request File Service ----------------------------- Roulette Systems ----------------------------- => General Discussion => Test Zone ----------------------------- Roulette Scripts ----------------------------- => General Discussion => Scripts Zone ----------------------------- Live Roulette ----------------------------- => General Discussion => Playtech Live Online Roulette Scripts ----------------------------- Custom Roulette Scripts ----------------------------- => SILVER's Coding Room ----------------------------- Members - Private Boards ----------------------------- => Tom's Tutorial Zone => Harvest ----------------------------- Online Casinos ----------------------------- => General Discussion ----------------------------- Gaming Platforms - supported by our products ----------------------------- ===> Piggs Peak Casino ----------------------------- Affiliate Program ----------------------------- => Money Maker Machine Affiliate Program