Ir para conteúdo
TK News
  • Cadastre-se

Derivado colocar tempo em item

Junior Moura

Por ,
em Suporte Tibia OTServer

 Share Seguidores 0

Posts Recomendados

Junior Moura

Junior Moura 6

Postado
Postado (editado)

Estava tentando colocar tempo em um item, mais sempre que eu do hi na nurse joy, o item pode ser usado de novo.

queria por pra poder usar a cada 30 minutos ou 1h

segue a script abaixo

 

Spoiler

local exp = 16 ---- 50% de exp extra
local storage2 = 13503
local storage3 = 55555
tempo = 30,

function onUse(cid, item, frompos, item2, topos)
if not isCreature(cid) then return false end
if getPlayerStorageValue(cid, storage2) == 1 and getPlayerStorageValue(cid, storage3) == 1
if getPlayerStorageValue(cid, 102911) > os.time() then
            return doPlayerSendCancel(cid, "Aguarde "..getPlayerStorageValue(cid, 102911) - os.time().." segundo(s) para usar novamente.")
        end
    doSendAnimatedText(getThingPos(cid), "XP BOOSTER 100%", 35)
    doPlayerSendTextMessage(cid,20,"XP BOOST 100%")
    doPlayerSetExperienceRate(cid, exp)
    doRemoveItem(item.uid, 1)
else
doPlayerSendTextMessage(cid,22,"Somente players com VIP 3 e vip 2 ativa podem usar esse boost.")
setPlayerStorageValue(cid, 102911, os.time() + config.tempo * 60 * 1000)
    return true
    end
end

script original

Spoiler

local exp = 16 ---- 50% de exp extra
local storage2 = 13503
local storage3 = 55555

function onUse(cid, item, frompos, item2, topos)
if not isCreature(cid) then return false end
if getPlayerStorageValue(cid, storage2) == 1 and getPlayerStorageValue(cid, storage3) == 1 then
    doSendAnimatedText(getThingPos(cid), "XP BOOSTER 100%", 35)
    doPlayerSendTextMessage(cid,20,"XP BOOST 100%")
    doPlayerSetExperienceRate(cid, exp)
    doRemoveItem(item.uid, 1)
else
doPlayerSendTextMessage(cid,22,"Somente players com VIP 3 e vip 2 ativa podem usar esse boost.")
    return true
    end
end

Script da nurse

Spoiler

local focus = 0

local talk_start = 0

local target = 0

local following = false

local attacking = false

local talkState = {}
local states = {'1', '2', '3', '4', '5', '6'}
local store = {1001, 1002, 1003, 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1012, 1013, 1014, 1015, 1016, 1017, 1018, 1019, 1020, 1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028, 1029, 1030, 1031, 1032, 1033, 1034, 1035, 1036, 1037, 1038, 1039, 1040, 1041, 1042, 1043, 1044, 1045, 1046, 1047, 1048, 1049, 1050, 1051, 1052, 1053, 1054, 1055, 1056, 1057, 1058, 1059, 1060, 1061, 1062, 1063, 1064, 1065, 1066,  1067, 1068, 1069, 1071, 1072, 1073, 1074, 1075, 1076, 1077, 1078, 1079, 1080, 1081, 1082, 1083, 1084, 1085, 1086, 1087, 1088, 1089, 1090, 1091, 1092, 1093, 1094, 1095, 1096, 1097, 1098, 1099, 1100, 1101, 1102, 1103, 1104, 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1112, 1113, 1114, 1115, 1116, 1117, 1118, 1119, 1120, 1121, 1122, 1123, 1124, 1125, 1126, 1127, 1128, 1129, 1130, 1131, 1132, 1133, 1134, 1135, 1136, 1137, 1138, 1139, 1140, 1141, 1142, 1143, 1144, 1145, 1146, 1147, 1148, 1149, 1150, 1151}
local unlock = {}
local pokeballs = {'2222', '2224'}
local ultraballs = {'2220', '2227'}
local superballs = {'2653', '2542'}
local greatballs = {'2652', '2541'}
local unikeballs = {'189', '191'}
local hyperballs = {'198', '200'}
local saffariballs = {'2200', '197'}
local giantball = {'11213', '11214'}

