-- Script Criado por Kalvin Karl.

-- Se for posta em algum outro fórum não retirar os créditos

-- Obrigado e bom uso do script

local function doPullCreature(target, cid)

if target > 0 then

if not isNpc(target) then

local position = getThingPosition(cid)

local fromPosition = getThingPosition(target)

local x = ((fromPosition.x - position.x) < 0 and 1 or ((fromPosition.x - position.x) == 0 and 0 or -1))

local y = ((fromPosition.y - position.y) < 0 and 1 or ((fromPosition.y - position.y) == 0 and 0 or -1))

local toPosition = {x = fromPosition.x + x, y = fromPosition.y + y, z = fromPosition.z}

if doTileQueryAdd(target, toPosition) == 1 and getTileInfo(toPosition).house == false then

doTeleportThing(target, toPosition, true)

end

end

end

end

 

local combat = createCombatObject()

setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE) -- Efeito

setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_ENERGYHIT) -- Efeito

setAttackFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 5, 5, 4, 7) -- Dano

function onTargetCreature(cid, target) -- Função de pucha

doPullCreature(target, cid)

end

local area = createCombatArea(AREA_BEAM7, AREADIAGONAL_BEAM7)

setCombatCallback(combat, CALLBACK_PARAM_TARGETCREATURE, "onTargetCreature")

setCombatArea(combat, area)

 

function onCastSpell(cid, var)

return doCombat(cid, combat, var)

end