Benny 735 Postado Setembro 28, 2013 Share Postado Setembro 28, 2013 Manow como eu acho umas systens pra esse server? Como voce ta conseguindo inplementar sistemas nesse ot? Ja procurei na xtibia nao achei nada de 9.6 me ajuda ai como voce faz porfavor '-' Acha um serve de pokemon e joga tudo que tiver nele dentro do seu ot é assim que eles andam as coisas aki fazem coisas que nen sabe. Puff. Nem acredito que já fiz parte de uma equipe com você. NO MINIMO, você deveria parar d fazer coisas com bases antes de vir criticar, tendes? Nada mais. Link para o comentário Compartilhar em outros sites More sharing options...
kttallan 318 Postado Setembro 28, 2013 Share Postado Setembro 28, 2013 Manow como eu acho umas systens pra esse server? Como voce ta conseguindo inplementar sistemas nesse ot? Ja procurei na xtibia nao achei nada de 9.6 me ajuda ai como voce faz porfavor '-' Acha um serve de pokemon e joga tudo que tiver nele dentro do seu ot é assim que eles andam as coisas aki fazem coisas que nen sabe. Puff. Nem acredito que já fiz parte de uma equipe com você. NO MINIMO, você deveria parar d fazer coisas com bases antes de vir criticar, tendes? Nada mais. Só nem eu acredito que fiz com você tu e esperto de mais só quero ver como vai ficar esse ot 9.6 Base não trabalho com nenhum serve base conhecido agora é próprio o serve sem PDA é tals ate agora vocês nessa enrolação toda só botaram races é ta botando combate é quando vir botar catch , goback é tals so quero ver. não quero discutir mais sobre esse assunto dps vem o moderador dizendo reportado por ter arrumado intriga mais na verdade quem recomeçou foi você eu e o carinha já tínhamos parado Parei De Descutir. @Vamo Pokeb Quero Ver Novos "Sistemas" Link para o comentário Compartilhar em outros sites More sharing options...
Benny 735 Postado Setembro 28, 2013 Share Postado Setembro 28, 2013 Manow como eu acho umas systens pra esse server? Como voce ta conseguindo inplementar sistemas nesse ot? Ja procurei na xtibia nao achei nada de 9.6 me ajuda ai como voce faz porfavor '-' Acha um serve de pokemon e joga tudo que tiver nele dentro do seu ot é assim que eles andam as coisas aki fazem coisas que nen sabe. Puff. Nem acredito que já fiz parte de uma equipe com você. NO MINIMO, você deveria parar d fazer coisas com bases antes de vir criticar, tendes? Nada mais. Só nem eu acredito que fiz com você tu e esperto de mais só quero ver como vai ficar esse ot 9.6 Base não trabalho com nenhum serve base conhecido agora é próprio o serve sem PDA é tals ate agora vocês nessa enrolação toda só botaram races é ta botando combate é quando vir botar catch , goback é tals so quero ver. não quero discutir mais sobre esse assunto dps vem o moderador dizendo reportado por ter arrumado intriga mais na verdade quem recomeçou foi você eu e o carinha já tínhamos parado Parei De Descutir. @Vamo Pokeb Quero Ver Novos "Sistemas" Isso não é intriga. Estamos discutindo sobre o servidor. Você NUNCA deixou de usar bases, ou outros.. mandava,mandava,mandava, todos os membros da equipe trabalhando duro e você lá, zuando e tal. O servidor pode até não ter sistemas novos, mas fazer o que, estamos tentando. Então antes de criticar, melhore. Link para o comentário Compartilhar em outros sites More sharing options...
Daniel Bighouse 31 Postado Setembro 29, 2013 Autor Share Postado Setembro 29, 2013 kttallan Combat esta sendo colocado, Catch e go/back ja tem um funcionando em testes. Script modificado de um poketibia mais antigo - porém funciona-. Só não foi postado ainda pra download pois queremos ter uma atualização com um pouco mais de coisas. E não é você que vai dizer se vamos conseguir ou não. Obrigado pela atenção. Link para o comentário Compartilhar em outros sites More sharing options...
MarcoTheFenix 4 Postado Setembro 29, 2013 Share Postado Setembro 29, 2013 Bom, achei uma ótima iniciativa, um server de pokemon no 9.60 é realmente inovador.. Porém acho que 500 links de download e 0 links de Scan não é nada legal. O carinha sarna... Os download meus não tem vírus no máximo alguma dll vai falar alguma coisa dependendo do anti-vírus. já estou dando o server + cliente + sources e ainda ficam reclamando... não seja por isso eu tiro tudo e ninguém fica com um server 9.60 de poketibia Não perguntei se tem vírus ou não como você pode ver, ou ao menos reclamei, apenas disse que não é legal, leia meu post novamente. Eu não vou fazer uso desse server, por isso não cheguei a baixar.. Não vou fazer coisas desnecessárias.. "Não seja por isso eu tiro tudo" Nossa.. Seus argumentos são tão bons quanto os da pia do meu banheiro. A partir de agora estarei me retirando deste tópico, grato pela atenção. Link para o comentário Compartilhar em outros sites More sharing options...
lazarocp 67 Postado Setembro 29, 2013 Share Postado Setembro 29, 2013 kttallan Só nem eu acredito que fiz com você tu e esperto de mais só quero ver como vai ficar esse ot 9.6 Base não trabalho com nenhum serve base conhecido agora é próprio o serve sem PDA é tals ate agora vocês nessa enrolação toda só botaram races é ta botando combate é quando vir botar catch , goback é tals so quero ver. não quero discutir mais sobre esse assunto dps vem o moderador dizendo reportado por ter arrumado intriga mais na verdade quem recomeçou foi você eu e o carinha já tínhamos parado Parei De Descutir. @Vamo Pokeb Quero Ver Novos "Sistemas" cara se liga eu to trabalhando nesse serve pus catch goback,fly,ride,surf e varias outras coisas Equipe do pokeb se quiser que passe e só fala! Link para o comentário Compartilhar em outros sites More sharing options...
Daniel Bighouse 31 Postado Setembro 29, 2013 Autor Share Postado Setembro 29, 2013 Lazaro você ta vivo \o/ Estava te procurando semana passada! Te chamarei para conversar assim que eu tiver tempo de mexer no server. Link para o comentário Compartilhar em outros sites More sharing options...
Benny 735 Postado Setembro 29, 2013 Share Postado Setembro 29, 2013 kttallan Só nem eu acredito que fiz com você tu e esperto de mais só quero ver como vai ficar esse ot 9.6 Base não trabalho com nenhum serve base conhecido agora é próprio o serve sem PDA é tals ate agora vocês nessa enrolação toda só botaram races é ta botando combate é quando vir botar catch , goback é tals so quero ver. não quero discutir mais sobre esse assunto dps vem o moderador dizendo reportado por ter arrumado intriga mais na verdade quem recomeçou foi você eu e o carinha já tínhamos parado Parei De Descutir. @Vamo Pokeb Quero Ver Novos "Sistemas" cara se liga eu to trabalhando nesse serve pus catch goback,fly,ride,surf e varias outras coisas Equipe do pokeb se quiser que passe e só fala! Tu pois ? É claro.. ¬¬ Link para o comentário Compartilhar em outros sites More sharing options...
PainUchiha 0 Postado Setembro 29, 2013 Share Postado Setembro 29, 2013 Tipo eu tenho que pega so o do client. Dos outros servers ou da pasta server? Link para o comentário Compartilhar em outros sites More sharing options...
Benny 735 Postado Setembro 29, 2013 Share Postado Setembro 29, 2013 Pegue os últimos links amigo .. Link para o comentário Compartilhar em outros sites More sharing options...
PainUchiha 0 Postado Setembro 29, 2013 Share Postado Setembro 29, 2013 Mais uma cois aqual e a senha do god? Ops pode deixa ja sei a senha e manow percebi que ta sem pokea de começo Link para o comentário Compartilhar em outros sites More sharing options...
lazarocp 67 Postado Setembro 30, 2013 Share Postado Setembro 30, 2013 (editado) Bennyyw Tu pois ? É claro.. ¬¬ e DanielBadhu to meio sem tempo de entrar entãovo postar aqui o sistema de ordem a tag se fa né eu usei o do erondino mas fis alguas ediçoes e funciona 100% no Pokeb menos o Move poke,sabe por para ele se move não ta pegando o resto pega aq sobre o tamanho n lembro como por spoiler local nao = {'4820', '4821', '4822', '4823', '4824', '4825', '1395', '1389', '1391', '1393', '460'}local direction = {'4', '5', '6', '7'}-- rideflylocal ridefly = {'Crystal Onix', 'Venusaur', 'Ninetales', 'Arcanine', 'Ponyta', 'Rapidash', 'Doduo', 'Dodrio', 'Onix', 'Rhyhorn', 'Tauros', 'Girafarig', 'Meganium', 'Stantler', 'Piloswine', 'Mareep', 'Houndoom', 'Bayleef', 'Steelix', 'Shiny Arcanine', 'Shiny Venusaur', 'Porygon', 'Aerodactyl', 'Dragonite', 'Charizard', 'Pidgeot', 'Fearow', 'Zapdos', 'Moltres', 'Articuno', 'Mew', 'Mewtwo', 'Crobat', 'Porygon2', 'Skarmory', 'Dragonair', 'Farfetchd', 'Gengar', 'Heracross', 'Noctowl', 'Xatu', 'Elder Charizard', 'Elite Farfetchd', 'Shiny Gengar', 'Shiny Venomoth'}local ride = {'Crystal Onix', 'Venusaur', 'Ninetales', 'Arcanine', 'Ponyta', 'Rapidash', 'Doduo', 'Dodrio', 'Onix', 'Rhyhorn', 'Tauros', 'Girafarig', 'Meganium', 'Stantler', 'Piloswine', 'Mareep', 'Houndoom', 'Bayleef', 'Steelix', 'Shiny Arcanine', 'Shiny Venusaur'}local fly = {'Porygon', 'Aerodactyl', 'Dragonite', 'Charizard', 'Pidgeot', 'Fearow', 'Zapdos', 'Moltres', 'Articuno', 'Mew', 'Mewtwo', 'Crobat', 'Porygon2', 'Skarmory', 'Dragonair', 'Farfetchd', 'Gengar', 'Heracross', 'Noctowl', 'Xatu', 'Elder Charizard', 'Elite Farfetchd', 'Shiny Gengar', 'Shiny Venomoth'}local flys = {[90] = {182, 5000, 229}, -- moltres[14] = {183, 5000, 239}, -- articuno[199] = {179, 5000, 224}, -- zapdos[88] = {184, 8000, 232}, -- mew[89] = {185, 9000, 233},-- mewtwo[34] = {177, 3000, 221},-- dragonite[107] = {178, 1500, 222}, -- pidgeot[45] = {180, 800, 226}, -- fearow[10] = {181, 3000, 227}, -- aerodactyl[22] = {176, 2000, 216}, -- charizard[97] = {316, 800, 316}, -- porygon[544] = {662, 1500, 662}, -- crobat[593] = {679, 1800, 679}, -- porygon2[604] = {682, 1500, 682}, -- skarmory[61] = {665, 1500, 665}, -- dragonair[57] = {322, 800, 322}, -- farfetchd[244] = {323, 1500, 323}, -- gengar[561] = {324, 1300, 324}, -- heracross[586] = {325, 1300, 325}, -- Noctowl[658] = {326, 1300, 326}, -- Xatu[294] = {295, 3000, 295}, -- Elder charizard[520] = {482, 2500, 482}, -- elite farfetchd[798] = {481, 2500, 481}, -- shiny gengar[484] = {480, 2500, 480}, -- shiny venomoth}local rides = {[139] = {163, 700, 128}, -- tauros[99] = {164, 1000, 129}, -- ninetales[120] = {165, 1000, 130}, -- rapid[115] = {166, 500, 131}, -- ponyta[124] = {167, 600, 132}, -- rhyhorn[88] = {12, 1500, 12}, -- arcan[493] = {492, 2500, 492}, -- shiny arca[496] = {494, 1500, 494}, -- shiny venu[292] = {293, 2500, 293}, -- crystal onix[103] = {162, 700, 126}, -- onix[145] = {169, 1000, 134}, -- venu[31] = {168, 700, 133}, -- dodrio[32] = {170, 500, 135}, -- doduo[558] = {667, 1000, 667}, -- girafarig[581] = {674, 1500, 674}, -- meganium[613] = {684, 1000, 684}, -- stantler[590] = {677, 800, 677}, -- piloswine[579] = {672, 500, 672}, -- mareep[567] = {669, 1000, 669}, -- houndoom[724] = {321, 1500, 321}, -- steelix[536] = {661, 700, 661}, -- bayleef}local bolas = {'2531', '2532', '2224'}local ultra = {'2195', '2523', '2222'}local etudao = 9506local mind = 9507-- ROCK SMASHlocal rocksmash = {'Diglett', 'Geodude', 'Sandsherew', 'Machop', 'Cubone', 'Rhyhorn', 'Dugtrio', 'Graveler', 'Machoke', 'Tauros', 'Onix', 'Primeape', 'Marowak', 'Hitmonlee', 'Hitmonchan', 'Nidoking', 'Nidoqueen', 'Golem', 'Sandslash', 'Rhydon', 'Kangaskhan', 'Electabuzz', 'Snorlax', 'Machamp', 'Wooper', 'Slugma', 'Swinub', 'Phanpy', 'Larvitar', 'Gligar', 'Shuckle', 'Tyrogue', 'Elekid', 'Corsola', 'Quagsire', 'Magcargo', 'Hitmontop', 'Pupitar', 'Typhlosion', 'Sudowoodo', 'Steelix', 'Scizor', 'Heracross', 'Ursaring', 'Piloswine', 'Donphan', 'Tyranitar', 'Shiny Electabuzz', 'Elite Hitmonchan', 'Elite Hitmonlee', 'Crystal Onix'}local erockmash = 9502local cdrocksmash = 2-- ROCK SMASH-- DIGlocal digholes = {'468', '481', '483'}local dig = {'NidoranMa', 'Diglett', 'Paras', 'Krabby', 'Ekans', 'Geodude', 'Sandsherew', 'Eevee', 'Raticate', 'Growlithe', 'Nidorina', 'Rhyhorn', 'Nidorino', 'Arbok', 'Dugtrio', 'Graveler', 'Kingler', 'Parasect', 'Onix', 'Jolteon', 'Vaporeon', 'Flareon', 'Nidoking', 'Nidoqueen', 'Golem', 'Sandslash', 'Rhydon', 'Arcanine', 'Cyndaquil', 'Sentret', 'Wooper', 'Houndour', 'Phanpy', 'Larvitar', 'Quilava', 'Furret', 'Dunsparce', 'Aipom', 'Espeon', 'Umbreon', 'Quagsire', 'Forretress', 'Pupitar', 'Typhlosion', 'Sudowoodo', 'Steelix', 'Houndoom', 'Donphan', 'Tyranitar', 'NidoranFe', 'Shiny Arcanine', 'Shiny Growlithe', 'Shiny Kingler', 'Shiny Krabby', 'Shiny Paras', 'Shiny Parasect', 'Shiny Raticate', 'Crystal Onix'}local edig = 9504local cddig = 2-- DIG-- CUTlocal cut = {'Oddish', 'Paras', 'Krabby', 'Belssprout', 'Meowth', 'Bulbasaur', 'Sandsherew', 'Kabuto', 'Cubone', 'Gloom', 'Weepinbell', 'Persian', 'Ivysaur', 'Charmeleon', 'Kingler', 'Pinsir', 'Vileplume', 'Parasect', 'Victreebel', 'Tangela', 'Marowak', 'Farfetchd', 'Sandslash', 'Scyther', 'Kabutops', 'Venusaur', 'Charizard', 'Cyndaquil', 'Ledyba', 'Pineco', 'Teddiursa', 'Larvitar', 'Quilava', 'Ledian', 'Aipom', 'Sunflora', 'Gligar', 'Bellossom', 'Yanma', 'Sneasel', 'Pupitar', 'Meganium', 'Typhlosion', 'Sudowoodo', 'Scizor', 'Heracross', 'Ursaring', 'Mantine', 'Skarmory', 'Tyranitar', 'Elder Charizard', 'Elite Farfetchd', 'Shiny Kingler', 'Shiny Krabby', 'Shiny Oddish', 'Shiny Paras', 'Shiny Parasect', 'Shiny Scyther', 'Shiny Venusaur'}local ecut = 9503local cdcut = 2-- CUT-- BLINKlocal blink = {'Abra', 'MrMime', 'Porygon', 'Kadabra', 'Jynx', 'Alakazam', 'Exeggutor', 'Natu', 'Smoochum', 'Espeon', 'Xatu', 'Slowking', 'Porygon2', 'Dark Abra', 'Shiny Jynx'}local exhaustblink = 9501local cdblink = 30-- BLINK-- DARK PORTALlocal darkportal = {'Umbreon', 'Misdreavus'}local exhaustdarkportal = 9501local cddarkportal = 30-- BLINK-- LIGHTlocal light = {'Abra', 'Kadabra', 'Alakazam','Mew', 'Magnemite', 'Magneton', 'Drowzee', 'Hypno', 'Voltorb', 'Electrode', 'Mrmime', 'Electabuzz', 'Jolteon', 'Porygon', 'Pikachu', 'Raichu', 'Elekid', 'Ampharos', 'Flaaffy'}local exhautStorage = 9500local time = 600local cd = 17-- LIGHTfunction onUse(cid, item, frompos, item2, topos)if getPlayerItemCount(cid, item2.itemid) >= 1 thenreturn falseendif isMonster(item2.uid) and item2.uid ~= getCreatureSummons(cid)[1] and item2.uid ~= cid thenif #getCreatureSummons(cid) == 0 thendoPlayerSendCancel(cid, "Você precisa de um pokemon para usar ordem.")return trueendif exhaustion.get(cid, mind) thendoPlayerSendCancel(cid, "Seu pokemon é muito exausto do último controle,espere mais um tempo")return trueendif isPlayer(getCreatureMaster(item2.uid)) thendoPlayerSendCancel(cid, "Você não pode controlar a mente de pokemon de outra pessoa.")return trueendif not isInArray({"Alakazam", "Tentacruel", "Gengar", "Haunter", "Shiny Tentacruel", "Shiny Gengar", "Slowking"}, getCreatureName(getCreatureSummons(cid)[1])) thendoPlayerSendCancel(cid, "Este pokemon nao pode controlar mentes.")return trueendexhaustion.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 thendoChangeSpeed(item2.uid, 180)enddoCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", control "..string.lower(getCreatureName(item2.uid)).."'s mind!", 1)local cmed = item2.uidlocal 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) thenif getPlayerStorageValue(params.cid, 888) <= 0 thenreturn trueendif not isCreature(cmed) thenlocal 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)endif params.rod == 20 thenlocal 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 thendoChangeSpeed(back, 180)enddoCreatureSetLookDir(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)elsedoSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 220)endendendfor rod = 1, 20 doaddEvent(check, rod*500, {cid = cid, rod = rod})endreturn trueendif item2.uid == cid thenif getPlayerStorageValue(cid, 888) >= 1 thendoPlayerSendCancel(cid, "Você não pode voar nem pokemons passeio está sendo controlado.")return trueendif #getCreatureSummons(cid) == 0 and getPlayerStorageValue(cid, 17000) <= 0 and getPlayerStorageValue(cid, 17001) <= 0 thendoPlayerSendCancel(cid, "Você precisa de um pokemon para usar ordem.")return trueendif getPlayerStorageValue(cid, 17000) <= 0 and getPlayerStorageValue(cid, 17001) <= 0 and not isInArray(ridefly, getCreatureName(getCreatureSummons(cid)[1])) thendoPlayerSendCancel(cid, "Você não pode montar este pokemon nem voar com ele.")return trueendif getPlayerStorageValue(cid, 17000) <= 0 and getPlayerStorageValue(cid, 17001) <= 0 and getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 thenreturn trueendif getPlayerStorageValue(cid, 17001) <= 0 and getPlayerStorageValue(cid, 17000) <= 0 and isInArray(ride, getCreatureName(getCreatureSummons(cid)[1])) thenlocal pokemon = rides[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType]if getCreatureSpeed(getCreatureSummons(cid)[1]) >= 1 thendoChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))endlocal function ride(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(cid)) <= params.d thendoChangeSpeed(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])elsedirh = getDirectionTo(getThingPos(getCreatureSummons(params.cid)[1]), getThingPos(params.cid))if dirh == NORTHWEST thenif math.random(1,100) >= 51 thendirh = NORTHelsedirh = WESTendelseif dirh == SOUTHWEST thenif math.random(1,100) >= 51 thendirh = SOUTHelsedirh = WESTendelseif dirh == SOUTHEAST thenif math.random(1,100) >= 51 thendirh = SOUTHelsedirh = EASTendelseif dirh == NORTHEAST thenif math.random(1,100) >= 51 thendirh = NORTHelsedirh = EASTendendlocal dirh = dirhif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thendoChangeSpeed(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]))elsedoPushCreature(getCreatureSummons(params.cid)[1], dirh, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))endendendendendlocal function speed(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thendoChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(cid)[1]))endendendenddoCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", let me ride you!", 1)exhaustion.set(cid, etudao, 4)if getPlayerGroupId(cid) >= 1 and getPlayerGroupId(cid) <= 6 thendistanc = 1elsedistanc = 0endlocal distance = distancfor i=1,12 doaddEvent(ride, pokemon[3]*i, {cid = cid, d = distance})addEvent(speed, ((pokemon[3]*12)+100), {cid = cid})endreturn trueendif getPlayerStorageValue(cid, 17001) >= 1 thensetPlayerStorageValue(cid, 17001, 0)if getPlayerGroupId(cid) ~= 6 thensetPlayerGroupId(cid, 1)enddoCreatureSetLookDir(cid, 2)doChangeSpeed(cid, -(getCreatureSpeed(cid)))if getPlayerGroupId(cid) >= 1 and getPlayerGroupId(cid) <= 6 thendoChangeSpeed(cid, 400*getPlayerGroupId(cid))elsedoChangeSpeed(cid, 250)enddoRemoveCondition(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 trueendif getPlayerStorageValue(cid, 17000) >= 1 thenif isInArray({460, 1022, 1023}, getTileInfo(getThingPos(cid)).itemid) thendoPlayerSendCancel(cid, "Você não pode parar de voar nesta altura!")return trueendif getTileInfo(getThingPos(cid)).itemid >= 4820 and getTileInfo(getThingPos(cid)).itemid <= 4825 thendoPlayerSendCancel(cid, "Você não pode parar de voar acima da água!")return trueendif getPlayerGroupId(cid) ~= 6 thensetPlayerGroupId(cid, 1)enddoCreatureSetLookDir(cid, 2)setPlayerStorageValue(cid, 17000, 0)doChangeSpeed(cid, -(getCreatureSpeed(cid)))if getPlayerGroupId(cid) >= 1 and getPlayerGroupId(cid) <= 6 thendoChangeSpeed(cid, 200*getPlayerGroupId(cid))elsedoChangeSpeed(cid, 250)enddoRemoveCondition(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 trueendif getPlayerStorageValue(cid, 17000) <= 0 and getPlayerStorageValue(cid, 17001) <= 0 and isInArray(fly, getCreatureName(getCreatureSummons(cid)[1])) thenif getPlayerStorageValue(cid, 17000) <= 0 thenlocal pokemon = flys[getCreatureOutfit(getCreatureSummons(cid)[1]).lookType]local function fly(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(cid)) <= params.dd thendoPlayerSendTextMessage(cid,27, "Type \"up\" or \"h1\" to fly higher and \"down\" or \"h2\" to fly lower." )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])elsedir = getDirectionTo(getThingPos(getCreatureSummons(params.cid)[1]), getThingPos(params.cid))if dir == NORTHWEST thenif math.random(1,100) >= 51 thendir = NORTHelsedir = WESTendelseif dir == SOUTHWEST thenif math.random(1,100) >= 51 thendir = SOUTHelsedir = WESTendelseif dir == SOUTHEAST thenif math.random(1,100) >= 51 thendir = SOUTHelsedir = EASTendelseif dir == NORTHEAST thenif math.random(1,100) >= 51 thendir = NORTHelsedir = EASTendendlocal dir = dirif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thendoChangeSpeed(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]))elsedoPushCreature(getCreatureSummons(params.cid)[1], dir, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))endendendendendlocal function speed(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thendoChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(cid)[1]))endendendenddoCreatureSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", lets fly!", 1)exhaustion.set(cid, etudao, 4)if getPlayerGroupId(cid) >= 1 and getPlayerGroupId(cid) <= 6 thendistancc = 1elsedistancc = 0endlocal distancee = distanccfor i=1,12 doaddEvent(fly, pokemon[3]*i, {cid = cid, dd = distancee})addEvent(speed, ((pokemon[3]*12)+100), {cid = cid})endreturn trueendreturn trueendend-- ROCK SMASHif item2.itemid == 1285 and getPlayerStorageValue(cid, 63215) <= 0 thenif #getCreatureSummons(cid) == 0 thendoPlayerSendCancel(cid, "Você precisa de um pokemon de usar Rock Smash.")return trueendif not isInArray(rocksmash, getCreatureName(getCreatureSummons(cid)[1])) thendoPlayerSendCancel(cid, "Este pokemon não pode usar Rock Smash.")return trueendif isInArray(rocksmash, getCreatureName(getCreatureSummons(cid)[1])) thenif exhaustion.get(cid, erocksmash) thendoPlayerSendCancel(cid, "Por favor, aguarde alguns segundos antes de usar Rock Smash novamente!")return trueendif getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 thenreturn trueenddoChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))local function tocut(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getCreatureSpeed(getCreatureSummons(params.cid)[1]) >= 1 thenreturn trueendif getPlayerStorageValue(getCreatureSummons(params.cid)[1], 100) >= 1 thenreturn trueendif getDistanceBetween(getThingPos(getCreatureSummons(params.cid)[1]), topos) == 1 thendoSendMagicEffect(topos, 118)doTransformItem(getTileItemById(topos, 1285).uid, 2257)exhaustion.set(cid, erocksmash, cdrocksmash)setPlayerStorageValue(getCreatureSummons(params.cid)[1], 100, 1)local function detrans(params)doTransformItem(getTileItemById(topos, 2257).uid, 1285)if isCreature(getCreatureSummons(params.ciddd)[1]) thensetPlayerStorageValue(getCreatureSummons(params.ciddd)[1], 100, 0)endendaddEvent(detrans, 5500, {ciddd = cid})doCreatureSay(getCreatureSummons(cid)[1], "ROCK SMASH!", TALKTYPE_MONSTER)local function nmr(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thendoChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))endendendendaddEvent(nmr, 400, {cid = cid})elselocal badire = getDirectionTo(getThingPos(getCreatureSummons(cid)[1]), topos)if badire == NORTHWEST thenif math.random(1,100) >= 51 thenbadire = NORTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) thenbadire = NORTHelsebadire = WESTendelsebadire = WESTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) thenbadire = WESTelsebadire = NORTHendendelseif badire == SOUTHWEST thenif math.random(1,100) >= 51 thenbadire = SOUTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) thenbadire = SOUTHelsebadire = WESTendelsebadire = WESTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) thenbadire = WESTelsebadire = SOUTHendendelseif badire == SOUTHEAST thenif math.random(1,100) >= 51 thenbadire = SOUTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) thenbadire = SOUTHelsebadire = EASTendelsebadire = EASTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) thenbadire = EASTelsebadire = SOUTHendendelseif badire == NORTHEAST thenif math.random(1,100) >= 51 thenbadire = NORTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) thenbadire = NORTHelsebadire = EASTendelsebadire = EASTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), badire), params.ccid, 0, 0) thenbadire = EASTelsebadire = NORTHendendendlocal badire = badireif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thendoChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))doPushCreature(getCreatureSummons(params.cid)[1], badire, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))elsedoPushCreature(getCreatureSummons(params.cid)[1], badire, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))endendendendenddoPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", esmagar esse rock!", 1)local speed = getCreatureBaseSpeed(getCreatureSummons(cid)[1])local temk = 1000 -(2.3 * speed)addEvent(tocut, 0, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = topos})for i = 1, getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), topos) * 2 doaddEvent(tocut, temk*i, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = topos})endreturn trueendend-- ROCK SMASH END-- CUTif item2.itemid == 2767 and getPlayerStorageValue(cid, 63215) <= 0 thenif #getCreatureSummons(cid) == 0 thendoPlayerSendCancel(cid, "Você precisa de um pokemon usar corte.")return trueendif not isInArray(cut, getCreatureName(getCreatureSummons(cid)[1])) thendoPlayerSendCancel(cid, "Este pokemon não pode usar corte.")return trueendif isInArray(cut, getCreatureName(getCreatureSummons(cid)[1])) thenif exhaustion.get(cid, ecut) thendoPlayerSendCancel(cid, "Por favor, aguarde alguns segundos antes de usar o corte de novo!")return trueendif getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 thenreturn trueenddoChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))local function tocut(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getCreatureSpeed(getCreatureSummons(params.cid)[1]) >= 1 thenreturn trueendif getPlayerStorageValue(getCreatureSummons(params.cid)[1], 101) >= 1 thenreturn trueendif getDistanceBetween(getThingPos(getCreatureSummons(params.cid)[1]), topos) == 1 thendoSendMagicEffect(topos, 141)doTransformItem(getTileItemById(topos, 2767).uid, 6216)exhaustion.set(cid, ecut, cdcut)setPlayerStorageValue(getCreatureSummons(params.cid)[1], 101, 1)local function detrans(params)doTransformItem(getTileItemById(topos, 6216).uid, 2767)if isCreature(getCreatureSummons(params.ciddd)[1]) thensetPlayerStorageValue(getCreatureSummons(params.ciddd)[1], 101, 0)endendaddEvent(detrans, 5500, {ciddd = cid})doCreatureSay(getCreatureSummons(cid)[1], "CUT!", TALKTYPE_MONSTER)local function nmr(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thendoChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))endendendendaddEvent(nmr, 400, {cid = cid})elseadire = getDirectionTo(getThingPos(getCreatureSummons(cid)[1]), topos)if adire == NORTHWEST thenif math.random(1,100) >= 51 thenadire = NORTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) thenadire = NORTHelseadire = WESTendelseadire = WESTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) thenadire = WESTelseadire = NORTHendendelseif adire == SOUTHWEST thenif math.random(1,100) >= 51 thenadire = SOUTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) thenadire = SOUTHelseadire = WESTendelseadire = WESTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) thenadire = WESTelseadire = SOUTHendendelseif adire == SOUTHEAST thenif math.random(1,100) >= 51 thenadire = SOUTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) thenadire = SOUTHelseadire = EASTendelseadire = EASTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) thenadire = EASTelseadire = SOUTHendendelseif adire == NORTHEAST thenif math.random(1,100) >= 51 thenadire = NORTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) thenadire = NORTHelseadire = EASTendelseadire = EASTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), adire), params.ccid, 0, 0) thenadire = EASTelseadire = NORTHendendendlocal adire = adireif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thendoChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))doPushCreature(getCreatureSummons(params.cid)[1], adire, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))elsedoPushCreature(getCreatureSummons(params.cid)[1], adire, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))endendendendenddoPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", cortar esse mato!", 1)local speed = getCreatureBaseSpeed(getCreatureSummons(cid)[1])temk = 1000 -(2.3 * speed)addEvent(tocut, 0, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = topos})for i = 1, getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), topos) * 2 doaddEvent(tocut, temk*i, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = topos})endreturn trueendend-- CUT END-- DIGif isInArray(digholes, item2.itemid) and getPlayerStorageValue(cid, 63215) <= 0 thenif #getCreatureSummons(cid) == 0 thendoPlayerSendCancel(cid, "Você precisa de um pokemon usar dig.")return trueendif not isInArray(dig, getCreatureName(getCreatureSummons(cid)[1])) thendoPlayerSendCancel(cid, "Este pokemon não pode usar dig.")return trueendif isInArray(dig, getCreatureName(getCreatureSummons(cid)[1])) thenif exhaustion.get(cid, edig) thendoPlayerSendCancel(cid, "Por favor, aguarde alguns segundos antes de usar dig de novo!")return trueendif getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 thenreturn trueenddoChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))local function tocut(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getCreatureSpeed(getCreatureSummons(params.cid)[1]) >= 1 thenreturn trueendif getPlayerStorageValue(getCreatureSummons(params.cid)[1], 99) >= 1 thenreturn trueendif getDistanceBetween(getThingPos(getCreatureSummons(params.cid)[1]), topos) == 1 thendoSendMagicEffect(topos, 3)setPlayerStorageValue(getCreatureSummons(params.cid)[1], 99, 1)doTransformItem(getTileItemById(topos, item2.itemid).uid, item2.itemid+1)exhaustion.set(cid, edig, cddig)local function detrans(params)doTransformItem(getTileItemById(topos, item2.itemid+1).uid, item2.itemid)if isCreature(getCreatureSummons(params.ciddd)[1]) thensetPlayerStorageValue(getCreatureSummons(params.ciddd)[1], 99, 0)endendaddEvent(detrans, 5500, {ciddd = cid})doCreatureSay(getCreatureSummons(cid)[1], "DIG!", TALKTYPE_MONSTER)local function nmr(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thendoChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))endendendendaddEvent(nmr, 400, {cid = cid})elselocal cdire = getDirectionTo(getThingPos(getCreatureSummons(cid)[1]), topos)if cdire == NORTHWEST thenif math.random(1,100) >= 51 thencdire = NORTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) thencdire = NORTHelsecdire = WESTendelsecdire = WESTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) thencdire = WESTelsecdire = NORTHendendelseif cdire == SOUTHWEST thenif math.random(1,100) >= 51 thencdire = SOUTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) thencdire = SOUTHelsecdire = WESTendelsecdire = WESTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) thencdire = WESTelsecdire = SOUTHendendelseif cdire == SOUTHEAST thenif math.random(1,100) >= 51 thencdire = SOUTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) thencdire = SOUTHelsecdire = EASTendelsecdire = EASTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) thencdire = EASTelsecdire = SOUTHendendelseif cdire == NORTHEAST thenif math.random(1,100) >= 51 thencdire = NORTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) thencdire = NORTHelsecdire = EASTendelsecdire = EASTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), cdire), params.ccid, 0, 0) thencdire = EASTelsecdire = NORTHendendendlocal cdire = cdireif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thendoChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))doPushCreature(getCreatureSummons(params.cid)[1], cdire, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))elsedoPushCreature(getCreatureSummons(params.cid)[1], cdire, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))endendendendenddoPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", abrir este buraco!", 1)local speed = getCreatureBaseSpeed(getCreatureSummons(cid)[1])temk = 1000 -(2.3 * speed)addEvent(tocut, 0, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = topos})for i = 1, getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), topos) * 2 doaddEvent(tocut, temk*i, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = topos})endreturn trueendend-- DIG END-- BLINKif #getCreatureSummons(cid) == 0 and getPlayerStorageValue(cid, 63215) <= 0 and getPlayerStorageValue(cid, 17000) <= 0 thendoPlayerSendCancel(cid, "Você precisa de um pokemon para usar ordem.")return trueendif not isMonster(item2.uid) and getPlayerStorageValue(cid, 63215) <= 0 and getPlayerStorageValue(cid, 17000) <= 0 thenif isInArray(blink, getCreatureName(getCreatureSummons(cid)[1])) thenif exhaustion.get(cid, exhaustblink) thenif getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 thendoPlayerSendCancel(cid, "Você não pode encomendar o seu pokemon para se mover agora.")return trueenddoPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", move!", 1)doChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))setPlayerStorageValue(getCreatureSummons(cid)[1], 12, 1)local function move(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getPlayerStorageValue(getCreatureSummons(params.cid)[1], 12) == 0 thenreturn trueendif getDistanceBetween(getThingPos(getCreatureSummons(params.cid)[1]), topos) == 0 thenif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thenlocal function speeed(params)if isCreature(params.sum) thenif getCreatureSpeed(params.sum) == 0 thendoChangeSpeed(params.sum, getCreatureBaseSpeed(params.sum))endendendaddEvent(speeed, 600, {sum = getCreatureSummons(params.cid)[1]})endsetPlayerStorageValue(getCreatureSummons(params.cid)[1], 12, 0)return trueendlocal edire = getDirectionTo(getThingPos(getCreatureSummons(cid)[1]), params.topos)if edire >= 0 and edire <= 7 thenif edire == NORTHWEST thenif math.random(1,100) >= 51 thenedire = NORTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = NORTHelseedire = WESTendelseedire = WESTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = WESTelseedire = NORTHendendelseif edire == SOUTHWEST thenif math.random(1,100) >= 51 thenedire = SOUTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = SOUTHelseedire = WESTendelseedire = WESTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = WESTelseedire = SOUTHendendelseif edire == SOUTHEAST thenif math.random(1,100) >= 51 thenedire = SOUTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = SOUTHelseedire = EASTendelseedire = EASTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = EASTelseedire = SOUTHendendelseif edire == NORTHEAST thenif math.random(1,100) >= 51 thenedire = NORTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = NORTHelseedire = EASTendelseedire = EASTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = EASTelseedire = NORTHendendendlocal edire = edireif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thendoChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))doPushCreature(getCreatureSummons(params.cid)[1], edire, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))elsedoPushCreature(getCreatureSummons(params.cid)[1], edire, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))endendendendendlocal function voltarnormal(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thenlocal function speeed(params)if isCreature(params.sum) thendoChangeSpeed(params.sum, getCreatureBaseSpeed(params.sum))endendaddEvent(speeed, 0, {sum = getCreatureSummons(params.cid)[1]})endsetPlayerStorageValue(getCreatureSummons(params.cid)[1], 12, 0)endendendlocal pois = getThingPos(item2.uid)local speed = getCreatureBaseSpeed(getCreatureSummons(cid)[1])local temk = 1000 -(2.3 * speed)local SumPos = getThingPos(getCreatureSummons(cid)[1])local travelx = math.abs((topos.x) - (SumPos.x))local travely = math.abs((topos.y) - (SumPos.y))local travel = ((travelx) + (travely))addEvent(move, 0, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = pois, item2 = item2.uid})for i = 1, travel doaddEvent(move, temk*i, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = pois, item2 = item2.uid})endaddEvent(voltarnormal, temk * travel, {cid = cid})exhaustion.set(cid, etudao, travel)elseif not isWalkable(topos, cid, 0, 0) thendoPlayerSendCancel(cid, "Seu pokemon não pode teleport lá.")return trueendif getItemName(item2.uid) == "shallow water" thendoPlayerSendCancel(cid, "Seu pokemon não pode teleport lá.")return trueenddoSendDistanceShoot(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)exhaustion.set(cid, exhaustblink, cdblink)return trueendreturn trueendend--- BLINK END-- DARK PORTALif #getCreatureSummons(cid) == 0 and getPlayerStorageValue(cid, 63215) <= 0 and getPlayerStorageValue(cid, 17000) <= 0 thendoPlayerSendCancel(cid, "Você precisa de um pokemon para usar ordem.")return trueendif not isMonster(item2.uid) and getPlayerStorageValue(cid, 63215) <= 0 and getPlayerStorageValue(cid, 17000) <= 0 thenif isInArray(darkportal, getCreatureName(getCreatureSummons(cid)[1])) thenif exhaustion.get(cid, exhaustdarkportal) thenif getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 thendoPlayerSendCancel(cid, "Você não pode encomendar o seu pokemon para se mover agora.")return trueenddoPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", move!", 1)doChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))setPlayerStorageValue(getCreatureSummons(cid)[1], 12, 1)local function move(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getPlayerStorageValue(getCreatureSummons(params.cid)[1], 12) == 0 thenreturn trueendif getDistanceBetween(getThingPos(getCreatureSummons(params.cid)[1]), topos) == 0 thenif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thenlocal function speeed(params)if isCreature(params.sum) thenif getCreatureSpeed(params.sum) == 0 thendoChangeSpeed(params.sum, getCreatureBaseSpeed(params.sum))endendendaddEvent(speeed, 600, {sum = getCreatureSummons(params.cid)[1]})endsetPlayerStorageValue(getCreatureSummons(params.cid)[1], 12, 0)return trueendlocal edire = getDirectionTo(getThingPos(getCreatureSummons(cid)[1]), params.topos)if edire >= 0 and edire <= 7 thenif edire == NORTHWEST thenif math.random(1,100) >= 51 thenedire = NORTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = NORTHelseedire = WESTendelseedire = WESTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = WESTelseedire = NORTHendendelseif edire == SOUTHWEST thenif math.random(1,100) >= 51 thenedire = SOUTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = SOUTHelseedire = WESTendelseedire = WESTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = WESTelseedire = SOUTHendendelseif edire == SOUTHEAST thenif math.random(1,100) >= 51 thenedire = SOUTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = SOUTHelseedire = EASTendelseedire = EASTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = EASTelseedire = SOUTHendendelseif edire == NORTHEAST thenif math.random(1,100) >= 51 thenedire = NORTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = NORTHelseedire = EASTendelseedire = EASTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), edire), params.ccid, 0, 0) thenedire = EASTelseedire = NORTHendendendlocal edire = edireif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thendoChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))doPushCreature(getCreatureSummons(params.cid)[1], edire, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))elsedoPushCreature(getCreatureSummons(params.cid)[1], edire, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))endendendendendlocal function voltarnormal(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thenlocal function speeed(params)if isCreature(params.sum) thendoChangeSpeed(params.sum, getCreatureBaseSpeed(params.sum))endendaddEvent(speeed, 0, {sum = getCreatureSummons(params.cid)[1]})endsetPlayerStorageValue(getCreatureSummons(params.cid)[1], 12, 0)endendendlocal pois = getThingPos(item2.uid)local speed = getCreatureBaseSpeed(getCreatureSummons(cid)[1])local temk = 1000 -(2.3 * speed)local SumPos = getThingPos(getCreatureSummons(cid)[1])local travelx = math.abs((topos.x) - (SumPos.x))local travely = math.abs((topos.y) - (SumPos.y))local travel = ((travelx) + (travely))addEvent(move, 0, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = pois, item2 = item2.uid})for i = 1, travel doaddEvent(move, temk*i, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = pois, item2 = item2.uid})endaddEvent(voltarnormal, temk * travel, {cid = cid})exhaustion.set(cid, etudao, travel)elseif not isWalkable(topos, cid, 0, 0) thendoPlayerSendCancel(cid, "Seu pokemon não pode da dark portal para lá.")return trueendif getItemName(item2.uid) == "shallow water" thendoPlayerSendCancel(cid, "Seu pokemon não pode da dark portal para lá.")return trueenddoSendDistanceShoot(getThingPos(getCreatureSummons(cid)[1]), topos, 18)doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 211)doTeleportThing(getCreatureSummons(cid)[1], topos, false)doSendMagicEffect(topos, 223)doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", dark portal there!", 1)doCreatureSay(getCreatureSummons(cid)[1], "Dark Portal!", TALKTYPE_MONSTER)exhaustion.set(cid, exhaustdarkportal, cddarkportal)return trueendreturn trueendend--- dark portal 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 thenif not isInArray(light, getCreatureName(getCreatureSummons(cid)[1])) thendoPlayerSendCancel(cid, "Este pokemon não pode usar flash.")return trueendif isInArray(light, getCreatureName(getCreatureSummons(cid)[1])) thenif not isMonster(item2.uid) and getCreatureMaster(item2.uid) ~= cid thenreturn doPlayerSendCancel(cid,"Por favor use flash em seu pokemon.")endif exhaustion.get(cid, exhautStorage) thendoPlayerSendCancel(cid,"Por favor, aguarde alguns segundos antes de usar o flash de novo!")return trueendexhaustion.set(cid, exhautStorage, cd)doPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", use flash!", 1)doCreatureSay(getCreatureSummons(cid)[1], "FLASH!", TALKTYPE_MONSTER)doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 28)doSetCreatureLight(getCreatureSummons(cid)[1], 8, 215, time*1000)return trueendend-- LIGHT END --if #getCreatureSummons(cid) == 0 thenreturn trueendif getCreatureSpeed(getCreatureSummons(cid)[1]) == 0 thendoPlayerSendCancel(cid, "Você não pode encomendar o seu pokemon para se mover agora.")return trueendif getPlayerStorageValue(getCreatureSummons(cid)[1], 12) == 1 thendoPlayerSendCancel(cid, "Você não pode encomendar o seu pokemon para se mover agora.")return trueenddoPlayerSay(cid, ""..getCreatureName(getCreatureSummons(cid)[1])..", move!", 1)doChangeSpeed(getCreatureSummons(cid)[1], -getCreatureSpeed(getCreatureSummons(cid)[1]))setPlayerStorageValue(getCreatureSummons(cid)[1], 12, 1)local function move(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thenif getPlayerStorageValue(getCreatureSummons(params.cid)[1], 12) == 0 thenreturn trueendif getDistanceBetween(getThingPos(getCreatureSummons(params.cid)[1]), topos) == 0 thenif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thenlocal function speeed(params)if isCreature(params.sum) thenif getCreatureSpeed(params.sum) == 0 thendoChangeSpeed(params.sum, getCreatureBaseSpeed(params.sum))endendendaddEvent(speeed, 600, {sum = getCreatureSummons(params.cid)[1]})endsetPlayerStorageValue(getCreatureSummons(params.cid)[1], 12, 0)setPlayerStorageValue(cid, etudao, -1)return trueendlocal dire = getDirectionTo(getThingPos(getCreatureSummons(cid)[1]), params.topos)if dire >= 0 and dire <= 7 thenif dire == NORTHWEST thenif math.random(1,100) >= 51 thendire = NORTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) thendire = NORTHelsedire = WESTendelsedire = WESTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) thendire = WESTelsedire = NORTHendendelseif dire == SOUTHWEST thenif math.random(1,100) >= 51 thendire = SOUTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) thendire = SOUTHelsedire = WESTendelsedire = WESTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) thendire = WESTelsedire = SOUTHendendelseif dire == SOUTHEAST thenif math.random(1,100) >= 51 thendire = SOUTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) thendire = SOUTHelsedire = EASTendelsedire = EASTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) thendire = EASTelsedire = SOUTHendendelseif dire == NORTHEAST thenif math.random(1,100) >= 51 thendire = NORTHif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) thendire = NORTHelsedire = EASTendelsedire = EASTif isWalkable(getPosByDir(getThingPos(getCreatureSummons(params.cid)[1]), dire), params.ccid, 0, 0) thendire = EASTelsedire = NORTHendendendlocal dire = direif getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thendoChangeSpeed(getCreatureSummons(params.cid)[1], getCreatureBaseSpeed(getCreatureSummons(params.cid)[1]))doPushCreature(getCreatureSummons(params.cid)[1], dire, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))elsedoPushCreature(getCreatureSummons(params.cid)[1], dire, 1, 0)doChangeSpeed(getCreatureSummons(params.cid)[1], -getCreatureSpeed(getCreatureSummons(params.cid)[1]))endendendendendlocal function voltarnormal(params)if isCreature(params.cid) thenif isCreature(getCreatureSummons(params.cid)[1]) thensetPlayerStorageValue(cid, etudao, -1)if getCreatureSpeed(getCreatureSummons(params.cid)[1]) == 0 thenlocal function speeed(params)if isCreature(params.sum) thenif getCreatureSpeed(params.sum) == 0 thendoChangeSpeed(params.sum, getCreatureBaseSpeed(params.sum))endendendaddEvent(speeed, 0, {sum = getCreatureSummons(params.cid)[1]})endsetPlayerStorageValue(getCreatureSummons(params.cid)[1], 12, 0)endendendlocal pois = getThingPos(item2.uid)local speed = getCreatureBaseSpeed(getCreatureSummons(cid)[1])local temk = 1000 -(2.3 * speed)local SummonPos = getThingPos(getCreatureSummons(cid)[1])local travelx = math.abs((topos.x) - (SummonPos.x))local travely = math.abs((topos.y) - (SummonPos.y))local travel = ((travelx) + (travely))addEvent(move, 0, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = pois, item2 = item2.uid})for i = 1, travel-1 doaddEvent(move, temk*i, {cid = cid, ccid = getCreatureSummons(cid)[1], topos = pois, item2 = item2.uid})endaddEvent(voltarnormal, temk*travel, {cid = cid})exhaustion.set(cid, etudao, travel)return trueend Editado Outubro 1, 2013 por Gabrieltxu Adiconar o Spoiler Link para o comentário Compartilhar em outros sites More sharing options...
kttallan 318 Postado Setembro 30, 2013 Share Postado Setembro 30, 2013 orden sistema do erondino ?? [.spoiler] é [./spoiler] sem os pontos. Link para o comentário Compartilhar em outros sites More sharing options...
DavidG4mer 0 Postado Outubro 1, 2013 Share Postado Outubro 1, 2013 Muito bom. Continue assim para avançarmos cada vez mais. Link para o comentário Compartilhar em outros sites More sharing options...
lazarocp 67 Postado Outubro 1, 2013 Share Postado Outubro 1, 2013 e o sistema de ordem do erondino site só que editei para funcionar no pokeb Link para o comentário Compartilhar em outros sites More sharing options...
Posts Recomendados