Sistema [Vip] Ao Paga Vip Quem Pudem Me Ajuda

[danielsurf 0]

Tipo do script: Sistema vip !

Protocolo (versão do Tibia): 8.6

Servidor utilizado: Baiak

Nível de experiência:

Adicionais/Informações:

quero coloca a vip do meu servidor de um geinto quem pude ajuda

vai vende vip pelo site storage pelo que o kara que ta editando falo

 

1° ao compra a vip pelo site da direto a ter 5 chares da account com [VIP] NA FRENTE DO NOME DO CHAR

2° AO COMPRA A VIP O CHAR FIKA JA PROMOTION TIPO CRIA CHAR ELDER DRUID NOME DO CHAR JUNIN

3° COMPRO A VIP [VIP] JUNIN BAIAK DRUID ,

QUEM PUDER ME AJUDA !

4° ao termina a vip o promotion volta ao normal e o [vip] da frente do char sair !

entao traduzindo ele volta a ser Junin Classe Elder Druid .

Editado Abril 4, 2011 por Danielsurf

[phefoo 0]

Cara não sei se é possivel esse script que vc ta falando, mas se tive rum cara que entenda bem de programação e lua fara pra vc, mas eu achei esse que adiciona a [VIP] em frente ao char!

quem fez elefoi vodkart, desculpas n pedir autorização pra postar , mas é que é do proprio site ok!

 

la vai

 

Vamos ao script, em data/talkactions/script pegue um arquivo lua qualquer e renomeie para vip.lua e adicione isso nele:

-- Script SYtem vip 1.0 -- 
-- By Vodkart -- 

function onSay(cid, words, param) 
if(words == "!buyvip") then 
local price = 5000000 
if doPlayerRemoveMoney(cid, price) == TRUE then 
local days = 30 
local daysvalue = days * 24 * 60 * 60 
local storageplayer = getPlayerStorageValue(cid, 13540) 
local timenow = os.time() 

if getPlayerStorageValue(cid, 13540) - os.time() <= 0 then 
time = timenow + daysvalue 
else 
time = storageplayer + daysvalue 
end 

if string.find(tostring(getCreatureName(cid)),"[[Vip]]") then 
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Foram adicionados ".. days .." dias de VIP no seu character.") 
setPlayerStorageValue(cid, 13540, time) 
local quantity = math.floor((getPlayerStorageValue(cid, 13540) - timenow)/(24 * 60 * 60)) 
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem ".. quantity .." dias de VIP restantes.") 
else 
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Foram adicionados ".. days .." dias de VIP no seu character.") 
setPlayerStorageValue(cid, 13540, time) 
local name = getCreatureName(cid) 
db.executeQuery("UPDATE `players` SET `name` = '[Vip] "..name.."' WHERE `id` = "..getPlayerGUID(cid)..";") 
doRemoveCreature(cid) 
end 
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, 13540) - 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, 13540) - 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 name = getCreatureName(player) 
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, 13540) 
local timenow = os.time() 
local time = storageplayer <= 0 and (timenow + daysvalue) or (storageplayer + daysvalue) 

if string.find(tostring(getCreatureName(pid)),"[[Vip]]") then 
doPlayerSendTextMessage(player, MESSAGE_INFO_DESCR, "Foram adicionados "..days.." dias de VIP no seu character.") 
setPlayerStorageValue(player, 13540, time) 
local quantity = math.floor((getPlayerStorageValue(player,13540) - timenow)/(3600*24)) 
doPlayerSendTextMessage(player, MESSAGE_INFO_DESCR, "Você tem "..quantity.." dias de VIP restantes.") 
else 
setPlayerStorageValue(player, 13540, time) 
db.executeQuery("UPDATE `players` SET `name` = '[Vip] "..name.."' WHERE `id` = "..getPlayerGUID(player)..";") 
doRemoveCreature(player) 
end 
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. 

if(getPlayerStorageValue(C.uid,13540) < 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,13540,getPlayerStorageValue(C.uid,13540)-C.time) 
end 
doSendMagicEffect(C.pos, math.random(28,30)) 
end 
end 

return TRUE 
end

 

depois em data/talkactions abra o talkactions.xml e adicione essas linhas:

 

<talkaction log="yes" words="/addvip" access="5" event="script" value="vip.lua"/>
<talkaction log="yes" words="/checkvip" access="5" event="script" value="vip.lua"/>
<talkaction log="yes" words="!buyvip" access="1" event="script" value="vip.lua"/>
<talkaction log="yes" words="!vipdays" access="1" event="script" value="vip.lua"/>

 

Primeira parte do script está finalizada, agora vamos a segunda, vá na pasta data/creaturescript/scripts pegue um arquivo lua qualquer renomeie para vip.lua e adicione isto:

 

--[[ by vodkart ]]-- 
function onLogin(cid) 

if getPlayerStorageValue(cid, 13540) - os.time() > 0 then 
setPlayerStorageValue(cid, 9898, 1) 
end 

local pos = {x = 157, y = 50, z = 7} -- posiçao do templo.  

function Vodka(cid) 
if isPlayer(cid) then    
db.executeQuery("UPDATE `players` SET `name` = '"..string.sub(getCreatureName(cid), 7).."' WHERE `id` = "..getPlayerGUID(cid)..";") 
doRemoveCreature(cid) 
end 
end 

if getPlayerStorageValue(cid, 9898) == 1 and getPlayerStorageValue(cid, 13540) - os.time() < 1 or getPlayerStorageValue(cid, 13540) - os.time() == 0 then 
doTeleportThing(cid, pos)  
doPlayerPopupFYI(cid, "Sua vip Account acabou.") 
setPlayerStorageValue(cid, 9898, -1) 
if string.find(tostring(getCreatureName(cid)),"[[Vip]]") then    
addEvent(Vodka, 3*1000, cid) 
end 
end 
return TRUE 
end

 

em data/creaturescript/creaturescript.xml e adicione essa linha:

 

<event type="login" name="checkvip1" script="vip.lua"/>

Editado Abril 5, 2011 por wyllianPhelipee

[danielsurf 0]

lek esse script tem no infinity sky mais obg !

[coyotestark 24]

olá, nao sei se estou certo em fazer isso aqui, mas nao queria criar um novo topico. acabei de colocar meu ot via dedicado da ****** de 35 reais, nao eh lá grande coisa mas por enquanto ta ajudando. Eu queria saber como eu coloco para pagar vip no site, e assim que o pagamento for comfirmado a vip entrar automaticamente, tem esse modo no DBOBrasil. eu pago a vip e ela chega aops 24 horas dias uteis.

[Tecnomancer 5]

CoyoteStark

se você usa o gesior você pode ver que nele há itens comprado pelo site mesmo ali você pode adicionar uma vip stone com que o player clique e vire vip após a confirmação que o pagamento tenha sido efetuado em seu e-mail,espero ter ajudado

flw