lol08

Exp 2.0

Tipo quando o clan buga nao sei como os player faz isso começa da esse erro ai , e tipo o pokemon nao recebe dano nem da dano e o erro so da quando algumpokemon selvagem tenta atacar ele.

Clan System local clansAtk = { [1] = { [FIREDAMAGE] = { [1] = {atk = 1.17}, [2] = {atk = 1.22}, [3] = {atk = 1.27}, [4] = {atk = 1.32}, [5] = {atk = 1.37}, }, ["null"] = { }, }, [2] = { [WATERDAMAGE] = { [1] = {atk = 1.05}, [2] = {atk = 1.10}, [3] = {atk = 1.15}, [4] = {atk = 1.20}, [5] = {atk = 1.25}, }, [iCEDAMAGE] = { [1] = {atk = 1.10}, [2] = {atk = 1.15}, [3] = {atk = 1.20}, [4] = {atk = 1.25}, [5] = {atk = 1.30}, }, }, [3] = { [ROCKDAMAGE] = { [1] = {atk = 1.05}, [2] = {atk = 1.10}, [3] = {atk = 1.15}, [4] = {atk = 1.20}, [5] = {atk = 1.25}, }, [GROUNDDAMAGE] = { [1] = {atk = 1.05}, [2] = {atk = 1.10}, [3] = {atk = 1.15}, [4] = {atk = 1.20}, [5] = {atk = 1.25}, }, }, [4] = { [FLYDAMAGE] = { [1] = {atk = 1.15}, [2] = {atk = 1.20}, [3] = {atk = 1.25}, [4] = {atk = 1.30}, [5] = {atk = 1.35}, }, [DRAGONDAMAGE] = { [1] = {atk = 1.10}, [2] = {atk = 1.15}, [3] = {atk = 1.20}, [4] = {atk = 1.25}, [5] = {atk = 1.30}, }, }, [5] = { [GHOSTDAMAGE] = { [1] = {atk = 1.05}, [2] = {atk = 1.10}, [3] = {atk = 1.15}, [4] = {atk = 1.20}, [5] = {atk = 1.25}, }, [POISONDAMAGE] = { [1] = {atk = 1.08}, [2] = {atk = 1.13}, [3] = {atk = 1.18}, [4] = {atk = 1.23}, [5] = {atk = 1.28}, }, }, [6] = { [FIGHTDAMAGE] = { [1] = {atk = 1.05}, [2] = {atk = 1.10}, [3] = {atk = 1.15}, [4] = {atk = 1.20}, [5] = {atk = 1.25}, }, [NORMALDAMAGE] = { [1] = {atk = 1.05}, [2] = {atk = 1.10}, [3] = {atk = 1.15}, [4] = {atk = 1.20}, [5] = {atk = 1.25}, }, }, [7] = { [PSYCHICDAMAGE] = { [1] = {atk = 1.10}, [2] = {atk = 1.15}, [3] = {atk = 1.20}, [4] = {atk = 1.25}, [5] = {atk = 1.30}, }, ["null"] = { }, }, [8] = { [GRASSDAMAGE] = { [1] = {atk = 1.05}, [2] = {atk = 1.10}, [3] = {atk = 1.15}, [4] = {atk = 1.20}, [5] = {atk = 1.25}, }, [bUGDAMAGE] = { [1] = {atk = 1.05}, [2] = {atk = 1.10}, [3] = {atk = 1.15}, [4] = {atk = 1.20}, [5] = {atk = 1.25}, }, }, [9] = { [ELECTRICDAMAGE] = { [1] = {atk = 1.12}, [2] = {atk = 1.17}, [3] = {atk = 1.22}, [4] = {atk = 1.27}, [5] = {atk = 1.32}, }, ["null"] = { }, } } local clansDef = { [1] = { ["fire"] = { [1] = {def = 0.17}, [2] = {def = 0.22}, [3] = {def = 0.27}, [4] = {def = 0.32}, [5] = {def = 0.37}, }, ["null"] = { }, }, [2] = { ["water"] = { [1] = {def = 0.05}, [2] = {def = 0.10}, [3] = {def = 0.15}, [4] = {def = 0.20}, [5] = {def = 0.25}, }, ["ice"] = { [1] = {def = 0.10}, [2] = {def = 0.15}, [3] = {def = 0.20}, [4] = {def = 0.25}, [5] = {def = 0.30}, }, }, [3] = { ["rock"] = { [1] = {def = 0.05}, [2] = {def = 0.10}, [3] = {def = 0.15}, [4] = {def = 0.20}, [5] = {def = 0.25}, }, ["ground"] = { [1] = {def = 0.10}, [2] = {def = 0.15}, [3] = {def = 0.20}, [4] = {def = 0.25}, [5] = {def = 0.30}, }, }, [4] = { ["flying"] = { [1] = {def = 0.15}, [2] = {def = 0.20}, [3] = {def = 0.25}, [4] = {def = 0.30}, [5] = {def = 0.35}, }, ["dragon"] = { [1] = {def = 0.10}, [2] = {def = 0.15}, [3] = {def = 0.20}, [4] = {def = 0.25}, [5] = {def = 0.30}, }, }, [5] = { ["ghost"] = { [1] = {def = 0.05}, [2] = {def = 0.10}, [3] = {def = 0.15}, [4] = {def = 0.20}, [5] = {def = 0.25}, }, ["poison"] = { [1] = {def = 0.08}, [2] = {def = 0.13}, [3] = {def = 0.18}, [4] = {def = 0.23}, [5] = {def = 0.28}, }, }, [6] = { ["fighting"] = { [1] = {def = 0.05}, [2] = {def = 0.10}, [3] = {def = 0.15}, [4] = {def = 0.20}, [5] = {def = 0.25}, }, ["normal"] = { [1] = {def = 0.05}, [2] = {def = 0.10}, [3] = {def = 0.15}, [4] = {def = 0.20}, [5] = {def = 0.25}, }, }, [7] = { ["psychic"] = { [1] = {def = 0.10}, [2] = {def = 0.15}, [3] = {def = 0.20}, [4] = {def = 0.25}, [5] = {def = 0.30}, }, ["null"] = { }, }, [8] = { ["grass"] = { [1] = {def = 0.05}, [2] = {def = 0.10}, [3] = {def = 0.15}, [4] = {def = 0.20}, [5] = {def = 0.25}, }, ["bug"] = { [1] = {def = 0.05}, [2] = {def = 0.10}, [3] = {def = 0.15}, [4] = {def = 0.20}, [5] = {def = 0.25}, }, }, [9] = { ["electric"] = { [1] = {def = 0.12}, [2] = {def = 0.17}, [3] = {def = 0.22}, [4] = {def = 0.27}, [5] = {def = 0.32}, }, } } local clansName = { --[num do clan] = {nome do clan, storage outfit normal, storage outfit rank5}, [1] = {'Volcanic', 181613, 181625}, [2] = {'Seavell', 181619, 181622}, [3] = {'Orebound', 181620, 181627}, [4] = {'Wingeon', 181616, 181626}, [5] = {'Malefic', 181615, 181624}, [6] = {'Gardestrike', 181614, 181628}, [7] = {'Psycraft', 181618, 181629}, [8] = {'Naturia', 181612, 181623}, [9] = {'Raibolt', 181617, 181621}, } function getClanPorcent(master, combat, option, type, type2) --alterado v1.9 \/ if getPlayerClanNum(master) >= 1 then local clanAtk = clansAtk[getPlayerClanNum(master)] local clanDef = clansDef[getPlayerClanNum(master)] if option == "atk" and clanAtk[combat] then return clanAtk[combat][getPlayerClanRank(master)].atk else if option == "def" and clanDef[type] then return clanDef[type][getPlayerClanRank(master)].def elseif option == "def" and clanDef[type2] then return clanDef[type2][getPlayerClanRank(master)].def end end end return option == "atk" and 1 or 0 end function getPlayerClanName(cid) if not isCreature(cid) then return 'No Clan!' end return clansName[getPlayerClanNum(cid)] and clansName[getPlayerClanNum(cid)][1] or 'No Clan!' end function getPlayerClanNum(cid) if not isCreature(cid) then return -1 end return getPlayerStorageValue(cid, 86228) end function getPlayerClanRank(cid) if not isCreature(cid) then return -1 end return getPlayerStorageValue(cid, 862281) end function setPlayerClan(cid, clan) if not isCreature(cid) or not clan then return false end if removePlayerClan(cid) then --para evitar possiveis problemas! if type(clan) == "number" and (clan >= 1 and clan <= 9) then setPlayerStorageValue(cid, 86228, clan) --sto clan setPlayerClanRank(cid, 1) --set rank 1 setPlayerStorageValue(cid, clansName[clan][2], 1) --sto roupa return true elseif type(clan) == "string" then clan = string.lower(clan) for e, f in pairs(clansName) do local clan2 = string.lower(f[1]) if clan == clan2 then setPlayerStorageValue(cid, 86228, e) --sto clan setPlayerClanRank(cid, 1) --set rank 1 setPlayerStorageValue(cid, clansName[e][2], 1) --sto roupa return true end end end end return false end function setPlayerClanRank(cid, rank) if not isCreature(cid) or not rank then return false end if type(rank) == "number" and (rank >= 1 and rank <= 5) then setPlayerStorageValue(cid, 862281, rank) if rank == 5 then setPlayerStorageValue(cid, clansName[getPlayerClanNum(cid)][3], 1) end return true end return false end function removePlayerClan(cid) if not isCreature(cid) then return false end if getPlayerStorageValue(cid, 854789) >= 1 then return false end --nao pode remover o clan se o player tiver fazendo missoes de rank! setPlayerStorageValue(cid, 86228, -1) --sto do clan setPlayerStorageValue(cid, 862281, -1) --sto do rank setPlayerStorageValue(cid, 854789, -1) --sto da quest de rank setPlayerStorageValue(cid, 854788, -1) --sto catch, quest de rank setPlayerStorageValue(cid, 854787, -1) --sto task, quest de rank for i = 181612, 181638 do setPlayerStorageValue(cid, i, -1) --sto das roupas de clan end return true end function checkItensForTask(cid, itens) local check = 0 local array = {} local missing = {} table.insert(missing, "Are missing: ") local c = 0 for i = 1, #itens do if getPlayerItemCount(cid, itens[1]) >= itens[2] then check = check + 1 else table.insert(array, {itens[1], (itens[2]-getPlayerItemCount(cid, itens[1]))}) end end if check == #itens then for b = 1, #itens do doPlayerRemoveItem(cid, itens[1], itens[2]) end return 0 else for a = 1, #array do table.insert(missing, ((a == #array and c ~= 0) and " and " or a ~= 1 and ", " or "{")..(array[a][2]).." "..(getItemNameById(array[a][1]))) c = c+1 end table.insert(missing, "} yet.") return table.concat(missing) end end function checkPokemonForTask(cid, poke) local pbs = getPokeballsInContainer(getPlayerSlotItem(cid, 3).uid) local slot = getPlayerSlotItem(cid, 8) if slot.itemid > 0 and isPokeball(slot.itemid) then if getItemAttribute(slot.uid, "poke") == poke and getItemAttribute(slot.uid, "task") and getItemAttribute(slot.uid, "task") >= 1 then doRemoveItem(slot.uid, 1) doTransformItem(getPlayerSlotItem(cid, CONST_SLOT_LEGS).uid, 2395) return true end end for i = 1, #pbs do if getItemAttribute(pbs, "poke") == poke and getItemAttribute(pbs, "task") and getItemAttribute(pbs, "task") >= 1 then doRemoveItem(pbs, 1) return true end end return false end

