ThinkSSL🔒 一键申购 5分钟快速签发 30天无理由退款 购买更放心 广告
``` 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.GroupCount - 1 do //循环队伍里面的角色,Player.GroupCount为当前角色所在队伍的人数(包含当前角色) begin P := Player.Group[I]; //取出一个角色 if P <> nil then //如果角色不为空值 begin if S <> '' then S := S + ';'; S := S + Format('职业:%d,等级:%d,名称:%s', [P.Job, P.Level, P.Name]); //将当前角色的信息拼接到字符串 end; end; if S <> '' then Npc.MessageBox(Player, S); //如果字符串不为空则弹出对话框显示 end; end; ```