地图传送
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.
|