function onThingMove(creature, thing, oldpos, oldstackpos)

end

function onCreatureAppear(creature)

end

function onCreatureDisappear(cid, pos)
    if focus == cid then

selfSay('Good bye sir!')

focus = 0

talk_start = 0

    end

end

function onCreatureTurn(creature)

end

function msgcontains(txt, str)

return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))

end

function onCreatureSay(cid, type, msg)
local msg = string.lower(msg)
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
if((msgcontains(msg, 'hi') or msgcontains(msg, 'heal') or msgcontains(msg, 'help')) and (getDistanceToCreature(cid) <= 3)) and getTileInfo(getCreaturePosition(cid)).protection then
     if exhaustion.get(cid, 9211) then
    selfSay('Please wait a few moment before asking me to heal your pokemons again!')
    return true
    end
    exhaustion.set(cid, 9211, 5)

    doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid))
    doSendMagicEffect(getThingPos(cid), 132)
    if isInArray(pokeballs, getPlayerSlotItem(cid, CONST_SLOT_FEET).itemid) then
    local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET)
               doItemSetAttribute(feet.uid, "fine", 100)
    doTransformItem(feet.uid, 2222)
    end
    if isInArray(ultraballs, getPlayerSlotItem(cid, CONST_SLOT_FEET).itemid) then
    local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET)
               doItemSetAttribute(feet.uid, "fine", 100)
    doTransformItem(feet.uid, 2220)
    end
    if isInArray(superballs, getPlayerSlotItem(cid, CONST_SLOT_FEET).itemid) then
    local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET)
                doItemSetAttribute(feet.uid, "fine", 100)
    doTransformItem(feet.uid, 2653)
    end
if isInArray(greatballs, getPlayerSlotItem(cid, CONST_SLOT_FEET).itemid) then
    local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET)
    doItemSetAttribute(feet.uid, "fine", 100)
    doTransformItem(feet.uid, 2652)
    end
    if isInArray(unikeballs, getPlayerSlotItem(cid, CONST_SLOT_FEET).itemid) then
    local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET)
                doItemSetAttribute(feet.uid, "fine", 100)
    doTransformItem(feet.uid, 189)
    end
    if isInArray(hyperballs, getPlayerSlotItem(cid, CONST_SLOT_FEET).itemid) then
    local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET)
                doItemSetAttribute(feet.uid, "fine", 100)
    doTransformItem(feet.uid, 198)
    end
if isInArray(saffariballs, getPlayerSlotItem(cid, CONST_SLOT_FEET).itemid) then
    local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET)
                doItemSetAttribute(feet.uid, "fine", 100)
    doTransformItem(feet.uid, 2200)
    end
    if isInArray(giantball, getPlayerSlotItem(cid, CONST_SLOT_FEET).itemid) then
    local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET)
                doItemSetAttribute(feet.uid, "fine", 100)
    doTransformItem(feet.uid, 11213)
    end
        local bp = getPlayerSlotItem(cid, CONST_SLOT_BACKPACK)
            if #getCreatureSummons(cid) >= 1 then
            local jui = getCreatureSummons(cid)[1]
            doCreatureAddHealth(jui, getCreatureMaxHealth(jui)-getCreatureHealth(jui))
            doSendMagicEffect(getThingPos(jui), 12)
            end
            local items = getItemsInContainerById(bp.uid, 2224)
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)
            doTransformItem(uid, 2222)
            end
                       local items = getItemsInContainerById(bp.uid, 2541)
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)
            doTransformItem(uid, 2652)
            end
     local items = getItemsInContainerById(bp.uid, 2542)
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)
            doTransformItem(uid, 2653)
            end
            local items = getItemsInContainerById(bp.uid, 2227) 
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)
            doTransformItem(uid, 2220)
            end
            local items = getItemsInContainerById(bp.uid, 2222) 
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)
            end
local items = getItemsInContainerById(bp.uid, 2653) 
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)
            end
