--Susnow
local addon,ns = ...
local cfg = ns.cfg
local texFile = "Interface\\Buttons\\WHITE8X8"
local bgTex = {bgFile = texFile,edgeFile = texFile, edgeSize = 1,insets={top = 0, bottom = 0,left = 0,right = 0}}
local tex = "Interface\\AddOns\\SlideLock\\media\\"
local barTex = tex.."bar2"
local buttonTex = tex.."button2"
local function CreateFontObject(fontObject,parent,layer,color)
parent[fontObject] = parent.SlideBar:CreateFontString(layer,nil,"ChatFontNormal")
local fs = parent[fontObject]
do
local font,size,flag = fs:GetFont()
fs:SetFont(font,14,"OUTLINE")
end
fs:SetText("Slide Button To Unlock ")
fs:SetPoint("RIGHT",parent.SlideBar,-10,0)
if color == "Gray" then
fs:SetTextColor(.3,.3,.3,1)
elseif color == "White" then
fs:SetTextColor(1,1,1,1)
end
end
local SL = CreateFrame("Frame","SlideLock",WorldFrame)
SL:SetAllPoints(UIParent)
SL.nextUpdate = 0
SL.gradient = 0
SL:EnableMouse(true)
SL:EnableKeyboard(true)
--SL:SetBackdrop(bgTex)
--SL:SetBackdropColor(.3,.3,.3,.8)
--SL:SetBackdropBorderColor(0,0,0,0)
SL.SlideBar = CreateFrame("Frame","SlideBar",SL)-- :CreateTexture(nil,"ARTWORK")
SL.SlideBar.nextUpdate = 0
SL.SlideBar:SetSize(256,32)
SL.SlideBar:SetPoint("BOTTOM",SL,0,20)
SL.SlideBar.tex = SL.SlideBar:CreateTexture(nil,"ARTWORK")
SL.SlideBar.tex:SetTexture(barTex)
SL.SlideBar.tex:SetAllPoints(SL.SlideBar)
SL.CameraButton = CreateFrame("Button",nil,SL)
SL.CameraButton:SetSize(32,32)
SL.CameraButton:SetPoint("LEFT",SL.SlideBar,"RIGHT",-16,1)
SL.CameraButton.tex = SL.CameraButton:CreateTexture(nil,"OVERLAY")
SL.CameraButton.tex:SetTexture(tex.."Camera3")
SL.CameraButton.tex:SetPoint("CENTER",SL.CameraButton)
SL.CameraButton:SetScale(0.94)
SL.SlideButton = CreateFrame("Button",nil,SL)
SL.SlideButton:SetScale(0.94)
SL.SlideButton:SetFrameLevel(SL.SlideBar:GetFrameLevel()+10)
SL.SlideButton.nextUpdate = 0
SL.SlideButton:SetSize(64,32)
SL.SlideButton:SetPoint("LEFT",SL.SlideBar,14,-0.3)
SL.SlideButton.tex = SL.SlideButton:CreateTexture(nil,"OVERLAY")
SL.SlideButton.tex:SetTexture(buttonTex)
SL.SlideButton.tex:SetPoint("CENTER",SL.SlideButton)
SL.SlideButton:EnableKeyboard(true)
SL.control = CreateFrame("Frame")
SL.control.nextUpdate = 0
do
CreateFontObject("TextBG",SL,"ARTWORK","Gray")
CreateFontObject("TextStuff",SL,"OVERLAY","White")
CreateFontObject("TextCover",SL,"OVERLAY","Gray")
end
local BP1 = CreateFrame("Frame",nil,WorldFrame)
BP1:SetBackdrop(bgTex)
BP1:SetBackdropColor(0,0,0,1)
BP1:SetBackdropBorderColor(0,0,0,0)
BP1:SetSize(UIParent:GetWidth(),36)
BP1:SetPoint("BOTTOM",UIParent)
local BP2 =CreateFrame("Frame",nil,WorldFrame)
BP2:SetBackdrop(bgTex)
BP2:SetBackdropColor(.3,.3,.3,1)
BP2:SetBackdropBorderColor(0,0,0,1)
BP2:SetSize(UIParent:GetWidth(),36)
BP2:SetPoint("BOTTOM",BP1,"TOP")
local TP = CreateFrame("Frame",nil,WorldFrame)
TP:SetBackdrop(bgTex)
TP:SetBackdropColor(0,0,0,.5)
TP:SetBackdropBorderColor(0,0,0,0)
TP:SetSize(UIParent:GetWidth(),100)
TP:SetPoint("TOP",UIParent)
TP.time = TP:CreateFontString(nil,"OVERLAY","ChatFontNormal")
TP.time:SetPoint("CENTER",TP)
do
local font,size,flag = TP.time:GetFont()
TP.time:SetFont(font,48,"OUTLINE")
end
TP.time:SetText(format("%s:%s:%s",date("%H"),date("%M"),date("%S")))
SL:SetScript("OnUpdate",function(self,elapsed)
self.nextUpdate = self.nextUpdate + elapsed
if self.nextUpdate > 0.05 then
local maxLength = string.len(self.TextStuff:GetText()) - 6
self.gradient = self.gradient + 1
if self.gradient > maxLength then
self.gradient = 0
end
local width = 6
if self.gradient >= (maxLength - 6) then
width = maxLength - self.gradient
end
self.TextStuff:SetAlphaGradient(self.gradient+4, 6)
self.TextCover:SetAlphaGradient(self.gradient, width+1)
TP.time:SetText(format("%s:%s:%s",date("%H"),date("%M"),date("%S")))
self.nextUpdate = 0
end
end)
SL.SlideButton:SetScript("OnMouseDown",function()
local mdmX = GetCursorPosition() -- mouse's x positon when MouseDown action,every mousedown just get once
local mdsX = select(4,SL.SlideButton:GetPoint()) -- slider's x positon when MouseDown action, every mousedown just get once
SL.control:SetScript("OnUpdate",function(self,elapsed)
self.nextUpdate = self.nextUpdate + elapsed
if self.nextUpdate > 0.01 then
local tempX = GetCursorPosition() -- tempX will always update
if IsMouseButtonDown(1) then
if tempX > mdmX then
local cusX = select(4,SL.SlideButton:GetPoint())
if cusX >= 192 then
SL.SlideButton:Disable()
else
SL.SlideButton:SetPoint("LEFT",SL.SlideBar,(mdsX+ tempX - mdmX),-0.3)
end
elseif tempX < mdmX then
end
elseif not IsMouseButtonDown(1) then
self:SetScript("OnUpdate",nil)
end
self.nextUpdate = 0
end
end)
end)
SL.SlideButton:SetScript("OnMouseUp",function(self)
SL.control:SetScript("OnUpdate",nil)
local musX = select(4,SL.SlideButton:GetPoint())
if musX >= 55 then
local oldTime = GetTime()
self:SetScript("OnUpdate",function(self,elapsed)
self.nextUpdate = self.nextUpdate + elapsed
if self.nextUpdate > 0.01 then
local newTime = GetTime()
if newTime - oldTime < 0.3 then
local tempX = ((194-musX)/0.3)*(newTime - oldTime)+musX
self:SetPoint("LEFT",SL.SlideBar,tempX,-0.3)
else
self:SetScript("OnUpdate",nil)
PlaySoundFile(tex.."Unlock2.ogg","Master")
self:SetPoint("LEFT",SL.SlideBar,194,-0.3)
UIParent:Show()
SetUIVisibility(true)
end
self.nextUpdate = 0
end
end)
elseif musX < 55 then
local oldTime = GetTime()
self:SetScript("OnUpdate",function(self,elapsed)
self.nextUpdate = self.nextUpdate + elapsed
if self.nextUpdate > 0.01 then
local newTime = GetTime()
if newTime - oldTime < 0.1 then
local tempX = musX - ((musX - 13.5)/0.1) * (newTime - oldTime)
self:SetPoint("LEFT",SL.SlideBar,tempX,-0.3)
else
self:SetScript("OnUpdate",nil)
self:SetPoint("LEFT",SL.SlideBar,13.5, -0.3)
end
self.nextUpdate = 0
end
end)
end
end)
SL.CameraButton:RegisterEvent("SCREENSHOT_SUCCEEDED")
SL.CameraButton:SetScript("OnClick",function(self)
Screenshot()
self:SetScript("OnEvent",function()
PlaySoundFile(tex.."Camera.ogg","Master")
end)
end)
-- don't Unregister this handler , because I need to intercept all keyboard action
SL:SetScript("OnKeyDown",function(self,key)
--
end)
local function ToggleSlideLock(flag)
if flag == "HIDE" then
SL:Hide()
BP1:Hide()
BP2:Hide()
TP:Hide()
SetUIVisibility(true)
elseif flag == "SHOW" then
SL:Show()
SL.SlideButton:SetPoint("LEFT",SL.SlideBar,13.5, -0.3)
BP1:Show()
BP2:Show()
TP:Show()
PlaySoundFile(tex.."lock2.ogg","Master")
end
end
ToggleSlideLock("HIDE")
UIParent:HookScript("OnHide",function()
ToggleSlideLock("SHOW")
end)
UIParent:HookScript("OnShow",function()
ToggleSlideLock("HIDE")
end)
local UIP = CreateFrame("Frame")
if cfg.AFK then
UIP:RegisterEvent("PLAYER_FLAGS_CHANGED")
UIP:SetScript("OnEvent",function()
if UnitIsAFK("player") then
UIParent:Hide()
else
return
end
end)
else
return
end