Leo Zanin

Ae galera do TK, uns caras ficaram me mandando PM pedindo esse sistema aqui.. aparentemente tem em algum server e eles queriam replicar o sistema no OT deles. Não sei como funciona no outro server mas no script que eu fiz vai funcionar assim:
Serão 100 livros que você poderá comprar de um npc específico, cada livro te dá 1 ponto a mais na skill Dodge e isso acarreta em 0.3% de chance a mais de desviar de um golpe e tomar só 50% de dano. Infelizmente eu nunca joguei no servidor que foi o pioneiro desse sistema (na vdd eu nem sei qual é) então eu não fiz igual o deles, na realidade o meu só funciona ao perder vida então se o mago usar utamo vita acabou os dodge's dele. Outra coisa importante é que o player tem uma chance rara de dar Dodge no Dodge, ou seja, levando 1/4 do dano. Só vai funcionar para ataques de criaturas, tanto melee quanto spells, ou seja, se o cara passar no fogo não tem chance dele desviar do dano 
Sem mais delongas, vamos ao script:

Crie um arquivo chamado dodge.lua na pasta creaturescripts\scripts e coloque isso dentro dele:
 

agora adicione essa linha no creaturescripts.xml:
<event type="statschange" name="dodge" event="script" value="dodge.lua"/> em creaturescripts\scripts\login.lua adicione isso antes do ultimo return true:
registerCreatureEvent(cid, "dodge") if getPlayerStorageValue(cid, 48902) == -1 then         setPlayerStorageValue(cid, 48902, 0)      end agora vá em actions.xml e adicione essa linha aqui:
<action itemid="1950" script="dodgebook.lua"/> note que vc pode mudar o ID do livro a hora que vc quiser.

em items.xml, procure o item com o ID que vc irá utilizar e deixe ele assim:
<item id="1950" article="a" name="Skill Book [DODGE]"> <attribute key="weight" value="1300" /> </item> agora crie um arquivo chamado dodgebook em actions\scripts e coloque isso dentro dele:

Vai na pasta modules
 
abre o arquivo modules.xml e deleta a tag que contem o arquivo do sistema de equipar objeto por hotkey, aqui a tag está assim:
<module type="recvbyte" byte="119" delay="1000" script="equipobject/equipobject.lua"/>
 
 
 

Esta é uma mensagem automática! Este tópico foi movido para a área correta.
Pedimos que você leia as regras do fórum.
 

Por essas e outras que os fóruns vem decaindo... Triste!

Sim @Vodkart, se você está sem tempo tudo bem, eu achei que você não queria mais saber de mim  kkkkkkkkk 
De qualquer forma, obrigado por ter me ajudado ontem e obrigado pela resposta! 

é aquele do sistema da exclusive hunt? eu até faria mas estou sem tempo, ontem fiz o tile achando que você já tivesse alguma base =/

