vinizito

Autor: Eu mesmo
Versão do tibia: 8.6
Descrição: O script tira o battle ao entrar em alguma área pz. 
 
1° Passo:
Abra o arquivo creaturescripts.xml localizado em: PastaDoOT/data/creaturescripts/ adicione a linha:
<event type="think" name="TiraBattle" event="script" value="tirabattle.lua"/>  
2° Passo:
Abra a pasta "scripts" e abra o arquivo login.lua
E adicione:
 
registerCreatureEvent(cid, "TiraBattle") 3° Passo:
Ainda na pasta scripts, crie o arquivo: tirabattle.lua e adicione o seguinte:
 
function onThink(cid, interval) if(getTilePzInfo(getCreaturePosition(cid))) then doRemoveCondition(cid, CONDITION_INFIGHT) end end Pronto, o script foi adicionado ao seu servidor!

Qualquer dúvida poste aqui embaixo.

Abraços!

Autor: MaXwEllDeN
Idealizador: markim1986
Versão testada: TFS 0.4.0


#Introdução

Este é um script bem simples em que o administrador escreve no script as quests que tem no servidor e quando o player digita !quests, aparece na tela dele as quests que ele já fez e as que ele não fez.



#Instalação

Adicione a seguinte tag ao seu talkactions.xml:

@Talkaction

<talkaction words="!quests" event="script" value="ServQuests.lua"/>
Copie qualquer arquivo com extensão .lua na pasta talkactions/scripts, renomeie ele para ServQuests.lua, limpe todo seu conteúdo e cole esse:

--################################### --## Developed by: MaXwEllDeN ## --## Contact: ## --## [email protected] ## --###################################   local quests = {    -- [" Nome da quest "] = Storageid,    ["Em nome do Rei"] = 2789,    ["Caça às Bruxas"] = 7231,    ["Ajude a princesa"] = 1236, }   function onSay(cid)    local str = "#Quest(s) não concluída(s):\n"    local conc = {}      for i, v in pairs(quests) do       if getPlayerStorageValue(cid, v) > 0 then          table.insert(conc, i)       else          str = str .. "\n".. i .. " - Não concluída"       end    end      str = str .. "\n\n#Quest(s) concluída(s):\n"      for _, v in pairs(conc) do       str = str .. "\n".. v .. " - Concluída"    end      return doShowTextDialog(cid, 1746, str) end