sdf

@name Dice
@inputs EGP:wirelink User:entity
@outputs
@persist Under Over Number Spin Prize Fail Player:array BlackList
@trigger
if(first()){
    Prize = 10
    Fail = 6.01
    Number = 6
    T = 1
    EGP:egpClear()
function void drawBaseDesign()
{
 EGP:egpClear()
EGP:egpBox(1, vec2(255, 255), vec2(555, 555))
EGP:egpMaterial(1,"console/background04")
EGP:egpColor(1,255,90,0,255)

EGP:egpBox(14, vec2(255, 255), vec2(555, 555))
EGP:egpColor(14,10,20,60,125)

EGP:egpBox(15, vec2(255, 275), vec2(420, 180))
EGP:egpColor(15, vec4(35,42,46,190))

EGP:egpBoxOutline(16, vec2(255, 275), vec2(420, 180))

EGP:egpBox(17, vec2(255, 135), vec2(420, 75))
EGP:egpColor(17, vec4(35,42,46,190))

EGP:egpBoxOutline(18, vec2(255, 135), vec2(420, 75))
EGP:egpText(19, "---------------------------------------------", vec2(255, 120))
EGP:egpAlign(19, 1)
EGP:egpSize(19, 25)

EGP:egpBox(2, vec2(255, 275), vec2(400, 150))
EGP:egpColor(2, vec(128, 128, 128))

EGP:egpText(3, "Last ticket: ~~", vec2(255, 140))
EGP:egpAlign(3, 1)
EGP:egpSize(3, 25)


EGP:egpBox(4, vec2(130, 450), vec2(150, 75))
EGP:egpColor(4, vec4(0, 0,0,225))

EGP:egpBox(5, vec2(380, 450), vec2(150, 75))
EGP:egpColor(5, vec4(0, 0,0,225))

EGP:egpText(6, "Under", vec2(130, 415))
EGP:egpAlign(6, 1)
EGP:egpSize(6, 35)

EGP:egpText(7, "Over", vec2(380, 415))
EGP:egpAlign(7, 1)
EGP:egpSize(7, 35)

EGP:egpBox(8, vec2(255, 450), vec2(80, 80))
EGP:egpColor(8, vec4(100, 0,0, 100))

EGP:egpText(9, "Spin", vec2(255, 430))
EGP:egpAlign(9, 1)
EGP:egpSize(9, 35)


EGP:egpText(11, "Over: 97", vec2(380, 455))
EGP:egpAlign(11, 1)
EGP:egpSize(11, 20)

EGP:egpText(12, "Under: 3", vec2(125, 455))
EGP:egpAlign(12, 1)
EGP:egpSize(12, 20)

EGP:egpText(13, "Prize: "+Prize,  vec2(255, 95))
EGP:egpAlign(13, 1)
EGP:egpSize(13, 35)

EGP:egpText(20, "Dice Game", vec2(255, 20))
EGP:egpAlign(20, 1)
EGP:egpSize(20, 50)

EGP:egpBox(21, vec2(255, 390), vec2(420, 30))
EGP:egpColor(21, vec4(35,42,46,190))

EGP:egpBoxOutline(22, vec2(255, 390), vec2(420, 30))
EGP:egpText(23, "--Lavet af Poul Madsen & Mike Hansen--", vec2(255, 378))
EGP:egpAlign(23, 1)
EGP:egpSize(23, 20)

EGP:egpText(24, "Player: ", vec2(255, 310))
EGP:egpAlign(24, 1)
EGP:egpSize(24, 25)

EGP:egpText(25, "Round ticket", vec2(255, 215))
EGP:egpAlign(25, 1)
EGP:egpSize(25, 25)
}
 drawBaseDesign()
}



function number wirelink:egpButton(Idx:number,Ply:entity){
        TL = This:egpPos(Idx) - This:egpSize(Idx) / 2 * (0 ? 0 : 1)
        BR = This:egpPos(Idx) + This:egpSize(Idx) / (0 ? 1 : 2)
    Cur = This:egpCursor(Ply) return inrange(Cur, TL, BR) exit()}



