Mayer v1

Contenuto del file

system "Mayer_v1"
{
*************************************
*      System by MCosmin            *
*************************************
}
method "main"
begin
// section 1: do this once
while starting new session
    begin
    call "init"
    end

// section 2: do the tracking
  call "check for reset"
  call "check win lose"
  call "compute bet"
  call "start bet"
end

// subroutines

method "check win lose"
begin
if record"even"layout has won each time
begin
        set flag "mark first" false
        put 0 record"numbers"data index
        loop until record"numbers"data count=record"numbers"data index
        begin
             add 1 record"numbers"data index
             if flag "mark first" false and record"numbers"data not = 0
             begin
                put 0 record "numbers" data
                set flag "mark first" true
             end
        end
        set flag "mark first" false
        loop until record"numbers"data index = 0
        begin
             if flag "mark first" false and record"numbers"data not = 0
             begin
                put 0 record "numbers" data
                set flag "mark first" true
             end
             subtract 1 record"numbers"data index
        end
end
if record"even"layout has lost each time
begin
put 1 record"numbers"data index
        loop until record"numbers"data count<record"numbers"data index
        begin
             add 1 record"numbers"data index
        end
put 100% record"bet"data record"numbers"data
end
end

method "start bet"
begin
put 100% record"bet"data record"even"layout
end

method "init"
begin
    copy red record"even"layout
    call "reset numbers"
end

method "check for reset"
begin
put 0 record "total" data
put 1 record"numbers"data index
        loop until record"numbers"data count<record"numbers"data index
        begin
             add 100% record"numbers"data record "total" data
             add 1 record"numbers"data index
        end
if record "total"data = 0
begin
call "reset numbers"
end
end

method "reset numbers"
begin
clear record"numbers"data
set list [1,1,1,1,1] record"numbers"data
end

method "compute bet"
begin
put 0 record"1st"data
put 0 record"2nd"data
put 1 record"numbers"data index
put -1 record "1stindex" data
put -2 record "2ndindex" data

        loop until record"numbers"data count<record"numbers"data index
        begin
             if record"numbers"data not = 0
             begin
                 put 100% record"numbers" data record"2nd"data
                 put 100% record"numbers" data index record "2ndindex" data
             end
             add 1 record"numbers"data index
        end
        subtract 1 record"numbers"data index
        loop until record"numbers"data index =0
        begin
             if record"numbers"data not = 0
             begin
                put 100% record"numbers" data record"1st"data
                put 100% record"numbers" data index record "1stindex" data
             end
             subtract 1 record"numbers"data index
        end
put 100% record"1st"data record"bet"data

if record "1stindex" data not = record "2ndindex" data
begin
add 100% record"2nd"data record"bet"data
end

end