判断队伍信息procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);var I: Integer; P: TPlayObject; S: String;begin if Player.GroupOwner nil then //如果存在队长 begin S := ; /FONT for I := 0 to Player.…
procedure PlayerOnLogin(Npc: TNormNpc; Player: TPlayObject); //该函数定义位于系统固定NPC\ManagerNpc中,角色登陆将触发该函数begin if Player.NewHuman then //如果角色是新人 begin Npc.Give(Player, 乌木剑); //给乌木剑1把 Npc…