瑰石查看宏，让瑰石消费轻松一点，胜人一筹。
再次来自狮虎Chinester的作品，瑰石查看宏，上个图，就清晰明了了。
之前是不能用的。不知道金山什么时候开了nUild 于是就可以用了，改了一下成1010字节了。
使用了宏以后。
/script sv2=sv2 or nil
local s1,s2="打开","关闭."
local ms=function(str) OutputMessage("MSG_SYS","瑰石查看宏已"..str.."\n") end
st_oit=function (i,p1,p2,bb,x,y) OutputItemTip(UI_OBJECT_ITEM_INFO,0,p1,p2,{x+200,y,1,1},bb) end
if sv2 then
sv2b=not sv2b
if sv2b then ms(s1) else ms(s2) end
else
sv2=AuctionPanel.OnItemMouseEnter
function AuctionPanel.OnItemMouseEnter()
sv2()
if sv2b and this.nItemID then
local dt,n1,n2,n3=this:GetObject()
local cx,cy=this:GetAbsPos()
local nI =GetItemInfo(n2,n3)
local ns,ne =string.find(nI.szName,"瑰石")
if ns and ne then
local dsc=Table_GetItemDesc(nI.nUiId)
local m={x=cx+38,y=cy-12,szOption="",{szOption=nI.szName,fnMouseEnter=function(i) st_oit(i,n2,n3,false,cx,cy) end},{bDevide=true}}
local szs = string.gsub(dsc, "this\.dwTabType\=(%d+) this.dwIndex=(%d+) ",
function(nit,nid)
local itm=GetItemInfo(nit,nid)
table.insert(m,{szOption=itm.szName,fnMouseEnter=function(i) st_oit(i,nit,nid,false,cx,cy) end})
end)
HideTip()
PopupMenu(m)
end
end
end
sv2b=true
ms(s1)
end
