Ir para conteúdo

leoe

Campones
  • Total de itens

    22
  • Registro em

  • Última visita

Tudo que leoe postou

  1. Bom galera,estive procurando mapas para outlands ja prontas,mas não consigui achar.Então decidi criar um tópico para ve se alguem que saiba ou tenha possa compartilhar,no caso não é pra mim,mas é pro dono do ot que jogo Enfim:gostaria de sabe se alguem tenha o mapa das outlands prontas(igual a do pda serv) para que ele possa so copia e cola,mas que seja completo,com a entrada da outland(com level),com os bixo tudo pronto Bom,se alguem tive ou soube de algum tópico que tenha oque preciso,me ajudem!
  2. Bom meu cara amigo,eu queria saber se desse jeito vai aparecer os bixos certo,e nao os monsters igual o do tibia queria um mapa editor que aparece tudo correto msm Manda msn se tive Rep+
  3. leoe

    Script De Event

    Vou Testar,se der certo rep+
  4. leoe

    Script De Event

    Olá queria uma ajuda para ver se tem algo de errado com um script que não foi eu quem fiz os credito sao de Uissu,queria ver se esta tudo ok com o script O script eh de 1 em 1 hora abre um teleport para tal lugar,só que nao hora de fechar o teleport nao some Da uma ajuda ae function onThink(interval, lastExecution, thinkInterval) local time = 30 * 60 * 1000 doCreateTeleport(1387, {x=664, y=577, z=12}, {x=162, y=40, z=7}) doBroadcastMessage("O portal do evento da vip5 'gratis' foi aberto ele durara 30 minutos.") setGlobalStorageValue(21973, os.time()+time) addEvent(doFinishEvent, time, {x=162, y=40, z=7}) end function doFinishEvent(pos) doBroadcastMessage("O portal do evento foi fechado. Próximo evento em 3 horas.") doRemoveItem(getTileItemById(pos, 1387).uid, 1) doSendMagicEffect(positioni, CONST_ME_POFF) end
  5. leoe

    War System

    ;s ja vi em alguns baiak,mas nao tinha site
  6. leoe

    War System

    Olá queria um sistema de war system com escudos para baiak 8.6 procurei mas não achei,os que achei precisar de gesior acc ajuda ae,se ajuda Dou Rep+
  7. sao meus primeiros pots por issu ta assim :s mas vo tenta arrumar
  8. Olá a magia que irei postar eh uma chuva que quando acertada ao chão cria walls,basicamente eh para trapar o player,mas varia os lugar que cairam as walls entao vai em data/spells/script copie um arquivo e cole(renomeie o nome q quiser) local water = {490, 491, 492, 493, 4608, 4609, 4610, 4611, 4612, 4613, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625} local combat = createCombatObject() local meteor = createCombatObject() setCombatParam(meteor, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(meteor, COMBAT_PARAM_EFFECT, 52) setCombatFormula(meteor, COMBAT_FORMULA_LEVELMAGIC, -90, -90, -90, -90) setCombatParam(meteor, COMBAT_PARAM_CREATEITEM, 1497) local stun = createConditionObject(CONDITION_PARALYZE) setConditionParam(stun, CONDITION_PARAM_TICKS, 5000) setConditionFormula(stun, -0.8, 0, -0.9, 0) setCombatCondition(meteor, stun) local meteor_water = createCombatObject() setCombatParam(meteor_water, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(meteor_water, COMBAT_PARAM_EFFECT, 52) setCombatFormula(meteor_water, COMBAT_FORMULA_LEVELMAGIC, -70, -70, -70, -70) combat_arr = { {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 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, 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, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0} } local combat_area = createCombatArea(combat_arr) setCombatArea(combat, combat_area) local function meteorCast(p) doCombat(p.cid, p.combat, positionToVariant(p.pos)) end local function stunEffect(cid) doSendMagicEffect(getThingPos(cid), CONST_ME_STUN) end function onTargetTile(cid, pos) if (math.random(0, 1) == 1) then local ground = getThingfromPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}) if (isInArray(water, ground.itemid) == TRUE) then local newpos = {x = pos.x - 7, y = pos.y - 6, z = pos.z} doSendDistanceShoot(newpos, pos, CONST_ANI_SHIVERARROW) addEvent(meteorCast, 200, {cid = cid, pos = pos, combat = meteor_water}) else local newpos = {x = pos.x - 7, y = pos.y - 6, z = pos.z} doSendDistanceShoot(newpos, pos, CONST_ANI_SHIVERARROW) addEvent(meteorCast, 200, {cid = cid,pos = pos, combat = meteor}) end end end setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile") function onCastSpell(cid, var) return doCombat(cid, combat, var) end Depois vá em spells.xml e cole essa tag <instant name="Labirinto" words="labirinto" lvl="95000" mana="800" prem="1" aggressive="1" selftarget="1" exhaustion="1000" needlearn="0" script="attack/NOME QUE VOCE COLOCOU.lua"> <vocation id="1"/> <vocation id="2"/> <vocation id="3"/> <vocation id="4"/> </instant> Bom é issu,qualquer duvida ou erro,poste aki
  9. so vc colocar na pasta data/spells/script e depois add a tag que eh no spells.xml se tiver duvida me add msn navegador100_rumo@hotmail.com
  10. Byerne sera que tem como fazer so que para todos que estiverem online e nao precisa esta perto?
  11. leoe

    Ajuda Ae

    Ainda nao deu,fala que tem o comando mas nao funfa :S
  12. Sim,esse script quem fez foi o xotservx
  13. local list = {'god','gm','adm','[',']','(',')','{','}'} --sao os nomes que sai proibidos? se tiver como manda o script todo usarei Vlw
  14. leoe

    Ajuda Ae!

    queria um script que quando um mostro for morto mandassem a mensagem para todos do servidor que ele foi morto e quem matou-le tambem queria se o montro matar alguem queria que mandasse para todos do servidor se conseguir rep+
  15. leoe

    Ajuda Ae

    nao entendi muito,vou mandar private msm
  16. leoe

    Ajuda Ae

    bom tenhu um script(nao foi eu quem fiz creditos de amoeba13 ta aki o link http://www.xtibia.com/forum/topic/150606-criar-um-evento-com-teleport/)e queria que quando o player falasse 1 comando aparecese quanto tempo falta para o teleport abrir,ta aki o script local positioni = {x=162, y=40, z=7} function onThink(interval, lastExecution, thinkInterval) local time = 30000 doCreateTeleport(1387, {x=664, y=577, z=12}, positioni) doBroadcastMessage("O portal do evento da vip5 'gratis' foi aberto ele durara 30 minutos.") addEvent(deleteTp, time*60) addEvent(doBroadcastMessage, time*100*60, "O portal do evento foi fexado. Próximo evento em 3 horas.") end function deleteTp() local delete = getTileItemById(positioni, 1387) doRemoveItem(delete.uid, 1) doSendMagicEffect(positioni, CONST_ME_TELEPORT) end e a tag esta ake <globalevent name="evento" interval="3800" event="script" value="evento1.lua"/> revisano quando o player falasse !tempoeve --aparece quanto tempo falta para o teleport abrir vlw rep+ se conseguir
  17. leoe

    Bem Fodinha!

    vamos ve se entendi a posiçao do tele <>? vo manda private agr ta ae rep+ vo manda private
  18. leoe

    Bem Fodinha!

    olha cara nao entendi muito me manda ele completo tag,aonde por nao entendi essa parte esquerda da arena mas vlw!
  19. leoe

    Bem Fodinha!

    Bom galera venho pedir 1 script que acredito que seja foda queria um script para por numa area que ao player morrer ele ser teletransportado para o templo e o player vivo ser teletransportado para o tempo SO QUE ELE GANHA UM ITEN(item id:11192 quantidade:10)e que aparece para todos que tal player mato tal player ajuda ae se conseguir dou rep+(por 5 dias)
  20. leoe

    Script De Treno

    olha so eu puis assim,mas deu error local storages = { speed = 314622, status = 352993 } -- Empty storages local cfg = { min_speed = 200, -- better not increase than that [ the least speed for a car ] max_speed = 7000, -- better not decrease than this [ the maximum speed for a car ] Increase_per_command = 100, -- The speed increase or decrease value per each command (!car speed // !car slow) Car_Explode = true -- Keep it true , so your map isnt filled with cars } -->> END <<-- --<< Functions >>-- function isWalkable(pos, creature, pz)-- Modificações by Hudsin,Arkires e Pinpao Xtibia 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 pz then return false, true 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 getCarSpeed(cid) return getPlayerStorageValue(cid,storages.speed) end function setCarSpeed(cid,value) return setPlayerStorageValue(cid,storages.speed, getPlayerStorageValue(cid,storages.speed) + value) end function setCarStatus(cid,value) return setPlayerStorageValue(cid,storages.status,value) end function carMove(cid) return getPlayerStorageValue(cid,storages.status) > 0 and true or false end function move(cid,time) local dir = getCreatureLookDir(cid) local id = isInArray({1,3},getCreatureLookDir(cid)) and 7267 or 7266 local place = getPositionByDirection(getThingPos(cid),dir,1) if isWalkable(place,true,true,true) then doRemoveItem( getTileItemById(getThingPos(cid),7267).uid > 0 and getTileItemById(getThingPos(cid),7267).uid or getTileItemById(getThingPos(cid),7266).uid ) doTeleportThing(cid,place,false) AddEvent(doSendDistanceShoot(getThingPos(cid), effPos, 40)) --AKI EH AONDE EU ADCIONEI A TAG doCreateItem(id,1,place) if carMove(cid) then addEvent(move,time,cid,getCarSpeed(cid)) else doRemoveItem( getTileItemById(getThingPos(cid),7267).uid > 0 and getTileItemById(getThingPos(cid),7267).uid or getTileItemById(getThingPos(cid),7266).uid ) end else doCreatureSetNoMove(cid, 0) doPlayerSendTextMessage(cid,25,"Voce destruiu seu carro,idiota.") setCarStatus(cid,0) if cfg.Car_Explode then doRemoveItem( getTileItemById(getThingPos(cid),7267).uid > 1 and getTileItemById(getThingPos(cid),7267).uid or getTileItemById(getThingPos(cid),7266).uid ) doSendAnimatedText(getThingPos(cid),"Help Me!",TEXTCOLOR_RED) doSendMagicEffect(getThingPos(cid),31) end end end --<< Functions Ends <<-- function onSay(cid, words, param, channel) if param == "speed" then if carMove(cid) then if getCarSpeed(cid) > cfg.max_speed then setCarSpeed(cid,-(cfg.Increase_per_command)) addEvent(doSendAnimatedText,10,getThingPos(cid),"Run,run",TEXTCOLOR_GREEN) else setCarSpeed(cid,cfg.max_speed) doPlayerSendCancel(cid,"Sua velocidade ta no maximo.") end else doPlayerSendCancel(cid,"You should start moving first.") end elseif param == "slow" then if carMove(cid) then if getCarSpeed(cid) < cfg.min_speed then setCarSpeed(cid,cfg.Increase_per_command) addEvent(doSendAnimatedText,20,getThingPos(cid),"Diminuir",TEXTCOLOR_GREEN) else setCarSpeed(cid,cfg.min_speed) doPlayerSendCancel(cid,"Voce diminuiu sua velocidade.") end else doPlayerSendCancel(cid,"You should start moving first.") end elseif param == "stop" then -- by DarkVelocity Xtibia if carMove(cid) then setCarStatus(cid,0) doCreatureSetNoMove(cid, 0) else doPlayerSendCancel(cid,25,"Voce Parou de Andar de Treno.") end elseif param == "go" then if not carMove(cid) then if getTileItemById(getThingPos(cid),7267).uid < 1 and getTileItemById(getThingPos(cid),7266).uid < 1 then local item = isInArray({1,3},getCreatureLookDir(cid)) and 7267 or 7266 doCreateItem(item,1,getThingPos(cid)) end setPlayerStorageValue(cid,storages.speed,cfg.min_speed) setCarStatus(cid,1) doCreatureSetNoMove(cid, 1) move(cid,getCarSpeed(cid)) else doPlayerSendCancel(cid,"Carro esta se movendo.") end end return true end vi o erro ake,vlw rep+
  21. leoe

    Script De Treno

    so que ai cara,eu nao entendo muito disso se poderia mandar pronto? o efeito sairia atras da pessoas,o num do efeito eh 40 se conseguir rep+ doSendDistanceShoot(posição de onde sai, posição para aonde vai, efeito)
  22. leoe

    Script De Treno

    nn,voce entendeu errado voce me passo os efeitos Z quero os efeitos de distancia igual exori con,essas so q o numero do efeito eh /x 40 mas do msm jeito rep+
  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...