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

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.