system "456 Turbo Street" { Designed by TurboGenius For instructions, go to this url: http://gambling.projectsydney.com/viewtopic.php?t=598&postdays=0&postorder=asc&start=0 } method "main" begin while starting a new session begin //initialize put 100% of bankroll to record "High Bankroll" data; clear record "Last street" layout; clear record "Track streets" layout; clear record "Streets to bet" layout; put 1 on record "Progression" data; set flag "Repeat" to false; set flag "Found" to false; exit; end if flag "Repeat" is true begin //check win or loss call "Check win/loss"; end //track the streets call "Track street"; if flag "Repeat" is true begin //place the bets call "Place bets"; end end //Track streets and look for a repeat method "Track street" begin copy last street to record "Last street" layout; //this section looks for a repeat. If one is found, then move //the streets between the repeat to Streets to bet record call "Check for repeat"; if flag "Found" is true and flag "Repeat" is false begin call "Remove streets"; set flag "Repeat" to true; clear record "Streets to bet" layout; set max to record "Track streets" layout index; copy last street to record "Streets to bet" layout; put 2 on record "Streets to bet" layout index; loop until record "Last street" layout = record "Track streets" layout begin copy record "Track streets" layout to record "Streets to bet" layout; add 1 to record "Streets to bet" layout index; subtract 1 from record "Track streets" layout index; end end //Track streets set max to record "Track streets" layout index; add 1 to record "Track streets" layout index; copy last street to record "Track streets" layout; end //Do to a bug in version 2.0.12, this method is needed. //it will be removed in the next version 2.0.13. //Bug: if record "Last street" layout is found in record "Track streets" layout //this loop until routine along with a flag "Found" is used instead method "Check for repeat" begin set flag "Found" to false; put 1 on record "Track streets" layout index; loop until record "Track streets" layout index > record "Track streets" layout count begin if record "Last street" layout = record "Track streets" layout then begin set flag "Found" to true; return; end add 1 to record "Track streets" layout index; end end //Place bets from the Street to bet record //use the Progression record to determine how much to bet method "Place bets" begin put 1 on record "Streets to bet" layout index; loop until record "Streets to bet" layout index > record "Streets to bet" layout count begin put 100% of record "Progression" data to record "Streets to bet" layout; add 1 to record "Streets to bet" layout index; end end //test for a Win or Loss. //If a loss, add the street to the Street to bet record. method "Check win/loss" begin if Any Street Bet has won each time begin call "Check bankroll"; set flag "Repeat" to false; end else begin set max to record "Streets to bet" layout index; add 1 to record "Streets to bet" layout index; copy last street to record "Streets to bet" layout; end end //check the bankroll against the High bankroll. method "Check bankroll" begin if bankroll < record "High Bankroll" data then begin add 1 to record "Progression" data; end else begin //leave this commented out to keep progression at a minimum put 100% of bankroll to record "High Bankroll" data; put 1 on record "Progression" data; end end //this performs house-keeping on the Track streets record to keep the //list manageable. method "Remove streets" begin put 1 on record "Track streets" layout index; loop until record "Last street" layout = record "Track streets" layout begin move list up by 1 to record "Track streets" layout; end end