patricia

Libere as porta 7171 7172 se tiver site a porta 80 tambem 
Libera no firewall dps no roteador 
e entre com esse ip 127.0.0.1

Criei 1 arquivo.lua em globalevents  com o nome save e adicione isso 


  Logo Apois Adiciona essa tag  <globalevent name="save" interval="30000" event="script" value="save.lua"/>

Fiz o script com as configurações que você deve alterar, basta criar 5 NPC's alterando as configurações.
Em "Data/npc/scripts", copie e cole um arquivo.LUA e renomeie para nome_desejado.lua, apague tudo e cole:
local t = {     palavras = {"bless", "first", "first bless"}, -- Palavras chaves para começar o dialogo.     bless = 1, -- Numero da bless {1 a 5}.     level = 50, -- Level necessário.     price = 10000 -- Preço da bless. } 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 msg = msg:lower();           if isInArray(t.palavras, msg) then        if getPlayerBlessing(cid, t.bless) == false then           if getPlayerLevel(cid) >= t.level then              selfSay("Você deseja receber a benção The Spiritual Shielding por ".. t.price .." golds coins?", cid)              talkState[talkUser] = 1           else              selfSay("Você precisa ser level ".. t.level .. " para receber esta benção.", cid)           end        else           selfSay("Você já tem essa benção.", cid)        end     elseif msgcontains(msg, "yes") then        if talkState[talkUser] == 1 then           if doPlayerRemoveMoney(cid, t.price) then              selfSay("Você recebeu a benção The Spiritual Shielding.", cid)              doPlayerAddBlessing(cid, t.bless)              talkState[talkUser] = 0           else              selfSay("Você não tem ".. t.price .." golds coins.", cid)              talkState[talkUser] = 0           end        end     elseif msgcontains(msg, "no") then         if talkState[talkUser] == 1 then            selfSay("Ok...", cid)         end     end end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new()) Em "Data/npc", copie e cole um arquivo.XML e renomeie para nome_desejado.xml, apague tudo e cole:
<?xml version="1.0" encoding="UTF-8"?> <npc name="NOME_DO_NPC" script="data/npc/scripts/nome_desejado.lua" walkinterval="2000" floorchange="0">     <health now="100" max="100"/>     <look type="131" head="22" body="22" legs="22" feet="57" addons="0"/>     <parameters>         <parameter key="message_greet" value="Bem-vindo, |PLAYERNAME|."/>         <parameter key="message_farewell" value="Até mais |PLAYERNAME|!"/>     </parameters> </npc> No XML não se esqueça de alterar o nome do script em script="data/npc/scripts/nome_desejado.lua".

Olá pessoal, tive a iniciativa de criar esse tópico para atualizar e otimizar as sources do TFS 0.4 DEV que é uma das mais usadas no mundo do otserv. Conteúdo totalmente gratuito e pretendemos melhora-lo cada vez mais. 
 
Qualquer um pode colaborar, postando bugs, erros, otimizando códigos, comentar aqui no tópico, toda ajuda é bem vinda, vamos tornar essa a melhor source disponível. Conto com vocês.
 
Versão do Tibia: 8.60
 
Alguns sistema já implementados na source:
• TFS 0.4 DEV rev 3777 (by TFS Team)
• Anti-Divulgação (.servegame, .no-ip, .net, .com, .org, .pl, .biz, .br, .sytes, .info)
• War System
• Cast System (by Summ)
• Retirado bugs de anti-push ..
• Retirado bugs de elfbot ...
• Retirado erro de não aceitar outros items ...
• Retirado erro de Malformed File ...
• Add creatureevent onMoveItem()  ...
• Add função getCreaturePathTo () ...
• E vários outros!
 
Complementos:
• Add cast System (passo a passo): [AQUI]
• Pode add o comando na config.lua:
healthHealingColor = COLOR_GREEN -- [podendo alterar a cor]. manaHealingColor = COLOR_DARKPURPLE -- [podendo alterar a cor]. Downloads:
• Distro Compilada 32x
• Distro Compilada 64x
• Sources 7
 
 
TESTADO EM WINDOWS, DEBIAN 7.8, UBUNTU 12.04 E 14.05!
 
 
• Compilar em Linux: 
 
 
 
• Erros para arrumar: 
 


Obrigado ao runeraserver pelo incentivo em fixa-la para linux

E é isso pessoal, espero ter ajudado, abraços
 

function onUse(cid, item, frompos, item2, topos) local level = getPlayerLevel(cid) local mlevel = getPlayerMagLevel(cid) local exhausted_seconds = 1 local exhausted_storagevalue = 7480 local mana_minimum = 100000 local mana_maximum = 100000 local mana_add = math.random(mana_minimum, mana_maximum) if(item.type >= 1) then if os.time() > getPlayerStorageValue(cid, exhausted_storagevalue) then if isPlayer(cid) then doSendMagicEffect(topos,12) doPlayerAddMana(cid, mana_add) setPlayerStorageValue(cid, exhausted_storagevalue, os.time() + exhausted_seconds) doChangeTypeItem(item.uid, item.type - 1) else setPlayerStorageValue(cid, exhausted_storagevalue, os.time() + exhausted_seconds) doRemoveItem(item.uid, 1) doSendMagicEffect(frompos, 18) doCreatureAddHealth(cid, mana_add) doChangeTypeItem(item.uid,item.type-1) doPlayerAddMana(cid, mana_add) doCreatureSay(cid, "Senzu!", TALKTYPE_ORANGE_1) end else doSendMagicEffect(frompos, CONST_ME_POFF) doPlayerSendCancel(cid, "You are exhausted.") end else if os.time() < getPlayerStorageValue(cid, exhausted_storagevalue) then doSendMagicEffect(frompos, CONST_ME_POFF) doPlayerSendCancel(cid, "You are exhausted.") else if isPlayer(cid) then doSendMagicEffect(topos,12) doPlayerAddMana(cid, mana_add) doPlayerAddHealth(cid, mana_add*1.5) doCreatureSay(cid, "Senzu!", TALKTYPE_ORANGE_1) else doSendMagicEffect(frompos, CONST_ME_POFF) doPlayerSendCancel(cid, "You are exchausted.") end end end return true end

function onUse(cid) local storage, voc = 98799, 520 if getPlayerStorageValue(cid, storage) < 1 then doPlayerSetVocation(cid, voc) doPlayerSendTextMessage(cid, 19, "Congratulations!!") doSendMagicEffect(getThingPos(cid), CONST_ME_FIREWORK_BLUE) doRemoveItem(item.uid, 1) setPlayerStorageValue(cid, storage, 1) else doPlayerSendTextMessage(cid, 19, "Sorry is not possible.") end return true end <action itemid="6500 " event="script" value="arquivo.lua"/>

Seu char vai ficar girando e falando "DANCING", deve ser instalado em \mods\.
[paste]h8vRCmKr[/paste]

Galera estou atraz de um anti nuker dos bons, pode ser tanto pago qnto gratiz queria saber se vcs poderiam me passar o links de alguns, obs quero um dos melhores..