//
// CPT operator / SondeerGame 
// This source file is (c) by Deltares.
// - October 2014
//
class SondeerWagen extends SCar;

	/// Exhaust:
//	var()   array<vector>			TrailEffectPositions;
//	var     class<ONSAttackCraftExhaust>	TrailEffectClass;
//	var     array<ONSAttackCraftExhaust>	TrailEffects;

	var int BONE_HOED;
	var int BONE_TRAP;
	var int BONE_STEMPELS;
	var int BONE_RUPSL;
	var int BONE_RUPSR;

	var bool bSticky;
	var float fStickyFactor;

	var float LastCamTime;
	var rotator LastCamRot;

	var bool bBackCamera;

	/// Temporarily skip impact registrations.
	var bool bSkipImpacts;


	var float BrakeVehicle;

	/// jln - 09-12-2008  Respawn after water jump.
	var bool doRespawn;

	//=============================================================================
	// Description:
	//
	// Date       Id   Modification
	// 2006-04-13 gui  Created
/*	//=============================================================================

	event Bump(Actor other)
	{
		//local KActor kActor;
		Log("SondeerWagen Bump: " @ Other);
		if (Controller != None)
		{

		}

		super.Bump(other);

	}


function TakeDamage(int Damage, Pawn InstigatedBy, vector HitLocation, vector Momentum, class<DamageType> DamageType)
{
	Log("SW: Take damage");
}
*/

function Touch( actor Other )
{
	//local int i;
//	Log("Touch Sondeer:" @ Other);

	/// Only for level 2:
	if (GeoPlayerController(Controller).GetScenarioNumber() == 2 && FluidSurfaceInfo(Other) != None)
	{
		doRespawn = true;
		SetTimer(2, false);
	}

	Super.Touch(other);
}

event KImpact(actor other, vector pos, vector impactVel, vector impactNorm)
{

	if (bSkipImpacts == false)
	{
		Log("SW: Karma impact: " @ impactVel @ Other @ impactNorm);

		//if (Other != None)
		//{
			SetTimer(2, false);

			/// Likely stops impacts on the road.
			if (impactNorm.Z < 0.80)
			{
				/// Disable impacts for 2 seconds.
				bSkipImpacts = true;

				if (Controller != None)
				{

					/// If the player is driving:
					if (GeoPlayerController(Controller) != None)
					{

						if (Other != None)
						{
							GeoPlayerController(Controller).RegisterObjectHit();
						} else {
							log("HIT REGISTERED BUT OTHER OBJECT IS NONE");
							GeoPlayerController(Controller).RegisterObjectHit();

						}
					}
				}
			}
		//}
	}


	Super.KImpact(Other,pos,impactVel,impactNorm);
}

function Timer()
{
	/// Reset, allow impacts again:
	bSkipImpacts = false;


	if (doRespawn == true)
	{
		dorespawn = false;
		GeoPlayerController(Controller).dorespawn();

		setTimer(0, false);
	}
}


/*
function Touch( actor Other )
{
	//local int i;
	Log("Touch Sondeer:" @ Other);



	//local KActor kActor;
//	Log("Bump: " @ Other);
	if (Controller != None)
	{

		/// If the player is driving:
		if (GeoPlayerController(Controller) != None)
		{
			GeoPlayerController(Controller).RegisterObjectHit(other.name);
		}
	}

	super.Touch(other);

//	for (i = 0; i < Touching.length; i++)
//	{
//		Log("Touch: " @ Touching[i]);
//	}



}

function HitWall (vector HitNormal, actor Wall)
{
	super.HitWall(hitNormal, Wall);

	Log("Sondeer HitWall: " @ Wall);
}
*/

event KDriverEnter(Pawn p)
{



	/// Call super:
	Super.KDriverenter(P);

	if (Controller != None)
	{
		/// If the player is driving:
		if (GeoPlayerController(Controller) != None)
		{

			if (GeoPlayerController(Controller).RaceMode == true)
			{
				Log("Player is driving");
				GeoPlayerController(Controller).ClientOpenMenu("GeoInterface.dialogTrafficLight");
			}
		}
	}

}


