upgrading a user

[Yahoo]

I would like to have a script in which we can upgrade a user or vip or op to any thing i.e (vip,op or master) for eg
!upgrade <nick> <profilename>
!downgrade <nick> <profilename>
is it possible to create such a script
thanks in advanceno reply yet!!!

[Naithif]

If you don't specify a pass then no user can be changed to something else (could be with a random pass give to the OP who upgrades, but that sucks  ;D)

Here's something until someone comes with a better solution 

T_Privileges_Upgrade 		= 	{ [0] = 1, [1] = 1, [2] = 0, [3] = 0, [-1] = 0 }


function ChatArrival(User, Data)

	local s,e,Command, Username, Rank = string.find(Data, "%b<>%s+(%S+)%s+(%S+)%s+(%S+)|")
	if T_Privileges_Upgrade[User.iProfile] == 1 then
		if Command == "!upgrade" then
			if GetProfileIdx(Rank) ~= nil and GetProfileIdx(Rank) ~= -1 then

				if frmHub:isNickRegged(Username) then
					if GetUserProfile(Username) > GetProfileIdx(Rank) then

						ChangeRegUser(Username, frmHub:GetUserPassword(Username), GetProfileIdx(Rank))
						User:SendData(frmHub:GetHubBotName(), "User "..Username.." found in registered list, upgraded to "..Rank.." rank")

					else
						User:SendData(frmHub:GetHubBotName(), "User "..Username.." you tried to upgrade has a greater (or equal) rank already than "..Rank.." (Target currently "..GetProfileName(GetUserProfile(Username))..")")
					end
				else
					User:SendData(frmHub:GetHubBotName(), "You have tried to upgrade an unregistered user")
				end
			
			else
				User:SendData(frmHub:GetHubBotName(), "Invalid profilename ("..Rank.."), or tried to upgrade to user")
			end
		return 1
		elseif Command == "!downgrade" then
			if GetProfileIdx(Rank) ~= nil and GetProfileIdx(Rank) ~= -1 then

				if frmHub:isNickRegged(Username) then
					if GetUserProfile(Username) < GetProfileIdx(Rank) then

						ChangeRegUser(Username, frmHub:GetUserPassword(Username), GetProfileIdx(Rank))
						User:SendData(frmHub:GetHubBotName(), "User "..Username.." found in registered list, downgraded to "..Rank.." rank")

					else
						User:SendData(frmHub:GetHubBotName(), "User "..Username.." you tried to downgrade has a smaller (or equal) rank already than "..Rank.." (Target currently "..GetProfileName(GetUserProfile(Username))..")")
					end
				else
					User:SendData(frmHub:GetHubBotName(), "You have tried to downgrade an unregistered user")
				end
			
			else
				User:SendData(frmHub:GetHubBotName(), "Invalid profilename ("..Rank.."), or tried to downgrade to user")
			end
		return 1
		end
	end

end

This one up/downgrades every regged class (maybe custom profiles too, it isn't crossed as far as I know)

[Madman]

Here's something until someone comes with a better solution 

No need to, your script is exactlly what he wants and aslo what any other scripter would have done.

[Yahoo]

thanks for the script it works

u r the best!!!