24 Max
24 Max.dgt — Xtreme, 22 KB (23293 bytes)
Contenuto del file
system "24 Max" method "main" begin if starting a new session begin call "init" exit end copy last number to record "last number" layout call "check win/lose" call "get bets" call "place bets" end method "init" begin set flag "transfer1" to false set flag "transfer2" to false set flag "transfer3" to false set flag "transfer4" to false set flag "transfer5" to false set flag "transfer6" to false set flag "transfer7" to false set flag "transfer8" to false set flag "transfer9" to false set flag "transfer10" to false set flag "transfer11" to false set flag "transfer12" to false put 100% of bankroll on record "bankroll" data //put 100% of bankroll on record "stop" data //subtract 200 units on record "stop" data copy list [number 1, number 2, number 3] to record "1" layout set list [0,0,0] on record "1" data copy list [number 4, number 5, number 6] to record "2" layout set list [0,0,0] on record "2" data copy list [number 7, number 8, number 9] to record "3" layout set list [0,0,0] on record "3" data copy list [number 10, number 11, number 12] to record "4" layout set list [0,0,0] on record "4" data copy list [number 13, number 14, number 15] to record "5" layout set list [0,0,0] on record "5" data copy list [number 16, number 17, number 18] to record "6" layout set list [0,0,0] on record "6" data copy list [number 19, number 20, number 21] to record "7" layout set list [0,0,0] on record "7" data copy list [number 22, number 23, number 24] to record "8" layout set list [0,0,0] on record "8" data copy list [number 25, number 26, number 27] to record "9" layout set list [0,0,0] on record "9" data copy list [number 28, number 29, number 30] to record "10" layout set list [0,0,0] on record "10" data copy list [number 31, number 32, number 33] to record "11" layout set list [0,0,0] on record "11" data copy list [number 34, number 35, number 36] to record "12" layout set list [0,0,0] on record "12" data end method "check win/lose" begin if bankroll > record "bankroll" data //or bankroll < record "stop" data begin call "init" exit end if win amount <= 0 begin return end if record "1" layout list has not hit each time or flag "transfer1" is true begin end else begin set flag "transfer1" to false put 1 unit on record "1" layout index put 1 unit on record "1" data index loop until record "1" layout index > record "1" layout count begin if record "1" layout = record "last number" layout begin put 0 units on record "1" data end else begin if record "1" data = 1 begin put 2 units on record "1" data set flag "transfer1" to true end end add 1 unit on record "1" layout index add 1 unit on record "1" data index end end if record "2" layout list has not hit each time or flag "transfer2" is true begin end else begin set flag "transfer2" to false put 1 unit on record "2" layout index put 1 unit on record "2" data index loop until record "2" layout index > record "2" layout count begin if record "2" layout = record "last number" layout begin put 0 units on record "2" data end else begin if record "2" data = 1 begin put 2 units on record "2" data set flag "transfer2" to true end end add 1 unit on record "2" layout index add 1 unit on record "2" data index end end if record "3" layout list has not hit each time or flag "transfer3" is true begin end else begin set flag "transfer3" to false put 1 unit on record "3" layout index put 1 unit on record "3" data index loop until record "3" layout index > record "3" layout count begin if record "3" layout = record "last number" layout begin put 0 units on record "3" data end else begin if record "3" data = 1 begin put 2 units on record "3" data set flag "transfer3" to true end end add 1 unit on record "3" layout index add 1 unit on record "3" data index end end if record "4" layout list has not hit each time or flag "transfer4" is true begin end else begin set flag "transfer4" to false put 1 unit on record "4" layout index put 1 unit on record "4" data index loop until record "4" layout index > record "4" layout count begin if record "4" layout = record "last number" layout begin put 0 units on record "4" data end else begin if record "4" data = 1 begin put 2 units on record "4" data set flag "transfer4" to true end end add 1 unit on record "4" layout index add 1 unit on record "4" data index end end if record "5" layout list has not hit each time or flag "transfer5" is true begin end else begin set flag "transfer5" to false put 1 unit on record "5" layout index put 1 unit on record "5" data index loop until record "5" layout index > record "5" layout count begin if record "5" layout = record "last number" layout begin put 0 units on record "5" data end else begin if record "5" data = 1 begin put 2 units on record "5" data set flag "transfer5" to true end end add 1 unit on record "5" layout index add 1 unit on record "5" data index end end if record "6" layout list has not hit each time or flag "transfer6" is true begin end else begin set flag "transfer6" to false put 1 unit on record "6" layout index put 1 unit on record "6" data index loop until record "6" layout index > record "6" layout count begin if record "6" layout = record "last number" layout begin put 0 units on record "6" data end else begin if record "6" data = 1 begin put 2 units on record "6" data set flag "transfer6" to true end end add 1 unit on record "6" layout index add 1 unit on record "6" data index end end if record "7" layout list has not hit each time or flag "transfer7" is true begin end else begin set flag "transfer7" to false put 1 unit on record "7" layout index put 1 unit on record "7" data index loop until record "7" layout index > record "7" layout count begin if record "7" layout = record "last number" layout begin put 0 units on record "7" data end else begin if record "7" data = 1 begin put 2 units on record "7" data set flag "transfer7" to true end end add 1 unit on record "7" layout index add 1 unit on record "7" data index end end if record "8" layout list has not hit each time or flag "transfer8" is true begin end else begin set flag "transfer8" to false put 1 unit on record "8" layout index put 1 unit on record "8" data index loop until record "8" layout index > record "8" layout count begin if record "8" layout = record "last number" layout begin put 0 units on record "8" data end else begin if record "8" data = 1 begin put 2 units on record "8" data set flag "transfer8" to true end end add 1 unit on record "8" layout index add 1 unit on record "8" data index end end if record "9" layout list has not hit each time or flag "transfer9" is true begin end else begin set flag "transfer9" to false put 1 unit on record "9" layout index put 1 unit on record "9" data index loop until record "9" layout index > record "9" layout count begin if record "9" layout = record "last number" layout begin put 0 units on record "9" data end else begin if record "9" data = 1 begin put 2 units on record "9" data set flag "transfer9" to true end end add 1 unit on record "9" layout index add 1 unit on record "9" data index end end if record "10" layout list has not hit each time or flag "transfer10" is true begin end else begin set flag "transfer10" to false put 1 unit on record "10" layout index put 1 unit on record "10" data index loop until record "10" layout index > record "10" layout count begin if record "10" layout = record "last number" layout begin put 0 units on record "10" data end else begin if record "10" data = 1 begin put 2 units on record "10" data set flag "transfer10" to true end end add 1 unit on record "10" layout index add 1 unit on record "10" data index end end if record "11" layout list has not hit each time or flag "transfer11" is true begin end else begin set flag "transfer11" to false put 1 unit on record "11" layout index put 1 unit on record "11" data index loop until record "11" layout index > record "11" layout count begin if record "11" layout = record "last number" layout begin put 0 units on record "11" data end else begin if record "11" data = 1 begin put 2 units on record "11" data set flag "transfer11" to true end end add 1 unit on record "11" layout index add 1 unit on record "11" data index end end if record "12" layout list has not hit each time or flag "transfer12" is true begin end else begin set flag "transfer12" to false put 1 unit on record "12" layout index put 1 unit on record "12" data index loop until record "12" layout index > record "12" layout count begin if record "12" layout = record "last number" layout begin put 0 units on record "12" data end else begin if record "12" data = 1 begin put 2 units on record "12" data set flag "transfer12" to true end end add 1 unit on record "12" layout index add 1 unit on record "12" data index end end end method "get bets" begin if record "1" layout list has not hit each time or flag "transfer1" is true begin end else begin set list [1,1,1] on record "1" data put 1 unit on record "1" layout index put 1 unit on record "1" data index loop until record "1" layout index > record "1" layout count begin if record "last number" layout = record "1" layout begin put 0 units on record "1" data end add 1 unit on record "1" layout index add 1 unit on record "1" data index end end if record "2" layout list has not hit each time or flag "transfer2" is true begin end else begin set list [1,1,1] on record "2" data put 1 unit on record "2" layout index put 1 unit on record "2" data index loop until record "2" layout index > record "2" layout count begin if record "last number" layout = record "2" layout begin put 0 units on record "2" data end add 1 unit on record "2" layout index add 1 unit on record "2" data index end end if record "3" layout list has not hit each time or flag "transfer3" is true begin end else begin set list [1,1,1] on record "3" data put 1 unit on record "3" layout index put 1 unit on record "3" data index loop until record "3" layout index > record "3" layout count begin if record "last number" layout = record "3" layout begin put 0 units on record "3" data end add 1 unit on record "3" layout index add 1 unit on record "3" data index end end if record "4" layout list has not hit each time or flag "transfer4" is true begin end else begin set list [1,1,1] on record "4" data put 1 unit on record "4" layout index put 1 unit on record "4" data index loop until record "4" layout index > record "4" layout count begin if record "last number" layout = record "4" layout begin put 0 units on record "4" data end add 1 unit on record "4" layout index add 1 unit on record "4" data index end end if record "5" layout list has not hit each time or flag "transfer5" is true begin end else begin set list [1,1,1] on record "5" data put 1 unit on record "5" layout index put 1 unit on record "5" data index loop until record "5" layout index > record "5" layout count begin if record "last number" layout = record "5" layout begin put 0 units on record "5" data end add 1 unit on record "5" layout index add 1 unit on record "5" data index end end if record "6" layout list has not hit each time or flag "transfer6" is true begin end else begin set list [1,1,1] on record "6" data put 1 unit on record "6" layout index put 1 unit on record "6" data index loop until record "6" layout index > record "6" layout count begin if record "last number" layout = record "6" layout begin put 0 units on record "6" data end add 1 unit on record "6" layout index add 1 unit on record "6" data index end end if record "7" layout list has not hit each time or flag "transfer7" is true begin end else begin set list [1,1,1] on record "7" data put 1 unit on record "7" layout index put 1 unit on record "7" data index loop until record "7" layout index > record "7" layout count begin if record "last number" layout = record "7" layout begin put 0 units on record "7" data end add 1 unit on record "7" layout index add 1 unit on record "7" data index end end if record "8" layout list has not hit each time or flag "transfer8" is true begin end else begin set list [1,1,1] on record "8" data put 1 unit on record "8" layout index put 1 unit on record "8" data index loop until record "8" layout index > record "8" layout count begin if record "last number" layout = record "8" layout begin put 0 units on record "8" data end add 1 unit on record "8" layout index add 1 unit on record "8" data index end end if record "9" layout list has not hit each time or flag "transfer9" is true begin end else begin set list [1,1,1] on record "9" data put 1 unit on record "9" layout index put 1 unit on record "9" data index loop until record "9" layout index > record "9" layout count begin if record "last number" layout = record "9" layout begin put 0 units on record "9" data end add 1 unit on record "9" layout index add 1 unit on record "9" data index end end if record "10" layout list has not hit each time or flag "transfer10" is true begin end else begin set list [1,1,1] on record "10" data put 1 unit on record "10" layout index put 1 unit on record "10" data index loop until record "10" layout index > record "10" layout count begin if record "last number" layout = record "10" layout begin put 0 units on record "10" data end add 1 unit on record "10" layout index add 1 unit on record "10" data index end end if record "11" layout list has not hit each time or flag "transfer11" is true begin end else begin set list [1,1,1] on record "11" data put 1 unit on record "11" layout index put 1 unit on record "11" data index loop until record "11" layout index > record "11" layout count begin if record "last number" layout = record "11" layout begin put 0 units on record "11" data end add 1 unit on record "11" layout index add 1 unit on record "11" data index end end if record "12" layout list has not hit each time or flag "transfer12" is true begin end else begin set list [1,1,1] on record "12" data put 1 unit on record "12" layout index put 1 unit on record "12" data index loop until record "12" layout index > record "12" layout count begin if record "last number" layout = record "12" layout begin put 0 units on record "12" data end add 1 unit on record "12" layout index add 1 unit on record "12" data index end end end method "place bets" begin put 1 unit on record "1" data index put 1 unit on record "1" layout index loop until record "1" data index > record "1" data count begin if record "1" data > 0 begin put 100% of record "1" data unit on record "1" layout end add 1 unit on record "1" data index add 1 unit on record "1" layout index end put 1 unit on record "2" data index put 1 unit on record "2" layout index loop until record "2" data index > record "2" data count begin if record "2" data > 0 begin put 100% of record "2" data unit on record "2" layout end add 1 unit on record "2" data index add 1 unit on record "2" layout index end put 1 unit on record "3" data index put 1 unit on record "3" layout index loop until record "3" data index > record "3" data count begin if record "3" data > 0 begin put 100% of record "3" data unit on record "3" layout end add 1 unit on record "3" data index add 1 unit on record "3" layout index end put 1 unit on record "4" data index put 1 unit on record "4" layout index loop until record "4" data index > record "4" data count begin if record "4" data > 0 begin put 100% of record "4" data unit on record "4" layout end add 1 unit on record "4" data index add 1 unit on record "4" layout index end put 1 unit on record "5" data index put 1 unit on record "5" layout index loop until record "5" data index > record "5" data count begin if record "5" data > 0 begin put 100% of record "5" data unit on record "5" layout end add 1 unit on record "5" data index add 1 unit on record "5" layout index end put 1 unit on record "6" data index put 1 unit on record "6" layout index loop until record "6" data index > record "6" data count begin if record "6" data > 0 begin put 100% of record "6" data unit on record "6" layout end add 1 unit on record "6" data index add 1 unit on record "6" layout index end put 1 unit on record "7" data index put 1 unit on record "7" layout index loop until record "7" data index > record "7" data count begin if record "7" data > 0 begin put 100% of record "7" data unit on record "7" layout end add 1 unit on record "7" data index add 1 unit on record "7" layout index end put 1 unit on record "8" data index put 1 unit on record "8" layout index loop until record "8" data index > record "8" data count begin if record "8" data > 0 begin put 100% of record "8" data unit on record "8" layout end add 1 unit on record "8" data index add 1 unit on record "8" layout index end put 1 unit on record "9" data index put 1 unit on record "9" layout index loop until record "9" data index > record "9" data count begin if record "9" data > 0 begin put 100% of record "9" data unit on record "9" layout end add 1 unit on record "9" data index add 1 unit on record "9" layout index end put 1 unit on record "10" data index put 1 unit on record "10" layout index loop until record "10" data index > record "10" data count begin if record "10" data > 0 begin put 100% of record "10" data unit on record "10" layout end add 1 unit on record "10" data index add 1 unit on record "10" layout index end put 1 unit on record "11" data index put 1 unit on record "11" layout index loop until record "11" data index > record "11" data count begin if record "11" data > 0 begin put 100% of record "11" data unit on record "11" layout end add 1 unit on record "11" data index add 1 unit on record "11" layout index end put 1 unit on record "12" data index put 1 unit on record "12" layout index loop until record "12" data index > record "12" data count begin if record "12" data > 0 begin put 100% of record "12" data unit on record "12" layout end add 1 unit on record "12" data index add 1 unit on record "12" layout index end put 1 unit on number 0 put 1 unit on number 00 end