``` unit Q2; interface uses Classes, SysUtils; procedure ReqReAlive(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); implementation procedure ReqReAlive(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); var APlayer: TPlayObject; begin APlayer := Gamelib.FindPlayer(Args.Str[0]); //找出想要复活的玩家 if (APlayer <> nil) and APlayer.Death then //如果找到玩家并且玩家已死亡 begin APlayer.ReAlive; //将玩家复活 APlayer.GoHome; //将玩家传送回城 end; end; end. ```