O Script que eu uso é diferente e não me lembro de acontecer esse erro, se quiser testar:
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 local function delayMoneyRemoval(item, pos) doRemoveItem(getTileItemById(pos, item).uid) return true end local function placeMoney(amount, table_middle_pos) local remain = amount local crystal_coins = 0 local platinum_coins = 0 if (math.floor(amount / 10000) >= 1) then crystal_coins = math.floor(amount / 10000) remain = remain - crystal_coins * 10000 end if ((remain / 100) >= 1) then platinum_coins = remain / 100 end addEvent(doCreateItem, 550, 2152, platinum_coins, table_middle_pos) addEvent(doCreateItem, 600, 2160, crystal_coins, table_middle_pos) end local function rollDice(roll, cc_count, pc_count, table_left_pos, table_middle_pos, npc) local dice_ids = {5792, 5793, 5794, 5795, 5796, 5797} local random_rollval = math.random(1,6) local total_g = (10000 * cc_count) + (100 * pc_count) local prize_percent = 0.8 -- 80% if ((total_g) <= 300000 and (total_g) >= 5000) then doSendMagicEffect(table_left_pos, CONST_ME_CRAPS) for _, itemId in pairs(dice_ids) do if(getTileItemById(table_left_pos, itemId).uid > 0) then doTransformItem(getTileItemById(table_left_pos, itemId).uid, dice_ids[random_rollval]) end end if (roll == 1 and random_rollval <= 3) then placeMoney(total_g + (total_g * prize_percent), table_middle_pos) addEvent(doSendMagicEffect, 400, table_left_pos, CONST_ME_SOUND_GREEN) addEvent(doSendMagicEffect, 700, table_left_pos, CONST_ME_SOUND_GREEN) addEvent(doCreatureSay, 500, npc, "You win!", TALKTYPE_SAY, false, 0) elseif (roll == 2 and random_rollval >= 4) then placeMoney(total_g + (total_g * prize_percent), table_middle_pos) addEvent(doSendMagicEffect, 400, table_left_pos, CONST_ME_SOUND_GREEN) addEvent(doSendMagicEffect, 700, table_left_pos, CONST_ME_SOUND_GREEN) addEvent(doCreatureSay, 500, npc, "You win!", TALKTYPE_SAY, false, 0) else addEvent(doSendMagicEffect, 400, table_left_pos, CONST_ME_BLOCKHIT) addEvent(doSendMagicEffect, 700, table_left_pos, CONST_ME_BLOCKHIT) addEvent(doCreatureSay, 500, npc, "Better luck next time.", TALKTYPE_SAY, false, 0) end doCreatureSay(npc, string.format("%s rolled a %d.", getCreatureName(npc), random_rollval), TALKTYPE_ORANGE_1, false, 0, table_left_pos) else addEvent(doCreateItem, 100, 2160, cc_count, table_middle_pos) addEvent(doCreateItem, 150, 2152, pc_count, table_middle_pos) doCreatureSay(npc, "The minimum wager is 5K and the maximum wager is 300K.", TALKTYPE_SAY, false, 0) end return true end function creatureSayCallback(cid, type, msg) -- NPC userdata instance local npc = getNpcCid() -- Game table position userdata instances local table_left_pos = {x = 32260, y = 32274, z = 12} -- Pos da frente do Npc onde gira o dado local table_middle_pos = {x = 32261, y = 32274, z = 12} -- Pos do meio onde vai o dinheiro -- Search for coins on the left and middle tables and create item userdata instances local table_middle_cc = getTileItemById(table_middle_pos, 2160) local table_middle_pc = getTileItemById(table_middle_pos, 2152) -- Other variables local cc_count = 0 local pc_count = 0 local ROLL, LOW, HIGH = 0, 1, 2 posplayer = {x=32262, y=32275, z=12} -- Pos onde o player precisa estar local ppos = getPlayerPosition(cid) if ppos.x == posplayer.x and ppos.y == posplayer.y then if isInArray({"H", "HIGH", "high", "h"}, msg) then ROLL = HIGH elseif isInArray({"L", "LOW", "l", "low"}, msg) then ROLL = LOW else return false end if (table_middle_cc.uid ~= 0) then cc_count = table_middle_cc.type doTeleportThing(table_middle_cc.uid, table_left_pos) addEvent(delayMoneyRemoval, 300, 2160, table_left_pos) end if (table_middle_pc.uid ~= 0) then pc_count = table_middle_pc.type doTeleportThing(table_middle_pc.uid, table_left_pos) addEvent(delayMoneyRemoval, 300, 2152, table_left_pos) end addEvent(rollDice, 500, ROLL, cc_count, pc_count, table_left_pos, table_middle_pos, npc) else return false end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new())  

Concordo!
Muitos que se dizem "ajudar" os outros estão cobrando este sistema e outros pelas costas do TK... 
Bom, eu estou começando a aprender agora sobre funções do TFS 1.2, quem sabe um dia poderei ajudar mais o fórum... Estou me esforçando pra isso.
Alguém com experiência para ajudar? Abraço!

@PokemonxSpace O erro do itemeditor é porque está faltando DLL no seu pc, coloque esse numero no google e no final DLL, ai tu baixa e pronto.
 
Em relação ao player passar dentro do outro, isso meche em source, tente ver esse tópico:
 
Obs: Se lhe ajudei, de um REP+ :D

