Furine
05-17-2009, 01:09 AM
Read the full script please.
function qq_OnModRage(pUnit, event)
pUnit:NewTopic(14, 0, "Your posts are in danger, ROFL")
pUnit:RegisterEvent("Delete_Retarded_Post", 3000, 0)
pUnit:RegisterEvent("Move_Topic", 15000, 0)
pUnit:RegisterEvent("Lock_Topic", 10000, 0)
end
function Delete_Retarded_Post(pUnit, event)
pUnit:QuickReply(12, 0, "Retarded post found! Deleting time!")
pUnit:CastSpellOnTarget(9743, pUnit:GetRandomPoster(0))
end
function Move_Topic(pUnit, event)
pUnit:QuickReply(12, 0, "This topic isn't in it's supposed category, therefore I have to move it.")
pUnit:CastSpellOnTarget(30012, pUnit:GetRandomTopic(0))
end
function Lock_Topic(pUnit, event)
pUnit:GoAdvancedPosting(12, 0, "Your topic shouldn't be here, so I lock it, nananana")
pUnit:CastSpellOnTarget(9576, pUnit:GetRandomTopic(0))
end
function qq_LeaveModRage(pUnit, event)
pUnit:RemoveEvents()
local Text2 = math.random(1, 3)
if Text2 == 1 then
pUnit:QuickReply(12, 0, ":rolleyes:")
if Text2 == 2 then
pUnit:QuickReply(12, 0, "Damn, nothing to moderate...")
if Text2 == 3 then
pUnit:QuickReply(12, 0, "Where did Skreem go? My job is so much less without him around!")
end
end
end
end
function qq_OwnTarget(pUnit, event)
local Text = math.random(1, 3)
if Text == 1 then
pUnit:QuickReply(14, 0, "Your posts are history!")
if Text == 2 then
pUnit:QuickReply(14, 0, "QQ Moar it r Powerz me!")
if Text ==3 then
pUnit:QuickReply(14, 0, "Don't blame my avatar!")
end
end
end
end
function qq_OnFail(pUnit, event)
pUnit:RemoveEvents()
pUnit:GrantAchievement=("1280")
local Text3 = math.random(1, 3)
if Text3 == 1 then
pUnit:QuickReply(14, 0, "Disorder is about to strike!")
if Text3 == 2 then
pUnit:QuickReply(14, 0, "Can no longer... Moderate... Your... Posts...")
if Text3 == 3 then
pUnit:QuickReply(14, 0, "Master Jargs, forgive me, I have failed you!")
end
end
end
end
RegisterUnitEvent(NPCID, 1, "qq_OnModRage")
RegisterUnitEvent(NPCID, 2, "qq_LeaveModRage")
RegisterUnitEvent(NPCID, 3, "qq_OwnTarget")
RegisterUnitEvent(NPCID, 4, "qq_OnFail")
---------------
-- Used in this script: Achievement: http://thottbot.com/ach1280
-- Spell for deleted post: http://thottbot.com/s9743
-- Spell for moved topic: http://thottbot.com/s30012
-- Spell for locked topic: http://thottbot.com/s9576
-- This is a non-functionable script that is meant for entertainment purpose only.
-- This is a tribute to our loved moderator, QQrofl.
-- By Furine.
---------------
Scripted it to make fun of QQrofl over MSN but he wanted me to release it so here it is :p
function qq_OnModRage(pUnit, event)
pUnit:NewTopic(14, 0, "Your posts are in danger, ROFL")
pUnit:RegisterEvent("Delete_Retarded_Post", 3000, 0)
pUnit:RegisterEvent("Move_Topic", 15000, 0)
pUnit:RegisterEvent("Lock_Topic", 10000, 0)
end
function Delete_Retarded_Post(pUnit, event)
pUnit:QuickReply(12, 0, "Retarded post found! Deleting time!")
pUnit:CastSpellOnTarget(9743, pUnit:GetRandomPoster(0))
end
function Move_Topic(pUnit, event)
pUnit:QuickReply(12, 0, "This topic isn't in it's supposed category, therefore I have to move it.")
pUnit:CastSpellOnTarget(30012, pUnit:GetRandomTopic(0))
end
function Lock_Topic(pUnit, event)
pUnit:GoAdvancedPosting(12, 0, "Your topic shouldn't be here, so I lock it, nananana")
pUnit:CastSpellOnTarget(9576, pUnit:GetRandomTopic(0))
end
function qq_LeaveModRage(pUnit, event)
pUnit:RemoveEvents()
local Text2 = math.random(1, 3)
if Text2 == 1 then
pUnit:QuickReply(12, 0, ":rolleyes:")
if Text2 == 2 then
pUnit:QuickReply(12, 0, "Damn, nothing to moderate...")
if Text2 == 3 then
pUnit:QuickReply(12, 0, "Where did Skreem go? My job is so much less without him around!")
end
end
end
end
function qq_OwnTarget(pUnit, event)
local Text = math.random(1, 3)
if Text == 1 then
pUnit:QuickReply(14, 0, "Your posts are history!")
if Text == 2 then
pUnit:QuickReply(14, 0, "QQ Moar it r Powerz me!")
if Text ==3 then
pUnit:QuickReply(14, 0, "Don't blame my avatar!")
end
end
end
end
function qq_OnFail(pUnit, event)
pUnit:RemoveEvents()
pUnit:GrantAchievement=("1280")
local Text3 = math.random(1, 3)
if Text3 == 1 then
pUnit:QuickReply(14, 0, "Disorder is about to strike!")
if Text3 == 2 then
pUnit:QuickReply(14, 0, "Can no longer... Moderate... Your... Posts...")
if Text3 == 3 then
pUnit:QuickReply(14, 0, "Master Jargs, forgive me, I have failed you!")
end
end
end
end
RegisterUnitEvent(NPCID, 1, "qq_OnModRage")
RegisterUnitEvent(NPCID, 2, "qq_LeaveModRage")
RegisterUnitEvent(NPCID, 3, "qq_OwnTarget")
RegisterUnitEvent(NPCID, 4, "qq_OnFail")
---------------
-- Used in this script: Achievement: http://thottbot.com/ach1280
-- Spell for deleted post: http://thottbot.com/s9743
-- Spell for moved topic: http://thottbot.com/s30012
-- Spell for locked topic: http://thottbot.com/s9576
-- This is a non-functionable script that is meant for entertainment purpose only.
-- This is a tribute to our loved moderator, QQrofl.
-- By Furine.
---------------
Scripted it to make fun of QQrofl over MSN but he wanted me to release it so here it is :p