``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin if Player.IsGuildMaster then begin Npc.MessageBox(Player, '你是行会掌门人'); end; end; ```