TheFrost

local cfg = { random_items = {2218}, -- adicione mais se quiser mais items aleatorios remove_time = 10 -- tempo em segundos para remover } end local combat = createCombatObject() setCombatArea(combat, createCombatArea({ {0,0,0,0,0,0,0}, {0,0,1,1,1,0,0}, {0,1,1,1,1,1,0}, {0,1,1,3,1,1,0}, {0,1,1,1,1,1,0}, {0,0,1,1,1,0,0}, {0,0,0,0,0,0,0} })) local function onCastSpell2(parameters) if isPlayer(parameters.cid) then doCombat(parameters.cid, combat, parameters.var) end end function onTargetTile(cid, position) local itemid = cfg.random_items[math.random(#cfg.random_items)] local item = doCreateItem(itemid, 1, position) doItemSetAttribute(item, 'ref', getCreatureName(cid)) addEvent(function() local thing = getTileItemById(position, itemid).uid if(thing ~= 0) then doRemoveItem(thing) end end, cfg.remove_time * 1000) end setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile") function onCastSpell(cid, var) local parameters = { cid = cid, var = var, combat = combat} addEvent(onCastSpell2, 250, parameters) return true end

Alguém poderia me ajudar nesse script, é um Item bomba acionada por uma Spell. Ela da dano em quem passar por cima, só que está dando dano em quem a conjura tbm, queria que não desse. function onStepIn(cid, item, position, fromPosition) local pid = getCreaturePosition(cid) local monster_damage = -100 -- Quanto de HP o monster irá perder se pisar local monster_effect = 10 -- Efeito quando o monstro pisar no tile local level_max = 200 -- Level que irá começar a levar dano ao pisar no tile ; local player_damage = -100 -- Quanto de HP o player irá perder se pisar local player_effect = 10 -- Efeito quando o Player pisar no tile local player_mana = -100 -- Quanto de MANA o player irá perder se pisar if isMonster(cid) then doCreatureAddHealth(cid, monster_damage) doSendMagicEffect(pid, monster_effect) return true end if isPlayer(cid) then if getPlayerLevel(cid) >= level_max then doCreatureAddHealth(cid, player_damage) doCreatureAddMana(cid, player_mana) doSendMagicEffect(pid, player_effect) return true end return true end return true end

Versão do Servidor: TFS - 0.4 Tipo de Script: spell local combat1 = createCombatObject() local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -4.1, 1, -4.8, 1) arr2 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 3, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } local area2 = createCombatArea(arr2) setCombatArea(combat2, area2) local function onCastSpell2(parameters) if isPlayer(parameters.cid) then doCombat(parameters.cid, parameters.combat2, parameters.var) end end local times = 3 --Quantos SQMs o jogador irá se mover. function isWalkable(pos, creature, proj, pz)-- by 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 true end if getTileInfo(pos).protection and pz then return false, true end local n = not proj and 2 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 onCastSpell(cid, var) local playerPos = getThingPos(cid) for i = 1, times do playerPos = getPosByDir(playerPos, getCreatureLookDirection(cid)) if not isWalkable(playerPos, i == times, i == times, i == times) then doPlayerSendCancel(cid, "Sorry, destination not possible.") return false end end local direction = getCreatureLookDirection(cid) local size = 3 local toPosition = getPositionByDirection(getThingPosition(cid), direction, size) if isWalkable(toPosition, cid) then doSendMagicEffect(getThingPosition(cid), CONST_ME_POFF) addEvent(doTeleportThing,600,cid, toPosition) doSendMagicEffect(getThingPosition(cid), CONST_ME_POFF) else doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE) end local parameters = { cid = cid, var = var, combat1 = combat1, combat2 = combat2 } addEvent(onCastSpell2, 200, parameters) doCombat(cid, combat1, var) return true end Boa noite, galera! Alguém poderia me ajudar. Bom, essa Spell funciona assim, eu a uso e sou teleportado a 3 Sqm a frente da onde estou olhando. Queria colocar para atravesar obstáculos específicos, tipo: Árvores. Como está ai, ela não atravessa nada, só Monstros e Players. Agradeço desde já.

Queria muito esse script, mas parece que vai dar trampo. Mas caso vc tiver com tempo de modifica-lo pra mim, ficaria muito grato.

Mas no caso o seu reward, só quem deu mais dano/curou e tankou mais, receberia o item, nao é?

