``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); var I: Integer; begin I := Player.GetItemCount('蜡烛'); if I > 0 then Npc.MessageBox(Player, '你一共有'+IntToStr(I)+'根蜡烛') else Npc.MessageBox(Player, '你没有蜡烛'); end; ```