Pinklist!

pinklisted={"Alvanec","Alvanec","Aperturemice","Aperturemice","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Arber","Blazeycho","Blazeycho","Blazeycho","Blazeycho","Blazeycho","Blazeycho","Chaseeee","Cincle","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Conester","Doodookilluh","Doodookilluh","Ellige","Ellige","Ellige","Ellige","Eraserpie","Faranys","Firebluestar","Firebluestar","Firebluestar","Firebluestar","Fransjek","Fransjek","Gamerskye","Gamerskye","Hiaa","Johnlantern","Jsilv","Jsilv","Justinsalo","Kenill","Kenill","Krystalyte","Kungfumasta","Lalajb","Lgreenbunny"}
    pinklisted2={"Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Michellehi","Mouseyeeaah","Mouseyeeaah","Myrrhh","Ocin","Ocin","Ocin","Prozrockz","Prozrockz","Prozrockz","Prozrockz","Prozrockz","Redape","Redape","Redballers","Redballers","Redballers","Rohanthebest","Rohanthebest","Rohanthebest","Rohanthebest","Rohanthebest","Rohanthebest","Rohanthebest","Rohanthebest","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Safwanrockz","Saltcheese","Shanesters","Shanesters","Shanesters","Shanesters","Shanesters","Shanesters","Shanesters","Shanesters","Shanesters","Shanesters","Shanesters","Shanesters","Shanesters","Shinymew","Shinymew","Shinymew","Shinymew","Smilingme","Smilingme","Smilingme","Smilingme","Smilingme","Smilingme","Smilingme","Smilingme","Smilingme","Smilingme","Smilingme","Thebrocolia","Thebrocolia","Thebrocolia","Wolvesand","Wolvesand","Wolvesand","Vvictorpro","Xcclt","Xcclt","Xsannn"}
    cakemottos={"Pat-a-cake Palk-a-cake I have a red velvet cake",
    "Epalk is your leader YOLO",
    "Epalk is sax",
    "Jumping yeah jumping yeah EVERYBODY",
    "Oh sax mirror on the wall make me sax",
    "Sax monkey in epalk's cave",
    "Epalk's cake lives here",
    "I came in like a wrecking cake",
    "E E E Electric Sax",
    "You suck eggs",
    "We ride sax bicycles ",
    "Like a sax gorilla",
    "RUM PUM PUM PUM",
    "Keep calm and love epalk",
    "Imi imi I'm in so much sax",
    "Sax sax sax sax sax sax sax cake"}
    cakemottos2={"Give me sax or give me cake",
    "I can smell your sax",
    "I eat sax on planes like epalk",
    "Sax because I feel like it",
    "Read sax monkey or die",
    "It ain't much if it ain't sax",
    "Quiet like a sax caterpillar",
    "Onions are sax with cake",
    "Mr. Cake has a very sax cake for epalk to bake",
    "Safwanrockz is a sax slave with cake",
    "Ravioli ravioli give me the sax formuoli",
    "Cake mottos are so sax to say",
    "That's so linda",
    "What do the sax say",
    "What doesn't kill you makes you more sax",
    "All I wanted was to eat your cake",
    "Sax people ride sax bicycles",
    "Oh sax mirror make me sax",
    "1 2 3 4 we eat cake on the floor",
    "Cake are squared",
    "Epalk-a-dot epalk-a-cake epalk-a-sax e-polka-dot",
    "5 6 7 8 you ate cake way too late"}
    rules1="You are on here if you have disobeyed Epalk in a jesting way.\nYou are on here if you have jested to Epalk.\nYou are on here because you are being watched.\nYou are on here because this is a watch list for ME.\nYou are on here if you have said the cake motto without wearing a cake hat.\nYou are on here if you didn't wear a cake hat on your birthday.\nYou are on here for spreading false messages that can upset the tribe.\nYou are on here if you ship cargo.\nYou are on here because I do not loaf you yet.\nYou are on here for being a party pooper.\nYou are on here if you have made the tribe less sax.\nYou are on here if you have a child named after me.\nYou are on here if you are Safwanrockz.\nYou are on here if you are engaged with me.\nYou are on here because you called someone un-linda.\nYou are on here because you are in the Epalk fan club.\nYou are on here if you aren't in the Eraserpie fan club.\nYou are on here if you are my father.\t\t\t\t\t\t\t\t\t\t\t\t\t<font face='soopafresh' color='#F765DD'><a href='event:more'>See more..</a></font>"
    rules2="You are on here because you are naughty.\nYou are on here if you would like to be on the blacklist.\nYou are on here if you ruin someone's childhood.\nYou are on here because you slept early.\nYou are on here if you un-pinklist someone.\nYou are on here because you don't know the cake motto.\nYou are on here because you defied the laws of sax.\nYou are on here for objecting to the pinklist as a peasant.\nYou are on here if you hate spam.\nYou are on here because you insulted Epalk.\nYou are on here for singing terribly.\nYou are on here for lying.\nYou are on here if Riddler says you're straight.\nYou are on here if you failed Epalk.\nYou are on here for hating the Teen Titans.\nYou are on here for making laggy tribe houses.\nYou are on here for inventing a sax cake motto.\nYou are on here because you are on the orange list.\nYou are on here because I said so.\nYou are on here for being unloyal to the pinklist.\nYou are on here for reporting pinklist felons.\nYou are on here because you are too sax.\t\t\t\t\t\t\t\t\t\t\t\t\t<font face='soopafresh' color='#F765DD'><a href='event:closerules'>Close</a></font>"
    help="<p align='center'><font face='soopafresh' size='44' color='#F765DD'>Pinklist!</font></p>\n\n<B>What is pinklist?</B>\nPinklist is a list that contains very naughty players who have been pinklisted for doing <B><a href='event:unlinda'>unlinda</B></a></B> doings.\n<B>How to get pinklisted?</B>\nThere are several rules you should follow to not get pinklisted.\n<B>What are the rules?</B>\nYou can see the rules by pressing <a href='event:rules'><b>here</b></a>.\n<b>Who are the current people who have been pinklisted</b>\nPress <a href='event:plisted'><b>here</b></a> to see the naughty mice who have been pinklisted.\n<B>Was I pinklisted?</B>\nType the command <b>!check</b> to check if you were pinklisted before.\n\n\n<p align='right'><font face='soopafresh' color='#F765DD'><a href='event:close'>Close</a></font></p>"
    unlinda="Unlinda is a word from Epalk's dictionary that means not sax; uncool, or just the opposite of the well-known Spanish word ''linda'', which means beautiful, cute, or cool.\n<p align='right'><font face='soopafresh' color='#F765DD'><a href='event:closelinda'>Close</a></font></p>"
    admins={"Epalk","Safwanrockz"}

    function table.count(tt, value)
         local count = 0
         for ii,xx in pairs(tt) do
             if xx == value then count = count + 1 end
         end
         return count
    end

    function table.contains(t,element)
            if element==nil then
                    return false
            end
            for key,value in pairs(t) do
                    if value==element then
                            return true
                    end
            end
            return false
    end

    function main()
         ui.addTextArea(0, "<font size='30' color='#272727'><a href='event:Help'>?</font></a>", nil, 500, 20, nil, nil, "0xF765DD", "0x272727")
         ui.addTextArea(1, "\t\t\t\t\t\t\t\t\t\t\t\t\t<font face='soopafresh' size='44' color='#F765DD'>Pinklist!</font>", nil, 5, 20, nil, nil, 0xffffff, 0xffffff, 0)
             ui.addTextArea(5, "<font size='30' color='#272727'><a href='event:motto'>!</font></a>", nil, 285, 20, nil, nil, "0xF765DD", "0x272727")
    end

    function eventTextAreaCallback(id,name,cb)
         if cb=='Help' then
                 ui.addTextArea(3, help, name, 100, 100, nil, nil, "0x324650", "0x272727")
             elseif cb=='close' then
                 ui.removeTextArea(3, name)
             elseif cb=='unlinda' then
                 ui.addTextArea(4, unlinda, name, 100, 100, 100, nil, "0x324650", "0x272727")
             elseif cb=='closelinda' then
                 ui.removeTextArea(4, name)
             elseif cb=='rules' then
                 ui.addTextArea(6, rules1, name, 100, 100, 600, 250, "0x324650", "0x272727")
         elseif cb=='more' then
                 ui.removeTextArea(6, name)
                     ui.addTextArea(7, rules2, name, 100, 80, 600, 300, "0x324650", "0x272727")
             elseif cb=='closerules' then
                 ui.removeTextArea(7, name)
             elseif cb=='plisted' then
                 ui.addTextArea(8, table.concat(pinklisted,", ").."\t\t\t\t\t\t\t\t\t\t\t<font face='soopafresh' color='#F765DD'><a href='event:morepl'>See more..</a></font>", name, 5, 20, 600, nil, "0x324650", "0x272727")
             elseif cb=='morepl' then
                 ui.removeTextArea(8, name)
                     ui.addTextArea(9, table.concat(pinklisted2,", ").."\t\t\t\t\t\t\t\t\t\t\t\t\t<font face='soopafresh' color='#F765DD'><a href='event:closepl'>Close</a></font>", name, 5, 20, 600, nil, "0x324650", "0x272727")
             elseif cb=='closepl' then
                 ui.removeTextArea(9, name)
             elseif cb=='motto' then
                 ui.addTextArea(10, "<p align='center'><font face='soopafresh' size='44' color='#F765DD'>Cake Mottos!</font></p>"..table.concat(cakemottos,"\n").."\t\t\t\t\t\t\t\t\t\t\t\t\t\t<font face='soopafresh' color='#F765DD'><a href='event:seemotto'>See more..</a></font>", name, 5, 20, 600, nil, "0x324650", "0x272727")
             elseif cb=='seemotto' then
                 ui.updateTextArea(10, "<p align='center'><font face='soopafresh' size='44' color='#F765DD'>Cake Mottos!</font></p>"..table.concat(cakemottos2, "\n").."\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t<font face='soopafresh' color='#F765DD'><a href='event:closemotto'>Close</a></font>", name, 5, 20, 600, nil, "0x324650", "0x272727")
             elseif cb=='closemotto' then
                 ui.removeTextArea(10, name)

             end
    end

    function eventChatCommand(name,cmd)
         local arg={}
             for argument in cmd:gmatch("[^%s]+") do
                 table.insert(arg, argument)
             end
             if cmd=="check" then
                     if table.contains(pinklisted, name) or table.contains(pinklisted2, name) then
                             ui.addTextArea(11, "You have been pinklisted "..table.count(pinklisted, name)+table.count(pinklisted2, name).." times!", name)
                     else
                             ui.addTextArea(11, "You haven't been pinklisted at all! :(", name)
                     end
             elseif arg[1]=="check" then
                     ui.addTextArea(11, arg[2].." has been pinklisted "..table.count(pinklisted, arg[2])+table.count(pinklisted2, arg[2]).." times!", name)
                 if table.count(pinklisted, arg[2])+table.count(pinklisted2, arg[2]) == 0 then
                             ui.addTextArea(11, arg[2].." hasn't been pinklisted at all! :(", name)
                     end
             end

             if table.contains(admins, name) then
                 if arg[1]=="pinklist" then
                         table.insert(pinklisted, arg[2])
                             ui.addTextArea(11, arg[2].." has been pinklisted by "..name.."!", nil)
                     end
             end
    end

    main()