скопируй в макрос это и нажми
/run wowiQC={} local x=CreateFrame("FRAME") x:RegisterEvent("QUEST_QUERY_COMPLETE") x:SetScript("OnEvent",function() GetQuestsCompleted(wowiQC) print("Data collected") end) QueryQuestsCompleted()

потом в другой макрос это и прожми

/run local r={26245,26247} for k=1,#r do if not wowiQC[r[k]] then print(r[k]) else print(r[k],'- выполнен') end end

если ты выполнял "Дипломатия прежде всего" то на "26247" будет написано выполнено