TVG1 System
TVG1_System.dgt — Xtreme, 3 KB (3927 bytes)
Contenuto del file
system "TVG1_System" { TVG1 - System See VIP lounge website board for instructions http://gambling.projectsydney.com/viewtopic.php?t=143&highlight=175+00 } method "main" begin While Starting a New Session begin Call "Initialize"; Call "Input Data"; Exit; end Call "Track Spins"; Call "Determine Win/Loss"; Call "Determine if Exceeded Progression"; Call "Make Bet"; end method "Make Bet" begin Put 100% of record "Progression" data index to record "temp" data; Put 1 on record "Tracked Spins" Layout index; Loop until record "Tracked Spins" Layout index > record "Tracked Spins" Layout count begin Put 100% of record "Progression" data on record "Tracked Spins" layout; Add 1 to record "Tracked Spins" layout index; end end method "Determine Win/Loss" begin While Any Number Bet has won each time begin Put 1 on record "Progression" data index; Clear Record "Tracked Spins" Layout; Call "Track Spins"; Return; end While Any Number Bet has lost each time begin Add 1 on Record "Progression" Data index; end end method "Determine if Exceeded Progression" begin If Record "Progression" Data index > Record "Progression Index" data begin Display "Maximum Progression Exceeded. Session Ends."; Stop Session; end end method "Track Spins" begin If record "Tracked Spins" Layout count <5 begin Copy last number to record "Tracked Spins" Layout; Add 1 to record "Tracked Spins" Layout index; end return; Copy last Number to the Record "Pointer to Next Spin to Track" layout; Add 1 on Record "Tracked Spins" Layout index; //Old Ref # pointer. Uses index as pointer Add 1 on Record "Pointer to Next Spin to Track" data; end method "Initialize" begin Clear Record "Starting Bankroll" data; Set List [5,3,2,2,1,2,2,2,3,3,3,4,5,5,6,7,8, 10,11,13,15,17,20,23,27,31,36,42, 49,57,66,77,89,104,120,140,162,189] to Record "Progression" data; Put 21 on Record "Progression Index" data; Clear Record "Tracked Spins" Layout; Clear Record "Total Progession Counter" data; Clear Record "Table Layout" data; Put 100% of Bankroll to 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 Data "Enter your starting Bankroll." to Record "Starting Bankroll" data; Input Data "Enter your Maximum Progression Count from 1 to 38 losses." to Record "Progression Index" data; end Put 100 % of Record "Starting Bankroll" data on Bankroll; //================================================================= //Check Progression count range //================================================================= While Record "Progression Index" data = 0 Or Record "Progression Index" data > 38 begin Display "Maximum Progression Count Must be between 1 and 38"; end else begin Set Flag "Input Ok" to True; end end //Setup the Table Layout //================================================================= While Record "Table Layout" data = 1 begin Load Single Wheel; end Else begin Load Double Wheel; end end