Tudo bem pessoal do Tibia King, venho trazendo o WAR ANTI ENTROSA 8.60! free para todos, que o nosso amigo @Way20 postou no Tibia King, porém peço ajuda de vocês para adaptar para TFS 1.2, estamos aqui para um ajudar o outro e acredito que seja uma atitude muito egoísta não compartilhar com todos e alguns estão vendendo o sistema por ai!
 
Creaturescript
 
Talkactions
 
War entrosa edron
 
War entrosa Carlin
 
War entrosa ankrahmun
 
 
Peço que nos ajude a converter para TFS 1.2 o mais atual!
Precisamos um ajudar o outro.
 

@Dann123 Mysql ou Sqlite?

function onStepIn(creature, item, position, fromPosition) local player = creature:getPlayer() if player == nil then return false end local config = { storage = 11223, from = {x = 31719, y = 32978, z = 7}, -- coordenada do canto superior esquerdo da área. to = {x = 31760, y = 33050, z = 7}, -- coordenada do canto inferior direito da área. maxPlayers = 1, -- quantos jogadores poderão entrar na área ao mesmo tempo. pos = {x = 31722, y = 32982, z = 7} -- para onde o jogador será teleportado. } local function getPlayersInArea(from, to) local c = 0 for _, cid in pairs(Game.getPlayers()) do if isInRange(Player(cid):getPosition(), from, to) then c = c + 1 end end return c end if player:getStorageValue(config.storage) <= os.time() or getPlayersInArea(config.from, config.to) >= config.maxPlayers then player:teleportTo(fromPosition) player:sendTextMessage(MESSAGE_INFO_DESCR,player:getStorageValue(config.storage) <= os.time() and "Voce nao tem acesso a Exclusive Hunt!" or "Voce nao pode acessar essa area pois ja tem alguem caçando nela!") return true end player:teleportTo(config.pos) player:getPosition():sendMagicEffect(CONST_ME_TELEPORT) return true end  

eu aconselho a repassar todos os script desses citados para o tfs 1.2
 
no tile mesmo, refazer desde a função primaria...
 
bom, só para constar, a função "getPlayersOnline()" não existe mais, no lugar dela use --> "Game.getPlayers()"

Tente transferir esses chares para outra conta, e logue 1 por 1.
 
Exemplo, Knight Sample, se encontra na acc 2.
Seu GOD se encontra na acc 4, então, transfira o sample para acc 4, acesse o mesmo, após isso, retorne-o para acc 2
 
Pelo MySql ou SQLite dependendo do seu servidor, vc vai encontrar essa opção.

Não manjo de TFS 1+, mas sei que esse erro do 0/100 é porque o storage inicialmente é -1, então quando ele soma 1, vai ficar zero. Antes dessa soma você tem que determinar 0 para esse storage, acredito que seja assim, tente substituir o final por essa parte:
player:teleportTo(zombieespera) if Game.getStorageValue(ze_joinCountGlobalStorage) < 0 then Game.setStorageValue(ze_joinCountGlobalStorage, 0) end Game.setStorageValue(ze_joinCountGlobalStorage, Game.getStorageValue(ze_joinCountGlobalStorage) + 1) Game.broadcastMessage(string.format('%s has joined the Zombie Event! [%s/'.. ze_maxPlayers ..'].', player:getName(), Game.getStorageValue(ze_joinCountGlobalStorage)), MESSAGE_STATUS_WARNING) player:setStorageValue(ze_joinStorage, 1) return true end  

@Leo Zanin Tente assim:
 
Obs: Se lhe ajudei, de um REP+ :D

Olá senhoras e senhores, venho por meio desse tópico trazer algo que atualmente está realmente me incomodando muito em que toda vez que eu entro no fórum do TibiaKing para ver o que está acontecendo. Temo que muitas pessoas não leiam esse tópico, devido a falta de maturidade, ou por serem novatos no mundo do Open Tibia, os que lerem por completo tenho certeza que iram comentar.
 
Quem é programador de quaisquer linguagem de programação do TibiaKing, talvez deva se sentir alguma coisa parecida como o que eu sinto: eu não tenho vontade mais de programar/ajudar a maioria das pessoas TibiaKing. As vezes eu ajudo um ou outro, mas eu só ajudo aquele que ajuda outras pessoas também. Somos uma comunidade de Open Tiba, ou éramos, porque cada dia essa "comunidade" está se tornando irreconhecível, precisamos mudar isso antes que seja tarde de mais.
 
