The Final One
The_Final_One.dgt — Xtreme, 6 KB (6623 bytes)
Contenuto del file
system "The_Final_One" {//The Final One for Even Money Bets for Single Zero Roulette using the Le Partage option (you get half your bet back if 0 hits) For instructions, download documentation } method "main" begin While Starting a New Session begin Call "Initialize"; Exit; end While Number 0 has not hit each time or Flag "Bets Placed" is True begin Call "Check for Zero"; Call "Calculate Balance"; Call "Check Bankroll Balance"; Call "Check Top Limit"; Call "Determine Win/Loss"; Call "Layout Even-Odd"; Call "Layout Red-Black"; Call "Layout High-Low"; Put 2 on Record "Even-Odd Bet Layout" layout; Put 2 on Record "Red-Black Bet Layout" layout; Put 2 on Record "High-Low Bet Layout" layout; Set Flag "Bets Placed" to True; end end method "Calculate Balance" begin While Flag "Bets Placed" is False begin Return; end Put 100% of Bankroll on Record "Temp. Storage" data; Subtract 100% of Record "Actual Bankroll" data on Record "Temp. Storage" data; Add 100% of Record "Temp. Storage" data on Record "Bankroll" data; Put 100% of Bankroll on Record "Actual Bankroll" data; end method "Check for Zero" begin While Number 0 has hit each time begin Ask "Zero Hit. This Session Ends. Do you want to continue?"; Call "Check Yes-No Results"; end end method "Check Bankroll Balance" begin While Record "Bankroll" data < 6 begin Ask "Not enough Bankroll Units. This Session ENDS. Do you want to continue?"; Call "Check Yes-No Results"; end While Record "Bankroll" data <= Record "Walk Limit" data begin Ask "Bankroll is LESS than Walk Limit. This Session ENDS. Do you want to continue?"; Call "Check Yes-No Results"; end end method "Check Yes-No Results" begin While Last answer was Yes begin Call "Reset"; Exit; end Else begin Stop Session; end end method "Check Top Limit" begin While Record "Bankroll" data >= Record "Top Limit" data begin Put 100% of Record "Top Limit" data on Record "Walk Limit" data; Add 1 on Record "Top Limit" data; end end method "Determine Win/Loss" begin While Flag "Bets Placed" is False begin Return; end While Record "Even-Odd Bet Layout" layout has won each time begin Set Flag "Even-Odd Same Bet" to False; end Else begin Set Flag "Even-Odd Same Bet" to True; While Record "High-Low Bet Layout" layout has won each time begin Set Flag "High-Low Same Bet" to False; end Else begin Set Flag "High-Low Same Bet" to True; While Record "Red-Black Bet Layout" layout has won each time begin Set Flag "Red-Black Same Bet" to False; end Else begin Set Flag "Red-Black Same Bet" to True; end end end end method "Layout Even-Odd" begin While Even has hit each time And Flag "Even-Odd Same Bet" is False begin Copy Odd to the Record "Even-Odd Bet Layout" layout; end While Even has hit each time And Flag "Even-Odd Same Bet" is True begin Copy Even to the Record "Even-Odd Bet Layout" layout; end While Odd has hit each time And Flag "Even-Odd Same Bet" is False begin Copy Even to the Record "Even-Odd Bet Layout" layout; end While Odd has hit each time And Flag "Even-Odd Same Bet" is True begin Copy Odd to the Record "Even-Odd Bet Layout" layout; end end method "Layout Red-Black" begin While Red has hit each time And Flag "Red-Black Same Bet" is False begin Copy Black to the Record "Red-Black Bet Layout" layout; end While Red has hit each time And Flag "Red-Black Same Bet" is True begin Copy Red to the Record "Red-Black Bet Layout" layout; end While Black has hit each time And Flag "Red-Black Same Bet" is False begin Copy Red to the Record "Red-Black Bet Layout" layout; end While Black has hit each time And Flag "Red-Black Same Bet" is True begin Copy Black to the Record "Red-Black Bet Layout" layout; end end method "Layout High-Low" begin While high has hit each time And Flag "High-Low Same Bet" is False begin Copy low to the Record "High-Low Bet Layout" layout; end While high has hit each time And Flag "High-Low Same Bet" is True begin Copy high to the Record "High-Low Bet Layout" layout; end While low has hit each time And Flag "High-Low Same Bet" is False begin Copy high to the Record "High-Low Bet Layout" layout; end While low has hit each time And Flag "High-Low Same Bet" is True begin Copy low to the Record "High-Low Bet Layout" layout; end end method "Initialize" begin Load Single Wheel; Apply Le Partage; Set Flag "Bets Placed" to false; Set Flag "Even-Odd Same Bet" to false; Set Flag "Red-Black Same Bet" to false; Set Flag "High-Low Same Bet" to false; Clear Record "Bankroll" data; Clear Record "Top Limit" data; Clear Record "Walk Limit" data; Clear Record "Even-Odd Bet Layout" data; Clear Record "Red-Black Bet Layout" data; Clear Record "High-Low Bet Layout" data; Clear Record "Actual Bankroll" data; Clear Record "Temp. Storage" data; Call "Reset"; end method "Reset" begin Put 100% of Bankroll on Record "Actual Bankroll" data; Put 8 on Record "Bankroll" data; //BR = Bankroll Put 17 on Record "Top Limit" data; // TL = Top Limit Put 0 on Record "Walk Limit" data; // WL = Walk Limt Set Flag "Bets Placed" to False; Set Flag "Even-Odd Same Bet" to False; Set Flag "High-Low Same Bet" to False; Set Flag "Red-Black Same Bet" to False; end