TacoServer/Classic/scripts/autoexec/AntiLouExploitFixes.cs

//Taco October 2018
//removed alot of things that were already included in the classic code
//and checked if evo wasnt double overriding functions

package AntiLouExploitFixes 
{

// MPB INSTANT ENERGY FIX

// VehicleData::onRemove(%this, %obj)
// Info: this is called after the MPB is destroyed. Reset the variable
function VehicleData::onRemove(%this, %obj)
{
	if(%obj.station.isDestroyed)
		%obj.station.isDestroyed = 0;
	
   parent::onRemove(%this, %obj);
}


// stationTrigger::onEnterTrigger(%data, %obj, %colObj)
// Info: If the MPB is destroyed, don't allow players to use the inv
function stationTrigger::onEnterTrigger(%data, %obj, %colObj)
{
	//make sure it's a player object, and that that object is still alive
   if(%colObj.getDataBlock().className !$= "Armor" || %colObj.getState() $= "Dead")
      return;


	// Part of hack to keep people from mounting vehicles in disallowed armors.
   if(%obj.station.getDataBlock().getName() !$= "StationVehicle")
      %colObj.client.inInv = true;

   %colObj.inStation = true;
   commandToClient(%colObj.client,'setStationKeys', true);
   
   if(Game.stationOnEnterTrigger(%data, %obj, %colObj))
   {
      //verify station.team is team associated and isn't on player's team
      if((%obj.mainObj.team != %colObj.client.team) && (%obj.mainObj.team != 0))
      {
         messageClient(%colObj.client, 'msgStationDenied', '\c2Access Denied -- Wrong team.~wfx/powered/station_denied.wav');
      }
      else if(%obj.disableObj.isDisabled())
      {
         messageClient(%colObj.client, 'msgStationDisabled', '\c2Station is disabled.');
      }
      else if(!%obj.mainObj.isPowered())
      {
         messageClient(%colObj.client, 'msgStationNoPower', '\c2Station is not powered.');
      }
      else if(%obj.station.notDeployed)
      {
         messageClient(%colObj.client, 'msgStationNotDeployed', '\c2Station is not deployed.');
      }
      else if(%obj.station.isDestroyed)
      {
      	messageClient(%colObj.client, 'msgStationDestroyed', '\c2Station is destroyed.');
      }
      else if(%obj.station.triggeredBy $= "")
      {
         if(%obj.station.getDataBlock().setPlayersPosition(%obj.station, %obj, %colObj))
         {
            messageClient(%colObj.client, 'CloseHud', "", 'inventoryScreen');
            commandToClient(%colObj.client, 'TogglePlayHuds', true);
            %obj.station.triggeredBy = %colObj;
            %obj.station.getDataBlock().stationTriggered(%obj.station, 1);
            %colObj.station = %obj.station;
            %colObj.lastWeapon = ( %colObj.getMountedImage($WeaponSlot) == 0 ) ? "" : %colObj.getMountedImage($WeaponSlot).getName().item;
            %colObj.unmountImage($WeaponSlot);
         }
      }
   }
}

// END MPB INSTANT ENERGY FIX

// VEHICLE STATION SPAM FIX

// serverCmdBuyVehicle(%client, %blockName)
// Info: Fix an exploit that makes the server lag.
function serverCmdBuyVehicle(%client, %blockName)
{
	// if the client has already created a vehicle, don't execute the function
	if(%client.cantBuyVehicle)
		return;

   %team = %client.getSensorGroup();
   if(vehicleCheck(%blockName, %team))        
   {
      %station = %client.player.station.pad;
      if((%station.ready) && (%station.station.vehicle[%blockName]))
      {
         %trans = %station.getTransform();
         %pos = getWords(%trans, 0, 2);
         %matrix = VectorOrthoBasis(getWords(%trans, 3, 6));
         %yrot = getWords(%matrix, 3, 5);
         %p = vectorAdd(%pos,vectorScale(%yrot, -3));
         %p = getWords(%p, 0, 1) @ " " @ getWord(%p, 2) + 4;
         %p = vectorAdd(%p, %blockName.spawnOffset);
         %rot = getWords(%trans, 3, 5);
         %angle = getWord(%trans, 6) + 3.14;
         %mask = $TypeMasks::VehicleObjectType | $TypeMasks::PlayerObjectType | $TypeMasks::StationObjectType | $TypeMasks::TurretObjectType;
	      InitContainerRadiusSearch(%p, %blockName.checkRadius, %mask);

	      %clear = 1;
         for(%x = 0; (%obj = containerSearchNext()) != 0; %x++) 
         {
            if((%obj.getType() & $TypeMasks::VehicleObjectType) && (%obj.getDataBlock().checkIfPlayersMounted(%obj)))
            {
               %clear = 0;
               break;
            }
            else
               %removeObjects[%x] = %obj;
         }

         if(%clear)
         {
            %fadeTime = 0;
            for(%i = 0; %i < %x; %i++)
            {
               if(%removeObjects[%i].getType() & $TypeMasks::PlayerObjectType)
               {
                  %pData = %removeObjects[%i].getDataBlock();
                  %pData.damageObject(%removeObjects[%i], 0, "0 0 0", 1000, $DamageType::VehicleSpawn);
               }
               else
               {
                  %removeObjects[%i].mountable = 0;
                  %removeObjects[%i].startFade(1000, 0, true);
                  %removeObjects[%i].schedule(1001, "delete");
                  %fadeTime = 1500;
               }
            }
            // client has buyed a vehicle
            %client.cantBuyVehicle = 1;
            schedule(%fadeTime, 0, "createVehicle", %client, %station, %blockName, %team , %p, %rot, %angle);
            // wait 6,5 seconds (time a vehicle needs to be created) before buying another vehicle
            schedule(6500, 0, "resetBuyVehicle", %client);
         }
         else
            MessageClient(%client, "", 'Can\'t create vehicle. A player is on the creation pad.'); 
      }

      else
      	 messageClient(%client, "", "~wfx/misc/misc.error.wav");
   }

   else
      messageClient(%client, "", "~wfx/misc/misc.error.wav");
}

// resetBuyVehicle(%client)
// Info: delete the variable, so client can buy another vehicle
function resetBuyVehicle(%client)
{
	%client.cantBuyVehicle = "";
}

// END VEHICLE STATION SPAM FIX


// ShapeBase::throwObject(%this,%obj)
// Info: Delay on calculating flag stats
function ShapeBase::throwObject(%this,%obj)
{
   // z0dd - ZOD, 4/15/02. Allow respawn switching during tourney wait.
   if(!$MatchStarted)
      return;
   
   // z0dd - ZOD, 5/26/02. Remove anti-hover so flag can be thrown properly
   if(%obj.getDataBlock().getName() $= "Flag")
   {
      %obj.static = false;
      // z0dd - ZOD - SquirrelOfDeath, 10/02/02. Hack for flag collision bug.
      if(Game.Class $= CTFGame || Game.Class $= PracticeCTFGame)
         %obj.searchSchedule = Game.schedule(10, "startFlagCollisionSearch", %obj);
   }

   %srcCorpse = (%this.getState() $= "Dead"); // z0dd - ZOD, 4/14/02. Flag tossed from corpse
   
   //if the object is being thrown by a corpse, use a random vector
   if (%srcCorpse && %obj.getDataBlock().getName() !$= "Flag") // z0dd - ZOD, 4/14/02. Except for flags..
   {
      %vec = (-1.0 + getRandom() * 2.0) SPC (-1.0 + getRandom() * 2.0) SPC getRandom();
      %vec = vectorScale(%vec, 10);
   }
   else // else Initial vel based on the dir the player is looking
   {
      %eye = %this.getEyeVector();
      %vec = vectorScale(%eye, 20);
   }

   // Add a vertical component to give the item a better arc
   %dot = vectorDot("0 0 1",%eye);
   if (%dot < 0)
      %dot = -%dot;
   %vec = vectorAdd(%vec,vectorScale("0 0 12",1 - %dot)); // z0dd - ZOD, 9/10/02. 10 was 8

   // Add player's velocity
   %vec = vectorAdd(%vec,%this.getVelocity());
   %pos = getBoxCenter(%this.getWorldBox());

   //since flags have a huge mass (so when you shoot them, they don't bounce too far)
   //we need to up the %vec so that you can still throw them...
   if (%obj.getDataBlock().getName() $= "Flag")
   {
      %vec = vectorScale(%vec, (%srcCorpse ? 40 : 75)); // z0dd - ZOD, 4/14/02. Throw flag force. Value was 40
      
      // z0dd - ZOD, 9/27/02. Delay on grabbing flag after tossing it
      %this.flagTossWait = true;
      %this.schedule(1000, resetFlagTossWait);
      
      // Delay on calculating stats
      %this.flagStatsWait = true;
   	%this.schedule(5000, resetFlagStatsWait);
   }

   //
   %obj.setTransform(%pos);
   %obj.applyImpulse(%pos,%vec);
   %obj.setCollisionTimeout(%this);
   %data = %obj.getDatablock();

   %data.onThrow(%obj, %this);

   //call the AI hook
   AIThrowObject(%obj);
}

// Player::resetFlagStatsWait(%this)
// Info: Delay on calculating the stats
function Player::resetFlagStatsWait(%this)
{
   %this.flagStatsWait = false;
}



// Fix for observer vehicle bug, where observers are drawn to
// a vehicle no matter whether they are observing the client or not
// Thanks to MT for pointing out.
function resetObserveFollow( %client, %dismount )
{
   if( %dismount )
   {
      if( !isObject( %client.player ) )
         return;

      for( %i = 0; %i < %client.observeCount; %i++ )
      {
	// Check if data in %client.observers[%i] is correct at all
	if ( %client.observers[%i].clientObserve != %client )
	  {
	    continue;
	  }
	%client.observers[%i].camera.setOrbitMode( %client.player, %client.player.getTransform(), 0.5, 4.5, 4.5);
      }
   }
   else
   {
      if( !%client.player.isMounted() )
         return;

      // grab the vehicle...
      %mount = %client.player.getObjectMount();
      if( %mount.getDataBlock().observeParameters $= "" )
         %params = %client.player.getTransform();
      else
         %params = %mount.getDataBlock().observeParameters;

      for( %i = 0; %i < %client.observeCount; %i++ )
      {
	// Check if data in %client.observers[%i] is correct at all
	if ( %client.observers[%i].clientObserve != %client )
	  {
	    continue;
	  }
	
	%client.observers[%i].camera.setOrbitMode(%mount, %mount.getTransform(), getWord( %params, 0 ), getWord( %params, 1 ), getWord( %params, 2 ));
      }
   }
}

// ilys - Start checkSpeed schedule on MPB
function MobileBaseVehicle::onAdd(%this, %obj)
{
   Parent::onAdd(%this, %obj);
   %obj.schedule(5000, "checkSpeed", %obj);
}

// ilys - checkSpeed function. Kill the driver and MPB if going too fast.
function WheeledVehicle::checkSpeed(%data, %obj)
{
   if(VectorLen(%obj.getVelocity()) > 200)
   {
      if(%obj.getMountNodeObject(0)) %obj.getMountNodeObject(0).scriptKill(36);
      %obj.setDamagelevel(4);
   }
   %obj.schedule(5000, "checkSpeed", %data, %obj);
}

// ilys - No lava, please.
function StationVehiclePad::createStationVehicle(%data, %obj)
{
	%group = %obj.getGroup();
	%xform = %obj.getSlotTransform(0);
	%position = getWords(%xform, 0, 2);
	%rotation = getWords(%xform, 3, 5);
	%angle = (getWord(%xform, 6) * 180) / 3.14159;
	if(%obj.stationPos $= "" || %obj.stationRot $= "")
	{
		%pos = %position;
		%rot = %rotation @ " " @ %angle;
	}
	else
	{
		%pos = %obj.stationPos;
		%rot = %obj.stationRot;
	}
	%sv = new StaticShape() {
		scale = "1 1 1";
		dataBlock = "StationVehicle";
		lockCount = "0";
		homingCount = "0";
		team = %obj.team;
		position = %pos;
		rotation = %rot;
	};
	%group.add(%sv);
	%sv.setPersistent(false);
	%sv.getDataBlock().gainPower(%sv);
	%sv.getDataBlock().createTrigger(%sv);
	%sv.pad = %obj;
	%obj.station = %sv;
	%sv.trigger.mainObj = %obj;
	%sv.trigger.disableObj = %sv;
	if(%sv.getTarget() != -1)
		setTargetSensorGroup(%sv.getTarget(), %obj.team);
	if(%obj.scoutVehicle !$= "Removed")
		%sv.vehicle[scoutvehicle] = true;
	if(%obj.assaultVehicle !$= "Removed")
		%sv.vehicle[assaultVehicle] = true;
	if(%obj.mobileBaseVehicle !$= "Removed")
	{
		// ilys - Removed lava waterblock code from here
		%sv.vehicle[mobileBasevehicle] = true;
		%sv.getDataBlock().createTeleporter(%sv, %group);
	}
	if(%obj.scoutFlyer !$= "Removed")
		%sv.vehicle[scoutFlyer] = true;
	if(%obj.bomberFlyer !$= "Removed")
		%sv.vehicle[bomberFlyer] = true;
	if(%obj.hapcFlyer !$= "Removed")
		%sv.vehicle[hapcFlyer] = true;
}

// ilys - We dont do anything here now
function serverCmdClientTeamChange( %client )
{
	// Don't do it, man. DON'T DO IT!
}

// ilys - Only allow the client to force play when the match has started
function serverCmdClientJoinGame(%client)
{
   if(!$MatchStarted) return;
   parent::serverCmdClientJoinGame(%client);
}

function serverCmdPlayAnim(%client, %anim)
{
   // Not used in Classic
}

// ilys - Do not allow animations inside a forcefield.
// ilys - Unmount the mortar and grenade launcher on animation.
function PlayAnim(%client, %anim)
{
   if( %anim $= "Death1" || %anim $= "Death2" || %anim $= "Death3" || %anim $= "Death4" || %anim $= "Death5" ||
       %anim $= "Death6" || %anim $= "Death7" || %anim $= "Death8" || %anim $= "Death9" || %anim $= "Death10" ||
       %anim $= "Death11" || %anim $= "sitting" || %anim $= "scoutRoot" || %anim $= "look" || %anim $= "lookms" ||
       %anim $= "looknw" || %anim $= "head" || %anim $= "headSide" || %anim $= "ski" || %anim $= "light_recoil")
      return;

   %player = %client.player;
   if(!isObject(%player))
      return;
   if(%player.isMounted() || %player.isInForceField())
      return;

   %weapon = ( %player.getMountedImage($WeaponSlot) == 0 ) ? "" : %player.getMountedImage($WeaponSlot).getName().item;
   if(%weapon $= "MissileLauncher" || %weapon $= "GrenadeLauncher" || %weapon $= "SniperRifle" || %weapon $= "Mortar")
   {
      %player.animResetWeapon = true;
      %player.lastWeapon = %weapon;  
      %player.unmountImage($WeaponSlot);
      %player.setArmThread(look);
   }      
   %player.setActionThread(%anim);
}

// ilys - Fix for the Standing Pilot bug
function Armor::onMount(%this,%obj,%vehicle,%node)
{
	if (%node == 0)
	{
		%obj.setTransform("0 0 0 0 0 1 0");
		%obj.setActionThread(%vehicle.getDatablock().mountPose[%node],true,true);
		%obj.schedule(300,"setActionThread",%vehicle.getDatablock().mountPose[%node],true,true);
		if(!%obj.inStation) %obj.lastWeapon = (%obj.getMountedImage($WeaponSlot) == 0 ) ? "" : %obj.getMountedImage($WeaponSlot).item;
		%obj.unmountImage($WeaponSlot);
		if(!%obj.client.isAIControlled())
		{
			%obj.setControlObject(%vehicle);
			%obj.client.setObjectActiveImage(%vehicle, 2);
		}
		if(%obj == %obj.lastVehicle.lastPilot && %obj.lastVehicle != %vehicle)
		{
			schedule(15000, %obj.lastVehicle,"vehicleAbandonTimeOut", %obj.lastVehicle);
			%obj.lastVehicle.lastPilot = "";
		}
		if(%vehicle.lastPilot !$= "" && %vehicle == %vehicle.lastPilot.lastVehicle) %vehicle.lastPilot.lastVehicle = "";
		%vehicle.abandon = false;
		%vehicle.lastPilot = %obj;
		%obj.lastVehicle = %vehicle;
		if((%vehicle.getTarget() != -1) && %vehicle.getDatablock().cantTeamSwitch $= "")
		{   
			setTargetSensorGroup(%vehicle.getTarget(), %obj.client.getSensorGroup());
			if( %vehicle.turretObject > 0 ) setTargetSensorGroup(%vehicle.turretObject.getTarget(), %obj.client.getSensorGroup());
		}
		commandToClient( %obj.client, 'VehicleMount' );
	}
	else
	{
		if(%vehicle.getDataBlock().mountPose[%node] !$= "") %obj.setActionThread(%vehicle.getDatablock().mountPose[%node]);
		else %obj.setActionThread("root", true);
	}
	if(%vehicle.getDatablock().numMountPoints > 1)
	{
		%nodeName = findNodeName(%vehicle, %node); // function in vehicle.cs
		for(%i = 0; %i < %vehicle.getDatablock().numMountPoints; %i++)
		{
			if (%vehicle.getMountNodeObject(%i) > 0)
			{
				if(%vehicle.getMountNodeObject(%i).client != %obj.client)
				{
					%team = (%obj.team == %vehicle.getMountNodeObject(%i).client.team ? 'Teammate' : 'Enemy');
					messageClient( %vehicle.getMountNodeObject(%i).client, 'MsgShowPassenger', '\c2%3: \c3%1\c2 has boarded in the \c3%2\c2 position.', %obj.client.name, %nodeName, %team );
				}
				commandToClient( %vehicle.getMountNodeObject(%i).client, 'showPassenger', %node, true);
			}
		}
	}
	if ( %obj.getImageTrigger( $BackpackSlot ) ) %obj.setImageTrigger( $BackpackSlot, false );
	%obj.client.vehicleMounted = %vehicle;
	AIVehicleMounted(%vehicle);
	if(%obj.client.isAIControlled()) %this.AIonMount(%obj, %vehicle, %node);
}

// TracerDX/ilys - Server crash exploit fix
function serverCmdTeamMessageSent(%client, %text)
{
	if((%client.voice $= "") && (strstr(%text, "~w") != -1) && (getSubStr(%text, (strlen(%text) - 4), 4) !$= ".wav")) return;
	parent::serverCmdTeamMessageSent(%client, %text);
}

function serverCmdMessageSent(%client, %text)
{
	if((%client.voice $= "") && (strstr(%text, "~w") != -1) && (getSubStr(%text, (strlen(%text) - 4), 4) !$= ".wav")) return;
	parent::serverCmdMessageSent(%client, %text);
}

// Fix a problem with the package system
// dropping the first package when a non-active
// package is deactivated
function DeactivatePackage(%this)
{
	if(!isActivePackage(%this)) return;
	parent::DeactivatePackage(%this);
}

};


// Prevent package from being activated if it is already
if (!isActivePackage(AntiLouExploitFixes))
    activatePackage(AntiLouExploitFixes);