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[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.

范君

66666668

枫叶将故事染色

为保住菊花，这个一定得回复！

鼠精灵

66666668

枯萎的树叶

珍惜生命，果断回帖。

电脑技术员

很干净的论坛，不错！

中国必强网友

呵呵。。。不错啊

肆意愤青

回的人少，我来小顶一下！

朕知道了

支持，赞一个

云的衣裳

很干净的论坛，不错！