通知短信+运营短信,5秒速达,支持群发助手一键发送🚀高效触达和通知客户 广告
``` unit Q2; interface uses Classes, SysUtils; procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); implementation procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); var I: Integer; begin Player.RandomMove; //在当前玩家在所在的地图随机传送 Player.RandomMove('0'); //在地图名称为'0'的地图上随机传送 Player.RandomMoveEx(Player.Map); //在指定的地图对象上随机传送 Player.GuildMapMove('3', 600, 600); //行会成员传送到指定位置 Player.GroupMapMove('3', 300, 300); //编组成员传送到指定位置 //循环服务器全部玩家 for I := Gamelib.PlayCount - 1 downto 0 do begin //按奇偶序号分阵营(取模操作) if I mod 2 = 0 then begin Gamelib.Player[I].Camp := 1; //分到阵营1 Gamelib.Player[I].MapMove('0', 300, 300); //传送到指定位置 end else begin Gamelib.Player[I].Camp := 2; //分到阵营2 Gamelib.Player[I].MapMove('0', 600, 600); //传送到指定位置 end; end; end; end. ```