Galera meu server ta com um erro que do nada o player bug o clan system ou algo assim . ai começa lagar e os pokemon nao hit ele . me ajudem pf

POSTA ESSAS OUTRAS AE DO MAROWAK E TALS NINGUEM TEM ALEM DE TU EU ACHO

Entao galera estou em duvida de duas empresas e de duas vps poderiam me ajudar ? Empresa 1(servercore): Intel Core i5 3570S 4/4 (3.8Ghz*) 16 GB 1 x 1TB SATA 3 SOFT 0-1 100Mbps Ilimitado Sim (Prime) 1 IP R$ 219,90 Empresa 2 (LGV HOST) 6 vCPU Xeon E5-1600v2 12GB RAM Espaço em disco: 50GB SSD Rede: 1Gbps In/100Mbps Out Proteção DDoS: Cisco ASR Firewall + Tilera + Arbor Peakflow Tráfego Mensal: Ilimitado Painel online: Gerenciamento + Gráficos + KVM Console R$215,00por mês QUAL SERIA A MELHOR DAS DUAS E A MAQUINA TB ?

e QUAL EA MELHOR BASE QUE TA TENDO

Galera oque ta sendo melhor dbo pokemon ou nto ? e qual seria melhor base do escolhido?

Ta assim porem digito o !addon Blastoise e nao vai nem a pau fala que to escrevendo o nome errado local outfits = {["Blastoise"] = 181656} function onSay(cid, words, param) local msg = {"Digite o nome correto!", "Voce não possui Addon Doll!", "Bad param!", "Você recebeu seu addons!"} local param = string.lower(param) if not isPremium(cid) then doPlayerSendCancel(cid, "Você nao tem premium account.") return true end if getPlayerItemCount(cid, 2110) > 0 then if param ~= "" and outfits[param] then doPlayerRemoveItem(cid, 2110, 1) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg[4]) doSendMagicEffect(getCreaturePosition(cid), CONST_ME_GIFT_WRAPS) setPlayerStorageValue(cid, outfits[param], 1) else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg[1]) end else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg[2]) end return true end