local items = getItemsInContainerById(bp.uid, 2652) 
            for _, uid in pairs(items) do
    doItemSetAttribute(uid, "fine", 100)
            end
            local items = getItemsInContainerById(bp.uid, 2220) 
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)
            end
    local items = getItemsInContainerById(bp.uid, 189) 
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)
            end
    local items = getItemsInContainerById(bp.uid, 2200) 
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)
            end
local items = getItemsInContainerById(bp.uid, 198) 
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)
            end
    local items = getItemsInContainerById(bp.uid, 200) 
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)
            doTransformItem(uid, 198)
            end
    local items = getItemsInContainerById(bp.uid, 197) 
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)
            doTransformItem(uid, 2200)
            end
local items = getItemsInContainerById(bp.uid, 191) 
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)

            doTransformItem(uid, 189)
            end
                    local items = getItemsInContainerById(bp.uid, 11213) 
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)
            end
            local items = getItemsInContainerById(bp.uid, 11214) 
            for _, uid in pairs(items) do
doItemSetAttribute(uid, "fine", 100)

            doTransformItem(uid, 11213)
            end

    selfSay('There you go! You and your pokemons are healthy again.')
    setPlayerStorageValue(cid, 61224,nil)
    setPlayerStorageValue(cid, 9390,nil)
    setPlayerStorageValue(cid, 9391,nil)
    setPlayerStorageValue(cid, 39190,nil)
    setPlayerStorageValue(cid, 39191,nil)
    setPlayerStorageValue(cid, 39192,nil)
    setPlayerStorageValue(cid, 39193,nil)
    setPlayerStorageValue(cid, 39194,nil)
    setPlayerStorageValue(cid, 39195,nil)
    setPlayerStorageValue(cid, 63121,nil)
    setPlayerStorageValue(cid, 7777,nil)
    setPlayerStorageValue(cid, 7778,nil)
    setPlayerStorageValue(cid, 9380,nil)
    
doCreatureExecuteTalkAction(cid,"/pokeread")
end
end
 
function onThink()

if focus ~= 0 then
a, b, c = selfGetPosition()
if c ~= getThingPos(focus).z then
focus = 0
end
end

if focus ~= 0 then
if getDistanceToCreature(focus) > 3 then
focus = 0
end
end

return true
end

Script login.lua

Spoiler

local config = {
    loginMessage = getConfigValue('loginMessage'),
    useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))
}

function onLogin(cid)


        local loss = getConfigValue('deathLostPercent')
        if(loss ~= nil) then

                doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, loss * 10)
        end

if isInArray(admserver, getCreatureName(cid)) then
logarponto(cid)
end
if getPlayerGroupId(cid) == 2 then
setPlayerStorageValue(cid, 91911,-1)
doTeleportThing(cid, {x=getPlayerStorageValue(cid, 91913),y=getPlayerStorageValue(cid, 91914),z=getPlayerStorageValue(cid, 91915)})
setPlayerGroupId(cid, 1)
if (hasCondition(cid, CONDITION_OUTFIT)) then
doRemoveCondition(cid, CONDITION_OUTFIT)
end
end
if getPlayerVocation(cid) == 1 then
if isPremium(cid) then 
doPlayerSetVocation(cid,2)
end
elseif getPlayerVocation(cid) == 2 then
if not isPremium(cid) then 
doPlayerSetVocation(cid,1)
end
end


    doCreatureSetDropLoot(cid, false)
    local lastLogin, str = getPlayerLastLoginSaved(cid), config.loginMessage
        if(lastLogin > 0) then
            
            str = "Your last visit was on " .. os.date("%a %b %d %X %Y", lastLogin) .. "."
                                               doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)
        else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str)
            doPlayerSendOutfitWindow(cid)
doPlayerSendCancel(cid,"sounds/pokemon.wav")
        end

    if(not isPlayerGhost(cid)) then
        doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)
    end
    local lower = {'5406', '5407', '5408','5409','5410'}


