Líderes

Scarab Coin - Teleport por devidos leveis Eai galera, hoje venho trazer a você um Script, isso mesmo é um scarab coin que ao dar use o player será teletransportado para algum lugar, cada level tem a posição a que vai ser teletransportado, mas no caso você poderá editar as posições! Bom para se locomover para Hunts! Dependendo do seu mapa, mude a posição e se quiser os leveis. Bom, primeiro de tudo vá em data/actions/scripts, crie um arquivo.lua, renomeio e cole isto dentro: local tabela = { [10] = {x = 125, y = 50, z = 3}, [30] = {x = 183, y = 51, z = 6}, [50] = {x = 122, y = 55, z = 5}, [70] = {x = 160, y = 54, z = 7}, [90] = {x = 101, y = 23, z = 4} } function onUse (cid,item,frompos,item2,topos) doPlayerRemoveItem (cid,3049,1) doTeleportThing(cid,tabela[getPlayerLevel(cid)]) end Agora vá em data/actions/actions.xml e adicione esta tag em qualquer lugar: <action itemid="3049" event="script" value="NOMEDOSEUSCRIPT.lua"/> Bom galera, é isso, espero que gostem! Créditos: 60% Eu por criar o script 40% Vodkart por me ensinar scripting -> vodkart, amigao (:

Olá tenho mais Duas funções,eu vi um pedido de um tópico e resolvi criar essas funções já que ainda não existe uma(pelo oque eu sei) Oque elas fazem? é dada ou retirada o valor de Mana/Health do jogador por segundos. -----------------Funções ------------- doManaSecond(cid, quanty, delay) doHealthSecond(cid, quanty, delay)

Moves System Pokemon O meu script de moves, foi atualizado, por enquanto está com esses pokemons, eu estárei adicionando os 151, aos pouco não tenha pressa e acompanhe todos dias avera atualização. Novidades : Crie um arquivo com nome de moves.lua e cole o new script : function getTime(s) local n = math.floor(s / 600) s = s - (600 * n) return n, s end function getCreaturesInRange(position, radiusx, radiusy, showMonsters, showPlayers) local creaturesList = {} for x = -radiusx, radiusx do for y = -radiusy, radiusy do if not (x == 0 and y == 0) then creature = getTopCreature({x = position.x+x, y = position.y+y, z = position.z, stackpos = STACKPOS_TOP_CREATURE}) if (creature.type == 1 and showPlayers == 1) or (creature.type == 2 and showMonsters == 1) then table.insert(creaturesList, creature.uid) end end end end return creaturesList end -- CONDITIONS function Confused(inconfuse, rounds) if rounds == 0 then return false end if not inconfuse then return false end local c = {[1] = {x = 1, y = 0}, [2] = {x = 0, y = 1}, [3] = {x = -1, y = 0}, [4] = {x = 0, y = -1}} local p = getCreaturePosition(inconfuse) doSendMagicEffect(p, 31) local s = math.random(4) doTeleportThing(inconfuse, {x = p.x + c[s].x, y = p.y + c[s].y, z = p.z}) return addEvent(Confused, 400, inconfuse, rounds-1) end local paralize = createConditionObject(CONDITION_PARALYZE) setConditionParam(paralize, CONDITION_PARAM_TICKS, 5*1000) setConditionFormula(paralize, -0.7, 0, -0.8, 0) function Paralize(inparalize) doSendAnimatedText(getCreaturePosition(inparalize), "PAZ", 210) doAddCondition(inparalize , paralize) return true end local sleep = createConditionObject(CONDITION_PARALYZE) setConditionParam(sleep, CONDITION_PARAM_TICKS, 5*1000) setConditionFormula(sleep, -1.7, 0, -1.8, 0) function Sleep(insleep) doAddCondition(insleep , sleep) p = getCreaturePosition(insleep) doSendAnimatedText(p, "SLEEP", 154) for i = 1, 5 do if i == 1 then doSendMagicEffect(p, 32) else addEvent(doSendMagicEffect, i * 1000, p, 32) end end return true end function Poison(inpoison, ef, rounds) if rounds == 0 then return false end if not inpoison then return false end local p = getCreaturePosition(inpoison) doAreaCombatHealth(pet, COMBAT_EARTHDAMAGE, p, 0, -5, -10, ef) return addEvent(Poison, 800, inpoison, ef, rounds-1) end -- END CONDITIONS function getPosToStorm(posdecay) b = {x = posdecay.x-20, y = posdecay.y-20, z = posdecay.z} return b end local area1 = createCombatArea{ {0, 1, 1, 1, 0}, {1, 1, 1, 1, 1}, {1, 1, 2, 1, 1}, {1, 1, 1, 1, 1}, {0, 1, 1, 1, 0} } local area2 = createCombatArea{ {0, 0, 0, 0, 0}, {0, 1, 1, 1, 0}, {0, 1, 2, 1, 0}, {0, 1, 1, 1, 0}, {0, 0, 0, 0, 0} } local area3 = createCombatArea{ {0, 0, 1, 0, 0}, {0, 1, 1, 1, 0}, {1, 1, 2, 1, 1}, {0, 1, 1, 1, 0}, {0, 0, 1, 0, 0} } local areadirecion1 = { [2] = createCombatArea{ {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 2, 0, 0} }, [3] = createCombatArea{ {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {2, 1, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0} }, [0] = createCombatArea{ {0, 0, 2, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0} }, [1] = createCombatArea{ {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 1, 2}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0} } } local areadirecion2 = { [2] = createCombatArea{ {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 2, 0, 0} }, [3] = createCombatArea{ {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {2, 1, 1, 1, 1}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0} }, [0] = createCombatArea{ {0, 0, 2, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0} }, [1] = createCombatArea{ {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {1, 1, 1, 1, 2}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0} } } local areadirecion3 = { [2] = createCombatArea{ {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 2, 0, 0} }, [3] = createCombatArea{ {0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0}, {2, 1, 1, 1, 1, 1, 1, 1, 1}, {0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0} }, [0] = createCombatArea{ {0, 0, 2, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 0, 0} }, [1] = createCombatArea{ {0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0}, {1, 1, 1, 1, 1, 1, 1, 1, 2}, {0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0} } } local areadirecion4 = { [2] = createCombatArea{ {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0}, {0, 1, 1, 1, 0}, {0, 0, 1, 0, 0}, {0, 0, 2, 0, 0} }, [3] = createCombatArea{ {0, 0, 0, 0, 0}, {0, 0, 1, 0, 0}, {2, 1, 1, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 0, 0} }, [0] = createCombatArea{ {0, 0, 2, 0, 0}, {0, 0, 1, 0, 0}, {0, 1, 1, 1, 0}, {0, 0, 0, 0, 0}, {0, 0, 0, 0, 0} }, [1] = createCombatArea{ {0, 0, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 1, 1, 2}, {0, 0, 1, 0, 0}, {0, 0, 0, 0, 0} } } local d = { ["Bulbasaur"] = { ["m1"] = {atk = "Quick Attack", minlvl = 20, st = 2000, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "Razor Leaf", minlvl = 20, st = 2001, cd = 3, min = 100, max = 200, damage = COMBAT_EARTHDAMAGE, target = true, pz = false}, ["m3"] = {atk = "Vine Whip", minlvl = 20, st = 2002, cd = 3, min = 100, max = 200, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m4"] = {atk = "Headbutt", minlvl = 20, st = 2003, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m5"] = {atk = "Leech Seed", minlvl = 20, st = 2004, cd = 3, min = 100, max = 200, damage = COMBAT_EARTHDAMAGE, target = true, pz = false}, ["m6"] = {atk = "Solar Beam", minlvl = 20, st = 2005, cd = 3, min = 200, max = 400, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m7"] = {atk = "Stun Spore", minlvl = 20, st = 2006, cd = 3, min = 0, max = 0, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m8"] = {atk = "Poison Powder", minlvl = 20, st = 2007, cd = 3, min = 0, max = 0, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m9"] = {atk = "Sleep Powder", minlvl = 20, st = 2008, cd = 3, min = 0, max = 0, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, }, ["Ivysaur"] = { ["m1"] = {atk = "Quick Attack", minlvl = 40, st = 2009, cd = 3, min = 300, max = 400, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "Razor Leaf", minlvl = 40, st = 2010, cd = 3, min = 300, max = 400, damage = COMBAT_EARTHDAMAGE, target = true, pz = false}, ["m3"] = {atk = "Vine Whip", minlvl = 40, st = 2011, cd = 3, min = 300, max = 440, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m4"] = {atk = "Headbutt", minlvl = 40, st = 2012, cd = 3, min = 300, max = 400, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m5"] = {atk = "Leech Seed", minlvl = 40, st = 2013, cd = 3, min =300, max = 400, damage = COMBAT_EARTHDAMAGE, target = true, pz = false}, ["m6"] = {atk = "Solar Beam", minlvl = 40, st = 2014, cd = 3, min = 300, max = 400, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m7"] = {atk = "Stun Spore", minlvl = 40, st = 2015, cd = 3, min = 0, max = 0, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m8"] = {atk = "Poison Powder", minlvl = 40, st = 2016, cd = 3, min = 0, max = 0, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m9"] = {atk = "Sleep Powder", minlvl = 20, st = 2017, cd = 3, min = 0, max = 0, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, }, ["Venusaur"] = { ["m1"] = {atk = "Quick Attack", minlvl = 80, st = 2018, cd = 3, min = 1000, max = 2000, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "Razor Leaf", minlvl = 80, st = 2019, cd = 3, min = 1000, max = 2000, damage = COMBAT_EARTHDAMAGE, target = true, pz = false}, ["m3"] = {atk = "Vine Whip", minlvl = 80, st = 2020, cd = 3, min = 1000, max = 2000, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m4"] = {atk = "Headbutt", minlvl = 80, st = 2021, cd = 3, min = 1000, max = 2000, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m5"] = {atk = "Leech Seed", minlvl = 80, st = 2022, cd = 3, min = 1000, max = 2000, damage = COMBAT_EARTHDAMAGE, target = true, pz = false}, ["m6"] = {atk = "Solar Beam", minlvl = 80, st = 2023, cd = 3, min = 1000, max = 2000, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m7"] = {atk = "Stun Spore", minlvl = 80, st = 2024, cd = 3, min = 0, max = 0, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m8"] = {atk = "Poison Powder", minlvl = 80, st = 2025, cd = 3, min = 0, max = 0, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m9"] = {atk = "Sleep Powder", minlvl = 20, st = 2026, cd = 3, min = 0, max = 0, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m10"] = {atk = "Leaf Storm", minlvl = 80, st = 2027, cd = 3, min = 1000, max = 2000, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, }, ["Charmander"] = { ["m1"] = {atk = "Scratch", minlvl = 20, st = 2028, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "Ember", minlvl = 20, st = 2029, cd = 3, min = 100, max = 200, damage = COMBAT_FIREDAMAGE, target = false, pz = false}, ["m3"] = {atk = "Flamethrower", minlvl = 20, st = 2030, cd = 3, min = 100, max = 200, damage = COMBAT_FIREDAMAGE, target = false, pz = false}, ["m4"] = {atk = "Fire Ball", minlvl = 20, st = 2031, cd = 3, min = 100, max = 200, damage = COMBAT_FIREDAMAGE, target = true, pz = false}, ["m5"] = {atk = "Fire Blast", minlvl = 20, st = 2032, cd = 3, min = 100, max = 200, damage = COMBAT_FIREDAMAGE, target = false, pz = false}, ["m6"] = {atk = "Rage", minlvl = 20, st = 2033, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m7"] = {atk = "Fire Fang", minlvl = 20, st = 2034, cd = 3, min = 100, max = 200, damage = COMBAT_FIREDAMAGE, target = true, pz = false}, }, ["Charmeleon"] = { ["m1"] = {atk = "Scratch", minlvl = 40, st = 2035, cd = 3, min = 300, max = 400, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "Ember", minlvl = 40, st = 2036, cd = 3, min = 300, max = 400, damage = COMBAT_FIREDAMAGE, target = false, pz = false}, ["m3"] = {atk = "Flamethrower", minlvl = 40, st = 2037, cd = 3, min = 400, max = 500, damage = COMBAT_FIREDAMAGE, target = false, pz = false}, ["m4"] = {atk = "Fire Ball", minlvl = 40, st = 2038, cd = 3, min = 300, max =400, damage = COMBAT_FIREDAMAGE, target = true, pz = false}, ["m5"] = {atk = "Fire Blast", minlvl = 40, st = 2039, cd = 3, min = 300, max = 400, damage = COMBAT_FIREDAMAGE, target = false, pz = false}, ["m6"] = {atk = "Rage", minlvl = 40, st = 2040, cd = 3, min = 100, max = 300, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m7"] = {atk = "Fire Fang", minlvl = 40, st = 2041, cd = 3, min = 400, max = 800, damage = COMBAT_FIREDAMAGE, target = true, pz = false}, }, ["Charizard"] = { ["m1"] = {atk = "Dragon Claw", minlvl = 80, st = 2042, cd = 3, min = 1000, max = 2000, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "Ember", minlvl = 80, st = 2043, cd = 3, min = 1000, max = 2000, damage = COMBAT_FIREDAMAGE, target = false, pz = false}, ["m3"] = {atk = "Flamethrower", minlvl = 80, st = 2044, cd = 3, min = 1000, max = 2000, damage = COMBAT_FIREDAMAGE, target = false, pz = false}, ["m4"] = {atk = "Fire Ball", minlvl = 80, st = 2045, cd = 3, min = 1000, max = 2000, damage = COMBAT_FIREDAMAGE, target = true, pz = false}, ["m5"] = {atk = "Fire Blast", minlvl = 80, st = 2046, cd = 3, min = 1000, max = 2000, damage = COMBAT_FIREDAMAGE, target = false, pz = false}, ["m6"] = {atk = "Rage", minlvl = 80, st = 2047, cd = 3, min = 1000, max = 2000, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m7"] = {atk = "Magma Storm", minlvl = 80, st = 2048, cd = 3, min = 1000, max = 2000, damage = COMBAT_FIREDAMAGE, target = false, pz = false}, ["m8"] = {atk = "Wing Attack", minlvl = 80, st = 2049, cd = 3, min = 1000, max = 2000, damage = COMBAT_PHYSICALDAMAGE, target = false, pz = false}, }, ["Squirtle"] = { ["m1"] = {atk = "Headbutt", minlvl = 20, st = 2050, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "Bubbles", minlvl = 20, st = 2051, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = true, pz = false}, ["m3"] = {atk = "Water Gun", minlvl = 20, st = 2052, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = false, pz = false}, ["m4"] = {atk = "Waterball", minlvl = 20, st = 2053, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = true, pz = false}, ["m5"] = {atk = "Aqua Tail", minlvl = 20, st = 2054, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = false, pz = false}, ["m6"] = {atk = "Hydro Cannon", minlvl = 20, st = 2055, cd = 3, min = 200, max = 400, damage = COMBAT_ICEDAMAGE, target = false, pz = false}, ["m7"] = {atk = "Harden", minlvl = 20, st = 2056, cd = 60, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = false, pz = true}, ["m8"] = {atk = "Surf", minlvl = 20, st = 2057, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = false, pz = false}, }, ["Wartortle"] = { ["m1"] = {atk = "Headbutt", minlvl = 40, st = 2058, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "Bubbles", minlvl = 40, st = 2059, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = true, pz = false}, ["m3"] = {atk = "Water Gun", minlvl = 40, st = 2060, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = false, pz = false}, ["m4"] = {atk = "Waterball", minlvl = 40, st = 2061, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = true, pz = false}, ["m5"] = {atk = "Aqua Tail", minlvl = 40, st = 2062, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = false, pz = false}, ["m6"] = {atk = "Hydro Cannon", minlvl = 40, st = 2063, cd = 3, min = 200, max = 400, damage = COMBAT_ICEDAMAGE, target = false, pz = false}, ["m7"] = {atk = "Harden", minlvl = 40, st = 2064, cd = 60, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = false, pz = true}, ["m8"] = {atk = "Surf", minlvl = 40, st = 2065, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = false, pz = false}, }, ["Blastoise"] = { ["m1"] = {atk = "Headbutt", minlvl = 40, st = 2066, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "Bubbles", minlvl = 40, st = 2067, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = true, pz = false}, ["m3"] = {atk = "Water Gun", minlvl = 40, st = 2068, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = false, pz = false}, ["m4"] = {atk = "Waterball", minlvl = 40, st = 2069, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = true, pz = false}, ["m5"] = {atk = "Aqua Tail", minlvl = 40, st = 2070, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = false, pz = false}, ["m6"] = {atk = "Hydro Cannon", minlvl = 40, st = 2071, cd = 3, min = 200, max = 400, damage = COMBAT_ICEDAMAGE, target = false, pz = false}, ["m7"] = {atk = "Harden", minlvl = 40, st = 2072, cd = 60, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = false, pz = true}, ["m8"] = {atk = "Surf", minlvl = 40, st = 2073, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = false, pz = false}, ["m9"] = {atk = "Hydropump", minlvl = 40, st = 2074, cd = 3, min = 100, max = 200, damage = COMBAT_ICEDAMAGE, target = false, pz = false}, }, ["Caterpie"] = { ["m1"] = {atk = "Headbutt", minlvl = 1, st = 2075, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "String Shot", minlvl = 1, st = 2076, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m3"] = {atk = "Bug Bite", minlvl = 1, st = 2077, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, }, ["Metapod"] = { ["m1"] = {atk = "Headbutt", minlvl = 10, st = 2078, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "String Shot", minlvl = 10, st = 2079, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m3"] = {atk = "Bug Bite", minlvl = 10, st = 2080, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m4"] = {atk = "Harden", minlvl = 10, st = 2081, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = false, pz = true}, }, ["Butterfree"] = { ["m1"] = {atk = "Headbutt", minlvl = 30, st = 2082, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "Whirlwind", minlvl = 30, st = 2083, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = false, pz = false}, ["m3"] = {atk = "Super Sonic", minlvl = 30, st = 2084, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m4"] = {atk = "Stun Spore", minlvl = 30, st = 2085, cd = 3, min = 0, max = 0, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m5"] = {atk = "Poison Powder", minlvl = 30, st = 2086, cd = 3, min = 0, max = 0, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m6"] = {atk = "Sleep Powder", minlvl = 30, st = 2087, cd = 3, min = 0, max = 0, damage = COMBAT_EARTHDAMAGE, target = false, pz = false}, ["m7"] = {atk = "Psybeam", minlvl = 30, st = 2088, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = false, pz = false}, ["m8"] = {atk = "Confusion", minlvl = 30, st = 2089, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = false, pz = false}, }, ["Weedle"] = { ["m1"] = {atk = "Horn Attack", minlvl = 1, st = 2090, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "String Shot", minlvl = 1, st = 2091, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m3"] = {atk = "Poison Sting", minlvl = 1, st = 2092, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, }, ["Kakuna"] = { ["m1"] = {atk = "Bug Bite", minlvl = 10, st = 2093, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "String Shot", minlvl = 10, st = 2094, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m3"] = {atk = "Poison Sting", minlvl = 10, st = 2095, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m4"] = {atk = "Harden", minlvl = 10, st = 2096, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = true}, }, ["Beedrill"] = { ["m1"] = {atk = "Fury Cutter", minlvl = 10, st = 2097, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m2"] = {atk = "String Shot", minlvl = 10, st = 2098, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m3"] = {atk = "Poison Sting", minlvl = 10, st = 2099, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m4"] = {atk = "Pin Missile", minlvl = 10, st = 2100, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m5"] = {atk = "Rage", minlvl = 10, st = 2101, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, ["m6"] = {atk = "Strafe", minlvl = 10, st = 2102, cd = 3, min = 100, max = 200, damage = COMBAT_PHYSICALDAMAGE, target = true, pz = false}, }, } function onSay(cid, words, param) if #getCreatureSummons(cid) == 0 then return doPlayerSendCancel(cid, "You do not have any pokemon.") end local poke = d[getCreatureName(getCreatureSummons(cid)[1])][words] if not poke then return true end local storage = poke.st local exst = 16265 local cdexst = 0.5 local cd = math.ceil(poke.cd/2) local pet = getCreatureSummons(cid)[1] local target = getCreatureTarget(cid) local look = getCreatureLookDir(pet) local position = getThingPos(pet) if getTilePzInfo(getCreaturePosition(pet)) and poke.pz == false then return doPlayerSendCancel(cid, "Not Attack in protection zone.") end if getPlayerLevel(cid) < poke.minlvl then return doPlayerSendTextMessage(cid, 19, "Your need level "..poke.minlvl.." to use " ..poke.atk..".") end if os.time()-getPlayerStorageValue(cid, storage) <= cd then minutes,seconds = getTime(cd-(os.time()-getPlayerStorageValue(cid, storage))) return doPlayerSendTextMessage(cid, 27, "Wait "..seconds.." seconds to use "..poke.atk..".") end if target == 0 and poke.target then return doPlayerSendTextMessage(cid, 19, "This Pokemon Attack need any target.") end if os.time()-getPlayerStorageValue(cid, exst) <= cdexst then minutes,seconds = getTime(cdexst-(os.time()-getPlayerStorageValue(cid, exst))) return doPlayerSendCancel(cid, "Poke exhausted") end local critico = math.random(100) < 10 and 2 or 1 --ATTACKS if poke.atk == "Quick Attack" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 1 then return doPlayerSendCancel(cid, "Target is far away.") end doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 148) elseif poke.atk == "Razor Leaf" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 5 then return doPlayerSendCancel(cid, "Target is far away.") end doSendDistanceShoot(getCreaturePosition(pet), getCreaturePosition(target), 4) doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 79) elseif poke.atk == "Vine Whip" then local effects = { [0] = 80, [1] = 83, [2] = 81, [3] = 82 } doAreaCombatHealth(pet, poke.damage, getThingPos(pet), areadirecion1[look], -poke.min, -poke.max * critico, effects[look]) elseif poke.atk == "Headbutt" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 1 then return doPlayerSendCancel(cid, "Target is far away.") end doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 111) elseif poke.atk == "Leech Seed" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 5 then return doPlayerSendCancel(cid, "Target is far away.") end doSendDistanceShoot(getCreaturePosition(pet), getCreaturePosition(target), 6) doSendAnimatedText(getCreaturePosition(target), "POISON", 66) addEvent(Poison, 500, target, 45, 5) elseif poke.atk == "Solar Beam" then local a = { [0] = {x = 0, y = -1, effect={[1]=94,[2]=93,[3]=93,[4]=95}}, [1] = {x = 1, y = 0, effect={[1]=86,[2]=88,[3]=88,[4]=87}}, [2] = {x = 0, y = 1, effect={[1]=91,[2]=93,[3]=93,[4]=92}}, [3] = {x = -1, y = 0, effect={[1]=89,[2]=88,[3]=88,[4]=90}} } for i = 1,4 do doSendMagicEffect({x = position.x + a[look].x*i, y = position.y + a[look].y*i, z = position.z}, a[look].effect[i]) end doAreaCombatHealth(pet, poke.damage, getThingPos(pet), areadirecion2[look], -poke.min, -poke.max * critico, 59) elseif poke.atk == "Stun Spore" then local d = getCreaturesInRange(getThingPos(pet), 1, 1, 1, 0) for _,pid in pairs(d) do Paralize(pid) end doAreaCombatHealth(pet, poke.damage, getThingPos(pet), area2, -poke.min, -poke.max * critico, 85) elseif poke.atk == "Poison Powder" then local d = getCreaturesInRange(getThingPos(pet), 1, 1, 1, 0) for _,pid in pairs(d) do doSendAnimatedText(getCreaturePosition(pid), "POISON", 66) Poison(pid, 8, 5) end doAreaCombatHealth(pet, poke.damage, getThingPos(pet), area2, -poke.min, -poke.max * critico, 84) elseif poke.atk == "Sleep Powder" then local d = getCreaturesInRange(getThingPos(pet), 1, 1, 1, 0) for _,pid in pairs(d) do Sleep(pid) end doAreaCombatHealth(pet, poke.damage, getThingPos(pet), area2, -poke.min, -poke.max * critico, 27) elseif poke.atk == "Leaf Storm" then local d = getCreaturesInRange(getThingPos(pet), 3, 3, 1, 0) for _,pid in pairs(d) do for i = 1, 4 do if i == 1 then addEvent(doAreaCombatHealth, 400, pet, poke.damage, getThingPos(pid), 0, -poke.min, -poke.max * critico, 79) doSendDistanceShoot(getPosToStorm(getCreaturePosition(pid)), getCreaturePosition(pid), 4) else addEvent(doAreaCombatHealth, i*800 ,pet, poke.damage, getThingPos(pid), 0, -poke.min, -poke.max * critico, 79) addEvent(doSendDistanceShoot, i*600, getPosToStorm(getCreaturePosition(pid)), getCreaturePosition(pid), 4) end end end elseif poke.atk == "Scratch" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 1 then return doPlayerSendCancel(cid, "Target is far away.") end doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 142) elseif poke.atk == "Ember" then doAreaCombatHealth(pet, poke.damage, getThingPos(pet), area2, -poke.min, -poke.max * critico, 15) elseif poke.atk == "Flamethrower" then local effects = { [0] = 55, [1] = 58, [2] = 56, [3] = 57 } doAreaCombatHealth(pet, poke.damage, getThingPos(pet), areadirecion1[look], -poke.min, -poke.max * critico, effects[look]) elseif poke.atk == "Fire Ball" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 5 then return doPlayerSendCancel(cid, "Target is far away.") end doSendDistanceShoot(getCreaturePosition(pet), getCreaturePosition(target), 3) doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 5) elseif poke.atk == "Fire Blast" then local a = { [0] = {x = 0, y = -1, effect= 60}, [1] = {x = 1, y = 0, effect= 61}, [2] = {x = 0, y = 1, effect= 62}, [3] = {x = -1, y = 0, effect= 63} } for i = 1,8 do if i == 1 then doSendMagicEffect({x = position.x + a[look].x*i, y = position.y + a[look].y*i, z = position.z}, a[look].effect) doAreaCombatHealth(pet, poke.damage, getThingPos(pet), areadirecion3[look], -poke.min, -poke.max * critico, 15) else addEvent(doSendMagicEffect, i*300, {x = position.x + a[look].x*i, y = position.y + a[look].y*i, z = position.z}, a[look].effect) addEvent(doAreaCombatHealth, i*300, pet, poke.damage, getThingPos(pet), areadirecion3[look], -poke.min, -poke.max * critico, 15) end end elseif poke.atk == "Rage" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 1 then return doPlayerSendCancel(cid, "Target is far away.") end for i = 1,4 do if i == 1 then doSendMagicEffect(position, 168) doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 142) else addEvent(doAreaCombatHealth, i*500, pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 142) end end elseif poke.atk == "Fire Fang" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 1 then return doPlayerSendCancel(cid, "Target is far away.") end doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 146) addEvent(doAreaCombatHealth, 200, pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 15) addEvent(doAreaCombatHealth, 400, pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 15) elseif poke.atk == "Dragon Claw" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 1 then return doPlayerSendCancel(cid, "Target is far away.") end doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 141) elseif poke.atk == "Magma Storm" then doAreaCombatHealth(pet, poke.damage, getThingPos(pet), area2, -poke.min, -poke.max * critico, 36) addEvent(doAreaCombatHealth, 800, pet, poke.damage, getThingPos(pet), area1, -poke.min, -poke.max * critico, 6) elseif poke.atk == "Wing Attack" then doAreaCombatHealth(pet, poke.damage, getThingPos(pet), area2, -poke.min, -poke.max * critico, 115) addEvent(doAreaCombatHealth, 500, pet, poke.damage, getThingPos(pet), area1, -poke.min, -poke.max * critico, 42) elseif poke.atk == "Bubbles" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 5 then return doPlayerSendCancel(cid, "Target is far away.") end doSendDistanceShoot(getCreaturePosition(pet), getCreaturePosition(target), 2) doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 68) elseif poke.atk == "Water Gun" then local a = { [0] = {x = 0, y = -1, effect={[1]=74,[2]=75,[3]=75,[4]=76}}, [1] = {x = 1, y = 0, effect={[1]=69,[2]=70,[3]=70,[4]=71}}, [2] = {x = 0, y = 1, effect={[1]=77,[2]=75,[3]=75,[4]=78}}, [3] = {x = -1, y = 0, effect={[1]=72,[2]=70,[3]=70,[4]=73}} } for i = 1,4 do doSendMagicEffect({x = position.x + a[look].x*i, y = position.y + a[look].y*i, z = position.z}, a[look].effect[i]) end doAreaCombatHealth(pet, poke.damage, getThingPos(pet), areadirecion2[look], -poke.min, -poke.max * critico, 59) elseif poke.atk == "Waterball" then for i = 1,5 do if i == 1 then addEvent(doAreaCombatHealth, 200 ,pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 68) doSendDistanceShoot(getPosToStorm(getCreaturePosition(target)), getCreaturePosition(target), 2) else addEvent(doAreaCombatHealth, i*700 ,pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 68) addEvent(doSendDistanceShoot, i*500, getPosToStorm(getCreaturePosition(target)), getCreaturePosition(target), 2) end end elseif poke.atk == "Aqua Tail" then doAreaCombatHealth(pet, poke.damage, getThingPos(pet), area2, -poke.min, -poke.max * critico, 160) elseif poke.atk == "Hydro Cannon" then local a = { [0] = {x = 0, y = -1, effect={[1]=74,[2]=75,[3]=75,[4]=75,[5]=75,[6]=75,[7]=75,[8]=76}}, [1] = {x = 1, y = 0, effect={[1]=69,[2]=70,[3]=70,[4]=70,[5]=70,[6]=70,[7]=70,[8]=71}}, [2] = {x = 0, y = 1, effect={[1]=77,[2]=75,[3]=75,[4]=75,[5]=75,[6]=75,[7]=75,[4]=78}}, [3] = {x = -1, y = 0, effect={[1]=72,[2]=70,[3]=70,[4]=70,[5]=70,[6]=70,[7]=70,[8]=73}} } for i = 1,8 do doSendMagicEffect({x = position.x + a[look].x*i, y = position.y + a[look].y*i, z = position.z}, a[look].effect[i]) end doAreaCombatHealth(pet, poke.damage, getThingPos(pet), areadirecion3[look], -poke.min, -poke.max * critico, 59) elseif poke.atk == "Harden" then function Harden(cid, rounds) if rounds == 0 then return false end if #getCreatureSummons(cid) == 0 then return false end doSendMagicEffect(getCreaturePosition(getCreatureSummons(cid)[1]), 144) return addEvent(Harden, 1000, cid, rounds-1) end addEvent(Harden, 500, cid, 40) elseif poke.atk == "Surf" then local a = { [0] = {x = 0, y = -1, effect= 66}, [1] = {x = 1, y = 0, effect= 67}, [2] = {x = 0, y = 1, effect= 64}, [3] = {x = -1, y = 0, effect= 65} } for i = 1,8 do if i == 1 then doSendMagicEffect({x = position.x + a[look].x*i, y = position.y + a[look].y*i, z = position.z}, a[look].effect) doAreaCombatHealth(pet, poke.damage, getThingPos(pet), areadirecion3[look], -poke.min, -poke.max * critico, 68) else addEvent(doSendMagicEffect, i*300, {x = position.x + a[look].x*i, y = position.y + a[look].y*i, z = position.z}, a[look].effect) addEvent(doAreaCombatHealth, i*300, pet, poke.damage, getThingPos(pet), areadirecion3[look], -poke.min, -poke.max * critico, 68) end end elseif poke.atk == "Hydropump" then local a = { [0] = {x = 0, y = -1, effect={[1]=74,[2]=75,[3]=75,[4]=75,[5]=75,[6]=75,[7]=75,[8]=76}}, [1] = {x = 1, y = 0, effect={[1]=69,[2]=70,[3]=70,[4]=70,[5]=70,[6]=70,[7]=70,[8]=71}}, [2] = {x = 0, y = 1, effect={[1]=77,[2]=75,[3]=75,[4]=75,[5]=75,[6]=75,[7]=75,[4]=78}}, [3] = {x = -1, y = 0, effect={[1]=72,[2]=70,[3]=70,[4]=70,[5]=70,[6]=70,[7]=70,[8]=73}} } for i = 1,8 do doSendMagicEffect({x = position.x + a[look].x*i, y = position.y + a[look].y*i, z = position.z}, a[look].effect[i]) end doAreaCombatHealth(pet, poke.damage, getThingPos(pet), areadirecion3[look], -poke.min, -poke.max * critico, 68) addEvent(doAreaCombatHealth, 400, pet, poke.damage, getThingPos(pet), areadirecion3[look], -poke.min, -poke.max * critico, 33) elseif poke.atk == "String Shot" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 5 then return doPlayerSendCancel(cid, "Target is far away.") end doSendDistanceShoot(getCreaturePosition(pet), getCreaturePosition(target), 23) doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 137) Paralize(target) elseif poke.atk == "Bug Bite" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 1 then return doPlayerSendCancel(cid, "Target is far away.") end doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 146) elseif poke.atk == "Whirlwind" then doAreaCombatHealth(pet, poke.damage, getThingPos(pet), areadirecion4[look], -poke.min, -poke.max * critico, 42) elseif poke.atk == "Super Sonic" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 5 then return doPlayerSendCancel(cid, "Target is far away.") end for i = 1, 3 do if i == 1 then doSendDistanceShoot(getCreaturePosition(pet), getCreaturePosition(target), 24) else addEvent(doSendDistanceShoot, i * 200, getCreaturePosition(pet), getCreaturePosition(target), 24) end end addEvent(doSendAnimatedText, 500, getCreaturePosition(target), "CONF", 210) addEvent(Confused, 500, target, 15) elseif poke.atk == "Psybeam" then local a = { [0] = {x = 0, y = -1, effect={[1]=108,[2]=109,[3]=109,[4]=108}}, [1] = {x = 1, y = 0, effect={[1]=106,[2]=107,[3]=107,[4]=106}}, [2] = {x = 0, y = 1, effect={[1]=109,[2]=108,[3]=108,[4]=109}}, [3] = {x = -1, y = 0, effect={[1]=107,[2]=106,[3]=106,[4]=107}} } for i = 1,4 do doSendMagicEffect({x = position.x + a[look].x*i, y = position.y + a[look].y*i, z = position.z}, a[look].effect[i]) end doAreaCombatHealth(pet, poke.damage, getThingPos(pet), areadirecion2[look], -poke.min, -poke.max * critico, 59) elseif poke.atk == "Confusion" then doAreaCombatHealth(pet, poke.damage, getThingPos(pet), area3, -poke.min, -poke.max * critico, 136) elseif poke.atk == "Horn Attack" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 1 then return doPlayerSendCancel(cid, "Target is far away.") end doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 111) elseif poke.atk == "Poison Sting" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 5 then return doPlayerSendCancel(cid, "Target is far away.") end doSendDistanceShoot(getCreaturePosition(pet), getCreaturePosition(target), 15) doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 9) elseif poke.atk == "Fury Cutter" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 1 then return doPlayerSendCancel(cid, "Target is far away.") end doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 110) addEvent(doAreaCombatHealth, 500, pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 110) elseif poke.atk == "Pin Missile" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 5 then return doPlayerSendCancel(cid, "Target is far away.") end for i = 1, 3 do if i == 1 then doSendDistanceShoot(getCreaturePosition(pet), getCreaturePosition(target), 13) doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 137) else addEvent(doSendDistanceShoot, i * 200, getCreaturePosition(pet), getCreaturePosition(target), 13) addEvent(doAreaCombatHealth, i * 200, pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, 137) end end elseif poke.atk == "Strafe" then if getDistanceBetween(getCreaturePosition(pet), getCreaturePosition(target)) > 1 then return doPlayerSendCancel(cid, "Target is far away.") end local dd = {142, 111, 110, 148} for i = 1,6 do af = math.random(4) if i == 1 then doAreaCombatHealth(pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, dd[af]) else addEvent(doAreaCombatHealth, i*500, pet, poke.damage, getThingPos(target), 0, -poke.min, -poke.max * critico, dd[af]) end end end -- END ATTACKS doPlayerSay(cid, getCreatureName(pet)..", use "..poke.atk..".", 1) setPlayerStorageValue(cid, storage, os.time()+cd) setPlayerStorageValue(cid, exst, os.time()+cdexst) local atknotcritic = {"Harden", "Poison Powder", "Sleep Powder", "Super Sonic", "Stun Spore"} if critico == 2 and not isInArray(atknotcritic, poke.atk) then doSendAnimatedText(getCreaturePosition(cid), "CRITICAL", 144) end return true end New Tag : <talkaction words="m1;m2;m3;m4;m5;m6;m7;m8;m9;m10;m11;m12" hide="yes" event="script" value="moves.lua"/> Pokemons Configurados [15/151] :

Olá vim lhes apresentar algumas funções npara seu servidor doRemoveHouse(cid) doPlayerRemoveStorage(cid, storage) Em breve eu vou atualizando o tópico para adicionar outras funções

OBS: Atualização do script para versoes mais recentes da TFS este post foi atualizado em 08/09/2011 Bom eu fiz a tão esperada atualização do SISTEMA VIP agora ela tem suporte a TFS 0.3.6 e a TFS 0.4 e ela é bem mais facil de instalar e usar basta você descompactar os arquivos na pasta mods que o sistema vip se instala em seu servidor automaticamente logo abaixo está o link do sistema atualizado... So seguir o link abaixo Sistema Vip Por Sql V4.0 Para Tfs 0.4 E Tfs 0.3.6 Bom fiz este script por causa de muitos pedidos espero que gostem. Lembrando que esse script so vai funcionar na TFS 0.3.5 Bom atualizei agora para um arquivo de instalação em XML apenas coloque ele na pasta mods e coloque ele la clique no download abaixo para baixar-lo OBS: ele tem o suporte ao famoso SQLite vip_sistem_install.xml Agora vamos adicionar as funções nos libs primeiramenet vai em data/lib/data.lua abra este arquivo e abaixo de. dofile(getDataDir() .. "lib/compat.lua") Adicione. dofile(getDataDir() .. "lib/vip.lua") Depois de adicionar isso vamos criar o script vip.lua em data/lib. No script você vai adicionar este seguinte codigo abaixo. function isVip(cid) local Query = db.getResult("SELECT `vip` FROM `accounts` WHERE `accounts`.`id` = ".. getPlayerAccountId(cid) ..";") return (isPlayer(cid) == true and (Query:getDataInt("vip") == 1)) and true or false end function getVipTime(cid) local Query = db.getResult("SELECT `vip_time` FROM `accounts` WHERE `accounts`.`id` = ".. getPlayerAccountId(cid) ..";") return Query:getDataInt("vip_time") end function getVipTimeByName(Name) local Query = db.getResult("SELECT `vip_time` FROM `accounts` WHERE `accounts`.`id` = ".. getAccountIdByName(Name) ..";") return Query:getDataInt("vip_time") end function getVipDays(cid) local Query = db.getResult("SELECT `vip_days` FROM `accounts` WHERE `accounts`.`id` = ".. getPlayerAccountId(cid) ..";") return Query:getDataInt("vip_days") end Agora vamos adicionar o sistema que vai remover a quantidade de dias do VIP automaticamente. Vai em data/globalevents/globalevents.xml abra este arquivo e abaixo de. <globalevent name="clean" interval="7200" event="script" value="clean.lua"/> Adicione. <globalevent name="RemoveVipDays" interval="600" event="script" value="removevip.lua"/> Agora iremos criar o script removevip.lua em data/globalevents/scripts. No script você vai adicionar este seguinte codigo abaixo. function onThink(interval, lastExecution, thinkInterval) Query = db.getResult("SELECT `id`, `vip_time` FROM `accounts` WHERE `accounts`.`vip` = 1") if(Query:getID() == -1) then return true end for i = 1, Query:getRows() do local AccID = Query:getDataInt("id") local VipTime = Query:getDataInt("vip_time") if VipTime >= os.time() then db.executeQuery("UPDATE `accounts` SET `vip_days` = ".. math.ceil((VipTime - os.time()) / 86400) .." WHERE `accounts`.`id` = ".. AccID ..";") else db.executeQuery("UPDATE `accounts` SET `vip_time` = 0 WHERE `accounts`.`id` = ".. AccID ..";") db.executeQuery("UPDATE `accounts` SET `vip_days` = 0 WHERE `accounts`.`id` = ".. AccID ..";") db.executeQuery("UPDATE `accounts` SET `vip` = 0 WHERE `accounts`.`id` = ".. AccID ..";") db.executeQuery("UPDATE `players` SET `reset_temple` = 1 WHERE `players`.`account_id` = ".. AccID ..";") end Query:next() end Query:free() return true end Agora vamos adicionar o sistema que joga o player para o Temple quando acaba a VIP dele. Vai em data/creaturescripts/creaturescripts.xml abra este arquivo e abaixo de <event type="login" name="PlayerLogin" event="script" value="login.lua"/> Adicione. <event type="login" name="VipCheck" event="script" value="vipcheck.lua"/> Agora vamos adicionar o script vipcheck.lua em data/creaturescripts/scripts. No script você vai adicionar este seguinte codigo no spoiler abaixo. Lembrando que você tem que por se você tem que configurar se usa rook sistem. Se você não usar é so colocar o ID do temple da cidade principal. Mas se você ativa o rook sistem você tera que por o ID da cidade de rook e da cidade principal mais você so ira usar o sistema de rook se você usar rook em seu ot. local config = { RookSistem = "no", RookTempleID = 1, MainTempleID = 2 } config.RookSistem = getBooleanFromString(config.RookSistem) function getResetTemple(cid) local Query = db.getResult("SELECT `reset_temple` FROM `players` WHERE `players`.`id` = ".. getPlayerGUID(cid) ..";") return (isPlayer(cid) == true and (Query:getDataInt("reset_temple") == 1)) and true or false end function goRookTemple(cid) doTeleportThing(cid, getTownTemplePosition(config.RookTempleID)) doSendMagicEffect(fromPos, CONST_ME_POFF) doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT) db.executeQuery("UPDATE `players` SET `reset_temple` = 0 WHERE `players`.`id` = ".. getPlayerGUID(cid) ..";") end function goMainTemple(cid) doTeleportThing(cid, getTownTemplePosition(config.MainTempleID)) doPlayerSetTown(cid, config.MainTempleID) doSendMagicEffect(fromPos, CONST_ME_POFF) doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT) db.executeQuery("UPDATE `players` SET `reset_temple` = 0 WHERE `players`.`id` = ".. getPlayerGUID(cid) ..";") end function onLogin(cid) fromPos = getCreaturePosition(cid) if getResetTemple(cid) == true then if (config.RookSistem) then if isRookie(cid) == true then goRookTemple(cid) else goMainTemple(cid) end else goMainTemple(cid) end end return true end Bom o sistema ja está completo mais falta a parte do tile que so vips podem passar e o comando para adicionar o vip e o comando que o player pode verificar quantos dias vip dele ainda tem então vamos la. Agora vamos ate data/talkactions/talkactions.xml abra ele e abaixo de. <talkaction log="yes" words="/addskill" access="5" event="function" value="addSkill"/> Adicione. <talkaction log="yes" words="/addvip" access="5" event="script" value="addvip.lua"/> <talkaction log="yes" words="!checkvip" event="script" value="addvip.lua"/> Agora iremos criar o script addvip.lua em data/talkactions/scripts. No script você vai adicionar este seguinte codigo abaixo. function onSay(cid, words, param, channel) local Data = string.explode(param, ",") if (words:sub(2, 2) == "a") then if (not Data) then doPlayerSendCancel(cid, "Insira um nome.") return true elseif (not Data[2] or Data[2] == "") then doPlayerSendCancel(cid, "Insira a quantidade de dias de vip que ira adionar ao player.") return true elseif not isNumber(Data[2]) then doPlayerSendCancel(cid, "Use apenas numeros.") return true end local Target = db.getResult("SELECT `name` FROM `players` WHERE `name` = " .. db.escapeString(Data[1]) .. ";") if (Target:getID() ~= -1) then if (getPlayerByName(Data[1])) then doSendMagicEffect(getCreaturePosition(getPlayerByName(Data[1])), CONST_ME_MAGIC_GREEN) end if getVipTimeByName(Data[1]) == 0 then db.executeQuery("UPDATE `accounts` SET `vip_time` = 86400 * ".. Data[2] .." + ".. os.time() .." WHERE `accounts`.`id` = ".. getAccountIdByName(Data[1]) ..";") else db.executeQuery("UPDATE `accounts` SET `vip_time` = `accounts`.`vip_time` + (86400 * ".. Data[2] ..") WHERE `accounts`.`id` = ".. getAccountIdByName(Data[1]) ..";") end db.executeQuery("UPDATE `accounts` SET `vip` = 1 WHERE `accounts`.`id` = ".. getAccountIdByName(Data[1]) ..";") db.executeQuery("UPDATE `accounts` SET `vip_days` = `accounts`.`vip_days` + ".. Data[2] .." WHERE `accounts`.`id` = ".. getAccountIdByName(Data[1]) ..";") doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Foi adicionado ".. Data[2] .." dias de vip ao player ".. Data[1] ..".") else doPlayerSendCancel(cid, "O player ".. Data[1] .." não existe.") end Target:free() else if getVipDays(cid) == 0 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você não é um jogador vip.") elseif getVipDays(cid) >= 2 then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem ".. getVipDays(cid) .." dias de vip.") else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem 1 dia de vip.") end end return true end Bom agora por ultimo o tile que so vip passa vamos em data/movements/scripts/tiles.lua e abaixo de. if(not isPlayerGhost(cid)) then doTransformItem(item.uid, increasingItems[item.itemid]) end Adicione. if item.actionid == 7777 then if (isVip(cid) == false) then pushBack(cid, position, fromPosition, true) end return true end Bom terminamos detalhe use o tile ID 426 com actionID 7777 para vip tile um pequeno detalhe no map editor coloque o tile como NO LOGOUT AREA para ninguem fazer bugs de M WALL para passar para area VIP. Bom para saber como usar é simples para adicionar a vip la vai um explo de adicionar 30 dias no player Luke sky walker /addvip Luke sky walker, 30 E para o player veifica quantos dias de vip ele tem ele usa o comando !checkvip Bom espero que seja util eu testei o script mas ainda pode ter bugs!!! Por favor não tirem os creditos deste script! EDIT Eu adicionei math.ceil no removevip.lua provavelmente agora ele tenha suporte a SQLite! Foi arrumado o bug do reset temple script atualizado vipcheck.lua (não testado caso ainda tenha bug pm ME!) Foi adicionado o vip_sistem_install.xml para instalação automatica do sistema no SQL do servidor com suporte a MySql e SQLite Atualizando o vip_sistem_install.xml para versão 2.0 junto com o fix para funcionar em MySql que não tava funcionando corretamente.

[Não sei se estou postando na area certa] Eae galera, blz? Ja ouviram MC Tibiano? Então..eu procurei e não achei um "videoclipe" da musica "BDM-Profissão PK" então resolvi fazer..não sei se ficou mt bom, más comentem ae.. http://www.youtube.com/watch?v=0Qoy3qNwBGI Bye =)

Explicação: é dada uma lista na ordem alfabética com os pokemons que esse NPC compra,depois disso há 2 versões V 1.0 --[[ PokeServer ]] -- : basta dizer o nome do pokemon que você quer vender e colocar o mesmo no slot da pokebola... V 2.0 --[[ Pokemon Dash --]] : a pokebola tem que estar dentro da backpack,com a função "sellPokemon(cid, name, price)" que não é minha NPC/SCRIPT buy_pokemons.lua V 1.0 V 2.0 NPC Comprador.xml <?xml version="1.0"?> <npc name="Comprador" script="data/npc/scripts/buy_pokemons.lua" walkinterval="5000" floorchange="0"> <health now="100" max="100"/> <look type="134" head="78" body="88" legs="0" feet="88" addons="3"/> <parameters> <parameter key="message_greet" value="Ola |PLAYERNAME|. quer me vender alguns {pokemon}? " /> </parameters> </npc>

:XTibia_smile: como mtos tavam querendo esse npc eu vim aqui postar ! CREDITOS: brun123, mastercraft e glugluguga ! va em data/npc/script copie qualquer arquivo renomeie para pokemon seller, apagua tudo de dentro e coloque isto: local focus = 0 local talk_start = 0 local target = 0 local following = false local attacking = false local talkState = {} function onThingMove(creature, thing, oldpos, oldstackpos) end function onCreatureAppear(creature) end function onCreatureDisappear(cid, pos) if focus == cid then selfSay('Good bye sir!') 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 sellPokemon(cid, name, price) local pokename = name local bp = getPlayerSlotItem(cid, CONST_SLOT_BACKPACK) local itemsball = getItemsInContainerById(bp.uid, 2222) local itemsultra = getItemsInContainerById(bp.uid, 2220) for _, pok in pairs(itemsball) do if string.lower(getItemAttribute(pok, "poke"):sub(9, findLetter(getItemAttribute(pok, "poke"), "'")-1)) == pokename then doRemoveItem(pok, 1) doPlayerAddMoney(cid, price) selfSay('Wow! Thanks for this wonderful pokemon! Take your money.') return true end break end for _, pok in pairs(itemsultra) do if string.lower(getItemAttribute(pok, "poke"):sub(9, findLetter(getItemAttribute(pok, "poke"), "'")-1)) == pokename then doRemoveItem(pok, 1) doPlayerAddMoney(cid, price) selfSay('Wow! Thanks for this wonderful pokemon! Take your money.') return true end break end selfSay('Hey, you dont have this pokemon! Make sure if its not fainted and it is inside your backpack!') end function onCreatureSay(cid, type, msg) local msg = string.lower(msg) local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid if (msgcontains(msg, 'bye') and focus == cid) then selfSay('See you around then!') focus = 0 elseif (msgcontains(msg, "let's fight") and focus == cid) then elseif (msgcontains(msg, "i need your help") and focus == cid) then elseif (msgcontains(msg, "i choose you") and focus == cid) then elseif (msgcontains(msg, "thanks for helping") and focus == cid) then elseif (msgcontains(msg, "it's battle time") and focus == cid) then elseif (msgcontains(msg, "excellent work") and focus == cid) then elseif (msgcontains(msg, "go,") and focus == cid) then elseif (msgcontains(msg, "you were great") and focus == cid) then elseif (msgcontains(msg, "well done") and focus == cid) then elseif (msgcontains(msg, "come back") and focus == cid) then elseif (msgcontains(msg, "let's do it") and focus == cid) then elseif (msgcontains(msg, 'hi') and (focus == 0) and (focus ~= cid) and (getDistanceToCreature(cid) <= 4)) then selfSay('Welcome to my store! I buy pokemons of all species, just tell me the name of the pokemon you want to sell.') focus = cid talkState[talkUser] = 1 talk_start = os.clock() elseif ((msgcontains(msg, 'rattata') or msgcontains(msg, 'magikarp') or msgcontains(msg, 'caterpie') or msgcontains(msg, 'weedle')) and talkState[talkUser] == 1 and focus == cid) then selfSay('I dont buy such a common pokemon!') elseif (msgcontains(msg, 'no') and talkState[talkUser] ~= 1 and focus == cid) then selfSay('Well, then what pokemon would you like to sell?') talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'poliwag') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a poliwag? I can buy it for 110 dollars.') talkState[talkUser] = "poliwag" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "poliwag" and focus == cid) then sellPokemon(cid, "poliwag", 11000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'horsea') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a horsea? I can buy it for 200 dollars.') talkState[talkUser] = "horsea" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "horsea" and focus == cid) then sellPokemon(cid, "horsea", 20000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'oddish') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me an oddish? I can buy it for 80 dollars.') talkState[talkUser] = "oddish" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "oddish" and focus == cid) then sellPokemon(cid, "oddish", 8000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'bellsprout') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a bellsprout? I can buy it for 100 dollars.') talkState[talkUser] = "bellsprout" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "bellsprout" and focus == cid) then sellPokemon(cid, "bellsprout", 10000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'pidgey') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a pidgey? I can buy it for 50 dollars.') talkState[talkUser] = "pidgey" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "pidgey" and focus == cid) then sellPokemon(cid, "pidgey", 5000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'weepinbell') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a weepinbell? I can buy it for 1500 dollars.') talkState[talkUser] = "weepinbell" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "weepinbell" and focus == cid) then sellPokemon(cid, "weepinbell", 150000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'pidgeotto') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a pidgeotto? I can buy it for 1200 dollars.') talkState[talkUser] = "pidgeotto" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "pidgeotto" and focus == cid) then sellPokemon(cid, "pidgeotto", 120000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'gloom') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a gloom? I can buy it for 1500 dollars.') talkState[talkUser] = "gloom" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "gloom" and focus == cid) then sellPokemon(cid, "gloom", 150000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'kakuna') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a kakuna? I can buy it for 250 dollars.') talkState[talkUser] = "kakuna" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "kakuna" and focus == cid) then sellPokemon(cid, "kakuna", 25000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'beedrill') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a beedrill? I can buy it for 1200 dollars.') talkState[talkUser] = "beedrill" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "beedrill" and focus == cid) then sellPokemon(cid, "beedrill", 120000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'sandshrew') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a beedrill? I can buy it for 850 dollars.') talkState[talkUser] = "sandshrew" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "sandshrew" and focus == cid) then sellPokemon(cid, "sandshrew", 85000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'sandslash') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a sandslash? I can buy it for 5000 dollars.') talkState[talkUser] = "sandslash" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "sandslash" and focus == cid) then sellPokemon(cid, "sandslash", 500000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'magnemite') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a magnemite? I can buy it for 600 dollars.') talkState[talkUser] = "magnemite" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "magnemite" and focus == cid) then sellPokemon(cid, "magnemite", 60000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'magneton') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a magneton? I can buy it for 2500 dollars.') talkState[talkUser] = "magneton" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "magneton" and focus == cid) then sellPokemon(cid, "magneton", 250000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'raticate') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a raticate? I can buy it for 850 dollars.') talkState[talkUser] = "raticate" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "raticate" and focus == cid) then sellPokemon(cid, "raticate", 85000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'seadra') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a seadra? I can buy it for 2500 dollars.') talkState[talkUser] = "seadra" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "seadra" and focus == cid) then sellPokemon(cid, "seadra", 250000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'geodude') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a geodude? I can buy it for 500 dollars.') talkState[talkUser] = "geodude" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "geodude" and focus == cid) then sellPokemon(cid, "geodude", 50000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'doduo') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a doduo? I can buy it for 650 dollars.') talkState[talkUser] = "doduo" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "doduo" and focus == cid) then sellPokemon(cid, "doduo", 65000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'dodrio') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a dodrio? I can buy it for 3000 dollars.') talkState[talkUser] = "dodrio" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "dodrio" and focus == cid) then sellPokemon(cid, "dodrio", 300000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'golbat') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a golbat? I can buy it for 1200 dollars.') talkState[talkUser] = "golbat" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "golbat" and focus == cid) then sellPokemon(cid, "golbat", 120000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'graveler') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a graveler? I can buy it for 1600 dollars.') talkState[talkUser] = "graveler" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "graveler" and focus == cid) then sellPokemon(cid, "graveler", 160000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'golem') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a golem? I can buy it for 4000 dollars.') talkState[talkUser] = "golem" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "golem" and focus == cid) then sellPokemon(cid, "golem", 400000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'voltorb') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a voltorb? I can buy it for 450 dollars.') talkState[talkUser] = "voltorb" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "voltorb" and focus == cid) then sellPokemon(cid, "voltorb", 45000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'electrode') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me an electrode? I can buy it for 2000 dollars.') talkState[talkUser] = "electrode" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "electrode" and focus == cid) then sellPokemon(cid, "electrode", 200000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'vileplume') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a vileplume? I can buy it for 5000 dollars.') talkState[talkUser] = "vileplume" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "vileplume" and focus == cid) then sellPokemon(cid, "vileplume", 500000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'victreebel') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a victreebel? I can buy it for 5000 dollars.') talkState[talkUser] = "victreebel" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "victreebel" and focus == cid) then sellPokemon(cid, "victreebel", 500000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'pidgeot') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a pidgeot? I can buy it for 5500 dollars.') talkState[talkUser] = "pidgeot" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "pidgeot" and focus == cid) then sellPokemon(cid, "pidgeot", 550000) talkState[talkUser] = 1 ---------------------------------------------------------------- elseif (msgcontains(msg, 'poliwhirl') and talkState[talkUser] == 1 and focus == cid) then selfSay('Are you sure you want to sell me a poliwhirl? I can buy it for 2200 dollars.') talkState[talkUser] = "poliwhirl" elseif (msgcontains(msg, 'yes') and talkState[talkUser] == "poliwhirl" and focus == cid) then sellPokemon(cid, "poliwhirl", 220000) talkState[talkUser] = 1 end end function onThink() if focus == 0 then selfTurn(0) else argx, argy, argz = selfGetPosition() dir = getDirectionTo({x=argx,y=argy,z=argz}, getThingPos(focus)) if dir == 7 then dir = 0 elseif dir == 6 then dir = 3 elseif dir == 5 then dir = 1 elseif dir == 4 then dir = 3 end selfTurn(dir) end if (os.clock() - talk_start) > 59 then if focus ~= 0 then selfSay('We have been talking for too much time!') focus = 0 end end if focus ~= 0 then a, b, c = selfGetPosition() if c ~= getThingPos(focus).z then focus = 0 end end if focus ~= 0 then if getDistanceToCreature(focus) > 4 then selfSay('Come back to sell me pokemons!') focus = 0 end end return true end feche e salve agora va em data/npc copie qualquer arquivo renomeie para PokemonSeller abra ele apague tudo de dentro e coloque isto: <?xml version="1.0" encoding="UTF-8"?> <npc name="PokemonCollector" script="pokemon seller.lua" walkinterval="350000" floorchange="0" speed="0"> <health now="150" max="150"/> <look type="263" head="115" body="128" legs="106" feet="132"/> <parameters> <parameter key="message_greet" value="Heyas, brave adventurer! As prize for taking this mountain till the end, would you accept the hiker clothes?"/> <parameter key="message_farewell" value="We love mountains!"/> <parameter key="message_idletimeout" value="We love mountains!"/> <parameter key="message_walkaway" value="We love mountains!"/> </parameters> </npc> feche e salve e seja feliz ! SE GOSTO PLIXS DA UM REP + !!!!!!! SE CONSEGUIREM POR MAIS POKES (POIS SO TEM UNS 25 CONFIGURADOS) POSTEM AKI QUE TODO MUNDO VAI SE AJUDANO !! AI GORAMESMO JA COMPRA TODOS ! ;D REP + :button_ok:

