Double Streets V3.3
Lohnro Double Streets v3dot3.dgt — Xtreme, 9 KB (9228 bytes)
Contenuto del file
system "Lohnro Double Streets v3.3" { ************************************* * System by Lohnro * on the VIP Lounge * Roulette Extreme Code * by Moch ************************************* http://gambling.projectsydney.com/viewtopic.php?p=37848#37848 We are looking at Double Streets. Before a bet is made, track the last 18 spins. In 18 spins every street SHOULD hit 3 times. What we are looking for is D/S that have hit EXACTLY twice in the last 18 spins. So we may be betting on 1 D/S OR 2 D/S only. } method "main" begin // start up while starting new session begin Clear all records call "Init" call "WheelType" exit end // count spins add 1 record"TotalSpins" data // do the tracking track last number for 12 spins record"Last12Spins"layout copy last number record"LastN"layout call "TrackLines" // Bankroll if bankroll > record"HighBankroll"data begin put 100% bankroll record"HighBankroll"data end // act on a loss if net < 0 begin set flag "qualified" true if record"BetType"data=1 begin if record"BetLayout"layout count = 1 begin add 1 record"Progression1"data index if record"Progression1"data index > record"Progression1"data count begin put 1 record"Progression1"data index call "GetLast12Spins" set flag "qualified" false end end if record"BetLayout"layout count = 2 begin add 1 record"Progression2"data index if record"Progression2"data index > record"Progression2"data count begin put 1 record"Progression2"data index call "GetLast12Spins" set flag "qualified" false end end end else begin call "CalculateNextBet" end end // act on a win if net > 0 begin if record"BetType"data=1 begin if record"BetLayout"layout count = 1 begin put 1 record"Progression1"data index end if record"BetLayout"layout count = 2 begin put 1 record"Progression2"data index end end else begin call "CalculateNextBet" end if flag "Last12W" true begin call "GetLast12Spins" end else begin call "Reset" end set flag "qualified" false end // act when not qualified if flag "qualified" false begin if flag "Ready2Bet" true begin call "GetLines2BetOn" set flag "Ready2Bet" false set flag "qualified" true if record"BetLayout"layout count > record "LineHits" data begin call "GetLast12Spins" set flag "qualified" false end end end // act when qualified if flag "qualified" true begin if record"BetType"data=1 begin if record"BetLayout"layout count = 1 begin put 100% record"Progression1"data record"BetLayout"layout list end if record"BetLayout"layout count = 2 begin put 100% record"Progression2"data record"BetLayout"layout list end end else begin call "CalculateNextBet" put 100% record"Progression"data record"BetLayout"layout list end set flag "qualified" false end end // Methods method "Reset" begin set flag "Ready2Bet" false put 0 record"TotalSpins" data end method "Init" begin set list [1,1,2,2,3,3,4,4,5,6,8,10] record "Progression1" data set list [1,2,3,4,6,9] record "Progression2" data copy list [1,2,3,4,5,6] record"Line1"layout copy list [7,8,9,10,11,12] record"Line2"layout copy list [13,14,15,16,17,18] record"Line3"layout copy list [19,20,21,22,23,24] record"Line4"layout copy list [25,26,27,28,29,30] record"Line5"layout copy list [31,32,33,34,35,36] record"Line6"layout set list [0,0,0,0,0,0] record "LineMask" data // defaults put 18 record"MaxSpins"data put 0 record"TotalSpins"data put 2 record "LineHits" data // flags set flag "Last12W" false set flag "Last12L" false set flag "qualified" false set flag "Ready2Bet" false // Input group begin display "System Lohnro Double Streets v3.1" display "by Lohnro" input dropdown " Wheel Type ? 1:= Single Zero 2:= Double Zero " record"Wheel"data input data "Number of Spins to track ?" record"MaxSpins"data input checkbox "After a win use last 12 spins" flag "Last12W" input dropdown "Progression Type ? 1:= Lonhro Progression 2:= Positive on a win" record"BetType"data end // assign put 100% bankroll record"HighBankroll"data put 100% bankroll record"LowBankroll"data end method "GetLines2BetOn" begin clear record"BetLayout"layout put 1 record"BetLayout"layout index put 1 record"LineMask"data index put 0 record"3Hits"data loop until record "LineMask" data index > record "LineMask" data count begin if record "LineMask" data = record "LineHits" data begin if record "LineMask" data index = 1 begin copy line(1-6) record"BetLayout"layout add 1 record"BetLayout"layout index end if record "LineMask" data index = 2 begin copy line(7-12) record"BetLayout"layout add 1 record"BetLayout"layout index end if record "LineMask" data index = 3 begin copy line(13-18) record"BetLayout"layout add 1 record"BetLayout"layout index end if record "LineMask" data index = 4 begin copy line(19-24) record"BetLayout"layout add 1 record"BetLayout"layout index end if record "LineMask" data index = 5 begin copy line(25-30) record"BetLayout"layout add 1 record"BetLayout"layout index end if record "LineMask" data index = 6 begin copy line(31-36) record"BetLayout"layout add 1 record"BetLayout"layout index end end add 1 record "LineMask" data index end set list [0,0,0,0,0,0] record "LineMask" data end method "GetLast12Spins" begin put 1 record"Last12Spins"layout index loop until record"Last12Spins"layout index > record"Last12Spins"layout count begin copy record"Last12Spins"layout record"LastN"layout call "TrackLines" add 1 record"Last12Spins"layout index end put 11 record"TotalSpins" data end method "TrackLines" begin if record"LastN"layout found record"Line1"layout begin put 1 record "LineMask" data index add 1 record "LineMask" data end if record"LastN"layout found record"Line2"layout begin put 2 record "LineMask" data index add 1 record "LineMask" data end if record"LastN"layout found record"Line3"layout begin put 3 record "LineMask" data index add 1 record "LineMask" data end if record"LastN"layout found record"Line4"layout begin put 4 record "LineMask" data index add 1 record "LineMask" data end if record"LastN"layout found record"Line5"layout begin put 5 record "LineMask" data index add 1 record "LineMask" data end if record"LastN"layout found record"Line6"layout begin put 6 record "LineMask" data index add 1 record "LineMask" data end if record"TotalSpins" data = record"MaxSpins"data begin set flag "Ready2Bet" true put 0 record"TotalSpins" data end end method "CalculateNextBet" begin put 0 record"Progression"data put 0 record"Balance"data set max record"BetLayout"layout index put 100% record"BetLayout"layout index record"Units"data loop until record"Balance"data > record"HighBankroll"data begin add 1 record"Progression"data duplicate record"Progression" record"Balance" put 6 record"Payoff"data subtract 100% record"Units"data record"Payoff"data multiply 100% record"Payoff"data record"Balance"data add 100% bankroll record"Balance"data end end method "WheelType" begin if record"Wheel"data=1 begin Load Single Wheel end else begin Load Double Wheel end end