Auto Responder menu

These ads disappear when you log in.

Results 1 to 1 of 1
  1. #1
    Matt's Avatar Legendary Authenticator enabled
    Reputation
    631
    Join Date
    Feb 2006
    Posts
    2,947
    Thanks G/R
    2/18
    Trade Feedback
    0 (0%)

    Auto Responder

    Download addons and put in interface:

    Autorespond
    http://ui.worldofwar.net/ui.php?id=2326

    Ace
    http://ui.worldofwar.net/ui.php?id=1108

    Timex
    http://www.curse-gaming.com/mod.php?addid=1733

    Open up AutoRespond.lua and replace all with this code

    Code:
    AutoRespondOptions = {}; 
    local Realm; 
    local Player; 
     
    local VariablesLoaded = nil; 
    local Initialized = nil; 
     
    local ActiveOption = 1; 
    local AR_Version= "1.41"; 
    local AR_DefaultOptions = {Status = 0, Keyword = AUTO_RESPOND_DEFAULT_KEYWORD_TEXT, Response = {AUTO_RESPOND_DEFAULT_RESPONSE_TEXT}, System = 0}; 
     
    local Blizzard_OldSetItemRef = function() end; 
     
    function AutoRespond_OnLoad() 
    this:RegisterEvent("CHAT_MSG_WHISPER"); 
    this:RegisterEvent("PLAYER_ENTERING_WORLD"); 
    this:RegisterEvent("VARIABLES_LOADED"); 
    this:RegisterEvent("CHAT_MSG_TEXT_EMOTE"); 
     
    SlashCmdList["AUTORESPOND"] = AutoRespond_SlashHandler; 
    SLASH_AUTORESPOND1 = "/AutoRespond"; 
    SLASH_AUTORESPOND2 = "/ar"; 
     
    ChatFrame_OnEvent_NotAntiEmoteSpam = ChatFrame_OnEvent; 
    ChatFrame_OnEvent = ChatFrame_OnEvent_AntiEmoteSpam; 
    xmin = ""; 
    lastemote = ""; 
    lastlastemote = ""; 
    p1 = ""; 
     
    AutoRespond_KeywordLabel:SetText(AUTO_RESPOND_KEYWORD_LABEL_TEXT); 
    AutoRespond_ResponseLabel:SetText(AUTO_RESPOND_RESPONSE_LABEL_TEXT); 
    AutoRespond_SelectBefore:SetText(AUTO_RESPOND_SELECT_BEFORE_TEXT); 
    AutoRespond_SelectNext:SetText(AUTO_RESPOND_SELECT_NEXT_TEXT); 
    AutoRespond_AddRespond:SetText(AUTO_RESPOND_ADD_BUTTON_TEXT); 
    AutoRespond_DeleteRespond:SetText(AUTO_RESPOND_DELETE_BUTTON_TEXT); 
    AutoRespond_LinkButton:SetText(AUTO_RESPOND_LINK_BUTTON_TEXT); 
    AutoRespond_ReagentButton:SetText(AUTO_RESPOND_REAGENT_BUTTON_TEXT); 
    AutoRespond_SaveButton:SetText(AUTO_RESPOND_SAVE_BUTTON_TEXT); 
    AutoRespond_ExitButton:SetText(AUTO_RESPOND_EXIT_BUTTON_TEXT); 
    getglobal(AutoRespond_StatusButton:GetName().."Text"):SetText(AUTO_RESPOND_STATUS_BUTTON_TEXT); 
    getglobal(AutoRespond_SystemButton:GetName().."Text"):SetText(AUTO_RESPOND_SYSTEM_BUTTON_TEXT); 
    end 
     
    function AutoRespond_InitializeSetup() 
    if Initialized or (not VariablesLoaded) then 
    return; 
    end 
    Player = UnitName("player"); 
    Realm = GetRealmName(); 
    if AutoRespondOptions == nil then AutoRespondOptions = {} end; 
    if(AutoRespondOptions[Realm] == nil) then AutoRespondOptions[Realm] = {} end; 
    if(AutoRespondOptions[Realm][Player] == nil) then AutoRespondOptions[Realm][Player] = {AR_DefaultOptions} end; 
     
    if Sea then 
    Sea.util.hook("SetItemRef", "MySetItemRef", "after"); 
    else 
    Blizzard_OldSetItemRef = SetItemRef; 
    SetItemRef = MySetItemRef; 
    end 
     
    DEFAULT_CHAT_FRAME:AddMessage(string.format(AUTO_RESPOND_LOADED_TEXT,AR_Version)); 
     
    Initialized = 1; 
    end 
     
    function AutoRespond_OnEvent(event) 
    if(event == "CHAT_MSG_WHISPER") then 
    local what = arg1; 
    local who = arg2; 
    local respond = AutoRespond_CheckMessage(what,1); 
    while respond > 0 do 
    AutoRespond_Respond(who,respond); 
    respond = AutoRespond_CheckMessage(what,respond+1); 
    end 
    elseif(event == "VARIABLES_LOADED") then 
    VariablesLoaded = 1; 
    else 
    AutoRespond_InitializeSetup(); 
    end 
    end 
     
    function AutoRespond_OnShow() 
    AutoRespond_SetRespond(); 
    end 
     
    function MySetItemRef(link,text,button) 
    local ret = Blizzard_OldSetItemRef(link,text,button); 
     
    if ( IsShiftKeyDown() ) and ( AutoRespond_FrameText:IsVisible() ) then 
    AutoRespond_FrameText:Insert(text); 
    end 
     
    return ret; 
    end 
     
    function AutoRespond_SlashHandler(msg) 
    AutoRespondFrame:Show(); 
    end 
     
    function AutoRespond_CheckMessage(what,index) 
    local t = AutoRespondOptions[Realm][Player]; 
    for i=index,getn(t) do 
    if t[i]["Status"] == 1 then 
    if string.find(string.lower(what), t[i]["Keyword"], 1, true) then 
    return i; 
    end 
    end 
    end 
    return 0; 
    end 
     
    function AutoRespond_GetOption(option) 
    if(AutoRespondOptions[Realm][Player][ActiveOption]) then return AutoRespondOptions[Realm][Player][ActiveOption][option] end; 
    return AR_DefaultOptions[option]; 
    end 
     
    function AutoRespond_GetResponse(number) 
    local t = nil; 
    if(AutoRespondOptions[Realm][Player][number]["Response"] ~= nil) then 
    t = AutoRespondOptions[Realm][Player][number]["Response"]; 
    end 
    return t; 
    end 
     
    function AutoRespond_Respond(who,number) 
    local t = AutoRespond_GetResponse(number); 
    if t == nil then return; end 
    if AutoRespondOptions[Realm][Player][number]["System"] == 1 then 
    for i=1,getn(t) do 
    RunScript(string.gsub(t[i],"$t","'"..who.."'")); 
    end 
    else 
    for i=1,getn(t) do 
    local randtime1; 
    randtime1 = random(5,10) 
    Timex:AddNamedSchedule("Reply", randtime1, nil, 1, SendChatMessage, string.gsub(t[i],"$t",who), "WHISPER", GetDefaultLanguage("player"), who); 
    end 
    end 
    end 
     
    function AutoRespond_AddDefault() 
    table.insert(AutoRespondOptions[Realm][Player],{Status = 0, Keyword = AUTO_RESPOND_DEFAULT_KEYWORD_TEXT, Response = {AUTO_RESPOND_DEFAULT_RESPONSE_TEXT}, System = 0}); 
    DEFAULT_CHAT_FRAME:AddMessage(AUTO_RESPOND_ADD_NEW_TEXT); 
    ActiveOption = getn(AutoRespondOptions[Realm][Player]); 
    AutoRespond_SetRespond(); 
    end 
     
    function AutoRespond_ClearRespond() 
    local index = getn(AutoRespondOptions[Realm][Player]); 
    if index >= ActiveOption and index > 0 then 
    AutoRespond_ClearResponse(); 
    table.remove(AutoRespondOptions[Realm][Player],ActiveOption); 
    DEFAULT_CHAT_FRAME:AddMessage(AUTO_RESPOND_DELETED_TEXT); 
    if(ActiveOption == index) then 
    ActiveOption = ActiveOption - 1;  
    end 
    AutoRespond_SetRespond(); 
    else 
    DEFAULT_CHAT_FRAME:AddMessage(AUTO_RESPOND_EMPTY_LIST_TEXT); 
    end 
    end 
     
    function AutoRespond_ChangeRespond(number) 
    ActiveOption = number; 
    end 
     
    function AutoRespond_ClearResponse() 
    for i=1,getn(AutoRespondOptions[Realm][Player][ActiveOption]["Response"])+1 do 
    table.remove(AutoRespondOptions[Realm][Player][ActiveOption]["Response"]); 
    end 
    end 
     
    function AutoRespond_Save() 
    AutoRespond_SaveKeyword(); 
    AutoRespond_SaveResponse(); 
    DEFAULT_CHAT_FRAME:AddMessage(AUTO_RESPOND_SAVED_TEXT); 
    end 
     
    function AutoRespond_SaveKeyword() 
    local text = AutoRespond_Keyword:GetText(); 
    if(text ~= "") then 
    AutoRespondOptions[Realm][Player][ActiveOption]["Keyword"] = string.lower(text); 
    end 
    end 
     
    function AutoRespond_SaveResponse() 
    local text = AutoRespond_FrameText:GetText(); 
    AutoRespond_ClearResponse(); 
     
    if(text == "") then 
    return; 
    end 
     
    local pos = 1; 
    local endpos = 1; 
    while pos < string.len(text) do 
    endpos = string.find(text,"\n",pos); 
    if(endpos == nil) then 
    endpos = string.len(text); 
    else 
    endpos = endpos - 1; 
    end; 
    AutoRespond_SaveToLine(string.sub(text,pos,endpos)); 
    pos = endpos+2; 
    end 
    end 
     
    function AutoRespond_SaveToLine(line) 
    if(line ~= "") then 
    table.insert(AutoRespondOptions[Realm][Player][ActiveOption]["Response"],line); 
    end 
    end 
     
    function AutoRespond_UpdateResponse() 
    AutoRespond_FrameText:SetText(""); 
    if getn(AutoRespondOptions[Realm][Player]) == 0 then 
    return; 
    end 
    for i=1, getn(AutoRespondOptions[Realm][Player][ActiveOption]["Response"]) do 
    AutoRespond_FrameText:Insert(AutoRespondOptions[Realm][Player][ActiveOption]["Response"][i].."\n"); 
    end 
    end 
     
    function AutoRespond_SelectBeforeOnLoad() 
    if ActiveOption <= 1 then 
    this:Disable(); 
    end 
    end 
     
    function AutoRespond_SelectBeforeOnClick() 
    if ActiveOption > 1 then 
    ActiveOption = ActiveOption-1; 
    AutoRespond_SetRespond(); 
    else 
    DEFAULT_CHAT_FRAME:AddMessage(START_OF_LIST); 
    end 
    end 
     
    function AutoRespond_SelectNextOnLoad() 
    if ActiveOption >= getn(AutoRespondOptions[Realm][Player]) then 
    this:Disable(); 
    end 
    end 
     
    function AutoRespond_SelectNextOnClick() 
    if ActiveOption < getn(AutoRespondOptions[Realm][Player]) then 
    ActiveOption = ActiveOption+1; 
    AutoRespond_SetRespond(); 
    else 
    DEFAULT_CHAT_FRAME:AddMessage(END_OF_LIST); 
    end 
    end 
     
    function AutoRespond_Exit() 
    AutoRespondFrame:Hide(); 
    end 
     
    function AutoRespond_SetRespond() 
    if ActiveOption > 1 and getn(AutoRespondOptions[Realm][Player]) >= ActiveOption then 
    AutoRespond_SelectBefore:Enable(); 
    else 
    AutoRespond_SelectBefore:Disable(); 
    end 
     
    if ActiveOption < getn(AutoRespondOptions[Realm][Player]) and getn(AutoRespondOptions[Realm][Player]) > 1 then 
    AutoRespond_SelectNext:Enable(); 
    else 
    AutoRespond_SelectNext:Disable(); 
    end 
     
    AutoRespond_UpdateStatus(); 
    AutoRespond_UpdateSystem(); 
    AutoRespond_UpdateKeyword(); 
    AutoRespond_UpdateResponse(); 
    end 
     
    function AutoRespond_UpdateStatus() 
    if getn(AutoRespondOptions[Realm][Player]) == 0 then 
    AutoRespond_StatusButton:SetChecked(0); 
    return; 
    end 
    AutoRespond_StatusButton:SetChecked(AutoRespond_GetOption("Status")); 
    end 
     
    function AutoRespond_ToggleStatus() 
    AutoRespondOptions[Realm][Player][ActiveOption]["Status"] = this:GetChecked(); 
    end 
     
    function AutoRespond_UpdateSystem() 
    if getn(AutoRespondOptions[Realm][Player]) == 0 then 
    AutoRespond_SystemButton:SetChecked(0); 
    return; 
    end 
    AutoRespond_SystemButton:SetChecked(AutoRespond_GetOption("System")); 
    end 
     
    function AutoRespond_ToggleSystem() 
    AutoRespondOptions[Realm][Player][ActiveOption]["System"] = this:GetChecked(); 
    end 
     
    function AutoRespond_UpdateKeyword() 
    if getn(AutoRespondOptions[Realm][Player]) == 0 then 
    AutoRespond_Keyword:SetText(""); 
    return; 
    end 
    AutoRespond_Keyword:SetText(AutoRespondOptions[Realm][Player][ActiveOption]["Keyword"]); 
    end 
     
    function Auto_Respond_IncludeLink() 
    local temp = GetCraftSkillLine(1); 
    if temp then 
    local index = GetCraftSelectionIndex(); 
    if (index) and (index < GetNumCrafts()) then 
    local link = GetCraftItemLink(index); 
    if link then 
    AutoRespond_FrameText:Insert(link); 
    else 
    DEFAULT_CHAT_FRAME:AddMessage(AUTO_RESPOND_NO_LINK_ITEM); 
    end 
    end 
    else 
    local index = GetTradeSkillSelectionIndex(); 
    if index then 
    local link = GetTradeSkillItemLink(index); 
    if link then  
    AutoRespond_FrameText:Insert(link); 
    else 
    DEFAULT_CHAT_FRAME:AddMessage(AUTO_RESPOND_NO_LINK_ITEM); 
    end 
    else 
    DEFAULT_CHAT_FRAME:AddMessage(AUTO_RESPOND_NO_SELECTED_TRADESKILL); 
    end 
    end 
    end 
     
    function Auto_Respond_IncludeReagent() 
    local text = ""; 
    if GetCraftSkillLine(1) then 
    local index = GetCraftSelectionIndex(); 
    if (index) and (index < GetNumCrafts) then 
    for i=1,GetCraftNumReagents(index) do 
    local _,_,num = GetCraftReagentInfo(index,i); 
    text = text..num.."x"..GetCraftReagentItemLink(index,i)..";"; 
    end 
    end 
    else 
    local index = GetTradeSkillSelectionIndex(); 
    if (index) and (index < GetNumTradeSkills()) then 
    for i=1,GetTradeSkillNumReagents(index) do 
    local _,_,num = GetTradeSkillReagentInfo(index, i); 
    text = text..num.."x"..GetTradeSkillReagentItemLink(index, i)..";"; 
    end 
    end 
    end 
    if text ~= "" then 
    AutoRespond_FrameText:Insert(text); 
    end 
    end 
     
    function Auto_Respond_PromoteToChannel(index,channel,number) 
    if channel and index and (index <= getn(AutoRespondOptions[Realm][Player])) then 
    for i=1,getn(AutoRespondOptions[Realm][Player][index]["Response"]) do 
    if channel == "CHANNEL" and number then 
    local randtime2; 
    randtime2 = random(5,10) 
    Timex:AddNamedSchedule("Promote1", randtime2, nil, 1, SendChatMessage, AutoRespondOptions[Realm][Player][index]["Response"][i],channel,GetDefaultLanguage("player"),number); 
    else 
    local randtime3; 
    randtime3 = random(5,10) 
    Timex:AddNamedSchedule("Promote2", randtime3, nil, 1, SendChatMessage, AutoRespondOptions[Realm][Player][index]["Response"][i],channel,GetDefaultLanguage("player")); 
    end 
    end 
    end 
    end 
     
    function Auto_Respond_PromoteResponses(channel) 
    for i=1,getn(AutoRespondOptions[Realm][Player]) do 
    if AutoRespondOptions[Realm][Player][i]["System"] == 0 and AutoRespondOptions[Realm][Player][i]["Status"] == 1 then 
    local randtime4; 
    randtime4 = random(5,10) 
    Timex:AddNamedSchedule("Promote4", randtime4, nil, 1, SendChatMessage, AutoRespondOptions[Realm][Player][i]["Promote"],"CHANNEL",GetDefaultLanguage("player"),channel); 
    end 
    end 
    end 
     
    function ChatFrame_OnEvent_AntiEmoteSpam(event) 
    local hour,min=GetGameTime(); 
    if event=="CHAT_MSG_TEXT_EMOTE" and arg2~=UnitName("player") then 
    if min~=xmin and p1~=arg2 then 
    if p1~="" or p1~=arg2 then 
    p1 = arg2; 
    local x = math.random(13) 
    if (x == 1) then  
    emote = "wave" 
    elseif (x == 2) then 
    emote = "hello" 
    elseif (x == 3) then 
    emote = "cheer" 
    elseif (x == 4) then 
    emote = "yawn" 
    elseif (x == 5) then 
    emote = "smile" 
    elseif (x == 6) then 
    emote = "wave" 
    elseif (x == 7) then 
    emote = "clap" 
    elseif (x == 8) then 
    emote = "laugh" 
    elseif (x == 9) then 
    emote = "giggle" 
    elseif (x == 10) then 
    emote = "whistle" 
    elseif (x == 11) then 
    emote = "wave" 
    elseif (x == 12) then 
    emote = "Applaud"  
     
     
    elseif (x == 13) then 
    emote = "wave" 
    end; 
    xmin = min; 
    local randtime5; 
    randtime5 = random(5,8) 
    Timex:AddNamedSchedule("Emote", randtime5, nil, 1, DoEmote, emote); 
    else 
    p1 = ""; 
    end; 
    end; 
    end; 
    ChatFrame_OnEvent_NotAntiEmoteSpam(event, arg1, arg2, arg3, arg4, arg5, arg6, 
    arg7, arg8, arg9); 
    end

    These ads disappear when you log in.

Similar Threads

  1. [Addon] UPDATED World of Warcraft Auto-Responder [testers needed]
    By ev0 in forum World of Warcraft General
    Replies: 0
    Last Post: 01-29-2015, 05:21 PM
  2. auto-it? how does it work
    By Krazzee in forum World of Warcraft General
    Replies: 4
    Last Post: 06-22-2006, 02:28 AM
  3. Help with Auto-it!!
    By Krazzee in forum World of Warcraft General
    Replies: 7
    Last Post: 06-12-2006, 09:22 PM
  4. Auto rez, if u die u only lose 10%
    By bloodofwar in forum World of Warcraft Exploits
    Replies: 2
    Last Post: 05-20-2006, 04:08 PM
  5. Fishing Bot! (Auto-It)
    By janzi9 in forum World of Warcraft Bots and Programs
    Replies: 6
    Last Post: 05-18-2006, 10:23 PM
All times are GMT -5. The time now is 07:36 PM. Powered by vBulletin® Version 4.2.3
Copyright © 2019 vBulletin Solutions, Inc. All rights reserved. Digital Point modules: Sphinx-based search