@name Roast E2
@persist R:array Ply:entity
if(first())
{
    runOnChat(1)
    R = array("[E2] YOUR MOTHER TRIED TO NAME YOU 'OOPS' BUT THE HOSPITAL WOULDNT LET THEM, [PLY]","[E2] YOUR BIRTH CERTIFICATE WAS AN APOLOGY FROM THE CONDOM FACTORY, [PLY]","[E2]IF I HAD A NICKEL FOR EVERY TIME SOMEBODY SAID YOU'RE A WASTE OF RESOURCES, [PLY], I'D BE A TRILLIONARE")
    if(!convarnum("wire_expression2_concmd"))
    {
        print("You must type wire_expression2_concmd 1 into the console for this E2 to work. Do that, and then respawn the E2.")
    }
}

if(chatClk(owner()))
{
    LS = owner():lastSaid():lower():explode(" ")
    if(LS[1,string]=="!roast")
    {
        hideChat(1)
        TP =  findPlayerByName(LS[2,string])
        if(TP:isValid())
        {
        		Ply = TP
         	timer("roast",1000)
        }else
        {
        		hint("No player found. Type !roast <playername> to roast them.",7.5)
        }
    }
}

if(clk("roast"))
{
    stoptimer("roast")
   	concmd("say "+R[randint(R:count()),string]:replace("[PLY]",Ply:name():upper()))
}
