``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin if Player.ISGroupMaster then //如果没有加入任何队伍则返回False begin Npc.MessageBox(Player, '你是队长'); end; end; ```