dicekode-faucet1-notedityet

-- Faucet ver 1.0
-- please donate DDJN3oPoWsFmgfsMCTwWvKtk4ydYipLVdD
bb = 0.00000001
rollDelay = 0
basechance = 36.9
recoverychance = 40.5
martingalechance = 49.5
recovery3chance = 1
recovery3ChanceStep = 0.5
--
basebet = bb
recoverybasebet = bb * 2.5
martingalebasebet = bb * 5
recovery3basebet    = bb * 1.5
resetbasebet = bb
--
fibstep = .875
recoveryfibstep = 1.50
martingalemult = 2
recovery3fibstep = .425
--
LossStreakMax = 5
recoveryLossStreakMax = 4
martingaleLossStreakMax = 6
recovery3LossStreakMax = 9999


housePercent = 1
nextbet = basebet
chance = basechance
stepcount = 0
streakStartBalance = 0
recoverychance = recoverychance
recoverystepcount = 0
recovery = 0
lossStreak = 0
recoveryLossStreak = 0
reset = 0
reset2 = 0
reset3 = 0
martingale = 0
martingaleLossStreak = 0
recovery3 = 0
recovery3LossStreak = 0
recovery3StepCount = 0
recovery3Chance=recovery3chance

function changebet()
   randswitch= math.random(1,20)
     if(randswitch >= 5) then
      return true
     else
      return false
  end
end

local clock = os.clock
function sleep(n)
    local t0 = clock()
    while clock() - t0 <= n do end
end

function myfib(level)
    fibno=basebet
    temp=0
    prevfibno=0
    if level == 0 then
        fibno= basebet
    else
        for j=0,level-1,1 do

            temp=fibno
            fibno=fibno + (prevfibno * fibstep)
            prevfibno=temp
        end
    end
    return fibno
end

function myrecoveryfib(level)
    fibno=recoverybasebet
    temp=0
    prevfibno=0
    if level == 0 then
        fibno= recoverybasebet
    else
        for j=0,level-1,1 do

            temp=fibno
            fibno=fibno + (prevfibno * recoveryfibstep)
            prevfibno=temp
        end
    end
    return fibno
end

function myrecovery3fib(level)
    fibno=recovery3basebet
    temp=0
    prevfibno=0
    if level == 0 then
        fibno= recovery3basebet
    else
        for j=0,level-1,1 do

            temp=fibno
            fibno=fibno + (prevfibno * recovery3fibstep)
            prevfibno=temp
        end
    end
    return fibno
end

function dobet()

  bethigh = changebet()
    if win then
        if (reset == 1 and reset2 == 0 and reset3 == 0 and recovery == 0 and martingale == 0 and recovery3 == 0) then
                reset = 0
                reset2 = 0
                reset3 = 0
                recovery = 1
                martingale = 0
                recovery3 = 0
                end
        if (reset == 0 and reset2 == 1 and reset3 == 0 and recovery == 0 and martingale == 0 and recovery3 == 0) then
                reset = 0
                reset2 = 0
                reset3 = 0
                recovery = 0
                martingale = 1
                recovery3 = 0
                end
        if (reset == 0 and reset2 == 0 and reset3 == 1 and recovery == 0 and martingale == 0 and recovery3 == 0) then
                reset = 0
                reset2 = 0
                reset3 = 0
                recovery = 0
                martingale = 0
                recovery3 = 1
                end
        if (reset == 0 and reset2 == 0 and reset3 == 0 and recovery == 0 and martingale == 0 and recovery3 == 0 ) then
                recoverystepcount = 0
                recovery3StepCount = 0
                streakStartBalance = 0
                lossStreak = 0
                recoveryLossStreak = 0
                martingaleLossStreak    = 0
                recovery3LossStreak = 0
                stepcount = 0
                reset = 0
                reset2 = 0
                reset3 = 0
                chance = basechance
                nextbet = myfib(stepcount)
                end
        if (reset == 0 and reset2 == 0 and reset3 == 0 and recovery == 1 and martingale == 0 and recovery3 == 0 and (balance > streakStartBalance)) then
                stepcount = 0
                streakStartBalance = 0
                recoverystepcount = 0
                recovery = 0
                martingale = 0
                recovery3 = 0
                reset = 0
                reset2 = 0
                reset3 = 0
                lossStreak = 0
                recoveryLossStreak = 0
                martingaleLossStreak    = 0
                recovery3LossStreak = 0
                chance = basechance
                nextbet = basebet
                end
        if (reset == 0 and reset2 == 0 and reset3 == 0 and recovery == 0 and martingale == 1 and recovery3 == 0 and (balance > streakStartBalance)) then
                recoverystepcount = 0
                recovery3StepCount = 0
                streakStartBalance = 0
                lossStreak = 0
                recoveryLossStreak = 0
                martingaleLossStreak    = 0
                recovery3LossStreak = 0
                stepcount = 0
                recovery = 0
                martingale = 0
                recovery3 = 0
                reset = 0
                reset2 = 0
                reset3 = 0
                chance = basechance
                nextbet = basebet
                end
        if (reset == 0 and reset2 == 0 and reset3 == 0 and recovery == 0 and martingale == 0 and recovery3 == 1 and (balance > streakStartBalance)) then
                stepcount = 0
                recovery3stepCount = 0
                streakStartBalance = 0
                recoverystepcount = 0
                recovery = 0
                martingale = 0
                recovery3 = 0
                lossStreak = 0
                recoveryLossStreak = 0
                martingaleLossStreak = 0
                recovery3LossStreak = 0
                reset = 0
                reset2 = 0
                reset3 = 0
                chance = basechance
                nextbet = basebet
                end
        if (reset == 0 and reset2 == 0 and reset3 == 0 and recovery == 1 and martingale == 0 and recovery3 == 0 and (balance <= streakStartBalance)) then
                lossStreak = 0
                recoveryLossStreak = 0
                martingaleLossStreak = 0
                recovery3LossStreak = 0
                reset = 0
                reset2 = 0
                reset3 = 0
                recovery = 1
                martingale = 0
                recovery3 = 0
                recoverystepcount = recoverystepcount - 1
                if (recoverystepcount < 1) then
                    recoverystepcount = 0
                end
                chance = recoverychance
                nextbet = myrecoveryfib(recoverystepcount)
                end
        if (reset == 0 and reset2 == 0 and reset3 == 0 and recovery == 0 and martingale == 1 and recovery3 == 0 and (balance <= streakStartBalance)) then
                lossStreak = 0
                recoveryLossStreak = 0
                martingaleLossStreak = 0
                recovery3LossStreak = 0
                reset = 0
                reset2 = 0
                reset3 = 0
                recovery = 0
                martingale = 1
                recovery3 = 0
                nextbet = martingalebasebet
                end
        if (reset == 0 and reset2 == 0 and reset3 == 0 and recovery == 0 and martingale == 0 and recovery3 == 1 and (balance <= streakStartBalance)) then
                lossStreak = 0
                recoveryLossStreak = 0
                martingaleLossStreak = 0
                recovery3LossStreak = 0
                reset = 0
                reset2 = 0
                reset3 = 0
                recovery = 0
                martingale = 0
                recovery3 = 1
                recovery3StepCount = recovery3StepCount - 2
                recovery3ChanceStep = recovery3chance
                nextbet = myrecovery3fib(recovery3StepCount)
                end


