Ir para conteúdo

(Resolvido) [Talkaction] Ajuda Por Favor !

Por arturmove
em Suporte Tibia OTServer

Featured Replies

Postado

eu queria que alguem fizesse com que esse sistema vip fosse comprado com ITEM e não com GOLD

ta ai o sistema :

-- Script SYtem vip 1.0 --

function onSay(cid, words, param)

if(words == "!buyvip") then

local price = 30

if doPlayerRemoveMoney(cid, 30) == TRUE then

local days = 10

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

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, "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 days = t[2]

if not isPlayer(player) then

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

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)

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.")

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

Editado por arturmove (veja o histórico de edições)

nmaj34.png

Você quer uma sign igual a essa com seu nome ?

só clicar aqui >

SIGN TIBIA KING

Att. Artur Move

  • Citar
  • Mention
    • Postado

    tenta assim :P

    eu não testei, se der erro me fale.

    -- Script SYtem vip 1.0 --

    function onSay(cid, words, param)

    if(words == "!buyvip") then

    local items = 2160

    if doPlayerRemoveItem(cid, items, 1) == TRUE then

    local days = 10

    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

    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, "Você precisa de um item 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 days = t[2]

    if not isPlayer(player) then

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

    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)

    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.")

    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

    Em items coloca o id do item

     http://baiakuza.com/
    IP: baiakuza.com
    TIBIA: 10.96
    Baiak Custom [ High Exp Rate ]

     

     

     

     

  • Citar
  • Mention
    • Postado

    uHAUhua.

    Cuidado com o double post.

    Poderia editar o seu, mas como é iniciante.. não deve saber :P

    Enfim, vlw.. qualquer dúvida estou aqui :D

     http://baiakuza.com/
    IP: baiakuza.com
    TIBIA: 10.96
    Baiak Custom [ High Exp Rate ]

     

     

     

     

  • Citar
  • Mention

    • Participe da conversa

    Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

    Visitante
    Responder
    Ir para a lista de tópicos

    Quem Está Navegando 0

    • Nenhum usuário registrado visualizando esta página.

    Estatísticas dos Fóruns

    • Tópicos 96.9k
    • Posts 519.8k

    Informação Importante

    Confirmação de Termo

    I accept