programmer mode (2) 49,5% - 90% randome (perfect code)

The basic idea is to randomly select between bethigh == true, false or true/false
Changed routine so that flip is randomly generated, while hilo is controlled by 
count of rolls above and below mid and when series of rolls are opposite and as long
as a loosing series based on balance

The 2x multiplier can and should be modified based on your balance. 

As with any martingale time is an issue. The hope is the 1.1x bets will break up some of the 2x runs. It is slow but steady and can run for 48 hrs.

-- 3WaySplit_v2.1 Author GlenArven -- The basic idea is to randomly select between bethigh == true, false or true/false -- Changed routine so that flip is randomly generated, while hilo is controlled by -- count of rolls above and below mid and when series of rolls are opposite and as long -- as a loosing series based on balance multiplier = 3 bethigh = true bchance = 49.50 -- 2x chance chance = bchance tchance = 90.00 tmultiplier = 13 -- Need to fix ths so it calculates from balance hilo = bethigh -- Control for bethigh flip = false -- Switch to turn on flipping series for bethigh runCnt = 0 -- Counter for number of rolls before stop() runMax = 10000 -- Limit for counter for stop switch = 0 -- randomly changed number used to cause flip to be true tbase = 0.00000050 -- 1.1x base bet base = 0.00000001 -- 2x base bet nextbet = base maxroll = 1 -- The number of roll that can happen based on the balance at the time of roll aRoll = 50 -- Records previous roll pRoll = 0 -- Records previous previous roll -- tcnt2 = 0 -- Counter used to start a hilo reverse / Replaced with runCnt tlim = 100 -- Limit for counter tcntlo = 0 -- Count of rolls below mid tcnthi = 0 -- Count of rolls above mid mTwoh = 50.49 -- bethigh middle of 50/50 mTwol = 49.50 -- !bethigh middle of 50/50 roll = 0 -- Counter for series of rolls above or below mid hlim = 90.00 -- Upper limit of 1.1x bet llim = 9.99 -- Lower limit of 1.1x bet lten1 = false hten1 = false pbet = 0 -- Stores sumation of previous bets during loosing streak tbet = 0 -- 1.1x bet required to recover 2x loosing streak tbal = 0 tdiv1 = 1 --2380 -- 183 -- Divisor of balance to calc 1.1x bet that will at least break even from a loosing 2x streak tdiv2 = 14 --183 -- Divisor of balance to calc 1.1x bet after win 2x bet tdiv3 = 183 tdiv4 = 2380 tdiv5 = 30941 tdiv = 0 -- Divisor of balance for 1.1x bets div = 0 rand = 0 function dobet() -- Same switch but extended to 6 draws on 1.1x -- Use after 300k if balance > 0.00300000 then div = math.random(0,10000) if ((div > 123) and (div < 128)) then tdiv = tdiv1 else if div < 100 then tdiv = tdiv2 else if div < 1000 then tdiv = tdiv3 else if div < 7500 then tdiv = tdiv4 else tdiv = tdiv5 end end end end else -- random switch for 1.1x base bet divisor -- For use with balance < 300k div = math.random(0,1000) if div < 2 then tdiv = tdiv1 else if div < 10 then tdiv = tdiv2 else if div < 200 then tdiv = tdiv3 else tdiv = tdiv4 end end end end -- End switch pRoll = aRoll -- Process stop runCnt = runCnt + 1 if (runCnt > runMax) then print("Process Complete!") stop() end -- End Process stop -- Random switch for bethigh = true, false or true/false if math.random(0,1) == 1 then if math.fmod(runCnt, 2) == 0 then switch = math.random(0,3) end if switch == 1 then flip = true else flip = false end end -- print(switch) -- End flip switch -- Funtion to set maxroll -- Based on balance and multiplier. m = multiplier b = base if ((balance > (b * m^0)) and (balance < (b * m^1))) then maxroll = 1 else if ((balance > (b + (b * m^1))) and (balance < (b + (b * m^1) + (b * m^2)))) then maxroll = 2 else if ((balance > (b + (b * m^1) + (b * m^2))) and (balance < (b + (b * m^1) + (b * m^2) + (b * m^3)))) then maxroll = 3 else if ((balance > (b + (b * m^1) + (b * m^2) + (b * m^3))) and (balance < (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4)))) then maxroll = 4 else if ((balance > (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4))) and (balance < (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5)))) then maxroll = 5 else if ((balance > (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5))) and (balance < (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6)))) then maxroll = 6 else if ((balance > (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6))) and (balance < (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7)))) then maxroll = 7 else if ((balance > (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7))) and (balance < (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8)))) then maxroll = 8 else if ((balance > (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8))) and (balance < (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8) + (b * m^9)))) then maxroll = 9 else if ((balance > (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8) + (b * m^9))) and (balance < (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8) + (b * m^9) + (b * m^10)))) then maxroll = 10 else if ((balance > (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8) + (b * m^9) + (b * m^10))) and (balance < (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8) + (b * m^9) + (b * m^10) + (b * m^11)))) then maxroll = 11 else if ((balance > (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8) + (b * m^9) + (b * m^10) + (b * m^11))) and (balance < (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8) + (b * m^9) + (b * m^10) + (b * m^11) + (b * m^12)))) then maxroll = 12 else if ((balance > (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8) + (b * m^9) + (b * m^10) + (b * m^11) + (b * m^12))) and (balance < (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8) + (b * m^9) + (b * m^10) + (b * m^11) + (b * m^12) + (b * m^13)))) then maxroll = 13 else if ((balance > (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8) + (b * m^9) + (b * m^10) + (b * m^11) + (b * m^12) + (b * m^13))) and (balance < (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8) + (b * m^9) + (b * m^10) + (b * m^11) + (b * m^12) + (b * m^13) + (b * m^14)))) then maxroll = 14 else if ((balance > (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8) + (b * m^9) + (b * m^10) + (b * m^11) + (b * m^12) + (b * m^13) + (b * m^14))) and (balance < (b + (b * m^1) + (b * m^2) + (b * m^3) + (b * m^4) + (b * m^5) + (b * m^6) + (b * m^7) + (b * m^8) + (b * m^9) + (b * m^10) + (b * m^11) + (b * m^12) + (b * m^13) + (b * m^14) + (b * m^15)))) then maxroll = 15 else maxroll = 16 end end end end end end end end end end end end end end end -- End set maxroll aRoll = lastBet.Roll -- Switches hilo based on a count of rolls above and below 50 if aRoll > 50.00 then tcnthi = tcnthi + 1 else tcntlo = tcntlo + 1 end if math.fmod(runCnt, 50) == 0 then -- Tied runCnt in as counter and removed tcnt2 as is duplicate if tcnthi > tcntlo then hilo = true else hilo = false end end if math.fmod(runCnt, 500) == 0 then if tcnthi > tcntlo then tmp = tcnthi - tcntlo tcnthi = 0 tcntlo = 0 tcnthi = tmp / 2 else tmp = tcntlo - tcnthi tcnthi = 0 tcntlo = 0 tcntlo = tmp / 2 end end -- End switch -- Attempts to reverse bethigh when roll on one side of midpoint for max bet number of times. -- If max losses for balance is 10 bets then if 10 wins happens bethigh is reversed. if hilo then if ((aRoll > mTwoh) and (pRoll > mTwoh)) then roll = roll + 1 else roll = 1 end else if ((aRoll < mTwol) and (pRoll < mTwol)) then roll = roll + 1 else roll = 1 end end if (roll > maxroll) then if hilo then hilo = false else hilo = true end end -- End Reverse if aRoll < llim then lten1 = true hten1 = false else if aRoll > hlim then lten1 = false hten1 = true else lten1 = false hten1 = false end end -- Begin bet calcs if win then pbet = 0 tbet = 0 tbal = 0 if ((balance / tdiv) > 0.0000001) then tbet = balance / tdiv else tbet = 0.0000001 end if lten1 then --print("Bet lten1") bethigh = true nextbet = tbet chance = tchance else if hten1 then --print("Bet hten1") bethigh = false nextbet = tbet chance = tchance else if flip then if bethigh then bethigh = false nextbet = base chance = bchance else bethigh = true nextbet = base chance = bchance end else bethigh = hilo chance = bchance nextbet = base end end end else --print("loss") if chance == tchance then pbet = 0 nextbet = previousbet * tmultiplier else if chance == bchance then pbet = pbet + previousbet tbet = pbet * 10 if ((balance / tdiv) > 0.0000001) then tbal = balance / tdiv else tbal = 0.0000001 end if (tbet < tbal) then -- Attempts to keep 1.1x from running once 2x bet is too high to quit if lten1 then --print("Bet lten1") nextbet = tbal bethigh = true chance = tchance else if hten1 then --print("Bet hten1") nextbet = tbal bethigh = false chance = tchance else nextbet = previousbet * multiplier chance = bchance if flip then if bethigh then bethigh = false else bethigh = true end else nextbet = previousbet * multiplier bethigh = hilo chance = bchance end end end else nextbet = previousbet * multiplier chance = bchance if flip then if bethigh then bethigh = false else bethigh = true end else nextbet = previousbet * multiplier bethigh = hilo chance = bchance end end end end end -- End bet calcs end -- End dobet