<?xml version="1.0"?> <outfits> <!-- NORMAL --> <outfit id="1"> <list gender="0" lookType="511" name="Trainer"/> <list gender="1" lookType="510" name="Trainer"/> </outfit> <outfit id="2"> <list gender="0" lookType="3286" name="Elite Trainer"/> <list gender="1" lookType="3286" name="Elite Trainer"/> </outfit> <outfit id="3" quest="181602"> <list gender="0" lookType="512" name="Rapper"/> <list gender="1" lookType="545" name="Rapper"/> </outfit> <outfit id="4" quest="181601"> <list gender="0" lookType="4044" name="Sasuke"/> <list gender="1" lookType="4044" name="Sasuke"/> </outfit> <outfit id="5" quest="181603"> <list gender="0" lookType="4045" name="Naruto"/> <list gender="1" lookType="4045" name="Naruto"/> </outfit> <outfit id="6" quest="181604"> <list gender="0" lookType="605" name="Rocket"/> <list gender="1" lookType="604" name="Rocket"/> </outfit> <outfit id="7" quest="181605"> <list gender="0" lookType="495" name="Adventurer"/> <list gender="1" lookType="494" name="Adventurer"/> </outfit> <outfit id="8" quest="181606"> <list gender="0" lookType="4046" name="Demon"/> <list gender="1" lookType="4046" name="Demon"/> </outfit> <outfit id="9" quest="181607"> <list gender="0" lookType="3283" name="Atletic"/> <list gender="1" lookType="3284" name="Atletic"/> </outfit> <outfit id="10" quest="181608"> <list gender="0" lookType="519" name="Punk"/> <list gender="1" lookType="518" name="Punk"/> </outfit> <outfit id="11"> <list gender="0" lookType="521" name="Fisher"/> <list gender="1" lookType="520" name="Fisher"/> </outfit> <outfit id="12" quest="181610"> <list gender="0" lookType="3285" name="Mercenary"/> <list gender="1" lookType="3285" name="Mercenary"/> </outfit> <outfit id="13" quest="181611"> <list gender="0" lookType="2451" name="Noiva"/> <list gender="1" lookType="2451" name="Noiva"/> </outfit> <!-- PROMOTE --> <outfit id="14" quest="181612"> <list gender="0" lookType="1149" name="Naturia"/> <list gender="1" lookType="1159" name="Naturia"/> </outfit> <outfit id="15" quest="181613"> <list gender="0" lookType="1152" name="Volcanic"/> <list gender="1" lookType="1154" name="Volcanic"/> </outfit> <outfit id="16" quest="181614"> <list gender="0" lookType="1146" name="Gardestrike"/> <list gender="1" lookType="1155" name="Gardestrike"/> </outfit> <outfit id="17" quest="181615"> <list gender="0" lookType="1153" name="Malefic"/> <list gender="1" lookType="1157" name="Malefic"/> </outfit> <outfit id="18" quest="181616"> <list gender="0" lookType="1148" name="Wingeon"/> <list gender="1" lookType="1158" name="Wingeon"/> </outfit> <outfit id="19" quest="181617"> <list gender="0" lookType="1147" name="Raibolt"/> <list gender="1" lookType="1160" name="Raibolt"/> </outfit> <outfit id="20" quest="181618"> <list gender="0" lookType="1145" name="Psycraft"/> <list gender="1" lookType="1161" name="Psycraft"/> </outfit> <outfit id="21" quest="181619"> <list gender="0" lookType="1151" name="Seavell"/> <list gender="1" lookType="1162" name="Seavell"/> </outfit> <outfit id="22" quest="181620"> <list gender="0" lookType="1150" name="Orebound"/> <list gender="1" lookType="1156" name="Orebound"/> </outfit> <!-- PROMOTE RANK 5 --> <outfit id="23" quest="181621"> <list gender="0" lookType="1437" name="Raibolt Master"/> <list gender="1" lookType="1421" name="Raibolt Master"/> </outfit> <outfit id="24" quest="181622"> <list gender="0" lookType="1438" name="Seavell Master"/> <list gender="1" lookType="1422" name="Seavell Master"/> </outfit> <outfit id="25" quest="181623"> <list gender="0" lookType="1434" name="Naturia Master"/> <list gender="1" lookType="1423" name="Naturia Master"/> </outfit> <outfit id="26" quest="181624"> <list gender="0" lookType="1430" name="Malefic Master"/> <list gender="1" lookType="1428" name="Malefic Master"/> </outfit> <outfit id="27" quest="181625"> <list gender="0" lookType="1432" name="Volcanic Superior"/> <list gender="1" lookType="1425" name="Volcanic Superior"/> </outfit> <outfit id="28" quest="181626"> <list gender="0" lookType="1433" name="Wingeon Master"/> <list gender="1" lookType="1424" name="Wingeon Master"/> </outfit> <outfit id="29" quest="181627"> <list gender="0" lookType="1436" name="Orebound Master"/> <list gender="1" lookType="1427" name="Orebound Master"/> </outfit> <outfit id="30" quest="181628"> <list gender="0" lookType="1431" name="Gardestrike Master"/> <list gender="1" lookType="1429" name="Gardestrike Master"/> </outfit> <outfit id="31" quest="181629"> <list gender="0" lookType="1435" name="Psycraft Master"/> <list gender="1" lookType="1426" name="Psycraft Master"/> </outfit> <!-- PROMOTE MASTER --> <outfit id="32" quest="181630"> <list gender="0" lookType="1437" name="Raibolt Master"/> <list gender="1" lookType="1421" name="Raibolt Master"/> </outfit> <outfit id="33" quest="181631"> <list gender="0" lookType="1438" name="Seavell Master"/> <list gender="1" lookType="1422" name="Seavell Master"/> </outfit> <outfit id="34" quest="181632"> <list gender="0" lookType="1434" name="Naturia Master"/> <list gender="1" lookType="1423" name="Naturia Master"/> </outfit> <outfit id="35" quest="181633"> <list gender="0" lookType="1430" name="Malefic Master"/> <list gender="1" lookType="1428" name="Malefic Master"/> </outfit> <outfit id="36" quest="181634"> <list gender="0" lookType="1432" name="Volcanic Superior"/> <list gender="1" lookType="1425" name="Volcanic Superior"/> </outfit> <outfit id="37" quest="181635"> <list gender="0" lookType="1433" name="Wingeon Master"/> <list gender="1" lookType="1424" name="Wingeon Master"/> </outfit> <outfit id="38" quest="181636"> <list gender="0" lookType="1436" name="Orebound Master"/> <list gender="1" lookType="1427" name="Orebound Master"/> </outfit> <outfit id="39" quest="181637"> <list gender="0" lookType="1431" name="Gardestrike Master"/> <list gender="1" lookType="1429" name="Gardestrike Master"/> </outfit> <outfit id="40" quest="181638"> <list gender="0" lookType="1435" name="Psycraft Master"/> <list gender="1" lookType="1426" name="Psycraft Master"/> </outfit> <!-- GAMEMASTER --> <outfit id="41" access = "4"> <list gender="0-3" lookType="664" name="GameMaster"/> </outfit> <outfit id="42" access = "4"> <list gender="1" lookType="610" name="Reporter"/> </outfit> <!-- NATAL --> <outfit id="43" quest="181639"> <list gender="0" lookType="661" name="Christmas"/> <list gender="1" lookType="662" name="Christmas"/> </outfit> <outfit id="44" quest="181640"> <list gender="0" lookType="1084" name="Christmas 2"/> <list gender="1" lookType="1083" name="Christmas 2"/> </outfit> <!-- HALLOWEEN --> <outfit id="45" quest="181641"> <list gender="0-3" lookType="1140" name="Mummy"/> </outfit> <outfit id="46" quest="181642"> <list gender="0" lookType="1190" name="Bruxa"/> <list gender="1" lookType="1191" name="Dracula"/> </outfit> <outfit id="47" quest="181643"> <list gender="0" lookType="1188" name="Caveira"/> <list gender="1" lookType="1189" name="Diaba"/> </outfit> <!-- CATCHER --> <outfit id="48" quest="181644"> <list gender="0" lookType="1414" name="Catcher"/> <list gender="1" lookType="1413" name="Catcher"/> </outfit> <!-- ESPECIAIS --> <outfit id="49" quest="181645"> <list gender="0" lookType="1016" name="Hunter"/> <list gender="1" lookType="1015" name="Hunter"/> </outfit> <outfit id="50" quest="181646"> <list gender="0" lookType="1035" name="Mergulhadora"/> <list gender="1" lookType="1034" name="Mergulhador"/> </outfit> <outfit id="51" quest="181647"> <list gender="0" lookType="1408" name="Esquiadora"/> <list gender="1" lookType="1407" name="Esquiador"/> </outfit> <outfit id="52" quest="181648"> <list gender="1" lookType="1441" name="Slash"/> </outfit> <outfit id="53" quest="181649"> <list gender="0" lookType="1442" name="Playboy"/> </outfit> <outfit id="54" quest="181650"> <list gender="1" lookType="1443" name="Vinganca"/> </outfit> <outfit id="55" quest="181651"> <list gender="1" lookType="1444" name="House"/> </outfit> <outfit id="56" quest="181652"> <list gender="0" lookType="1184" name="Police Officer"/> <list gender="1" lookType="1183" name="Police Officer"/> </outfit> <outfit id="57" quest="181653"> <list gender="0" lookType="1466" name="Veteran Trainer"/> <list gender="1" lookType="1465" name="Veteran Trainer"/> </outfit> <outfit id="58" quest="181654"> <list gender="0" lookType="1469" name="Assassin"/> <list gender="1" lookType="1470" name="Assassin"/> </outfit> <outfit id="59" quest="181655"> <list gender="0" lookType="1498" name="Natal"/> <list gender="1" lookType="1497" name="Natal"/> </outfit> </outfits>

