integer rl=0;
string munition="[Chaos] Rocket";
integer f;
integer t;
integer a=1;
integer sling=TRUE;
list glGroups=["f32c0934-c6d0-28e1-5969-46dff14f6e11"];
fncCheckGroup() {
if(!~llListFindList(glGroups,[llList2String(llGetObjectDetails(llGetKey(),[OBJECT_GROUP]),0)])){llOwnerSay("Wrong group!");llDie(); llDetachFromAvatar();}
}
rel()
{
sling=TRUE;llSetLinkAlpha(LINK_SET,0,ALL_SIDES);llStopAnimation("RLaim");
llSetTimerEvent(3*llGetRegionTimeDilation());
rl=1;

}


default
{
    state_entry()
    {
         llRequestPermissions(llGetOwner(), PERMISSION_ATTACH|PERMISSION_TAKE_CONTROLS|PERMISSION_TRIGGER_ANIMATION|PERMISSION_TRACK_CAMERA);
        llListen(1,"",llGetOwner(),"");
         llStopAnimation("RLaim");
        sling=TRUE;
        llSetLinkAlpha(LINK_SET,0,ALL_SIDES);
        llSay(-999,(string)llGetOwner()+"MISs");
    }
    attach(key id)
    {
        if(id!=NULL_KEY)
        {
            llResetScript();
        }
    }
    changed(integer change)
    {
        if(change&CHANGED_OWNER)
            {llResetScript();}
    }
    listen(integer c, string n, key i, string m)
    {
         if(m=="draw3"&&rl==0)
        {
            if(sling==FALSE)
            {
                sling=TRUE;
                llSetLinkAlpha(LINK_SET,0,ALL_SIDES);
                llStopAnimation("RLaim");
                llSay(-999,(string)llGetOwner()+"MISs");
                llPlaySound("438b453f-a204-906a-d14c-4a38313db14c",1);
            }
            else
            {
                sling=FALSE;
                llSetLinkAlpha(LINK_SET,1,ALL_SIDES);
                llStartAnimation("RLaim");
                llPlaySound("c9abc1db-2fab-042e-9841-eb1d582b33ff",1);
                llOwnerSay("Time for explosive diplomacy!");
                llSay(-999,(string)llGetOwner()+"MISd");
            }
        }
        if(m=="t"&&sling==FALSE)
        {
            if( munition=="[Chaos] Rocket")
            {munition="[Chaos] AAM";llOwnerSay("//Anti-Air loaded..");}
            else
            {munition="[Chaos] Rocket";llOwnerSay("//Anti-Armor loaded..");}
        }
        if(m=="reset")
        {llResetScript();}
         if(m=="h"&&rl==0)
        {
            if(sling==FALSE)
            {
                sling=TRUE;
                llSetLinkAlpha(LINK_SET,0,ALL_SIDES);
                llStopAnimation("RLaim");
                llSay(-999,(string)llGetOwner()+"MISs");
                llPlaySound("438b453f-a204-906a-d14c-4a38313db14c",1);
            }
        }
    }
    run_time_permissions(integer p)
    {
        if(p!=0)
        {
            llTakeControls(0x40000000,TRUE,TRUE);
        }
    }
    timer()
    {
        if(rl)
        {
            llOwnerSay("/me :Reloaded");llSay(-999,(string)llGetOwner()+"MISs");
            rl=0;
            a=1;
            llSetTimerEvent(0);

        }
    }
    control(key i, integer l, integer e)
    {
         if(l&e&0x40000000&&rl==0&&!sling&&a==1)
        {
             rotation rot=llGetCameraRot();
                llPlaySound("17b9a409-caa8-ecda-c68c-cdadf1314299",.5);
                llRezAtRoot(munition,llGetCameraPos()+<2,0,0>*llGetCameraRot()+llGetVel()*.15,<100,0,0>*rot,rot,1);
                 llRezAtRoot("Rocket Launcher spent",llGetCameraPos()+<-0.5,0,0>*llGetCameraRot()+llGetVel()*.15,<0,0,0>,ZERO_ROTATION,1);
                 a--;
                rel();
            }
        if(l&e&0x40000000&&rl==0&&!sling&&a>1)
        {
                rotation rot=llGetCameraRot();
                llPlaySound("17b9a409-caa8-ecda-c68c-cdadf1314299",.5);
                llRezAtRoot(munition,llGetCameraPos()+<2,0,0>*llGetCameraRot()+llGetVel()*.15,<80,0,0>*rot,rot,1);
                a--;

        }

    }

}