//////////////////////////////////////////////////////////
//     WaS (c) grimore.org - 2012, License: GPLv3            //
// Please see: http://www.gnu.org/licenses/gpl.html     //
// for legal details, rights of fair usage and          //
// the disclaimer and warranty conditions.              //
//////////////////////////////////////////////////////////
 
list spinChars = [ "↑", "↗", "→", "↘", "↓", "↙", "←", "↖" ];
default
{
    link_message(integer sender_num, integer num, string str, key id)
    {
        if(str != "spin") return;
@start;
        string text = llList2String(llGetLinkPrimitiveParams(LINK_THIS, [PRIM_TEXT]), 0);
        do {
            string tok = llGetSubString(text, llStringLength(text)-1, llStringLength(text)-1);
            if(llListFindList(spinChars, (list)tok) == -1 && tok != "\n" && tok != "[" && tok != "]") jump show;
            text = llDeleteSubString(text, llStringLength(text)-1, llStringLength(text)-1);
        } while(llStringLength(text));
@show;
        string next = llList2String(spinChars,  0);
        spinChars = llDeleteSubList(spinChars, 0, 0);
        spinChars += next;
        llSetText(text + "\n" + "[" + next + "]", <1,1,1>, 1);
        if(--num > 0) jump start;
    }
}