>[danger] 注：可以根据放入的物品实现类似成功几率的计算 ``` procedure OnWinUpdate(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin if Player.CustomItemCount = 0 then Player.UpdateSay('宝石进阶', '请放入需要进阶的宝石') else Player.UpdateSay('宝石进阶', '点击确定按钮执行宝石进阶'); end; ```