@name Facts E2 | By Mic
@inputs [EGP]:wirelink [User]:entity
@persist [T]:table [Pris, Total, TAFacts, Delay]:number [Facts]:array [Ply]:entity [S]:string
if(~EGP & EGP:entity():isValid()){ EGP:egpClear() , timer("DRAW",250) }
if(first())
{
    " INDSTILLINGER "
    Pris = 250
    Delay = 0

    " DON'T TOUCH ;) "
    function number wirelink:egpButton(Index:number,Player:entity){
        Pos=This:egpPos(Index)
        Size=This:egpSize(Index)/2
        return inrange(This:egpCursor(Player),Pos-Size,Pos+Size)
    }
    function newC(C:entity){
        T[C:steamID(),table] = table()
        T[C:steamID(),table]["OwnerEntity",entity] = C
        T[C:steamID(),table]["Facts",array] = array(
            "Du vil ikke modtage samme besked 2 gange! OMG, en ordenlig E2 xD",
            "Denne E2 er godt lavet ;)",
            "Sl"+aa()+"r du dit hoved indi v"+ae()+"ggen i 1 time br"+ae()+"nder du 150 kalorier.",
            "I Schweiz er det ulovligt kun at eje 1 marsvin.",
            "'Pteronophobia' er frygten for at blive kildet af fjer.",
            "Den "+ae()+"ldste din mor joke er 3500 "+aa()+"r gammel.",
            "Indtil videre er der to sygdomme/virusser der er blevet udryddet helt: Kopper(smallpox) og kv"+ae()+"gpest(rinderpest)",
            "Cherophobia er frygten for sjov og gl"+ae()+"de.",
            "7% af amerikanere tror p"+aa()+" at chokoladem"+ae()+"lk kommer fra brune k"+oe()+"er.",
            "Hvis en k"+ae()+"ngurus hale ikke har kontakt med jorden kan den ikke hoppe.",
            "Bananer er b"+oe()+"jet, fordi de gror imod solen.",
            "'Billy g"+ae()+"der' urinere dem selv p"+aa()+" hovedt, for at lugte mere attraktivt til kvinder.",
            "I l"+oe()+"bet af din livstid, vil du producere nok spyt til at fylde 2 sv"+oe()+"mme p"+oe()+"ler.",
            "Hvis pinocchio siger 'Min n"+ae()+"se vil gro nu' vil det skave et paradoks.",
            "Hjerteanfald har st"+oe()+"rere chance for at ske p"+aa()+" en mandag.",
            "Tennis spillere m"+aa()+" ikke sv"+ae()+"rge n"+aa()+" de spiller.",
            "2017 var der flere der d"+oe()+"de imens de tog et selfie, end af hajer.",
            "En l"+oe()+"ves br"+oe()+"l kan h"+oe()+"es fra 8 kilometers afstand.",
            "'Saint Lucia' er det eneste land i verden som er kaldt efter en kvinde.",
            "En baby spider er kaldt 'Spiderling'",
            "The United States Navy er begyndt at bruge Xbox controllers til st styre deres periskoper.",
            "En baby bl"+ae()+"ksprutte er p"+aa()+" st"+oe()+"relse med en loppe n"+aa()+"r den er f"+oe()+"dt.",
            "Et f"+aa()+"r, en and, og en hane var de f"+oe()+"rste passagerer p"+aa()+" en varmluftballon.",
            "48% af indbyggertallet i Uganda er under 15 "+aa()+"r gamle.",
            "Den gennemsnitlige mand bliver tr"+ae()+"t af at handle efter 26 minutter.",
            "I de 16 "+aa()+"rhundrede kunne arabiske kvinder igangs"+ae()+"tte en skilsmisse, hvis manden ikke h"+ae()+"dte kaffe op til dem.",
            "Genbrug af et syltet"+oe()+"jsglas, kan lave nok str"+oe()+"m til at se fjernsyn i 3 timer.",
            "Cirka 15% af U.S str"+oe()+"m nedbrydninger er p.g.a. egern.",
            "Facebook, Instagram og Twitter er banned i Kina.",
            "Honningbier kan gendkende menneske ansigter.",
            "Imens nogle forskere fra Mato Klinik fors"+oe()+"gte at finde kuren til AIDS lavede de 'lys i m"+oe()+"rket katte'",
            "En sv"+ae()+"rm af biger (20.000 biger), fulgte efter en bil i 2 dage, fordi deres dronning var fanget i den.",
            "N"+ae()+"sten 3% af Antarktis gletscheres is er pingvin tis.",
            "En krokodille kan ikke stikke sin tunge ud.",
            "Havoddere holder i h"+ae()+"nder n"+aa()+"r de sover, s"+aa()+" de ikke flyder v"+ae()+"k fra hinanden.",
            "Et lille barn, ville kunne sv"+oe()+"mme igennem "+aa()+"rende p"+aa()+" en bl"+aa()+"hval.",
            "Bin Ladens d"+oe()+"d blev annonceret 1. Maj 2011.",
            "Hitlers d"+oe()+"d blev annonceret 1 Maj 1945.",
            "Der er 1.710 trapper i eiffelt"+aa()+"rnet.",
            "En kvinde fors"+oe()+"gte p"+aa()+" selvmord ved at hoppe fra 86 etage fra Empire State Bygingen, men blev bl"+ae()+"st ind p"+aa()+" 85 etage.",
            "Pirater gik med "+oe()+"reringe, fordi de troede det forbedrede deres "+oe()+"jne.",
            "Los Angeles fulde navn er: El Pueblo de Nuestra Senora la Reina de los Angeles de Porciuncula.",
            "Twitter's fugl har faktisk et navn... Larry.",
            "Det sneede i Sahara "+oe()+"rken i 30 minutter den 18 Febuar 1979.",
            "Mike Tyson tilb"+oe()+"d en ansat ved ZOO 10.000 dollars for at lade ham k"+ae()+"mpe mod en gorilla.",
            "ABBA sagde nej tak til 1 Billion dollars for at komme til en genforening med noget familie.",
            "Der er aldrig blevet verificeret et Sne Leopard angr"+ae()+"b p"+aa()+" et menneske.",
            "Den f"+ae()+"rste alarm, kunne kun ringe klokken 4.",
            "Fugle urinere ikke.",
            "At d"+oe()+" er ulovligt i Parlamentshuse.",
            "Den mest giftige vandmand er Irukandji.",
            "Jack Mount har en lille pik, den er dokumenteret til at v"+ae()+"re ca. 3 mm. lang.",
            "Jack Mount er en klam lille taber, der lugter lidt af fucking lort.",
            "Den gennemsnitlige person, g"+aa()+"r til det der svare at g"+aa()+" omkring jorden 5 gange.",
            "Du er bare uh"+ae()+"ldig hvis du f"+aa()+"r den her fact.",
            "Rusland's alfabet er p"+aa()+" 33 bogstaver.",
            "Den f"+oe()+"rste appelsin var ikke orange.",
            "Skotland har 421 ord for 'sne'.",
            "Paraskavedekatriaphobia er fygten for Fredag den 13."
        )
    }
    function number validCustomer( SteamID:string ){
        return T[SteamID, table]["OwnerEntity", entity]:isValid()
    }
    newC(owner())
    TAFacts = T[owner():steamID(), table]["Facts", array]:count()
    runOnChat(1)
    timer( "DRAW", 250 )
    EGP:egpClear()
}