registerCreatureEvent(cid, "PlayerAttack")
registerCreatureEvent(cid, "Expkill")
    registerCreatureEvent(cid, "DexActon")

       
    registerCreatureEvent(cid, "LogoutPoke")
    
    registerCreatureEvent(cid, "Idle")
    registerCreatureEvent(cid, "FimVip")
    registerCreatureEvent(cid, "VipReceive")
    registerCreatureEvent(cid, "LevelRecompense25")
    registerCreatureEvent(cid, "LevelRecompense50")
    registerCreatureEvent(cid, "LevelRecompense75")
    registerCreatureEvent(cid, "LevelRecompense100")
    registerCreatureEvent(cid, "LevelRecompense125")
    registerCreatureEvent(cid, "LevelRecompense150")
    registerCreatureEvent(cid, "LevelRecompense200")
    registerCreatureEvent(cid, "LevelRecompense485")
    registerCreatureEvent(cid, "LevelRecompense500")
    --registerCreatureEvent(cid, "Anti-MC")
    registerCreatureEvent(cid, "Alook")

    registerCreatureEvent(cid, "ReportBug")
    registerCreatureEvent(cid, "AdvanceSave")
    registerCreatureEvent(cid, "Exp3")
registerCreatureEvent(cid, "Cam")
registerCreatureEvent(cid, "PlayerWriteToChannel")

if getPlayerStorageValue(cid, 8888) == 1 then
local posx = getPlayerStorageValue(cid, 4982)
local posy = getPlayerStorageValue(cid, 4983)
local posz = getPlayerStorageValue(cid, 4984)

local pos2 = getCreaturePosition(cid)
    pos2.stackpos = 0
    
    pos2.z = posz
    pos2.x = posx
    pos2.y = posy+2

doTeleportThing(cid, pos2)

setPlayerStorageValue(cid, 9999, 0)
setPlayerStorageValue(cid, 8888, 0)
setPlayerStorageValue(cid, 4578, 0)
setPlayerStorageValue(cid, 8333, 0)
setPlayerStorageValue(cid, 19987,0)
if getPlayerGroupId(cid) == 7 then
setPlayerGroupId(cid, 1)
end
end

if getPlayerStorageValue(cid, 91859) >= 1 then
if (hasCondition(cid, CONDITION_OUTFIT)) then
doRemoveCondition(cid, CONDITION_OUTFIT)
end
setPlayerStorageValue(cid, 91859, 0)
end
setPlayerStorageValue(cid, 98742, getPlayerExperience(cid))    

if getPlayerSlotItem(cid, 8).itemid == 2223 or getPlayerSlotItem(cid, 8).itemid == 2221 or getPlayerSlotItem(cid, 8).itemid == 190  or getPlayerSlotItem(cid, 8).itemid == 199 then
    doTransformItem(getPlayerSlotItem(cid, 8).uid, getPlayerSlotItem(cid, 8).itemid-1)
elseif getPlayerSlotItem(cid, 8).itemid == 2539 then
    doTransformItem(getPlayerSlotItem(cid, 8).uid, 2652)
elseif getPlayerSlotItem(cid, 8).itemid == 2538 then
    doTransformItem(getPlayerSlotItem(cid, 8).uid, 2653)
elseif getPlayerSlotItem(cid, 8).itemid == 196 then
    doTransformItem(getPlayerSlotItem(cid, 8).uid, 2200)
    elseif getPlayerSlotItem(cid, 8).itemid == 11215 then
    doTransformItem(getPlayerSlotItem(cid, 8).uid, 11213)
    end

    
    doChangeSpeed(cid, -(getCreatureSpeed(cid)))
    if getPlayerStorageValue(cid, 17000) >= 1 then
    item = getPlayerSlotItem(cid, 8)
if item.itemid == 2222 or item.itemid == 2220 or item.itemid == 189 or item.itemid == 198  then
    
    
doTransformItem(item.uid, item.itemid+1)
elseif item.itemid == 2652 then

doTransformItem(item.uid, 2539)
elseif item.itemid == 2653 then

doTransformItem(item.uid, 2538)
elseif item.itemid == 2200 then
doTransformItem(item.uid, 196)
elseif item.itemid == 11213 then
doTransformItem(item.uid, 11215)

end
    poke = getItemAttribute(item.uid, "nome")
if flys2[poke] then
    doChangeSpeed(cid, flys2[poke][2])
