victormoaz

Gostaria de Pedir um sistema de Boost para Pokemon que funcione com stone stackable. Ex: coloca 77 stones tudo de uma vez no primeiro slot da maquina e ja vai p +20 Ja vi em um servidor e gostaria de saber se alguem pode me ajudar com isso. obs.: utilizo a versão sem lvl 1.7 do Slicer

Interessante. Como faria para colocar mais de um item como premio por baú? E uma quantidade maior do q 1 desse item. Ex.: 30 gold

[17/10/2012 14:26:35] [Error - Action Interface] [17/10/2012 14:26:35] data/actions/scripts/quests/quest.lua:onUse [17/10/2012 14:26:36] Description: [17/10/2012 14:26:36] (luaGetThing) Thing not found [17/10/2012 14:26:36] [Error - Action Interface] [17/10/2012 14:26:36] data/actions/scripts/quests/quest.lua:onUse [17/10/2012 14:26:36] Description: [17/10/2012 14:26:36] data/lib/050-function.lua:239: attempt to index a boolean value [17/10/2012 14:26:36] stack traceback: [17/10/2012 14:26:36] data/lib/050-function.lua:239: in function 'getItemName' [17/10/2012 14:26:36] data/actions/scripts/quests/quest.lua:6: in function <data/actions/scripts/quests/quest.lua:1 apareceu esse erro p mim --EDIT------------------------- Ja resolvi... teria como adicionar uma quantidade de item para receber? Tipo, se for gold o premio, uma certa quantidade tipo 30 gold. Pelo seu script so adiciona 1, mesmo que coloque count 30 pelo map editor.

PSDO Servidor Online 24h/7 2 meses online UpLink 1000mb istemas Pokemons Sem Level Addon System Adicionado Golden Arena Shiny Aleatorio Clan's com shiny e Task Npcs de Duel Poke bar and Cd Bar (client psdo) Mapa Editado Fly,Surf,Rid,Cut,Rock Smash,Dig,Dive,Teleport,Blink,Control Mind etc Npc Paint Ball (varias balls no server) Duel System (Order) M1-M12 Saffari com Ball Fight Tower Várias Quests (incluindo box2, box3, box4) Server em constantes mudanças no Mapa e Sistemas. EXP: 100x Loot: 7x Site: ACC Download: Client (CooldownBar) FOTOS: MAPA:

@dalvorsn Uma honra vc comentando meu post... rsrs Então to começando agora, não sou tão bom na área. vou dar um estudada nas suas criticas e tentar melhorar o npc.. obrigado.

gostaria de saber como funciona essa golden arena? pois no meu servidor ela não está puxando os players

Olá, Eu fiz esse script para um servidor ao qual eu era membro da equipe. Mas como o servidor "já era". Vou postar aqui. Nada mais é do que um saffari system. Antes de tudo, é necessários que você tenha adicionado a saffari ball (catch, go back, nurse etc). Pois eu não vou mostrar como adicionar ela agora. =) O que o npc faz? O Npc irá checar se o player possui outro tipo de ball para catch (pokeball, great, super, ultra). Caso sim, ele não deixa entrar. Caso não, ele deixa você entrar. -----recomendo colocar um depot na casa do safari para facilitar aos players----- Ao entrar no saffari ele te dar 30 saffari ball para catch. Como ele está adaptado ao sistema do PxG, não é contado tempo. Você é expulso do safari quando as saffari balls acabam. Scripts NPC Não está muito dificil de configurar: De vermelho é o id e a quantidade de pokeballs; De verde a quantidade de dinheiro que precisa Agora vá em data/creaturescript/login.lua abra o arquivo Login.lua como bloco de notas Adicione a seguinte tag dentro do arquivo. Agora vá em data/actions/scripts e abra o arquivo Catch.lua. Antes de function onUse(cid, item, frompos, item3, topos) adicione a seguinte tag: Logo depois de "function onUse..." adicione: obs.: Os Ids de vermelho são os da saffari ball de catch. Créditos: BobStriker - 100% Merece um Rep+ ?

Olá, Existem vários sistemas de dive por Talkaction, eu sinceramente acho fraco o rpg quando se usa Talkaction. Assim resolvi fazer por Action. Primeiramente vou explicar como é: O sistema nada mais é do que fazer com que o player que precisa estar surfando possa ir para baixo d'agua. No caso do meu script, o player precisa estar surfando e portando um determinado item (mascara de oxigenio). Segue o Script: Salve em um bloco de notas na pasta data/actions/scripts o script abaixo com o nome mascara.lua explicando: De vermelho é o id do item (mascara de oxigenio) que o player precisa ter na bag para poder dar dive. No arquivo data/actions/Actions.xml adicione a seguinte tag. explicando: O numero na cor verde é o id do item (redemunho), o qual deve ser colocado no mapa na água acima do local onde é undewater. O Sistema funciona assim: Estando em Surf e com a Mascara de Oxigenio, basta dar use no Redemonho que será teleportado para a waypoint do script (cave). obs.: É necessário que adicione uma escada ou espaço para rope, para que o player volte para a água (saindo do dive). IMAGEM: Creditos: BobStriker - 100% Fiz o script do 0 (zero) e muito rápido. Pode estar bem simples, mas é funcional. Duvidas e Sugestões, Comentem. att.

