Bally2002

Contenuto del file

system "untitled"
method "main"
begin
if starting a new session
    begin
    call "init";
    end


if flag "qualified" is false
    begin
    call "qualify";
    end
else
    begin
    call "check win/lose";
    call "place bets";
    end

end




method "init"
begin

set list [1,2,4,8,16,32,64,128] on record "Progression" data;
put 1 units on record "Progression" data index;

set flag "qualified" to false;

copy list [number 0, number 1, number 2, number 3, number 8, number 10,
           number 11, number 12, number 13, number 20, number 21,
           number 22, number 23, number 26, number 30, number 31,
           number 32, number 33]
           to record "Bets" layout;

end



method "qualify"
begin

if number 0 has not hit more than 1 times
and number 1 has not hit more than 1 times
and number 2 has not hit more than 1 times
and number 3 has not hit more than 1 times
and number 8 has not hit more than 1 times
and number 10 has not hit more than 1 times
and number 11 has not hit more than 1 times
and number 12 has not hit more than 1 times
and number 13 has not hit more than 1 times
and number 20 has not hit more than 1 times
and number 21 has not hit more than 1 times
and number 22 has not hit more than 1 times
and number 23 has not hit more than 1 times
and number 26 has not hit more than 1 times
and number 30 has not hit more than 1 times
and number 31 has not hit more than 1 times
and number 32 has not hit more than 1 times
and number 33 has not hit more than 1 times
    begin
    set flag "qualified" to true;
    call "place bets";
    end



end




method "check win/lose"
begin

if net amount > 0
or record "Progression" data index > record "Progression" data count
    begin
    call "init";
    exit;
    end
else
    begin
    add 1 unit on record "Progression" data index;
    end

end


method "place bets"
begin

put 1 unit on record "bets" layout index;

loop until record "bets" layout index > record "bets" layout count
    begin
    put 100% of record "Progression" data on record "Bets" layout;
    add 1 unit on record "bets" layout index;
    end

end