simulated function PostNetBeginPlay()
{
        local int i;
        Super.PostNetBeginPlay();

        for(i = 0;i<EntryTriggers.Length;i++)
        {
                EntryTriggers[i].bHidden = true;
        }

		fStickyFactor = 0.1;

		AnimBlendParams(BONE_HOED, 1.0, 0.0, 0.0, 'Sondeerhoed');
		AnimBlendParams(BONE_RUPSL, 1.0, 0.0, 0.0, 'RupsbandL');
		AnimBlendParams(BONE_RUPSR, 1.0, 0.0, 0.0, 'RupsbandR');

		AnimBlendParams(BONE_TRAP, 1.0, 0.0, 0.5, 'onderdeel_trap');
		AnimBlendParams(BONE_STEMPELS, 1.0, 0.0, 0.5, 'stempels');

		bBackCamera = bool(Localize("Game","BackCamera", "SondeerGame"));



/*
        if (TrailEffects.Length == 0)
        {
            TrailEffects.Length = TrailEffectPositions.Length;

        	for(i=0;i<TrailEffects.Length;i++)
            	if (TrailEffects[i] == None)
            	{
                	TrailEffects[i] = spawn(TrailEffectClass, self,, Location + (TrailEffectPositions[i] >> Rotation) );
                	TrailEffects[i].SetBase(self);
                    TrailEffects[i].SetRelativeRotation( rot(0,32768,0) );
                }
        }
*/




}


function UpdateVehicle(float DeltaTime)
{

	OutputBrake = BrakeVehicle;

	Super.UpdateVehicle(DeltaTime);

	///Log("brake:" @ Outputbrake);

}

function int GetRotDiff(int A, int B)
{
	local int comp;

	comp = (A - B) & 65535;
	if(comp > 32768)
		comp -= 65536;

	return comp;
}


simulated function bool SpecialCalcView(out actor ViewActor, out vector CameraLocation, out rotator CameraRotation )
{

   local vector CamLookAt, HitLocation, HitNormal;
   local float LerpAmount;
   local float CurTime;
   local float CameraSwingRatio;

	if (bBackCamera == false)
	{
		/// Use default camera:
		return super.SpecialCalcView(ViewActor,CameraLocation,CameraRotation);
	}



   CameraSwingRatio = 0.05;
   ViewActor = self;

	CurTime = Level.TimeSeconds;
	LerpAmount = 1.0 - ( CameraSwingRatio ** (CurTime - LastCamTime) );
	LastCamTime = CurTime;


  // if(bRearView)
   //{
      CamLookAt = Location + (vect(-200, 0, -500) >> Rotation);
      CameraRotation.Yaw = LastCamRot.Yaw +
                           GetRotDiff(Rotation.Yaw, LastCamRot.Yaw) * LerpAmount;
      CameraRotation.Roll = 0;
      CameraRotation.Pitch = -2000; //16384; //-1000;
  // }
  // else
  // {
  //    CamLookAt = Location + (vect(-3000, 0, 200) >> Rotation);
    //  CameraRotation.Roll = 0;
    //  CameraRotation.Yaw = LastCamRot.Yaw +
    //                       GetRotDiff(Rotation.Yaw + 32768, LastCamRot.Yaw) * LerpAmount;
    //  CameraRotation.Pitch = -1000;
  // }

   CameraLocation = CamLookAt + (vect(-1800, 0, 1200) >> CameraRotation);
   if( Trace( HitLocation, HitNormal, CameraLocation, CamLookAt, false, vect(10, 10, 10) )
       != None )
   {
//      CameraLocation = HitLocation;
   }

   LastCamRot = CameraRotation;

   return true;
}



simulated function Tick(float DeltaTime)
{
	/// jln - 19-09-2008  Are we stuck?
	if (bSticky)
	{
		ModifyKarmaOn();
	}


//	local int i;
//	local float ThrustAmount;
//	local GeoPlayercontroller GeoPC;

/*
	if (Owner != None)
	{
		GeoPC = GeoPlayerController(Owner);


		if (GeoPc != None)
		{
			ThrustAmount = GeoPC.GetVelocity() / 10;

			for(i=0; i<TrailEffects.Length; i++)
			{
				TrailEffects[i].SetThrustEnabled(true);
				TrailEffects[i].SetThrust(ThrustAmount);
			}
		}
	}
	*/
}