Introdução Bem, essa é minha primeira Fic de Tibia. Já criei alguns livros, de pelo menos 20 páginas. Já criei Fic de Pokémon, então, peguem leve comigo. Obrigado, comentem. ^^ Capítulo 1 Encontrando um Amigo Neste mundo, com batalhas e monstros com poderes invencíveis, existe um menino de 13 anos chamado Luis Fernando, seus cabelos são grandes como ondas, olhos castanhos escuros e pele clara, morava numa cidade pequena chamada Rangrook. Bem, uma semana depois que ele nasceu, sua mãe Cinthia foi colher os legumes e aproveitou para tirar a roupa do varal quando, de repente, encontrou uma caverna nunca vista antes. Quando entrou, a caverna era completamente escura, com uma luz no fundo, vinham sons do interior, a caverna era negra, com morcegos e lagartos, ela foi mais adiante, quando se deparou com uma pedra imensa, que tinha escrito linguagens antigas que ninguém poderia entender, a pedra era oval, e tinha no mínimo dois metros de altura, de repente, atrás da pedra apareceu um monstro com chapéu vermelho, túnica azul com capuz, com um cajado na mão, mandou-lhes um feitiço muito poderoso... No dia seguinte, seu pai, Sérgio, foi procurar pela esposa, mais não achou nada, nem a caverna sombria. Treze anos depois, o menino Luis, queria iniciar sua aventura para se tornar um dos melhores Bruxos de Rangrook, mas sem saber o que lhe esperava no futuro, entusiasmado, saiu de casa com apenas com uma túnica e um cajado de madeira. Andando, explorando o local onde morava, a grama era bem lisa como se molhasse todo dia, as árvores davam todo tipo de fruto, o céu estava aberto com muitas nuvens brancas, que poderiam se observar por horas, vendo-lhes passar, então, fora da fazenda de seu pai, andou até chegar à cidade. Ele viu muitos guerreiros, com espadas, escudos e armaduras, bruxos com seus cajados, arqueiros com seus arcos e lanças. Como não tinha nada, só um cajado de madeira e uma túnica da pior qualidade, todos riam dele por nunca conseguir ser um Bruxo de Rangrook, mas os ignorou. Então ele foi treinar, chegando à base de treino, ele encontrou muitos corpos de bonecos, feitos de palha. Um garoto que estava treinando para ser arqueiro, jogava a lança tão rápida que parecia sair como um raio da mão de Zeus. Luis foi treinar logo ao lado desse rapaz, ficou atacando o boneco com golpes fortes, sem saber muito como ser Bruxo, só sabia uma magia, até que 5 horas depois, ele se concentrou, parou e logo depois olhou pro boneco, e girou como se fosse fazer uma magia esplenda, então o boneco de palha se partiu ao meio, todos ficaram pasmos, o rapaz que estava ao lado dele, de cabelo curto, se apresentou, seu nome era Bernardo, ele tinha 13 anos assim como Luis. Então, Luis teve uma idéia. - Então, vamos caçar alguns monstros por ai? – Propôs Luis. - Você está doido? Eu soube que há tempos atrás uma mulher foi morta por um monstro terrível, não identificado. - Luis sem saber que falavam de sua mãe, pois seu pai lhes contou que ela morreu durante o parto. - Ah, então vou sozinho, quando cheguei aqui todos riram de mim... Treinarei mais que todos e me tornarei o maior Bruxo de Rangrook, não importa a dificuldade que venha, não importa o monstro que venha, vou enfrentá-lo com as armas que tiver, para honrar o nome de meus pais! – Falou ele, entusiasmado. Silêncio... - Hm... Nossa! Isso sim que é esperança! Contando com essa sua força de vontade, inteligência e suas magias, e minha força da lança, nós conseguiremos atravessar fronteiras, e os mundos que vierem vamos fazer as mesmas coisas que iremos fazer neste, iremos matar os monstros que dificultarem nossas viajem, para não haver mais mortes! – Bernardo, assim que Luis explicou direito o que iria fazer, ficou muito interessado. Então, Bernardo e Luis, andaram até encontrar uma caverna, uma caverna que só uma pessoa sabia que existia, a mãe de Luis, Cinthia. Luis, sem saber de nada, entrou na caverna, parecia que o mundo iria desaparecer que o mundo estava tendo um apocalipse, tudo ficava sem esperança, tudo ficava escuro sem puder enxergar um palmo em frente de seu nariz, como se as trevas estivessem tomando conta do lugar. Mas sem saber o que lhes esperavam, continuaram andando até que... Capítulo 2 O Minotauro Encontrou uma pedra, com linguagens estranhas. Sim, a mesma pedra que surgiu o monstro com chapéu vermelho e túnica azul. De repente, há um brilho enorme e surgi um monstro marrom com chifres enormes, tais chifres pareciam que iam tirar o mundo da órbita juntamente com sua fúria. Então perceberam que era um Minotauro! - Bernardo, se não atacarmos ele, poderá invadir a cidade! Vamos atacar! – Falou. Então, Luis e Bernardo começaram a atacar ele, o monstro então foi atacar Bernardo com seus chifres, quando Luis percebeu, sem saber o que estava dizendo, citou: Geladus Temporarius! O Minotauro congelou na hora, então Luis girou e olhou pra Bernardo, é como se Luis estivesse falando coisas que Bernardo nunca tinha ouvido antes quando, de repente, o Minotauro se descongela com uma força estupenda, na mesma hora Luis fala: Exodius Flamerus! Então do chão, um circulo de fogo faz com que o Minotauro fique preso, quando Luis ia lançar outro poder... - Não, meu amigo. Agora é minha vez! – Bernardo brandou, então, com suas lanças, disse uma só frase: Combined Spears! A mão esquerda de Bernardo pegou fogo, e a mão direita saia água, quando o fogo e a água chegaram nas lanças lançou-as contra o Minotauro. Assim que as lanças perfuraram a besta, na mesma hora ele explodiu, a caverna pegava fogo, e água ia saindo da caverna, quando ia bater na pedra, Luis falou: Geladus Temporarius! Então a onda enorme se congelou. Os dois jovens foram ver o que tinha atrás da pedra, quando eles acharam uma mulher inconsciente, parecia que estava morta, então Bernardo como é mais forte carregou-a, a levando para a cidade. - Mulher ferida! – Luis gritou, assim que chegou na cidade. Todos foram ver o que havia acontecido. - Essa mulher foi a que foi morta pelo monstro! Vocês conseguiram matar o monstro? – Perguntou o Sábio. Então eles, pensando que aquele simples Minotauro era o tal monstro, disseram que sim. O Sábio levou a mulher para o Oráculo, que ficava no templo. - Ó Oráculo, tão grande és sua força e sabedoria. – Falou o Sábio. - Essa mulher, foi morta por um monstro, poderia dizer a que família ela pertencia? - Então Luis, que estava do lado do Sábio, acompanhando tudo. O Oráculo o viu e apontou para ele, e assim disse: - Her... that boy's mother... she was killed by a monster! – Sussurrou. - Ela... Mãe desse menino... Ela foi morta por um monstro! – Traduziu o Sábio. - Você! O Oráculo fala que ela é sua mãe! – Comenta o Sábio. - Não, não pode ser! Minha mãe morreu quando me deu a luz! Meu pai nunca mente para mim! Não pode ser! – Ele estava apavorado, mas ao pensar direito nas circunstâncias e sabendo que o Oráculo nunca mente, então concluiu que seu pai mentiu para si. - Mas ele o fez! O Oráculo não fala mentiras! – Falou o Sábio, parecendo que escutara sua mente. Então, Luis saiu correndo para a fazenda onde era a sua casa, seu pai estava lá, entrou correndo dentro da casa. - Pai, minha mãe morreu quando me deu a luz ou ela sumiu e nunca foi encontrada? – Perguntou Luis ao pai. O pai de Luis ficou sem saber o que dizer, Luis poderia pensar qualquer coisa também, pois o seu pai mentiu esses anos todos. - Meu filho, eu nunca te contei a verdade... Não sei o porquê, mas sua mãe, ela foi tirar roupa do varal... E nunca... Nunca mais voltou. Desculpa-me, filho, por ter mentindo para você... Perdão! – Falou o pai, com lágrimas caindo sobre suas têmporas. Luis saiu correndo de casa, indo em direção a cidade. Pela ultima vez vendo às ovelhas, os porcos, a lama, a humilde casa do pai, a qual nela passara todos os anos de sua vida. Foi construída a mão pelo próprio pai. Chorando e correndo adiante, onde ninguém possa encontrar, começou a chover e cair raios, mas o que Luis não sabia é que ele era o bruxo mais poderoso daquele mundo, pois nenhum menino daquela idade conseguiria suportar tanta dor. Quanto mais Luis chorava, mais caia raios, até então, com raios caindo na terra, atingiu uma árvore, uma árvore bem pequena, em cima dela, com raios e chuva, nasceu um ponto, a qual o Sol batia, e iluminava um simples galho quebrado, a madeira seca, não tinha grama, tinha terra com lama, ele logo então percebeu... Que nada é como a gente espera, sempre terá um desafio... Então ele ficou pensando por semanas, sumido, sem ninguém saber onde ele estava, quando ele foi voltar para casa, pra conversar... O pai dele estava morto, numa cadeira, com um pedaço de papel nas mãos, então Luis pegou o papel, todo amassado com tinta ainda fresca, suja de sangue, falava: Luis me desculpe, eu não pude suportar a dor de te perder, eu fiquei aqui, sozinho, alguém entrou aqui, um monstro, e quando olhei, eu já estava sangrando, só deu tempo de me despedir de você... Eu te amo. Assinado: Seu Pai. Luis então começou a pensar, que a morte do pai foi culpa dele... Ele pedia perdão a Deus, por ter feito a maior merda... Ter saído de casa, e ter deixado meu pai velho, sozinho. Mas isto, não fez dele um menino mais fraco, fez dele mais forte, pois no papel amassado, com pedaços rasgados, falava que um monstro o matou. Luis, com raiva, saia fogo das suas mãos, água dos seus pés, o cajado de madeira, se transformou num cajado de mithril, com um ruby em cima, como se o cajado estivesse segurando o ruby... Luis então, com o coração dolorido, a mente apertada, e com ódio para fazer vingança aos pais, vai em direção a cidade, chegando lá, a cidade estava em pedaços, pegando fogo, corpos de pessoas mortas ao redor da cidade, as pessoas foram queimadas vivas, quando de repente... Capítulo 3 A Vingança! A Cidade Destruída! ... Me ajuda, por favor me ajuda! – ??? Luis não sabia de onde vinha esta voz, ficando confuso, do outro lado, falam a mesma coisa. - Me ajuda, por favor! Estou pegando fogo! Então ele correu para esta pessoa, quando olhou, era Bernardo. Aquaticos Venerum! – Falou Luis, saindo água do cajado dele, apagando o fogo. - Não, por favor! Nãoo... Luis e Bernardo correram para ver o que era, uma menina estava sendo atacada por um Minotauro, da mesma espécie que eles mataram na caverna. Então Luis se concentrou. Generitus Excarlates! – Disse Luis, ao mesmo tempo, no lado direito do cajado, saiu água, no esquerdo saiu fogo, e no centro, no ruby, saiu uma luz divina nunca vista, que queimou o Minotauro. – Bernardo e a menina ficaram impressionados. - Você melhorou bastante! Que incrível Luis! – Falou Bernardo gritando, quase estourando os tímpanos de Luis. - Obrigado por me salvar. – Falou a menina, com um sorriso estampado em sua face. - Você está bem? – Perguntou. - Estou sim... Muito obrigada. – Respondendo Luis. - Eu ainda não sei teu nome... – Falou Luis. - Ah, é mesmo. Meu nome é Natália, tenho 15 anos, e vocês? – Pergunta ela. - Eu sou Luis, esse é meu amigo Bernardo. Nós dois temos 13 anos. Eu sou Bruxo, Bernardo é Arqueiro. E você é o que? – Pergunta Luis. - Ah sim... eu sou uma Knight. – Responde ela - O que houve aqui? Vocês pareciam estar mortos! – Perguntando. - Minotauros! Eles invadiram! Parece que tinha um líder, um Minotauro com chapéu vermelho e uma túnica azul. – Responde ela. Luis assustado, pois o Oráculo tinha comentado sobre esse Minotauro Líder. - Bernardo, você se lembra do que o Oráculo tinha dito? Um Minotauro com chapéu vermelho e uma túnica azul, tinha matado minha mãe... E provavelmente meu pai, eu tinha fugido, voltei hoje, fui para casa e meu pai estava morto, comentando algo sobre esse monstro! – Falou Luis com expressão de raiva. - Lembro, você pode ter razão. Vamos ver se achamos mais pessoas. Então, Bernardo, Luis e Natália, juntos foram procurando mais pessoas. - Eu não achei ninguém! Nem eu! È, nem eu. – Comentando os três. Caminhando, procurando por mais pessoas, mas não acharam ninguém, todos estavam mortos. Então eles, já cientes que todos poderiam ter morrido, vão para um tipo de bar... Chegando lá, BUM. Uma porta no chão se abre fazendo a todos cair num abismo negro. - Aaaaahhh! Gritando os três. POW, eles caem num chão escuro, sujo com ratos. Eles vêem monstros! Tem Trolls, Cyclops e até Minotauros, e pedaços de cabeças, e restos de corpo humano espalhado por toda a parte. - Se preparem, se não lutarmos direito nós vamos mor... Natália já estava atacando e matando todos que achava! - Vamos logo! – Gritou Bernardo. Lutaram, muitas horas se passaram. Então eles pensavam que tinham matado todos até que... BUM, BUM, BUM! Um Cyclop Smith, com um machado na mão aparece! Ele estava totalmente equipado, com armaduras e um cabelo moicano azul. O Cyclop era conhecido como ‘O Matador de Humanos’, quando de repente. - Irei matar todos, e depois comê-los! – Falou o Cyclop. BUM, BUM BUM. A cada passo que ele dava o chão mexia, fazendo pedras cair. Então, Luis é expert em estratégias de batalha, pois só ele percebeu uma coisa. - Geladus Temporarius! – Falando e congelando o Cyclop, deixando-o imóvel. - Ataquem-no, ele é lento, a cada paço que ele dá o chão treme, tentem atacar de longe, não deixem ele atacar vocês, caso contrário vocês irão mor... AAARGHT! IREI MATÁ-LOS AGORA! – Gritando o Cyclop, se descongelando a força bruta, e avançando para cima dos três. - Natália, tente atacar ele quando ele estiver congelado! Bernardo, tente atacar de longe para enfraquecê-lo. O resto... Deixem comigo! Vão! – Dando instruções para eles. - Enchanted Spears! – Então Bernardo joga-a contra o monstro, a sua lança encantada, enfraquecendo a besta. - BUM, BUM, BUM! POW! Atinge Bernardo, deixando-o inconsciente. - Bernardo!? – Luis fala correndo em direção a Bernardo apavorado. Então o Cyclop entra no caminho de Luis. – Não irá a lugar algum, tente presta atenção em mim! – Fala o Cyclop. - Rrrrr! Você irá morrer! Rrrrr! – Fala Luis, uma Luz Divina, sai do teu corpo, tornando-o mais forte. - Aquaticos Venerum! – Fala Luis criando uma onda enorme, levando o Cyclop como se estivesse no alto, para tomar uma queda. Quando de repente. - Geladus Temporarius! Congela e onda e a besta ao mesmo tempo, e na mesma hora acontece o inesperado. - Exori Mas Gran! – Falou Natália, ao mesmo tempo em que a besta congela, espadas gigantes atacam a onda, e a besta cortando-os ao meio, e finalmente, matando-a. - Conseguimos! Conseguimos! – Fala Luis, com um sorriso no rosto, então ele se lembra de Bernardo. - Bernardo! Você está bem?! – Gritou Luis indo em direção á Bernardo. Acordando, cansado e ferido, pondo sua mão na costela, ele estava sangrando, um osso humano estava solto, entrando em teu corpo. - Magic Rope! – Fala Luis, criando uma corda mágica, para subir até o topo. Chegando La em cima, levam Bernardo para o Ancião. Chegando lá, o Ancião estava morto, mas tinha uma mulher. Eles foram em direção a ela. - Pode nos ajudar? Por favor, nos ajude, nosso amigo está sangrando, com ferimento grave! – Colocando-o em cima da mesa. - Healing! – Disse ela, pondo sua mãe em cima do ferimento de Bernardo. No mesmo momento, Bernardo acorda perguntando o que houve. - Obrigado, muito obrigado. Qual o seu nome? – Perguntou Luis. - Meu nome é Fernanda. – Respondendo-lhes. - Você quer se juntar ao nosso grupo? – Perguntou Luis. - Claro, por que não? – Comentou ela, aceitando entrar no grupo. Então, agora, um grupo de quatro pessoas, foram caçar, para melhorar suas habilidades. Capítulo 4 O Sacrifício de Amor Agora, com um grupo de quatro pessoas, Luis, Bernardo, Natália e Fernanda, foram caçar, para puder melhorar suas habilidades. Chegaram numa escada de ferro, descendo-a, eles encontraram corpos mutilados, com sangue, então aparece da escuridão, um monstro gigante, vermelho cor sangue, com olhos brilhantes amarelos, e chifres cor amarelo beje, eles saíram da caverna correndo assustados, então Luis se lembrou da caverna em que achou sua mãe morta. - Bernardo, eu queria ir investigar a caverna a qual minha mãe morreu. – Comentou Luis. - Hm, vamos então, você tem o direito de saber toda a verdade. – Respondendo-lhes. Então, o grupo foi para a caverna a qual a mãe de Luis foi morta, chegando lá, entraram na caverna, tinha barulho e vozes, entraram devagar, a caverna havia piorado, estava completamente encharcada de sangue, havia corpos espalhados, com olhos fora do corpo, e pedaços rasgados da cabeça. Foram mais adiante, chegando na pedra a qual acharam a mãe de Luis mais atrás. Os sentimentos de Luis... Ele poderia provocar a maior guerra entre humanos e monstros, a qualquer momento. Indo mais adiante da tal pedra, eles encontraram o fim da caverna... Ou achavam que era o fim. - O que vamos fazer agora? Já chegamos ao final. – Falou Natália, sem esperanças. - Eu vou matar todos os monstros que ficarem no meu caminho para puder encontrar pistas sobre a morte de minha mãe! – Falou Luis, com muita raiva. Como ele é inteligente, achou que só passava adiante quem saberia o segredo. Então Luis foi adiante da pedra a qual a mãe dele morreu, pegou um pequeno caderno e anotou o que tinha escrito lá, ninguém sabia o que ele está fazendo. Depois de ter tudo anotado, numa pequena folha seca de papel amassado, com uma linguagem que ninguém entendia, pegou o caderno se concentrou e disse uma única palavra que vinha em sua mente, sem saber qual. - Incorporatus! – Falou Luis, seus olhos brilharam, e ele falava palavras que ninguém entendia, como se estivesse lendo o pequeno caderno. - Magic Minotaur, that you are so strong and resistant. Magic Minotaur, that you are as independent as the water of the sea. Magic Minotaur, that you are so intelligent, and invincible. Give me the permission to be your servant. Amem. – Falou Luis, praticamente possuído, falando coisas que ninguém sabia, quando terminou de falar a ultima letra, uma porta se abriu, e Luis voltou ao normal. Todos ficaram sem entender nada, mas Bernardo já estava ciente de que ele poderia ser... O Bruxo dos Bruxos. Quando entraram na porta que se abriu, viram Minotauros em fazendo um circulo, e no meio, um outro monstro, um Magic Minotaur, com um chapéu vermelho e uma túnica azul. Assim como falava o Oráculo. Os Minotauros olharam para eles ao mesmo tempo, uma única vez, e se desfizeram, deixando apenas o Magic Minotaur fazendo uma magia, todos mataram os Minotauros, sobrando apenas vivo o Magic Minotaur, que logo em seguida lançou-lhes um feitiço que fez todos ficarem inconscientes. Apenas Luis ficou acordado. Mal sabe que teria uma batalha épica. - Aquaticos Venerum! – Falou Luis, ao mesmo tempo o Magic Minotaur lançando um feitiço. - Flamorius Venerum! – Falou o Minotauro, o fogo fazendo a água evaporar, e a água fazendo o fogo apagar. Então o Minotauro lançou-lhes um feitiço das trevas. - Treverius Excarlates! – Falou o Minotauro, saiu trevas de seu cajado, e no meio, continha um ruby preto, dos lados saíram trevas e no centro, saiu uma boca escura, como um jaguar. Ao mesmo tempo, Luis lançou-lhes um feitiço da Luz. - Generitus Excarlates! – Falou Luis, houve uma explosão, de um lado, uma Luz divina, mais lindo que o Pôr-do-Sol, e do outro lado, Trevas com raios negros, de dar medo. Então Luis, se concentrou e disse duas palavras uma seguida da outra. - Exodicos Duplicaticos! – Falou Luis, em baixo do Minotauro, ficou fogo, da cintura abaixo ele estava sendo queimado vivo, e da cintura acima ele estava sendo afogado. Então houve uma explosão que trucidou o Minotauro, morrendo. Luis ficou fraco demais, usou um dos seus poderes mais fortes, ficou fraco, como se estivesse na água, estava pesando, e então... Desmaiou. Acordou cinco dias depois. Uma menina estava em cima dele, abraçando-o, e dizendo obrigado, por ter salvo teu irmão, ele sem entender nada, perguntou quem era o irmão dela. - Meu irmão... Seu melhor amigo, Bernardo! – Falou ela. Agradecendo muito. Ela era alguns meses mais velha que Bernardo, seus cabelos eram longos e castanhos bem claros, seus olhos eram lindos como a lua, a boca era tão macia e suave, que dava vontade de apertá-la e nunca mais soltar, sua pele era clara e suave como a de um bebê. - De nada... Qual seu nome? – Perguntou Luis, ansioso e encantado por conhecê-la. - Meu nome é Bruna... – Falou ela envergonhada, que suas bochechas começaram a ficar rosa. Ele se encantou, foi amor a primeira vista. Todos já estavam descansados, então Luis comentou. - Eu ainda estou curioso de uma coisa... Na outra caverna, com escadas de ferro, e sangue. Quero saber o que tem lá. Mas todos diziam que ele tinha que descansar. Por dois dias, ficou pensando em duas coisas. 1º Que nunca mais queria arriscar a vida de seus amigos novamente. 2º Que ama Bruna, e que não quer deixá-la em perigo. - Então, numa noite, escreveu uma carta para cada um, e para Bruna, havia a mais sincera, tão linda que é como se estivesse se sentindo que alguém lhe amasse pela primeira vez, a fez se sentir a pessoa mais feliz do mundo, e dizia que lhe amava, havia poesias que ele mesmo criou, a mais linda, a mais sincera, foi a que ela mais focou: - As vezes sabemos de tantas coisas, só não sabemos o que irá nos acontecer, as vezes são coisas boas, as vezes são coisas más, mas o que eu mais agradeço a ter acontecido a Deus... Foi por ele ter posto a pessoa mais bela que eu já vi... Foi ter conhecido você. Eu te amo. Mas o que Luis não sabia, é que Bruna leu essa carta pouco depois que ele foi embora. Então Bruna o seguiu, sem ele suspeitar de nada. Chegando na caverna, estava com sangue, e avisos para não entrar. Mas ele entrou. Logo depois que ele entrou, Bruna entrou, eles se depararam com um monstro vermelho cor sangue, olhos brilhantes amarelos, e chifres com amarelo beje. Sua voz imitava outras pessoas, atraindo-as para si. Então Luis percebeu, era o monstro mais temido e forte de todos... Demon. Então eles tiveram uma batalha difícil, estavam ali fazia horas, e quando o Demon iria matá-lo, Bruna apareceu em sua frente, recebendo o golpe, e disse uma ultima frase para Luis. - Eu te amo. Luis começou a chorar, como se o seu mundo estivesse sendo destruído, pois seu verdadeiro amor estava deixando-o. Luis então teve tanta raiva, que invocou todas as magias numa só palavra. - Diend! – Falou com a maior raiva. Simplesmente pensou na palavra, e disse, não saberia o que ia acontecer, quando viu seu cajado, ele estava brilhando, e flutuou no ar, quando de repente, como se o cajado estivesse jogando tudo de mal e de bom que estava dentro dela, os 6 elementos foram contra o Demon, Água, Fogo, Terra, Ar, Trevas e Luz Divina, matando-o. Luis não queria que ela morresse, então falou a única coisa que lhe restava. - Sacrifice! – A magia mais bonitas de todas, porque nela continha o maior de todos os poderes, capaz de destruir o universo, capaz de destruir tudo que existe, o Amor. Então na hora em que Luis falou tal magia, Bernardo, Natália e Fernanda, chegaram na caverna e viram o que estava acontecendo. Só olharam, pois foi a coisa mais linda que já viram. Então, o corpo de Luis, flutuou no ar, com uma Luz Divina sobre ele, alcançando o chão, até que a Luz Divina, ficou vermelha, fazendo o corpo de Bruna flutuar para perto do de Luis, também com uma Luz Divina, quase morta, fechando os olhos, a alma de Luis entrou no coração de Bruna. - Quando Bruna acordou, é como se ela estivesse vendo tudo o que tinha acontecido, então Bernardo, Luis e Fernanda disseram ao mesmo tempo: - Ele fez a coisa mais linda que eu já vi. - Eu sei. Pelo menos eu vou estar com ele para sempre comigo. Afinal, sempre fomos iguais... Mas agora... Somos um! – Falou ela, chorando, com lágrimas em sua face. The End. Link para baixar. Créditos: Minha Irmã Edição 10% Tumblr | Twitter Eu Por Criação 90%