else
doChangeSpeed(cid, getCreatureBaseSpeed(cid))
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "error pleasing report to gamemaster")
end
registerCreatureEvent(cid, "Flying")
local tpka = getThingPos(cid)
local xp = getPlayerStorageValue(cid,224532)
local yp = getPlayerStorageValue(cid,224533)
local zp = getPlayerStorageValue(cid,224534)
local poskk = {x = xp, y = yp, z = zp}
if getPlayerStorageValue(cid,224532) <= 0 then
poskk = tpka
end

--if getThingPos(cid).z <= 6 then
if getTileThingByPos(poskk).itemid ~= 460 then
for x=-1,1 do
        for y=-1,1 do
            posa = {x=poskk.x+x,y=poskk.y+y,z=poskk.z}
            if getTileThingByPos(posa).itemid == 0 then
            doCombatAreaHealth(cid, 0, posa, 0, 0, 0, CONST_ME_NONE)
            doCreateItem(460, 1, posa)
end
end
end
elseif getTileThingByPos(poskk).itemid == 0 then
for x=-1,1 do
        for y=-1,1 do
            posa = {x=poskk.x+x,y=poskk.y+y,z=poskk.z}
            if getTileThingByPos(posa).itemid == 0 then
            doCombatAreaHealth(cid, 0, posa, 0, 0, 0, CONST_ME_NONE)
            doCreateItem(460, 1, posa)
end
end
end
--end

--doPlayerSendTextMessage(cid,22,tpka.z)
end
--if (hasCondition(cid, CONDITION_OUTFIT)) then
--doRemoveCondition(cid, CONDITION_OUTFIT)
--end
if flys2[poke] then
    doSetCreatureOutfit(cid, {lookType = flys2[poke][1], lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, -1)
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "error pleasing report to gamemaster")
end
doTeleportThing(cid,poskk)
    elseif getPlayerStorageValue(cid, 63215) >= 1 then
    item = getPlayerSlotItem(cid, 8)
if item.itemid == 2222 or item.itemid == 2220 or item.itemid == 189 or item.itemid == 198  then

doTransformItem(item.uid, item.itemid+1)
elseif item.itemid == 2652 then

doTransformItem(item.uid, 2539)
elseif item.itemid == 2653 then

doTransformItem(item.uid, 2538)
elseif item.itemid == 2200 then

doTransformItem(item.uid, 196)
elseif item.itemid == 11213 then
doTransformItem(item.uid, 11215)
end
    poke = getItemAttribute(item.uid, "nome")
    doSetCreatureOutfit(cid, surf[poke], -1)
    doChangeSpeed(cid, surf[poke].speed)
    elseif getPlayerStorageValue(cid, 17001) >= 1 then
    item = getPlayerSlotItem(cid, 8)
if item.itemid == 2222 or item.itemid == 2220 or item.itemid == 189 or item.itemid == 198  then

doTransformItem(item.uid, item.itemid+1)
elseif item.itemid == 2652 then

doTransformItem(item.uid, 2539)
elseif item.itemid == 2653 then

doTransformItem(item.uid, 2538)
elseif item.itemid == 2200 then

doTransformItem(item.uid, 196)
elseif item.itemid == 11213 then
doTransformItem(item.uid, 11215)
end
    poke = getItemAttribute(item.uid, "nome")
if rides2[poke] then
    doChangeSpeed(cid, rides2[poke][2])
else
doChangeSpeed(cid, getCreatureBaseSpeed(cid))
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "error pleasing report to gamemaster")
end
--if (hasCondition(cid, CONDITION_OUTFIT)) then
--doRemoveCondition(cid, CONDITION_OUTFIT)
--end
if rides2[poke] then
    doSetCreatureOutfit(cid, {lookType = rides2[poke][1], lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, -1)
else
doChangeSpeed(cid, getCreatureBaseSpeed(cid))
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "error pleasing report to gamemaster")
end
    
    else
setPokemonExp(cid,0,0)
doPlayerAddMana(cid, -getCreatureMana(cid))

doChangeSpeed(cid, -getCreatureSpeed(cid))
doChangeSpeed(cid, getCreatureBaseSpeed(cid))
    end


