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