A um tempo atrás eu me frustrei muito com essa "comunidade", eu fiz um script para uma pessoa, na qual eu não me recordo quem, mas eu queria citar o nome, só para a pessoa ver a atitude dela. Essa pessoa me mandou mensagem privada após, falando que o script funcionava, e me pedindo para eu remover do tópico, depois daquele dia, eu me ausentei muito do TibiaKing, e removi de me mandarem mensagem privada.
 
Quando eu acabo de programar os meus dois servidores, eu abro o TibiaKing as vezes para ler, para ver o que está passando por aqui, vejo pessoas venerando/exaltando pessoa X e Y por trazerem datapacks horríveis para a Comunidade, cheio de bugs propositais e dando para a Comunidade, e em off *cough* skype *cough* , eles vendem aquelas datapacks com mais bugs, porém com mais features por valores absurdos.
 
Uma coisa que mais me frustrou nessa semana foi pessoa X vendendo um script que já existe na internet desde 2011, e que somente modificou o nome, e não fez nada, e foi cobrar a pessoa U por trazer para a comunidade, como se a pessoa que trouxe estivesse errada, sendo que a pessoa X estava falando de caráter...
 
Vejam que nesse tópico eu não citei nomes, afim de evitar conflitos nesse tópico, porque não é o intuito desse tópico, mas se a carapuça serviu, então relaxa.
 
Eu senti a necessidade de falar isso por alguns motivos:
Pela a quantidade de leechers(aka sangue sugas) que existem no fórum, com leechers eu quero dizer de pessoas que pedem ajudam, mas não ajudam ninguém. Estão aqui apenas pensando em si mesmo, egoístas. Pelo fato que eu citei ocorrido com a pessoa X e U, isso realmente, me frustrou de uma maneira absurda!  
Mas enfim, vamos deixar nossos egos de lado por um momento e de discutir sobre isso de alguma forma construtiva. Peço para que os Administradores se possível não deletem o tópico/movam para a lixeira. Estou apenas comentando uma coisa que está acontecendo em nosso fórum, no qual precisamos melhorar ele.
 
Irei citar alguns dos Administradores/Moderadores para verem o tópico: @Matk @Guilherme @Comedinha @Azhaurn @Wakon @Snowsz
 
vankk.

Caso o jogador seja acima do level configurado ele vai receber os items, evitando assim jogadores recebendo muitos items, e caso o jogador não tenha cap, o item será enviado para o Inbox dele.
 
local config = { items = { {itemId = 111, count = 1}, {itemId = 111, count = 1}, {itemId = 1111, count = 1}, }, minLevel = 100 -- level minimo para receber os items } function onThink(interval) local players = Game.getPlayers() if #players == 0 then return true end for _, player in ipairs(players) do if player:getLevel() => config.minLevel then local reward = config.rewards[math.random(#config.items)] local ret = player:addItemEx(Game.createItem(reward.itemId, reward.count)) if ret ~= RETURNVALUE_NOERROR then local inbox = player:getInbox() if inbox then inbox:addItemEx(rewardItem, INDEX_WHEREEVER, FLAG_NOLIMIT) end end player:sendTextMessage(MESSAGE_EVENT_ADVANCE, string.format('Did you recived %s. You can get more items within 30 minutes. %s', ItemType(reward.itemId):getName(), ret ~= 0 and "The reward was sent to your inbox due not enough capacity or room in your backpack." or "")) end end return true end  

Cara falar a verdade o Tibia em si está com muita menas gente do que antes
Agora os Derivados levou a maioria dos player
E esse merda de Baiak extinguiu os Rpg (pelo fato dos tp's e tals, o povo não gosta de procurar em mapa próprio)
Eu acho que devia háver algo para inspirar as pessoas a voltar ao TIBIA e sair dos derivados (ou até mesmo trazer pessoas que não conhecem)

Cara,
Eu tava utilizando SERVERS 10.76 , e decidi mudar para o 8.60 global , fiquei surpresso com este aqui.
Tem os mapas que voce disse porem sao apenas vip mas basta voce colocar para todos entrarem no tp de vip.
Funcoes muito boas, e com cast ainda.