[Script] Comando De Transferir Vip.

[ninjabroder 1]

Eae galera!

 

Não sou muito bom scripter e não consegui criar um comando de player, que transfira vip de um char para o outro, retirando vip de quem transferiu, tá muuuito hard, se puderem ajudar, vlwzão!

[caotic 393]

Eu fiz o script so que e de premuin pq se voce usar vip tem uma storage.

Se voce falar a storage eu poderei realizar pelo sistema vip do seu ot

Se não usar vip ou seja o sistema premuin normal do seu otserv esta ae o script:

 

 

Crie um arqivo chamado transf.lua

 

function onSay(cid, words, param, channel)

if(param == '') then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command param required.")

return true

end

 

local t = string.explode(param, ",")

 

local player = getPlayerByNameWildcard(tostring(t[1]))

if(not isPlayer(player)) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Corriga o nome do player este player descrito nao existe.")

return true

end

 

 

local vip = tonumber(t[2])

 

if getPlayerPremiumDays(cid) >= vip then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce não tem essa quantidade de premuin para transferir.")

return true

end

 

 

 

doPlayerAddPremiumDays(player, vip)

doPlayerRemovePremiumDays(cid, vip)

return true

end

 

 

<talkaction words="/trocapremuin" access="1" event="script" value="transf.lua"/>

Editado Maio 19, 2012 por caotic

[Nathan96 4]

i si viesse ao caso eu quiser vender a vip a algum player i ai no caso o comando fosse tipo como si fosse por trade igual você vende items normalmente ? Só que com a vip entendeu ?

[caotic 393]

Nao entendi explica melhor ai poderemos resolver sua duvida

[Nathan96 4]

seria assim voce escrevia !tradevip fulando,10 (10 seria a quantidade de vip) ai apareceria uma janelinha de trade com um documento i nele contendo a vip.

[ninjabroder 1]

Não sei se to mandando certo, mas no storage.lua , é oq ta escrito:

 

function onSay(cid, words, param)

local t = string.explode(param, ",")

if(not t[2]) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid param specified.")

return true

end

 

local tid = getPlayerByNameWildcard(t[1])

if(not tid or (isPlayerGhost(tid) and getPlayerGhostAccess(tid) > getPlayerGhostAccess(cid))) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player " .. param .. " not found.")

return true

end

 

if(not t[3]) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, " [" .. t[1] .. " - " .. t[2] .. "] = " .. getPlayerStorageValue(tid, t[2]))

else

setPlayerStorageValue(tid, t[2], t[3])

end

 

return true

end

 

 

 

Se puder ajudar eu agradeço muito!

[caotic 393]

nao e este

 

Me passa um script que voce use para alguma funçao vip

Qualquer coisa chão vip,cidade vip sei la

[atakashi 11]

caotic , o script de storage e esse aki

-- Script SYtem vip 1.0 --

 

function onSay(cid, words, param)

if(words == "xxxx") then

local price = 3000000

if doPlayerRemoveMoney(cid, 3000000) == TRUE then

local days = 30

local daysvalue = days * 24 * 60 * 60

local storageplayer = getPlayerStorageValue(cid, 13590)

local timenow = os.time()

 

if getPlayerStorageValue(cid, 13590) - os.time() <= 0 then

time = timenow + daysvalue

else

time = storageplayer + daysvalue

end

 

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Foram adicionados ".. days .." dias de VIP no seu character.")

setPlayerStorageValue(cid, 13590, time)

 

local quantity = math.floor((getPlayerStorageValue(cid, 13590) - timenow)/(24 * 60 * 60))

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem ".. quantity .." dias de VIP restantes.")

else

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você precisa de "..price.." gp's para colocar vip.")

end

 

elseif(words == "!vipdays") then

local timenow = os.time()