function RaiseHoed()
{
	ExecAnimation('Sondeerhoed_Op',BONE_HOED);
}

function LowerHoed()
{
	ExecAnimation('Sondeerhoed_Neer',BONE_HOED);
}


function RaiseTrap()
{
	ExecAnimation('Trapje_Op',BONE_TRAP);
}

function LowerTrap()
{
	ExecAnimation('Trapje_Neer',BONE_TRAP);
}


function RaiseStempels()
{
	ExecAnimation('Stempels_Op',BONE_STEMPELS);
}

function LowerStempels()
{
	ExecAnimation('Stempels_neer',BONE_STEMPELS);
}



function RaiseRups()
{
	ExecAnimation('Rupsbanden_Op',BONE_RUPSL);
	ExecAnimation('Rupsbanden_Op',BONE_RUPSR);

}

function LowerRups()
{
	ExecAnimation('Rupsbanden_Neer',BONE_RUPSL);
	ExecAnimation('Rupsbanden_Neer',BONE_RUPSR);
}



function ExecAnimation(name sname, int slot)
{
//    local SVehicle DrivenSVehicle;

	PlayAnim(sname, 1.0, 1.0, Slot);
}

function DrawHUD(Canvas Canvas)
{
}


function ModifyKarmaOn()
{
//	KarmaParams(KParams).KFriction = 1;
//	VehicleMass=25;
//	OutputBrake=3000;
	OutputHandbrake=true;
	Throttle *= 0.95;
//	SVehicleUpdateParams();
//	Log("Braking...");
}

function ModifyKarmaOff()
{
///	KarmaParams(KParams).KFriction = 0.3;
//	VehicleMass=15;
//	OutputBrake=0;
//	SVehicleUpdateParams();
}


