My winning system v2

Contenuto del file

system "My Winning System"
{

}
method "main"
begin
while starting a new session
begin
set list [1,2,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30] on record "pro" data
put 1 on record "pro" data index
put 100% bankroll on record "highbr" data
put - 1 on record "spins" data
copy red on record "red" layout
copy black on record "black" layout
copy number 0 on record "number 0" layout
end
add 1 on record "spins" data
call "check bet"
call "eval"
call "track"
call "bet"
end

method "check bet"
begin
put 100% bankroll on record "tempbr" data
put 100% record "pro" data on record "temppro" data
subtract 100% record "temppro" data on record "tempbr" data
if record "tempbr" data <= -50
    begin
    add 100% record "current br" data on record "running total" data
put 0 on bankroll
put 0 on record "current br" data
put 0 on record "highbr" data
put 1 on record "pro" data index
add 1 on record "sessions lost" data
end
end



method "eval"
begin

if net > 0
begin
put 100% bankroll on record "current br" data
add 1 on record "pro" data index
if record "pro" data index >= 30
    begin
    put 29 on record "pro" data index
    end
end

if net > 0 and record "current br" data >= record "highbr" data
begin
put 1 on record "pro" data index
put 100% record "current br" data on record "highbr" data
end

if net < 0
begin
add 1 on record "pro" data index
    if record "pro" data index >= 30
    begin
    put 1 on record "pro" data index
    end
put 100% bankroll on record "current br" data
end

if record "current br" data >= 50
begin
add 100% record "current br" data on record "running total" data
put 0 on bankroll
put 0 on record "current br" data
put 0 on record "highbr" data
put 1 on record "pro" data index
add 1 on record "sessions won" data
//put -300 on record "spins" data
end


if record "current br" data <= -50
begin
add 100% record "current br" data on record "running total" data
put 0 on bankroll
put 0 on record "current br" data
put 0 on record "highbr" data
put 1 on record "pro" data index
add 1 on record "sessions lost" data
//put -300 on record "spins" data
end
end


method "track"
begin
track last red-black for 1 time on record "rb" layout
track last number for 1 time on record "last#" layout
end

method "bet"
begin
if record "number 0" layout is not found on record "last#" layout and record "spins" data >= 0
begin
    if record "red" layout is found on record "rb" layout
    begin
    put 100% record "pro" data on black
    end
    else begin
put 100% record "pro" data on red
end
end
end