Flash001

local condition2 = createConditionObject(CONDITION_MUTED)
setConditionParam(condition2, CONDITION_PARAM_TICKS, 10000 * 10000)
local condition = createConditionObject(CONDITION_PARALYZE)
setConditionParam(condition, CONDITION_PARAM_TICKS, 20000)
setConditionFormula(condition, -0.9, 0, -0.9, 0)
setCombatCondition(combat, condition)
 
function onCastSpell(cid, var)
 
local targ = getCreatureTarget(cid)
 
if targ > 0 and isPlayer(targ) then
doAddCondition(targ, condition2)
doAddCondition(targ, condition)
end
end

bom, testei aqui e funcionou certinho
pega esse script abaixo, executa a spell uma vez e olha o console do seu servidor, depois dos itens serem removidos vão aparecer 8 mensagens, aí você me mostra elas:
 

function onCastSpell(cid) local item = 1337 local tempo = 5 * 1000 local efeito_ao_criar = CONST_ME_MAGIC_GREEN local efeito_ao_remover = CONST_ME_POFF for direction = 0, 7 do local position = getPosByDir(getThingPos(cid), direction) doCreateItem(item, position) doSendMagicEffect(position, efeito_ao_criar) end addEvent(function (center, id) print(string.format("Centro: %d/%d", center.x or -1, center.y or -1)) for direction = 0, 7 do local position = getPosByDir(center, direction) local item = getTileItemById(position, id) print(string.format("Dir. % %d/%d / uid: %d", direction, position.x or -1, position.y or -1, item.uid)) if item.uid > 1 then doSendMagicEffect(position, efeito_ao_remover) doRemoveItem(item.uid) end end end, tempo, getThingPos(cid), item) return true end

é porque a sua função getposbydir modifica o parâmetro em vez de criar novas tabelas, como eu modifiquei essa função eu não tenho esse problema, mas o tfs padrão tem que fazer de outro jeito pra não dar problemas, testa assim:
 

function onCastSpell(cid) local item = 1337 local tempo = 5 * 1000 local efeito_ao_criar = CONST_ME_MAGIC_GREEN local efeito_ao_remover = CONST_ME_POFF for direction = 0, 7 do local position = getPosByDir(getThingPos(cid), direction) doCreateItem(item, position) doSendMagicEffect(position, efeito_ao_criar) end addEvent(function (center, id) for direction = 0, 7 do local position = getPosByDir({x = center.x, y = center.y, z = center.z}, direction) local item = getTileItemById(position, id).uid if item > 1 then doSendMagicEffect(position, efeito_ao_remover) doRemoveItem(item) end end end, tempo, getThingPos(cid), item) return true end

Vlw !!!

Você pode configurar aqui :

damage = COMBAT_PHYSICALDAMAGE -- tipo do dano
no caso ai está em fisico
 
ICEDAMAGE - Gelo
FIREDAMAGE - Fogo
DEATHDAMAGE - Rit Tipo da SD
EARTHDAMAGE - Veneno
 
sé esqueci alguns desculpe !
 
Abraços!

Extreme Speeed


 

Spell muito interessante aonde o alvo recebe varios danos por todos os lados, bem legalzinha


 
 

arquivo em lua:


 

