Add files via upload

Playtime_Reward.lua

@@ -0,0 +1,120 @@
+local enabled = true
+local PlayedTimeInterval = 30 --minutes
+local MoneyReward = 10000 -- COPPER (100 Copper = 1 Silver| 100 Silver = 1 Gold) 10000 Copper = 1 gold
+local HonorReward = 150 -- Honor points to reward
+local ArenaReward = 25 -- Arena points to reward
+local ItemReward = 0 -- Itemid if 0 then no item given
+local ItemRewardCount = 1 -- How many of the item to reward.
+
+local playtime
+local timerPR = PlayedTimeInterval * 60000
+
+local function OnLoad(event)
+
+		local intervaltime = PlayedTimeInterval
+		local hours = 0
+		local minutes = 0
+		local timestring
+		
+		if PlayedTimeInterval >= 60 then
+		hours = intervaltime/60
+		minutes = intervaltime%60
+		timestring = ""..math.floor(hours).."|cff3399FF hour and |cff00cc00"..math.floor(minutes).."|cff3399FF minutes"
+		end
+		
+		if PlayedTimeInterval < 60 then
+		minutes = intervaltime%60
+		timestring = ""..math.floor(minutes).." minutes"
+		end
+		
+		SendWorldMessage("|cff3399FF Playtime Reward active and interval set to |cff00cc00"..timestring.."|cff3399FF .")
+		
+end
+
+local function REWARD(eventid, delay, repeats, player)
+	local gold = 0
+	local silver = 0
+	local copper = 0
+	
+	if MoneyReward >= 10000 then
+		number = MoneyReward
+		gold = number/10000
+		number = number%10000
+		silver = number/100
+		copper = number%100
+	end
+	
+	if MoneyReward > 100 and MoneyReward < 10000 then
+		number = MoneyReward
+		silver = number/100
+		copper = number%100
+	end
+	
+	if MoneyReward <= 100 then
+		copper = MoneyReward
+	end
+
+	local rewardstring = ""..math.floor(gold).."|c00FFFF00g|cff3399FF"..math.floor(silver).."|cFFFFFFFFs|cff3399FF"..math.floor(copper).."|cFFcc0000c"
+
+
+	if player:GetTotalPlayedTime() >= (playtime + timerPR/1000) then
+	
+	if MoneyReward > 0 then
+	player:ModifyMoney( MoneyReward )
+	player:SendBroadcastMessage("|cff3399FF You received "..rewardstring.."|cff3399FF as a Playtime Reward.")
+	end
+	
+	if HonorReward > 0 then
+	player:ModifyHonorPoints( HonorReward )
+	player:SendBroadcastMessage("|cff3399FF You received |cff00cc00"..HonorReward.."|cff3399FF Honor Points as a Playtime Reward.")
+	end
+	
+	if ArenaReward > 0 then
+	player:ModifyArenaPoints( ArenaReward )
+	player:SendBroadcastMessage("|cff3399FF You received |cff00cc00"..ArenaReward.."|cff3399FF Arena Points as a Playtime Reward.")
+	end
+	
+	if ItemReward > 0 then
+	local Item = player:AddItem( ItemReward, ItemRewardCount )
+	local itemname = Item:GetName()
+	player:SendBroadcastMessage("|cff3399FF You received |c00FFFF00"..ItemRewardCount.."|cff3399FFx |cff00cc00"..itemname.."|cff3399FF as a Playtime Reward.")
+	end
+	
+	end
+	
+	playtime = player:GetTotalPlayedTime()
+end
+
+local function DINKLEDORK (eventid, delay, repeats, player)
+	playtime = player:GetTotalPlayedTime()
+	player:RegisterEvent(REWARD, timerPR, 0, player)
+	player:SendBroadcastMessage("|cff3399FF Playtime Reward active and interval set to |cff00cc00"..PlayedTimeInterval.."|cff3399FF minutes.")
+
+end
+
+local firstlogin = true
+
+
+local function OnFirstLogin(event, player)
+
+	if event == 30 then
+	firstlogin = true
+	player:RegisterEvent(DINKLEDORK, 10000, 1, player)
+	player:SendBroadcastMessage("|cff3399FF Playtime Reward active and interval set to |cff00cc00"..PlayedTimeInterval.."|cff3399FF minutes.")
+	end
+end
+
+local function OnLogin(event, player)
+	if not firstlogin then
+	player:RegisterEvent(DINKLEDORK, 10000, 1, player)
+	player:SendBroadcastMessage("|cff3399FF Playtime Reward active and interval set to |cff00cc00"..PlayedTimeInterval.."|cff3399FF minutes.")
+	else
+	firstlogin = true
+	end
+end
+
+if enabled then
+RegisterPlayerEvent(30, OnFirstLogin)
+RegisterPlayerEvent(3, OnLogin)
+RegisterServerEvent(33, OnLoad)
+end