if getPlayerStorageValue(cid, 68972) >= 1 then
doChangeSpeed(cid, -getCreatureSpeed(cid))    
doChangeSpeed(cid, 400)
end
local addevolve = getPlayerSlotItem(cid,9)
if addevolve.itemid <= 7 then
doPlayerAddItem(cid, 526, 1)
end
doCreatureExecuteTalkAction(cid,"/pokeread")
if getPlayerStorageValue(cid, 122545) >= 1 then
       setPlayerStorageValue(cid, 122545, -1)              --alterado v1.4
       doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false)
       --setPlayerRecordWaves(cid)     --alterado v1.7  doPlayerSendTextMessage(cid,22,"Torne-se VIP 2, use o comando !tpv lista, fabrique rare candy, lute contra lendarios unicos e ganhe 500% a mais de experiencia!")

    end
    -------------- TASK SYSTEM --------------
    registerCreatureEvent(cid,"tasksystem")
    if getPlayerStorageValue(cid, 95673) < 0 then
        setPlayerStorageValue(cid, 95673, 0) 
    end
    if getPlayerStorageValue(cid, 95674) < 0 then
        setPlayerStorageValue(cid, 95674, 0) 
    end
    -----------------------------------
    
    
    
    local exp = 3 ---- 50% de exp extra
    local storage2 = 55555
    --local text = 'IMPORTANTE\n\n Use sempre o comando !save\n\n-Comandos de Ultilidade-\n* !dicas - Mostrar essa janela novamente.\n* !tutorial - Um passeio rapido por alguns sistemas do server.\n* !save - Salva o progresso do seu char, use sempre esse comando!\n* !tpf lista - Lista de teleports free (ex:  !tpf water).\n* !tpv lista - Lista de teleports VIP (ex:  !tpf entei).\n* !liga - Serve para ativar o accesso para VIP 1, caso necessario.\n* !pokenick - Adicione um nick ao seu pokemon* ! (ex:  !pokenick NickDoPoke).\n\n-Bonus Amigo de 1000% de XP-\n\n* !amigobonus NOME DO AMIGO - Invita um amigo (ex:  !amigobonus alex).\n* !amigobonus aceitar/rejeitar - Aceitar ou rejeitar um convite (ex:  !amigobonus aceitar).\n\n-Diamond Shop-\n\n* !price lista - Consultar o preço da shop lista (D = Diamonds, Ex: 15D = 15 Diamantes).\n* !shop lista - Comprar itens no diamond shop (ex:  !shop 100 rare candy).'
            
if getPlayerStorageValue(cid, storage2) == 0 or getPlayerStorageValue(cid, storage2) == -1 then
doPlayerSendTextMessage(cid,22,"Torne-se VIP 2, use o comando !tpv lista, fabrique rare candy, lute contra lendarios unicos e ganhe 500% a mais de experiencia!")
--doPlayerPopupFYI(cid, text)
else
doPlayerSendTextMessage(cid,22,"Bonus 500% XP ativado!")
doSendAnimatedText(getThingPos(cid), "VIP BONUS, XP +500% !", 35)
--doPlayerPopupFYI(cid, text)
doPlayerSetExperienceRate(cid, exp)
end
    return true
end

Mod

Spoiler

<?xml version="1.0" encoding="UTF-8"?>
<mod name="100%" enabled="yes" author="PokeDraw" forum="pokemondraw.com.br/forum">

<config name="100%"><![CDATA[

configs = {
time = 15,
needlvl = {TRUE, level = 500},
costmana = {FALSE, mana = 0},
addrate = 1000,
removeonuse = TRUE
}

function getTime(s)
    local n = math.floor(s / 60)
    s = s - (60 * n)
    return n, s
end

CreatureEventChecker = function(event, ...)
    if isCreature(arg[1]) then
        event(unpack(arg))
    end
end

creatureEvent = function(event, delay, ...)
    addEvent(CreatureEventChecker, delay, event, unpack(arg))
end

function getPlayerExtraExpRate(cid)
    return (getPlayerRates(cid)[8]-1)*100
end
]]></config>

