system "Talesman Red and Black v3"
{
*************************************
*        System by Talesman         *
*        on the VIP Lounge          *
*************************************
         Rx-ed by Sp1N-D1zZy
-------------------------------------
           00-c0mpatible
-------------------------------------
I bet all 10 of the Red Odd numbers.
I hedge that bet with 13 units on Black.
Martingale as progression.
-------------------------------------
}
method "main"
begin
while starting new session
    begin
    call "Init"
    exit
    end
call "Bet"
end

method "Bet"
begin
if net > 0 and red hit each
    begin
    put 1 record"ProRed"data
    put 13 record"ProBlack"data
    end
if net < 0
    begin
    multiply 2 record"ProRed"data
    multiply 2 record"ProBlack"data
    end
put 100% record"ProRed"data record"Reds"layout list
put 100% record"ProBlack"data black
end

method "Init"
begin
copy list [1,3,5,7,9,19,21,23,25,27] record"Reds"layout
put 1 record"ProRed"data
put 13 record"ProBlack"data
call "Bet"
end