else
      lossStreak = lossStreak + 1
        if (streakStartBalance == 0) then
                    streakStartBalance = (balance + previousbet * 2 + recoverybasebet * 2.5 + martingalebasebet * 2.5 + recovery3basebet* 2.5)  -- adding extra junk on the balance to make tokens actually work with this script
            end
        if (lossStreak == LossStreakMax) then
                reset = 1
                nexbet = resetbasebet
           end
        if (recovery == 1 and martingale == 0 and recovery3 == 0) then
            lossStreak = 0
            recoveryLossStreak = recoveryLossStreak + 1
           recoverystepcount = recoverystepcount + 1
            chance = recoverychance
            nextbet = myrecoveryfib(recoverystepcount)
            if (recoveryLossStreak >= recoveryLossStreakMax) then
                     reset = 0
                reset2 = 1
                reset3 = 0
                recovery = 0
                martingale = 0
                recovery3 = 0
            end
        end
        if (recovery == 0 and martingale == 1 and recovery3 == 0) then
            lossStreak = 0
                martingaleLossStreak = martingaleLossStreak + 1
            chance = martingalechance
            nextbet = previousbet * martingalemult
            if (martingaleLossStreak >= martingaleLossStreakMax) then
               reset = 0
               reset2 = 0
                    reset3 = 1
                    recovery = 0
               martingale = 0
               recovery3 = 0
            end
          end
        if (recovery == 0 and martingale == 0 and recovery3 == 1) then
                chance = recovery3chance
            lossStreak = 0
                recovery3LossStreak = recovery3LossStreak + 1
                recovery3ChanceStep = recovery3ChanceStep + 1
                chance = recovery3ChanceStep
                recovery3StepCount = recovery3StepCount + 1
            nextbet = myrecovery3fib(recovery3StepCount)
                end
            if (recovery3LossStreak >= recovery3LossStreakMax) then
                     reset = 1
                reset2 = 0
                reset3 = 0
                    recovery = 0
                    martingale = 0
                recovery3 = 0
            end
        end
        if (reset == 1) then
                reset2 = 0
            recoverystepcount = 0
            lossStreak = 0
            recoveryLossStreak = 0
            stepcount = 0
            recoverystepcount = 0
            nextbet = resetbasebet
          end
        if (reset2 == 1) then
            recoverystepcount = 0
            lossStreak = 0
            recoveryLossStreak = 0
            martingaleLossStreak = 0
                reset = 0
            stepcount = 0
            recoverystepcount = 0
            nextbet = resetbasebet
             end
        if (reset3 == 1) then
            recoverystepcount = 0
            recovery3StepCount = 0
            lossStreak = 0
            recoveryLossStreak = 0
            martingaleLossStreak = 0
            recovery3LossStreak = 0
                reset = 0
            stepcount = 0
            nextbet = resetbasebet
             end
            if (recovery == 0 and martingale == 0 and recovery3 == 0 and reset == 0 and reset2 == 0 and reset3 == 0) then
            stepcount = stepcount + 1
            nextbet = myfib(stepcount)
            end
    end
    sleep(rollDelay)
end