///Note that the housing and gun are 0.03% of there original size....
///so you can scale them to anything you wish in their control dialigs

///DO NOT CHANGE THRSE VALUES
int GUN = OBJ_0;
int HOUSING = OBJ_22;
int SHOOTER = OBJ_66;
bool AUTOSHOOT = false;
int timer = 0;
int timerDelay = 20;
float targetDistance;

///CHANGE THESE VALUES BASED ON YOUR GAME
int BASE = OBJ_44;      //Set this to the car or the rock to stand on
int TARGET = OBJ_132;   //Set this to the target to lock onto
float targetRange = 60; //Set this to the range for autolock

///ADJUST THESE VALUES TO SET WHERE TO PLACE THE TURRET ON THE BASE (car)
float baseUPDOWN = 1.2;    //height on BASE to place the turret
float baseFRONTBACK = 0;   //Offset forward or backward on base to place turret
float baseLEFTRIGHT = 0;   //Offset left or right on base to place turret
float gunHEIGHT = 0.35;    //Height of housing to place turret gun      
float shooterOFFSET = 0; //forward offset to place projectile on gun

///---------------------------------------------------------------------------
void LocalToParent(int PARENT, int OBJ, Vector3 rotation, Vector3 translation)
{
        Vector3 parentLocation;
        Quaternion parentOrientation;
        Quaternion newOrientation;
        Quaternion objectOrientation;
        Vector3 forward, location, newLocation;
        float x,y,z,ud,lr,fb;
        x = rotation.x; y = rotation.y; z = rotation.z;
        fb = translation.z; lr = translation.x; ud = translation.y;
        iObjectLocation(PARENT, parentLocation);
        iObjectOrientation(PARENT,parentOrientation);
        iObjectOrientationSet(OBJ,parentOrientation);
        iVectorRotate(forward,Vector3(lr,ud,fb),parentOrientation);
        newLocation = parentLocation + forward;
        iObjectLocationSet(OBJ,newLocation);
        iQuaternionFromEulerAngles(newOrientation,x,y,z,"xyz");
        iQuaternionMultiply(newOrientation,newOrientation,parentOrientation);
        iObjectOrientationSet(OBJ,newOrientation);
}

///---------------------------------------------------------------------------
Quaternion QuatGetLookAt(Vector3 a, Vector3 b){
        Quaternion orientation;
        Vector3 up = Vector3(0,1,0);       
        Vector3 direction = b - a;        
        iQuaternionLookAt(orientation,direction,up);
        return orientation;
}

///---------------------------------------------------------------------------
void AlignTurret()
{
        //place turret housing
        LocalToParent(BASE,HOUSING,Vector3(0,0,0),Vector3(baseLEFTRIGHT,baseUPDOWN,baseFRONTBACK));
        //place turret gun
        LocalToParent(HOUSING,GUN,Vector3(0,0,0),Vector3(0,gunHEIGHT,0));
        //place projectile
        LocalToParent(GUN,SHOOTER,Vector3(0,0,0),Vector3(0,0,shooterOFFSET));
}

///---------------------------------------------------------------------------
void AutoTarget()
{
        Vector3 targetLocation;
        Vector3 gunLocation,V;
        Quaternion gunLookat;

        //Get info for gun to look at the target
        iObjectLocation(TARGET,targetLocation);
        targetLocation.y += 0.5;    //don't aim at the ground
        iObjectLocation(GUN,gunLocation);
        gunLookat = QuatGetLookAt(gunLocation,targetLocation);
        V = targetLocation - gunLocation;
        targetDistance = iVectorLength(V);
             
        //place turret housing
        LocalToParent(BASE,HOUSING,Vector3(0,0,0),Vector3(baseLEFTRIGHT,baseUPDOWN,baseFRONTBACK));
        //place turret gun
        LocalToParent(HOUSING,GUN,Vector3(0,0,0),Vector3(0,gunHEIGHT,0));

        //Orientate the gun to the target if in range
        if(targetDistance <= targetRange){
           iObjectOrientationSet(GUN,gunLookat);
        }

        //place projectile
        LocalToParent(GUN,SHOOTER,Vector3(0,0,0),Vector3(0,0,shooterOFFSET));

        //if the target is in range, auto-shoot
        if(targetDistance <= targetRange && iKeyDown(iKeyCode("DIK_SPACE"))){
           iObjectStart(SHOOTER);          
        }

}

///---------------------------------------------------------------------------
void Main()
{
             

        if(iKeyDown(iKeyCode("DIK_SPACE"))){        ///If left mouse button pressed
           iObjectStop(OBJ_110);                    ///stop particles
           iObjectStart(OBJ_110);                   ///restart particles
           iObjectStart(SHOOTER);                   ///Fire  gun
        }

        if(timer < timerDelay) timer++;             ///toggle delay timer
        if(timer == timerDelay){                    ///if delay-timeout
           if(iKeyDown(iKeyCode("DIK_LCONTROL"))){     ///if righ mouse button
              timer = 0;                            ///reset delay time
              AUTOSHOOT = !AUTOSHOOT;               ///toggle AUTOSHOOT
           }
        }

        if(AUTOSHOOT){
           AutoTarget();
        }else{
           AlignTurret();
        }

        OUT_154 = targetDistance;

}

      //if(iKeyDown(iKeyCode("DIK_T"))){...} - deistvie 4erez klavi6y
      //if(iMouseButtonDown(0)){...}         - deistvie 4erez knopky mu6u