multiplier = 3
bethigh = true
bchance = 49.50 -- 2x chance
chance = bchance
tchance = 90.00
tmultiplier = 11 -- 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