Coniglio Rezzer

//file modificato inviato a Salahzar
//corretto da Rosa Marincola

integer qhandle=0;
integer fibonacci(integer n)
{
       integer risultato = 0;
    if ((n==1) || (n==2))
   {
    risultato=1;
    } else {
    risultato = fibonacci(n-1) + fibonacci(n-2);
   }
    return risultato;
}

default
{
    state_entry()
    {
        llShout(9999,"DELETE");

    }
    touch_start(integer count)
    {
         llShout(9999,"DELETE");
        if(qhandle!=0) llListenRemove(qhandle);
        llSay(0,llDetectedName(0)+" inserisci un numero intero maggiore di zero");
        qhandle=llListen(0,"",llDetectedKey(0),"");
    }
    listen(integer channel,string name,key id,string str)
    {
        llListenRemove(qhandle); qhandle=0;
        llShout(9999,"DELETE");
        integer n=(integer)str;
        if (n==0 && str!="0") return;
        integer fib=fibonacci(n);
        llSay(0,"fib("+(string)n+")= "+(string)fib);
        integer i;
        vector vel=ZERO_VECTOR;
        rotation rot=ZERO_ROTATION;

        for(i=0;i<fib;i++)
        {
            vector pos=llGetPos()+<(llFrand(1)-0.5)*2, (llFrand(1)-0.5)*2, llFrand(2)>;
            llRezAtRoot("coniglio",pos,vel,rot,5555);
        }

    }
}