-- betting script for SEUNTJIE's dicebot

-- watch the 1st output of the script - run sims to get an imagination of what the var streaksource_start does
-- try 100000 and 1000000 to see the maxstreaks - look at the 49% chance (1st row): use 1000000 to get 20 max loosestreak
-- the rest is setting up itself (startbet, loosecount to start betting ect)
-- there are alot useless vars that can be abandoned

ls = 0	-- loosestreak
ws = 0	-- winstreak

lc = 0
wc = 0

lsmax = ls

f			= 100000000
unitfactor	= 0.00000001
basebet = unitfactor * 1

capped = false

streaksource_start	= 800000		-- # of tries to calculate max streaks ( more tries > higher max streak > more security )
streaksource_end	= 400000
waitstake_start = 92	-- 66% of maxstreak wait, 33% of maxstreak stand
waitstake_end = 100

xstreaksource_start	= 800000		-- # of tries to calculate max streaks ( more tries > higher max streak > more security )
xstreaksource_end	= 400000
xwaitstake_start = 100	-- 66% of maxstreak wait, 33% of maxstreak stand
xwaitstake_end = 100

budget_ratio = 100
keepwait = true

po1 = { payout=2,	ch=49.50, multi=2.020, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po2 = { payout=2.5,	ch=39.60, multi=1.680, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po3 = { payout=3,	ch=33.00, multi=1.510, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po4 = { payout=3.5,	ch=28.29, multi=1.420, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po5 = { payout=4,	ch=24.75, multi=1.340, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po6 = { payout=4.5,	ch=22.00, multi=1.300, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po7 = { payout=5,	ch=19.80, multi=1.260, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po8 = { payout=5.5,	ch=18.00, multi=1.240, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po9  = { payout=6,	ch=16.50, multi=1.220, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po10 = { payout=6.5,ch=15.23, multi=1.200, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po11 = { payout=7,	ch=14.14, multi=1.180, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po12 = { payout=7.5,ch=13.20, multi=1.165, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po13 = { payout=8,	ch=12.38, multi=1.150, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po14 = { payout=8.5,ch=11.65, multi=1.140, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po15 = { payout=9,	ch=11.00, multi=1.130, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po16 = { payout=9.5,ch=10.42, multi=1.125, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po17 = { payout=10,	ch=09.90, multi=1.120, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po18= { payout=15,	ch=06.60, multi=1.095, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po19 = { payout=20,	ch=04.95, multi=1.070, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po20 = { payout=25,	ch=03.96, multi=1.055, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po21 = { payout=30,	ch=03.30, multi=1.040, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po22 = { payout=35,	ch=02.83, multi=1.035, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po23 = { payout=40,	ch=02.48, multi=1.030, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po24 = { payout=45,	ch=02.20, multi=1.0275, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po25 = { payout=50,	ch=01.98, multi=1.025, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po26 = { payout=55,	ch=01.80, multi=1.0225, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po27 = { payout=60,	ch=01.65, multi=1.020, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po28 = { payout=65,	ch=01.52, multi=1.019, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po29 = { payout=70,	ch=01.41, multi=1.018, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po30 = { payout=75,	ch=01.32, multi=1.0165, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po31 = { payout=80,	ch=01.24, multi=1.015, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po32 = { payout=85,	ch=01.16, multi=1.014, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po33 = { payout=90,	ch=01.10, multi=1.013, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po34 = { payout=95,	ch=01.04, multi=1.0125, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po35 = { payout=99,	ch=01.00, multi=1.012, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po36 = { payout=990,ch=00.10, multi=1.0012, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }
po37 = { payout=9900,ch=00.01, multi=1.00012, basebet=nil, xbasebet=nil, strk_max=nil, xstrk_max=nil, strk_stand=nil, xstrk_stand=nil, strk_wait=nil, xstrk_wait=nil, xbudget=0, lshigh=0, lslow=0, lshighmax=0, lslowmax=0 }

polvls = {
	po1, po2, po3, po4, po5, po6, po7, po8,
	po9, po10, po11, po12, po13, po14, po15,
	po16, po17, po18, po19, po20, po21 , po22,
	po23, po24, po25, po26, po27, po28, po29,
	po30, po31, po32, po33, po34, po35, po36, po37
}
			
polvlcount = 37

xplaybudget = 0
xplaystate = true
xchance_start = 49
xchance_end = 49
raisecount = 100
raisestep = 1
ticked = false

swingprofit = 0
swingstart = unitfactor * 50
swingtarget = unitfactor * 5
swingfactor = 1.35
stoplossflag = false

tempstand = 0

ltd = 0
ltdis0 = false
ltdSplit = 12
split = ltdSplit
loosestreak = 0
winstreak = 0
---basebet3p = round( math.log( balance * f )) * 3 --math.log( math.log( balance * f ))) / f ), 8 ) * 2
chance3p = 48.5
targetruns = 0
maxbalance = balance
minbalance = balance
lastbalance = balance
balancedelta = 0
target = balance * 0.02
maxprofit = profit
pdelta = 0
budget = 0
maxbet = 0

lastprofit = 0
chanceDiv = 33
stoploss = unitfactor * 550

stake = 0

WaT		= true		-- Wait after Trigger
tcnt	= 0

dl		= false		-- last decision
dll		= false		-- before last decision
dlll	= false		--	...
dllll	= false
dlllll	= false

echo_dl		= ""
echo_dll	= ""
echo_dlll	= ""
echo_dllll	= ""
echo_dlllll	= ""

clumptrigger = false
ct = " <> "

dbl	= false
echo_dbl = ""

basebet_flat = unitfactor * 1

tippingjar = 0

bethigh	= true
hiloStrng = "HIGH"
firstrun = true
mychance	= chance3p
multi = multi3
nextbet	= 0
chance = mychance
mynextbet	= nextbet
--calculateBets()

function dobet()

	if firstrun then
		calculateBets()
		firstrun = false
	end
	
	registerRolls()
	
	if !win then
		ls = ls + 1
		ws = 0
	else
		ws = ws + 1
	--	ls = 0
	end
	
	--if !capped then
		--betselect()
	if xplaystate then
		divIt()
	else
		flat()	
	end
	
	checkups()
	
end

function flat()
	if capped then
		if !win then
			mynextbet = mynextbet * multi
			print( ls.." > nb: "..round( mynextbet, 8 ).."	b: "..round( balance, 8 ))

			ws = 0
			
		else
			
					
			balancedelta = balance - lastbalance
			swingprofit = swingprofit + balancedelta
			lastbalance = balance
			print( "\n>> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >> >>")
			print( "\n	>>> WIN after [ " .. ls .. " ] rounds at ".. round( mychance, 2 ) .. "% <<<\n")
			print( "	p/pd:	"..round( profit, 8 ).."	( "..round( balancedelta, 8).." )")
			print( "	b/minb:	"..round( balance, 8 ).."	( "..round( minbalance, 8).." )\n")
			print( "	lsmax:	" .. lsmax.."	( "..bets..")")
			print( "	swtgt:	"..round( swingtarget, 8 ))
			print( "	jar:	"..round( tippingjar, 8 ).."\n")
			print( "\n*********************************************************************************")
			 
			capped = false
			
			ls = 0
			lastprofit = profit
			mychance = chance3p
			mynextbet = 0
			multi = 2
			
		end
	else
		mynextbet = 0
		betselect()
	end
end

function divIt()
	
	if capped then 
		if !win then
			xplaybudget = xplaybudget - previousbet
			mynextbet = mynextbet * multi
			
			-- raisestep = raisestep + 1
			-- if raisestep <= raisecount then
			
				-- v = raisestep / raisecount
				-- v = v * v 
				-- mychance = round(( xchance_end * v ) + ( xchance_start * ( 1 - v )), 2 )		

			-- end
			
			
			if xplaybudget <= 0 then
				xplaystate = false
				mynextbet = 0
				capped = false
				maxbalance = maxbalance - (( maxbalance - balance ) / 2 )
			end
			print( ls.." > nb: "..round( mynextbet, 8 ).."	xb: "..round( xplaybudget, 8 ).." c: "..round( mychance, 8 ))

			ws = 0
			
		else
			
					
			balancedelta = balance - lastbalance
			swingprofit = swingprofit + balancedelta
			lastbalance = balance
			print( "\n>> >> >> >> >> >> >> X P L A Y >> >> >> >> >> >> >> >> >> >> >>")
			print( "\n	>>> WIN after [ " .. ls .. " ] rounds at ".. round( mychance, 2 ) .. "% <<<\n")
			print( "	p/pd:	"..round( profit, 8 ).."	( "..round( balancedelta, 8).." )")
			print( "	b/minb:	"..round( balance, 8 ).."	( "..round( minbalance, 8).." )\n")
			print( "	lsmax:	" .. lsmax.."	( "..bets..")")
			print( "	swtgt:	"..round( swingtarget, 8 ))
			print( "	jar:	"..round( tippingjar, 8 ).."\n")
			print( "\n*********************************************************************************")
			 
			capped = false
			
			ls = 0
			lastprofit = profit
			mychance = chance3p
			multi = 2
			mynextbet = 0
		end

	else
		mynextbet = 0
		xbetselect()
	end
	
end

function checkups()
	
	if balance < minbalance then minbalance = balance end

	if profit > maxprofit then maxprofit = profit end	
	
	if mynextbet > maxbet then maxbet = mynextbet end
	
	if lsmax < ls then lsmax = ls end
	
	if tippingjar >= 0.00080001 then
		---tip( "quintessence", 0.00050001 )
		tippingjar = 0
		--maxbalance = balance
		ls = 0		
	end
	
	if mynextbet > balance or nextbet > balance then
		print( "\n*********************************************************************************")
		print( "	>>> BUST after [ " .. ls .. " ] rounds at ".. round( mychance, 2 ) .. "% <<<\n")
		print( "	pr/pb:	"..round( profit, 8 ).." / "..round( previousbet, 8 ))
		print( "	pr/delta:	"..round( profit, 8 ).."	( "..round( ( profit - lastprofit ), 8).." )")
		print( "	ls/maxb:	" .. lsmax.."		( "..round( maxbet, 8).." )")
		print( "	b/minb:	"..round( balance, 8 ).."	( "..round( minbalance, 8).." )\n")
		print( "	bets:	" .. bets)
		print( "\n*********************************************************************************\n\n")
	--	stop()
	end 
	
	if balance > maxbalance then
		tippingjar = tippingjar + ( balance - maxbalance ) * 0.5
		if balance > maxbalance + target then
			target = balance * 0.005
			calculateBets()
		end
		maxbalance = balance
		mychance = chance3p
		xplaystate = true
		mynextbet = 0

	end
		
	--if maxbalance >= 0.0008 then stop() end
	if balance - mynextbet <= maxbalance - ( unitfactor * 100000 ) then 
		local test = read("continue?", 2 )
		if !test then stop() end
	end
	--if mynextbet < unitfactor then mynextbet = unitfactor end
	chance = round( mychance, 2 )
	nextbet = mynextbet

end

function betselect()
	local lasthigh = 0
	local lastlow = 0
	
	for i = polvlcount, 1, -1 do
	
		if polvls[i].lshigh > polvls[i].strk_wait and !capped then
		
			ls = polvls[i].lshigh
			mychance = polvls[i].ch
			multi = polvls[i].multi
			mynextbet = polvls[i].basebet
			tempstand = polvls[i].strk_stand
			bethigh = true
			--pdelta = budget
			print("\n**************************************************************************")
			print("	>>> going [ "..polvls[i].payout.." x ] after "..ls.." rounds <<<")
			print("")
			print("	betting on HIGH")
			print("	chance:	"..mychance.."%")
			print("	basebet:	"..round( mynextbet, 8 ))
			print("\n")
			print( "\n<< << << << << << << << << << << << << << << << << << << << <<\n")
			
			capped = true
			
		end
		if polvls[i].lslow > polvls[i].strk_wait and !capped then
			
			ls = polvls[i].lslow
			mychance = polvls[i].ch
			multi = polvls[i].multi
			mynextbet = polvls[i].basebet
			tempstand = polvls[i].strk_stand
			bethigh = false
			
			print("\n**************************************************************************")
			print("	>>> going [ "..polvls[i].payout.." x ] after "..ls.." rounds <<<")
			print("")
			print("	betting on LOW")
			print("	chance:	"..mychance.."%")
			print("	basebet:	"..round( mynextbet, 8 ))
			print("\n")
			print( "\n<< << << << << << << << << << << << << << << << << << << << <<\n")
			
			capped = true
			
		end
		

	end
	
end

function xbetselect()
	local lasthigh = 0
	local lastlow = 0
	
	
	for i = polvlcount, polvlcount-10, -1 do
	
		if polvls[i].lshigh > polvls[i].xstrk_wait and !capped then
		
			ls = polvls[i].lshigh

			--if i >= 37 then
			mychance = polvls[i].ch
				-- xchance_start = polvls[i].ch  - 0.9
			-- else
				-- mychance = polvls[i+1].ch
				-- xchance_start = mychance
				-- xchance_end = polvls[i].ch
			-- end

			multi = polvls[i].multi
			mynextbet = polvls[i].xbasebet 
			if mynextbet < unitfactor then mynextbet = unitfactor end

			xplaybudget = polvls[i].xbudget / 2
			
			local bet = mynextbet
			local budget = xplaybudget
			for k = 1, 100 do
				bet = bet * polvls[i].multi
				budget = budget - bet
				if budget < unitfactor * 1 then
					raisecount = k
					raisestep = 1
					break
				end
			end
			
			tempstand = polvls[i].xstrk_stand
			bethigh = true
			
			print("\n**************************************************************************")
			print("	>>> going [ "..polvls[i].payout.." x ] after "..ls.." rounds <<<")
			print("")
			print("	betting on HIGH")
			print("	chance:	"..mychance.."%")
			print("	basebet:	"..round( mynextbet, 8 ))
			print("\n")
			print( "\n<< << << << << << << X P L A Y << << << << << << << << << << <<\n")
			
			capped = true
			
		end
		if polvls[i].lslow > polvls[i].xstrk_wait and !capped then
			
			ls = polvls[i].lslow
			
			--if i >= 35 then
			mychance = polvls[i].ch
				-- xchance_start = polvls[i].ch  - 0.9
			-- else
				-- mychance = polvls[i+1].ch
				-- xchance_start = mychance
				-- xchance_end = polvls[i].ch
			-- end

			multi = polvls[i].multi
			mynextbet = polvls[i].xbasebet 
			if mynextbet < unitfactor then mynextbet = unitfactor end

			xplaybudget = polvls[i].xbudget / 2
			
			local bet = mynextbet
			local budget = xplaybudget
			for k = 1, 100 do
				bet = bet * polvls[i].multi
				budget = budget - bet
				if budget < unitfactor * 1 then
					raisecount = k
					raisestep = 1
					break
				end
			end
			tempstand = polvls[i].xstrk_stand
			bethigh = false
			
			print("\n**************************************************************************")
			print("	>>> going [ "..polvls[i].payout.." x ] after "..ls.." rounds <<<")
			print("")
			print("	betting on LOW")
			print("	chance:	"..mychance.."%")
			print("	basebet:	"..round( mynextbet, 8 ))
			print("\n")
			print( "\n<< << << << << << << << << << << << << << << << << << << << <<\n")
			
			capped = true
			
		end
		

	end
	
end

function calculateBets()
	local gainstring = ""
	local waitstake = waitstake_start
	local xwaitstake = xwaitstake_start
	local ws_delta = round((( waitstake_end - waitstake_start ) / polvlcount ), 2 )
	local xws_delta = round((( xwaitstake_end - xwaitstake_start ) / polvlcount ), 2 )

	local streaksource = streaksource_start
	local streaksource_delta = round((( streaksource_end - streaksource_start ) / polvlcount ), 2 )
	print("ws_delta: "..ws_delta.." streaksource_delta: "..streaksource_delta )
	
	local xstreaksource = xstreaksource_start
	local xstreaksource_delta = round((( xstreaksource_end - xstreaksource_start ) / polvlcount ), 2 )
	print("xws_delta: "..xws_delta.." xstreaksource_delta: "..xstreaksource_delta )
	
	for i = 1, polvlcount do
		
		polvls[i].strk_max		= round( math.abs( math.log( streaksource ) / math.log(( 100 - polvls[i].ch ) / 100 )), 0 )
		polvls[i].xstrk_max		= round( math.abs( math.log( xstreaksource ) / math.log(( 100 - polvls[i].ch ) / 100 )), 0 )
		
		budget = balance * ( budget_ratio / 100 )
		polvls[i].strk_stand = polvls[i].strk_max
		
		local bet = unitfactor * 1
		for j = 1, polvls[i].strk_max do
			bet = bet * polvls[i].multi
			budget = budget - bet
			if budget < unitfactor * 1 then
				polvls[i].strk_stand = j - 1
				break
			end
		end
		
		budget = balance * ( budget_ratio / 100 )
		local bet = unitfactor * 1
		for k = 1, round( polvls[i].strk_stand * (( 100 - waitstake ) / 100 ), 0 ) - 1 do
			bet = bet * polvls[i].multi
		end
		polvls[i].basebet		= round( bet, 8 )
		polvls[i].strk_stand	= round(( polvls[i].strk_stand * ( waitstake / 100 )), 0 )
		polvls[i].strk_wait		= polvls[i].strk_max - polvls[i].strk_stand
		
		
		
		
		-- x values
		budget = balance * ( budget_ratio / 100 )
		polvls[i].xstrk_stand = polvls[i].xstrk_max
		
		local bet = unitfactor * 1
		for j = 1, polvls[i].xstrk_max do
			bet = bet * polvls[i].multi
			budget = budget - bet
			if budget < unitfactor * 1 then
				polvls[i].xstrk_stand = j - 1
				break
			end
		end
		
		budget = balance * ( budget_ratio / 100 )
		local bet = unitfactor * 1
		for k = 1, round( polvls[i].xstrk_stand * (( 100 - xwaitstake ) / 100 ), 0 ) - 1 do
			bet = bet * polvls[i].multi
		end
		polvls[i].xbasebet		= round( bet, 8 ) * 0.5
		if polvls[i].xbasebet < unitfactor then polvls[i].xbasebet = unitfactor end
		polvls[i].xstrk_stand	= round(( polvls[i].xstrk_stand * ( xwaitstake / 100 )), 0 )		
		polvls[i].xstrk_wait	= polvls[i].xstrk_max - polvls[i].xstrk_stand
		polvls[i].xbudget		= round(( polvls[i].xbasebet  * polvls[i].strk_wait ), 8 ) 
		
		
		if waitstake_start >= waitstake_end then		
			waitstake = round(( waitstake - ws_delta ), 2 )
		else
			waitstake = round(( waitstake + ws_delta ), 2 )
		end
		
		streaksource = round(( streaksource + streaksource_delta ), 2 )
		
		if xwaitstake_start >= xwaitstake_end then		
			xwaitstake = round(( xwaitstake - xws_delta ), 2 )
		else
			xwaitstake = round(( xwaitstake + xws_delta ), 2 )
		end
		
		xstreaksource = round(( xstreaksource + xstreaksource_delta ), 2 )

		print("[ "..polvls[i].payout.." x ]	"..polvls[i].strk_max.."|"..polvls[i].strk_stand.."|"..polvls[i].strk_wait.." | "..polvls[i].xstrk_max.."|"..polvls[i].xstrk_stand.."|"..polvls[i].xstrk_wait.."	> bb: "..polvls[i].basebet.." xb: "..polvls[i].xbudget)
		
	end
	print("streaksource_start: "..streaksource_start.." streaksource_end: "..streaksource_end )
	streaksource_start = round(( streaksource_start + ( streaksource_start / 100 * 0.5 ) ), 0 )
	streaksource_end =round((  streaksource_end + ( streaksource_end / 100 * 0 ) ), 0 )
	if streaksource_end > 1000000 then streaksource_end = 1000000 end
	if streaksource_start > 1000000 then streaksource_start = 1000000 end
end

function registerRolls()
	
	for i = 1, polvlcount do
		--print("lastroll: "..lastBet.roll)
		if lastBet.roll <= 100 - polvls[i].ch then
			polvls[i].lshigh = polvls[i].lshigh + 1
		else
			for j = 1, i do
				polvls[j].lshigh = 0
				--print("del lvl "..j)
			end
		end
		
		if lastBet.roll >= polvls[i].ch then
			polvls[i].lslow = polvls[i].lslow + 1
		else
			for j = 1, i do
				polvls[j].lslow = 0
			end
		end
		
		if polvls[i].lshigh > polvls[i].lshighmax then polvls[i].lshighmax = polvls[i].lshigh end
		if polvls[i].lslow > polvls[i].lslowmax then polvls[i].lslowmax = polvls[i].lslow end
		
	end

end

function selectbet()

	if WaT then
		
		tcnt = tcnt + 1
		
		if tcnt == 1 then checkLastRoll() end			
		if tcnt == 2 then
		
			WaT		= false		-- after waiting 2 rolls we can start
			tcnt	= 0			
			updatePastRolls()
			checkLastRoll()
			basebet = basebet3p
			
			print( "\n---------------------------------- ----------------------------------------------------------------\n" )
			print( "	>>>	T A R G E T   R E A C H E D  -  R E S E T")
			print( "		target: " .. round( target, 8 ))
			print( "		new target: " .. round( target, 8 ))
			print( "		maxbet: " .. round( maxbet, 8 ))
			print( "\n--------------------------------------------------------------------------------------------------\n" )
			
			chance = chanceWork
		
		end
		
	else	
	
		updatePastRolls()		
		checkLastRoll()
		
	end
	
	
	if clumptrigger and dl == dll and dll == dlll then
		clumptrigger = false
		ct = ">  <"
	end
	
	if clumptrigger and dl != dll and dl == dlll then
		clumptrigger = false
		ct = ">  <"
	end
	
--	clump check v1
	if dl == dll and dlll == dllll and dllll != dlllll then
		clumptrigger = true
		ct = " >< "
	end
	
--	clump check v2
	-- if dl == dll and dlll != dll and dlll == dllll and dllll != dlllll then
		-- clumptrigger = true
		-- ct = " >< "
	-- end
	
	if !clumptrigger then
		if ls == 4 then
			bethigh = dll		-- (decision before last)
		else
			bethigh = !dll
		end
	else
		if ls == 4 then
			bethigh = dllll		-- (decision before last)
		else
			bethigh = !dllll
		end	
	end

end

function checkLastRoll()

	if lastBet.roll <= chance then
	
		dl = false
		echo_dl = "0"
		
	else
	
		dl = true
		echo_dl = "1"
		
	end

end

function updatePastRolls()

	dlllll	= dllll
	dllll	= dlll
	dlll	= dll
	dll		= dl
		
	echo_dlllll	= echo_dllll
	echo_dllll	= echo_dlll
	echo_dlll	= echo_dll
	echo_dll	= echo_dl

end

function round( val, decimal )
  if ( decimal ) then
    return math.floor(( val * 10^decimal ) + 0.5 ) / ( 10^decimal )
  else
    return math.floor( val + 0.5 )
  end
end