``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); var P: TPlayObject; begin //加入队伍 P := Gamelib.FindPlayer('张三'); if P <> nil then begin //JoinGroup时,如果双方都没有队伍,则调用JoinGroup函数的角色为队长 //如果对方为队长,则调用JoinGroup函数的角色加入对方的队伍 //JoinGroup第二个参数为是否显示对话框,如果为false,则直接加入队伍,如果为true,则 //对方会收到组队邀请或申请 Player.JoinGroup(P, False{是否显示对话框}); end; //离开队伍 Player.LeaveGroup; //如果Player是队长则队伍解散 end; ```