@name nigger counter
@outputs [Count]:number
@persist [Nigger]:array [LT]:table
@model models/props_junk/watermelon01.mdl

if (first() | dupefinished()){
    runOnChat(1)
    setName("Nigger Count: 0")
    Count = 0
    E = entity()
    Nigger = array("nigger", "niger", "nogger", "noger", "coon", "watermelon", "ooga", "booga", "kangz"
            , "nigga", "niga", "nig", "nog", "negro", "ape", "monkey", "thicklips", "darkie", "darky"
            , "brownie", "browny", "mellanoid", "negroid", "sambo", "jigaboo", "jiggaboo", "groid"
            , "macaco", "macaca", "kaffir", "shitskin", "spade", "spearchucker", "spook", "tarbaby"
            , "wog", "n-bomb", "chigger", "chigga", "niggerbabble", "niggerball", "niggerbitch"
            , "nigger-brown", "niggerdick", "niggerdom", "niggerese", "nigresse", "niggeress", "niggerfaggot"
            , "niggerfied", "niggerfucker", "niggergram", "niggerhead", "niggerhood", "nig-nog", "nignog"
            , "niglet", "nigglet", "nikka", "outnigger", "nigy", "niggy", "nigie", "niggie", "nizzle"
            , "n-word", "spigger", "spigga", "swigger", "swigga", "wigga", "wigger", "niggah", "nigguh"
            , "neger", "primate", "african", "nigerian", "niggger")
    LT = invert(Nigger)
    holoCreate(1, E:toWorld(vec(-30,0,-7.5)), vec(1.5,1.5,0.7), E:toWorld(ang()), vec(255), "models/player/group01/male_01.mdl")
    holoAnim(1, "act_gmod_taunt_dance")
    holoParent(1, E)
    timer("dance", holoAnimLength(1) * 1000)
    soundPlay(1, 999999999, "music/conga_sketch_167bpm_01-04.wav")
}elseif (chatClk()){
    #foreach (K, V:string = Nigger) { if ( lastSaid():find(V) ) { Count++, break } }
    LS = lastSaid():lower():explode(" ")
    foreach(I, W:string = LS){ if (LT[W, number]){ Count++ } }
    if (changed(Count)){ setName("Nigger Count: " + Count) }
}elseif (clk("dance")){
    holoAnim(1, "act_gmod_taunt_dance")
    timer("dance", holoAnimLength(1) * 1000)
}