Questions to Stefans advanced bot scripting ....

by Michael Schaumburg · in Torque Game Engine · 12/03/2002 (5:09 am) · 23 replies · 1

function NPC::create(%datablock)
{
	// Create the player object
	%obj= new AIPlayer()
	{
		dataBlock= %datablock;
	};

	%obj.setMoveSpeed(0.2);
	%obj.handleWaypointsAndChase(%this);
	return %obj;
}
// start with a weapon
	%weapon = new Item(){
		dataBlock = Rifle;
	};
	%ammo = new Item(){
		dataBlock = RifleAmmo;
	};
	MissionCleanup.add(%weapon);
	MissionCleanup.add(%ammo);
	%obj.pickup(%weapon,1);
	%obj.pickup(%ammo,2);
echo("NEW BOT:" SPC %obj);
%this.setTargetObject($daPlaya);

%botPos = %this.getLocation();
// start with a weapon
	%obj.setEnergyLevel(60);
	%obj.incInventory(Crossbow,1);
   	%obj.incInventory(CrossbowAmmo,CrossbowAmmo.maxInventory);
   	%obj.use(Crossbow);
%launchPosition = %alien.player.position;
           %launchPosition = setword(%launchposition, 2, getword(%launchposition, 2) + 2);
           %muzzleVector = (getrandom(-90, 90)/100) SPC (getrandom(-90, 90)/100) SPC (getrandom(0,90)/100);
           %muzzleVelocity = VectorAdd(
              VectorScale(%muzzleVector, getRandom(15, 90)),
              VectorScale(0, 0));
           %p = new (Projectile)() {
              dataBlock        = %projectile;
              initialVelocity  = %muzzleVelocity;
              initialPosition  = %launchPosition;
              sourceObject     = %alien.player;
              sourceSlot       = 0;
              client           = %alien;
           };
           MissionCleanup.add(%p);
// The AIPlayer C++ class implements the following methods.
//
// AIPlayer::stopMove();
//    Stop the player where he is.
//
// AIPlayer::clearAim();
//    Clear any current aim location or aim object.  The player will
//    maintain his current orientation, or face towards his destination
//    if moving.
//
// AIPlayer::setMoveSpeed( float );
//    Set the speed (0-1) at which the player moves.
//
// AIPlayer::setMoveDestination( "x y z" );
//    Set the destination point to move towards. The Z location is ignored
//    though the player will face upwards (or downards) towards the destination
//    if no other aim target is set.
//
// AIPlayer::getMoveDestination();
//    Returns the current destination point.
//
// AIPlayer::setAimLocation( \"x y z\" );
//    Set a point to look at.  The player maintains his orientation towards
//    this point even while moving towards a destination point.
//
// AIPlayer::setAimObject( obj );
//    Set an object to look at.  The player maintains his orientation towards
//    this object, even while moving towards a destination point. The aim
//    object can also be moving.
//
// AIPlayer::getAimLocation();
//    Returns the current point the player is looking at. If the player has
//    an aimObject set, this would be the current position of the target
//    object.
//
// AIPlayer::getAimObject();
//    Returns the current target object, if there is one.
%obj.setImageTrigger(0,true);
function AIPlayer::shootHimIfYouSeeHim(%this, %playPos)
{

   %myrange = 500;
   %iSeeHim = AIPlayer::isObjectInView(%this, $daPlaya, %myrange);
   error(%this.player SPC "isObjectInView:" SPC %iSeeHim);
   if(%iSeeHim)
   {
      error(%this.player @ ": I see him!!!");
      %this.setAimLocation($daPlaya.getWorldBoxCenter());
      // do we have a weapon?
      if ( (%this.hasInventory("Crossbow") && %this.hasInventory("CrossbowAmmo"))
            || (%this.hasInventory("Rifle") && %this.hasInventory("RifleAmmo")) )
      {
	%this.setAimObject($daPlaya);
	%this.setAimLocation($daPlaya.getWorldBoxCenter());
         // shoooooot
         error("NPC is shooting..." SPC %this);
         %this.setImageTrigger(0,true);
      }
      else
      {
         error(%this.player SPC "has no weapon/ammo!");
      }
      %this.setMoveDestination(%playPos);

   }
   // no player in sight?
   else
   {
	// clear aim
	%this.clearAim();
	// check for next nearest player
	%nextClient = ClientGroup.getObject(AIPlayer::getClosestHuman(%this));
	$daPlaya = %nextClient.player;
	if(!isObject($daPlaya))
	{
		return;
	}
	%playPos = $daPlaya.getPosition();
	%this.setMoveDestination(%playPos);
	%this.setAimObject(%client.player);
	%this.setAimLocation($daPlaya.getWorldBoxCenter());
  }
}
// add this to the constructor:
	mModeFire = false;

// and this anywhere in the class...
/**
 * Tells the AI to fire.
 */
void AIPlayer::fireWeapon(bool enable) {
   // Fire the seclected weapon.

	if(enable)
	{
		mModeFire = true;
		throwCallback( "onShoot" );
	}
	else
	{
		mModeFire = false;
		throwCallback( "onUnshoot" );
	}
}

ConsoleMethod( AIPlayer, fireWeapon, void, 3, 3, "ai.fireWeapon(bool)")
{
   AIPlayer *ai = static_cast<AIPlayer *>( object );
   ai->fireWeapon(dAtob(argv[2]));
}

// add this in 
// bool AIPlayer::getAIMove(Move *movePtr)
// right after
//          movePtr->pitch = newPitch - headRotation.x;

		// shoot
		if (mModeFire) {
			const char *WeaponSlot = Con::getVariable("$WeaponSlot");
			S32 slot = dAtoi(WeaponSlot);

			if (slot >= 0 && slot < ShapeBase::MaxMountedImages) {
				if (getMountedImage(slot)) {

					if (!movePtr->trigger[slot]) {
						// shoot trigger
						movePtr->trigger[slot] = true;
					}
				}
			}
		}

...
bool mModeFire;
function serverCmdAddBot(%client) {
         MissionCleanup.add($bots);
	 %npcName = "Bot" @ $botCounter;
         $bots[$botCounter] = AIPlayer::spawnPlayer(%npcName);
         MissionCleanup.add($bots[$botCounter]);
	 serverCmdMoveBotToPlayer(%client,$bots[$botCounter]);
	 $bots[$botCounter].fireWeapon(true);
	 $botCounter++;
}

function serverCmdMoveBotToPlayer(%client,%bot)
{
   if (isObject(%client.player) && isObject(%bot))
   {
	%bot.setAimLocation( %client.player.getPosition() );
	%bot.setMoveDestination( %client.player.getPosition() );
	echo("Moving to current position of the player!");
   }
}
bool mModeFire;
		void fireWeapon(bool enable);

Game Development Community

Questions to Stefans advanced bot scripting ....

About the author

Recent Threads