Northon

Valeu ai, malz eu não tinha visto este tópico.

Poxa que massa, O cofre ficou perfeito, só falta colocar um npc segurança não acha?

Qual comando eu usaria para dobrar a exp no anel? Quero colocar isso no meu ot.

Acho que o Baixaki tem direitos autorais a esta imagem, sugiro troca-la ou pode ter rolo. Não recomendo usar esta merda, ele não faz nada, se vocês querem um anti-nuker de verdade pegem o ZoneAlarm. -- EDITED: Malware encontrado! Topico reportado!

Oo, nem eu sabia disso, valeu ai. Só que ta na seção errada, seria em informatica.

Olha o erro:

O único problema é que é SQL, faz ele em XML. :smile_positivo:

[shovel] Abrindo Buraco Status: Buraco aberto: Buraco fechado: Iniciando: Abra o seguinte arquivo: data/actions/scripts/shovel.lua Substitue tudo o que há dentro desse arquivo por isso: function onUse(cid, item, frompos, item2, topos) pos = getPlayerPosition(cid) if item2.itemid == 0 then return 0 end if item2.itemid == 468 then doTransformItem(item2.uid,469) doDecayItem(item2.uid) elseif item2.itemid == 481 then doTransformItem(item2.uid,482) doDecayItem(item2.uid) elseif item2.itemid == 293 then doTransformItem(item2.uid,294) doDecayItem(item2.uid) elseif item2.itemid == 483 then doTransformItem(item2.uid,484) doDecayItem(item2.uid) elseif item2.itemid == 231 then rand = math.random(1,30) if rand < 6 then doSummonCreature("Scarab", topos) doTeleportThing(cid,topos) doTeleportThing(cid,pos) elseif rand == 6 then doSummonCreature("Crab", topos) doTeleportThing(cid,topos) doTeleportThing(cid,pos) elseif rand == 15 then doPlayerAddItem(cid,2159,1) else doSendMagicEffect(topos,2) end else return 0 end return 1 end Vá a arquivo -> salvar. Acesse o arquivo indicado a seguir: data/actions/actions.xml Abra-o e adicione isso: <action itemid="2554" script="shovel.lua" /> <action itemid="5710" script="shovel.lua" /> Pronto, salve e feche-o.

Legal, vou adicionar ao meu ot. Thanks. EDITED -- Não funcionou

Oi Acho que não, eu uso a magia sem ter isto, e outra colocar em quote tira os espaços, prefiro usar o code que é memo para codigos.

Muito legal, eu mesmo fiz isso ontem Oo Eu aprendi isso com um meu colega aqui, ou meu tava 256MB heheh.

Tá ai Rodrigo http://www.xtibia.com/forum/spells-Utani-Mas-Hur-t89424.html Quem quiser dar mais sugestões, só avisar.

[spells] Utani Mas Hur Essa idéia foi do Rodrigo por isso os créditos da idéia é dele. Abra a seguinte pasta: data/spells/scripts Copie qualquer arquivo, e renomeio por isto: VelocidadeMax.lua Abra-o e cole isto: local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) local condition = createConditionObject(CONDITION_HASTE) setConditionParam(condition, CONDITION_PARAM_TICKS, 99955) setConditionFormula(condition, 0.7, -56, 0.7, -100) setCombatCondition(combat, condition) function onCastSpell(cid, var) return doCombat(cid, combat, var) end Vá em arquivo -> salvar Abra a seguinte pasta: data/spells Acesse o spells.xml Coloque isto: <instant name="Super Velocidade" words="utani mas hur" selftarget="1" aggressive="0" lvl="20" maglv="10" mana="100" soul="0" exhaustion="1" prem="1" enabled="1" script="VelocidadeMax.lua"><vocation id="2"/><vocation id="1"/><vocation id="6"/><vocation id="5"/></instant> Pronto! salve o arquivo.

