[Encerrado] [Pokemon] Dúvidas? - Pda

[zerefshirou 112]

@Maguito

 

Que eu lembre do OT Pokemon ta no exe mesmo, procura algo como "Unpacking molebox" tem tutorial, só que é em ingles, eu apaguei os arquivos e só tenho em casa, e só devo ir pra lá domingo a noite/segunda, e não posso usar isso aqui se não postava :S

 

@marvis

 

Você mudou algo na lib que ta dando erro, posta todos os erros. (Comigo isso acontece quando esqueço de fechar "(" na lib ou algo parecido)

 

@Brunnoo

 

 

questStorage = 20011

questID = getPlayerStorageValue(cid,questStorage)

itemID = 11638

levelMin = 20

openTxt = "You find a Box +1"

closeTxt = "It\'s empty."

 

function onUse(cid, item, frompos, item2, topos)

if item.uid == 20011 then

if getPlayerLevel(cid) < levelMin then return doPlayerSendCancel(cid, "You need level "..levelMin.." to open this!") end

if questID == -1 or questID == 0 then

doPlayerSendTextMessage(cid,22,openTxt)

doPlayerAddItem(cid,itemID,1)

setPlayerStorageValue(cid, questStorage, 1)

return true

else

return doPlayerSendTextMessage(cid, 22, closeTxt)

end

else

return true

end

return true

end

 

 

Bem oque o SoulOroshie fez já funciona, eu só dei uma arrumada, achei que tava uma bagunça.

OBS: Não testei mas parece estar certinho

 

@FlamesAdmin

 

Bem eu não sei totalmente, mas pra que se quer saber? oque quer fazer com ela?

[BrunooMaciell 83]

@ZereftShirou

 

Vlws haa lenbrando essa script \/

 

 

function onThink(cid, interval)

storageFly = getPlayerStorageValue(cid, 17000)

storageSurf = getPlayerStorageValue(cid, 63215)

storageRide = getPlayerStorageValue(cid, 17001)

pos = 0

if getPlayerSlotItem(cid, CONST_SLOT_FEET) == nil or getPlayerSlotItem(cid, CONST_SLOT_FEET).uid == nil then return true end

if #getCreatureSummons(cid) > 0 then

pos = getThingPos(getCreatureSummons(cid)[1])

elseif storageFly > 0 or storageSurf > 0 or storageRide > 0 then

pos = getThingPos(cid)

end

if getPlayerSlotItem(cid,CONST_SLOT_FEET) ~= nil or getPlayerSlotItem(cid, CONST_SLOT_FEET).uid ~= nil then

if getItemAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "boost") == 50 then

if pos == 0 then return true end

addEvent(doSendMagicEffect, 200, pos, 208)

end

end

end

 

 

/\ ela ea que da pra da order com o boost os rainho ??

[Cadurx 1]

Minha duvida e a seguinte.

 

O wild blastoise (todos os pokemons), estao dando muita xp.

 

Ja tentei alterar o config.lua e os scripts .xml na pasta monsters, mais não adianta ainda continua dando muita exp, como faço pra alterar esse numero de exp?

[theu1995 12]

Minha duvida e a seguinte.

 

O wild blastoise (todos os pokemons), estao dando muita xp.

 

Ja tentei alterar o config.lua e os scripts .xml na pasta monsters, mais não adianta ainda continua dando muita exp, como faço pra alterar esse numero de exp?

 

 

 

cara vai em: data/lib/configuration.lua procura pela linha: playerExperienceRate = x (se n me engano é essa)

onde ta x poe o tanto de exp que vse quer

Editado Maio 19, 2012 por MaatheeuusYuurii

[eardguh 1]

eu entro com o account manager, fasso a conta

tudo certin

mais dps qnd vou entra no char fica só carregando e nao entra

 

em geral só entra o char account manager

 

 

 

como arrumo isso

[epaminombas 0]

@all

 

1 - alguem consegue me passar um tutorial de como adicionar auraboost estou usando o Pokemon Dash Advanced Edited by Slicer.

 

