Vou tentar criar para você, um momento !

OBS: Depois irei editar o post.

ok... !! fico no aguardo..

Em data/talkaction/script crie um arquivo chamado removervip e adicione:

function onSay(cid,words,param)
 
local requiredGroup = 6
 
local vipStorageValue = 445566
 
local target = getPlayerByNameWildcard(param)
 
elseif words == '/removervip' then 
 
if target > 0 then
if getPlayerGroupId(cid) >= requiredGroup and param ~= "" and getPlayerStorageValue(target, vipStorageValue) == 1 then
adminName = getPlayerName(cid)  
setPlayerStorageValue(target, vipStorageValue, -1) 
doPlayerSendTextMessage(target, MESSAGE_STATUS_CONSOLE_BLUE, 'Agora você é um membro free. '..adminName..' Retirou sua VIP.')  
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você retirou a VIP de "..param..".") 
 
elseif getPlayerGroupId(cid) < requiredGroup then 
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você não pode tirar a VIP of anyone.")
 
elseif getPlayerStorageValue(target, vipStorageValue) ~= 1 then 
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Este player não é um membro VIP.")
end
else
doPlayerSendTextMessage(cid, 21, "O player não existe ou não está online.")
 
end
end 
return TRUE
end

Na mesma pasta crie um arquivo vipdays e adicione:

function onSay(cid, words, param)
if(words == "!vipdays") then
local timenow = os.time()
local quantity = math.floor((getPlayerStorageValue(cid, 66548) - timenow)/(24 * 60 * 60))
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem ".. (quantity < 0 and 0 or quantity) .." dias de VIP no seu character.")
elseif(words == "/checkvip") then
if getPlayerAccess(cid) == 5 then
if not param then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid param specified.")
end
local player = getPlayerByName(param)
if not isPlayer(player) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player "..player.." not found.")
end
local timenow = os.time()
local quantity = math.floor((getPlayerStorageValue(player, 66548) - timenow)/(24 * 60 * 60))
doPlayerPopupFYI(cid, "O jogador tem ".. (quantity < 0 and 0 or quantity) .." dias de VIP no character.")
return TRUE
end

Em data/talkactions/talkactions.xml adicione está tag:

<talkaction log="yes" words="/removervip" event="script" value="removervip.lua"/>
<talkaction log="yes" words="!vipdays;!/checkvip" event="script" value="vipdays.lua"/>

Esqueci de te falar dentro do data\creaturescripts\scripts\login.lua adicione:

registerCreatureEvent(cid, "FimVip")

Não consegui fazer a de verificação de dias ! :/

Editado Julho 8, 2014 10 anos por AlekysRocha. (veja o histórico de edições)

o meu login ta assim... onde eu ponho isso??

function onLogin(cid)

local player = Player(cid)
local loginStr = "Welcome to " .. configManager.getString(configKeys.SERVER_NAME) .. "!"
if player:getLastLoginSaved() <= 1 then
loginStr = loginStr .. " Please choose your outfit."
player:sendOutfitWindow()
else
if loginStr ~= "" then
player:sendTextMessage(MESSAGE_STATUS_DEFAULT, loginStr)
end

loginStr = string.format("Your last visit was on %s.", os.date("%a %b %d %X %Y", player:getLastLoginSaved()))
end
player:sendTextMessage(MESSAGE_STATUS_DEFAULT, loginStr)

player:registerEvent("PlayerDeath")
player:registerEvent("Tirecz")
player:registerEvent("inquisitionPortals")
player:registerEvent("fury")
player:registerEvent("wrath")
player:registerEvent("scorn")
player:registerEvent("spite")
player:registerEvent("snake")
player:registerEvent("Azerus")
player:registerEvent("Vesperoth")
player:registerEvent("demonOakLogout")
player:registerEvent("demonOakDeath")
player:registerEvent("bosseswarzone")
player:registerEvent("tasks")
player:registevent(EddyHavoc, 3*1000, cid)
e)
end
return true
end

e tambem no meu console aparece esse erro

Waring - Event::checkScript Can not load: script/login.lua
data/creaturescripts/scripts/login.lua:36 '<eof>' expected near 'end'

Só colocar no final, ( irei adicionar para você ) Deu o erro por quê você não adicione a tag no login.lua

function onLogin(cid)

local player = Player(cid)
local loginStr = "Welcome to " .. configManager.getString(configKeys.SERVER_NAME) .. "!"
if player:getLastLoginSaved() <= 1 then
loginStr = loginStr .. " Please choose your outfit."
player:sendOutfitWindow()
else
if loginStr ~= "" then
player:sendTextMessage(MESSAGE_STATUS_DEFAULT, loginStr)
end

loginStr = string.format("Your last visit was on %s.", os.date("%a %b %d %X %Y", player:getLastLoginSaved()))
end
player:sendTextMessage(MESSAGE_STATUS_DEFAULT, loginStr)

player:registerEvent("PlayerDeath")
player:registerEvent("Tirecz")
player:registerEvent("inquisitionPortals")
player:registerEvent("fury")
player:registerEvent("wrath")
player:registerEvent("scorn")
player:registerEvent("spite")
player:registerEvent("snake")
player:registerEvent("Azerus")
player:registerEvent("Vesperoth")
player:registerEvent("demonOakLogout")
player:registerEvent("demonOakDeath")
player:registerEvent("bosseswarzone")
player:registerEvent("tasks")
player:registevent(EddyHavoc, 3*1000, cid)

registerCreatureEvent(cid, "FimVip")

e)
end
return true
end

olha oq aparece

 

minha talk se encontra assim:

<talkaction words="/removervip" script="gamemaster/removervip.lua"/>
<talkaction words="/ban" separator=" " script="gamemaster/ban.lua" />
<talkaction words="/ipban" separator=" " script="gamemaster/ipban.lua" />

<talkaction words="!vipdays;!checkvip" script="players/vipdays.lua"/>
<talkaction words="!buyhouse" script="players/buyhouse.lua"/>
<talkaction words="!leavehouse" script="players/leavehouse.lua"/>

Editado Julho 9, 2014 10 anos por maper007 (veja o histórico de edições)