Cycling dozens
Seans_Dozens.dgt — Xtreme, 1 KB (1822 bytes)
Contenuto del file
system "Sean's Dozens" { ************************************************************************************ * sean43's Cycling Dozens * Coded by: Roulette787 * * More info: http://www.rouletteforum.net/cgi-bin/forum/Blah.pl?m-1218045726/ * * ************************************************************************************ } method "main" begin while starting a new session begin call "init"; end call "check win"; call "place bets"; end method "init" begin copy list [1st dozen, 2nd dozen, 3rd dozen] to record "pattern" layout; //set list [1,1,2,3,4,6,9,13,20] record "progression" data; // Sean's original progression //set list [1,2,4,8,16,32] record "progression" data; // standard Martingale progression //set list [1,1,2,4,5,8,12,18,26] record "progression" data; // cps10's basic progression level 1 set list [4,8,12,20,32,48,72,108,160] record "progression" data; // cps10's superaggressive progression level 3 put 1 on record "pattern" layout index; end method "check win" begin if net > 0 // win begin put 1 on record "progression" data index; end if net < 0 // lost begin add 1 on record "progression" data index; end if record "progression" data index > record "progression" data count begin put 1 on record "progression" data index; end end method "place bets" begin put 100% record "progression" data on record "pattern" layout; if record "pattern" layout index >= record "pattern" layout count begin put 1 on record "pattern" layout index; end else begin add 1 on record "pattern" layout index; end end