mirror of
https://github.com/araxiaonline/RandomScriptsforAzerothCore.git
synced 2026-06-13 02:22:19 -04:00
Add files via upload
This commit is contained in:
Dinkledork
203
LevelUpReward.lua
Normal file
203
LevelUpReward.lua
Normal file
@@ -0,0 +1,203 @@
|
||||
--
|
||||
-- Created by IntelliJ IDEA.
|
||||
-- User: Silvia
|
||||
-- Date: 28/02/2021
|
||||
-- Time: 23:16
|
||||
-- To change this template use File | Settings | File Templates.
|
||||
-- Originally created by Honey for Azerothcore
|
||||
-- requires ElunaLua module
|
||||
|
||||
-- Updated By: Ragundah
|
||||
-- Date: 13/05/2021
|
||||
|
||||
--Players will receive rewards when their characters reach the levels in brackets.
|
||||
------------------------------------------------------------------------------------------------
|
||||
-- ADMIN GUIDE: - compile the core with ElunaLua module
|
||||
-- - adjust config in this file
|
||||
-- - create a character who appears as sender of the mails with senderGUID
|
||||
-- - add this script to ../lua_scripts/
|
||||
------------------------------------------------------------------------------------------------
|
||||
|
||||
local Config_Gold = {}
|
||||
local Config_ItemId = {}
|
||||
local Config_ItemAmount = {}
|
||||
local LUR_playerCounter = {}
|
||||
|
||||
Config_Gold[10] = 20000 -- gold granted when reaching level [10] in copper. 10000 = 1 gold. Cost for spells 10-18 (mage): ~1g50s
|
||||
Config_Gold[20] = 140000 -- Cost for spells 20-28 (mage): ~11g
|
||||
Config_Gold[30] = 360000 -- Cost for spells 30-38 (mage): ~27g
|
||||
Config_Gold[40] = 700000 -- Cost for spells 40-48 (mage): ~50g
|
||||
Config_Gold[50] = 1000000 -- Cost for spells 50-58 (mage): ~93g
|
||||
Config_Gold[61] = 1250000
|
||||
Config_Gold[65] = 1600000
|
||||
Config_Gold[71] = 2000000
|
||||
Config_Gold[75] = 3000000
|
||||
Config_Gold[80] = 7000000
|
||||
|
||||
Config_ItemId[29] = 34492 -- item granted when reaching level [29] / 5740 is a cosmetic red rocket
|
||||
Config_ItemAmount[29] = 1 -- amount of items to be granted when reaching level [29]. Missing amounts are automatically set to 1 if an ItemId is given
|
||||
Config_ItemId[35] = 45706
|
||||
Config_ItemAmount[35] = 1
|
||||
Config_ItemId[40] = 46109
|
||||
Config_ItemAmount[40] = 1
|
||||
Config_ItemId[43] = 52001
|
||||
Config_ItemAmount[43] = 1
|
||||
Config_ItemId[46] = 45706
|
||||
Config_ItemAmount[46] = 1
|
||||
Config_ItemId[50] = 52002
|
||||
Config_ItemAmount[50] = 1
|
||||
Config_ItemId[59] = 33223
|
||||
Config_ItemAmount[59] = 1
|
||||
Config_ItemId[60] = 49646
|
||||
Config_ItemAmount[60] = 1
|
||||
Config_ItemId[64] = 9312
|
||||
Config_ItemAmount[64] = 5
|
||||
Config_ItemId[69] = 9313
|
||||
Config_ItemAmount[69] = 5
|
||||
Config_ItemId[70] = 9314
|
||||
Config_ItemAmount[70] = 5
|
||||
|
||||
-- General Settings Config
|
||||
local Config_mailText = 2 -- Which text to send in the mail to the player.
|
||||
local Config_senderGUID = 1 -- GUID/ID of the Player/Creature. If Config_preventReturn = true then you need to put Creature ID. If it's false Player GUID. 0 = No sender aka "From: Unknown".
|
||||
local Config_mailStationery = 41 -- Stationary used in the mail sent to the player. (41 Normal Mail, 61 GM/Blizzard Support, 62 Auction, 64 Valentines, 65 Christmas) Note: Use 62, 64, and 65 At your own risk.
|
||||
local Config_maxGMRank = 3 -- Checks the player's assigned GM rank. Anything above the assigned default will not receive mail/be counted for the player counter. Default 0 - Players Only. Max 3 - All GMS/Mods/Etc will receive as well.
|
||||
local Config_preventReturn = true -- Modify's the Mail database to prevent returning of rewards. Note: If you are experiencing server lag after installing this module please disable this option to see if it helps.
|
||||
|
||||
-- Config_mailText == 1 Config
|
||||
local Config_mailSubject1 = "Dinkle's reward for You!"
|
||||
local Config_mailText1 = "!\n\nYou've done well while advancing on Dinkle's Server. Here is a small reward to celebrate your heroic deeds. Go forth!\n\nKind regards,\nDinkle"
|
||||
-- Config_mailText == 2 Config
|
||||
local Config_mailSubject2 = "Dinkle's reward for You!"
|
||||
local Config_mailText2A = " and congratulations! \n\nThe bronze Dragonflight would like to inform you that you were the "
|
||||
local Config_mailText2B = " adventurer to reach the "
|
||||
local Config_mailText2C = " level of mastery.\nYour adventures have made me take notice of you, take this small reward as a token of my appreciation.\nGo forth!\n\nKind regards,\nDinkle"
|
||||
|
||||
-- Name of Eluna dB scheme
|
||||
local Config_customDbName = 'ac_eluna';
|
||||
|
||||
------------------------------------------
|
||||
-- NO ADJUSTMENTS REQUIRED BELOW THIS LINE
|
||||
------------------------------------------
|
||||
|
||||
CharDBQuery('CREATE DATABASE IF NOT EXISTS `'..Config_customDbName..'`;');
|
||||
CharDBQuery('CREATE TABLE IF NOT EXISTS `'..Config_customDbName..'`.`levelup_reward` (`level` INT NOT NULL, `counter` INT DEFAULT 0, PRIMARY KEY (`level`) );');
|
||||
|
||||
local n
|
||||
for n = 2,80,1 do
|
||||
LUR_playerCounter[n] = 0
|
||||
end
|
||||
|
||||
Data_SQL = CharDBQuery('SELECT `level`, `counter` FROM `'..Config_customDbName..'`.`levelup_reward`;');
|
||||
if Data_SQL ~= nil then
|
||||
local levelRow
|
||||
repeat
|
||||
levelRow = Data_SQL:GetUInt32(0)
|
||||
LUR_playerCounter[levelRow] = Data_SQL:GetUInt32(1)
|
||||
until not Data_SQL:NextRow()
|
||||
end
|
||||
|
||||
|
||||
local PLAYER_EVENT_ON_LEVEL_CHANGE = 13
|
||||
|
||||
local function PreventReturn(playerGUID)
|
||||
if Config_preventReturn == true then
|
||||
CharDBExecute('UPDATE `mail` SET `messageType` = 3 WHERE `sender` = '..Config_senderGUID..' AND `receiver` = '..playerGUID..' AND `messageType` = 0;')
|
||||
end
|
||||
end
|
||||
|
||||
local function GrantReward(event, player, oldLevel)
|
||||
if oldLevel ~= nil and player:GetGMRank() <= Config_maxGMRank then
|
||||
if Config_mailText == 1 then
|
||||
if Config_ItemId[oldLevel + 1] ~= nil then
|
||||
local playerName = player:GetName()
|
||||
local playerGUID = tostring(player:GetGUID())
|
||||
local itemAmount
|
||||
if Config_ItemAmount[oldLevel + 1] ~= nil then
|
||||
itemAmount = Config_ItemAmount[oldLevel + 1]
|
||||
else
|
||||
itemAmount = 1
|
||||
end
|
||||
if Config_Gold[oldLevel + 1] == nil then
|
||||
Config_Gold[oldLevel + 1] = 0
|
||||
end
|
||||
SendMail(Config_mailSubject1, "Hello "..playerName..Config_mailText1, playerGUID, Config_senderGUID, Config_mailStationery, 0, Config_Gold[oldLevel + 1],0,Config_ItemId[oldLevel + 1], Config_ItemAmount[oldLevel + 1])
|
||||
print("LevelUpReward has granted "..Config_Gold[oldLevel + 1].." copper and "..Config_ItemAmount[oldLevel + 1].." of item "..Config_ItemId[oldLevel + 1].." to character "..playerName.." with guid "..playerGUID..".")
|
||||
PreventReturn(playerGUID)
|
||||
playerName = nil
|
||||
playerGUID = nil
|
||||
return false
|
||||
elseif Config_Gold[oldLevel + 1] ~= nil then
|
||||
local playerName = player:GetName()
|
||||
local playerGUID = tostring(player:GetGUID())
|
||||
SendMail(Config_mailSubject1, "Hello "..playerName..Config_mailText1, playerGUID, Config_senderGUID, Config_mailStationery, 0, Config_Gold[oldLevel + 1])
|
||||
print("LevelUpReward has granted "..Config_Gold[oldLevel + 1].." copper to character "..playerName.." with guid "..playerGUID..".")
|
||||
PreventReturn(playerGUID)
|
||||
playerName = nil
|
||||
playerGUID = nil
|
||||
return false
|
||||
end
|
||||
end
|
||||
|
||||
local playerCounterStr
|
||||
local currentLevelStr
|
||||
local currentLevel = oldLevel + 1
|
||||
LUR_playerCounter[currentLevel] = LUR_playerCounter[currentLevel] + 1
|
||||
CharDBExecute('REPLACE INTO `'..Config_customDbName..'`.`levelup_reward` VALUES ('..currentLevel..', '..LUR_playerCounter[currentLevel]..');');
|
||||
playerCounterStr = tostring(LUR_playerCounter[currentLevel])
|
||||
if string.sub(playerCounterStr, -1) == "1" then
|
||||
playerCounterStr = playerCounterStr.."st"
|
||||
elseif string.sub(playerCounterStr, -1) == "2" then
|
||||
playerCounterStr = playerCounterStr.."nd"
|
||||
elseif string.sub(playerCounterStr, -1) == "3" then
|
||||
playerCounterStr = playerCounterStr.."rd"
|
||||
else
|
||||
playerCounterStr = playerCounterStr.."th"
|
||||
end
|
||||
|
||||
currentLevelStr = tostring(currentLevel)
|
||||
if string.sub(currentLevelStr, -1) == "1" then
|
||||
currentLevelStr = currentLevelStr.."st"
|
||||
elseif string.sub(currentLevelStr, -1) == "2" then
|
||||
currentLevelStr = currentLevelStr.."nd"
|
||||
elseif string.sub(currentLevelStr, -1) == "3" then
|
||||
currentLevelStr = currentLevelStr.."rd"
|
||||
else
|
||||
currentLevelStr = currentLevelStr.."th"
|
||||
end
|
||||
|
||||
if Config_mailText == 2 then
|
||||
if Config_ItemId[oldLevel + 1] ~= nil and Config_mailText == 2 then
|
||||
local playerName = player:GetName()
|
||||
local playerGUID = tostring(player:GetGUID())
|
||||
local itemAmount
|
||||
if Config_ItemAmount[oldLevel + 1] ~= nil then
|
||||
itemAmount = Config_ItemAmount[oldLevel + 1]
|
||||
else
|
||||
itemAmount = 1
|
||||
end
|
||||
if Config_Gold[oldLevel + 1] == nil then
|
||||
Config_Gold[oldLevel + 1] = 0
|
||||
end
|
||||
SendMail(Config_mailSubject2, "Hello "..playerName..Config_mailText2A..playerCounterStr..Config_mailText2B..currentLevelStr..Config_mailText2C, playerGUID, Config_senderGUID, Config_mailStationery, 0, Config_Gold[oldLevel + 1],0,Config_ItemId[oldLevel + 1], Config_ItemAmount[oldLevel + 1])
|
||||
print("LevelUpReward has granted "..Config_Gold[oldLevel + 1].." copper and "..Config_ItemAmount[oldLevel + 1].." of item "..Config_ItemId[oldLevel + 1].." to character "..playerName.." with guid "..playerGUID..".")
|
||||
PreventReturn(playerGUID)
|
||||
playerName = nil
|
||||
playerGUID = nil
|
||||
return false
|
||||
elseif Config_Gold[oldLevel + 1] ~= nil and Config_mailText == 2 then
|
||||
local playerName = player:GetName()
|
||||
local playerGUID = tostring(player:GetGUID())
|
||||
SendMail(Config_mailSubject2, "Hello "..playerName..Config_mailText2A..playerCounterStr..Config_mailText2B..currentLevelStr..Config_mailText2C, playerGUID, Config_senderGUID, Config_mailStationery, 0, Config_Gold[oldLevel + 1])
|
||||
print("LevelUpReward has granted "..Config_Gold[oldLevel + 1].." copper to character "..playerName.." with guid "..playerGUID..".")
|
||||
PreventReturn(playerGUID)
|
||||
playerName = nil
|
||||
playerGUID = nil
|
||||
return false
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
RegisterPlayerEvent(PLAYER_EVENT_ON_LEVEL_CHANGE, GrantReward)
|
||||
|
||||
Reference in New Issue
Block a user