DMH-Online

NWScript:

/******************************************************************
 * Name: Simple "Repulsion Field" Script
 * Type: Trigger (OnEnter)
 * ---
 * Author: Modal
 * Date: 06/28/02
 * ---
 * This is a simple "repulsion" script which doubles as a demo
 * of using vector functions - attach this to a trigger (OnEnter)
 * to repel a PC/NPC backwards by REPEL_DISTANCE meters.
 ******************************************************************/

/* Repelling distance, in meters */
float REPEL_DISTANCE = 1.0;
void main()
{
  object oEnteringPC = GetEnteringObject();
  location lOrigin,
           lDest;
  vector vOrigin,
         vDest,
         vUnitRepel;
/* Get the starting location and vector of the PC/Mob */
lOrigin = GetLocation( oEnteringPC );
vOrigin = GetPosition( oEnteringPC );
/* Calculate the Unit Vector needed to repel the PC/Mob */
vUnitRepel = AngleToVector( GetFacingFromLocation( lOrigin ) + 180.0 );
/* Calculate Destination Vector */
vDest = vOrigin + REPEL_DISTANCE * vUnitRepel;
/* Create a new location from the destination vector */
lDest = Location( GetArea( oEnteringPC ), vDest, GetFacingFromLocation( lOrigin ) );
/* Warp PC to new location */
AssignCommand( oEnteringPC, ClearAllActions() );
AssignCommand( oEnteringPC, JumpToLocation( lDest ) );
}

-Modal