``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin if Player.ISCastleGuild then begin Npc.MessageBox(Player, '你是沙城的成员'); end; end; ```