Reward System
Reward_System.dgt
—
Xtreme,
8 KB (8532 bytes)
Contenuto del file
system "Reward_System" {REWARD System for Even Money Bets in Roulette For instructions, download documentation } method "main" begin While Starting a New Session begin Call "Initialize"; Call "Input Data"; Exit; end Call "Check Win-Loss"; Call "Store Layout"; Call "Calculate Next Bet"; Call "Bet Over Maximum"; Put 100 % of Record "Bet Amount" data on Record "Layout to bet" layout; end method "Calculate Next Bet" begin Put 1 on record "Tracking list" data index; Put 100 % of Record "Tracking list" data on Record "Bet Amount" data; While Flag "Won first bet" is True begin Put 2 on record "Tracking list" data index; Add 100% of Record "Tracking list" data on Record "Bet Amount" data; Add 1 on Record "Tracking list" data index; Add 100% of Record "Tracking list" data on Record "Bet Amount" data; end end method "Check Win-Loss" begin While Record "Layout to bet" layout has lost each time begin Set Max on record "Tracking list" data index; Add 1 on Record "Tracking list" data index; Put 100% of Record "Bet Amount" data on Record "Tracking list" data; end While Record "Layout to bet" layout has won each time And Flag "Won first bet" is False begin Put 1 on Record "Temporary data" data; Call "Cross Out Number"; Set Flag "Won first bet" to True; Call "Check if Sequence Won"; Call "Check Maximum Sequences Won"; Return; end While Record "Layout to bet" layout has won each time And Flag "Won first bet" is True begin Put 3 on Record "Temporary data" data; Call "Cross Out Number"; Call "Check if Sequence Won"; Call "Check Maximum Sequences Won"; end end method "Cross Out Number" begin Loop until record "Temporary data" data = 0 begin Move list up by 1 on record "Tracking list" data; Set Max to record "Tracking list" data index; Subtract 1 on Record "Temporary data" data; end end method "Check if Sequence Won" begin While Record "Tracking list" data count = 0 begin Set Flag "Won first bet" to False; Add 1 on Record "Total Sequences Won" data; Put 100 % of Record "Minimum Bet" data on Record "Tracking list" data; Put 1 on Record "Tracking list" data index; end end method "Check Maximum Sequences Won" begin While Record "Maximum Sequences" data not = 0 And Record "Total Sequences Won" data >= Record "Maximum Sequences" data begin Display "Your Maximum Sequences has been Reached. Session is Stop."; Stop Session; end end method "Store Layout" begin While Number 0 has hit each time Or Number 00 has hit each time begin Return; end While Record "Selected Layout" data = 1 begin Call "Layout Even-Odd"; Return; end While Record "Selected Layout" data = 2 begin Call "Layout Red-Black"; Return; end While Record "Selected Layout" data = 3 begin Call "Layout High-Low"; end end method "Layout Even-Odd" begin While Even has hit each time begin Copy Even to the Record "Layout to bet" layout; end Else begin Copy Odd to the Record "Layout to bet" layout; end end method "Layout Red-Black" begin While Red has hit each time begin Copy Red to the Record "Layout to bet" layout; end Else begin Copy Black to the Record "Layout to bet" layout; end end method "Layout High-Low" begin While high has hit each time begin Copy high to the Record "Layout to bet" layout; end Else begin Copy low to the Record "Layout to bet" layout; end end {================================================================= This Area is added to provide a way to Split the Maximum Tracking Bets into Smaller Pieces ================================================================= } method "Bet Over Maximum" begin While Record "Maximum Bet" data not = 0 And Record "Bet Amount" data > Record "Maximum Bet" data begin Put 0 on Record "Bet Amount" data; Put 1 on Record "Tracking list" data index; Call "Total Tracking Amounts"; Clear Record "Tracking list" data; Put 1 on Record "Tracking list" data index; Call "Set New Tracking Amount"; Call "Calculate Next Bet"; end end method "Set New Tracking Amount" begin Loop Until Record "Bet Amount" data <= Record "Maximum Tracking Amount" data begin Subtract 100% of Record "Maximum Tracking Amount" data on Record "Bet Amount" data; Put 100% of Record "Maximum Tracking Amount" data on Record "Tracking list" data; Add 1 on Record "Tracking list" data index; end Put 100% of Record "Bet Amount" data on Record "Tracking list" data; end method "Total Tracking Amounts" begin Loop Until record "Tracking list" data index > record "Tracking list" data count begin Add 100% of record "Tracking list" data to record "Bet Amount" data; Add 1 to record "Tracking list" data index; end end method "Initialize" begin Set Flag "Won first bet" to false; Clear Record "Total Sequences Won" data; Clear Record "Bet Amount" data; Clear Record "Starting Bankroll" data; Clear Record "Tracking list" data; Clear Record "Layout to bet" data; Clear Record "Maximum Tracking Amount" data; Clear Record "Minimum Bet" data; Clear Record "Maximum Bet" data; Clear Record "Maximum Sequences" data; Clear Record "Table Layout" data; Clear Record "Selected Layout" data; Clear Record "Temporary data" data; Clear Record "Temporary data" data; Clear Record "Temporary data" data; Put 0 on Record "Total Sequences Won" data; Put 1 on Record "Minimum Bet" data; Put 100 % of Bankroll on Record "Starting Bankroll" data; end method "Input Data" begin Set Flag "Input Ok" to False; Loop Until Flag "Input Ok" is True begin Group begin Input Dropdown "What Table Layout do you want to use? 1:=European Layout 2:=American Layout" to Record "Table Layout" data; Input Dropdown "Make a Layout Selection 1:=Even/Odd 2:=Red/Black 3:=High (19-36)/Low (1-18)" to Record "Selected Layout" data; Input Data "Enter your starting Bankroll." to Record "Starting Bankroll" data; Input Data "What is your Minimum Bet?" to Record "Minimum Bet" data; Input Data "What is your Maximum Bet? 0 = No Maximum." to Record "Maximum Bet" data; Input Data "How many Sequences to Win in this Session? 0 = Unlimited Sequences." to Record "Maximum Sequences" data; end Set Flag "Input Ok" to True; Put 100 % of Record "Starting Bankroll" data on Bankroll; While Record "Minimum Bet" data = 0 begin Display "Minimum Bet cannot be 0 units."; Set Flag "Input Ok" to False; end else begin While Record "Maximum Bet" data not = 0 And Record "Maximum Bet" data <= Record "Minimum Bet" data begin Display "Maximum Bet cannot be Less than or Equal to Minimum Bet"; Set Flag "Input Ok" to False; end end end Put 100 % of Record "Minimum Bet" data on Record "Tracking list" data; While Record "Maximum Bet" data not = 0 begin Put 100 % of Record "Maximum Bet" data on Record "Maximum Tracking Amount" data; Divide 3 on Record "Maximum Tracking Amount" data; end While Record "Table Layout" data = 1 begin Load Single Wheel; end Else begin Load Double Wheel; end end