@name SOUKS GAMBLE
@inputs EGP:wirelink USER:entity
@persist GREY:vector RED:vector BLUE:vector GOLD:vector BOARD:array I:number IMX:number
GREY = vec(64,64,64)
RED = vec(200,53,78)
BLUE = vec(69,181,218)
GOLD = vec(255,200,112)
BLK1 = BOARD[1,number]
BLK2 = BOARD[2,number]
BLK3 = BOARD[3,number]
BLK4 = BOARD[4,number]
BLK5 = BOARD[5,number]
function boxText(ID:number, TXT:string, SIZE:number, BID:number) {
    BXMTMP = EGP:egpSize(BID) / 2
    BXM = EGP:egpPos(BID) + BXMTMP
    EGP:egpText(ID,TXT,BXM)
    EGP:egpAlign(ID,1,1)
    EGP:egpSize(ID,SIZE)
    EGP:egpFont(ID,"Roboto")
}
function boxText(ID:number, TXT:number, SIZE:number, BID:number) {
    BXMTMP = EGP:egpSize(BID) / 2
    BXM = EGP:egpPos(BID) + BXMTMP
    EGP:egpText(ID,toString(TXT),BXM)
    EGP:egpAlign(ID,1,1)
    EGP:egpSize(ID,SIZE)
    EGP:egpFont(ID,"Roboto")
}
function boxDraw(ID:number, POS1:number,POS2:number, SIZE1:number, SIZE2:number) {
    EGP:egpDrawTopLeft(1)
    EGP:egpRoundedBox(ID,vec2(POS1, POS2), vec2(SIZE1, SIZE2))
    EGP:egpColor(ID, vec(76, 144, 181))
}
function sBG() {
    EGP:egpDrawTopLeft(0)
    EGP:egpBox(1, vec2(256), vec2(1024))
    EGP:egpColor(1,vec(38,38,44))
    EGP:egpDrawTopLeft(1)
}
function updateBoard() {
    if(BLK1 <= 4815) {
        EGP:egpColor(4,GREY)
    } elseif(BLK1 > 4815 & BLK1 <= 7963) {
        EGP:egpColor(4,RED)
    } elseif(BLK1 > 7963 & BLK1 <= 9815) {
        EGP:egpColor(4,BLUE)
    } elseif(BLK1 > 9815 & BLK1 <= 10000) {
        EGP:egpColor(4,GOLD)
    }
    if(BLK2 <= 4815) {
        EGP:egpColor(5,GREY)
    } elseif(BLK2 > 4815 & BLK2 <= 7963) {
        EGP:egpColor(5,RED)
    } elseif(BLK2 > 7963 & BLK2 <= 9815) {
        EGP:egpColor(5,BLUE)
    } elseif(BLK2 > 9815 & BLK2 <= 10000) {
        EGP:egpColor(5,GOLD)
    }
    if(BLK3 <= 4815) {
        EGP:egpColor(6,GREY)
    } elseif(BLK3 > 4815 & BLK3 <= 7963) {
        EGP:egpColor(6,RED)
    } elseif(BLK3 > 7963 & BLK3 <= 9815) {
        EGP:egpColor(6,BLUE)
    } elseif(BLK3 > 9815 & BLK3 <= 10000) {
        EGP:egpColor(6,GOLD)
    }
    if(BLK4 <= 4815) {
        EGP:egpColor(7,GREY)
    } elseif(BLK4 > 4815 & BLK4 <= 7963) {
        EGP:egpColor(7,RED)
    } elseif(BLK4 > 7963 & BLK4 <= 9815) {
        EGP:egpColor(7,BLUE)
    } elseif(BLK4 > 9815 & BLK4 <= 10000) {
        EGP:egpColor(7,GOLD)
    }
    if(BLK5 <= 4815) {
        EGP:egpColor(8,GREY)
    } elseif(BLK5 > 4815 & BLK5 <= 7963) {
        EGP:egpColor(8,RED)
    } elseif(BLK5 > 7963 & BLK5 <= 9815) {
        EGP:egpColor(8,BLUE)
    } elseif(BLK5 > 9815 & BLK5 <= 10000) {
        EGP:egpColor(8,GOLD)
    }
}
function doARoll() {
    BLK5 = BLK4
    BLK4 = BLK3
    BLK3 = BLK2
    BLK2 = BLK1
    BLK1 = floor(random(0,10000))
}
if(first()) {
    IMAX = floor(random(5,10))
    EGP:egpClear()
    sBG()
    boxDraw(13,4,76,504,136)
    EGP:egpColor(13,vec(20,20,20))
    boxDraw(3,8,8,496,64)
    boxDraw(4,432,80,64,64)
    boxDraw(5,328,80,96,96)
    boxDraw(6,192,80,128,128)
    boxDraw(7,88,80,96,96)
    boxDraw(8,18,80,64,64)
    boxDraw(9,8,216,496,64)
    EGP:egpColor(9,GREY)
    boxDraw(10,8,288,496,64)
    EGP:egpColor(10,RED)
    boxDraw(11,8,360,496,64)
    EGP:egpColor(11,BLUE)
    boxDraw(12,8,432,496,64)
    EGP:egpColor(12,GOLD)
    I = 0
    print(toString(I))
    print(toString(IMAX))
    timer("Rolling",500)
}
elseif(USER & ~USER) {

}
elseif(clkName()){
    switch(clkName()){
        case "Rolling",
            print("HIts Rolling")
            print(toString(I))
            print(toString(IMAX))
            if(I != IMAX)
            { I++
                print("Hits Rolling IF")
                doARoll()
                updateBoard()
                print(toString(BLK1))
                timer("Rolling",500) }
            else { print("HITS ROLLING ELSE")
                break }
    }
}
##################
# NOTES FOR SOUK #
##################
#64total 26Grey 48.15 17Red 31.48 10Blue 18.52 1Gold 1.85
#54 TOTAL BLOCKS
# 26 GREY BLOCKS (0 - <=4815)
# 17 RED BLOCKS (>4815 <=7963)
# 10 BLUE BLOCKS (>7963 <=9815)
# 1 GOLD BLOCK (>9815 <=10000)