PtokaX forum

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 advance

---

no reply yet!!!

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)

Quote from: Naithif on 01 July, 2007, 17:41:51
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.

thanks for the script it works

u r the best!!!