function AG_OnLoad(self) self:RegisterEvent("CHAT_MSG_GUILD_ACHIEVEMENT") self:RegisterEvent("CHAT_MSG_ACHIEVEMENT") self:RegisterEvent("CHAT_MSG_PARTY") self:RegisterEvent("CHAT_MSG_SYSTEM") self:RegisterEvent("CHAT_MSG_SYSTEM") self:RegisterEvent("GUILD_ROSTER_UPDATE") --slash commands SlashCmdList["AG"] = AG_Command; SLASH_AG1 = "/ag"; SLASH_AG2 = "/autogratzer"; if(AG_GratsMessage == nil)then AG_GratsMessage="Gratzzz"; AG_Print("Grats message set to: Gratzzz"); AG_LastMessage = 1; end if(AG_GuildJoinMessageToggle == nil)then AG_GuildJoinMessageToggle = False; end if(AG_Guild == nil)then AG_Guild = true; end if(AG_Say == nil)then AG_Say = true; end if(AG_Party == nil)then AG_Party = false; end if(AG_Delay == nil)then AG_Delay=0; end if(AG_GroupingTime == nil)then AG_GroupingTime=6000; end if(AG_GuildDisabledOverride == nil)then AG_GuildDisabledOverride = false; end if(AG_GuildWelcomeMessage == nil)then AG_GuildWelcomeMessage = "Welcome :D"; end AG_SetupOptionsUI(); AG_Print("AG Enabled"); end function AG_SetupOptionsUI() AutoGratzer = {}; AutoGratzer.ui = {}; AutoGratzer.ui.panel = CreateFrame( "Frame", "AutoGratzerPanel", InterfaceOptionsFramePanelContainer ); AutoGratzer.ui.panel.name = "AutoGratzer"; --Guild Check Button AutoGratzer.ui.guildCheckButton = CreateFrame("CheckButton","AG_GuildCheckButton",AutoGratzer.ui.panel,"UICheckButtonTemplate") --frameType, frameName, frameParent, frameTemplate AutoGratzer.ui.guildCheckButton:SetPoint("TOPLEFT",20,-20) AutoGratzer.ui.guildCheckButton.text:SetText("Guild Gratzing") AutoGratzer.ui.guildCheckButton:SetScript("OnShow", function(self,event,arg1) self:SetChecked(AG_Guild); end) AutoGratzer.ui.guildCheckButton:SetScript("OnClick", function(self,event,arg1) AG_ToggleGuild(); end) --Party Check Button AutoGratzer.ui.partyCheckButton = CreateFrame("CheckButton","AG_PartyCheckButton",AutoGratzer.ui.panel,"UICheckButtonTemplate") --frameType, frameName, frameParent, frameTemplate AutoGratzer.ui.partyCheckButton:SetPoint("TOPLEFT",20,-40) AutoGratzer.ui.partyCheckButton.text:SetText("Party Gratzing") AutoGratzer.ui.partyCheckButton:SetScript("OnShow", function(self,event,arg1) self:SetChecked(AG_Party); end) AutoGratzer.ui.partyCheckButton:SetScript("OnClick", function(self,event,arg1) AG_ToggleParty(); end) --Say Check Button AutoGratzer.ui.sayCheckButton = CreateFrame("CheckButton","AG_SayCheckButton",AutoGratzer.ui.panel,"UICheckButtonTemplate") --frameType, frameName, frameParent, frameTemplate AutoGratzer.ui.sayCheckButton:SetPoint("TOPLEFT",20,-60) AutoGratzer.ui.sayCheckButton.text:SetText("Say Gratzing") AutoGratzer.ui.sayCheckButton:SetScript("OnShow", function(self,event,arg1) self:SetChecked(AG_Say); end) AutoGratzer.ui.sayCheckButton:SetScript("OnClick", function(self,event,arg1) AG_ToggleSay(); end) --Guild Welcome Check Button AutoGratzer.ui.guildWelcomeCheckButton = CreateFrame("CheckButton","AG_GuildWelcomeCheckButton",AutoGratzer.ui.panel,"UICheckButtonTemplate") --frameType, frameName, frameParent, frameTemplate AutoGratzer.ui.guildWelcomeCheckButton:SetPoint("TOPLEFT",20,-100) AutoGratzer.ui.guildWelcomeCheckButton.text:SetText("New Guild Member Welcoming") AutoGratzer.ui.guildWelcomeCheckButton:SetScript("OnShow", function(self,event,arg1) self:SetChecked(AG_GuildJoinMessageToggle); end) AutoGratzer.ui.guildWelcomeCheckButton:SetScript("OnClick", function(self,event,arg1) AG_ToggleGuildWelcome(); end) --Delay Slider AutoGratzer.ui.delaySlider = CreateBasicSlider(AutoGratzer.ui.panel, "AG_DelaySlider", "Delay in milliseconds before sending the message", 0, 60000, 100); AutoGratzer.ui.delaySlider:HookScript("OnValueChanged", function(self,value) AG_Delay = floor(value) end) AutoGratzer.ui.delaySlider:HookScript("OnShow", function(self,value) self:SetValue(AG_Delay); self.editbox:SetNumber(AG_Delay); end) AutoGratzer.ui.delaySlider.editbox:SetScript("OnShow", function(self,event,arg1) self:SetNumber(AG_Delay); end) AutoGratzer.ui.delaySlider:SetPoint("TOPRIGHT",-120,-20) --Grouping Slider AutoGratzer.ui.groupingSlider = CreateBasicSlider(AutoGratzer.ui.panel, "AG_GroupingSlider", "Delay in milliseconds after a message is sent that it won't send another", 0, 60000, 100); AutoGratzer.ui.groupingSlider:HookScript("OnValueChanged", function(self,value) AG_GroupingTime = floor(value) end) AutoGratzer.ui.groupingSlider:HookScript("OnShow", function(self,value) self:SetValue(AG_GroupingTime); self.editbox:SetNumber(AG_GroupingTime); end) AutoGratzer.ui.groupingSlider.editbox:SetScript("OnShow", function(self,event,arg1) self:SetNumber(AG_GroupingTime); end) AutoGratzer.ui.groupingSlider:SetPoint("TOPRIGHT",-120,-100) --AutoGratzer.ui.delayLabel = AutoGratzer.ui.panel:CreateFontString(nil,"OVERLAY","GameFontNormal", 200,200) --AutoGratzer.ui.delayLabel:SetText("delay") --AutoGratzer.ui.delayEditBox = CreateFrame("EditBox","AG_DelayEditBox",AutoGratzer.ui.panel,"InputBoxTemplate") --frameType, frameName, frameParent, frameTemplate --AutoGratzer.ui.delayEditBox:SetSize(50,30) -- AutoGratzer.ui.delayEditBox:ClearAllPoints() --AutoGratzer.ui.delayEditBox:SetPoint("TOPLEFT",120,-120) -- AutoGratzer.ui.delayEditBox:SetText("test"); -- AutoGratzer.ui.delayEditBox:SetAutoFocus(false) --AutoGratzer.ui.delayEditBox.text:SetText("Delay(ms)") --AutoGratzer.ui.delayEditBox:SetScript("OnShow", function(self,event,arg1) --self:SetChecked(AG_Say); --end) --Grats Message AutoGratzer.ui.gratsMessageEditBox = CreateFrame("EditBox", "AG_GratsMessage", AutoGratzer.ui.panel, "InputBoxTemplate") AutoGratzer.ui.gratsMessageEditBox:SetSize(500,30) AutoGratzer.ui.gratsMessageEditBox:SetMultiLine(false) AutoGratzer.ui.gratsMessageEditBox:ClearAllPoints() AutoGratzer.ui.gratsMessageEditBox:SetPoint("TOPLEFT",20,-180) AutoGratzer.ui.gratsMessageEditBox:SetCursorPosition(0); AutoGratzer.ui.gratsMessageEditBox:ClearFocus(); AutoGratzer.ui.gratsMessageEditBox:SetAutoFocus(false) AutoGratzer.ui.gratsMessageEditBox:SetScript("OnShow", function(self,event,arg1) self:SetText(AG_GratsMessage) self:SetCursorPosition(0); self:ClearFocus(); end) AutoGratzer.ui.gratsMessageEditBox:SetScript("OnTextChanged", function(self,value) AG_GratsMessage = self:GetText() end) AutoGratzer.ui.gratsMessageLabel = CreateBasicFontString(AutoGratzer.ui.gratsMessageEditBox,"AG_GratsMessageLabel","OVERLAY","GameFontNormal","Grats Message"); AutoGratzer.ui.gratsMessageLabel:SetPoint("BOTTOMLEFT", AutoGratzer.ui.gratsMessageEditBox, "TOPLEFT", 0, 0) --Welcome to Guild Message AutoGratzer.ui.guildWelcomeMessageEditBox = CreateFrame("EditBox", "AG_GuildWelcomeMessage", AutoGratzer.ui.panel, "InputBoxTemplate") AutoGratzer.ui.guildWelcomeMessageEditBox:SetSize(500,30) AutoGratzer.ui.guildWelcomeMessageEditBox:SetMultiLine(false) AutoGratzer.ui.guildWelcomeMessageEditBox:ClearAllPoints() AutoGratzer.ui.guildWelcomeMessageEditBox:SetPoint("TOPLEFT",20,-240) AutoGratzer.ui.guildWelcomeMessageEditBox:SetCursorPosition(0); AutoGratzer.ui.guildWelcomeMessageEditBox:ClearFocus(); AutoGratzer.ui.guildWelcomeMessageEditBox:SetAutoFocus(false) AutoGratzer.ui.guildWelcomeMessageEditBox:SetScript("OnShow", function(self,event,arg1) self:SetText(AG_GuildWelcomeMessage) self:SetCursorPosition(0); self:ClearFocus(); end) AutoGratzer.ui.guildWelcomeMessageEditBox:SetScript("OnTextChanged", function(self,value) AG_GuildWelcomeMessage = self:GetText() end) AutoGratzer.ui.guildWelcomeMessageLabel = CreateBasicFontString(AutoGratzer.ui.guildWelcomeMessageEditBox,"AG_GuildWelcomeMessageLabel","OVERLAY","GameFontNormal","Guild Welcome Message"); AutoGratzer.ui.guildWelcomeMessageLabel:SetPoint("BOTTOMLEFT", AutoGratzer.ui.guildWelcomeMessageEditBox, "TOPLEFT", 0, 0) InterfaceOptions_AddCategory(AutoGratzer.ui.panel); end function AG_GetCmd(msg) if msg then local a=(msg); --contiguous string of non-space characters if a then return msg else return ""; end end end function AG_ShowHelp() print("AutoGratzer usage:"); print("'/ag' or '/ag options' to show options ui"); print("'/ag {msg}' or '/autogratzer {msg}'"); print("'/ag delay {delay}' or '/autogratzer {delay}', with delay in milliseconds to set delay"); print("'/ag guild' or '/autogratzer guild' to enable/disable guild gratzing"); print("'/ag say' or '/autogratzer say' to enable/disable say gratzing"); print("'/ag party' or '/autogratzer party' to enable/disable say gratzing"); end function AG_ToggleGuild() if(AG_Guild) then AG_Guild = false; AG_Print("Guild gratzing now off"); else AG_Guild = true; AG_Print("Guild gratzing now on"); end; AutoGratzer.ui.guildCheckButton:SetChecked(AG_Guild); end function AG_ToggleSay() if(AG_Say) then AG_Say = false; AG_Print("Say gratzing now off"); else AG_Say = true; AG_Print("Say gratzing now on"); end; AutoGratzer.ui.sayCheckButton:SetChecked(AG_Say); end function AG_ToggleParty() if(AG_Party) then AG_Party = false; AG_Print("Party gratzing now off"); else AG_Party = true; AG_Print("Party gratzing now on"); end; AutoGratzer.ui.partyCheckButton:SetChecked(AG_Party); end function AG_ToggleGuildWelcome() if(AG_GuildJoinMessageToggle) then AG_GuildJoinMessageToggle = false; AG_Print("New guild member welcoming now off"); else AG_GuildJoinMessageToggle = true; AG_Print("New guild member welcoming now on"); end; AutoGratzer.ui.guildWelcomeCheckButton:SetChecked(AG_GuildJoinMessageToggle); end function AG_SetDelay(delay) if(delay ~= nill)then AG_Delay = tonumber(delay); AG_Print("Grats message delay set to: " ..delay.."ms"); else AG_Print("Provide a number in milliseconds, eg '/ag delay 5000' for 5 seconds"); end end function AG_Command(msg) local Cmd, SubCmd = AG_GetCmd(msg); if (Cmd == "")then --If the interface options aren't already loaded this doesn't work fully(just opens to non addons tab) --but apparently if you call it twice it works fine! InterfaceOptionsFrame_OpenToCategory(AutoGratzer.ui.panel); InterfaceOptionsFrame_OpenToCategory(AutoGratzer.ui.panel); elseif (Cmd == "help")then AG_ShowHelp(); elseif (Cmd == "options")then InterfaceOptionsFrame_OpenToCategory(AutoGratzer.ui.panel); InterfaceOptionsFrame_OpenToCategory(AutoGratzer.ui.panel); elseif (Cmd == "guild")then AG_ToggleGuild(); elseif (Cmd == "say")then AG_ToggleSay(); elseif (Cmd == "party")then AG_ToggleParty(); elseif (Cmd == "guildwelcome")then AG_ToggleGuildWelcome(); elseif (string.find(Cmd,"delay") == 1)then AG_SetDelay(string.match(Cmd,"%d+")); else AG_GratsMessage = Cmd; AG_Print("Grats message set to: " .. Cmd); end end function AG_OnEvent(self,event,arg1,arg2) if(event == "GUILD_ROSTER_UPDATE")then AG_CheckOverride(); return end if(AG_GratsMessage == nil)then AG_GratsMessage="Gratzzz"; end if(not AG_IsMe(arg2))then if(event == "CHAT_MSG_GUILD_ACHIEVEMENT" and not AG_GuildDisabledOverride)then AG_DoGrats("GUILD"); elseif(event == "CHAT_MSG_ACHIEVEMENT")then AG_DoGrats("SAY"); elseif(event == "CHAT_MSG_ACHIEVEMENT")then AG_DoGrats("PARTY"); elseif(event == "CHAT_MSG_SYSTEM" and not AG_GuildDisabledOverride) then if(arg1 ~= nil) then if(string.find(arg1,"has joined the guild.")) then AG_GuildWelcome(); end end end end end function AG_DoGrats(source) if((source == "SAY" and AG_Say == true) or (source == "GUILD" and AG_Guild == true) or (source == "PARTY" and AG_Party == true)) then CurTime=GetTime(); if (AG_LastMessage == nil) then AG_LastMessage = 1; end if((CurTime - AG_LastMessage) > (AG_GroupingTime/1000))then AG_LastMessage = GetTime(); if(AG_Delay > 0)then C_Timer.After((AG_Delay/1000), function() SendChatMessage(AG_GratsMessage, source); end) else SendChatMessage(AG_GratsMessage, source); end end end end function AG_GuildWelcome() --Testing, enable if you know what your doing... if(AG_GuildJoinMessageToggle and (GetTime() - AG_LastMessage > (AG_GroupingTime/1000)))then AG_LastMessage = GetTime(); if(AG_Delay > 0)then C_Timer.After((AG_Delay/1000), function() SendChatMessage("Welcome :)", "GUILD"); end) else SendChatMessage(AG_GuildWelcomeMessage, "GUILD"); end end end function AG_IsMe(nameString) local name,server = split(nameString,"-") local myName, myServer = UnitName("player") if(myServer == nil)then myServer = GetRealmName(); end if(server == nil and name == myName)then return true; elseif(server ~= nil and name == myName and server == myServer)then return true; else return false; end end function AG_CheckOverride() local myName = UnitName("player") for index=1, GetNumGuildMembers() do local name,_,_,_,_,_,note = GetGuildRosterInfo(index) if AG_IsMe(name) then note = note:lower() if note:match("noag") then AG_GuildDisabledOverride = true; return true; else AG_GuildDisabledOverride = false; return false; end break end end return false; end function AG_Print(msg) print("\124cffffFF00[AG]\124r",msg); end function split(str, pat) local t = {} -- NOTE: use {n = 0} in Lua-5.0 local fpat = "(.-)" .. pat local last_end = 1 local s, e, cap = str:find(fpat, 1) while s do if s ~= 1 or cap ~= "" then table.insert(t,cap) end last_end = e+1 s, e, cap = str:find(fpat, last_end) end if last_end <= #str then cap = str:sub(last_end) table.insert(t, cap) end return unpack(t) end function CreateBasicFontString(parent, name, layer, template, text) local fs = parent:CreateFontString(name,layer,template) fs:SetText(text) return fs end function CreateBasicSlider(parent, name, title, minVal, maxVal, valStep) local slider = CreateFrame("Slider", name, parent, "OptionsSliderTemplate") local editbox = CreateFrame("EditBox", "$parentEditBox", slider, "InputBoxTemplate") slider:SetMinMaxValues(minVal, maxVal) slider:SetValue(minVal) slider:SetValueStep(1) slider.text = _G[name.."Text"] slider.text:SetText(title) slider.textLow = _G[name.."Low"] slider.textHigh = _G[name.."High"] slider.textLow:SetText(floor(minVal)) slider.textHigh:SetText(floor(maxVal)) slider.textLow:SetTextColor(0.4,0.4,0.4) slider.textHigh:SetTextColor(0.4,0.4,0.4) editbox:SetSize(50,30) editbox:SetNumeric(true) editbox:SetMultiLine(false) editbox:SetMaxLetters(5) editbox:ClearAllPoints() editbox:SetPoint("TOP", slider, "BOTTOM", 0, -5) editbox:SetNumber(slider:GetValue()) editbox:SetCursorPosition(0); editbox:ClearFocus(); editbox:SetAutoFocus(false) slider:SetScript("OnValueChanged", function(self,value) self.editbox:SetNumber(floor(value)) if(not self.editbox:HasFocus())then self.editbox:SetCursorPosition(0); self.editbox:ClearFocus(); end end) editbox:SetScript("OnTextChanged", function(self) local value = self:GetText() if tonumber(value) then if(floor(value) > maxVal)then self:SetNumber(maxVal) end if floor(self:GetParent():GetValue()) ~= floor(value) then self:GetParent():SetValue(floor(value)) end end end) editbox:SetScript("OnEnterPressed", function(self) local value = self:GetText() if tonumber(value) then self:GetParent():SetValue(floor(value)) self:ClearFocus() end end) slider.editbox = editbox return slider end