local config = { efeitoTele = 10, -- efeito q ira aparacer a cada teleport. efeitoDamage = 1, -- efeito q ira aparecer ao hitar no alvo hits = 5, -- quantos hits vai dar delay = 200, -- intervalo de tempo a cada hit min = 100, -- dano minimo max = 150, -- dano maximo damage = COMBAT_PHYSICALDAMAGE -- tipo do dano } function isWalkable(pos, creature, pz, proj) -- nord if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end if getTopCreature(pos).uid > 0 and creature then return false end if getTileInfo(pos).protection and not pz then return false end local n = not proj and 3 or 2 for i = 0, 255 do pos.stackpos = i local tile = getTileThingByPos(pos) if tile.itemid ~= 0 and not isCreature(tile.uid) then if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then return false end end end return true end function getPosDirs(p, dir) -- mkalo return dir == 1 and {x=p.x-1, y=p.y, z=p.z} or dir == 2 and {x=p.x-1, y=p.y+1, z=p.z} or dir == 3 and {x=p.x, y=p.y+1, z=p.z} or dir == 4 and {x=p.x+1, y=p.y+1, z=p.z} or dir == 5 and {x=p.x+1, y=p.y, z=p.z} or dir == 6 and {x=p.x+1, y=p.y-1, z=p.z} or dir == 7 and {x=p.x, y=p.y-1, z=p.z} or dir == 8 and {x=p.x-1, y=p.y-1, z=p.z} end function validPos(pos) tb = {} for i = 1, 8 do newpos = getPosDirs(pos, i) if isWalkable(newpos) then table.insert(tb, newpos) end end table.insert(tb, pos) return tb end spell = { start = function (cid, target, markpos, hits) if not isCreature(cid) then return true end if not isCreature(target) or hits < 1 then doTeleportThing(cid, markpos) doSendMagicEffect(getThingPos(cid), config.efeitoTele) return true end posAv = validPos(getThingPos(target)) rand = #posAv == 1 and 1 or #posAv - 1 doSendMagicEffect(getThingPos(cid), config.efeitoTele) doTeleportThing(cid, posAv[math.random(1, rand)]) doAreaCombatHealth(cid, config.damage, getThingPos(target), 0, -config.min, -config.max, config.efeitoDamage) addEvent(spell.start, config.delay, cid, target, markpos, hits - 1) end } function onCastSpell(cid) target = getCreatureTarget(cid) if target then spell.start(cid, target, getThingPos(cid), config.hits) end return true end
 
 
tag:
 
 

<instant name="Extreme speed" words="extreme speed" lvl="65" mana="580" prem="0" exhaustion="2000" needtarget="1" range = "4" needlearn="0" script="arquivo.lua">
 
Não vou postar ss ou video pq estou sem tempo, se querer ver como esta vai ter q testar.

Olá XTibianos,
Estou aqui para trazer à vocês meu primeiro tutorial.
 
Vou ensinar como deixar um servidor online, quando se trata de Internet Compartilhada. (Apenas para Roteador)
Primeiramente, vá até a aba Iniciar/Executar e digite cmd
Após isso, digite IPCONFIG e procure pelo IP Gateway Padrão.Pegue este mesmo IP e digite na barra de endereços.
Quando fizer isso, ele irá pedir um Usuário e Senha.No Usuário, você coloca ' admin ' e a senha tem 3 opções, dependendo do modelo do roteador.
*Tente colocar admin, password ou deixe em branco.
 
Quando entrar no site, tente achar algo como Adicionamento de Porta.No meu aparece como Encaminhamento de porta/Acionamento de porta.
- Na pagina que se abrir, você ira "abrir" as portas do seu Roteador.
- Onde pede o Nome do Serviço, você deve colocar Tibia1.
- No Tipo de Serviço, você coloca na opção TCP/UDP.
- Onde pede a Porta Inicial e Porta Final, você coloca a port que você usará no Server. (Ex: 7171)
- E para saber qual IP você coloca no Endereço de IP do Servidor, você entra novamente no EXECUTAR/cmd, digita IPCONFIG e utiliza o Endereço IPv4.
 
Salve as alterações, e suas portas estarão abertas.
Para saber se suas ports estão realmente abertas, baixe o seguinte programa: http://www.portforward.com/store/PFPortChecker.exe
 
Caso não entendeu o Tutorial, entre NESTE SITE, procure pelo modelo de seu roteador e siga as instruções. (O Site está todo em Inglês)
 
Espero ter ajudado todos que tinham dúvida em relação a isso!

O Que Contem Nela :
 
 
 
 
 
Imagem Client:

 
OBS: Nao Poste Sem Minha Autorizaçao !!!! E Nao Postarei Site Peguem o Antigo Mesmo !!!
Creditos: Neto009
 
Download:
 
Server:http://www.4shared.c...BKO_Arena.html?
 
Scan:https://www.virustot...sis/1329142646/
 
Client:http://www.4shared.c...allvile_2.html?
 
Map Editor: http://www.4shared.com/rar/BX4f9vOo/Map_Editor.html?
 
Senha God e : god/god!!!!
Sera Ultima Vez Que posta Esse tipo de Servidor !!!

ixi, vai dar maior trabalho. mas vou tentar explicar.