---

//==============================================================================
// Bored of your life? try another!
// Coded by .:..:/Eliot

class Setmonster extends mutator

Exec Function SetMonster( string ID, int PhysicsType, string MonClass )
{
        local class<Pawn> M;
        local Pawn P;
        local array<Controller> C;
        local PlayerController PC;
        local int i;
        local vector SpawnPoint;
        local string S;

        M = Class<Pawn>(DynamicLoadObject(MonClass,Class'Class'));
        if( M==None )
        {
                ClientMessage("Unknown pawn class '"$MonClass$"'");
                Return;
        }
        C = SearchPlayers( ID, S );
        if( !CheckControllers( C, True ) )return;
        for( i = 0; i < C.Length; i ++ )
        {
                PC = PlayerController(C[i]);
                if( PC == None )return;
                if( PC.Pawn==None )
                        SpawnPoint = C[i].Location;
                else
                {
                        SpawnPoint = PC.Pawn.Location;
                        PC.Pawn.Destroy();
                }
                P = Spawn(M,,,SpawnPoint);
                if( P==None )
                {
                        ClientMessage("Failed to spawn that pawn there.");
                        Return;
                }
                if( P.Controller!=None )
                {
                        P.Controller.Pawn = None;
                        P.Controller.Destroy();
                }
                P.Controller = PC;
                PC.Pawn = P;
                PC.SetViewTarget(P);
                PC.CleanOutSavedMoves();
                P.PossessedBy( PC );
                if( !P.IsA('U1Pawns') )
                        P.PlayerReplicationInfo = None;
                if( PhysicsType~=1 )
                        PC.GoToState('PlayerFlying');
                else if( PhysicsType==2 )
                        PC.GoToState('PlayerSpidering');
                else PC.GoToState('PlayerWalking');
        }
        ClientMessage("Successfully made"@S@"into"@P.Class);
}

---