ZeSy Não necessariamente. Se a função for adicionada pelas source, não precisa e provavelmente não estará na lib functions. Portanto a pergunta segue: Gostaria de saber se tem a função "OnJoinParty" no servidor, ou alguma do mesmo genero. Obrigado

Gostaria de saber se tem a função "OnJoinParty" no servidor, ou alguma do mesmo genero. Obrigado

Qual versão do tibia utilizada?

Ideia boa... Script bom... parabéns!

já consegui a função que procurava... Obrigado a todos que tentaram.

Gostaria de uma função que abrisse uma caixa de dialogo, como a ja existente "DoShowTextDialog". Porém além de apenas texto tivesse como colocar imagens. Explicando melhor, gostaria de saber como crio caixas de dialogo como aquelas do Tutorial beginner island do Tibia. Fotos: Se ja existe uma função assim, gostaria que me informassem qual é e como posso manipular a mesma. Se alguem souber como criar, me ajude. Obrigado Rep+ para quem ajudar.

Nome: Victor Idade: 18 Cargo: Programador E-Mail/Msn: só passo via PM Horario Disponivel: varia, 2h~3h por dia Ideias Para o Serve: inumeras, e sobre o negocio do client eu sei fazer!

Nome: Victor Idade: 18 Cargo: Programador MSN: só passo por PM (mande uma PM que eu respondo) Horas que podem ser dedicadas ao Projeto: 2~3h Nivel de Experiência: Tenho formação completa em Algorítimos I e II Mostrar algum Trabalho feito(se tiver,pliiz): Nenhum Divulgado! Já trabalhou em algum outro servidor: Só em servidor pessoal (Pokemon) Porque quer entrar na equipe: Procuro algo diferente de tibia e pokemon, achei o projeto interessante. Promete concluir o projeto: Isso vai depender de toda a equipe. Da minha parte sim. Adicional: Fumo Maconha... zuera

Nome: Victor Idade: 18 Area desejada: Programação Tempo disponivel: 2h~3h diarias Tempo e nivel de experiencia: 1 ano, Formado em Algorítimos I e II

Bom, utilizei o sistema de Owner do @MatheusMkalo , segue o link: Sistema de Owner Tentei criar uma quest em q o item que o player vai receber seja Owner (só ele pode usar). Utilizei a funcao postada pelo Mkalo, setItemOwner(itemuid, cid). Porém não funcionou. Posso ter utilizado de forma errada, pois sem a funcao ao clicar no bau o item vai para o player , com a funcao não. Segue o script do bau da quest: function onUse(cid, item, frompos, item2, topos) local rat = {x=1630,y=1787,z=7} local cat = {x=1632,y=1787,z=7} local wee = {x=1634,y=1787,z=7} local pox = getTownTemplePosition(1) local health = 350 local maxhealth = 350 local description = "Contains a Bulbasaur. It belongs to ".. getPlayerName(cid) .."!" local poke1 = "This is Bulbasaur's pokeball. HP = ["..health.."/"..maxhealth.."]" doPlayerAddItem(cid, 2312, 1) doPlayerAddItem(cid, 2313, 1) doPlayerAddItem(cid, 2314, 1) doPlayerAddItem(cid, 2311, 1) doPlayerAddItem(cid, 2310, 1) doPlayerAddItem(cid, 2309, 1) doPlayerAddItem(cid, 2308, 1) doPlayerAddItem(cid, 2307, 1) item = doCreateItemEx(2219) doItemSetAttribute(item, "poke", poke1) doItemSetAttribute(item, "nome", "Bulbasaur") doItemSetAttribute(item, "description", description) setItemOwner(item, cid) doPlayerAddItemEx(cid, item, true) doTransformItem(item, 2222) doPlayerSendTextMessage(cid, 27, "You got your first pokemon! Here is some experience to help you on your way.") doPlayerSendTextMessage(cid, 27, "Don\'t forget to use your pokedex on every undiscovered pokemon!") doPlayerAddExp(cid, 800) doTeleportThing(cid, pox) doPlayerSetTown(cid,1) doSendMagicEffect(pox, 21) doPlayerAddItem(cid, 2147, 50) setPlayerStorageValue(cid, 100, 0) doPlayerAddSoul(cid, 1) setPlayerStorageValue(cid, 54842, "Bulbasaur, ") return TRUE end upp

Bom algumas críticas. Você pegou o servidor completamente bugado "Pokemon Squadium". Adicionou uns monsters, adicionou um mapa, umas talkactions -> q possivelmente vc so pegou da sua versao 3 e colocou no pokemon squadium. Por isso ta esse tanto d bug. Aconselho pedir ajuda para os criadores do Squadium. Caso eles queiram disponibilizar o ot neh?! Se não me engano é o Brun123.

estou precisando disso também.

