分享19任巨集 ver.2

/run T,F=T or 0,F or CreateFrame("frame")if X then X=nil else X=function()local r=3 p=(GetNumQuestLogEntries())t=GetTime()if t-T>r then s=(T/r)%p+1 QuestLogPushQuest(s)print("分享: "..(GetQuestLogTitle(s))) T=t end end end F:SetScript("OnUpdate",X)