VIP_stone.lua

local timer = 1
local itemid = ACCT["SERVER"].Vip_stone

local function RemoveVIPstone(event, _, _, player)
	SetVip(player, ACCT[player:GetAccountId()].Vip+1)
	player:RemoveItem(ACCT["SERVER"].Vip_stone, 1)
end

function VIPstone(event, player, spellID, effindex, item)

	if(ACCT[player:GetAccountId()].Vip<=(ACCT["SERVER"].Vip_max-1))then
		player:RegisterEvent(RemoveVIPstone, timer, 1, player)

	else
		player:SendBroadcastMessage("you are Max VIP "..ACCT[player:GetAccountId()].Vip..".")
	return
	end
end

RegisterItemEvent(itemid, 2, VIPstone)