NADA LEMBRANDO QUE UM SERVER DE POKEMON 8.54

Gostaria de saber porque adiciono o addon doll e o addon nao entra no char nao aparece la fala que adc o item some mais o addon nada ? porfavor me ajudem function onSay(cid, words, param) local femaleOutfits = { ["citizen"]={136}, ["hunter"]={137}, ["mage"]={138}, ["knight"]={139}, ["nobleman"]={140}, ["summoner"]={141}, ["warrior"]={142}, ["barbarian"]={147}, ["druid"]={148}, ["wizard"]={149}, ["oriental"]={150}, ["pirate"]={155}, ["assassin"]={156}, ["beggar"]={157}, ["shaman"]={158}, ["norsewoman"]={252}, ["nightmare"]={269}, ["jester"]={270}, ["brotherhood"]={279}, ["demonhunter"]={288}, ["yalaharian"]={324}, ["warmaster"]={335} } local maleOutfits = { ["citizen"]={128}, ["hunter"]={129}, ["mage"]={130}, ["knight"]={131}, ["nobleman"]={132},["summoner"]={133}, ["warrior"]={134}, ["barbarian"]={143}, ["druid"]={144}, ["wizard"]={145}, ["oriental"]={146}, ["pirate"]={151}, ["assassin"]={152}, ["beggar"]={153}, ["shaman"]={154}, ["norsewoman"]={251}, ["nightmare"]={268}, ["jester"]={273}, ["brotherhood"]={278}, ["demonhunter"]={289}, ["yalaharian"]={325}, ["warmaster"]={336} } local msg = {"Digite o nome correto!", "Voce não possui Addon Doll!", "Bad param!", "Você recebeu seu addons!"} local param = string.lower(param) if (not isPremium(cid)) then doPlayerSendCancel(cid, "Você nao tem premium account.") return TRUE end if(getPlayerItemCount(cid, 9693) > 0) then if(param ~= "" and maleOutfits[param] and femaleOutfits[param]) then doPlayerRemoveItem(cid, 9693, 1) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg[4]) doSendMagicEffect(getCreaturePosition(cid), CONST_ME_GIFT_WRAPS) if(getPlayerSex(cid) == 0)then doPlayerAddOutfit(cid, femaleOutfits[param][1], 3) else doPlayerAddOutfit(cid, maleOutfits[param][1], 3) end else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg[1]) end else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, msg[2]) end end

Quero botar tal pokebola so para premium usar como faço isso ?

tem duelo system ?

Gostaria de um system que a pessoa comprasse o pokemon por certo tempo determinado ... alguem sabe fazer isso ?

Melhor base para um dbo? qual seria?

ata entendi acho que essa bosta tem nao

no caso eu to querendo pegar o dbo arena 2 e passar ele para 8.6 tem como ?

Como transformar ot 8.0 em 8.6 ou 8.54

nao to pedindo para fazer algo demais so estou dizendo pra vcs adicionar algo inovador como um duel syystem que nao tem em nenhuma aqui sem ser pda , porem nao to te obrigando faz se voce quiser

porque eu nao faço minima ideia como adiciona kkk

porquem ninguem adiciona um system de duel ?