defaultproperties
{

	BONE_HOED = 1;
	BONE_TRAP = 2;
	BONE_STEMPELS = 3;
	BONE_RUPSL = 4;
	BONE_RUPSR = 5;




//     TrailEffectPositions(0)=(X=-148.000000,Y=-26.000000,Z=550.000000)
  //   TrailEffectPositions(1)=(X=-148.000000,Y=26.000000,Z=550.000000)
    // TrailEffectClass=GeoWorld.ONSAttackCraftExhaust



	//bSpecialHUD=true
	bSpecialCalcView=true

	Mesh=SkeletalMesh'VehiclesA.SondeerWagen'
	DrawScale=1.0
	DrawScale3D=(X=1.0,Y=1.0,Z=1.0)

	FPCamPos=(X=-10,Y=-30,Z=256)
	TPCamLookat=(X=0,Y=0,Z=256)
	TPCamDistance=1800



	bDrawDriverInTP=false
	bDrawMeshInFP=false
	MaxViewYaw=16000
	MaxViewPitch=16000

	DrivePos=(X=0,Y=0,Z=-9999)

        /// Almar
	MaxSteerAngle=20
	SteerSpeed=50
	SteerBoneMaxAngle=25

        //EntryRadius=100;

	 // test:
//	 bVehicleShadows = false;

	//Parts for sound support:
	//IdleSound=sound'BuggySounds.Engine.AWBuggyIdle2'
	//EngineRPMSoundRange=5000
        //SoundRadius=255
	//SoundVolume=255
	//IdleRPM=500
	//RevMeterScale=4000

	SteerBoneName="SteeringWheel"
	SteerBoneAxis=AXIS_Z


	WheelPenScale=1.0
	WheelSoftness=0.01
	WheelRestitution=0.1
	WheelAdhesion=0.0
	WheelLongFrictionFunc=(Points=((InVal=0,OutVal=0.0),(InVal=100.0,OutVal=1.0),(InVal=200.0,OutVal=0.7),(InVal=10000000000.0,OutVal=0.7)))
	WheelLongFrictionScale=1
	WheelLatFrictionScale=2
	WheelLongSlip=0.001
	WheelLatSlipFunc=(Points=((InVal=0.0,OutVal=0.0),(InVal=40.0,OutVal=0.03),(InVal=10000000000.0,OutVal=0.03)))
	WheelSuspensionTravel=24.0
	WheelSuspensionOffset=-8.0

	HandbrakeThresh=4500
	WheelHandbrakeSlip=2
	WheelHandbrakeFriction=0.7


	FTScale=0.03
	ChassisTorqueScale=0.200000

	MinBrakeFriction=1.5
	MaxBrakeTorque=300.0

	//SteerSpeed=110
	StopThreshold=500
	TorqueCurve=(Points=((InVal=0,OutVal=15.0),(InVal=200,OutVal=18.0),(InVal=1800,OutVal=21.0),(InVal=2500,OutVal=0.0)))
	EngineBrakeFactor=0.001
	EngineBrakeRPMScale=0.4
	EngineInertia=0.1
	WheelInertia=0.05

	TransRatio=0.15
	GearRatios[0]=-0.5
	GearRatios[1]=0.4
	GearRatios[2]=0.65
	GearRatios[3]=0.85
	GearRatios[4]=1.1
	ChangeUpPoint=2000
	ChangeDownPoint=1000
	LSDFactor=0.0


	bDisturbFluidSurface=true;



	//VehicleMass=15.0

        /// Almar:
        VehicleMass=14.0
        ExitPositions(0)=(Y=-315.000000,Z=100.000000)
        ExitPositions(1)=(Y=315.000000,Z=100.000000)
        ExitPositions(2)=(Z=-400.000000)
        ExitPositions(3)=(Z=400.000000)
        EntryPositions(0)=(X=480.000000,Y=256.000000,Z=10.000000)
        EntryPositions(1)=(X=480.000000,Y=-256.000000,Z=10.000000)

//    ExitPositions(0)=(Y=-315.000000,Z=100.000000)
//    ExitPositions(1)=(Y=315.000000,Z=100.000000)
//    ExitPositions(2)=(Y=0.000000,Z=-400.000000)
//    ExitPositions(3)=(Y=0.000000,Z=400.000000)
//    EntryPositions(0)=(Y=236.000000,Z=10.000000)
//    EntryPositions(1)=(Y=-236.000000,Z=10.000000)

    //wheel radius was 71.

    Begin Object Class=SVehicleWheel Name=SVehicleWheel0
        bPoweredWheel=True
        bHandbrakeWheel=True
        BoneName="Wheel_RB"
        WheelRadius=72
    End Object
    Wheels(0)=SVehicleWheel'SVehicleWheel0'
    Begin Object Class=SVehicleWheel Name=SVehicleWheel1
        bPoweredWheel=True
        bHandbrakeWheel=True
        BoneName="Wheel_LB"
        WheelRadius=72
    End Object
    Wheels(1)=SVehicleWheel'SVehicleWheel1'
    Begin Object Class=SVehicleWheel Name=SVehicleWheel2
        bPoweredWheel=True
        SteerType=ST_Steered
        bHandbrakeWheel=True
		BoneName="Wheel_RF"
        WheelRadius=72
    End Object
    Wheels(2)=SVehicleWheel'SVehicleWheel2'
    Begin Object Class=SVehicleWheel Name=SVehicleWheel3
        bPoweredWheel=True
        bHandbrakeWheel=True
		SteerType=ST_Steered
        BoneName="Wheel_LF"
        WheelRadius=72
    End Object
    Wheels(3)=SVehicleWheel'SVehicleWheel3'

    Begin Object Class=KarmaParamsRBFull Name=KarmaParamsRBFull0
        KInertiaTensor(0)=3.000000
        KInertiaTensor(3)=6.000000
        KInertiaTensor(5)=6.500000
        KCOMOffset=(X=0.0000,Z=-2.0)
        KLinearDamping=0.090000
        KAngularDamping=0.95000
        KStartEnabled=True
        bKNonSphericalInertia=True
        bHighDetailOnly=False
        bClientOnly=False
        bKDoubleTickRate=true
        SafeTimeMode=KST_Always
        KFriction=0.50000
		KImpactThreshold=900
        Name="KarmaParamsRBFull0"
    End Object
    KParams=KarmaParamsRBFull'KarmaParamsRBFull0'
}