dice3

stop_if_balance = 5000 --set limit to stop script, script will stop if balance > value

base = 0.03  --base for martingale  at 25% chance
base1 = 0.03  --base for martingale  at 50% chance

nextbet = 0.03 -- set first bet


--this settings WORKS ON 999DICE
chance = 89.8
chance90 = 89.8       --set initial chance for "90%" bets
chance50 = 49.95    --set initial chance for "50%" bets
----------------
--Set start level for 25% chance and for 50% chance

Martin_25_level = 7 --set condition to start martingale at 25% chance
Martin_50_level = 3 --set condition to start martingale at 50% chance

level90start = 0.00000010 --can be 0.00000001 or 0.00000010 or 0.00000100 or  0.00001000 ..etc.

safe = false

option = 1

--Count Variable
count90 = 0
count90max = 0
count50 = 0
count50max = 0
count25 = 0
count25max = 0
count50r = 0
count50rmax = 0



----------------------------------------------------------------------------------------------------------------
--Variables for Martingale at 90% chance

level = {1,10,100,1000,10000,100000,1000000, 10000000, 100000000}
Bets={}
for i = 1,50 do
    Bets[i] = -1
end


--------------------------------------------------------------------------------------------------------------
function dobet()


print("----------------------------------------------------------")

--stop condition--

if balance >= stop_if_balance then
   stop()
end


--------------------------------------------------------------
-- Find maximum number of consecutive lossing rolls can be done with current balance at 90% chance and level multiplicator--

for i = 1,9 do
   if balance/level[i] > level90start then
      xlevel = i
   end
end

---------------------------------------------------------------------------------------------------------------
--Set Array for Rolls Value--

for i = 50,2,-1 do
    Bets[i] = Bets[i-1]
end
Bets[1] = lastBet.Roll

----------------------------------------------------------------------------------------------------------------
--counting for Martingale 50% chance--

MartinDoPlus = 0
MartinDoMinus = 0
for i = 1,Martin_50_level do
     if  Bets[i] < 50 and Bets[i] >= 0 then
         MartinDoMinus = MartinDoMinus + 1
     end
     if  Bets[i] > 50 then
    MartinDoPlus = MartinDoPlus + 1
     end
end

--print("MartinDoMinus: ".. MartinDoMinus)
--print("MartinDoPlus: ".. MartinDoPlus)

----------------------------------------------------------------------------------------------------------------
--counting for Martingale at 25% chance--

onefour1 = 0
onefour2 = 0
for i=1,Martin_25_level do
    if  Bets[i] > 25 then
        onefour1 = onefour1 + 1
    end
    if  Bets[i] < 75 and Bets[i] >= 0 then
        onefour2 = onefour2 + 1
    end
end

--print("onefour1: "..onefour1)
--print("onefour2: "..onefour2)

----------------------------------------------------------------
----------------------------------------------------------------
--find adapted multiplicator for Martingale at 50% chance--


if win then

multiplicator1 = 2.25
total = 0
MaxRollNumber50 = 0
--------------------------------------------------------------
--find Max Roll Value
R = {}
R[1] = base1
for i = 1, 35 do
    R[i+1] = base1 *(multiplicator1^i)
--  print("Ri: "..R[i])
end
for i = 1,35 do
    total = total + R[i]
--  print("total: "..total)
    if total <= balance then
        MaxRollNumber50 = MaxRollNumber50 + 1
    end
end

--print("Martin Max Rolls: "..MaxRollNumber50)

MaxRollNumber50r = MaxRollNumber50

--find adapted multiplicator 50%
----------------------------
M={}
M[1] = base1
total1 = base1
i=2.25

while( i <= 3) do
    M[1] = base1
    total1 = base1
    j = 2
    while( j <= MaxRollNumber50) do
        M[j] = base1 *( i^(j-1))
        total1 = total1 + M[j]
        if(total1 > balance) then
            multiplicator2 = i - 0.01
            i = 4
            j = MaxRollNumber50
        end
        j = j + 1
    end

    i = i + 0.01
end


----------------------------------------------------------------
--find adapted multiplicator for Martingale at 25% chance--


multiplicator1 = 1.45
total = 0
MaxRollNumber25 = 0
--------------------------------------------------------------
--find Max Roll Value
R = {}
R[1] = base
for i = 1, 50 do
    R[i+1] = base *(multiplicator1^i)
--  print("Ri: "..R[i])
end
for i = 1,50 do
    total = total + R[i]
--  print("total: "..total)
    if total <= balance*0.99 then
        MaxRollNumber25 = MaxRollNumber25 + 1
    end
end
--print("25% Max Rolls: " .. MaxRollNumber25)

--find adapted multiplicator--
----------------------------
M={}
M[1] = base
total1 = base
i=1.45

while( i <= 3) do
    M[1] = base
    total1 = base
    j = 2
    while( j <= MaxRollNumber25) do
        M[j] = base *( i^(j-1))
        total1 = total1 + M[j]
        if(total1 > balance) then
            multiplicator4 = i - 0.01
            i = 4
            j = MaxRollNumber25
        end
        j = j + 1
    end

    i = i + 0.01
end

--print("Multiplicator 25%: ".. multiplicator4)

end



if safe == true then
if win then
if count50max + 2 >= MaxRollNumber50 then
    print("MaxLoss is too close at MaxRolls! Stay safe!")
    stop()