Entendi. E se tivesse como colocar para os Players dar um certo total de dano no Boss tipo, todos os players que tiverem atacando o Boss, terão que dar pelomenos 1k de dano, quem nao conseguir dar esse dano, nao ganha os item, teria como?

O script rodou de boa, só tem um detalhe, só quem da o último hit no Boss, ganha o item. Queria que todos que atacassem o Boss, ganhasse. Desde já, muito obrigado!

Agora deu esse error

Tlgdo nesse script, mas queria algo mais simples. Não queria isso de quem deu mais dano, tankou, curou, ganha os items. Queria que independente de quem estiver atacando o Boss, tivesse uma chance de dropar os items, geral que atacou tivesse essa chance.

Assim, mas agora está dando esse error.

Tfs 0.4 Alguém poderia me ajudar com esse script, estou tentando colocar pra quando matar o Boss, os items ir pro DP. Se poderem me dar uma "luz", agradeço! Ta meio complicado. local items = {itemid = 2160, count = 50, chance = 100} local town_id = 12 local chest = doCreateItemEx(2595) function onDeath(cid, corpse, deathList) local killers = deathList for _, pid in pairs(killers) do if isPlayer(pid) then doPlayerSendTextMessage(pid, MESSAGE_INFO_DESCR, "Parabens! Voce matou o "..getCreatureName(cid).."!") else doPlayerSendMailByName(getPlayerName(uid), doCreateItemEx(chest, items.itemid, items.count), getPlayerTown(town_id)) doAddContainerItem(chest, items.itemid, items.count) end return true end end

Olá! queria pedir uma ajuda, e tbm se teria como fazer isso. Bom, queria que ao matar o boss, seu loot caísse no Depot, independente de quantos players tiverem atacando o boss. Queria que todos ao matar o boss, receba o loot em seu Depot. Se possivel, que tivesse um chance de dropar tal Item.

Alguém poderia colocar uma certa quantidade de item nesse script, para ser forjado. Como já ta no script, é de 1 em 1. Exemplo: 1- necessita de 1 item 2- necessita de 10 item 3- necessita de 10 item function onUse(cid, item, fromPosition, itemEx, toPosition) local Configs = { ----------------------------- Rare --------------------------------------- pos_bancada1 = {x=983,y=965,z=8}, pos_bancada2 = {x=984,y=965,z=8}, pos_bancada3 = {x=985,y=965,z=8}, pos_premio1 = {x=983,y=967,z=8}, item1_craft = {item1=7463}, item2_craft = {item2=11388}, item3_craft = {item3=11387}, item4_craft = {premio=11215, nome_do_item='Pink Hard'}, ----------------------------- End --------------------------------------- } local Script = { stack1 = getItemStackpos(Configs.pos_bancada1,Configs.item1_craft.item1), stack2 = getItemStackpos(Configs.pos_bancada2,Configs.item2_craft.item2), stack3 = getItemStackpos(Configs.pos_bancada3,Configs.item3_craft.item3), } if Script.stack1 and Script.stack2 and Script.stack3 then doCleanTile(Configs.pos_bancada1) doCleanTile(Configs.pos_bancada2) doCleanTile(Configs.pos_bancada3) addEvent(doCreateItem, 100, Configs.item4_craft.premio, 1, Configs.pos_premio1) doPlayerSendTextMessage(cid, 22, "Parabens, Voce Forjou uma"..Configs.item4_craft.nome_do_item.." .") doSendMagicEffect(Configs.pos_bancada1, 122) doSendMagicEffect(Configs.pos_bancada2, 122) doSendMagicEffect(Configs.pos_bancada3, 122) return true end doPlayerSendTextMessage(cid, 28, "Voce nao tem os 3 itens, para Craftar!") return true end function getItemStackpos(position, id) if getTileItemById(position, id).itemid == 0 then return nil end for i = 0, 255 do local pos = getThingFromPos({x=position.x, y=position.y, z=position.z, stackpos=i}) if pos.itemid == id then return i end end end Up

Preciso de um script que funcione da seguinte maneira. O evento inicia as 7:00h, término as 8:00h. Quando esse tempo acabar, todos serão teleportados para o templo. Obs: - Dois dias na semana, se possivel. - Msg para todos que o evento acabou. - A area do evento tem 3 andares.