[spells] Utani Hur Sio Dê velociade a seu amigo, como a exura sio. Acesse a pasta: data/spells/scripts Renomei por VelociadeAmigos.lua Abra o arquivo e cole isto: local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_HEALING) setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 0.6, -30, 1.2, 0) local condition = createConditionObject(CONDITION_HASTE) setConditionParam(condition, CONDITION_PARAM_TICKS, 20000) setConditionFormula(condition, 0.3, -24, 0.3, -24) setCombatCondition(combat, condition) function onCastSpell(cid, var) return doCombat(cid, combat, var) end Vá em arquivo -> salvar. Acesse a pasta: data/spells Abra-o é coloque isto: <instant name="Haste Friends" words="utani hur sio" aggressive="0" params="1" needtarget="1" lvl="18" maglv="7" mana="70" soul="0" exhaustion="1" prem="0" enabled="1" script="VelociadeAmigos.lua"><vocation id="2"/><vocation id="6"/></instant> Pronto! Salve o arquivo. Creditos: by Northon

Não sei, mais vou proucurar saber, ai eu te mando.

[Npc] Vendedor de Loot Abra a pasta: data/npc/scripts Copie qualquer arquivo e renomei por isso: Lootbuy.lua Acesse-o e cole isso: local focus = 0 local talk_start = 0 local target = 0 local following = false local attacking = false function onThingMove(creature, thing, oldpos, oldstackpos) end function onCreatureAppear(creature) end function onCreatureDisappear(cid, pos) if focus == cid then selfSay('Good bye then.') focus = 0 talk_start = 0 end end function onCreatureTurn(creature) end function msgcontains(txt, str) return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)')) end function onCreatureSay(cid, type, msg) msg = string.lower(msg) if (msgcontains(msg, 'hi') and (focus == 0)) and getDistanceToCreature(cid) < 4 then selfSay('Hello ' .. getCreatureName(cid) .. '! Eu vendo swords, clubs, axes,legs, shields e armors.') focus = cid talk_start = os.clock() elseif msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 4 then selfSay('Sorry, ' .. getCreatureName(cid) .. '! Espere um minuto.') elseif focus == cid then talk_start = os.clock() if msgcontains(msg, 'mystic turban') then sell(cid,2663,getCount(msg),500) elseif msgcontains(msg, 'steel helmet') then buy(cid,2457,getCount(msg),1200) elseif msgcontains(msg, 'chain helmet') then buy(cid,2458,getCount(msg),150) elseif msgcontains(msg, 'brass helmet') then buy(cid,2460,getCount(msg),90) elseif msgcontains(msg, 'studded helmet') then buy(cid,2482,getCount(msg),40) elseif msgcontains(msg, 'helmets') then selfSay('Eu vendo chain helmet (150gp), steel helmet (1200gp),brass helmet (90gp) e studded helmet (40gp).') elseif msgcontains(msg, 'mammoth fur cape') then buy(cid,7463,getCount(msg),6000) elseif msgcontains(msg, 'plate armor') then buy(cid,2463,getCount(msg),800) elseif msgcontains(msg, 'brass armor') then buy(cid,2465,getCount(msg),400) elseif msgcontains(msg, 'chain armor') then buy(cid,2464,getCount(msg),150) elseif msgcontains(msg, 'armors') then selfSay('Eu vendo plate (800gp), brass (400gp) and chain armors (150gp), tambem mammoth fur cape (6k).') elseif msgcontains(msg, 'brass legs') then buy(cid,2478,getCount(msg),200) elseif msgcontains(msg, 'chain legs') then buy(cid,2478,getCount(msg),100) elseif msgcontains(msg, 'legs') then selfSay('Eu vendo brass (200gp) and chain legs (100gp).') elseif msgcontains(msg, 'steel shield') then buy(cid,2511,getCount(msg),180) elseif msgcontains(msg, 'plate shield') then buy(cid,2510,getCount(msg),145) elseif msgcontains(msg, 'dwarven shield') then buy(cid,2525,getCount(msg),300) elseif msgcontains(msg, 'shields') then selfSay('Eu vendo plate (145gp),steel (180gp) and dwarven shields (300gp).') elseif msgcontains(msg, 'serpent sword') then buy(cid,2409,getCount(msg),3500) elseif msgcontains(msg, 'spike sword') then buy(cid,2383,getCount(msg),2800) elseif msgcontains(msg, 'two handed sword') then buy(cid,2377,getCount(msg),2400) elseif msgcontains(msg, 'swords') then selfSay('Eu vendo serpent (3.5k), spike (2.8k) and two handed swords (2.4k).') elseif msgcontains(msg, 'double axe') then buy(cid,2387,getCount(msg),2200) elseif msgcontains(msg, 'halberd') then buy(cid,2381,getCount(msg),2400) elseif msgcontains(msg, 'battle axe') then buy(cid,2378,getCount(msg),200) elseif msgcontains(msg, 'hatchet') then buy(cid,2388,getCount(msg),60) elseif msgcontains(msg, 'beastslayer axe') then buy(cid,3962,getCount(msg),7000) elseif msgcontains(msg, 'barbarian axe') then buy(cid,2429,getCount(msg),1800) elseif msgcontains(msg, 'axes') then selfSay('Eu vendo double (2.2k), beastslayer axe (6k), barbarian (1.8k) halberds (2.4k) e hatchets (60gp).') elseif msgcontains(msg, 'clerical mace') then buy(cid,2423,getCount(msg),1200) elseif msgcontains(msg, 'battle hammer') then buy(cid,2417,getCount(msg),900) elseif msgcontains(msg, 'mace') then buy(cid,2398,getCount(msg),90) elseif msgcontains(msg, 'dragonbone staff') then buy(cid,7430,getCount(msg),5800) elseif msgcontains(msg, 'clubs') then selfSay('Eu vendo battle hammers (900gp), dragonbone staff (5.8k) e clerical maces (1.2k).') elseif msgcontains(msg, 'scarf') then buy(cid,2661,getCount(msg),1000) elseif msgcontains(msg, 'amulets') then selfSay('Eu vendo scarf (1k).') elseif string.find(msg, '(%a*)bye(%a*)') and getDistanceToCreature(cid) < 4 then selfSay('Tchau, Tchau, ' .. getCreatureName(cid) .. '!') focus = 0 talk_start = 0 end end end function onCreatureChangeOutfit(creature) end function onThink() if (os.clock() - talk_start) > 20 then if focus > 0 then selfSay('...') end focus = 0 end if focus ~= 0 then if getDistanceToCreature(focus) > 5 then selfSay('...') focus = 0 end end end Vá em arquivo -> salvar. Acesse a pasta: data/npc Copie qualquer npc e renomeio para Vendedor de Loot. Abra o arquivo e cole isso: <?xml version="1.0"?> <npc name="Vendedor de Loot" script="data/npc/scripts/Lootbuy.lua" access="3" lookdir="2" autowalk="25"> <mana now="800" max="800"/> <health now="200" max="200"/> <look type="251" head="0" body="114" legs="96" feet="76" addons="3"/> </npc> Pronto!, salve o arquivo. Créditos: Thyrania pelo script e Northon pelo tutorial.