local quantity = math.floor((getPlayerStorageValue(cid, 13590) - 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)

local pid = getPlayerByNameWildcard(param)

if(not pid or (isPlayerGhost(pid) and getPlayerGhostAccess(pid) > getPlayerGhostAccess(cid))) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player with this name doesn\'t exist or is offline.")

return TRUE

end

 

local timenow = os.time()

 

local quantity = math.floor((getPlayerStorageValue(player, 13590) - timenow)/(24 * 60 * 60))

doPlayerPopupFYI(cid, "O jogador tem ".. (quantity < 0 and 0 or quantity) .." dias de VIP no character.")

return TRUE

end

 

elseif(words == "/addvip") then

if getPlayerAccess(cid) == 5 then

local t = string.explode(param, ",")

if not t[2] then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid param specified.")

end

 

local player = getPlayerByName(t[1])

local days = t[2]

local pid = getPlayerByNameWildcard(t[1])

if(not pid or (isPlayerGhost(pid) and getPlayerGhostAccess(pid) > getPlayerGhostAccess(cid))) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player with this name doesn\'t exist or is offline.")

return TRUE

end

 

local daysvalue = days*3600*24

local storageplayer = getPlayerStorageValue(player, 13590)

local timenow = os.time()

 

local time = storageplayer <= 0 and (timenow + daysvalue) or (storageplayer + daysvalue)

 

doPlayerSendTextMessage(player, MESSAGE_INFO_DESCR, "Foram adicionados "..days.." dias de VIP no seu character.")

setPlayerStorageValue(player, 13590, time)

local quantity = math.floor((getPlayerStorageValue(player,13590) - timenow)/(3600*24))

doPlayerSendTextMessage(player, MESSAGE_INFO_DESCR, "Você tem "..quantity.." dias de VIP restantes.")

end

 

elseif(words == "/delvip") then

if getPlayerAccess(cid) == 5 then

local dec = MESSAGE_INFO_DESCR

if(param == "") then return TRUE,doPlayerSendTextMessage(cid,18,"Command param required.")end

local C,t = {},string.explode(param, ",")

C.pos = getPlayerPosition(cid)

C.uid = getCreatureByName(t[1])

C.time = ((tonumber(t[2]) == nil) and 1 or tonumber(t[2]))*3600*24 --Tempo da vip por dia.

C.days = (tonumber(t[2]) == nil) and 1 or tonumber(t[2]) --Dias de vip.

local pid = getPlayerByNameWildcard(t[1])

if(not pid or (isPlayerGhost(pid) and getPlayerGhostAccess(pid) > getPlayerGhostAccess(cid))) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player with this name doesn\'t exist or is offline.")

return TRUE

end

 

if(getPlayerStorageValue(C.uid,13590) < C.time)then

doPlayerSendTextMessage(cid,dec,'O jogador '..t[1]..' não possui '..C.days..' dias de vip.')

else

doPlayerSendTextMessage(cid,dec,'Você removeu '..C.days..' dias de vip do player '..t[1]..'.')

setPlayerStorageValue(C.uid,13590,getPlayerStorageValue(C.uid,13590)-C.time)

end

doSendMagicEffect(C.pos, math.random(28,30))

end

end

 

return TRUE

end

 

[caotic 393]

esta ae

 

function onSay(cid, words, param, channel)

if(param == '') then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command param required.")

return true

end

 

local t = string.explode(param, ",")

 

local player = getPlayerByNameWildcard(tostring(t[1]))

if(not isPlayer(player)) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Corriga o nome do player este player descrito nao existe.")

return true

end

 

 

local vip = tonumber(t[2])

 

if getPlayerStorageValue(cid, 13590) >= vip then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Voce não tem essa quantidade de premuin para transferir.")

return true

end

 

 

 

setPlayerStorageValue(player, getPlayerStorageValue(player, 13590) + vip)

setPlayerStorageValue(cid, getPlayerStorageValue(cid, 13590) - vip)

return true

end

 

[BlackLeft 26]

Caotic você pode mandar seu msn ?

 

Preciso entrar em contato com você o mais rapido possivel, acho que vc é a unica pessoa que tem a solução para oque eu procuro.