2 - Estou usando o PDA do Slicer e os hits dos pokemons selvagens batem neles mesmos =( alguem sabe arumar isso?

Editado Maio 19, 2012 por epaminombas

[Cadurx 1]

Max level do pokemon ta 100, tem como mudar?

[zerefshirou 112]

@Brunnoo

 

Sim é esse mesmo

 

@Cadurx

 

Pelo que parece é oque o @MaatheeuusYuurii disse se não explique melhor onde você viu e o problema

 

Sim da pra aumentar, só mudar em alguns scripts, e to sem notepad++ aki entao nem da pra ajudar no momento

 

@Eaard

 

Algum erro no console?? veja se não estava de fly/surf/ride de um poke que nao tenha no login.lua

 

@epaminombas

 

Ve na minha sign "arquivos do zeref e procura sobre o auraboost" no lugar do auraboost.lua que ta la, coloca oque o @Brunnoo postou ali encima

 

AAhh isso é no exp.lua tem q ver com slicer pq ele que mudou o exp.lua aushuahua

[NikoBellic 2]

@Maguito tutorial em português de como descompactar arquivos compactados pelo Molebox

 

Link:

 

http://www.4shared.c...x_v2642534.html

 

Editado Maio 20, 2012 por NikoBellic

[BrunooMaciell 83]

@All

 

pessoal presiso mt mt que alguem mi ajuda ou pase script que arruma essa script mt dou 3 reps+++ ate

 

1 - [ERROR - spell interface]

data/spells/script/ps/thunder.lua

 

eo 2

 

2 - data/lib/cath

data/lib/cath system.lua:17

data/lib/cath system.lua: 331

 

mais se possivel principalmente o 1 do thunder ^^

 

dou 3 reps+++++ presiso mt demais arruma issu /\

[Cadurx 1]

Slicer faiz um tutorial pra instalar esse onspawn cara, não ta funcionando aqui. ;l

[Maguito 21]

@niko

irei dar uma olhada e vo tenta aqui. O foda que o avast acusa como virus.

 

Edit: eu ja tinha visto esse tutorial, o foda esta em achar os programas ja que a maioria dos link expirou.

Editado Maio 20, 2012 por Maguito

[777777 9]

@ALL Como faço para o player precisar de level para usar um pokemon? os leveis ja estam configurados no configuration.lua, por exemplo para um player usar um hitmontop ele precisaria lv 160.. mas nao funciona, aonde mais tenho que mecher?

 

Max level do pokemon ta 100, tem como mudar?

Usa o meu, nele os pokemons upam até o level 300 (:

substitua o seu Level Tables.lua por este:

 

 

function getPokemonExperienceTable(pokemonname)

if isInArray(fastexppokes, pokemonname) then

return fastexptable

elseif isInArray(mediumfastexppokes, pokemonname) then

return mediumfastexptable

elseif isInArray(mediumslowexppokes, pokemonname) then

return mediumslowexptable

elseif isInArray(slowexppokes, pokemonname) then

return slowexptable

end

print(""..pokemonname.." doesn't have an experience table speed gain. Check it at data/lib/level tables.lua.")

return mediumfastexptable

end

 

fastexppokes = {"Clefairy", "Clefable", "Iglybuff", "Jigglypuff", "Wigglytuff", "Chansey", "Shiny Clefairy", "Shiny Clefable", "Shiny Iglybuff", "Shiny Jigglypuff", "Shiny Wigglytuff", "Shiny Chansey", "Ledyba", "Ledian", "Spinarak", "Ariados", "Cleffa", "Togepi", "Marill", "Azumarill", "Aipom", "Shiny Slowpoke", "Shiny Slowbro", "Blissey"}

 

fastexptable = {

[1] = 0,

[2] = 51,

[3] = 172,

[4] = 409,

[5] = 800,

[6] = 1382,

[7] = 2195,

[8] = 3276,

[9] = 4665,

[10] = 6400,

[11] = 8518,

[12] = 11059,

[13] = 14060,

[14] = 17561,

[15] = 21600,

[16] = 26214,

[17] = 31443,

[18] = 37324,

[19] = 43897,

[20] = 51200,

[21] = 59270,

[22] = 68147,

[23] = 77868,

[24] = 88473,

[25] = 100000,

[26] = 112486,

[27] = 125971,

[28] = 140492,

[29] = 156089,

[30] = 172800,

[31] = 190662,

[32] = 209715,

[33] = 229996,

[34] = 251545,

[35] = 274400,

[36] = 298598,

[37] = 324179,

[38] = 351180,

[39] = 379641,

[40] = 409600,

[41] = 441094,

[42] = 474163,

[43] = 508844,

[44] = 545177,

[45] = 583200,

[46] = 622950,

[47] = 664467,

[48] = 707788,

[49] = 752953,

[50] = 800000,

[51] = 848966,

[52] = 899891,

[53] = 952812,

[54] = 1007769,

[55] = 1064800,

[56] = 1123942,

[57] = 1185235,

[58] = 1248716,

[59] = 1314425,

[60] = 1382400,

[61] = 1452678,

[62] = 1525299,

[63] = 1600300,

[64] = 1677721,

[65] = 1757600,

[66] = 1839974,

[67] = 1924883,

[68] = 2012364,

[69] = 2102457,

[70] = 2195200,

[71] = 2290630,

[72] = 2388787,

[73] = 2489708,

[74] = 2593433,

[75] = 2700000,

[76] = 2809446,

[77] = 2921811,

[78] = 3037132,

[79] = 3155449,

[80] = 3276800,

[81] = 3401222,

[82] = 3528755,

[83] = 3659436,

[84] = 3793305,

[85] = 3930400,

[86] = 4070758,

[87] = 4214419,

[88] = 4361420,

[89] = 4511801,

[90] = 4665600,

[91] = 4822854,

[92] = 4983603,

[93] = 5147884,

[94] = 5315737,

[95] = 5487200,

[96] = 5662310,

[97] = 5841107,

[98] = 6023628,

[99] = 6209913,

[100] = 6250000,

[101] = 6400000,

[102] = 6500000,

[103] = 6600000,

[104] = 6700000,

[105] = 6800000,

[106] = 6900000,

[107] = 7000000,

[108] = 7100000,

[109] = 7200000,

[110] = 7300000,

[111] = 7400000,

[112] = 7500000,

[113] = 7600000,

[114] = 7700000,

[115] = 7800000,

[116] = 7900000,

[117] = 8000000,

[118] = 8100000,

[119] = 8220000,

[120] = 8340000,

[121] = 8460000,

[122] = 8580000,

[123] = 8600000,

[124] = 8720000,

[125] = 8840000,

[126] = 8960000,

[127] = 9080000,

[128] = 9100000,

[129] = 9220000,

[130] = 9340000,

[131] = 9460000,

[132] = 9580000,

[133] = 9600000,

[134] = 9720000,

[135] = 9840000,

[136] = 9960000,

[137] = 10080000,

[138] = 10100000,

[139] = 10200000,

[140] = 10300000,

[141] = 10400000,

[142] = 10500000,

[143] = 10600000,

[144] = 11700000,

[145] = 11800000,

[146] = 11900000,

[147] = 12030000,

[148] = 12100600,

[149] = 12200000,

[150] = 12300000,

[151] = 12400000,

[152] = 12500000,

[153] = 12600000,

[154] = 12700000,

[155] = 12800000,

[156] = 12900000,

[157] = 13000000,

[158] = 13100000,

[159] = 13200000,

[160] = 13340000,

[161] = 13400000,

[162] = 13500000,

[163] = 13600000,

[164] = 13700000,

[165] = 13800000,

[166] = 13900000,

[167] = 14000000,

[168] = 14100000,

[169] = 14200000,

[170] = 14300000,

[171] = 14400000,

[172] = 14500000,

[173] = 14600000,

[174] = 14700000,

[175] = 14800000,

[176] = 14900000,

[177] = 15080000,

[178] = 15100000,

[179] = 15200000,

[180] = 15300000,

[181] = 15400000,

[182] = 15500000,

[183] = 15700000,

[184] = 15900000,

[185] = 16100000,

[186] = 16360000,

[187] = 16500000,

[188] = 16700000,

[189] = 16900000,

[190] = 17100000,

[191] = 17300000,

[192] = 17500000,

[193] = 17700000,

[194] = 17900000,

[195] = 18100000,

[196] = 18300000,

[197] = 18500000,

[198] = 18700000,

[199] = 19500000,

[200] = 20000000,

[201] = 20400000,

[202] = 20800000,

[203] = 21200000,

[204] = 21600000,

[205] = 22000000,

[206] = 22400000,

[207] = 22800000,

[208] = 23200000,

[209] = 23600000,

[210] = 24000000,

[211] = 24400000,

[212] = 24800000,

[213] = 25200000,

[214] = 25600000,

[215] = 26000000,

[216] = 26400000,

[217] = 26800000,

[218] = 27200000,

[219] = 27600000,

[220] = 28000000,

[221] = 28400000,

[222] = 28800000,

[223] = 29200000,

[224] = 29440000,

[225] = 29905000,

[226] = 30610060,

[227] = 31001007,

[228] = 31400000,

[229] = 31800000,

[230] = 32200000,

[231] = 32600000,

[232] = 33000000,

[233] = 33400000,

[234] = 33800000,

[235] = 34240000,

[236] = 34660000,

[237] = 35080000,

[238] = 35400000,

[239] = 35820000,

[240] = 36040000,

[241] = 36400000,

[242] = 36800000,

[243] = 37200000,

[244] = 37600000,

[245] = 38000000,

[246] = 38400000,

[247] = 38600000,

[248] = 39000000,

[249] = 39500000,

[250] = 40000000,

[251] = 40500000,

[252] = 41000000,

[253] = 41500000,

[254] = 42000000,

[255] = 42500000,

[256] = 43000000,

[257] = 43500000,

[258] = 44000000,

[259] = 44500000,

[260] = 45000000,

[261] = 45500000,

[262] = 46000000,

[263] = 46500000,

[264] = 47000000,

[265] = 47500000,

[266] = 48000000,

[267] = 48500000,

[268] = 49000000,

[269] = 49500000,

[270] = 50000000,

[271] = 50500000,

[272] = 51000000,

[273] = 51500000,

[274] = 52000000,

[275] = 52500000,

[276] = 53000000,

[277] = 53500000,

[278] = 54000000,

[279] = 54500000,

[280] = 55000000,

[281] = 55500000,

[282] = 56000000,

[283] = 56500000,

[284] = 57000000,

[285] = 57500000,

[286] = 58000000,

[287] = 58500000,

[288] = 59000000,

[289] = 59500000,

[290] = 60000000,

[291] = 60500000,

[292] = 61000000,

[293] = 61500000,

[294] = 62000000,

[295] = 62500000,

[296] = 63000000,

[297] = 63500000,

[298] = 64000000,

[299] = 64500000,

[300] = 65000000,

[301] = 999999999}

 

mediumfastexppokes = {"Caterpie", "Metapod", "Butterfree", "Weedle", "Kakuna", "Beedrill", "Rattata", "Raticate", "Spearow", "Fearow"}

 

mediumfastexptable = {

[1] = 0,

[2] = 64,

[3] = 216,

[4] = 512,

[5] = 1000,

[6] = 1728,

[7] = 2744,

[8] = 4096,

[9] = 5832,

[10] = 8000,

[11] = 10648,

[12] = 13824,

[13] = 17576,

[14] = 21952,

[15] = 27000,

[16] = 32768,

[17] = 39304,

[18] = 46656,

[19] = 54872,

[20] = 64000,

[21] = 74088,

[22] = 85184,

[23] = 97336,

[24] = 110592,

[25] = 125000,

[26] = 140608,

[27] = 157464,

[28] = 175616,

[29] = 195112,

[30] = 216000,

[31] = 238328,

[32] = 262144,

[33] = 287496,

[34] = 314432,

[35] = 343000,

[36] = 373248,

[37] = 405224,

[38] = 438976,

[39] = 474552,

[40] = 512000,

[41] = 551368,

[42] = 592704,

[43] = 636056,

[44] = 681472,

[45] = 729000,

[46] = 778688,

[47] = 830584,

[48] = 884736,

[49] = 941192,

[50] = 1000000,

[51] = 1061208,

[52] = 1124864,

[53] = 1191016,

[54] = 1259712,

[55] = 1331000,

[56] = 1404928,

[57] = 1481544,

[58] = 1560896,

[59] = 1643032,

[60] = 1728000,

[61] = 1815848,

[62] = 1906624,

[63] = 2000376,

[64] = 2097152,

[65] = 2197000,

[66] = 2299968,

[67] = 2406104,

[68] = 2515456,

[69] = 2628072,

[70] = 2744000,

[71] = 2863288,

[72] = 2985984,

[73] = 3112136,

[74] = 3241792,

[75] = 3375000,

[76] = 3511808,

[77] = 3652264,

[78] = 3796416,

[79] = 3944312,

[80] = 4096000,

[81] = 4251528,

[82] = 4410944,

[83] = 4574296,

[84] = 4741632,

[85] = 4913000,

[86] = 5088448,

[87] = 5268024,

[88] = 5451776,

[89] = 5639752,

[90] = 5832000,

[91] = 6028568,

[92] = 6229504,

[93] = 6434856,

[94] = 6644672,

[95] = 6859000,

[96] = 7077888,

[97] = 7301384,

[98] = 7529536,

[99] = 7762392,

[100] = 8000000,

[101] = 8200000,

[102] = 8300000,

[103] = 8400000,

[104] = 8500000,

[105] = 8600000,

[106] = 8700000,

[107] = 8800000,

[108] = 8900000,

[109] = 9100000,

[110] = 9300000,

[111] = 9500000,

[112] = 9600000,

[113] = 9800000,

[114] = 9900000,

[115] = 10000000,

[116] = 10200000,

[117] = 10400000,

[118] = 10600000,

[119] = 10820000,

[120] = 11000000,

[121] = 11300000,

[122] = 11500000,

[123] = 11730000,

[124] = 11804000,

[125] = 11900500,

[126] = 12001600,

[127] = 12200107,

[128] = 12400000,

[129] = 12600000,

[130] = 12900000,

[131] = 13100000,

[132] = 13300000,

[133] = 13500000,

[134] = 13700000,

[135] = 13940000,

[136] = 14260000,

[137] = 14380000,

[138] = 14500000,

[139] = 14720000,

[140] = 14840000,

[141] = 15000000,

[142] = 15100000,

[143] = 15200000,

[144] = 15400000,

[145] = 15800000,

[146] = 16200000,

[147] = 16300000,

[148] = 16500000,

[149] = 16700000,

[150] = 16900000,

[151] = 17100000,

[152] = 17300000,

[153] = 17500000,

[154] = 17700000,

[155] = 17900000,

[156] = 18200000,

[157] = 18400000,

[158] = 18600000,

[159] = 18900000,

[160] = 19100000,

[161] = 19300000,

[162] = 19600000,

[163] = 19900000,

[164] = 20000000,

[165] = 20100000,

[166] = 20300000,

[167] = 20400000,

[168] = 20500000,

[169] = 20700000,

[170] = 20900000,

[171] = 21100000,

[172] = 21300000,

[173] = 21500000,

[174] = 21700000,

[175] = 21900000,

[176] = 22200000,

[177] = 22500000,

[178] = 22700000,

[179] = 22900000,

[180] = 23100000,

[181] = 23300000,

[182] = 23600000,

[183] = 23900000,

[184] = 24200000,

[185] = 24500000,

[186] = 24900000,

[187] = 25300000,

[188] = 25800000,

[189] = 26100000,

[190] = 26300000,

[191] = 26700000,

[192] = 27200000,

[193] = 27900000,

[194] = 28100000,

[195] = 28400000,

[196] = 28700000,

[197] = 29200000,

[198] = 29500000,

[199] = 39700000,

[200] = 40000000,

[201] = 40400000,

[202] = 40800000,

[203] = 41200000,

[204] = 41600000,

[205] = 42000000,

[206] = 42400000,

[207] = 42800000,

[208] = 43200000,

[209] = 43600000,

[210] = 44000000,

[211] = 44400000,

[212] = 44800000,

[213] = 45200000,

[214] = 45600000,

[215] = 46000000,

[216] = 46400000,

[217] = 46800000,

[218] = 47200000,

[219] = 47600000,

[220] = 48000000,

[221] = 48400000,

[222] = 48800000,

[223] = 49200000,

[224] = 49440000,

[225] = 49905000,

[226] = 50610060,

[227] = 51001007,

[228] = 51400000,

[229] = 51800000,

[230] = 52200000,

[231] = 52600000,

[232] = 53000000,

[233] = 53400000,

[234] = 53800000,

[235] = 54240000,

[236] = 54660000,

[237] = 55080000,

[238] = 55400000,

[239] = 55820000,

[240] = 56040000,

[241] = 56400000,

[242] = 56800000,

[243] = 57200000,

[244] = 57600000,

[245] = 58000000,

[246] = 58400000,

[247] = 58600000,

[248] = 59000000,

[249] = 59500000,

[250] = 60000000,

[251] = 60500000,

[252] = 61000000,

[253] = 61500000,

[254] = 62000000,

[255] = 62500000,

[256] = 63000000,

[257] = 63500000,

[258] = 64000000,

[259] = 64500000,

[260] = 65000000,

[261] = 65500000,

[262] = 66000000,

[263] = 66500000,

[264] = 67000000,

[265] = 67500000,

[266] = 68000000,

[267] = 68500000,

[268] = 69000000,

[269] = 69500000,

[270] = 70000000,

[271] = 70500000,

[272] = 71000000,

[273] = 71500000,

[274] = 72000000,

[275] = 72500000,

[276] = 73000000,

[277] = 73500000,

[278] = 74000000,

[279] = 74500000,

[280] = 75000000,

[281] = 75500000,

[282] = 76000000,

[283] = 76500000,

[284] = 77000000,

[285] = 77500000,

[286] = 78000000,

[287] = 78500000,

[288] = 79000000,

[289] = 79500000,

[290] = 80000000,

[291] = 80500000,

[292] = 81000000,

[293] = 81500000,

[294] = 82000000,

[295] = 82500000,

[296] = 83000000,

[297] = 83500000,

[298] = 84000000,

[299] = 84500000,

[300] = 85000000,

[301] = 999999999}

 

mediumslowexppokes = {"Bulbasaur", "Ivysaur", "Charmander", "Charmeleon", "Squirtle", "Wartortle", "Pidgey", "Pidgeotto"}

 

mediumslowexptable = {

[1] = 0,

[2] = 72,

[3] = 456,

[4] = 768,

[5] = 1080,

[6] = 1432,

[7] = 1888,

[8] = 2512,

[9] = 3352,

[10] = 4480,

[11] = 5936,

[12] = 7784,

[13] = 10088,

[14] = 12896,

[15] = 16280,

[16] = 20280,

[17] = 24960,

[18] = 30384,

[19] = 36600,

[20] = 43680,

[21] = 51664,

[22] = 60616,

[23] = 70600,

[24] = 81664,

[25] = 93880,

[26] = 107288,

[27] = 121952,

[28] = 137936,

[29] = 155288,

[30] = 174080,

[31] = 194352,

[32] = 216168,

[33] = 239592,

[34] = 264672,

[35] = 291480,

[36] = 320056,

[37] = 350464,

[38] = 382768,

[39] = 417016,

[40] = 453280,

[41] = 491600,

[42] = 532040,

[43] = 574664,

[44] = 619520,

[45] = 666680,

[46] = 716184,

[47] = 768096,

[48] = 822480,

[49] = 879384,

[50] = 938880,

[51] = 1001008,

[52] = 1065832,

[53] = 1133416,

[54] = 1203808,

[55] = 1277080,

[56] = 1353272,

[57] = 1432448,

[58] = 1514672,

[59] = 1599992,

[60] = 1688480,

[61] = 1780176,

[62] = 1875144,

[63] = 1973448,

[64] = 2075136,

[65] = 2180280,

[66] = 2288920,

[67] = 2401120,

[68] = 2516944,

[69] = 2636440,

[70] = 2759680,

[71] = 2886704,

[72] = 3017576,

[73] = 3152360,

[74] = 3291104,

[75] = 3433880,

[76] = 3580728,

[77] = 3731712,

[78] = 3886896,

[79] = 4046328,

[80] = 4210080,

[81] = 4378192,

[82] = 4550728,

[83] = 4727752,

[84] = 4909312,

[85] = 5095480,

[86] = 5286296,

[87] = 5481824,

[88] = 5682128,

[89] = 5887256,

[90] = 6097280,

[91] = 6312240,

[92] = 6532200,

[93] = 6757224,

[94] = 6987360,

[95] = 7222680,

[96] = 7463224,

[97] = 7709056,

[98] = 7960240,

[99] = 8216824,

[100] = 8300000,

[101] = 8400000,

[102] = 8500000,

[103] = 8600000,

[104] = 8700000,

[105] = 8800000,

[106] = 8900000,

[107] = 9000000,

[108] = 9100000,

[109] = 9200000,

[110] = 9300000,

[111] = 9500000,

[112] = 9600000,

[113] = 9800000,

[114] = 9900000,

[115] = 10000000,

[116] = 10200000,

[117] = 10400000,

[118] = 10600000,

[119] = 10820000,

[120] = 11000000,

[121] = 11300000,

[122] = 11500000,

[123] = 11730000,

[124] = 11804000,

[125] = 11900500,

[126] = 12001600,

[127] = 12200107,

[128] = 12400000,

[129] = 12600000,

[130] = 12900000,

[131] = 13100000,

[132] = 13300000,

[133] = 13500000,

[134] = 13700000,

[135] = 13940000,

[136] = 14260000,

[137] = 14380000,

[138] = 14500000,

[139] = 14720000,

[140] = 14840000,

[141] = 15000000,

[142] = 15100000,

[143] = 15200000,

[144] = 15400000,

[145] = 15800000,

[146] = 16200000,

[147] = 16300000,

[148] = 16500000,

[149] = 16700000,

[150] = 16900000,

[151] = 17100000,

[152] = 17300000,

[153] = 17500000,

[154] = 17700000,

[155] = 17900000,

[156] = 18200000,

[157] = 18400000,

[158] = 18600000,

[159] = 18900000,

[160] = 19100000,

[161] = 19300000,

[162] = 19600000,

[163] = 19900000,

[164] = 20500000,

[165] = 21100000,

[166] = 21300000,

[167] = 21400000,

[168] = 21500000,

[169] = 21700000,

[170] = 21900000,

[171] = 22100000,

[172] = 22300000,

[173] = 22500000,

[174] = 22700000,

[175] = 22900000,

[176] = 23200000,

[177] = 23500000,

[178] = 23700000,

[179] = 23900000,

[180] = 24100000,

[181] = 24300000,

[182] = 24600000,

[183] = 24900000,

[184] = 25200000,

[185] = 25500000,

[186] = 25900000,

[187] = 26300000,

[188] = 26800000,

[189] = 27100000,

[190] = 27300000,

[191] = 27700000,

[192] = 28200000,

[193] = 28900000,

[194] = 29100000,

[195] = 29400000,

[196] = 29700000,

[197] = 30200000,

[198] = 30500000,

[199] = 39700000,

[200] = 40000000,

[201] = 40400000,

[202] = 40800000,

[203] = 41200000,

[204] = 41600000,

[205] = 42000000,

[206] = 42400000,

[207] = 42800000,

[208] = 43200000,

[209] = 43600000,

[210] = 44000000,

[211] = 44400000,

[212] = 44800000,

[213] = 45200000,

[214] = 45600000,

[215] = 46000000,

[216] = 46400000,

[217] = 46800000,

[218] = 47200000,

[219] = 47600000,

[220] = 48000000,

[221] = 48400000,

[222] = 48800000,

[223] = 49200000,

[224] = 49440000,

[225] = 49905000,

[226] = 50610060,

[227] = 51001007,

[228] = 51400000,

[229] = 51800000,

[230] = 52200000,

[231] = 52600000,

[232] = 53000000,

[233] = 53400000,

[234] = 53800000,

[235] = 54240000,

[236] = 54660000,

[237] = 55080000,

[238] = 55400000,

[239] = 55820000,

[240] = 56040000,

[241] = 56400000,

[242] = 56800000,

[243] = 57200000,

[244] = 57600000,

[245] = 58000000,

[246] = 58400000,

[247] = 58600000,

[248] = 59000000,

[249] = 59500000,

[250] = 60000000,

[251] = 60500000,

[252] = 61000000,

[253] = 61500000,

[254] = 62000000,

[255] = 62500000,

[256] = 63000000,

[257] = 63500000,

[258] = 64000000,

[259] = 64500000,

[260] = 65000000,

[261] = 65500000,

[262] = 66000000,

[263] = 66500000,

[264] = 67000000,

[265] = 67500000,

[266] = 68000000,

[267] = 68500000,

[268] = 69000000,

[269] = 69500000,

[270] = 70000000,

[271] = 70500000,

[272] = 71000000,

[273] = 71500000,

[274] = 72000000,

[275] = 72500000,

[276] = 73000000,

[277] = 73500000,

[278] = 74000000,

[279] = 74500000,

[280] = 75000000,

[281] = 75500000,

[282] = 76000000,

[283] = 76500000,

[284] = 77000000,

[285] = 77500000,

[286] = 78000000,

[287] = 78500000,

[288] = 79000000,

[289] = 79500000,

[290] = 80000000,

[291] = 80500000,

[292] = 81000000,

[293] = 81500000,

[294] = 82000000,

[295] = 82500000,

[296] = 83000000,

[297] = 83500000,

[298] = 84000000,

[299] = 84500000,

[300] = 85000000,

[301] = 999999999}

 

slowexppokes = {"Ho-oh", "Growlithe", "Charizard", "Blastoise", "Venusaur", "Arcanine", "Tentacool", "Ancient Alakazam", "Elite Hitmonlee", "Ancient Blastoise", "Venusaur", "Tentacruel", "Shellder", "Cloyster", "Exeggcute", "Exeggutor", "Rhyhorn", "Rhydon", "Staryu", "Starmie", "Pinsir", "Tauros", "Magikarp", "Gyarados", "Lapras", "Aerodactyl", "Snorlax", "Giant Snorlax", "Big Snorlax", "Articuno", "Zapdos", "Moltres", "Misdreavus", "Snubbull", "Smeargle", "Dratini", "Togetic", "Dragonair", "Dragonite", "Mewtwo", "Mew", "Chinchou", "Lanturn", "Heracross", "Swinub", "Piloswine", "Mantine", "Skarmory", "Houndour", "Houndoom", "Stantler", "Miltank", "Raikou", "Entei", "Suicune", "Larvitar", "Pupitar", "Tyranitar", "Lugia", "Shiny Growlithe", "Shiny Arcanine", "Shiny Tentacool", "Shiny Tentacruel", "Shiny Shellder", "Shiny Cloyster", "Shiny Exeggcute", "Shiny Exeggutor", "Shiny Rhyhorn", "Shiny Rhydon", "Shiny Staryu", "Shiny Starmie", "Shiny Pinsir", "Shiny Tauros", "Shiny Magikarp", "Shiny Gyarados", "Shiny Lapras", "Shiny Aerodactyl", "Shiny Snorlax", "Shiny Articuno", "Shiny Zapdos", "Shiny Moltres", "Shiny Dratini", "Shiny Dragonair", "Shiny Dragonite", "Shiny Mewtwo", "Shiny Mew", "Ekans", "Arbok", "Pikachu", "Raichu", "Sandshrew", "Sandslash", "Vulpix", "Ninetales", "Zubat", "Golbat", "Paras", "Parasect", "Diglett", "Dugtrio", "Meowth", "Persian", "Psyduck", "Golduck", "Mankey", "Primeape", "Ponyta", "Rapidash", "Magnemite", "Magneton", "Doduo", "Dodrio", "Seel", "Dewgong", "Grimer", "Muk", "Onix", "Steelix", "Drowzee", "Hypno", "Krabby", "Kingler", "Voltorb", "Electrode", "Cubone", "Marowak", "Hitmonlee", "Tyrogue", "Hitmonchan", "Lickitung", "Koffing", "Weezing", "Kangaskhan", "Horsea", "Seadra", "Goldeen", "Seaking", "Mr. Mime", "Scyther", "Jynx", "Smoochum", "Electabuzz", "Magmar", "Ditto", "Eevee", "Jolteon", "Flareon", "Porygon", "Omanyte", "Omastar", "Kabuto", "Kabutops", "Shiny Caterpie", "Shiny Metapod", "Shiny Butterfree", "Shiny Weedle", "Shiny Kakuna", "Shiny Beedrill", "Shiny Rattata", "Shiny Raticate", "Shiny Spearow", "Shiny Fearow", "Shiny Ekans", "Shiny Arbok", "Shiny Pikachu", "Shiny Raichu", "Shiny Sandshrew", "Shiny Sandslash", "Shiny Vulpix", "Shiny Ninetales", "Shiny Zubat", "Shiny Golbat", "Shiny Paras", "Shiny Parasect", "Shiny Diglett", "Shiny Dugtrio", "Shiny Meowth", "Shiny Persian", "Shiny Psyduck", "Shiny Golduck", "Shiny Mankey", "Shiny Primeape", "Shiny Ponyta", "Shiny Rapidash", "Shiny Magnemite", "Shiny Magneton", "Shiny Doduo", "Granbull", "Shiny Dodrio", "Shiny Seel", "Shiny Dewgong", "Shiny Grimer", "Shiny Muk", "Corsola", "Delibird", "Shiny Onix", "Shiny Steelix", "Shiny Drowzee", "Shiny Hypno", "Shiny Krabby", "Shiny Kingler", "Shiny Voltorb", "Shiny Electrode", "Shiny Cubone", "Shiny Marowak", "Shiny Hitmonlee", "Tyrogue", "Shiny Hitmonchan", "Shiny Lickitung", "Shiny Koffing", "Shiny Weezing", "Shiny Kangaskhan", "Shiny Horsea", "Shiny Seadra", "Shiny Goldeen", "Shiny Seaking", "Shiny Mr. Mime", "Shiny Scyther", "Shiny Jynx", "Smoochum", "Shiny Electabuzz", "Shiny Magmar", "Shiny Ditto", "Shiny Eevee", "Shiny Jolteon", "Shiny Flareon", "Shiny Porygon", "Shiny Omanyte", "Shiny Omastar", "Shiny Kabuto", "Shiny Kabutops", "Sentret", "Furret", "Hoothoot", "Noctowl", "Crobat", "Pichu", "Natu", "Xatu", "Wooper", "Quagsire", "Espeon", "Umbreon", "Girafarig", "Pineco", "Forretress", "Dunsparce", "Qwilfish", "Scizor", "Magcargo", "Slugma", "Remoraid", "Octillery", "Kingdra", "Phanpy", "Donphan", "Porygon2", "Hitmontop", "Elekid", "Magby", "Vaporeon", "Shiny Vaporeon", "Venonat", "Venomoth", "Slowpoke", "Slowbro", "Slowking", "Farfetch'd", "Tangela", "Shiny Tangela", "Sudowoodo", "Yanma", "Unown", "Wobbuffet", "Teddiursa", "Ursaring", "Pidgeot", "Nidoran Female", "Nidorina", "Nidoqueen", "Nidoran Male", "Nidorino", "Nidoking", "Oddish", "Gloom", "Vileplume", "Poliwag", "Poliwhirl", "Poliwrath", "Abra", "Kadabra", "Alakazam", "Machop", "Machoke", "Machamp", "Bellsprout", "Weepinbell", "Victreebel", "Geodude", "Graveler", "Golem", "Gastly", "Haunter", "Gengar", "Mew", "Shiny Bulbasaur", "Shiny Ivysaur", "Shiny Venusaur", "Shiny Charmander", "Shiny Charmeleon", "Shiny Charizard", "Shiny Squirtle", "Shiny Wartortle", "Shiny Blastoise", "Shiny Pidgey", "Shiny Pidgeotto", "Shiny Pidgeot", "Shiny Nidoran Female", "Shiny Nidorina", "Shiny Nidoqueen", "Shiny Nidoran Male", "Shiny Nidorino", "Shiny Nidoking", "Shiny Oddish", "Shiny Gloom", "Shiny Vileplume", "Shiny Poliwag", "Shiny Poliwhirl", "Shiny Poliwrath", "Shiny Abra", "Shiny Kadabra", "Shiny Alakazam", "Shiny Machop", "Shiny Machoke", "Shiny Machamp", "Shiny Bellsprout", "Shiny Weepinbell", "Shiny Victreebel", "Shiny Geodude", "Shiny Graveler", "Shiny Golem", "Shiny Gastly", "Shiny Haunter", "Shiny Gengar", "Shiny Mew", "Chikorita", "Bayleef", "Meganium", "Cyndaquil", "Quilava", "Typhlosion", "Totodile", "Croconaw", "Feraligatr", "Mareep", "Flaaffy", "Ampharos", "Bellossom", "Politoed", "Hoppip", "Skiploom", "Jumpluff", "Sunkern", "Sunflora", "Murkrow", "Gligar", "Shuckle", "Sneasel", "Celebi"}

 

slowexptable = {

[1] = 0,

[2] = 80,

[3] = 270,

[4] = 640,

[5] = 1250,

[6] = 2160,

[7] = 3430,

[8] = 5120,

[9] = 7290,

[10] = 10000,

[11] = 13310,

[12] = 17280,

[13] = 21970,

[14] = 27440,

[15] = 33750,

[16] = 40960,

[17] = 49130,

[18] = 58320,

[19] = 68590,

[20] = 80000,

[21] = 92610,

[22] = 106480,

[23] = 121670,

[24] = 138240,

[25] = 156250,

[26] = 175760,

[27] = 196830,

[28] = 219520,

[29] = 243890,

[30] = 270000,

[31] = 297910,

[32] = 327680,

[33] = 359370,

[34] = 393040,

[35] = 428750,

[36] = 466560,

[37] = 506530,

[38] = 548720,

[39] = 593190,

[40] = 640000,

[41] = 689210,

[42] = 740880,

[43] = 795070,

[44] = 851840,

[45] = 911250,

[46] = 973360,

[47] = 1038230,

[48] = 1105920,

[49] = 1176490,

[50] = 1250000,

[51] = 1326510,

[52] = 1406080,

[53] = 1488770,

[54] = 1574640,

[55] = 1663750,

[56] = 1756160,

[57] = 1851930,

[58] = 1951120,

[59] = 2053790,

[60] = 2160000,

[61] = 2269810,

[62] = 2383280,

[63] = 2500470,

[64] = 2621440,

[65] = 2746250,

[66] = 2874960,

[67] = 3007630,

[68] = 3144320,

[69] = 3285090,

[70] = 3430000,

[71] = 3579110,

[72] = 3732480,

[73] = 3890170,

[74] = 4052240,

[75] = 4218750,

[76] = 4389760,

[77] = 4565330,

[78] = 4745520,

[79] = 4930390,

[80] = 5120000,

[81] = 5314410,

[82] = 5513680,

[83] = 5717870,

[84] = 5927040,

[85] = 6141250,

[86] = 6360560,

[87] = 6585030,

[88] = 6814720,

[89] = 7049690,

[90] = 7290000,

[91] = 7535710,

[92] = 7786880,

[93] = 8043570,

[94] = 8305840,

[95] = 8573750,

[96] = 8847360,

[97] = 9126730,

[98] = 9411920,

[99] = 9702990,

[100] = 10000000,

[101] = 10300000,

[102] = 10600000,

[103] = 10900000,

[104] = 11200000,

[105] = 11500000,

[106] = 11800000,

[107] = 12100000,

[108] = 12400000,

[109] = 12700000,

[110] = 13000000,

[111] = 13300000,

[112] = 13600000,

[113] = 13900000,

[114] = 14200000,

[115] = 14500000,

[116] = 14800000,

[117] = 15100000,

[118] = 15400000,

[119] = 15700000,

[120] = 16000000,

[121] = 16300000,

[122] = 16600000,

[123] = 16900000,

[124] = 17240000,

[125] = 17505000,

[126] = 17810060,

[127] = 18101007,

[128] = 18400000,

[129] = 18700000,

[130] = 19000000,

[131] = 19300000,

[132] = 19600000,

[133] = 19900000,

[134] = 20200000,

[135] = 20540000,

[136] = 20860000,

[137] = 21180000,

[138] = 21400000,

[139] = 21720000,

[140] = 22040000,

[141] = 22300000,

[142] = 22600000,

[143] = 22900000,

[144] = 23200000,

[145] = 23500000,

[146] = 23800000,

[147] = 24100000,

[148] = 24400000,

[149] = 24700000,

[150] = 25000000,

[151] = 25300000,

[152] = 25600000,

[153] = 25900000,

[154] = 26200000,

[155] = 26500000,

[156] = 26800000,

[157] = 27100000,

[158] = 27400000,

[159] = 27700000,

[160] = 28000000,

[161] = 28300000,

[162] = 28600000,

[163] = 28900000,

[164] = 29200000,

[165] = 29500000,

[166] = 29800000,

[167] = 30100000,

[168] = 30400000,

[169] = 30700000,

[170] = 31000000,

[171] = 31300000,

[172] = 31600000,

[173] = 31900000,

[174] = 32200000,

[175] = 32500000,

[176] = 32800000,

[177] = 33100000,

[178] = 33400000,

[179] = 33700000,

[180] = 34000000,

[181] = 34300000,

[182] = 34600000,

[183] = 34900000,

[184] = 35200000,

[185] = 35500000,

[186] = 35800000,

[187] = 36100000,

[188] = 36400000,

[189] = 36700000,

[190] = 37000000,

[191] = 37300000,

[192] = 37600000,

[193] = 37900000,

[194] = 38200000,

[195] = 38500000,

[196] = 38800000,

[197] = 39100000,

[198] = 39400000,

[199] = 39700000,

[200] = 40000000,

[201] = 40400000,

[202] = 40800000,

[203] = 41200000,

[204] = 41600000,

[205] = 42000000,

[206] = 42400000,

[207] = 42800000,

[208] = 43200000,

[209] = 43600000,

[210] = 44000000,

[211] = 44400000,

[212] = 44800000,

[213] = 45200000,

[214] = 45600000,

[215] = 46000000,

[216] = 46400000,

[217] = 46800000,

[218] = 47200000,

[219] = 47600000,

[220] = 48000000,

[221] = 48400000,

[222] = 48800000,

[223] = 49200000,

[224] = 49440000,

[225] = 49905000,

[226] = 50610060,

[227] = 51001007,

[228] = 51400000,

[229] = 51800000,

[230] = 52200000,

[231] = 52600000,

[232] = 53000000,

[233] = 53400000,

[234] = 53800000,

[235] = 54240000,

[236] = 54660000,

[237] = 55080000,

[238] = 55400000,

[239] = 55820000,

[240] = 56040000,

[241] = 56400000,

[242] = 56800000,

[243] = 57200000,

[244] = 57600000,

[245] = 58000000,

[246] = 58400000,

[247] = 58600000,

[248] = 59000000,

[249] = 59500000,

[250] = 60000000,

[251] = 60500000,

[252] = 61000000,

[253] = 61500000,

[254] = 62000000,

[255] = 62500000,

[256] = 63000000,

[257] = 63500000,

[258] = 64000000,

[259] = 64500000,

[260] = 65000000,

[261] = 65500000,

[262] = 66000000,

[263] = 66500000,

[264] = 67000000,

[265] = 67500000,

[266] = 68000000,

[267] = 68500000,

[268] = 69000000,

[269] = 69500000,

[270] = 70000000,

[271] = 70500000,

[272] = 71000000,

[273] = 71500000,

[274] = 72000000,

[275] = 72500000,

[276] = 73000000,

[277] = 73500000,

[278] = 74000000,

[279] = 74500000,

[280] = 75000000,

[281] = 75500000,

[282] = 76000000,

[283] = 76500000,

[284] = 77000000,

[285] = 77500000,

[286] = 78000000,

[287] = 78500000,

[288] = 79000000,

[289] = 79500000,

[290] = 80000000,

[291] = 80500000,

[292] = 81000000,

[293] = 81500000,

[294] = 82000000,

[295] = 82500000,

[296] = 83000000,

[297] = 83500000,

[298] = 84000000,

[299] = 84500000,

[300] = 85000000,

[301] = 999999999}

 

 

 

e o seu Level System por este:

 

 

function getPokemonStatus(name, multiplier)

local a = pokes[name]

local m = 1

if not a then return false end

if not a.offense then return false end

if multiplier then m = multiplier end

local ret = {}

ret.off = a.offense * m

ret.offense = ret.off

 

ret.def = a.defense * m

ret.defense = ret.def

 

ret.agi = a.agility * m

ret.agility = ret.agi

 

ret.spatk = a.specialattack * m

ret.specialattack = ret.spatk

 

ret.vit = a.vitality * m

ret.vitality = ret.vit

return ret

end

 

function getPokemonXMLOutfit(name)

local a = "data/monster/pokes/"..name..".xml"

local b = io.open(a, "a+")

local c = b:read("*all")

b:close()

local d, e = c:find('look type="(.-)"')

c = string.sub(c, d + 11, e - 1)

return tonumber

end

 

function doEvolutionOutfit(cid, oldout, outfit)

if not isCreature(cid) then return true end

if getCreatureOutfit(cid).lookType == oldout then

doSetCreatureOutfit(cid, {lookType = outfit}, -1)

else

doSetCreatureOutfit(cid, {lookType = oldout}, -1)

end

end

 

function doStartEvolution(cid, evolution, seconds)

if not isCreature(cid) then return true end

local a = getPlayerStorageValue(cid, 1007)

local b = getCreatureHealth(cid) / getCreatureMaxHealth(cid)

local d = getThingPos(cid)

local e = getCreatureMaster(cid)

if getHappinessRate(cid) < 1 then return true end

local f = getCreatureOutfit(cid).lookType

local g = getItemAttribute(getPlayerSlotItem(e, 8).uid, "nick") or getCreatureName(cid)

local h = getPokemonXMLOutfit(evolution)

doItemSetAttribute(getPlayerSlotItem(e, 8).uid, "hp", b)

doCreatureSay(e, "What? My "..g.." is evolving!", TALKTYPE_SAY)

doSummonMonster(e, "Evolution")

doReturnPokemon(e, cid, getPlayerSlotItem(e, 8), 0, true)

local evo = getCreatureSummons(e)[1]

doEvolutionOutfit(evo, h, f)

doCreatureSetHideHealth(evo, true)

doCreatureSetLookDir(evo, 2)

setPlayerStorageValue(evo, 1007, g)

doTeleportThing(evo, d, false)

addEvent(sendSSJEffect, 250, evo)

doSendAnimatedText(getThingPos(evo), "EVOLUTION", COLOR_GRASS)

doSendEvolutionEffect(evo, getThingPos(evo), evolution, 20, false, false, f, h)

end

 

function doSendEvolutionEffect(cid, pos, evolution, turn, ssj, evolve, f, h)

if not isCreature(cid) then

doSendAnimatedText(pos, "CANCEL", 215)

return true end

if evolve then

doEvolvePokemon(getCreatureMaster(cid), {uid = cid}, evolution, 0, 0)

return true

end

doSendMagicEffect(pos, 18)

if ssj then

sendSSJEffect(evo)

end

doEvolutionOutfit(cid, f, h)

addEvent(doSendEvolutionEffect, math.pow(1900, turn/20), cid, getThingPos(cid), evolution, turn - 1, turn == 19, turn == 2, f, h)

end

 

function sendSSJEffect(cid)

if not isCreature(cid) then return true end

local pos1 = getThingPos(cid)

local pos2 = getThingPos(cid)

pos2.x = pos2.x + math.random(-1, 1)

pos2.y = pos2.y - math.random(1, 2)

doSendDistanceShoot(pos1, pos2, 37)

addEvent(sendSSJEffect, 45, cid)

end

 

function sendFinishEvolutionEffect(cid, alternate)

if not isCreature(cid) then return true end

local pos1 = getThingPos(cid)

 

if alternate then

local pos = {

[1] = {-2, 0},

[2] = {-1, -1},

[3] = {0, -2},

[4] = {1, -1},

[5] = {2, 0},

[6] = {1, 1},

[7] = {0, 2},

[8] = {-1, 1}}

for a = 1, 8 do

local pos2 = getThingPos(cid)

pos2.x = pos2.x + pos[a][1]

pos2.y = pos2.y + pos[a][2]

local pos = getThingPos(cid)

doSendDistanceShoot(pos2, pos, 37)

addEvent(doSendDistanceShoot, 300, pos, pos2, 37)

end

else

for a = 0, 3 do

doSendDistanceShoot(pos1, getPosByDir(pos1, a), 37)

end

for a = 4, 7 do

addEvent(doSendDistanceShoot, 600, pos1, getPosByDir(pos1, a), 37)

end

end

end

 

function doEvolvePokemon(cid, item2, theevo, stone1, stone2)

 

if not isCreature(cid) then return true end

 

if not pokes[theevo] or not pokes[theevo].offense then

doReturnPokemon(cid, item2.uid, getPlayerSlotItem(cid, 8), pokeballs[getPokeballType(getPlayerSlotItem(cid, 8).itemid)].effect, false, true)

return true

end

 

local owner = getCreatureMaster(item2.uid)

local pokeball = getPlayerSlotItem(cid, 8)

local description = "Contains a "..theevo.."."

local pct = getCreatureHealth(item2.uid) / getCreatureMaxHealth(item2.uid)

 

doItemSetAttribute(pokeball.uid, "hp", pct)

 

doItemSetAttribute(pokeball.uid, "poke", theevo)

doItemSetAttribute(pokeball.uid, "description", "Contains a "..theevo..".")

 

doPlayerSendTextMessage(cid, 27, "Congratulations! Your "..getPokeName(item2.uid).." evolved into a "..theevo.."!")

 

doSendMagicEffect(getThingPos(item2.uid), 18)

doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos[theevo])

doSendMagicEffect(getThingPos(cid), 173)

 

local oldpos = getThingPos(item2.uid)

local oldlod = getCreatureLookDir(item2.uid)

local oldlvl = getPokemonLevel(item2.uid)

doRemoveCreature(item2.uid)

 

doSummonMonster(cid, theevo)

local pk = getCreatureSummons(cid)[1]

 

doTeleportThing(pk, oldpos, false)

doCreatureSetLookDir(pk, oldlod)

 

sendFinishEvolutionEffect(pk, true)

addEvent(sendFinishEvolutionEffect, 550, pk, true)

addEvent(sendFinishEvolutionEffect, 1050, pk)

 

doPlayerRemoveItem(cid, stone1, 1)

doPlayerRemoveItem(cid, stone2, 1)

 

doAddPokemonInOwnList(cid, theevo)

 

local status = getPokemonStatus(getCreatureName(pk))

 

local off = status.off * 7.5

local def = status.def * 7.5

local agi = status.agi * 7.5

local spatk = status.spatk * 7.5

local vit = status.vit * 7

 

doItemSetAttribute(pokeball.uid, "offense", getItemAttribute(pokeball.uid, "offense") + off)

doItemSetAttribute(pokeball.uid, "defense", getItemAttribute(pokeball.uid, "defense") + def)

doItemSetAttribute(pokeball.uid, "speed", getItemAttribute(pokeball.uid, "speed") + agi)

doItemSetAttribute(pokeball.uid, "specialattack", getItemAttribute(pokeball.uid, "specialattack") + spatk)

doItemSetAttribute(pokeball.uid, "vitality", getItemAttribute(pokeball.uid, "vitality") + vit)

 

doPlayerSendTextMessage(cid, 27, "Evolution bonus: • Offense: +"..doMathDecimal(off).." • Defense: +"..doMathDecimal(def).." • Spc. Atk: +"..doMathDecimal(spatk).." • Agility: +"..doMathDecimal(agi).." • Vitality: +"..doMathDecimal(vit).."")

 

local happy = getItemAttribute(pokeball.uid, "happy")

 

doItemSetAttribute(pokeball.uid, "happy", happy + happyGainedOnEvolution)

 

if happy + happyGainedOnEvolution > 255 then

doItemSetAttribute(pokeball.uid, "happy", 255)

end

 

adjustStatus(pk, pokeball.uid, true, false)

 

if useKpdoDlls then

doUpdateMoves(cid)

end

end

 

 

 

function givePokemonExp(cid, item, expe, pct, rarecandy)

 

if expe <= 0 or not isCreature(cid) then return true end

 

local leveltable = getPokemonExperienceTable(getPokeballName(item.uid, true))

 

if getItemAttribute(item.uid, "exp") + expe > leveltable[300] then

givePokemonExp(cid, item, leveltable[300] - getItemAttribute(item.uid, "exp"))

return true

end

 

doItemSetAttribute(item.uid, "exp", getItemAttribute(item.uid, "exp") + expe)

doItemSetAttribute(item.uid, "happy", getItemAttribute(item.uid, "happy") + 1)

doItemSetAttribute(item.uid, "nextlevelexp", getItemAttribute(item.uid, "nextlevelexp") - expe)

 

if pct then

doPlayerSendTextMessage(cid, 27, "Your "..getPokeballName(item.uid).." has received "..expe.." experience points ("..pct.."%).")

else

if getItemAttribute(item.uid, "nextlevelexp") > 0 then

doPlayerSendTextMessage(cid, 27, "Your "..getPokeballName(item.uid).." ["..getItemAttribute(item.uid, "level").."] has received "..expe.." experience points ("..getItemAttribute(item.uid, "nextlevelexp").." to next level).")

else

doPlayerSendTextMessage(cid, 27, "Your "..getPokeballName(item.uid).." ["..getItemAttribute(item.uid, "level").."] has received "..expe.." experience points and has leveled up!")

end

end

 

if isBeingUsed(item.itemid) then

doSendAnimatedText(getThingPos(getCreatureSummons(cid)[1]), expe, 215)

end

 

if getItemAttribute(item.uid, "nextlevelexp") <= 0 then

local summon = getCreatureSummons(cid)[1]

 

if not isCreature(summon) then return true end

 

doSendFlareEffect(getThingPos(summon))

doSendAnimatedText(getThingPos(summon), "Level up!", 215)

 

adjustPokemonLevel(item.uid, cid, item.itemid)

end

end

 

function givePokemonExpInBp(cid, item, expe, ballid, pct, hidemessage)

 

if expe <= 0 or not isCreature(cid) then return true end

 

local leveltable = getPokemonExperienceTable(getPokeballName(item, true))

 

if getItemAttribute(item, "exp") + expe > leveltable[300] then

givePokemonExpInBp(cid, item, leveltable[300] - getItemAttribute(item, "exp"), ballid)

return true

end

 

doItemSetAttribute(item, "exp", getItemAttribute(item, "exp") + expe)

doItemSetAttribute(item, "happy", getItemAttribute(item, "happy") + 1)

doItemSetAttribute(item, "nextlevelexp", getItemAttribute(item, "nextlevelexp") - expe)

 

if not hidemessage then

if pct then

doPlayerSendTextMessage(cid, 27, "Your "..getPokeballName(item).." has received "..expe.." experience points ("..pct.."%).")

else

if getItemAttribute(item, "nextlevelexp") > 0 then

doPlayerSendTextMessage(cid, 27, "Your "..getPokeballName(item).." ["..getItemAttribute(item, "level").."] has received "..expe.." experience points inside his pokeball ("..getItemAttribute(item, "nextlevelexp").." to next level).")

else

doPlayerSendTextMessage(cid, 27, "Your "..getPokeballName(item).." ["..getItemAttribute(item, "level").."] has received "..expe.." experience points and has leveled up inside his pokeball.")

adjustPokemonLevel(item, cid, ballid)

end

end

end

end

 

 

function doMathDecimal(number, casas)

 

if math.floor(number) == number then return number end

 

local c = casas and casas + 1 or 3

 

for a = 0, 10 do

if math.floor(number) < math.pow(10, a) then

local str = string.sub(""..number.."", 1, a + c)

return tonumber(str)

end

end

 

return number

end

 

 

function adjustPokemonLevel(item, cid, id, rarecandy)

 

if not isCreature(cid) then return true end

 

local exp = getItemAttribute(item, "exp")

local level = getItemAttribute(item, "level")

local leveltable = getPokemonExperienceTable(getPokeballName(item, true))

local newlevel = 1

 

for x = 1, 300 do

if exp >= leveltable[x] and exp < leveltable[x+1] then

newlevel = x

end

end

 

if newlevel <= 1 then return true end

 

local levelsup = (newlevel - level)

local pokemon = getItemAttribute(item, "poke")

local happy = getItemAttribute(item, "happy")

local rate = happy / 100

local newhappiness = happy

 

if happy >= 250 then

newhappiness = 255

elseif happy >= 230 then

newhappiness = happy + 4

elseif happy >= 210 then

newhappiness = happy + 6

elseif happy >= 180 then

newhappiness = happy + 8

elseif happy >= 140 then

newhappiness = happy + 10

elseif happy >= 110 then

newhappiness = happy + 12

else

newhappiness = happy + 15

end

 

local status = getPokemonStatus(pokemon)

 

local off = status.off * rate * levelsup

local def = status.def * rate * levelsup

local agi = status.agi * rate * levelsup

local spatk = status.spatk * rate * levelsup

local vit = status.vit * rate * levelsup

 

doItemSetAttribute(item, "level", newlevel)

 

if not rarecandy then

doItemSetAttribute(item, "happy", newhappiness)

end

 

local nextexp = leveltable[newlevel + 1] - exp

doItemSetAttribute(item, "nextlevelexp", nextexp)

 

doItemSetAttribute(item, "offense", getItemAttribute(item, "offense") + off)

doItemSetAttribute(item, "defense", getItemAttribute(item, "defense") + def)

doItemSetAttribute(item, "speed", getItemAttribute(item, "speed") + agi)

doItemSetAttribute(item, "specialattack", getItemAttribute(item, "specialattack") + spatk)

doItemSetAttribute(item, "vitality", getItemAttribute(item, "vitality") + vit)

 

if newlevel > getPlayerLevel(cid) + pokemonMaxLevelAbovePlayer then

addEvent(doPlayerSendTextMessage, 30, cid, 18, "Warning: Your "..getPokeballName(item).."'s ["..newlevel.."] level is much higher than yours, so you will not be able to call him to battles.")

end

 

if isCreature(cid) and id >= 1 and isBeingUsed(id) then

adjustStatus(getCreatureSummons(cid)[1], item, false, true)

doPlayerSendTextMessage(cid, 27, "• Level: "..newlevel.." (+"..levelsup..") • Offense: +"..doMathDecimal(off).." • Defense: +"..doMathDecimal(def).." • Spc. Atk: +"..doMathDecimal(spatk).." • Agility: +"..doMathDecimal(agi).." • Vitality: +"..doMathDecimal(vit).."")

 

if happy < minHappyToEvolve then return true end

 

if pokemonsCanEvolveByLevel then

 

local summon = getCreatureSummons(cid)[1]

 

local reqlevel = poevo[getCreatureName(summon)] and poevo[getCreatureName(summon)].level or -1

local level = getItemAttribute(item, "level")

local evolution = "none"

local name = getCreatureName(summon)

 

if name == "Tyrogue" and level >= 20 then

if getOffense(summon) == getDefense(summon) then

evolution = "Hitmontop"

elseif getOffense(summon) > getDefense(summon) then

evolution = "Hitmonlee"

else

evolution = "Hitmonchan"

end

elseif name == "Eevee" then

if happy >= maxHappyToEvolve then

if isDay() then

evolution = "Espeon"

else

evolution = "Umbreon"

end

end

elseif name == "Slowpoke" and level >= 28 then

evolution = "Slowbro"

elseif name == "Poliwhirl" and level >= 36 then

evolution = "Poliwrath"

elseif reqlevel > 4 and level >= reqlevel then

evolution = poevo[getCreatureName(summon)].evolution

elseif reqlevel == 2 and happy >= maxHappyToEvolve then

evolution = poevo[getCreatureName(summon)] and poevo[getCreatureName(summon)].evolution or "none"

end

 

if evolution ~= "none" then

doStartEvolution(summon, evolution, 4)

end

end

end

end

 

function adjustStatus(pk, item, health, vite, conditions)

 

if not isCreature(pk) then return true end

 

local bonusoffense = getItemAttribute(item, boffense) or 0

local bonusdefense = getItemAttribute(item, bdefense) or 0

local bonusagility = getItemAttribute(item, bagility) or 0

local bonussattack = getItemAttribute(item, bsattack) or 0

 

setPlayerStorageValue(pk, 1000, getItemAttribute(item, "level"))

setPlayerStorageValue(pk, 1001, getItemAttribute(item, "offense") + bonusoffense)

setPlayerStorageValue(pk, 1002, getItemAttribute(item, "defense") + bonusdefense)

setPlayerStorageValue(pk, 1003, getItemAttribute(item, "speed") + bonusagility)

setPlayerStorageValue(pk, 1005, getItemAttribute(item, "specialattack") + bonussattack)

 

local gender = getItemAttribute(item, "gender") and getItemAttribute(item, "gender") or 0

doCreatureSetSkullType(pk, gender)

 

if vite == true then

local pct = getCreatureHealth(pk) / getCreatureMaxHealth(pk)

local vit = getItemAttribute(item, "vitality") - getPlayerStorageValue(pk, 1004)

setCreatureMaxHealth(pk, getCreatureMaxHealth(pk) + ( vit * HPperVIT ))

doCreatureAddHealth(pk, pct * vit * HPperVIT)

end

 

setPlayerStorageValue(pk, 1004, getItemAttribute(item, "vitality"))

 

doRegainSpeed(pk)

 

local nick = getItemAttribute(item, "poke")

 

if getItemAttribute(item, "nick") then

nick = getItemAttribute(item, "nick")

end

 

setPlayerStorageValue(pk, 1007, nick)

 

local boostlevel = getItemAttribute(item, "boost") or 0

local boostshow = hideBoost and "]" or " + "..boostlevel.."]"

local lvlstr = ""

 

if showBoostSeparated then

boostshow = hideBoost and "]" or "] [+"..boostlevel.."]"

end

 

if hideSummonsLevel then

if not hideBoost then

nick = nick.." [+"..boostlevel.."]"

end

else

nick = nick.." ["..getItemAttribute(item, "level")..""..boostshow..""

end

 

doCreatureSetNick(pk, nick)

 

if not getItemAttribute(item, "happy") then

doItemSetAttribute(item, "happy", 120)

end

 

if not getItemAttribute(item, "hunger") then

doItemSetAttribute(item, "hunger", 5)

end

 

local happy = getItemAttribute(item, "happy")

if happy < 0 then

happy = 0

end

setPlayerStorageValue(pk, 1008, happy)

 

local hunger = getItemAttribute(item, "hunger")

setPlayerStorageValue(pk, 1009, hunger)

 

if health == true then

local mh = getCreatureMaxHealth(pk) + HPperVIT * getVitality(pk)

local rd = 1 - (tonumber(getItemAttribute(item, "hp")))

setCreatureMaxHealth(pk, mh)

doCreatureAddHealth(pk, getCreatureMaxHealth(pk))

doCreatureAddHealth(pk, -(getCreatureMaxHealth(pk) * rd))

end

 

if isSummon(pk) and conditions then

local burn = getItemAttribute(item, "burn")

if burn and burn >= 0 then

addEvent(doAdvancedBurn, 5000, pk, pk, getItemAttribute(item, "burndmg"), burn - 1)

end

 

local poison = getItemAttribute(item, "poison")

if poison and poison >= 0 then

addEvent(doAdvancedPoison, 2500, pk, pk, getItemAttribute(item, "poisondmg"), poison - 1)

end

 

if getItemAttribute(item, "confuse") and getItemAttribute(item, "confuse") >= 1 then

addEvent(doAdvancedConfuse, 1200, pk, getItemAttribute(item, "confuse"), getPlayerStorageValue(pk, 3891))

end

 

if getItemAttribute(item, "blind") and getItemAttribute(item, "blind") >= 1 then

addEvent(doBlind, 300, pk, getItemAttribute(item, "blind"), getItemAttribute(item, "blindef"))

end

 

if getItemAttribute(item, "sleep") and getItemAttribute(item, "sleep") >= 1 then

doSleep(pk, getItemAttribute(item, "sleep"))

end

end

 

return true

end

 

function setWildPokemonLevel(cid, optionalLevel, optionalStatus, optionalNick, optionalExtraExp)

 

if not isCreature(cid) then return true end

 

local levelRange = 0

local off = 0

local def = 0

local agi = 0

local spatk = 0

local vit = 0

local this = getCreatureName(cid)

local ee = 1

 

if optionalExtraExp then

ee = optionalExtraExp

end

 

if optionalLevel and tonumber(optionalLevel) >= 1 then

if optionalLevel <= 300 then

levelRange = optionalLevel

else

levelRange = 300

end

elseif getCreatureOutfit(cid).lookHead and getCreatureOutfit(cid).lookBody and getCreatureOutfit(cid).lookHead <= getCreatureOutfit(cid).lookBody then

levelRange = math.random(getCreatureOutfit(cid).lookHead, getCreatureOutfit(cid).lookBody)

else

levelRange = math.random(20, 30)

end

 

local status = getPokemonStatus(this)

if status then

off = status.off

def = status.def

agi = status.agi

vit = status.vit

spatk = status.spatk

end

 

setPlayerStorageValue(cid, 1000, levelRange)

 

if optionalStatus and optionalStatus.off then

setPlayerStorageValue(cid, 1001, optionalStatus.offense)

setPlayerStorageValue(cid, 1002, optionalStatus.defense)

setPlayerStorageValue(cid, 1003, optionalStatus.agility)

setPlayerStorageValue(cid, 1004, optionalStatus.vitality)

setPlayerStorageValue(cid, 1005, optionalStatus.specialattack)

setPlayerStorageValue(cid, 1011, optionalStatus.offense)

setPlayerStorageValue(cid, 1012, optionalStatus.defense)

setPlayerStorageValue(cid, 1013, optionalStatus.agility)

setPlayerStorageValue(cid, 1014, optionalStatus.vitality)

setPlayerStorageValue(cid, 1015, optionalStatus.specialattack)

else

setPlayerStorageValue(cid, 1001, 5 + math.random(off * levelRange * 0.9, off * levelRange * 1.8))

setPlayerStorageValue(cid, 1002, 5 + math.random(def * levelRange * 0.9, def * levelRange * 1.8))

setPlayerStorageValue(cid, 1003, math.random(agi * levelRange * 0.9, agi * levelRange * 1.8))

setPlayerStorageValue(cid, 1004, math.random(vit * levelRange * 0.9, vit * levelRange * 1.8))

setPlayerStorageValue(cid, 1005, 5 + math.random(spatk * levelRange * 0.9, spatk * levelRange * 1.8))

setPlayerStorageValue(cid, 1011, getPlayerStorageValue(cid, 1001))

setPlayerStorageValue(cid, 1012, getPlayerStorageValue(cid, 1002))

setPlayerStorageValue(cid, 1013, getPlayerStorageValue(cid, 1003))

setPlayerStorageValue(cid, 1014, getPlayerStorageValue(cid, 1004))

setPlayerStorageValue(cid, 1015, getPlayerStorageValue(cid, 1005))

end

 

doRegainSpeed(cid)

 

setCreatureMaxHealth(cid, getCreatureMaxHealth(cid) + getPlayerStorageValue(cid, 1004) * HPperVIT * vitReductionForWild)

doCreatureAddHealth(cid, getCreatureMaxHealth(cid))

 

if pokes[getCreatureName(cid)].exp then

--getMonsterInfo(getCreatureName(cid)).experience

local exp = (50 + pokes[getCreatureName(cid)].exp) * baseExpRate + pokes[getCreatureName(cid)].vitality * levelRange * pokemonExpPerLevelRate

setPlayerStorageValue(cid, 1006, exp * generalExpRate * ee)

end

 

local wildshow = wildBeforeNames and "Wild " or ""

if optionalNick then

if hideWildsLevel then

doCreatureSetNick(cid, optionalNick)

else

doCreatureSetNick(cid, optionalNick.." ["..getWildPokemonLevel(cid).."]")

end

else

if hideWildsLevel then

doCreatureSetNick(cid, ""..wildshow..""..getCreatureName(cid).."")

else

doCreatureSetNick(cid, ""..wildshow..""..getCreatureName(cid).." ["..getWildPokemonLevel(cid).."]")

end

end

end

 

function getOffense(cid)

if not isCreature(cid) then return 0 end

 

if getPlayerStorageValue(cid, 3894) >= 1 then

return tonumber(getPlayerStorageValue(cid, 1001)) / 2

end

 

return tonumber(getPlayerStorageValue(cid, 1001))

end

 

function getDefense(cid)

if not isCreature(cid) then return 0 end

 

if getPlayerStorageValue(cid, 3894) >= 1 then

return tonumber(getPlayerStorageValue(cid, 1002)) / 2

end

 

return tonumber(getPlayerStorageValue(cid, 1002))

end

 

function getSpeed(cid)

if not isCreature(cid) then return 0 end

return tonumber(getPlayerStorageValue(cid, 1003))

end

 

function getVitality(cid)

if not isCreature(cid) then return 0 end

return tonumber(getPlayerStorageValue(cid, 1004))

end

 

function getSpecialAttack(cid)

if not isCreature(cid) then return 0 end

return tonumber(getPlayerStorageValue(cid, 1005))

end

 

function getHappiness(cid)

if not isCreature(cid) then return 0 end

return tonumber(getPlayerStorageValue(cid, 1008))

end

 

function getSpecialDefense(cid)

if not isCreature(cid) then return 0 end

return getSpecialAttack(cid) * 0.85 + getDefense(cid) * 0.2

end

 

function getWildPokemonExp(cid)

return getPlayerStorageValue(cid, 1006)

end

 

function getWildPokemonLevel(cid)

return getPlayerStorageValue(cid, 1000)

end

 

function getLevel(cid)

if isSummon(cid) then

return getItemAttribute(getPlayerSlotItem(getCreatureMaster(cid), 8).uid, "level")

end

return getPlayerStorageValue(cid, 1000)

end

 

function getPokeName(cid)

if not isSummon(cid) then return getCreatureName(cid) end

if getCreatureName(cid) == "Evolution" then return getPlayerStorageValue(cid, 1007) end

local item = getPlayerSlotItem(getCreatureMaster(cid), 8)

if getItemAttribute(item.uid, "nick") then

return getItemAttribute(item.uid, "nick")

end

return getCreatureName(cid)

end

 

function getPokeballName(item, truename)

if not truename and getItemAttribute(item, "nick") then

return getItemAttribute(item, "nick")

end

return getItemAttribute(item, "poke")

end

 

function getPokemonName(cid)

return getCreatureName(cid)

end

 

function getPokemonLevel(cid)

if not isCreature(cid) then return 0 end

return getPlayerStorageValue(cid, 1000)

end

 

function getPokemonGender(cid)

return getCreatureSkullType(cid)

end

 

 

[StyloMaldoso 330]

Patrickstrela

 

voce não poderia me pasa seu pokemon move?

"data/lib/pokemon move?

se quizer ai rep + obg ^^

[FlamesAdmin 261]

Zeref quero mudar a cor da msg