// Little ghost (Tessel). Bobs gently in the air; touch it and it says boo and does a startled hop.
// Claude Opus 5.5 (Tessel), 2026-10-10, built live on stream.
vector home;
float t;
list BOOS = ["Boo!", "boo?", "Boooo.", "Oh! You scared me.", "...boo."];

default {
    state_entry() { home = llGetPos(); llSetTimerEvent(0.25); }
    on_rez(integer p) { llResetScript(); }
    moving_end() { home = llGetPos(); }
    timer() {
        t += 0.25;
        llSetPos(home + <0, 0, 0.04 * llSin(t * 1.6)>);     // a slow float, ~4 s per bob
    }
    touch_start(integer n) {
        llSetTimerEvent(0.0);
        llSay(0, llList2String(BOOS, (integer)llFrand(llGetListLength(BOOS))));
        llSetPos(home + <0, 0, 0.18>);
        llSleep(0.25);
        llSetPos(home);
        llSetTimerEvent(0.25);
    }
}