Ir para conteúdo

TheFrost

Membro
  • Registro em

  • Última visita

  1. TheFrost postou uma resposta no tópico em Suporte Tibia OTServer
    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
  2. TheFrost postou uma resposta no tópico em Suporte Tibia OTServer
    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
  3. 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á.
  4. TheFrost postou uma resposta no tópico em Suporte Tibia OTServer
    Queria muito esse script, mas parece que vai dar trampo. Mas caso vc tiver com tempo de modifica-lo pra mim, ficaria muito grato.
  5. TheFrost postou uma resposta no tópico em Suporte Tibia OTServer
    Mas no caso o seu reward, só quem deu mais dano/curou e tankou mais, receberia o item, nao é?
  6. TheFrost postou uma resposta no tópico em Suporte Tibia OTServer
    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?
  7. TheFrost reagiu a uma resposta no tópico: Boss drope dp
  8. TheFrost postou uma resposta no tópico em Suporte Tibia OTServer
    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!
  9. TheFrost postou uma resposta no tópico em Suporte Tibia OTServer
    Agora deu esse error
  10. TheFrost postou uma resposta no tópico em Suporte Tibia OTServer
    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.
  11. TheFrost postou uma resposta no tópico em Suporte Tibia OTServer
    Assim, mas agora está dando esse error.
  12. TheFrost postou uma resposta no tópico em Suporte Tibia OTServer
    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
  13. TheFrost postou uma resposta no tópico em Suporte OTServer Derivados
    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.
  14. 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
  15. TheFrost postou uma resposta no tópico em Suporte Tibia OTServer
    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.
  16. 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

Informação Importante

Confirmação de Termo