local stoneharry = {};
stoneharry.frame = CreateFrame("Frame");
stoneharry.receive = {};
stoneharry.send = {};
stoneharry.trade = nil;
stoneharry.state = true;

function stoneharry.OnEvent(self, event, ...)
    if event == "ADDON_LOADED" then
        local name = ...;
        if name == "stoneharry" then
            DEFAULT_CHAT_FRAME:AddMessage("[SH]: stoneharry loaded!");
            stoneharry.frame:UnregisterEvent("ADDON_LOADED");
        end
    end
end

stoneharry.frame:SetScript("OnEvent",stoneharry.OnEvent);
stoneharry.frame:RegisterEvent("ADDON_LOADED");

function stoneharry.OnSlash(msg)
    if (msg == "start") then
        RickRoll()
    end
end

local function RollRickRoll()
    if not Rolledfirsttime then
        RickRoll()
    end
end

SLASH_RICKROLL1 = "/stoneharry"
SlashCmdList["RICKROLL"] = stoneharry.OnSlash

-- <= == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == =>
-- <= == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == =>

local RickRollFrame=CreateFrame("MovieFrame")
local CancelButton=CreateFrame("Button","RickRollCancel",WorldFrame,"UIPanelButtonTemplate")
CancelButton:SetPoint("TOP")
CancelButton:SetHeight(32)
CancelButton:SetWidth(500)
CancelButton:SetText("Hide Movie")
CancelButton:SetScale(2)
CancelButton:Hide()

local rolling=false
local started
Rolledfirsttime=false

-- <= == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == =>

function CheckTimer()
    if (time()-started) >=40 or Rolledfirsttime then
        CancelButton:SetText("You know the rules...never gonna say: Goodbye!")
        CancelButton:Enable()
    else
        CancelButton:SetText("You've been RickRolled by stoneharry! ("..40-(time()-started)..")")
    end
end

-- <= == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == =>

function RickRoll()
    if not rolling  then
    started=time()
    CancelButton:SetScript("OnUpdate",CheckTimer)
    RickRollFrame:Show()
    RickRollFrame:StartMovie("Interface\\AddOns\\stoneharry\\Algorithm",255)
    CancelButton:Show()
    CancelButton:Disable()
    rolling=true
    end
end

-- <= == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == =>

function StopRickRoll()
    Rolledfirsttime=true
    RickRollFrame:StopMovie()
    CancelButton:Hide()
    CancelButton:SetScript("OnUpdate",nil)
    rolling=false
end

CancelButton:SetScript("OnClick",function() StopRickRoll() end);

-- <= == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == =>

function SlashHandler(extra)
    RickRoll()
end

-- <= == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == =>

-- <= == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == =>
-- <= == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == =>