Scripts tfs 0.4 (OLD)

Boa Noite Galera , Blz? Hoje vim Postar um Sistema de Pokedex que mostra o Status do Pokemon : PDA [PDA S/Level] Super Basico - As Diferenças entre o PDA com Level e PDA sem Level é : PDA COM LEVEL: Os Status do Pokemon é Baseado Por Storage e Por Atributos [Atualiza o Status na hora Sem precisar da Goback para Atualizar] PDA SEM LEVEL: Os Status do Pokemon é Baseado Por Storage Somente [Atualiza o Status depois que da Goback] - Muitas Pessoas acham que o PDA S/Level , Os Pokemons nao tem Status e o unico Status da Força do Pokemon e o Boost, Level do Player ou Held Itens A Força de Boost e Level do Player ou Held Itens é Somado Com o Resto dos Statu…

Olá galera do TK vim trazer um script que muitos pediram aqui no forum e falaram que era apenas nas source para colocar em seu OTServ é muito facil vou dar um exemplo Exemplo: Vá até o script da SD que fica em "Data/spells/scripts", no arquivo suddendeath.lua e após a function onCastSpell, adicione: if isPlayer(getCreatureTarget(cid)) == TRUE and getCreatureTarget(cid) ~= getTopCreature(variantToPosition(var)).uid then doPlayerSendCancel(cid, "You can not shoot this directly on players.") return FALSE end if isPlayer(variantToNumber(var)) == TRUE then doPlayerSendCancel(cid, "You can not shoot this directly on players.") return FALSE end …

Hoje eu vim trazer um sistema de mega evolução (v1.0) Em data/actions/scripts crie uma pasta chamada Megas Lá dentro crie um Arquivo chamado CharizardX.lua e cole dentro: local level = LVL local megaout = Outfit Mega local vida = 10000 local megaeffe = Effect Mega local meganame = "Mega Charizard X" --Nome do pokémon evoluido, no Caso Mega Charizard X local megadesc = "Um Charizard em sua forma superior" -- Descrição local megaoldname = "Charizard" --Nome do Pokémon, no caso Charizard function onUse(cid, item, frompos, item2, topos) if not isMonster(item2.uid) or not isSummon(item2.uid) or #getCreatureSummons(cid) > 1 then return true end if getPokemonLeve…

Olá, hoje venho trazer um script que permite usar efeitos mágicos e textos animados em um só script sem ter que ficar criando vários arquivos .LUA com os nomes (texto, texto1, texto2, effect1, tpeffects2) e etc.. Bom, em data/globalevents/globalevents.xml adicione isso : <globalevent name="effects" interval="1500" script="effectandtext.lua"/> Agora em data/globalevents/scripts crie um arquivo effectandtext.lua, abra-o e adicione isso : local positions = { ["Templo"] = {pos = {x = 1097, y = 1062, z = 7}, color = {205, 210}, effect = {}}, ["Teleports"] = {pos = {x = 1096, y = 1063, z = 7}, color = {205, 210}, effect = {39}}, ["Area Vip"] …

Instalando Coloque isso depois de function onLogin(player) em data/creaturescripts/scripts/others/login.lua -- Free bless freeBless = { level = 50, blesses = {1, 2, 3, 4, 5} } if player:getLevel() <= freeBless.level then for i=1,#freeBless.blesses do doPlayerAddBlessing(player, freeBless.blesses[i]) end end Créditos eduardojuniosm

Descrição Automaticamente aparece a mensagem no Broadcast. Instalando data/globalevents/scripts/others/autobroadcast function onThink(interval, lastExecution) local MESSAGE = { "[COMMAND] Use !buypromotion.", "[FORUM] Report bugs on the forum! We have admins checking there every day!", "[Fixing] We are working on to fix POI, INQ and Svargrond Arena. Updates, check our website", "[INFO] You can buy your blessings in Thais temple.", } Game.broadcastMessage(MESSAGE[math.random(1, #MESSAGE)], MESSAGE_STATUS_WARNING) return true end Não esqueça de acrescentar a tag em globalevents.xml Créditos à luanluciano93 por indentar!

Informações Sistema disponibilizado e atualizado por hellboy. Para TFS 0.3.6, 0.4 e 1.0: Clique nesse tópico. Basicamente é a mesma função. Adicionado no sistema: lista de players ignorados. Instalando data/lib/hunger.lua -- Hunger System by Kronos -- version="1.2" -- author Hellboy aka Kronos (idea Nandonalt) -- CONFIG hungerConfig = { FIRST_LOGIN = -1, storageStage = 3636, storageOnDeathFeed = 3637, storageDmgAndCheckTicks = 3638, dmgAmount = 1, dmgAndCheckTicks = 5, newPlayerFeed = 30, ignore = { "Account Manager" }, stages = { [1] = {minFeed = 15, msg = "You will die if you don't eat something."}, [2] = {minFeed = 90, msg = "You are very…

Bom galera, eu tive esse problema e procurei no tibiaking porém não achei, então eu fui me virar, e vi uma solução, mesmo que provisória, ou permanente, não tenho certeza. O defeito é em alguns TFS, que não dão para logar pelo account manager pela conta do usuário, somente pela 1/1 Esse defeito está ligado as source, então, não tem como arrumar se você não as ter, recomendo que troque a sua distro. Sobre o defeito, é somente localizar esse código em protocolgame.cpp if(!IOLoginData::getInstance()->getPassword(id, hash, salt, character) || !encryptTest(salt + password, hash)) { ConnectionManager::getInstance()->addAttempt(getIP(…

Eae pessoal blz?? Estou aqui para postar um script simples porém util pra comunidade! Descrição: Você é morador de uma cidade, por exemplo, Carlin, dai você quer virar morador de Thais(Configuravel), você fala com o Npc James, ele vai te perguntar se você quer morar em thais, se você dizer sim, ele vai te teleportar para thais e você vai ser um morador de thais! Caso você já seja morador de Thais, ele vai dizer que você é morador de thais! Testado em Tfs 0.3.6pl1 e Funcionou! Simples não?? Vamos começar! Em data/npc crie um arquivo James.xml e coloque isto dentro: <?xml version="1.0" encoding="UTF-8"?> <npc name="James" script="data/npc/scripts/J…

Instalando <talkaction words="!h" event="script" value="tele.lua"/> <talkaction words="/h" event="script" value="tele.lua"/> <talkaction words="h" event="script" filter="quotation" value="tele.lua"/> tele.lua local poke = {'Abra', 'Kadabra', 'Alakazam', 'Drowzee', 'Hypno', 'Mr.mime', 'Porygon'} local etele = 9499 local cdtele = 1800 function onSay(cid, words, param) if #getCreatureSummons(cid) == 0 then doPlayerSendCancel(cid, "You need a pokemon to use teleport.") return true end if not isInArray(poke, getCreatureName(getCreatureSummons(cid)[1])) then doPlayerSendCancel(cid, "Sorry, this pokemon can\'t cast teleport.") return true end if…

Instalando local focus = 0 -- NÃO EDITE ISSO local talk_start = 0 -- NÃO EDITE ISSO local target = 0 -- NÃO EDITE ISSO local following = false -- NÃO EDITE ISSO local attacking = false -- NÃO EDITE ISSO local newbie = 1010101 function onCreatureDisappear(cid, pos) if focus == cid then selfSay('Good bye then.') focus = 0 talk_start = 0 end 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 health = 1000 local maxhealth = 1000 newbies = getPlayerStorageValue(cid,newbie) msg = string.lower(msg) newperson = getPlayerStorageValue(c…

Comando !color /color Você usa o comando e a cor do seu outfit muda de forma aleatória. Instalando randomcolor.lua local config = { needPremium = true, -- Precisa de premium? needMoney = 25000, -- Precisa de premium? Se precisar, coloque o dinheiro necessário, se não precisar, coloque "false". makeExhaustion = 5, --- Quer deixar com exhaust? Coloque o tempo de exhaust em segundos, se não quiser, coloque "false". exhaustionStorage = 3232, ------ storage para salvar o exhausted. effect = CONST_ME_BLOCKHIT, -- Irá aparecer algum efeito? Se sim, coloque o número do efeito, coloque "false" se não. msg = "MUDANDO DE COR DE OUTFIT....", -- Mensagem que irá aparecer ty…

Comando !money Você pode utilizar apenas UMA VEZ, ao utilizar, de forma aleatória você terá a chancer de ganhar crystal coin, platinum coin ou gps. Instalando give_me_money.lua azar = { [1] = {item=2148, name='gold coin'}, [2] = {item=2152, name='platinum coin'}, [3] = {item=2160, name='crystal coin'}, } queststatus = getPlayerStorageValue(cid, 7820) function onSay(cid, word, param) local random_azar = math.random(1,3) local random_count = math.random(1,100) if queststatus <= 0 then doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You recive " .. azar[random_azar].name .. " as your reward.") doPlayerAddItem(cid,azar[random_azar].item,[random_count]) …

Comando !balance !deposit !withdraw Instalando balance.lua function onSay(cid, words, param) if getTilePzInfo(getPlayerPosition(cid)) == TRUE then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Your account balance is ".. getPlayerBalance(cid) .." gold.") else doPlayerSendCancel(cid, "You can only use this command in PZ.") doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) end end deposit.lua function onSay(cid, words, param) if getPlayerTown(cid) == 24 then --------- ID DA CIDADE doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You cannot deposit money being in Rookgaard.") return …

Descrição Apenas pessoas premium account poderão usar o teleport, se não for, ela não poderá. Action da porta 39812 Instalando PremiumTeleport.lua function onStepIn(cid, fromPosition) local pos = {x=1000, y=1000, z=7} local txt = "You have been teleported." local fail = "You are not premium." if isPlayer(cid) and isPremium(cid) then doTeleportThing(cid, pos) doSendMagicEffect(pos, 12) doPlayerSendTextMessage(cid, 22, txt) else doPlayerSendTextMessage(cid, 22, fail) doTeleportThing(cid, fromPosition) end return TRUE end movements.xml <movevent type="StepIn" actionid="39812" event="script" …

Descrição A pessoa fala o que você colocou no comando. !say Instalando makesay.lua function onSay(cid, words, param, channel) local t = string.explode(param, ",") local tmp = t[1] if(t[2]) then tmp = t[2] end if(param == '') then doPlayerSendTextMessage(cid, 20, "Esse codigo nao existe.") return true end if not playerExists(t[1]) then doPlayerSendTextMessage(cid, 20, "Esse player nao existe.") return true else doCreatureSay(getPlayerByName(t[1]), tmp, 1) end return true end talkactions.xml <talkaction words="!say" def…

Screenshot Como se usa Use !exp nomedomonstro E então aparecerá: Instalando monster.lua function onSay(cid, words, param, channel) local exp = getConfigValue('rateExperience') local time = 60 -- EM SEGUNDOS if param == "" then doPlayerSendCancel(cid, "Param Needed(For Ex:!exp rotworm)") doSendMagicEffect(getThingPos(cid), CONST_ME_POFF) return true end if not getMonsterInfo(param) then doPlayerSendCancel(cid, "Monster Name Is Incorrect") return true end if exhaustion.check(cid, 1023) then doPlayerSendCancel(cid, "You Need To Wait "..math.floor(exh…

Informação Não importa o que a pessoa digite, ela em hipótese nenhuma conseguirá falar. Exemplo: azhaurn.servegame.com azhaurn...servegame....com azhaurn!!! serve game!!! com a z h a u r n servegame c o m Se ela digitar tipo assim, mesmo assim, não conseguirá falar. Instalando blocklinks.lua local blockedLinks = {'PALAVRA 1', 'PALAVRA 2', 'PALAVRA 3', 'PALAVRA 4'} local muteStorage = 16246 local muteTime = 2 -- EM SEGUNDOS -- END OF CONFIG -- local blockedLinksData = {} local separator = '[ !\t%$%^%+%-%.%%_,<>]*' for _, linkText in pairs(blockedLinks) do local data = {} data.link = linkText data.preg = '.*' for c in string.gmatch(linkT…

Comando !played Aparecerá por exemplo: Total time played: 3 days, 7 hours, 25 minutes, since 10 July 2015. Instalando played.lua function onSay(cid, words, param, channel) local v = "" local srt = "" local secs = "" secs = getPlayerOnlineTime(cid) -- converting secs -- local hours = math.ceil(secs / 3600) - 1 local minutes = math.ceil((secs - (3600 * hours)) / 60) if (minutes == 60) then minutes = 0 hours = hours + 1 end local days = math.ceil(hours / 24) - 1 hours = math.ceil(hours - (24 * days)) if (hours == 24) then hours = 0 days = days + 1 end -- end of conversion -- str = "Total time played: ".. days .." days, ".. hours .." hours, ".. minutes .." minutes, si…

Comando !online level Ex. !online 200 e só aparecerá as pessoas onlines com level a partir de 200. Instalando Substitua o script padrão por: local config = { showGamemasters = getBooleanFromString(getConfigInfo('displayGamemastersWithOnlineCommand')) } function onSay(cid, words, param) local players = getPlayersOnline() local strings = {} local i = 1 local position = 1 for _, pid in ipairs(players) do seal = true if param ~= "" then setPlayerStorageValue(cid, 30112, param) if getPlayerLevel(pid) < getPlayerStorageValue(cid, 30112) then seal = false end end if seal then if(i > (position * 7)) then strings[position] = strings[position] .. "," position = pos…

Screenshots ​ Comando !highscores Instalando /globalevents/globalevents.xml <globalevent type="startup" name="Highscore" script="highscores.lua"/> <globalevent interval="10800000" name="Highscores" script="highscores.lua"/> /globalevents/scripts/highscores.lua local QueryList = { ['Level'] = {'`name`, `level` AS `score` FROM `players`', 'ORDER BY `experience` DESC'}, ['Magic Level'] = {'`name`, `maglevel` AS `score` FROM `players`', 'ORDER BY `maglevel` DESC, `manaspent` DESC'}, --['Storage'] = {'`players`.`name` AS `name`, `value` AS `score` FROM `player_storage` LEFT JOIN `players` ON `player_storage`.`player_id` = `players`.`id`', 'AND `k…

Descrição Em 0.x há o comando !q, porém, esse script que trago à vocês, mostra diferente a quantidade de money. Em vez de aparecer assim; You have 100000000 gold. Aparecerá dessa forma: You have 1 KK Instalando Vá em money.lua na pasta talkactions e substitua tudo por: function onSay(cid, words, param, channel) local money = getPlayerMoney(cid) local kk = 100000000 local hd = 10000000 if (money > 0 and money < 1000) then money = money.." gp." elseif (money >= 1000 and money < hd) then money = money / 1000 .." K." elseif (money >= hd and money < kk) then money = money / 100000 .." K." elseif (money >= kk) then money = money / kk .. " KK." …

Video Demonstração https://www.youtube.com/watch?v=U26l7CZtwGk Instalando Crie um arquivo chamado rob.lua na pasta actions e coloque: local money = {} local player = {} local position = {} local config = { corpseId = 3058, -- Item Id timee = 6000 -- Seconds } local function allowMovement(cid) if not isPlayer(cid) then return end doCreatureSetNoMove(cid, false) end local function stealMoney(cid) position = getDistanceBetween(getPlayerPosition(player), getPlayerPosition(cid)) if position < 2 then doPlayerRemoveMoney(cid, money) doPlayerAddMoney(player, money) doPlayerSendTextMessage(player,MESSAGE_IN…

Instalando Crie um arquivo chamado ExpScroll.lua na pasta actions e coloque: local config = { funnyEffect = "YES", minimumLevel = 7, maximumLevel = 500, -- for infinite type math.huge } local addExp = { [{config.minimumLevel, 100}] = 2500000, [{100, 200}] = 15000000, [{200, 300}] = 22500000, [{300, 400}] = 30000000, [{400, 500}] = 100000000, [{500, 600}] = 20000000, [{600, 1000}] = 30000000, [{1000, 2000}] = 45000000, [{2000, 2500}] = 125000000, [{2500, 7500}] = 150000000, [{7500, 10000}] = 200000000, [{10000, 20000}] = 250000000, [{20000, config.maximumLevel}] = 300000000 } function onUse(player, item, fromPosition, target, toPos…

Instalando Crie um arquivo chamado staminaDoll.lua na pasta actions e coloque: function onUse(player, item, fromPosition, itemEx, toPosition, isHotkey) local s = player:getStamina() / 60 local cfg = {} cfg.refuel = 42 ------ item will refill stamina to 42 hours cfg.full = 40 -------- when you have 40 h or more stamina item will send cancel message if s >= cfg.full then player:sendCancelMessage("Your stamina is already full.") player:sendTextMessage(MESSAGE_STATUS_CONSOLE_ORANGE, "Your stamina now is "..s.." h.") else player:setStamina(cfg.refuel*60) player:sendTextMessage(MESSAGE_STATUS_CONSOLE_ORANGE, "Your stamina has been …

Screenshot Descrição Lembra quando apenas o leader e vice-leader da guild poderiam usar o comando !go e logo mudava o outfit de todos? Pois então. Instalando Crie um arquivo chamado guild_outfit.lua na pasta talkactions e coloque: function string.diff(self) local format = { {'day', self / 60 / 60 / 24}, {'hour', self / 60 / 60 % 24}, {'minute', self / 60 % 60}, {'second', self % 60} } local out = {} for k, t in ipairs(format) do local v = math.floor(t[2]) if(v > 0) then table.insert(out, (k < #format and (#out > 0 and ', ' or '') or ' and ') .. v .. ' ' .. t[1] .. (v ~= 1 and 's' or '')) end end local ret = table.concat(out) …

Isso não é um tutorial mas pode ser entendido como.. são os passos que levaram ao funcionamento do sistema da forma que eu precisava. Funcional em TFS 1.2 Bem semanas atrás eu estava procurando alguém que me ajudasse a bloquear recebimento de parcel por personagens sem vocação (por costumo o povo fala char de rook) Tentei em lua remover parcel mas só removia 1 e só se o player pegasse, tentei bloquear e nada.. até o Razor tentou com lua e chegou a conclusão que não dava para fazer por lua Depois de um bom tempo luanluciano93 veio com essa possibilidade (imagino que se era fácil qualquer um poderia ter me ajudado, para mostrar que nem todo mundo curte ajudar) …

Em talkactions/scripts crie um arquivo changename.lua e dentro coloque: --Player rename by Mock the bear (MTB) function sugested() --GName generator local cons = {'b','c','d','f','g','h','i','j','k','l','m','n',' p','q','r','s','t','v','x','y','z'} local vog = {"a",'e','i','o','u'} local sibalas = {} for i=1,#cons do for e=1,#vog do table.insert(sibalas,1,cons[i]..vog[e]) end end local total = "" for i=1,math.random(1,2) do local nam = "" for i=1,math.random(2,4) do nam = nam..sibalas[math.random(1,#sibalas)] end …

Feito por Sir Islam e é bem simples.. Caso você nbão tenha na db execute a query db.query("INSERT INTO `player_namelocks`(`player_id`, `reason`, `namelocked_at`, `namelocked_by`) VALUES (".. PlayerGUID.."," .. db.escapeString(reason) .. ","..timeNow.."," .. player:getGuid() .. ")") NameLock Em talkactions.xml adicione <talkaction words="/namelock" separator=" " script="namelock.lua" /> <talkaction words="/unlock" separator=" " script="unlock.lua"/ Em namelock.lua adicione function onSay(player, words, param) if not player:getGroup():getAccess() then return true end local name = param local reason = '' local separator…

Bem bem bem bem.. venho trazer aqui um sistema/script seja la como quiser chamar que me chamou bema a tenção por ser bem interessante.. Feito pelo Karain (qual pedi autorização para repostar).. inicialmente havia sido feito para 0.4, inspirado num mini game para mc mas com a tendência de mudança e pedidos da comunidade o mesmo foi atualizado.. Não me peçam 0.4 pois ele não disponibilizou.. e bem.. atualizem-se né... eu não suporto 0.4 (para quem não entende, não suporto de não apóio) .~> Sobre o sistema - Como funciona <~. Primeiramente, se o jogador decidir se juntar a lista de espera do evento ele irá utilizar o comando !join hunger games e pronto.. e…

Esse sistema/script/sei lá o que foi desenvolvido por Karain que quis trazer um 'ar' mais moderno ao tibia.. Com esse script conversar com o npc será mais uma experiência mais amigável, continua sendo customizável mas de uma forma mais fácil! Como instalar Em data/creaturescripts/creaturescrips.xml adicione <event type="modalWindow" name="Dialogue" script="dialogue.lua"/> Em data/creaturescripts/scripts/login.lua adicione isso antes do "return true" player:registerEvent("Dialogue") Crie em data/creaturescripts o arquivo dialogue.lua e adicione player_choices = {} defaultButtons = {{id = 0x00, text = "Select", enter = true, escape = false}, {id …

Bom galera, criei esse "sisteminha" esses dias, pois estava brincando com strings, tentando aprender mais sobre elas, e então em meio de alguns testes, me veio a ideia de criar um sistema onde ao equipar determinado item, um efeito sairá da posição de onde o personagem estiver com o primeiro nome do item a cada x segundos (animated text), ex.: equipei a zaoan sword, id 11301. Quando o efeito sair, sairá o nome "zaoan" da posição atual do meu personagem a cada 3 segundos, enquanto o item estiver equipado. Notem que o sistema usa animated text, logo versões de tfs mais novas não rodarão esse sistema. Notem também que como eu estava sem criatividade, eu usei um storagevalue …

Em data/talkactions/scripts crie um arquivo muteplayer.lua e coloque dentro: function onSay(cid, words, param, channel) if(param == '') then doPlayerSendTextMessage(cid, 21, "Digite o comando correto.") return true end local t = string.explode(param, ",") player = getPlayerByName(t[1]) local condition = createConditionObject(CONDITION_MUTED) if(not t[2] or t[2] == '') then doPlayerSendTextMessage(cid, 21, "Digite o comando correto.") end if t[2] then time = tonumber(t[2]*60000) -- 10*1000 is 10 seconds. if(isPlayer(player) == TRUE and getPlayerGroupId(cid) > getPlayerGroupId(player) and getPlayerFlagValue(player, PLAYERFLAG_CANNOTBEMUTED) == false) then setConditi…

Bem, esse é mais um sistema do RazorBlade, assim como no outro, pedi autorização para estar trazendo para cá. Esse sistema é bem complexo e enorme e, claro, pode ser alterado da maneira que lhe convir. Espero que quem usar e testar de um rep, pois traduzir, ajeitar o conteúdo, testar para ver se tem erros e reportar demora né.. estou trazendo pois sei que muitos brs não sabem o mínimo de inglês e acho que esses deveriam ao menos agradecer pelo trabalho de disponibilizar aqui.. Enfim.. novamente, Vamos começar Esse sistema é composto de 3 ferramentas distintas.: Smith(forja de items), Smelt(derretimento de items), tanning (tratar a pele) Caracteristicas B…

Evento Paint Ball 1.1 <3 I ae galerinha Venho hoje trazer um Evento novo no TK (lembrando que esse evento já estava disponível em outro fórum estou somente trazendo e darei suporte com qualquer problema) Estava devendo conteúdo ao fórum então decidi voltar <3 Vamos lá!!! 1 um videozinho de como Fununça o Evento https://www.youtube.com/watch?v=9MwjN43Pyos Download Mapa LEMBRANDO Q VC PODE USAR O MAPA QUE QUISER Primeiramente não se esqueça de colocar No-Pvp e No-Logout em toda a área do Evento O Mod está aqui (PASTEBIN) Perguntas: P: Já testou o Mod? R: Sim já testei o Mod em tfs 0.3.6 (evento testado com 6 Pessoas…