77M2引擎的传奇服务端地图传送脚本范例
地图传送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.Camp := 1; //分到阵营1
Gamelib.Player.MapMove('0', 300, 300); //传送到指定位置
end
else
begin
Gamelib.Player.Camp := 2; //分到阵营2
Gamelib.Player.MapMove('0', 600, 600); //传送到指定位置
end;
end;
end;
end.
66666668 为保住菊花，这个一定得回复！ 66666668 珍惜生命，果断回帖。 很干净的论坛，不错！ 呵呵。。。不错啊 回的人少，我来小顶一下！ 支持，赞一个 很干净的论坛，不错！