Olá galera do XTibia, hoje eu gostaria de postar um sistema de kills; se o mesmo já fora postado antes, peço minhas sinceras desculpas, já que, fui eu quem criou este, mas tenho a impressão de já ter visto ele em algum outro lugar. Bom, se já foi postado antes, postem que eu reporto para fechar. Primeiramente gostaria de pedir desculpas pelo meu amadorismo, pois reconheço que não me comparo com os grandes nomes de scripters do XTibia, mas estou aqui, tentando ajudar o máximo possivel. Este sistema funciona da seguinte maneira: você usa a talkactions e recebe uma mensagem de todos os jogadores online, com o numero de vezes que eles mataram alguém (desde que o sistema foi implantado). Sem mais delongas, vamos ao sistema: Em data/talkactions/scripts, crie um arquivo .lua e cole isto dentro: Só por curiosidade, eu utilizei o sistema de !online para fazer este. Agora vá em talkactions.xml e cole esta tag em algum lugar dele: Certo, talkaction pronta, agora vá em data/creatureevents/scripts, crie um arquivo .lua e cole isto nele: Feito isso, abra o arquivo login.lua e ache as tags que registram eventos, entre elas, cole a seguinte tag: Por ultimo, abra creatureevents.xml e cole a seguinte tag em algum lugar lá: Azul: Palavras para ativar a talkaction. Vermelho: Nome do arquivo .lua que você criou para colocar o script da talkaction. Laranja: Nome do evento, você pode escolher qualquer um, mas deve ser o mesmo nas duas tags. Verde: Nome do aruiqvo .lua que você criou para colocar o script do creatureevents. Sei que não esta muito bom, já que não é por tables, como seria o ideal, e também desculpem-me por todas as edições desde o inicio do tópico... Espero que gostem, e mais uma vez desculpem se já houver alguma coisa parecida, ou, se eu errei alguma coisa.

