Straight Ahead
Straight Ahead.dgt — Xtreme, 26 KB (27506 bytes)
Contenuto del file
System "Straight Ahead" { ************************************** * System by Zocker, posted by Perkin * * on the VIP Lounge * ************************************** Rx-ed by St0rm0r -------------------------------------- 00-c0mpatible -------------------------------------- Bet on all 12 streets or apply differential betting on each of the 12 streets. (user input) Each street is following its own progression: 1,1,1,1,1,1,1,1,1,1,1,1,(12x1)2,2,2,2,2,2,2,2,2,2,2,2,(12x2)3,3,3... etc. On a win, go back 12 positions in the progression. If the progression is shorter then 18 figures, reset to 1,1,1,1,1,1,1,1,1,1,1,1,(12x1) On a loss, go up 1 position in the progression. If the zero hits, we cancel the first step of the progression. Every 24 spins, the progressions are swithched: the street with the highest progression gets the lowest progression, and so on. Of course we do not start with 1 unit on all 12 streets at once: Start with the first street. Then add each time one street until all streets are covered. -------------------------------------- } method "main" begin // section 1: do this once while starting new session begin call "init" end // section 2: do the tracking subtract 1 record"start spins"data add 1 record"24 counter"data if record"24 counter"data = 25 begin put 1 record"24 counter"data if record"Sw"data = 1 begin call "switch progressions" end end track last number for 1 record"last N"layout if record"Z"data = 1 begin if record"last N"layout = number 0 or record"last N"layout = number 00 begin put 100% record"pro1"data index record"hold"data clear record"temp"data put 2 record"pro1"data index loop until record"pro1"data index > record"pro1"data count begin put 100% record"pro1"data record"temp"data add 1 record"temp"data index add 1 record"pro1"data index end duplicate record"temp" record"pro1" put 100% record"hold"data record"pro1"data index subtract 1 record"pro1"data index if record"pro1"data index < 1 begin put 1 record"pro1"data index end put 100% record"pro2"data index record"hold"data clear record"temp"data put 2 record"pro2"data index loop until record"pro2"data index > record"pro2"data count begin put 100% record"pro2"data record"temp"data add 1 record"temp"data index add 1 record"pro2"data index end duplicate record"temp" record"pro2" put 100% record"hold"data record"pro2"data index subtract 1 record"pro2"data index if record"pro2"data index < 1 begin put 1 record"pro2"data index end put 100% record"pro3"data index record"hold"data clear record"temp"data put 2 record"pro3"data index loop until record"pro3"data index > record"pro3"data count begin put 100% record"pro3"data record"temp"data add 1 record"temp"data index add 1 record"pro3"data index end duplicate record"temp" record"pro3" put 100% record"hold"data record"pro3"data index subtract 1 record"pro3"data index if record"pro3"data index < 1 begin put 1 record"pro3"data index end put 100% record"pro4"data index record"hold"data clear record"temp"data put 2 record"pro4"data index loop until record"pro4"data index > record"pro4"data count begin put 100% record"pro4"data record"temp"data add 1 record"temp"data index add 1 record"pro4"data index end duplicate record"temp" record"pro4" put 100% record"hold"data record"pro4"data index subtract 1 record"pro4"data index if record"pro4"data index < 1 begin put 1 record"pro4"data index end put 100% record"pro5"data index record"hold"data clear record"temp"data put 2 record"pro5"data index loop until record"pro5"data index > record"pro5"data count begin put 100% record"pro5"data record"temp"data add 1 record"temp"data index add 1 record"pro5"data index end duplicate record"temp" record"pro5" put 100% record"hold"data record"pro5"data index subtract 1 record"pro5"data index if record"pro5"data index < 1 begin put 1 record"pro5"data index end put 100% record"pro6"data index record"hold"data clear record"temp"data put 2 record"pro6"data index loop until record"pro6"data index > record"pro6"data count begin put 100% record"pro6"data record"temp"data add 1 record"temp"data index add 1 record"pro6"data index end duplicate record"temp" record"pro6" put 100% record"hold"data record"pro6"data index subtract 1 record"pro6"data index if record"pro6"data index < 1 begin put 1 record"pro6"data index end put 100% record"pro7"data index record"hold"data clear record"temp"data put 2 record"pro7"data index loop until record"pro7"data index > record"pro7"data count begin put 100% record"pro7"data record"temp"data add 1 record"temp"data index add 1 record"pro7"data index end duplicate record"temp" record"pro7" put 100% record"hold"data record"pro7"data index subtract 1 record"pro7"data index if record"pro7"data index < 1 begin put 1 record"pro7"data index end put 100% record"pro8"data index record"hold"data clear record"temp"data put 2 record"pro8"data index loop until record"pro8"data index > record"pro8"data count begin put 100% record"pro8"data record"temp"data add 1 record"temp"data index add 1 record"pro8"data index end duplicate record"temp" record"pro8" put 100% record"hold"data record"pro8"data index subtract 1 record"pro8"data index if record"pro8"data index < 1 begin put 1 record"pro8"data index end put 100% record"pro9"data index record"hold"data clear record"temp"data put 2 record"pro9"data index loop until record"pro9"data index > record"pro9"data count begin put 100% record"pro9"data record"temp"data add 1 record"temp"data index add 1 record"pro9"data index end duplicate record"temp" record"pro9" put 100% record"hold"data record"pro9"data index subtract 1 record"pro9"data index if record"pro9"data index < 1 begin put 1 record"pro9"data index end put 100% record"pro10"data index record"hold"data clear record"temp"data put 2 record"pro10"data index loop until record"pro10"data index > record"pro10"data count begin put 100% record"pro10"data record"temp"data add 1 record"temp"data index add 1 record"pro10"data index end duplicate record"temp" record"pro10" put 100% record"hold"data record"pro10"data index subtract 1 record"pro10"data index if record"pro10"data index < 1 begin put 1 record"pro10"data index end put 100% record"pro11"data index record"hold"data clear record"temp"data put 2 record"pro11"data index loop until record"pro11"data index > record"pro11"data count begin put 100% record"pro11"data record"temp"data add 1 record"temp"data index add 1 record"pro11"data index end duplicate record"temp" record"pro11" put 100% record"hold"data record"pro11"data index subtract 1 record"pro11"data index if record"pro11"data index < 1 begin put 1 record"pro11"data index end put 100% record"pro12"data index record"hold"data clear record"temp"data put 2 record"pro12"data index loop until record"pro12"data index > record"pro12"data count begin put 100% record"pro12"data record"temp"data add 1 record"temp"data index add 1 record"pro12"data index end duplicate record"temp" record"pro12" put 100% record"hold"data record"pro12"data index subtract 1 record"pro12"data index if record"pro12"data index < 1 begin put 1 record"pro12"data index end end end // section 3: act on a loss put 1 record"streets"layout index if record"streets"layout has not hit each time begin add 1 record"pro1"data index if record"pro1"data index > record"pro1"data count begin subtract 1 record"pro1"data index put 100% record"pro1"data record"temp"data add 1 record"temp"data put 1 record"run"data loop until record"run"data > 12 begin add 1 record"pro1"data index put 100% record"temp"data record"pro1"data add 1 record"run"data end subtract 11 record"pro1"data index end put 1 record"pro"data index put 100% record"pro1"data record"pro"data end put 2 record"streets"layout index if record"streets"layout has not hit each time begin add 1 record"pro2"data index if record"pro2"data index > record"pro2"data count begin subtract 1 record"pro2"data index put 100% record"pro2"data record"temp"data add 1 record"temp"data put 1 record"run"data loop until record"run"data > 12 begin add 1 record"pro2"data index put 100% record"temp"data record"pro2"data add 1 record"run"data end subtract 11 record"pro2"data index end put 2 record"pro"data index put 100% record"pro2"data record"pro"data end put 3 record"streets"layout index if record"streets"layout has not hit each time begin add 1 record"pro3"data index if record"pro3"data index > record"pro3"data count begin subtract 1 record"pro3"data index put 100% record"pro3"data record"temp"data add 1 record"temp"data put 1 record"run"data loop until record"run"data > 12 begin add 1 record"pro3"data index put 100% record"temp"data record"pro3"data add 1 record"run"data end subtract 11 record"pro3"data index end put 3 record"pro"data index put 100% record"pro3"data record"pro"data end put 4 record"streets"layout index if record"streets"layout has not hit each time begin add 1 record"pro4"data index if record"pro4"data index > record"pro4"data count begin subtract 1 record"pro4"data index put 100% record"pro4"data record"temp"data add 1 record"temp"data put 1 record"run"data loop until record"run"data > 12 begin add 1 record"pro4"data index put 100% record"temp"data record"pro4"data add 1 record"run"data end subtract 11 record"pro4"data index end put 4 record"pro"data index put 100% record"pro4"data record"pro"data end put 5 record"streets"layout index if record"streets"layout has not hit each time begin add 1 record"pro5"data index if record"pro5"data index > record"pro5"data count begin subtract 1 record"pro5"data index put 100% record"pro5"data record"temp"data add 1 record"temp"data put 1 record"run"data loop until record"run"data > 12 begin add 1 record"pro5"data index put 100% record"temp"data record"pro5"data add 1 record"run"data end subtract 11 record"pro5"data index end put 5 record"pro"data index put 100% record"pro5"data record"pro"data end put 6 record"streets"layout index if record"streets"layout has not hit each time begin add 1 record"pro6"data index if record"pro6"data index > record"pro6"data count begin subtract 1 record"pro6"data index put 100% record"pro6"data record"temp"data add 1 record"temp"data put 1 record"run"data loop until record"run"data > 12 begin add 1 record"pro6"data index put 100% record"temp"data record"pro6"data add 1 record"run"data end subtract 11 record"pro6"data index end put 6 record"pro"data index put 100% record"pro6"data record"pro"data end put 7 record"streets"layout index if record"streets"layout has not hit each time begin add 1 record"pro7"data index if record"pro7"data index > record"pro7"data count begin subtract 1 record"pro7"data index put 100% record"pro7"data record"temp"data add 1 record"temp"data put 1 record"run"data loop until record"run"data > 12 begin add 1 record"pro7"data index put 100% record"temp"data record"pro7"data add 1 record"run"data end subtract 11 record"pro7"data index end put 7 record"pro"data index put 100% record"pro7"data record"pro"data end put 8 record"streets"layout index if record"streets"layout has not hit each time begin add 1 record"pro8"data index if record"pro8"data index > record"pro8"data count begin subtract 1 record"pro8"data index put 100% record"pro8"data record"temp"data add 1 record"temp"data put 1 record"run"data loop until record"run"data > 12 begin add 1 record"pro8"data index put 100% record"temp"data record"pro8"data add 1 record"run"data end subtract 11 record"pro8"data index end put 8 record"pro"data index put 100% record"pro8"data record"pro"data end put 9 record"streets"layout index if record"streets"layout has not hit each time begin add 1 record"pro9"data index if record"pro9"data index > record"pro9"data count begin subtract 1 record"pro9"data index put 100% record"pro9"data record"temp"data add 1 record"temp"data put 1 record"run"data loop until record"run"data > 12 begin add 1 record"pro9"data index put 100% record"temp"data record"pro9"data add 1 record"run"data end subtract 11 record"pro9"data index end put 9 record"pro"data index put 100% record"pro9"data record"pro"data end put 10 record"streets"layout index if record"streets"layout has not hit each time begin add 1 record"pro10"data index if record"pro10"data index > record"pro10"data count begin subtract 1 record"pro10"data index put 100% record"pro10"data record"temp"data add 1 record"temp"data put 1 record"run"data loop until record"run"data > 12 begin add 1 record"pro10"data index put 100% record"temp"data record"pro10"data add 1 record"run"data end subtract 11 record"pro10"data index end put 10 record"pro"data index put 100% record"pro10"data record"pro"data end put 11 record"streets"layout index if record"streets"layout has not hit each time begin add 1 record"pro11"data index if record"pro11"data index > record"pro11"data count begin subtract 1 record"pro11"data index put 100% record"pro11"data record"temp"data add 1 record"temp"data put 1 record"run"data loop until record"run"data > 12 begin add 1 record"pro11"data index put 100% record"temp"data record"pro11"data add 1 record"run"data end subtract 11 record"pro11"data index end put 11 record"pro"data index put 100% record"pro11"data record"pro"data end put 12 record"streets"layout index if record"streets"layout has not hit each time begin add 1 record"pro12"data index if record"pro12"data index > record"pro12"data count begin subtract 1 record"pro12"data index put 100% record"pro12"data record"temp"data add 1 record"temp"data put 1 record"run"data loop until record"run"data > 12 begin add 1 record"pro12"data index put 100% record"temp"data record"pro12"data add 1 record"run"data end subtract 11 record"pro12"data index end put 12 record"pro"data index put 100% record"pro12"data record"pro"data end // section 4:act on a win put 1 record"streets"layout index if record"streets"layout has hit each time begin subtract 12 record"pro1"data index if record"pro1"data index < 18 begin clear record"pro1"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro1"data put 1 record"pro1"data index end put 1 record"pro"data index put 100% record"pro1"data record"pro"data end put 2 record"streets"layout index if record"streets"layout has hit each time begin subtract 12 record"pro2"data index if record"pro2"data index < 18 begin clear record"pro2"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro2"data put 1 record"pro2"data index end put 2 record"pro"data index put 100% record"pro2"data record"pro"data end put 3 record"streets"layout index if record"streets"layout has hit each time begin subtract 12 record"pro3"data index if record"pro3"data index < 18 begin clear record"pro3"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro3"data put 1 record"pro3"data index end put 3 record"pro"data index put 100% record"pro3"data record"pro"data end put 4 record"streets"layout index if record"streets"layout has hit each time begin subtract 12 record"pro4"data index if record"pro4"data index < 18 begin clear record"pro4"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro4"data put 1 record"pro4"data index end put 4 record"pro"data index put 100% record"pro4"data record"pro"data end put 5 record"streets"layout index if record"streets"layout has hit each time begin subtract 12 record"pro5"data index if record"pro5"data index < 18 begin clear record"pro5"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro5"data put 1 record"pro5"data index end put 5 record"pro"data index put 100% record"pro5"data record"pro"data end put 6 record"streets"layout index if record"streets"layout has hit each time begin subtract 12 record"pro6"data index if record"pro6"data index < 18 begin clear record"pro6"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro6"data put 1 record"pro6"data index end put 6 record"pro"data index put 100% record"pro6"data record"pro"data end put 7 record"streets"layout index if record"streets"layout has hit each time begin subtract 12 record"pro7"data index if record"pro7"data index < 18 begin clear record"pro7"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro7"data put 1 record"pro7"data index end put 7 record"pro"data index put 100% record"pro7"data record"pro"data end put 8 record"streets"layout index if record"streets"layout has hit each time begin subtract 12 record"pro8"data index if record"pro8"data index < 18 begin clear record"pro8"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro8"data put 1 record"pro8"data index end put 8 record"pro"data index put 100% record"pro8"data record"pro"data end put 9 record"streets"layout index if record"streets"layout has hit each time begin subtract 12 record"pro9"data index if record"pro9"data index < 18 begin clear record"pro9"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro9"data put 1 record"pro9"data index end put 9 record"pro"data index put 100% record"pro9"data record"pro"data end put 10 record"streets"layout index if record"streets"layout has hit each time begin subtract 12 record"pro10"data index if record"pro10"data index < 18 begin clear record"pro10"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro10"data put 1 record"pro10"data index end put 10 record"pro"data index put 100% record"pro10"data record"pro"data end put 11 record"streets"layout index if record"streets"layout has hit each time begin subtract 12 record"pro11"data index if record"pro11"data index < 18 begin clear record"pro11"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro11"data put 1 record"pro11"data index end put 11 record"pro"data index put 100% record"pro11"data record"pro"data end put 12 record"streets"layout index if record"streets"layout has hit each time begin subtract 12 record"pro12"data index if record"pro12"data index < 18 begin clear record"pro12"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro12"data put 1 record"pro12"data index end put 12 record"pro"data index put 100% record"pro12"data record"pro"data end //bet duplicate record"pro" record"play" if record"start spins"data > 0 begin put 12 record"play"data index put 100% record"start spins"data record"run"data loop until record"run"data = 0 begin put 0 record"play"data subtract 1 record"play"data index subtract 1 record"run"data end end else begin put 0 record"start spins"data end if record"diff B"data = 1 begin put 999999 record"min"data put 1 record"play"data index loop until record"play"data index > record"play"data count begin if record"play"data < record"min"data begin put 100% record"play"data record"min"data end add 1 record"play"data index end put 1 record"play"data index loop until record"play"data index > record"play"data count begin subtract 100% record"min"data record"play"data add 1 record"play"data index end put 0 record"total"data put 1 record"play"data index loop until record"play"data index > record"play"data count begin add 100% record"play"data record"total"data add 1 record"play"data index end if record"total"data = 0 begin set list [1,1,1,1,1,1,1,1,1,1,1,0] record"play"data end end put 1 record"play"data index loop until record"play"data index > record"n Streets"data begin put 100% record"play"data index record"streets"layout index put 100% record"play"data record"streets"layout add 1 record"play"data index end end // subroutines method "init" begin group begin display "straight Ahead by Zocker" display "---------------------------------" input data "How many Streets do you want to play: " record"n Streets"data input dropdown "On a zero, cancel the first step in the progression: 1:= Yes 2:= No " record"Z"data input dropdown "Switch progressions every other 24 spins: 1:= Yes 2:= No" record"Sw"data input dropdown "Apply differential betting: 1:= Yes 2:= No" record"diff B"data end copy list [Street(1-3),Street(4-6),Street(7-9),Street(10-12),Street(13-15), Street(16-18),Street(19-21),Street(22-24),Street(25-27),Street(28-30), Street(31-33),Street(34-36)] to record"streets"layout set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro1"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro2"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro3"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro4"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro5"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro6"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro7"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro8"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro9"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro10"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro11"data set list [1,1,1,1,1,1,1,1,1,1,1,1] record"pro12"data put 12 record"start spins"data put -1 record"24 counter"data end method "switch progressions" begin //sort clear record"sequence"data set list [0,0,0,0,0,0,0,0,0,0,0,0] record"sequence"data put 1 record"run"data loop until record"run"data = 13 begin put 999999 record"min"data put 1 record"pro"data index loop until record"pro"data index > record"pro"data count begin put 100% record"pro"data index record"sequence"data index if record"sequence"data = 0 begin if record"pro"data < record"min"data begin put 100% record"pro"data record"min"data end end add 1 record"pro"data index end put 1 record"pro"data index put 1 record"sequence"data index loop until record"pro"data = record"min"data and record"sequence"data = 0 begin add 1 record"sequence"data index add 1 record"pro"data index end put 100% record"pro"data index record"sequence"data index put 100% record"run"data record"sequence"data add 1 record"run"data end //switch clear record"switch"layout put 1 record"switch"layout index put 12 record"go"data loop until record"go"data = 0 begin put 1 record"sequence"data index loop until record"sequence"data = record"go"data begin add 1 record"sequence"data index end put 100% record"sequence"data index record"streets"layout index copy record"streets"layout record"switch"layout add 1 record"switch"layout index subtract 1 record"go"data end duplicate record"switch" record"streets" end