Salve, salve! Queria uma ajuda nesse Script. É o seguinte, Quando o player matar o boss, aparecesse um anuncia a todos, que tal Player X da guild X, acabou de matar o Boss. Agradeço desde já. local monster = "boss_name" --Nome do monstro. function onDeath(cid, corpse, deathList) if isMonster(cid) and getCreatureName(cid) == monster and isPlayer(deathList[2] or deathList[1]) then broadcastMessage("O Jogador "..getCreatureName(deathList[2] or deathList[1]).." acabou de destruir o "..monster..".") end return true end

Ta na mão shopping.php

Eae, galera! Queria pedir uma ajuda a vcs. Estou com um problema no Shop do meu site.. É o seguinte, toda vez qe compra um item no shop e atualiza a página, o item é comprado novamente, só para quando acaba os pontos. Se alguém poder me ajudar, agradeço!

Salve, tropa! Queria pedir uma ajuda nesse script. É o seguinte, queria que removese o Monstro, mas nao esta removendo o mesmo. O script não está dando error, só não remove o monstro mesmo. local bosses = { {boss = "Mamba", pos = {x = 997, y = 1004, z = 7}}, {boss = "King", pos = {x = 1563, y = 954, z = 7}}, {boss = "Warlock", pos = {x = 885, y = 1104, z = 7}}, {boss = "Snake", pos = {x = 456, y = 844, z = 7}} } local function removeMonster() if isCreature(creature) then doRemoveCreature() end end function onThink(cid, interval, lastExecution, thinkInterval) local nMin = 1 -- tempo em minuto. local random = math.random(1, #bosses) doCreateMonster(bosses[random].boss, bosses[random].pos) doBroadcastMessage("O Boss "..bosses[random].boss..", nasceu!") addEvent(removeMonster, nMin * 60 * 1000, bosses[random].boss) return true end

Salve, galera! Queria pedir uma ajuda a vcs, to com um problema de magic level, ele só vai até 156, não ultrapassa. Procurei em todo lugar, testei de tudo, mas nada da certo. Se alguem poder me ajudar, agradeço.

Salve, galera! Queria pedir uma ajuda. Teria como colocar essa spell em area para Destruir traps.. Tipo, um player usou uma spell de trap no jogador, esse jogador agr está trapado, usaria a spell de Destruir Trap, ela logo sumira. Agradeço desde-ja. local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -12.1, 2, -11.1, 2) arr1 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 1, 1, 2, 1, 1, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } local area1 = createCombatArea(arr1) setCombatArea(combat1, area1) local function onCastSpell1(parameters) return isPlayer(parameters.cid) and doCombat(parameters.cid, combat1, parameters.var) end function onCastSpell(cid, var) addEvent(onCastSpell1, 0, parameters) return true end

Da nada, meu mano. Deu certin, isso que importa. Vlw

Galera! queria uma ajuda nessa Spell. Essa spell só pode ser usada se tiver uma Outfit X, queria colocar mais de uma Outfit, se alguém poder me ajudar, agradeço. local outfit = 267 local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, true) setCombatParam(combat, COMBAT_PARAM_EFFECT, 64) setCombatParam(combat, COMBAT_PARAM_USECHARGES, true) function onGetFormulaValues(cid, level, skill, attack, factor) local skillTotal, levelTotal = skill + attack, level / 10 return -(skillTotal / 10 + levelTotal), -(skillTotal + levelTotal) end setCombatCallback(combat, CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues") function onCastSpell(cid, var) if getCreatureOutfit(cid).lookType == outfit then return doCombat(cid, combat, var) else doPlayerSendCancel(cid, "Você não tem o outfit x.") doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF) end end

Sim, mesma coisa

Continua curando os monstros

Queria uma ajuda nessa Spell... É o seguinte, a spell é de cura em Area, só que ela cura Monstros tbm, queria que ela curasse apenas Player's que estiverem nessa Area. Se alguém poder me ajudar, agradeço! local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_HEALING) setCombatParam(combat, COMBAT_PARAM_EFFECT, 13) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false) setCombatParam(combat, COMBAT_PARAM_COLOR_BLUE, 23) setHealingFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 63, 62, 61, 60) arr = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 1, 1, 1, 1, 3, 1, 1, 1, 1, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } local area = createCombatArea(arr) setCombatArea(combat, area) function onCastSpell(cid, var) return doCombat(cid, combat, var) end