DMH-Online

NWScript:

void main()
{
    /*
     * Full-Edge Area Transition
     * -------------------------
     * Based on The Mighty Teleport Script from Richard Conner
     * Jonathan Warrington
     *
     * Usage
     * -----
     * This is attached to the OnClick event of a GenericTrigger
     * Two properties need to be modified to your areas.  First,
     * the GetObjectByTag line, fill in the tag of your trigger,
     * that's in the destination area.  Second, make sure the
     * appropriate vDest is uncommented.
     */
    //Get the PC that just clicked on the transition
    object oClicker = GetClickingObject();
    //Get the location of the PC
    location lLoc = GetLocation( oClicker );
    //Get the PC's postion
    vector vEnter = GetPositionFromLocation( lLoc );
    //The Trigger that's in the destination area
    object oTran = GetObjectByTag( "Area2Tran" );
    //Get the destination area
    object oDestArea = GetArea( oTran );
    //Get the postition of the trigger
    vector lTranVec = GetPositionFromLocation( GetLocation( oTran ) );
    //Calculates the destination postition (Uncomment either
    //the east / west or the north / south one.
    /*East / West Transition*/
    //vector vDest=Vector( lTranVec.x, vEnter.y );
    /*North / South Transition*/
    vector vDest=Vector( vEnter.x, lTranVec.y );

    //Get the PC's facing
    float fFacing = GetFacingFromLocation( lLoc );
    //Create a new Location to place the PC in
    location locNew = Location( oDestArea, vDest, fFacing );
    //Clear all PC actions, (Stop walking) and then jump
    //to the new location.
    AssignCommand( oClicker, ClearAllActions() );
    AssignCommand( oClicker, JumpToLocation( locNew ) );
}