<action itemid="6549" event="script"><![CDATA[
domodlib('100%')

local storage2 = 13503
if getPlayerStorageValue(cid, storage2) == -1 or getPlayerStorageValue(cid, storage2) == 0 then
return doPlayerSendCancel(cid, "Somente players com VIP 3 podem usar esse boost.")
end

if getPlayerStorageValue(cid, 63121) >= 1 then
    return doPlayerSendCancel(cid, "Somente um bonus por vez!")
    
end

if configs.needlvl[1] and getPlayerLevel(cid) >= configs.needlvl.level then
    return doPlayerSendCancel(cid, "Você não pode usar esse bonus apartir do lvl " .. configs.needlvl.level .. ".")
end

if configs.removeonuse then
    
    doRemoveItem(item.uid, 1)

end
 
for i = configs.time*60, 1, -1 do
local a = math.floor(i/60) .. ":" .. i - (60 * math.floor(i/60))
if #a < 4 then
a = string.sub(a,1,2) .. "0" .. string.sub(a, 3)
end
if i == configs.time*60 then
creatureEvent(doPlayerSendCancel, configs.time*60*1000, cid, "TEMPO DO BONUS DE XP ESGOTADO!")
end
creatureEvent(doPlayerSendCancel, (configs.time*60-i)*1000, cid, "[BONUS 100% DE XP ATIVADO] "..a..".")
end

doPlayerSetExperienceRate(cid, (1+(configs.addrate/100))+(getPlayerExtraExpRate(cid)/100))
creatureEvent(doPlayerSetExperienceRate, configs.time *60*1000, cid, 1+(getPlayerExtraExpRate(cid)/100-(configs.addrate/100)))
doPlayerSendTextMessage(cid, 22, "BONUS DE 100% ATIVADO!")
setPlayerStorageValue(cid, 63121, os.time())
creatureEvent(setPlayerStorageValue, configs.time *60*1000, cid, 63121, 0)
return TRUE
]]></action>


<creaturescript type="login" name="ExpPotion" event="script"><![CDATA[
domodlib('100%')
local time = configs.time 
    if os.time()-getPlayerStorageValue(cid, 63121) < time *60 then
    setPlayerStorageValue(cid, 63121, nil)
    end
return TRUE
]]></creaturescript>
</mod>

se alguém me ajudar agradeceria muito rep++ pra quem ajudar

 

 

Editado por Junior Moura (veja o histórico de edições)
Link para o post
Compartilhar em outros sites

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

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

  • Conteúdo Similar

    • LeoTK
      [Mapping - Nto NS : New Map] #Att 11/08/2022
      Por LeoTK
      Salve galera neste tópico irei postar algumas prints do mapa do servidor para quem queira acompanhar e quem sabe até utilizar de inspiração para mapear o seu NTO.
       
      #Att 11/08/2022

       
       
       
       
      Konoha (Em Desenvolvimento)
       
       
       
       
    • DiigooMix
      (Resolvido)Sprite Hitto Dragon Ball
      Por DiigooMix
      Como o título já diz, será que alguém possui sprite do hitto e se possível as transformações dele?
    • OmegaZero
      (Resolvido)DOUBLE HIT NA ARMA
      Por OmegaZero
      Olá gostaria que alguém me ajudasse com uma "scripting" não sei se é pela mesma, seria o seguinte uma determinada arma teria a chance de dar double hit e não sei oque fazer alguem poderia ajudar?

      OBS:não sei se é o local correto se não for mova, desculpe
    • Madarasenju
      (Resolvido)[PEDIDO] Npc(de enfeite que não faz nada, só anda)
      Por Madarasenju
      Olá galera do Tibia King, queria por uns npc's no meu server que não tem função de trade nem nada do tipo, queria que eles só andassem como enfeite, Rep+ Pra quem me ajudar... grato desde já.
    • SilenceRoot
      (Resolvido)Magia de teleporte
      Por SilenceRoot
      A magia é assim o você usa a a magia e ela ficará ativado por 10 segundos, até que o inimigo lance a primeira magia ou todos de uma vez, quando ele lançar a primeira magia, ele não lhe acertará ou seja esquivando dela, e logo em seguida será teletransportado aleatoriamente ao redor do inimigo que usou.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito