All but 4
All but 4.dgt — Xtreme, 3 KB (3509 bytes)
Contenuto del file
system "All but 4" {Play all numbers except 1, 4, 7, 10 and zero.(Single 0 Wheel) } method "main" begin while starting a new session begin Set Flag "Bet Placed" to False put 1 on record "Bet Level" data put 0 on record "Bet Level 1 Placed" data put 0 on record "Bet Level 3 Placed" data put 0 on record "Bet Level 2 Placed" data put 0 on record "Bet Level 4 Placed" data put 0 on record "Bet Level 1 Won" data put 0 on record "Bet Level 2 Won" data put 0 on record "Bet Level 3 Won" data put 0 on record "Bet Level 4 Won" data put 100% bankroll on record "Lowest Bankroll" data put 0 on record "Downdraw" data put 0 on record "Spin Count" data end {call "initialize"} if Flag "Bet Placed" True begin call "Process" end call "bet" end method "Process" begin add 1 on record "Spin Count" data if Bankroll < record "Lowest Bankroll" data begin put 100% bankroll on record "Lowest Bankroll" data end if Number 1 hit each or number 4 hit each or number 7 hit each or number 10 hit each or number 0 hit each begin Add 1 to record "Bet Level" data end else begin if record "Bet Level" data = 1 begin add 1 to record "Bet Level 1 Won" data end if record "Bet Level" data = 2 begin add 1 to record "Bet Level 2 Won" data end if record "Bet Level" data = 3 begin add 1 to record "Bet Level 3 Won" data end if record "Bet Level" data = 4 begin add 1 to record "Bet Level 4 Won" data end put 1 on record "Bet Level" data Subtract 100% of record "D1 Current Bet" data from record "D1 Bankroll" data end end {method Process} method "bet" begin If record "Bet Level" data = 1 begin put 6 on 3rd Dozen put 6 on 2nd Dozen put 1 on Split(2-5) put 1 on Split(8-11) put 1 on Split(3-6) put 1 on Split(9-12) {Total bet = 16, net 2 units per win} add 1 to record "Bet Level 1 Placed" data end If record "Bet Level" data = 2 begin put 18 on 3rd Dozen put 18 on 2nd Dozen put 3 on Split(2-5) put 3 on Split(8-11) put 3 on Split(3-6) put 3 on Split(9-12) {Total bet = 48, net 6 per win} add 1 to record "Bet Level 2 Placed" data end If record "Bet Level" data = 3 begin put 54 on 3rd Dozen put 54 on 2nd Dozen put 9 on Split(2-5) put 9 on Split(8-11) put 9 on Split(3-6) put 9 on Split(9-12) {Total bet = 144, net 18 per win} add 1 to record "Bet Level 3 Placed" data end If record "Bet Level" data = 4 begin put 162 on 3rd Dozen put 162 on 2nd Dozen put 27 on Split(2-5) put 27 on Split(8-11) put 27 on Split(3-6) put 27 on Split(9-12) {Total bet = 432, net 54 per win} add 1 to record "Bet Level 4 Placed" data end Set Flag "Bet Placed" True end