[Lua] Account & Player Manager

[Dr. Cheasterfield]

Account & Player Manager

Hello my friends,
I've found a new challenge And guess what, I succeeded it.
It's called Account and Player Manager, a little NPC writed in Lua, with some SQL QUERY, who will give you the possibility to change :
- Your login name.
- Your account's password.
- Your character's name.
- Your character's gender.

You will need to enable the Character DB Queries in your optional config.

An amazing little script for your players, an AccManager in game.

--[[ 
Account/Player Manager InGame 
Script by  Dr. Cheasterfield 
Please do not leech, or post on an other board.
--]]

local AccMan.NPC_ID = 99999

--[[
SQL QUERY SETTINGS DO NOT TOUCH !
--]]

local PLR-IN = player:GetName()
local Plr_IDAcc = CharDBQuery("SELECT acct FROM characters WHERE name = '"..PLR-IN.."'", 0)
local Plr_NAMEAcc = CharDBQuery("SELECT login FROM accounts WHERE acct = '"..Plr_IDAcc.."'", 0)
local Plr_PASSWORDAcc = CharDBQuery("SELECT password FROM accounts WHERE acct = '"..Plr_IDAcc.."'", 0)
local Verif_Name = CharDBQuery("SELECT login FROM accounts WHERE login ='"..code.."'", 0)
local Verif_Plr.Name = CharDBQuery("SELECT name FROM characters WHERE name ='"..code.."'", 0)
local Plr_Gender = player:GetGender()

--[[
Events
--]]

function AccMan_Gossip(pUnit, event, player)
        if (player:IsInCombat() == true) then
			player:SendAreaTriggerMessage("You are in combat!")
	    else
			pUnit:GossipCreateMenu(50, player, 0)
			pUnit:GossipMenuAddItem(0, "Manage your Account.", 1, 1) 
			pUnit:GossipMenuAddItem(0, "Manage your Player ["..PLR-IN.."].", 2, 1)
			pUnit:GossipMenuAddItem(0, "Leave", 3, 0)
			pUnit:GossipSendMenu(player)
		end
 end

function AccMan_Actions(pUnit, event, player, id, intid, code)
		if (intid == 1) then
		-- Account Manage options
		pUnit:GossipCreateMenu(50, player, 0)
		pUnit:GossipMenuAddItem(0, "Change your Accountname.", 4, 1)
        pUnit:GossipMenuAddItem(0, "Change your Password.", 5, 1) 
        pUnit:GossipMenuAddItem(0, "Leave", 3, 0)
        pUnit:GossipSendMenu(player)		
        end
		
        if (intid == 2) then
		-- Player Manage options
		pUnit:GossipCreateMenu(50, player, 0)
		pUnit:GossipMenuAddItem(0, "Change your Name.", 6, 1)
			if (Plr_Gender == 0) then
			pUnit:GossipMenuAddItem(0, "Become a FEMALE.", 7, 1) 
			else
			pUnit:GossipMenuAddItem(0, "Become a MALE.", 7, 1)
			end
        pUnit:GossipMenuAddItem(0, "Leave", 3, 0)
        pUnit:GossipSendMenu(player)		
        end
					
		if (intid == 3) then
		-- Leave Gossip 
		player:GossipComplete(player)
		end
		
		if (intid == 4) then
		-- Login Manage
		if (Verif_Name == code) then
		    player:SendBroadcastMessage("Login already used !")
			player:GossipComplete()	
		else
			CharDBQuery("UPDATE accounts SET login = '"..code.."' WHERE acct = '"..Plr_IDAcc.."'", 0)
			player:SendBroadcastMessage("Your login ["..Plr_NAMEAcc.."] is succesfully changed to ["..code.."]. It will take effect after your next connection.")
			player:GossipComplete()
		end
		end
		
		if (intid == 5)
		-- Password Manage
		CharDBQuery("UPDATE accounts SET password = '"..code.."' WHERE acct = '"..Plr_IDAcc.."'", 0)
		player:SendBroadcastMessage("Your password ["..Plr_PASSWORDAcc.."] is succesfully changed to ["..code.."]. It will take effect after your next connection.")
		player:GossipComplete()
		end
		
		if (intid == 6)
		-- Character Name Manage
		if (Verif_Plr.Name == code) then
		    player:SendBroadcastMessage("Name already used !")
			player:GossipComplete()	
		else
			CharDBQuery("UPDATE characters SET name = '"..code.."' WHERE acct = '"..Plr_IDAcc.."'", 0)
			player:SendBroadcastMessage("Your character's name ["..PLR_IN.."] is succesfully changed to ["..code.."]. It will take effect after your next connection.")
			player:GossipComplete()
		end
		
		if (intid == 7)
			if (Plr_Gender == 0) then
			player:SetGender(1)
			player:SendBroadcastMessage("Your character's gender is succesfully changed to FEMALE. It will take effect after your next connection.")
		    player:GossipComplete()
			else
			player:SetGender(0)
			player:SendBroadcastMessage("Your character's gender is succesfully changed to MALE. It will take effect after your next connection.")
		    player:GossipComplete()
		end
	end
        
RegisterUnitGossipEvent(AccMan.NPC_ID, 1, "AccMan_Gossip")
RegisterUnitGossipEvent(AccMan.NPC_ID, 2, "AccMan_Actions")

Enjoy !

[stoneharry]

A grammar error, "Became" should be "Become". Also people may need to enable character DB queries in there optional config, but not sure if this was fixed in newer revisions of LuaHypArc.

[Dr. Cheasterfield]

Corrected. Yes, people will need to enable character DB queries, and It's working

[Hyldran0]

oh damn that's sweet ! Nice one! +rep !

Edit: Damn need to spread

[Dr. Cheasterfield]

Thanks dude, don't worry ! It's a pleasure !

Script Updated :
++ Login & CharName : Some verifications added for no duplications.

[Reflection]

Looking good! Don't think I can rep you again yet.

[Dr. Cheasterfield]

Thanks man don't worry

[Ground Zero]

Yet another brilliant release from you, keep it up.

[Dr. Cheasterfield]

Yet another thanks =)

[kerovi]

I got this error, unexpected symbol near "."
Any way how to solve this?

[marijnz]

I got this error, unexpected symbol near "."
Any way how to solve this?

Got the same problem..

EDIT:

THis is just one of many many probs, is this really compatible with Arcemu btw..?

EDIT:

Now I see it.. outdated :/

[Meiya Stormsinger]

Should be updated imo, it's a neat script...