Bom desculpe não ajudar, não entendo muito bem disso. Mas eu lembro que tem de colocar algumas "tags" no SQL. Desde já! Atenciosamente, Roksas.

Gostei do Tutorial, parabéns. Não tenho mutio talento para Design, mas mesmo assim belo tutorial. Abraços! Atenciosamente, Roksas.

crie um arquivo fireball.lua function onSay(cid, words, param) local configs = { level = 10 -- level para usar efeitodistance = 3 -- efeito de distancia typedamage = COMBAT_FIREDAMAGE -- tipo de dano min = 10 -- atk minino max = 20 -- atk maximo exhausted = 1 -- exaustão em segundos } local summonuse = {"Dragon", "Dragon Lord", "Demon"} -- summons ki pode usar if #getCreatureSummons(cid) == 0 then return doPlayerSendCancel(cid, "You do not have any summon.") end if not isInArray(summonuse, getCreatureName(getCreatureSummons(cid)[1])) then return doPlayerSendCancel(cid, "This summon not use fire ball.") end if getCreatureTarget(cid) == 0 then return doPlayerSendTextMessage(cid, 19, "This Attack need any target.") end if getPlayerLevel(cid) < configs.level then return doPlayerSendTextMessage(cid, 19, "You need level "..configs.level.." to use fire ball.") end function getTime(s) local n = math.floor(s / 60) s = s - (60 * n) return n, s end if os.time()-getPlayerStorageValue(cid, 23231) <= configs.exhausted then minutes,seconds = getTime(configs.exhausted-(os.time()-getPlayerStorageValue(cid, 23231))) return doPlayerSendCancel(cid, "Summon exhausted") end doSendDistanceShoot(getCreaturePosition(getCreatureSummons(cid)[1]), getCreaturePosition(getCreatureTarget(cid)), configs.efeitodistance) doAreaCombatHealth(getCreatureSummons(cid)[1], configs.typedamage, getThingPos(getCreatureTarget(cid)), 0, -configs.min, -configs.max, 3) doPlayerSay(cid, getCreatureName(getCreatureSummons(cid)[1])..", Fireball", 1) setPlayerStorageValue(cid, 23231, os.time()+configs.exhausted) return true end tag : <talkaction words="!fireball" hide="yes" event="script" value="fireball.lua"/>

