opendoor()
{
    //llSay(0,"La porta si apre...");
    llSetPrimitiveParams([ PRIM_TYPE, PRIM_TYPE_CYLINDER, 0, <0.250000, 0.750000, 0.0>, 0.700000, ZERO_VECTOR, <1.0, 1.0, 0.0>, ZERO_VECTOR ]);
    llSetStatus(STATUS_PHANTOM,TRUE);
    llSetTimerEvent(10);
}
closedoor()

{
    //llSay(0,"La porta si chiude...");
    llSetPrimitiveParams([PRIM_TYPE, PRIM_TYPE_CYLINDER, 0, <0.250000, 0.750000, 0.0>, 0.0, ZERO_VECTOR, <1.0, 1.0, 0.0>, ZERO_VECTOR, PRIM_SIZE, <9.5, 9.5, 0.10000>]);
    llSetStatus(STATUS_PHANTOM,FALSE);
    llSetTimerEvent(0);

}


default
{
    state_entry()
    {
        //llSay(0,llList2CSV(llGetPrimitiveParams([PRIM_TYPE])));
        llListen(100,"",llGetOwner(),"");
        closedoor();
    }
    link_message(integer sender, integer channel, string str, key id)
    {
        if(str=="OPEN") opendoor();
        if(str=="CLOSE") closedoor();
    }    
    
    
    listen(integer channel,string name, key id, string str)
    {
        if(str=="OPEN") opendoor();
        if(str=="CLOSE") closedoor();
    }    

    
    timer()
    {
        llSetTimerEvent(0);
        closedoor();
    }

    
}