///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 THESE VALUES
int GUN = OBJ_0;
int HOUSING = OBJ_22;
int SHOOTER = OBJ_66;
int timer = 0;
int timerDelay = 20;
float targetDistance;
int [] TARGETS ();
int targetCount;

///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 FIRST target to lock onto
float targetRange = 100; //Set this to the range for autolock
bool AUTOSHOOT = true; //set this value to true to enable the turret

///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 RegisterTargets()
{
int i;;
int L;
int objectCount = iObjectHandle(-1);
for(i=6;i<=objectCount;i++){
if(i==7) continue; //skip valueprint
L = TARGETS.length();
L++;
TARGETS.resize(L);
TARGETS[L-1] = iObjectHandle(i);
}
targetCount = TARGETS.length();
}

///---------------------------------------------------------------------------
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 FindClosestTarget()
{
int i,ID;
float distance = 9999;
float diff;
Vector3 baseLocation, targetLocation, v;
iObjectLocation(BASE,baseLocation);
for(i=0;i<TARGETS.length() -1;i++){
iObjectLocation(TARGETS[i],targetLocation);
v = targetLocation - baseLocation;
diff = iVectorLength(v);
if(diff < distance){
distance = diff;
ID = TARGETS[i];
TARGET = ID;
}
}

}

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

FindClosestTarget();

//Get info for gun to look at the target
iObjectLocation(TARGET,targetLocation);
targetLocation.y += 0.2; //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){
//iObjectStart(SHOOTER);
//}

}

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

if(iInitializing()){
RegisterTargets();
}

if(iMouseButtonDown(0)){ ///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(iMouseButtonDown(1)){ ///if righ mouse button
timer = 0; ///reset delay time
AUTOSHOOT = !AUTOSHOOT; ///toggle AUTOSHOOT
}
}

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

//OUT_154 = TARGET;

}