quantidade = 1 -- Quanto de mana irá tirar por vez intervalo = 1 -- Coloque a Quantidade desejada em Segundos tempo = 60 --Coloque o tempo Total em segundos function removerManaDuranteTempo(cid, quantidade, intervalo, tempo) n = tempo/intervalo for i = 1, n do if not cid then return 1 end addEvent(doPlayerAddMana, i*intervalo*1000, cid, -quantidade) end return 1 end function onSay(cid) removerManaDuranteTempo(cid, quantidade, intervalo, tempo) return 1 end Não testei, mas fiz com capricho.

Vá na Pasta Seu ot > Data > Actions > Scripts agora criei um arquivo chamado pokemonquest.lua e cole isto dentro. -- Pokemon Chest by NoHeAD function onUse(cid, item, frompos, item2, topos) if item.uid == 3006 then queststatus = getPlayerStorageValue(cid,3006) if queststatus == -1 then doPlayerSendTextMessage(cid,22,"Voce achou um Jirachi.") doPlayerAddItem(cid,2474,1) setPlayerStorageValue(cid,3006,1) else doPlayerSendTextMessage(cid,22,"Voce ja pegou um dos 3 items.") end elseif item.uid == 3007 then queststatus = getPlayerStorageValue(cid,3006) if queststatus == -1 then doPlayerSendTextMessage(cid,22,"Voce achou um Mew.") doPlayerAddItem(cid,2475,1) setPlayerStorageValue(cid,3006,1) else doPlayerSendTextMessage(cid,22,"Voce ja pegou um dos 3 items.") end elseif item.uid == 3008 then queststatus = getPlayerStorageValue(cid,3006) if queststatus == -1 then doPlayerSendTextMessage(cid,22,"Voce achou um Celebi.") doPlayerAddItem(cid,2476,1) setPlayerStorageValue(cid,3006,1) else doPlayerSendTextMessage(cid,22,"Voce ja pegou um dos 3 items.") end else return 0 end return 1 end Depois adicione isto na Actions.xml --Pokemon Quest-- <action uniqueid="3006" script="pokemonquest.lua" /> <action uniqueid="3007" script="pokemonquest.lua" /> <action uniqueid="3008" script="pokemonquest.lua" /> --end Pokemon Quest-- Obs¹:Lembrando que precisa usar o map editor para adicionar as Unique ID nos baús Obs²:Se quiser editar o item que irá ganhar é aqui "2474" doPlayerAddItem(cid,2474,1) Se te ajudei REP+