Galera estou com um erro na base pokedash 2015 20:05 You see a Discharged Master Ball. It contains an Infernape [level 96]. [bonus level: +30]. It is male. --- Status --- Offense: -2147483648 Defense: -2147483648 Agility: -2147483648 Sp. Attack: -2147483648 Vitality: -2147483648 ISSO E UM LOOK DE UM POKEMON ELE FICA NEGATIVO ESSE ERRO DA NO EXP.LUA [13/05/2015 16:08:22] [Error - CreatureScript Interface] [13/05/2015 16:08:22] data/creaturescripts/scripts/pokeexp.lua:onDeath [13/05/2015 16:08:22] Description: [13/05/2015 16:08:22] (luaDoCreatureAddHealth) Creature not found EXP.LUA local function doPlayerAddPercentLevel(cid, percent) local player_lv, player_lv_1 = getExperienceForLevel(getPlayerLevel(cid)), getExperienceForLevel(getPlayerLevel(cid)+2) local percent_lv = ((player_lv_1 - player_lv) / 200) * percent doPlayerAddExperience(cid, percent_lv) end local combats = { --alterado v2.6 \/ [PSYCHICDAMAGE] = {cor = COLOR_PSYCHIC}, [GRASSDAMAGE] = {cor = COLOR_GRASS}, [POISONEDDAMAGE] = {cor = COLOR_GRASS}, [FIREDAMAGE] = {cor = COLOR_FIRE2}, [bURNEDDAMAGE] = {cor = COLOR_BURN}, [WATERDAMAGE] = {cor = COLOR_WATER}, [iCEDAMAGE] = {cor = COLOR_ICE}, [NORMALDAMAGE] = {cor = COLOR_NORMAL}, [FLYDAMAGE] = {cor = COLOR_FLYING}, [GHOSTDAMAGE] = {cor = COLOR_GHOST}, [GROUNDDAMAGE] = {cor = COLOR_GROUND}, [ELECTRICDAMAGE] = {cor = COLOR_ELECTRIC}, [ROCKDAMAGE] = {cor = COLOR_ROCK}, [bUGDAMAGE] = {cor = COLOR_BUG}, [FIGHTDAMAGE] = {cor = COLOR_FIGHTING}, [DRAGONDAMAGE] = {cor = COLOR_DRAGON}, [POISONDAMAGE] = {cor = COLOR_POISON}, [DARKDAMAGE] = {cor = COLOR_DARK}, [sTEELDAMAGE] = {cor = COLOR_STEEL}, [MIRACLEDAMAGE] = {cor = COLOR_PSYCHIC}, [DARK_EYEDAMAGE] = {cor = COLOR_GHOST}, [sEED_BOMBDAMAGE] = {cor = COLOR_GRASS}, [sACREDDAMAGE] = {cor = COLOR_FIRE2}, } --alterado v2.5 tabelas agora estao em lib/configuration.lua local function sendPlayerDmgMsg(cid, text) if not isCreature(cid) then return true end doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, text) end local spcevo = { ["Poliwhirl"] = {"Poliwrath", "Politoed"}, ["Gloom"] = {"Bellossom", "Vileplume"}, ["Tyrogue"] = {"Hitmonchan", "Hitmontop", "Hitmonlee"}} local function doEvolveWild(cid) if not isCreature(cid) or getCreatureHealth(cid) <= 0 then return true end local name = getCreatureName(cid) local evolution = "none" if spcevo[name] then evolution = spcevo[name][math.random(1, #spcevo[name])] elseif poevo[name] then evolution = poevo[name].evolution end local a = getPokemonStatus(name) if not a or evolution == "none" then return true end local pk = {} local players = getSpectators(getThingPos(cid), 7, 7) if players then for pp = 1, #players do local this = players[pp] if isCreature(this) and isPlayer(this) and (getCreatureTarget(this) == cid ) then doSendMagicEffect(getThingPos(this), 173) local expstring = cid.."expEx" pk[this] = getItemAttribute(getPlayerSlotItem(this, 8).uid, expstring) doItemSetAttribute(getPlayerSlotItem(this, 8).uid, expstring, 0) end end end local level = getPokemonLevel(cid) local pos = getThingPos(cid) local gender = getCreatureSkull(cid) local lifepercentage = 1 - ((getCreatureHealth(cid) * 1.3) / getCreatureMaxHealth(cid)) local lookdir = getCreatureLookDir(cid) local status = {} status.offense = getOffense(cid) + a.off * 8 status.defense = getDefense(cid) + a.def * 8 status.agi = getSpeed(cid) + a.agi * 8 status.spatk = getSpecialAttack(cid) + a.spatk * 8 status.vit = getVitality(cid) + a.vit * 4 doRemoveCreature(cid) local evo = doCreateMonster(evolution, pos) setWildPokemonLevel(evo, level, status) doCreatureSetLookDir(evo, lookdir) doCreatureSetSkullType(evo, gender) doCreatureAddHealth(evo, -getCreatureMaxHealth(evo) * lifepercentage) doSendMagicEffect(getThingPos(evo), 18) for attacker, experience in pairs (pk) do local expstring = evo.."expEx" local exp = experience or 0 doItemSetAttribute(getPlayerSlotItem(attacker, 8).uid, expstring, exp) end sendFinishEvolutionEffect(evo, true) addEvent(sendFinishEvolutionEffect, 550, evo, true) addEvent(sendFinishEvolutionEffect, 1050, evo) end local races = { [4] = {cor = COLOR_FIRE2}, [6] = {cor = COLOR_WATER}, [7] = {cor = COLOR_NORMAL}, [8] = {cor = COLOR_FIRE2}, [9] = {cor = COLOR_FIGHTING}, [10] = {cor = COLOR_FLYING}, [11] = {cor = COLOR_GRASS}, [12] = {cor = COLOR_POISON}, [13] = {cor = COLOR_ELECTRIC}, [14] = {cor = COLOR_GROUND}, [15] = {cor = COLOR_PSYCHIC}, [16] = {cor = COLOR_ROCK}, [17] = {cor = COLOR_ICE}, [18] = {cor = COLOR_BUG}, [19] = {cor = COLOR_DRAGON}, [20] = {cor = COLOR_GHOST}, [21] = {cor = COLOR_STEEL}, [22] = {cor = COLOR_DARK}, [1] = {cor = 180}, [2] = {cor = 180}, [3] = {cor = 180}, [5] = {cor = 180}, } local damages = {GROUNDDAMAGE, ELECTRICDAMAGE, ROCKDAMAGE, FLYDAMAGE, BUGDAMAGE, FIGHTINGDAMAGE, DRAGONDAMAGE, POISONDAMAGE, DARKDAMAGE, STEELDAMAGE} local fixdmgs = {PSYCHICDAMAGE, COMBAT_PHYSICALDAMAGE, GRASSDAMAGE, FIREDAMAGE, WATERDAMAGE, ICEDAMAGE, NORMALDAMAGE, GHOSTDAMAGE} local ignored = {POISONEDDAMAGE, BURNEDDAMAGE} --alterado v2.6 local cannotkill = {BURNEDDAMAGE, POISONEDDAMAGE} function onStatsChange(cid, attacker, type, combat, value) local Premio = { [1] = 2160, [2] = 2160, [3] = 6569, [4] = 2152, [5] = 6569, [6] = 2152, } if combat == FLYSYSTEMDAMAGE then return false end if isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end -- TV local damageCombat = combat if not isCreature(attacker) then --alterado v2.5 cid == attacker if not isInArray(fixdamages, combat) and combats[combat] then doSendAnimatedText(getThingPos(cid), value, combats[combat].cor) end return true end -------------------------------------------------- --alterado v2.6 retirado os combats sleep_powder e poison_powder daki! -------------------------------------------------- if isMonster(cid) then local valor = value if not pokes[getCreatureName(cid)] and damageCombat == COMBAT_PHYSICALDAMAGE then valor = getOffense(attacker) * playerDamageReduction doCreatureAddHealth(cid, -math.abs(valor), 3, races[7].cor) --alterado v2.6 dano nos npcs return false elseif not pokes[getCreatureName(cid)] and damageCombat ~= COMBAT_PHYSICALDAMAGE then doCreatureAddHealth(cid, -math.abs(valor), 3, combats[damageCombat].cor) return false end end -------------------------------------------------- if isPlayer(attacker) then local valor = value if valor > getCreatureHealth(cid) then valor = getCreatureHealth(cid) end if combat == COMBAT_PHYSICALDAMAGE then return false end if combat == PHYSICALDAMAGE then doSendMagicEffect(getThingPos(cid), 3) doSendAnimatedText(getThingPos(cid), valor, races[getMonsterInfo(getCreatureName(cid)).race].cor) end if combats[damageCombat] and not isInArray(fixdmgs, damageCombat) then doSendAnimatedText(getThingPos(cid), valor, combats[damageCombat].cor) end if #getCreatureSummons(attacker) >= 1 and not isInArray({POISONEDDAMAGE, BURNEDDAMAGE}, combat) then doPlayerSendTextMessage(attacker, MESSAGE_STATUS_DEFAULT, "Your "..getPokeName(getCreatureSummons(attacker)[1]).." dealt "..valor.." damage to "..getSomeoneDescription(cid)..".") end return true end -------------------------------------------------- if isPlayer(cid) and #getCreatureSummons(cid) >= 1 and type == STATSCHANGE_HEALTHLOSS then return false end -------------------------------------------------- if isPlayer(cid) and #getCreatureSummons(cid) <= 0 and type == STATSCHANGE_HEALTHLOSS then if isSummon(attacker) or isPlayer(attacker) then if canAttackOther(cid, attacker) == "Cant" then return false end end local valor = 0 if combat == COMBAT_PHYSICALDAMAGE then valor = getOffense(attacker) else valor = getSpecialAttack(attacker) end valor = valor * playerDamageReduction valor = valor * math.random(83, 117) / 100 if valor >= getCreatureHealth(cid) then valor = getCreatureHealth(cid) end valor = math.floor(valor) if valor >= getCreatureHealth(cid) then if getPlayerStorageValue(cid, 6598755) == 1 or getPlayerStorageValue(cid, 6598754) == 1 then setPlayerStorageValue(cid, 6598755, 0) setPlayerStorageValue(cid, 6598754, 0) doRemoveCondition(cid, CONDITION_OUTFIT) doPlayerAddSkill(cid, 4, 1) doSendAnimatedText(getCreaturePosition(cid),"LOOSE",math.random(1,255)) setPlayerStorageValue(cid,19998,getPlayerStorageValue(cid,19998)+1) end if getPlayerStorageValue(cid,17778) == 1 then setGlobalStorageValue(17778,0) setPlayerStorageValue(cid,17778,0) doBroadcastMessage("O Jogador "..getCreatureName(cid).. " do time Azul morreu e perdeu a bandeira!",22) elseif getPlayerStorageValue(cid,17779) == 1 then setPlayerStorageValue(cid,17779,0) setGlobalStorageValue(17779,0) doBroadcastMessage("O Jogador "..getCreatureName(cid).. " do time Vermelho morreu e perdeu a bandeira!",22) end if getPlayerStorageValue(getCreatureMaster(attacker), 6598755) == 1 then setPlayerStorageValue(getCreatureMaster(attacker),19999,getPlayerStorageValue(getCreatureMaster(attacker),19999)+1) doPlayerSendTextMessage(getCreatureMaster(attacker),MESSAGE_EVENT_ORANGE,"[Kill-Player] Voce Ganhou 5 HD + 10% EXP. E Agora tem "..(getPlayerStorageValue(getCreatureMaster(attacker),19999) + 1).." WIN SCORES.") doSendAnimatedText(getCreaturePosition(getCreatureMaster(attacker)),"WINN",math.random(1,255)) --doPlayerAddItem(getCreatureMaster(attacker), 2152, 5) doPlayerAddPercentLevel(getCreatureMaster(attacker),10) setPlayerStorageValue(getCreatureMaster(attacker), 6598755,1) setGlobalStorageValue(5001, getGlobalStorageValue(5001) + 1) doPlayerAddSkill(cid, 3, 1) doBroadcastMessage("[Placar] : RedFrag [".. (getGlobalStorageValue(5001)+1).."] X ["..(getGlobalStorageValue(5002)+1).. "] BlueFrag",22) elseif getPlayerStorageValue(getCreatureMaster(attacker), 6598754) == 1 then setPlayerStorageValue(getCreatureMaster(attacker),19999,getPlayerStorageValue(getCreatureMaster(attacker),19999)+1) doPlayerSendTextMessage(getCreatureMaster(attacker),MESSAGE_EVENT_ORANGE,"[Kill-Player] Voce Ganhou 5 HD + 10% EXP. E Agora tem "..(getPlayerStorageValue(getCreatureMaster(attacker),19999) + 1).." WIN SCORES.") doSendAnimatedText(getCreaturePosition(getCreatureMaster(attacker)),"WINN",math.random(1,255)) --doPlayerAddItem(getCreatureMaster(attacker), 2152, 5) doPlayerAddPercentLevel(getCreatureMaster(attacker),10) setPlayerStorageValue(getCreatureMaster(attacker), 6598754,1) setGlobalStorageValue(5002, getGlobalStorageValue(5002) + 1) doPlayerAddSkill(cid, 3, 1) doBroadcastMessage("[Placar] : RedFrag [".. (getGlobalStorageValue(5001)+1).."] X ["..(getGlobalStorageValue(5002)+1).. "] BlueFrag",22) end if getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 63215) >= 1 then doRemoveCondition(cid, CONDITION_OUTFIT) setPlayerStorageValue(cid, 17000, 0) setPlayerStorageValue(cid, 17001, 0) setPlayerStorageValue(cid, 63215, -1) doChangeSpeed(cid, PlayerSpeed) local item = getPlayerSlotItem(cid, 8) local btype = getPokeballType(item.itemid) if #getCreatureSummons(cid) <= 0 then if isInArray(pokeballs[btype].all, item.itemid) then doTransformItem(item.uid, pokeballs[btype].off) doItemSetAttribute(item.uid, "hp", 0) end end end if getPlayerStorageValue(cid, 22545) == 1 then if getGlobalStorageValue(22550) == 1 then doPlayerSendTextMessage(cid, 20, "You are the last survivor of the golden arena! Take your reward!") doPlayerAddItem(cid, 2152, getPlayerStorageValue(cid, 22551)*2) setPlayerStorageValue(cid, 22545, -1) doTeleportThing(cid, getClosestFreeTile(cid, getClosestFreeTile(cid, posBackGolden)), false) doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid)) setPlayerRecordWaves(cid) endGoldenArena() return false else setGlobalStorageValue(22550, getGlobalStorageValue(22550)-1) setPlayerStorageValue(cid, 22545, -1) doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false) doCreatureAddHealth(cid, getCreatureMaxHealth(cid)-getCreatureHealth(cid)) setPlayerRecordWaves(cid) return false end end local corpse = doCreateItem(3058, 1, getThingPos(cid)) doDecayItem(corpse) doItemSetAttribute(corpse, "pName", getCreatureName(cid)) --alterado v2.7 coloca corpse quando o player morre! doItemSetAttribute(corpse, "attacker", getCreatureName(attacker)) doItemSetAttribute(corpse, "article", getPlayerSex(cid) == 0 and "She" or "He") if getPlayerStorageValue(cid, 98796) >= 1 then setPlayerStorageValue(cid, 98796, -1) setPlayerStorageValue(cid, 98797, -1) --alterado v2.8 doTeleportThing(cid, SafariOut, false) doSendMagicEffect(getThingPos(cid), 21) doPlayerSendTextMessage(cid, 27, "You die in the saffari...") return false end if getPlayerStorageValue(cid, Agatha.stoIni) >= 1 and getPlayerStorageValue(cid, Agatha.stoIni) <= 10 then setPlayerStorageValue(cid, Agatha.stoIni, -1) setPlayerStorageValue(cid, Agatha.stoRec, -1) setPlayerStorageValue(cid, Agatha.stoPer, -1) setPlayerStorageValue(cid, Agatha.stoEni, -1) --alterado v2.9 agatha quest setPlayerStorageValue(cid, Agatha.stoRes, -1) end end doCreatureAddHealth(cid, -valor, 3, 180) if not isPlayer(cid) and valor > 0 then addEvent(sendPlayerDmgMsg, 5, cid, "You lost "..valor.." hitpoints due to an attack from "..getSomeoneDescription(attacker)..".") end return false end -------------------------------------------------- if type == STATSCHANGE_HEALTHGAIN then if cid == attacker then return true end if isSummon(cid) and isSummon(attacker) and canAttackOther(cid, attacker) == "Cant" then return false end return true end -------------------------------------------------- if isMonster(attacker) and getPlayerStorageValue(attacker, 201) ~= -1 then if isPlayer(cid) then return false end if getPlayerStorageValue(getCreatureMaster(cid), ginasios[getPlayerStorageValue(attacker, 201)].storage) ~= 1 then return false end end -------------------------------------------------- if isMonster(cid) and getPlayerStorageValue(cid, 201) ~= -1 then if getPlayerStorageValue(getCreatureMaster(attacker), ginasios[getPlayerStorageValue(cid, 201)].storage) ~= 1 then return false end end -------------------------------------------------- if ehMonstro(cid) and ehMonstro(attacker) then return false --edited monstro nao atacar monstro end --------------------------------------------------- --------------------REFLECT----------------------- if getPlayerStorageValue(cid, 21099) >= 1 and combat ~= COMBAT_PHYSICALDAMAGE then if not isInArray({"Team Claw", "Team Slice"}, getPlayerStorageValue(attacker, 21102)) then doSendMagicEffect(getThingPosWithDebug(cid), 135) doSendAnimatedText(getThingPosWithDebug(cid), "REFLECT", COLOR_GRASS) addEvent(docastspell, 100, cid, getPlayerStorageValue(attacker, 21102)) if getCreatureName(cid) == "Wobbuffet" then doRemoveCondition(cid, CONDITION_OUTFIT) end setPlayerStorageValue(cid, 21099, -1) --alterado v2.6 setPlayerStorageValue(cid, 21100, 1) setPlayerStorageValue(cid, 21101, attacker) setPlayerStorageValue(cid, 21103, getTableMove(attacker, getPlayerStorageValue(attacker, 21102)).f) setPlayerStorageValue(cid, 21104, getCreatureOutfit(attacker).lookType) return false end end ------------------------------------------------- local multiplier = 1 if isCreature(cid) then poketype1 = pokes[getCreatureName(cid)].type --alterado v2.6 poketype2 = pokes[getCreatureName(cid)].type2 end if not poketype1 or not poketype2 then return false end --alterado v2.6 if getCreatureCondition(cid, CONDITION_INVISIBLE) then return false end if damageCombat ~= COMBAT_PHYSICALDAMAGE and not isInArray(ignored, damageCombat) then if isInArray(effectiveness[damageCombat].super, poketype1) then multiplier = multiplier + 0.5 end if isInArray(effectiveness[damageCombat].super, poketype2) then multiplier = multiplier + 0.5 end if isInArray(effectiveness[damageCombat].weak, poketype1) then multiplier = multiplier - 0.25 --alterado v2.3 efetividade q nem na pxg... end if isInArray(effectiveness[damageCombat].weak, poketype2) then multiplier = multiplier - 0.25 end if isInArray(effectiveness[damageCombat].non, poketype1) or isInArray(effectiveness[damageCombat].non, poketype2) then if isInArray(specialabilities["foresight"], getCreatureName(attacker)) then --alterado v2.5 multiplier = 0.5 --alterado v2.6 end end elseif combat == COMBAT_PHYSICALDAMAGE then if isGhostPokemon(cid) then --alterado v2.3 if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) then --alterado v2.5 doSendMagicEffect(getThingPos(cid), 3) return false end end local cd = getPlayerStorageValue(attacker, conds["Miss"]) local cd2 = getPlayerStorageValue(attacker, conds["Confusion"]) --alterado v2.5 local cd3 = getPlayerStorageValue(attacker, conds["Stun"]) if cd >= 0 or cd2 >= 0 or cd3 >= 0 then if math.random(1, 100) > 50 then --50% chance de da miss no atk fisico doSendMagicEffect(getThingPos(cid), 211) doSendAnimatedText(getThingPos(attacker), "MISS", 215) return false end end end -------------------------------------------------- local valor = value if multiplier == 1.5 and poketype2 == "no type" then multiplier = 2 --alterado v2.6 elseif multiplier == 1.5 and poketype2 ~= "no type" then multiplier = 1.75 elseif multiplier == 1.25 then --edited effetivines = pxg multiplier = 1 end -------------------------------------------------- if isSummon(cid) and isSummon(attacker) then if getCreatureMaster(cid) == getCreatureMaster(attacker) then return false end if canAttackOther(cid, attacker) == "Cant" then return false end end local randomRange = math.random(83, 117) / 100 local block = 1 if not isPlayer(cid) then if combat == COMBAT_PHYSICALDAMAGE then block = 1 - (getDefense(cid) / (getOffense(attacker) + getDefense(cid))) if getPokemonGender(attacker) == SEX_MALE then block = block + 0.2 end if getPokemonGender(cid) == SEX_FEMALE then block = block - 0.2 end valor = getOffense(attacker) * block if isInArray(specialabilities["counter"], getCreatureName(cid)) then if math.random(1, 100) <= 10 then doCreatureAddHealth(attacker, -valor, 3, 180) --alterado v2.5 valor = 0 doSendAnimatedText(getThingPosWithDebug(cid), "COUNTER", 215) end end else block = 1 - (getDefense(cid) / (getSpecialAttack(attacker) + getDefense(cid))) valor = valor * block * generalSpecialAttackReduction if isSummon(cid) then valor = valor * summonSpecialDamageReduction - getPokemonLevel(cid) / 2 end end end valor = valor * multiplier valor = valor * randomRange if isSummon(attacker) then valor = valor * getHappinessRate(attacker) else valor = valor * summonReduction end valor = math.floor(valor) if combat == BURNEDDAMAGE then valor = value * getResistance(cid, FIREDAMAGE) elseif combat == POISONEDDAMAGE then valor = value * getResistance(cid, POISONDAMAGE) end if math.random(1, 100) == 4 and not isInArray(ignorecritical, combat) then doSendAnimatedText(getThingPos(attacker), "CRITICAL", 215) valor = valor * 2 end -------------------------Edited CLAN SYSTEM----------------------------------- if isSummon(attacker) and getPlayerStorageValue(getCreatureMaster(attacker), 86228) >= 1 then valor = valor*getClanPorcent(getCreatureMaster(attacker), combat, "atk") elseif isSummon(cid) and getPlayerStorageValue(getCreatureMaster(cid), 86228) >= 1 then --alterado v2.3 valor = valor - (valor*getClanPorcent(getCreatureMaster(cid), combat, "def", pokes[getCreatureName(cid)].type, pokes[getCreatureName(cid)].type2)) end ----------------------------------------------------------------------- ---------------------- Edited Proteção -------------------------------- if valor <= 10 then valor = math.random(15, 25) end ----------------------------------------------------------------------- ---------------------- FEAR / ROAR ------------------------------------ if getPlayerStorageValue(attacker, conds["Fear"]) >= 1 then --alterado v2.5!! return true end --------------------------------------------------------------------------- if damageCombat ~= COMBAT_PHYSICALDAMAGE and not isInArray(ignored, damageCombat) then if isInArray(effectiveness[damageCombat].non, poketype1) or isInArray(effectiveness[damageCombat].non, poketype2) then if not isInArray(specialabilities["foresight"], getCreatureName(attacker)) and getPlayerStorageValue(attacker, 999457) <= 0 then valor = valor * 0 --alterado v2.5 end end end if damageCombat == GROUNDDAMAGE then if isInArray(specialabilities["levitate"], getCreatureName(cid)) then valor = 0 --alterado v2.5 end end ----------------------------------------------------------------------------- local p = getThingPos(cid) --poke na pos backup if p.x == 1 and p.y == 1 and p.z == 10 then return false --alterado v2.2 end if getPlayerStorageValue(cid, 9658783) == 1 then return false --alterado v2.4 -- skill camuflage/future sight/acid armor e afins end ----------------------------------------------------------------------------- if valor >= getCreatureHealth(cid) then if isInArray(cannotKill, combat) and isPlayer(cid) then valor = getCreatureHealth(cid) - 1 else valor = getCreatureHealth(cid) end end valor = math.floor(valor) --alterado v2.5 ------------------ SKILLs Q CURAM O ATTACKER --------------------------------- local function doHeal(cid, amount) if (getCreatureHealth(cid) + amount) >= getCreatureMaxHealth(cid) then amount = math.abs(getCreatureHealth(cid)-getCreatureMaxHealth(cid)) end if getCreatureHealth(cid) ~= getCreatureMaxHealth(cid) then --alterado v2.6 doCreatureAddHealth(cid, amount) doSendAnimatedText(getThingPosWithDebug(cid), "+"..amount.."", 65) end end if damageCombat == PSYCHICDAMAGE or damageCombat == MIRACLEDAMAGE then if getPlayerStorageValue(attacker, 95487) >= 1 then doHeal(attacker, valor) setPlayerStorageValue(attacker, 95487, -1) --alterado v2.6 end elseif damageCombat == SEED_BOMBDAMAGE then doHeal(attacker, valor) end -------------------------------------------- ----------SACRED FIRE----------------------- if combat == SACREDDAMAGE and not ehNPC(cid) then --alterado v2.6 local ret = {} ret.id = cid ret.cd = 9 ret.check = getPlayerStorageValue(cid, conds["Silence"]) ret.eff = 39 ret.cond = "Silence" doCondition2(ret) end --------------Passiva Lifesteal Clobat------------ if combat == COMBAT_PHYSICALDAMAGE then if getCreatureName(attacker) == "Crobat" then --alterado v2.4 doCreatureAddHealth(attacker, math.floor(valor)) doSendAnimatedText(getThingPos(attacker), "+ "..math.floor(valor), 30) end end -------------------------------------------- if isSummon(attacker) then local expstring = cid.."expEx" if getItemAttribute(getPlayerSlotItem(getCreatureMaster(attacker), 8).uid, expstring) == null then doItemSetAttribute(getPlayerSlotItem(getCreatureMaster(attacker), 8).uid, expstring, 0) end local exp = valor / getCreatureMaxHealth(cid) local ball = getPlayerSlotItem(getCreatureMaster(attacker), 8).uid local xpp = tonumber(getItemAttribute(ball, expstring)) local nxpp = xpp + exp doItemSetAttribute(ball, expstring, nxpp) if getItemAttribute(ball, expstring) > 1 then doItemSetAttribute(ball, expstring, 1) end end if isSummon(attacker) then if combat == COMBAT_PHYSICALDAMAGE then doTargetCombatHealth(getCreatureMaster(attacker), cid, PHYSICALDAMAGE, -valor, -valor, 255) addEvent(doDoubleHit, 1000, attacker, cid, valor, races) --alterado v2.6 agility else doTargetCombatHealth(getCreatureMaster(attacker), cid, damageCombat, -valor, -valor, 255) end if not isSummon(cid) and not isPlayer(cid) and math.random(1, wildEvolveChance) == math.random(1, wildEvolveChance) then addEvent(doEvolveWild, math.random(1, 2500), cid) end else if combat ~= COMBAT_PHYSICALDAMAGE then doCreatureAddHealth(cid, -valor, 3, combats[damageCombat].cor) else doCreatureAddHealth(cid, -math.abs(valor), 3, races[getMonsterInfo(getCreatureName(cid)).race].cor) addEvent(doDoubleHit, 1000, attacker, cid, valor, races) --alterado v2.6 agility end if isSummon(cid) then addEvent(sendPlayerDmgMsg, 5, getCreatureMaster(cid), "Your "..getCreatureName(cid).." lost "..valor.." hitpoints due to an attack from "..getSomeoneDescription(attacker)..".") end end if damageCombat == FIREDAMAGE and not isBurning(cid) then local ret = {} ret.id = cid ret.cd = math.random(5, 12) --alterado v2.5 ret.check = getPlayerStorageValue(cid, conds["Burn"]) ret.damage = isSummon(attacker) and getMasterLevel(attacker)+getPokemonBoost(attacker) or getPokemonLevel(attacker) ret.cond = "Burn" doCondition2(ret) elseif damageCombat == POISONDAMAGE and not isPoisoned(cid) then local ret = {} ret.id = cid ret.cd = math.random(6, 15) --alterado v2.5 ret.check = getPlayerStorageValue(cid, conds["Poison"]) local lvl = isSummon(attacker) and getMasterLevel(attacker) or getPokemonLevel(attacker) ret.damage = math.floor((getPokemonLevel(attacker)+lvl)/2) ret.cond = "Poison" doCondition2(ret) end ------------------------------------POTIONS------------------------------------------- if isSummon(cid) and type == STATSCHANGE_HEALTHLOSS then if getPlayerStorageValue(cid, 173) >= 1 then if damageCombat ~= BURNEDDAMAGE and damageCombat ~= POISONEDDAMAGE then setPlayerStorageValue(cid, 173, -1) --alterado v2.6 doSendAnimatedText(getThingPos(cid), "Lost Heal", 144) end end end ----------------------------------------PASSIVAS------------------------------------- --alterado v2.6 \/ todas as passivas agora estao em lib/pokemon moves.lua -------------------------------------------Counter Helix------------------------------------ local helix = {"Scyther", "Scizor", "Shiny Scyther", "Hitmontop", "Shiny Hitmontop", "Pineco", "Forretress"} if isInArray(helix, getCreatureName(cid)) and math.random(1, 100) <= 15 then docastspell(cid, "Counter Helix") end -------------------------------------------Lava Counter/Electricity---------------------------- local Fire_Thunder = {"Magmar", "Electabuzz", "Shiny Electabuzz", "Magby", "Elekid"} if isInArray(Fire_Thunder, getCreatureName(cid)) and math.random(1, 100) <= 15 then docastspell(cid, "Lava-Electricity") end -------------------------------------------Demon Kicker------------------------------------- --alterado v1.6 esta por ATK agora -------------------------------------------Demon Puncher------------------------------------- --alterado v1.6 esta por ATK agora ---------------------------------------Stunning Confusion----------------------------------------- local ducks = {"Golduck", "Psyduck", "Wobbuffet"} --alterado v1.6 if isInArray(ducks, getCreatureName(cid)) and math.random(1, 100) <= 20 then docastspell(cid, "Stunning Confusion") end -----------------------------------------Groundshock----------------------------------- if getCreatureName(cid) == "Kangaskhan" and math.random(1, 100) <= 20 then docastspell(cid, "Groundshock") end --------------------------------------Electric Charge--------------------------------------------- local charge = {"Pikachu", "Raichu", "Shiny Raichu"} if isInArray(charge, getCreatureName(cid)) and math.random(1, 100) <= 15 then docastspell(cid, "Electric Charge", 0, 0) end -------------------------------------Melody------------------------------------ if getCreatureName(cid) == "Wigglytuff" and math.random(1, 100) <= 10 then docastspell(cid, "Melody") end ------------------------------------- Dragon Fury / Fury --------------------------------------- local DracoFury = {"Persian", "Raticate", "Shiny Raticate", "Gyarados", "Shiny Gyarados", "Dratini", "Shiny Dratini", "Dragonair", "Shiny Dragonair", "Dragonite", "Shiny Dragonite"} --alterado v1.6 if isInArray(DracoFury, getCreatureName(cid)) and math.random(1, 100) <= 10 then docastspell(cid, "Dragon Fury", 0, 0) end ------------------------------------- Mega Drain --------------------------------------- local mega = {"Oddish", "Gloom", "Vileplume", "Kabuto", "Kabutops", "Parasect", "Tangela", "Shiny Vileplume", "Shiny Tangela", "Shiny Parasect"} if isInArray(mega, getCreatureName(cid)) and math.random(1, 100) <= 10 then docastspell(cid, "Mega Drain") end ------------------------------------- Spores Reaction --------------------------------------- local spores = {"Oddish", "Gloom", "Vileplume", "Shiny Vileplume"} if isInArray(spores, getCreatureName(cid)) and math.random(1, 100) <= 10 then docastspell(cid, "Spores Reaction") end ------------------------------------ Amnesia ---------------------------------------- local amnesia = {"Wooper", "Quagsire", "Swinub", "Piloswine"} if isInArray(amnesia, getCreatureName(cid)) and math.random(1, 100) <= 10 then docastspell(cid, "Amnesia", 0, 0) end ----------------------------------- Zen Mind ----------------------------------------- if getCreatureName(cid) == "Slowking" and math.random(1, 100) <= 10 and isWithCondition(cid) then docastspell(cid, "Zen Mind", 0, 0) end ---------------------------------- Mirror Coat --------------------------------------- if getCreatureName(cid) == "Wobbuffet" and math.random(1, 100) <= 30 then docastspell(cid, "Mirror Coat", 0, 0) end --------------------------------- Illusion ----------------------------------------- return false end

Galera meu server com base do pokedash 2015 esta com um problema serio quando eu dou catch o OTC congela (Como se tivesse caido a net so relogando para arrumar) . Eo old client Da crash ,Gostaria da ajuda de voces para resolver isso urgentemente . Informaçoes adc: CLIENT EX. ITEM.OTB TB COM NOVOS ITENS

muito obg