WAGER PASINO

chance    = 86.2
base      = 0.10001
nextbet   = base
wp        = 0
ws        = 0
ts        = 0
tp        = 0
rs        = 0
rp        = 0
ls        = 0
bethigh   = true
enablersc = false
enablezz  = false

function dobet()

    rp += currentprofit
    tp += currentprofit
    wp += currentprofit
    rs += currentprofit
    ts += currentprofit

    if (win) then
        ws += 1
        ls      = 0
        chance  = 93.2
        nextbet = previousbet*2
        if (lastBet.Amount<05.0005) then
            resetpartialprofit()
            nextbet = base
        end
    else
        ls += 1
        ws      = 0
        bethigh = !bethigh
        chance  = 18
        nextbet = previousbet
        if (partialprofit<1.01) then
            chance  = 87.2
            bethigh = !bethigh
            resetpartialprofit()
            nextbet = base
        end
    end
    if (ws==1) then
        nextbet = base*6
    end
    if (ws==9) then
        nextbet = base*14
    end
    if (ls==1) then
        ls      = 0
        chance  = 87.2
        nextbet = previousbet*13.5
    end
    if (rs<-10.0) then
        rs = 0
        ts = 0
        tp = 0
        rp = 0
        resetseed()
    end
    if (ts>1.0) then
        ts = 0
        rs = 0
    end
    if (tp>5.0) then
        tp = 0
        rp = 0
        rs = 0
        ts = 0
        resetseed()
        sleep(1)
    end
    if (rp<-1.0) then
        rp = 0
        tp = 0
    end
end