vanilla-wow-addons – Rev 1
?pathlinks?
-- Addon: !AutoSave (version: 1.12.1)
-- Autor: Platine (e-mail: platine.wow@gmail.com)
-- Localization
local AS_Messages = {
loaded ="loaded.", -- loaded.
saved ="Saved the form.", -- Character saved.
active ="Enable AutoSave features", -- Enable AutoSave
confirme="View your record", -- Print confirmation
period ="Entry in the interval [sec]", -- Save-interval in [sec]
combat ="Save the output from the fight", -- Run on exit of combat
skill ="Sign in skills after promotion", -- Run on skill-up
quest ="Save this post", -- Run on quest completed
close ="Close", -- Close the window
AFK_on ="You are now AFK: Away from Keyboard", -- System message from event CHAT_MSG_SYSTEM
AFK_off ="You are no longer AFK." };
-- Global Variables
local AutoSave_LastTime = GetTime(); -- last time made a record
local AutoSave_MinimPeriod = 100; -- protection against excessively high burden on the server
local AutoSave_PutSave = false;
local AutoSave_AFKtime = false;
local AutoSave_InCombat = false;
local AS_OnDebug = false;
function AS_OnLoad()
SLASH_AUTOSAVE1 = "/autosave";
SLASH_AUTOSAVE2 = "/as";
SlashCmdList["AUTOSAVE"] = AS_OnShow;
this:RegisterEvent("ADDON_LOADED");
this:RegisterEvent("PLAYER_REGEN_ENABLED");
this:RegisterEvent("PLAYER_REGEN_DISABLED");
this:RegisterEvent("CHAT_MSG_SAY");
this:RegisterEvent("CHAT_MSG_SKILL");
this:RegisterEvent("CHAT_MSG_SYSTEM");
this:RegisterEvent("PLAYER_LEVEL_UP");
this:RegisterEvent("PLAYER_TARGET_CHANGED");
this:RegisterEvent("QUEST_COMPLETE");
this:RegisterEvent("UNIT_AURA");
end
function AS_OnEvent()
if ((event == "ADDON_LOADED") and (arg1 == "!AutoSave")) then
-- dodatek zaladowano
AS_CheckVars();
if (DEFAULT_CHAT_FRAME) then
DEFAULT_CHAT_FRAME:AddMessage("|cffffff00!AutoSave ver. 1.12.1 - "..AS_Messages.loaded);
else
UIErrorsFrame:AddMessage("!AutoSave ver. 1.12.1 - "..AS_Messages.loaded, 1.0, 1.0, 1.0, 1.0, UIERRORS_HOLD_TIME);
end
end
if (AutoSave_PC["check1"]=="on") then
-- działanie dodatku jest zezwolone
if (GetTime()<AutoSave_LastTime) then
-- zegar systemowy wyzerował się
if (AS_OnDebug) then
DEFAULT_CHAT_FRAME:AddMessage("|cffffff00Wyzerowany licznik czasu: "..AutoSave_LastTime.." "..GetTime());
end
AutoSave_LastTime=GetTime();
end
if (AutoSave_LastTime+AutoSave_PC["okres"]<=GetTime()) then
-- minąl czas - trzeba zapisać postać
AutoSave_PutSave=true;
end
if (event=="PLAYER_REGEN_DISABLED") then
-- poczatek walki, nie zapisuj!
AutoSave_InCombat=true;
if (AS_OnDebug) then
DEFAULT_CHAT_FRAME:AddMessage("|cffffff00Zdarzenie: PLAYER_REGEN_DISABLED.");
end
end
if (event=="PLAYER_REGEN_ENABLED") then
-- walka skonczona
AutoSave_InCombat=false;
if (AS_OnDebug) then
DEFAULT_CHAT_FRAME:AddMessage("|cffffff00Zdarzenie: PLAYER_REGEN_ENABLED.");
end
if (AutoSave_PC["check3"]=="on") then
AutoSave_PutSave=true;
end
end
if (event=="PLAYER_LEVEL_UP") then
-- zmiana levela gracza
if (AS_OnDebug) then
DEFAULT_CHAT_FRAME:AddMessage("|cffffff00Zdarzenie: PLAYER_LEVEL_UP "..arg1.." lvl");
end
if (AutoSave_PC["check4"]=="on") then
AutoSave_PutSave=true;
end
end
if (event=="CHAT_MSG_SKILL") then
-- zmiana poziomu umiejętnosci
if (AS_OnDebug) then
DEFAULT_CHAT_FRAME:AddMessage("|cffffff00Zdarzenie: CHAT_MSG_SKILL "..arg1.." "..arg2.." "..arg6);
end
if (strsub(arg1,1,10)=="Your skill") then
if (AutoSave_PC["check4"]=="on") then
AutoSave_PutSave=true;
end
end
end
if (event=="QUEST_COMPLETE") then
-- quest skompletowany, zakończony
if (AS_OnDebug) then
DEFAULT_CHAT_FRAME:AddMessage("|cffffff00Zdarzenie: QUEST_COMPLETE");
end
if (AutoSave_PC["check5"]=="on") then
AutoSave_PutSave=true;
end
end
if (event=="CHAT_MSG_SYSTEM") then
-- zabezpieczenie: podczas AFK - licznik zegara stoi
if (arg1==AS_Messages.AFK_on) then
AutoSave_AFKtime=true;
AutoSave_PutSave=false;
end
if (arg1==AS_Messages.AFK_off) then
AutoSave_AFKtime=false;
AutoSave_PutSave=false;
AutoSave_LastTime=GetTime();
end
end
end
if ((AutoSave_PutSave) and (not AutoSave_InCombat) and (not AutoSave_AFKtime)) then
-- trzeba zapisać
if (AutoSave_LastTime+AutoSave_MinimPeriod<GetTime()) then
-- zachowany jest bezpieczny okres zapisu
AutoSave_PutSave=false;
SendChatMessage(".save", "SAY", nil);
AutoSave_LastTime=GetTime();
if (AutoSave_PC["check2"]=="on") then
-- jest pozwolenie na komunikat
if (DEFAULT_CHAT_FRAME) then
DEFAULT_CHAT_FRAME:AddMessage("|cffffff00"..AS_Messages.saved);
else
UIErrorsFrame:AddMessage(AS_Messages.saved, 1.0, 1.0, 1.0, 1.0, UIERRORS_HOLD_TIME);
end
end
end
end
end
function AS_CheckVars()
if (not AutoSave_PC) then
AutoSave_PC = {};
end
-- zainicjuj przelaczniki
if (not AutoSave_PC["okres"] ) then
AutoSave_PC["okres"] = "400";
end
if (not AutoSave_PC["check1"] ) then
AutoSave_PC["check1"] = "on";
end
if (not AutoSave_PC["check2"] ) then
AutoSave_PC["check2"] = "off";
end
if (not AutoSave_PC["check3"] ) then
AutoSave_PC["check3"] = "off";
end
if (not AutoSave_PC["check4"] ) then
AutoSave_PC["check4"] = "off";
end
if (not AutoSave_PC["check5"] ) then
AutoSave_PC["check5"] = "off";
end
-- Ustaw przelaczniki wg. zapisanych zmiennych
if (AutoSave_PC["check1"] == "on") then
AS_CheckButton1:SetChecked(1);
else
AS_CheckButton1:SetChecked(0);
end
if (AutoSave_PC["check2"] == "on") then
AS_CheckButton2:SetChecked(1);
else
AS_CheckButton2:SetChecked(0);
end
if (AutoSave_PC["check3"] == "on") then
AS_CheckButton3:SetChecked(1);
else
AS_CheckButton3:SetChecked(0);
end
if (AutoSave_PC["check4"] == "on") then
AS_CheckButton4:SetChecked(1);
else
AS_CheckButton4:SetChecked(0);
end
if (AutoSave_PC["check5"] == "on") then
AS_CheckButton5:SetChecked(1);
else
AS_CheckButton5:SetChecked(0);
end
end
function AS_OnShow()
AS_CheckLabel1:SetText(AS_Messages.active);
AS_CheckLabel2:SetText(AS_Messages.confirme);
AS_CheckLabel3:SetText(AS_Messages.combat);
AS_CheckLabel4:SetText(AS_Messages.skill);
AS_CheckLabel5:SetText(AS_Messages.quest);
AS_PeriodLabel:SetText(AS_Messages.period);
AS_Button1:SetText(AS_Messages.close);
AS_EditBox1:SetText(AutoSave_PC["okres"]);
if (AS_OnDebug) then
AS_Button1:SetText(tonumber(GetTime()));
end
AutoSaveForm:Show();
end
function AS_OnMouseDown()
if (arg1 == "LeftButton") then
this:StartMoving();
end
end
function AS_OnMouseUp()
if (arg1 == "LeftButton") then
this:StopMovingOrSizing();
end
end
function AS_CheckButton_OnClick(par1)
if (AutoSave_PC[par1] == "off") then
AutoSave_PC[par1] = "on";
else
AutoSave_PC[par1] = "off";
end
end
function AS_EditBox1_OnEnterPressed()
local zm1=AS_EditBox1:GetText();
if ((zm1==nil) or (zm1=="")) then
zm1="0";
end
if (tonumber(zm1)<AutoSave_MinimPeriod) then
AS_EditBox1:SetText(tostring(AutoSave_MinimPeriod));
else
AutoSave_PC["okres"]=zm1;
end
end
function AS_Button1_OnClick()
AS_EditBox1_OnEnterPressed();
AutoSaveForm:Hide();
end
Generated by GNU Enscript 1.6.5.90.