######################
##----- DESIGN -----##
######################
if(clk("DRAW"))
{
    EGP:egpBox(1,vec2(256,256),vec2(512,512))
    EGP:egpColor(1,33,33,33,255)

    EGP:egpCircle(2,vec2(256,256),vec2(192,192))
    EGP:egpColor(2,211,51,51,255)
    EGP:egpCircle(3,vec2(256,256),vec2(177,177))
    EGP:egpCircle(4,vec2(256,256),vec2(162,162))
    EGP:egpColor(4,211,51,51,255)
    EGP:egpCircle(5,vec2(256,256),vec2(147,147))

    EGP:egpRoundedBox(6,vec2(256,256),vec2(450,100))
    EGP:egpColor(6,211,51,51,255)
    EGP:egpAngle(6,25)
    EGP:egpRoundedBox(7,vec2(256,256),vec2(450-15,100-15))
    EGP:egpAngle(7,25)
    EGP:egpText(8,"FACTS",vec2(256,256))
    EGP:egpFont(8,"Arial")
    EGP:egpSize(8,100)
    EGP:egpAlign(8,1,1)
    EGP:egpColor(8,211,51,51,255)
    EGP:egpAngle(8,25)

    EGP:egpText(9,"F"+aa()+" en tilf"+ae()+"ldig fact, for kun GRAITS",vec2(256,512))
    EGP:egpFont(9,"Arial")
    EGP:egpSize(9,19)
    EGP:egpAlign(9,1,2)

    EGP:egpBox(10,vec2(256,256),vec2(512,512))
    EGP:egpAlpha(10,0)
}


##########################
##----- Button Clk -----##
##########################
if(EGP:egpButton(10,User) & ops() < 200 & Delay == 0)
{

    if ( validCustomer( User:steamID() ) )
    { newC( User ) }

    Player = User

    if ( T[Player:steamID(), table]["Facts", array]:count() > 0 )
    {

        RandomJoke = T[Player:steamID(), table]["Facts", array][random( 1, T[Player:steamID(), table]["Facts", array]:count() ), string]
        sendMessage( Player, RandomJoke )

        for ( I = 1, T[Player:steamID(), table]["Facts", array]:count() )
        {
            if ( RandomJoke == T[Player:steamID(), table]["Facts", array][I, string] )
            {
                T[Player:steamID(), table]["Facts", array]:removeString( I )
            }
        }

    }
    else
    { sendMessage( Player, "Ikke flere jokes til dig. \_(^^)_/" ) }
    Delay = 1
    timer( "Delay", 1000)

}


if (clk("Delay"))
{
    Delay = 0
}