// make a list of all animations states
list l;

default {
    state_entry() {
        llSetTimerEvent(0.25); // poll current state (there is no event for these)
    }

    timer() {
        string s;
        
        s = llGetAnimation(llGetOwner()); // get the current animation state
        llSetText(s, <1, 1, 1>, 1.0); // display it as floating text
        if (llListFindList(l, [s]) == -1) l += [s]; // if it's not already in the list, add it
    }
    
    touch_start(integer num) {
        if (llDetectedKey(0) != llGetOwner()) return; // ignore everyone but the owner
        
        llInstantMessage(llGetOwner(), llList2CSV(l)); // IM the list to the owner
    }
}