``` //采用系统提供的函数 procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Gamelib.RecallMap('0', '3'); end; //循环在线玩家分别传送 procedure Main1(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); var I: Integer; AMap:TEnvirnoment; begin AMap := Gamelib.FindMap('0'); if AMap <> nil then begin for I := 0 to Gamelib.PlayCount - 1 do begin if not Gamelib.Player[I].Death{没有在死亡状态} and not Gamelib.Player[I].Ghost{没有处于死亡后的清理状态} and (Gamelib.Player[I].Map = AMap) then begin Gamelib.Player[I].RandomMove('3'); //Gamelib.Player[I].MapMove('3', 333, 333); //指定地点的传送 end; end; end; end; ```