end

if count25max + 3 >= MaxRollNumber25 then
    print("MaxLoss is too close at MaxRolls! Stay safe!")
    stop()
end
end
end

if win then --find best option for nextbet


-------------------------------------------------------
--Activate option for for Martingale at 90% chance (by default)
option = 1
chance = chance90
nextbet = balance/level[xlevel]
count = xlevel

if lastBet.Roll > 50 then
    bethigh = true
else
    bethigh = false
end
-------------------------------------------------------
--Activate option for for Martingale (plus) at 50% chance if condition are true

if MartinDoPlus == Martin_50_level then
    option = 2
    nextbet = base1
    bethigh = false
    chance = chance50
end
-------------------------------------------------------
--Activate option for for Martingale (minus) at 50% chance if condition are true

if MartinDoMinus == Martin_50_level then
    option = 3
    nextbet = base1
    bethigh = true
    chance = chance50
end

--------------------------------------------------------
--Activate option for for Martingale (minus) at 25% chance if condition are true

if onefour1 == Martin_25_level then
    option = 4
    nextbet = base
    bethigh = false
    chance = 25
end

--------------------------------------------------------
--Activate option for for Martingale (plus) at 25% chance if condition are true

if onefour2 == Martin_25_level  then
    option = 5
    nextbet = base
    bethigh = true
    chance = 25
end

--------------------------------------------------------
--Activate option for Martingale Reverse (plus) at 50% chance if condition are true

if count50 > 0 then
    if lastBet.Roll >= 50 then
    option = 6
    a = 0
    chance = chance50
    bethigh = true

    --set start value for reverse plus
    nextbet = base1
end
end

--------------------------------------------------------
--Activate option for Martingale Reverse (minus) at 50% chance if condition are true

if count50 > 0 then
    if lastBet.Roll < 50 then
    option = 7
    b = 0
    chance = chance50
    bethigh = false

    --set start value for reverse minus

nextbet = base1
end
end


-------------------------------------------------------
--reset counter

    count90 = 0
    count50 = 0
    count25 = 0
    count50r = 0

else
--------------------------------------------------------------
--set nextbet for Martingale at 90% chance in case of lose

if option == 1 then
     chance = chance90
    count = count -1
    nextbet = balance/level[count]
      if count < 1 then
        print("We lost!")
        stop()
        stop()
      end

      if level[count] == 1 then
           nextbet = balance * 0.99
           --chance = 85
      end
    count90 = count90 + 1
    if count90 > count90max then
        count90max = count90
    end
end


-------------------------------------------------------
--set nextbet for Martingale (plus) at 50% chance in case of lose
if option == 2 then
    nextbet = previousbet * multiplicator2
    bethigh = false
    chance = chance50
    count50 = count50 + 1

    if count50 > count50max then
        count50max = count50
    end
end
-------------------------------------------------------
--set nextbet for Martingale (minus) at 50% chance in case of lose

if option == 3 then
    nextbet = previousbet * multiplicator2
    bethigh = true
    chance = chance50
    count50 = count50 + 1

    if count50 > count50max then
        count50max = count50
    end
end


-------------------------------------------------------
--set nextbet for Martingale (minus) at 25% chance in case of lose

if option == 4 then
    nextbet = previousbet * multiplicator4
    bethigh = false
    chance = 25
    count25 = count25 + 1

    if count25 > count25max then
        count25max = count25
    end
end

-------------------------------------------------------
--set nextbet for Martingale (plus) at 25% chance in case of lose

if option == 5 then
    nextbet = previousbet * multiplicator4
    bethigh = true
    chance = 25
    count25 = count25 + 1

    if count25 > count25max then
        count25max = count25
    end
end

-------------------------------------------------------
--set nextbet for Martingale Reverse (plus) at 50% chance in case of lose


if option == 6 then
    nextbet = previousbet * multiplicator2
    bethigh = true
    chance = chance50
    count50r = count50r + 1

    if count50r > count50rmax then
        count50rmax = count50r
    end
end

-------------------------------------------------------
--set nextbet for Martingale Reverse (minus) at 50% chance in case of lose


if option == 7 then
    nextbet = previousbet * multiplicator2
    bethigh = false
    chance = chance50
    count50r = count50r + 1

    if count50r > count50rmax then
        count50rmax = count50r
    end
end

end --end set option for win or lose--



----------------------------------------------------------------------------------------------------------------

print("90%")
print("MaxLoss: "..count90max.."   MaxRolls: ".. xlevel.." ( "..count90.."  )")


print("")

--print("50% Minus: "..MartinDoMinus)
--print("50% Plus: "..MartinDoPlus)
--print("")

print("50% Multiplier: "..multiplicator2)
print("MaxLoss: "..count50max.."   MaxRolls: "..MaxRollNumber50.." ( "..count50.."  )")
print("MaxLRev: "..count50rmax.."   MaxRolls: "..MaxRollNumber50r.." ( "..count50r.."  )")


print("")

--print("25% Minus: "..onefour2)
--print("25% Plus: "..onefour1)
--print("")

print("25% Multiplier: "..multiplicator4)
print("MaxLoss: "..count25max.."   MaxRolls: "..MaxRollNumber25.." ( "..count25.." )")

print("")
end --end dobet()