Galera, preciso de um script para que quando acabar a premium do player, caso ele estiver usando fly,ride ou surf, sair dos sistemas e ser teleportado para uma cidade "x". O Teleport eu consegui, mas sair do fly,ride e surf não. Segue os scripts abaixo: ORDER (utilizado por mim) local nao = {'4820', '4821', '4822', '4823', '4824', '4825', '1395', '1389', '1391', '1393', '460'} local direction = {'4', '5', '6', '7'} -- ridefly local ridefly = {'Skarmory', 'Porygon2', 'Crobat', 'Steelix', 'Stantler', 'Piloswine', 'Mareep', 'Houndoom', 'Crystal Onix', 'Shiny Venusaur', 'Shiny Arcanine', 'Venusaur', 'Ninetales', 'Arcanine', 'Ponyta', 'Rapidash', 'Doduo', 'Dodrio', 'Onix', 'Rhyhorn', 'Tauros', 'Porygon', 'Aerodactyl', 'Dragonite', 'Charizard', 'Pidgeot', 'Fearow', 'Moltres', 'Zapdos', 'Articuno', 'Mew', 'Mewtwo'} local ride = {'Steelix', 'Stantler', 'Piloswine', 'Mareep', 'Houndoom', 'Crystal Onix', 'Shiny Venusaur', 'Shiny Arcanine', 'Venusaur', 'Ninetales', 'Arcanine', 'Ponyta', 'Rapidash', 'Doduo', 'Dodrio', 'Onix', 'Rhyhorn', 'Tauros'} local fly = {'Skarmory', 'Porygon2', 'Crobat', 'Porygon', 'Aerodactyl', 'Dragonite', 'Charizard', 'Pidgeot', 'Fearow', 'Zapdos', 'Moltres', 'Articuno', 'Mew', 'Mewtwo'} local flys = { [265] = {229, 2300, 350}, -- moltres [283] = {230, 2100, 350}, -- artic [199] = {224, 2600, 350}, -- zapdos [9] = {232, 2200, 525}, -- 1000 [34] = {233, 2200, 525},-- two [210] = {221, 1300, 410},-- nite [80] = {222, 900, 375}, -- geot [17] = {226, 800, 400}, -- fearow [10] = {227, 1100, 410}, -- aero [67] = {216, 1000, 410}, -- chari [97] = {316, 700, 440}, -- porygon [374] = {424, 700, 400}, --skarmory [385] = {423, 900, 390}, --porygon2 [319] = {422, 600, 430}, --crobat } local rides = { [93] = {128, 780, 400}, -- tauros [114] = {129, 800, 375}, -- kyuubi [220] = {130, 800, 395}, -- rapid [16] = {131, 410, 500}, -- ponyta [77] = {132, 400, 510}, -- rhyhorn [88] = {12, 900, 390}, -- arcan [493] = {492, 1000, 360}, -- shiny arca [496] = {494, 420, 420}, -- shiny vneu [292] = {293, 480, 430}, -- cristal onix [248] = {126, 450, 450}, -- onix [22] = {134, 390, 450}, -- venu [120] = {133, 750, 380}, -- dodrio [26] = {135, 420, 500}, -- doduo [388] = {411, 600, 410}, -- steelix [382] = {410, 700, 390}, -- stantler [362] = {409, 400, 510}, -- pilowsine [352] = {408, 400, 510}, -- mareep [339] = {407, 600, 410}, -- houndoom } local bolas = {'2222', '2223', '2224'} local ultra = {'2220', '2221', '2227'} local great = {'2540', '2541', '105'} local super = {'2438', '2539', '102'} local etudao = 9506 local mind = 9507 -- LIGHT local light = {"Abra", "Kadabra", "Alakazam", "Magnemite", "Magneton", "Drowzee", "Hypno", "Voltorb", "Electrode", "Mrmime", "Electabuzz", "Jolteon", "Porygon", "Porygon2", "Pikachu", "Raichu"} local exhautStorage = 9500 local time = 600 local cd = 17 -- LIGHT -- BLINK local blink = {"Abra", "Kadabra", "Alakazam", "Porygon", "Mew", "Mewtwo", "MrMime"} local exhaustblink = 9501 local cdblink = 50 -- BLINK local systems = { ["rock smash"] = {"Sandshrew", "Sandslash", "Diglett", "Dugtrio", "Primeape", "Machop", "Machoke", "Machamp", "Geodude", "Graveler", "Golem" , "Onix", "Cubone", "Marowak", "Rhyhorn", "Rhydon", "Kangaskhan", "Tauros", "Snorlax", "Poliwrath", "Hitmonlee", "Hitmonchan", "Aerodactyl", "Charizard", "Blastoise", "Typhlosion", "Feraligatr", "Furret", "Ledian", "Ampharos", "Politoed", "Quagsire", "Forretress", "Steelix", "Snubbull", "Granbull", "Sudowoodo", "Gligar", "Scizor", "Heracross", "Sneasel", "Ursaring", "Teddiursa", "Slugma", "Magcargo", "Piloswine", "Swinub", "Corsola", "Phanpy", "Donphan", "Tyrogue", "Hitmontop", "Miltank", "Blissey", "Tyranitar", "Pupitar"}, ["cut"] = {"Charmander", "Raticate", "Bulbasaur", "Ivysaur", "Venusaur", "Charmeleon", "Sandshrew", "Sandslash", "Gloom", "Vileplume", "Paras", "Parasect", "Meowth", "Persian", "Bellsprout", "Weepinbell", "Victreebel", "Farfetchd", "Krabby", "Kingler", "Exeggutor", "Cubone", "Marowak", "Tangela", "Scyther", "Pinsir", "Chikorita", "Bayleef", "Meganium", "Croconow", "Feraligatr", "Furret", "Bellossom", "Hoppip", "Skiploom", "Jumpluff", "Sunkern", "Sunflora", "Scizor", "Heracross", "Sneasel", "Teddiursa", "Ursaring", "Gligar", "Skarmory"}, ["digholes"] = {"468", "481", "483"}, ["dig"] = {"Raticate", "Sandshrew", "Sandslash", "Diglett", "Dugtrio", "Primeape", "Machop", "Machoke", "Machamp", "Geodude", "Graveler", "Golem" , "Onix", "Cubone", "Marowak", "Rhyhorn", "Rhydon", "Kangaskhan", "Tauros", "Snorlax", "Eevee", "Dunsparce", "Flareon", "Jolteon", "Vaporeon", "Espeon", "Umbreon", "Vulpix", "Ninetales", "Nidorina", "Nidoqueen", "Nidorino", "Nidoking", "Persian", "Arcanine"}, ["blink"] = {"Abra", "Kadabra", "Alakazam", "Porygon", "Porygon2", "Mew", "Mewtwo", "Mr.Mime"} } -------- DITTO E CONTROL MIND --------- function onUse(cid, item, frompos, item2, topos, item3) if getPlayerItemCount(cid, item2.itemid) >= 1 then return false end if isMonster(item2.uid) and item2.uid ~= getCreatureSummons(cid)[1] and item2.uid ~= cid then if #getCreatureSummons(cid) == 0 then doPlayerSendCancel(cid, "You need a pokemon to use order.") return true end if exhaustion.get(cid, mind) then doPlayerSendCancel(cid, "Your pokemon is too exhausted from the last control, this ability has 2 minutes cooldown.") return true end if isPlayer(getCreatureMaster(item2.uid)) then doPlayerSendCancel(cid, "You cant control the mind of someone's else pokemon.") return true end if not isInArray({"Alakazam", "Tentacruel", "Gengar", "Ditto"}, getCreatureName(getCreatureSummons(cid)[1])) then doPlayerSendCancel(cid, "This pokemon cant control minds.") return true end if getCreatureName(item2.uid) == "Ditto" and isMonster(item2.uid) == TRUE and getCreatureName(getCreatureSummons(cid)[1]) == "Ditto" then doCreatureSay(cid, "Ditto, reverse transformation!", 1) xd = doSummonCreature(getCreatureName(item2.uid), topos) doCreatureAddHealth(xd, -getCreatureHealth(xd)+getCreatureHealth(getCreatureSummons(cid)[1])) doTeleportThing(xd, getCreaturePosition(getCreatureSummons(cid)[1]), false) doRemoveCreature(item2.uid) doConvinceCreature(cid, xd) return TRUE end if isMonster(item2.uid) == TRUE and getCreatureName(getCreatureSummons(cid)[1]) == "Ditto" then doCreatureSay(cid, "Ditto, Transformação ".. getCreatureName(item2.uid) .."!", 1) doCreatureSay(cid, "Transform!", TALKTYPE_MONSTER) doSendMagicEffect(getCreaturePosition(getCreatureSummons(cid)[1]), 184) doSetCreatureOutfit(getCreatureSummons(cid)[1], getCreatureOutfit(item2.uid), 18000) return TRUE end exhaustion.set(cid, mind, 240) doCreatureSay(getCreatureSummons(cid)[1], "CONTROL MIND!", TALKTYPE_MONSTER) doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), getThingPos(item2.uid), 39) registerCreatureEvent(item2.uid, "Controled") doSendMagicEffect(getThingPos(item2.uid), 136) doSendMagicEffect(getThingPos(item2.uid), 134) doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 133) setPlayerStorageValue(cid, 61209, getCreatureMaxHealth(getCreatureSummons(cid)[1])) setPlayerStorageValue(cid, 61210, getCreatureHealth(getCreatureSummons(cid)[1])) doConvinceCreature(cid, item2.uid) if getCreatureSpeed(item2.uid) == 0 then doChangeSpeed(item2.uid, 180) end doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", control "..string.lower(getCreatureName(item2.uid)).."'s mind!", 1) local cmed = item2.uid local cmname = getCreatureName(getCreatureSummons(cid)[1]) local cmpos = getThingPos(getCreatureSummons(cid)[1]) doRemoveCreature(getCreatureSummons(cid)[1]) local cmzao = doSummonCreature(""..cmname.." cm", cmpos) doConvinceCreature(cid, cmzao) setPlayerStorageValue(cid, 888, 1) local function check(params) if isCreature(params.cid) then if getPlayerStorageValue(params.cid, 888) <= 0 then return true end if not isCreature(cmed) then local pkcmpos = getThingPos(getCreatureSummons(cid)[1]) doRemoveCreature(getCreatureSummons(cid)[1]) local item = getPlayerSlotItem(cid, 8) local pk = doSummonCreature(getItemAttribute(item.uid, "poke"):match("This is (.-)'s pokeball."), pkcmpos) doConvinceCreature(cid, pk) doCreatureSetLookDir(getCreatureSummons(cid)[1], 2) registerCreatureEvent(pk, "DiePoke") registerCreatureEvent(pk, "Exp") registerCreatureEvent(cid, "PlayerPokeDeath") setCreatureMaxHealth(pk, (getPlayerStorageValue(cid, 61209))) doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61209))) doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61210))-(getPlayerStorageValue(cid, 61209))) setPlayerStorageValue(cid, 888, 0) end if params.rod == 20 then local lifecmed = getCreatureMaxHealth(cmed) - getCreatureHealth(cmed) local poscmed = getThingPos(cmed) local cmeddir = getCreatureLookDir(cmed) local namecmed = getCreatureName(cmed) doRemoveCreature(getCreatureSummons(cid)[1]) local back = doSummonCreature(""..namecmed.." s", poscmed) if getCreatureSpeed(back) == 0 then doChangeSpeed(back, 180) end doCreatureSetLookDir(back, cmeddir) doCreatureAddHealth(back, -lifecmed) local item = getPlayerSlotItem(cid, 8) local mynewpos = getThingPos(getCreatureSummons(cid)[1]) doRemoveCreature(getCreatureSummons(cid)[1]) pk = doSummonCreature(getItemAttribute(item.uid, "poke"):match("This is (.-)'s pokeball."), mynewpos) doConvinceCreature(cid, pk) doCreatureSetLookDir(getCreatureSummons(cid)[1], 2) registerCreatureEvent(pk, "DiePoke") registerCreatureEvent(pk, "Exp") registerCreatureEvent(cid, "PlayerPokeDeath") setCreatureMaxHealth(pk, (getPlayerStorageValue(cid, 61209))) doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61209))) doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61210))-(getPlayerStorageValue(cid, 61209))) setPlayerStorageValue(cid, 888, 0) else doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 220) end end end for rod = 1, 20 do addEvent(check, rod*500, {cid = cid, rod = rod}) end return true end if item2.uid == cid then if getPlayerStorageValue(cid, 888) >= 1 then doPlayerSendCancel(cid, "You cant fly neither ride pokemons being controled.") return true end if #getCreatureSummons(cid) == 0 and getPlayerStorageValue(cid, 17000) <= 0 and getPlayerStorageValue(cid, 17001) <= 0 then doPlayerSendCancel(cid, "You need a pokemon to use order.") return true end if getPlayerStorageValue(cid, 17000) <= 0 and getPlayerStorageValue(cid, 17001) <= 0 and not isInArray(ridefly, getCreatureName(getCreatureSummons(cid)[1])) then doPlayerSendCancel(cid, "You can't ride this pokemon nor fly with it.") return true end if getPlayerStorageValue(cid, 17000) <= 0 and getPlayerStorageValue(cid, 17001) <= 0 and getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 then return true end ----------------------------- -------- RIDE --------- if not isPremium(cid) then doPlayerSendCancel(cid, "Only premium members are allowed to ride.") return true end if getPlayerStorageValue(cid, 17001) <= 0 and getPlayerStorageValue(cid, 17000) <= 0 and isInArray(ride, getCreatureName(getCreatureSummons(cid)[1])) then local pokemon = rides[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType] if getCreatureSpeed(getCreatureSummons(cid)[1]) >= 1 then doChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1])) end local function ride(params) if isCreature(params.cid) then if isCreature(getCreatureSummons(params.cid)[1]) then if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(cid)) <= params.d then doChangeSpeed(cid, -250) doChangeSpeed(cid, pokemon[2]) exhaustion.set(cid, etudao, 4) setPlayerStorageValue(cid, 17001, 1) doSetCreatureOutfit(cid, {lookType = pokemon[1], lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, -1) setPlayerStorageValue(cid, 61209, getCreatureMaxHealth(getCreatureSummons(cid)[1])) setPlayerStorageValue(cid, 61210, getCreatureHealth(getCreatureSummons(cid)[1])) doRemoveCreature(getCreatureSummons(cid)[1]) else dirh = getDirectionTo(getThingPos(getCreatureSummons(params.cid)[1]), getThingPos(params.cid)) if dirh == NORTHWEST then if math.random(1,100) >= 51 then dirh = NORTH else dirh = WEST end elseif dirh == SOUTHWEST then if math.random(1,100) >= 51 then dirh = SOUTH else dirh = WEST end elseif dirh == SOUTHEAST then if math.random(1,100) >= 51 then dirh = SOUTH else dirh = EAST end elseif dirh == NORTHEAST then if math.random(1,100) >= 51 then dirh = NORTH else dirh = EAST end end local dirh = dirh if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(cid)[1])) doPushCreature(getCreatureSummons(params.cid)[1], dirh, 1, 0) doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1])) else doPushCreature(getCreatureSummons(params.cid)[1], dirh, 1, 0) doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1])) end end end end end local function speed(params) if isCreature(params.cid) then if isCreature(getCreatureSummons(params.cid)[1]) then if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(cid)[1])) end end end end doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", let me ride you!", 1) exhaustion.set(cid, etudao, 4) if getPlayerGroupId(cid) >= 2 and getPlayerGroupId(cid) <= 6 then distanc = 1 else distanc = 0 end local distance = distanc for i=1,12 do addEvent(ride, pokemon[3]*i, {cid = cid, d = distance}) addEvent(speed, ((pokemon[3]*12)+100), {cid = cid}) end return true end ----------------------------- -------- FLY --------- if not isPremium(cid) then doPlayerSendCancel(cid, "Only premium members are allowed to fly.") return true end if getPlayerStorageValue(cid, 17001) >= 1 then setPlayerStorageValue(cid, 17001, 0) if getPlayerGroupId(cid) ~= 6 then setPlayerGroupId(cid, 8) end doCreatureSetLookDir(cid, 2) doChangeSpeed(cid, -(getCreatureSpeed(cid))) if getPlayerGroupId(cid) >= 2 and getPlayerGroupId(cid) <= 7 then doChangeSpeed(cid, 400*getPlayerGroupId(cid)) else doChangeSpeed(cid, 250) end doRemoveCondition(cid, CONDITION_OUTFIT) local item = getPlayerSlotItem(cid, 8) doCreatureSay(cid, "" .. getItemAttribute(item.uid, "poke"):match("This is (.-)'s pokeball.")..", let me get down!", 1) doSummonMonster(cid, getItemAttribute(item.uid, "poke"):match("This is (.-)'s pokeball.")) local pk = getCreatureSummons(cid)[1] registerCreatureEvent(cid, "PlayerPokeDeath") registerCreatureEvent(pk, "DiePoke") registerCreatureEvent(pk, "Exp") setCreatureMaxHealth(pk, (getPlayerStorageValue(cid, 61209))) doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61209))) doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61210))-(getPlayerStorageValue(cid, 61209))) return true end if getPlayerStorageValue(cid, 17000) >= 1 then if isInArray({460, 1022, 1023}, getTileInfo(getThingPos(cid)).itemid) then doPlayerSendCancel(cid, "You can\'t stop flying at this height!") return true end if getTileInfo(getThingPos(cid)).itemid >= 4820 and getTileInfo(getThingPos(cid)).itemid <= 4825 then doPlayerSendCancel(cid, "Você não pode parar de voar na água!") return true end if getPlayerGroupId(cid) ~= 6 then setPlayerGroupId(cid, 8) end doCreatureSetLookDir(cid, 2) setPlayerStorageValue(cid, 17000, 0) doChangeSpeed(cid, -(getCreatureSpeed(cid))) if getPlayerGroupId(cid) >= 2 and getPlayerGroupId(cid) <= 7 then doChangeSpeed(cid, 200*getPlayerGroupId(cid)) else doChangeSpeed(cid, 250) end doRemoveCondition(cid, CONDITION_OUTFIT) local item = getPlayerSlotItem(cid, 8) doCreatureSay(cid, "" .. getItemAttribute(item.uid, "poke"):match("This is (.-)'s pokeball.")..", let me get down!", 1) doSummonMonster(cid, getItemAttribute(item.uid, "poke"):match("This is (.-)'s pokeball.")) local pk = getCreatureSummons(cid)[1] registerCreatureEvent(cid, "PlayerPokeDeath") registerCreatureEvent(pk, "DiePoke") registerCreatureEvent(pk, "Exp") setCreatureMaxHealth(pk, (getPlayerStorageValue(cid, 61209))) doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61209))) doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61210))-(getPlayerStorageValue(cid, 61209))) return true end if getPlayerStorageValue(cid, 17000) <= 0 and getPlayerStorageValue(cid, 17001) <= 0 and isInArray(fly, getCreatureName(getCreatureSummons(cid)[1])) then if getPlayerStorageValue(cid, 17000) <= 0 then local pokemon = flys[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType] local function fly(params) if isCreature(params.cid) then if isCreature(getCreatureSummons(params.cid)[1]) then if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(cid)) <= params.dd then doPlayerSendTextMessage(cid,27, "Tipo \"up\" ou \"h1\" para voar para cima e \"down\" ou \"h2\" para voar pra baixo." ) setPlayerStorageValue(cid, 61209, getCreatureMaxHealth(getCreatureSummons(cid)[1])) setPlayerStorageValue(cid, 61210, getCreatureHealth(getCreatureSummons(cid)[1])) setPlayerStorageValue(cid, 17000, 1) registerCreatureEvent(cid, "Flying") doChangeSpeed(cid, -250) doChangeSpeed(cid, pokemon[2]) exhaustion.set(cid, etudao, 4) doSetCreatureOutfit(cid, {lookType = pokemon[1], lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, -1) doRemoveCreature(getCreatureSummons(cid)[1]) else dir = getDirectionTo(getThingPos(getCreatureSummons(params.cid)[1]), getThingPos(params.cid)) if dir == NORTHWEST then if math.random(1,100) >= 51 then dir = NORTH else dir = WEST end elseif dir == SOUTHWEST then if math.random(1,100) >= 51 then dir = SOUTH else dir = WEST end elseif dir == SOUTHEAST then if math.random(1,100) >= 51 then dir = SOUTH else dir = EAST end elseif dir == NORTHEAST then if math.random(1,100) >= 51 then dir = NORTH else dir = EAST end end local dir = dir if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(cid)[1])) doPushCreature(getCreatureSummons(params.cid)[1], dir, 1, 0) doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1])) else doPushCreature(getCreatureSummons(params.cid)[1], dir, 1, 0) doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1])) end end end end end local function speed(params) if isCreature(params.cid) then if isCreature(getCreatureSummons(params.cid)[1]) then if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 then doChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(cid)[1])) end end end end doCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", Vamo voar!", 1) exhaustion.set(cid, etudao, 4) if getPlayerGroupId(cid) >= 2 and getPlayerGroupId(cid) <= 6 then distancc = 1 else distancc = 0 end local distancee = distancc for i=1,12 do addEvent(fly, pokemon[3]*i, {cid = cid, dd = distancee}) addEvent(speed, ((pokemon[3]*12)+100), {cid = cid}) end return true end return true end end ----------------------------- -------- ROCK SMASH --------- if item2.itemid == 1285 and isInArray(systems["rock smash"], getCreatureName(getCreatureSummons(cid)[1])) then if getMarkedPos(getCreatureSummons(cid)[1]).x == topos.x and getMarkedPos(getCreatureSummons(cid)[1]).y == topos.y then return true end markPos(getCreatureSummons(cid)[1], topos) markOwnerPos(getCreatureSummons(cid)[1], getThingPos(cid)) doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", rock smash!", 1) addEvent(goThere, 500, getCreatureSummons(cid)[1], topos, "rock smash", isCreature(getCreatureTarget(cid))) return true end ----------------------------- -------- CUT ---------------- if item2.itemid == 2767 and isInArray(systems["cut"], getCreatureName(getCreatureSummons(cid)[1])) then if getMarkedPos(getCreatureSummons(cid)[1]).x == topos.x and getMarkedPos(getCreatureSummons(cid)[1]).y == topos.y then return true end markPos(getCreatureSummons(cid)[1], topos) markOwnerPos(getCreatureSummons(cid)[1], getThingPos(cid)) doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", cut this!", 1) addEvent(goThere, 500, getCreatureSummons(cid)[1], topos, "cut", isCreature(getCreatureTarget(cid))) return true end ----------------------------- -------- DIG ---------------- if isInArray(systems["digholes"], item2.itemid) and isInArray(systems["dig"], getCreatureName(getCreatureSummons(cid)[1])) then if getMarkedPos(getCreatureSummons(cid)[1]).x == topos.x and getMarkedPos(getCreatureSummons(cid)[1]).y == topos.y then return true end markPos(getCreatureSummons(cid)[1], topos) markOwnerPos(getCreatureSummons(cid)[1], getThingPos(cid)) doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", open that hole!", 1) addEvent(goThere, 500, getCreatureSummons(cid)[1], topos, "dig", isCreature(getCreatureTarget(cid))) return true end ----------------------------- -------- BLINK ---------------- if #getCreatureSummons(cid) == 0 and getPlayerStorageValue(cid, 63215) <= 0 and getPlayerStorageValue(cid, 17000) <= 0 then doPlayerSendCancel(cid, "You need a pokemon to use order.") return true end if not isMonster(item2.uid) and getPlayerStorageValue(cid, 63215) <= 0 and getPlayerStorageValue(cid, 17000) <= 0 then if isInArray(blink, getCreatureName(getCreatureSummons(cid)[1])) then if exhaustion.get(cid, exhaustblink) then doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", move!", 1) doChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1])) addEvent(goThere, 500, getCreatureSummons(cid)[1], topos, "move", isCreature(getCreatureTarget(cid))) if getMarkedPos(getCreatureSummons(cid)[1]).x == topos.x and getMarkedPos(getCreatureSummons(cid)[1]).y == topos.y then return true end markPos(getCreatureSummons(cid)[1], topos) markOwnerPos(getCreatureSummons(cid)[1], getThingPos(cid)) addEvent(goThere, 500, getCreatureSummons(cid)[1], topos) else if not isWalkable(topos, cid, 0, 0) then doPlayerSendCancel(cid, "Your pokemon cannot teleport there.") return true end if getItemName(item2.uid) == "shallow water" then doPlayerSendCancel(cid, "Your pokemon cannot teleport there.") return true end addEvent(goThere, 500, getCreatureSummons(cid)[1], topos, "move", isCreature(getCreatureTarget(cid))) doSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), topos, 39) doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 211) doTeleportThing(getCreatureSummons(cid)[1], topos, false) doSendMagicEffect(topos, 134) doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", teleport there!", 1) doCreatureSay(getCreatureSummons(cid)[1], "BLINK!", TALKTYPE_MONSTER) addEvent(goThere, 500, getCreatureSummons(cid)[1], topos, "move", isCreature(getCreatureTarget(cid))) exhaustion.set(cid, exhaustblink, cdblink) addEvent(goThere, 500, getCreatureSummons(cid)[1], topos, "move", isCreature(getCreatureTarget(cid))) return true end return true end end ----------------------------- -------- LIGHT ---------------- if isCreature(item2.uid) and getCreatureMaster(item2.uid) == cid and getPlayerStorageValue(cid, 63215) <= 0 and getPlayerStorageValue(cid, 17000) <= 0 and item2.uid ~= cid then if not isInArray(light, getCreatureName(getCreatureSummons(cid)[1])) then doPlayerSendCancel(cid, "This pokemon can't use flash.") return true end if isInArray(light, getCreatureName(getCreatureSummons(cid)[1])) then if not isMonster(item2.uid) and getCreatureMaster(item2.uid) ~= cid then return doPlayerSendCancel(cid,"Please use flash on your pokemon.") end if exhaustion.get(cid, exhautStorage) then doPlayerSendCancel(cid,"Please wait a few seconds before using flash again!") return true end exhaustion.set(cid, exhautStorage, cd) doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use flash!", 1) doCreatureSay(getCreatureSummons(cid)[1], "LIGHT!", TALKTYPE_MONSTER) doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 28) doSetCreatureLight(getCreatureSummons(cid)[1], 8, 215, time*1000) return true end end ----------------------------- -------- MOVE --------- if getMarkedPos(getCreatureSummons(cid)[1]).x == topos.x and getMarkedPos(getCreatureSummons(cid)[1]).y == topos.y then return true end markPos(getCreatureSummons(cid)[1], topos) markOwnerPos(getCreatureSummons(cid)[1], getThingPos(cid)) doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", move!", 1) addEvent(goThere, 500, getCreatureSummons(cid)[1], topos, "move", isCreature(getCreatureTarget(cid))) return true end ----------------------------- Surf Cancel function onStepIn(cid, item, position, fromPosition) if getPlayerStorageValue(cid, 17000) >= 1 then return true end if getPlayerStorageValue(cid, 63215) >= 1 then doChangeSpeed(cid, -(getCreatureSpeed(cid))) doChangeSpeed(cid, 250) doRemoveCondition(cid, CONDITION_OUTFIT) setPlayerStorageValue(cid, 63215, 0) local item = getPlayerSlotItem(cid, 8) doCreatureSay(cid, "" .. getItemAttribute(item.uid, "poke"):match("This is (.-)'s pokeball.")..", Im tired of surfing!", 1) pk = doSummonCreature(getItemAttribute(item.uid, "poke"):match("This is (.-)'s pokeball."), getCreaturePosition(cid)) doConvinceCreature(cid, pk) registerCreatureEvent(pk, "DiePoke") registerCreatureEvent(pk, "Exp") setCreatureMaxHealth(pk, (getPlayerStorageValue(cid, 61209))) doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61209))) doCreatureAddHealth(pk, (getPlayerStorageValue(cid, 61210))-(getPlayerStorageValue(cid, 61209))) return true end end Codigo do teleport quando acabar premium pos = {x = 1054, y = 1050, z = 7} -- POS que o player será teleportado. local outfit_male = {lookType = 159, lookHead = 20, lookBody = 30, lookLegs = 004, lookFeet = 50, lookTypeEx = 0,} local outfit_female = {lookType = 160, lookHead = 20, lookBody = 30, lookLegs = 004, lookFeet = 50, lookTypeEx = 0,} local time = 20 if getPlayerStorageValue(cid, 20500) == 2 and getPlayerPremiumDays(cid) == 0 then setPlayerStorageValue(cid, 20500, 1) if getPlayerStorageValue(cid, 20500) == 1 then doTeleportThing(cid, pos) doPlayerSetTown(cid, 1) doPlayerPopupFYI(cid, "Sua premium account acabou você foi teleportado pra um templo Free.") setPlayerStorageValue(cid, 20500, -1) end end Se alguem souber... Agradesço muito!

Muito bom, funcionou aqui. Porém tenho uma duvida. Quando o pagamente é finalizado, O pontos são adicionados automáticamente ou o ADM tem que add? O Nome do char aparece na transação do PagSeguro? ---- edit --- Outro bug que encontrei foi que quando o player compra o ITEM na loja, esse item não chega para o player! Alguem sabe resolver?

Alguem teria um npc para esse sistema?

Funcionou perfeito aki... Só não consegui fazer o catch e go/back funcionar toda vez que eu solto o pokemon da poke bola, ele sai com um sexo diferente! poderia explicar melhor como fazer isso? Vlw rep+

Utilizei esse sistema que você postou Gender System. Porém não conseguir fazer para o summon gravar o sexo do catch... Toda vez que eu solto o pokemon ele sai com sexo diferente. Teria como você criar um tuto pra ajudar? acredito que irá ajudar muita gente.