Isso ai já prova que tem scripts.

Não funcionou aqui em casa.

Sem Script onde? Organização: -2 Idea de ajudar: 5 É só isso.

Meio inútil, por que tirar que ele atravesa a parede? É legal.

Não conhecia essa parte: "C:\Arquivos de programas\Tibia\Tibia.exe" joaocaramelo.servegame.com port 7171 Mais ainda existe OTServ 7.5? Muito bom o tutorial, merece fix.

Praticamente todas as pessoas sabem quem é Bill Gates, mas poucos conhecem mais sobre ele, além do fato de ter fundado a Microsoft e ser um dos homens mais ricos do mundo. Bill Gates chama-se William Henry Gates III e nasceu em Seattle no dia 28/Out/1955. Ele tem uma irmã mais velha (Kristianne) e uma irmã mais nova (Libby). Aos 13 anos Gates entrou na Lakeside School. Ali ele conheceu Paul Allen e teve o primeiro contato com algo parecido com um computador: um terminal de teletipo da GE. Gates ficou fascinado por aquela "máquina" e dali em diante ele começou a estudar BASIC. Em seguida Gates teve contato com um minicomputador da DEC, e com isso ele também estudou FORTRAN, LISP, Assembler e COBOL. Com apenas 17 anos, Gates e Allen fundaram a Traf-O-Data, e criaram um sistema desenvolvido por eles para ajudar na análise do trânsito com uso de cartões perfurados. A empresa faturou US$ 20 mil, mas depois que os clientes souberam da idade de Gates, o negócio desandou. Gates fez o SAT (teste de admissão nas universidades americanas) e obteve 1590 pontos dentre 1600 possíveis. Com isso, ele entrou em Harvard aos 18 anos, mas abandonou os estudos dois anos depois para se dedicar a uma pequena empresa que ele abrira com Paul Allen: a Micro-Soft. Em Harvard ele também conheceu Steve Ballmer, que faria parte da empresa alguns anos mais tarde. Apenas um ano após a sua fundação, Gates decidiu tirar o hífen do nome da empresa e registrou a Micro-Soft como Microsoft, no dia 26/Nov/76. Gates e Allen desenvolveram uma versão do BASIC que fez muito sucesso, mas Gates ficou irritado ao notar que o produto era copiado livremente. Com isso, ele escreveu uma "carta aberta" a todos os programadores para que não pirateassem o software da Microsoft. Em seguida a IBM contratou a Microsoft para desenvolver uma versão do BASIC para um produto que eles iriam lançar: o IBM Personal Computer, ou IBM-PC, que depois foi chamado somente de PC, e o resto todos sabem o que houve. Gates se casou em 01/Jan/1994 com Melinda French (ex-funcionária da Microsoft e responsável pelo desenvolvimento do Microsoft BOB) e tiveram três filhas. Em 2000 ele criou a Bill & Melinda Gates Foundation (B&MGF), que se transformou na maior Fundação dedicada à caridade do mundo. Gates anunciara que doaria 99% da sua fortuna quando em vida e atualmente a Fundação tem quase US$ 39 bi, pois Warren Buffett (uma das pessoas mais ricas do mundo) anunciou em 2006 que doaria 85% da sua fortuna para a Fundação de Gates. A Bill & Melinda Gates Foundation é tida como uma das Fundações mais transparentes do mercado, uma vez que todos os seus gastos são públicos. Bill Gates anunciou em Junho de 2006 que dois anos depois ele deixaria o comando da Microsoft para se dedicar à filantropia, e desde então todos perguntaram: quem iria substitui-lo? A resposta foi simples: Steve Ballmer, Ray Ozzie e Craig Mundie. Steve Ballmer está no comando da Microsoft desde 2000, e Ozzie e Mundi são profissionais tarimbados: Ozzie começou a trabalhar na Microsoft em 2005 como Chief Technical Officer, logo após Microsoft comprar Groove Networks, empresa fundada por ele em 1997. O executivo também fundou e presidiu a Iris Associates, onde criou e liderou o desenvolvimento do Lotus Notes e posteriormente colaborou no desenvolvimento do Lotus Symphony. Atualmente está a frente do Live Mesh, projeto cujo anúncio em beta foi feito recentemente e que tem a proposta de interconexão entre todos os devices: PC, mobile, videogame etc. Mundie está na Microsoft desde 1992 e foi o criador da área de produtos de consumo da empresa. Ele desenvolveu softwares para plataformas não ligadas a PCS, como Windows CE, software para o handheld Pocket e Auto PCs e games para console. Mundie também iniciou as atividades da Microsoft na área de TV Digital. Desde 2000 o executivo faz parte do Comitê Nacional de Aconselhamento de Segurança em Telecomunicações dos Estados Unidos. Ele aconselhou a Casa Branca em problemas de segurança que podem afetar a infra-estrutura de telecomunicação das nações. Mesmo tendo anunciado a sua aposentadoria da Microsoft, na prática Bill Gates continuará dedicando 20% do seu tempo (um dia por semana) para assuntos relativos à Microsoft. Ele continua a atuar como chairman da Microsoft e conselheiro no desenvolvimento de projetos-chave. Ele somente não estará nas decisões do dia-a-dia e dedicará mais tempo e energia ao seu trabalho relacionado à saúde e educação na Fundação Bill & Melinda Gates. Fonte: MSN Por quê ele fez isso? Acho que foi a maior besteira do mundo.

Plx foto, sem foto fica sem graça.

Pelo visto ta rox, mais ta faltando uma area para um pvp.

Muito bom o cel e a sword, gostei da animação.