Okz, minha irmã não teve muito tempo de editar, isso que você criticou, ela comentou comigo. As vezes tenho que fazer mais diálogos coerentes mesmo. Abraço, obrigado pela crítica. A cada crítica que o leitor faz, eu tento me melhorar, para puder melhorar minhas hitórias.

É amigo acho melhor vc baixa outro ot. La vai uma Lista de Slayer: Dono - Map - Link do Topico: Chefim - Slayer Yurots Editado - Topico MattheusOT - Slayer Totalmente Edited - Topico ADMBiel - Slayer Yurots 2.0 - Topico Estao ai 3 Slayer :positive: Se vc quiser outros OT 8.4 <CLIQUE AQUI> Se Ajudei +REP

Nem foi, foi mo legal porque eu sou bem criativo, e me sinto a vontade escrevendo.

Tranquilo, qualquer coisa só pedir. Podem fechar o tópico.

Você tem que por a items.otb na pasta items...

Por enquanto sim, distro 100% baseado no código fonte da OpenTibia SVN, este servidor, TBRServer é 100% de código fonte aberto e totalmente estavel, atualizado diáriamente.

Com criatividade venho trazer este tutorial: 1º Você utilizara os seguintes materiais: 2º Bom agora vamos fazer uma piscina comum com o item 493 e ao seu redor com o piso 405: 3º Agora faça as bordas com os itens 434 á 445: 4º Para dar uma sensação de realismo, para entrar na piscina use o iten 459 em algum lugar da borda para que os players entrem na piscina: 5º Agora no andar de baixo desenhe com under water(seus pisos e bolhas): Pronto sua Piscina está feita! 2º Tutorial By me

Cara so Porque tu nao Pega Mulher Tu se acha o Rei da Cocada.. Aqui tu nao manda ok? Nao tenho Medo que tu é moderador grands merda qualquer um pega essa vaga de moderaçao. Menos Eu haha Tenta Melhorar teu comportamento Oquey? Abraços..