【密语自动组人宏】当现实密语组团开的时候,密语你110,则自动组对方,关于密语内容可自行修改。如密语对方为你的实名好友,此宏无效。
/run F=F or CreateFrame("frame")F:RegisterEvent("CHAT_MSG_WHISPER")if X then X=nil else X=function(_,_,a,b)if a=="110"then InviteUnit(b)end if not UnitInRaid("player")then ConvertToRaid()end end end F:SetScript("OnEvent",X)print(X and"密语组队开"or"密语组队关")
【战网版密语自动组人宏】
/run FB=FB or CreateFrame("Frame")FB:RegisterEvent("CHAT_MSG_BN_WHISPER")if B then print("关")B=nil else print("开")B=function(_,_,m,_,_,_,_,_,_,_,_,_,_,_,p)if m=="110"then _,n,_,s=BNGetToonInfo(p)InviteUnit(n.."-"..s)end end end FB:SetScript("OnEvent",B)
【战网实名密语宏修改版】修改实名和密语内容后按之,如果你不在队伍里则密语实名战网好友,如果你在队伍里则立即退组并密语
/run if IsInRaid()or UnitInParty("player")then LeaveParty()else PID=GetAutoCompletePresenceID("实名")BNSendWhisper(PID,"密语内容")end
【进组宏】上线按一次后,别人组你,你会直接进组(配合上宏刷惑龙)
/run AE=AE or CreateFrame("Frame")AE:RegisterEvent("PARTY_INVITE_REQUEST")if E then print("关闭自动进组")E=nil else print("开启自动进组")E=function()StaticPopup1Button1:Click()end end AE:SetScript("OnEvent",E)