if(Over == 0 & Spin == 0 & EGP:egpButton(5, User))
{Under = 0 Over = 1}

if(Over == 1)
{EGP:egpColor(5, vec4(69, 69 ,69, 100))}
else{EGP:egpColor(5, vec(0, 0, 0))}


if(Under == 0 & Spin == 0 & EGP:egpButton(4, User))
{Under = 1 Over = 0}

if(Under == 1)
{EGP:egpColor(4, vec4(69, 69 ,69, 100))}
else{EGP:egpColor(4, vec(0, 0, 0))}

if(Spin == 0 & EGP:egpButton(8, User))
{
    Player:pushEntity(User)
    EGP:egpText(24, "Player: "+Player[1,entity]:name(), vec2(255, 310))
EGP:egpAlign(24, 1)
EGP:egpSize(24, 25)
    Spin = 1
    Number = round(random(100))
    EGP:egpText(10,""+Number,vec2(255, 250))
    EGP:egpAlign(10, 1)
    EGP:egpSize(10, 45)
    timer("Number",500)
    }

    if(clk("Number"))
    { Number = round(random(100))
          EGP:egpText(10,""+Number ,vec2(255, 250))
       EGP:egpAlign(10, 1)
    EGP:egpSize(10, 45)
      timer("Number1",500)}

if(clk("Number1"))
    { Number = round(random(100))
          EGP:egpText(10,""+Number ,vec2(255, 250))
       EGP:egpAlign(10, 1)
    EGP:egpSize(10, 45)
      timer("Number2",500)}

       if(clk("Number2"))
     {Number = round(random(100))
          EGP:egpText(10,""+Number ,vec2(255, 250))
       EGP:egpAlign(10, 1)
    EGP:egpSize(10, 45)
      timer("Number3",0)
    EGP:egpText(3, "Last ticket: "+Number, vec2(255, 140))
EGP:egpAlign(3, 1)
EGP:egpSize(3, 25)  }

        if(clk("Number3"))
        {T = 1
 }




if(Number < 3 & Under == 1 & T == 1)
{moneyGive(Player[1,entity],Prize)
 Prize = 10
EGP:egpText(13, "Prize: "+Prize,  vec2(255, 95))
print("Round ticket: "+Number+" Player: "+Player[1,entity]:name())
concmd("say /pm "+ Player[1,entity]:steamID()+" Tillykke du vandt: "+Prize)
timer("R",1000)
}

if(Number > 97 & Over == 1 & T == 1)
{moneyGive(Player[1,entity],Prize)
Prize = 10
EGP:egpText(13, "Prize: "+Prize,  vec2(255, 95))
print("Round ticket: "+Number+" Player: "+Player[1,entity]:name())
concmd("say /pm "+ Player[1,entity]:steamID()+" Tillykke du vandt: "+Prize)
timer("R",1000)
}
if(clk("R"))
{EGP:egpRemove(10)
Player = array()
EGP:egpText(24, "Player: "+Player[1,entity]:name(), vec2(255, 310))
timer("Reset2",500)
}
if(clk("Reset2"))
{T = 0 Spin = 0}


if(Number < 97 & T == 1 & Over == 1)
{timer("R",1000)
timer("Prize+",1000)}
if(Number == 97 & T == 1 & Over == 1)
{timer("R",1000)
timer("Prize+",1000)}



if(Number > 3 & T == 1 & Under == 1)
{timer("R",1000)
timer("Prize+",1000)}
if(Number == 3 & T == 1 & Under == 1)
{timer("R",1000)
timer("Prize+",1000)}

if(T == 1 & Over == 0 & Under == 0)
{timer("R",1000)
}

if(clk("Prize+"))
{Prize = Prize + Fail
    EGP:egpText(13, "Prize: "+Prize,  vec2(255, 95))
EGP:egpAlign(13, 1)
EGP:egpSize(13, 35)}

if(Prize > 1000)
{Prize = 1000
    EGP:egpText(13, "Prize: "+Prize,  vec2(255, 95))}