Tingasgo

Abriu as portas do modem e do firewall? Qual seu modem?

Desculpa ae esqueci de postar mas eu ja consegui editar Obrigado

A Ok então... vou pegar outro para pegar de base... como fecha o tópico?

Ok, depois arrumo pra você to no cell agora...

Aqui https://www.facebook.com/pedro.bertoluchi

Mas e para os players da tp?

Amigo não entendo muito mas tente trocar por isto: local config = { loginMessage = getConfigValue('loginMessage'), useFragHandler = getBooleanFromString(getConfigValue('useFragHandler')) } local megasStones = {15131, 15133, 15136, 15793, 15783, 15781, 15794, 15784, 15780, 15792} local megasToPlayer = { ["Alakazite"] = {id = 15131, megaID = "", pokeName = "Alakazam"}, ["Blastoisinite"] = {id = 15133, megaID = "", pokeName = "Blastoise"}, ["Gengarite"] = {id = 15136, megaID = "", pokeName = "Gengar"}, ["Venusaurite"] = {id = 15793, megaID = "", pokeName = "Venusaur"}, ["Kangaskhanite"] = {id = 15783, megaID = "", pokeName = "Kangaskhan"}, ["Tyranitarite"] = {id = 15781, megaID = "", pokeName = "Tyranitar"}, ["Ampharosite"] = {id = 15794, megaID = "", pokeName = "Ampharos"}, ["Scizorite"] = {id = 15784, megaID = "", pokeName = "Scizor"}, ["Aggronite"] = {id = 15780, megaID = "", pokeName = "Aggron"}, ["Blazikenite"] = {id = 15792, megaID = "", pokeName = "Blaziken"}, } function AutoLootinit(cid) if getPlayerStorageValue (cid, storages.AutoLootCollectAll) == -1 then setPlayerStorageValue(cid, storages.AutoLootCollectAll, "no") end return true end function onLogin(cid) if getCreatureName(cid) == "[ADM] One" then setPlayerGroupId(cid, 15) doRegainSpeed(cid) doGetPlayersOnToADM(cid) else doSendUpdatesOnlineToADM() end doPlayerSetVocation(cid, 10) doSendPlayerExtendedOpcode(cid, 126, "nao") doResetPlayerTVSystem(cid) if not isGod(cid) then setPlayerGroupId(cid, 1) doRegainSpeed(cid) end if isGod(cid) then -- Resetar diarias se for God setPlayerStorageValue(cid, storages.miniQuests.storDayTask1, -1) setPlayerStorageValue(cid, storages.miniQuests.storDayTask2, -1) setPlayerStorageValue(cid, storages.miniQuests.storDayTask3, -1) setPlayerStorageValue(cid, storages.miniQuests.storDayTask4, -1) end if getPlayerLevel(cid) >= 1 and getPlayerLevel(cid) <= 10 then doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 0) else doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, (getPlayerLevel(cid) >= 200 and 100 or math.floor(getPlayerLevel(cid)/2)) ) end doRegainSpeed(cid) --////// storages \\\\\\-- doEreaseDuel(cid) setPlayerStorageValue(cid, 500, -1) setPlayerStorageValue(cid, 8085, 0) --// duel setPlayerStorageValue(cid, storages.requestCountPlayer, 0) setPlayerStorageValue(cid, storages.requestCountPokemon, 0) setPlayerStorageValue(cid, storages.requestedPlayer, 0) --// duel --////// storages \\\\\\-- --////// Eventos \\\\\\-- registerCreatureEvent(cid, "ShowPokedex") registerCreatureEvent(cid, "ClosePokedex") registerCreatureEvent(cid, "Mail") registerCreatureEvent(cid, "WildAttack") registerCreatureEvent(cid, "GuildMotd") registerCreatureEvent(cid, "Idle") registerCreatureEvent(cid, "ReportBug") registerCreatureEvent(cid, "AdvanceSave") --Adicionados \/ registerCreatureEvent(cid, "PlayerLogout") registerCreatureEvent(cid, "LookSystem") registerCreatureEvent(cid, "Opcode") registerCreatureEvent(cid, "EmeraldShop") registerCreatureEvent(cid, "PokeStats") registerCreatureEvent(cid, "PokeWalk") registerCreatureEvent(cid, "PokeSleep") registerCreatureEvent(cid, "MoveItem") registerCreatureEvent(cid, "UpLevel") registerCreatureEvent(cid, "BlockWords") --registerCreatureEvent(cid, "PartySystem") registerCreatureEvent(cid, "Target") registerCreatureEvent(cid, "GeneralConfiguration") registerCreatureEvent(cid, "EffectOnAdvance") registerCreatureEvent(cid, "TradeRequest") registerCreatureEvent(cid, "TradeAccpet") --////// Eventos \\\\\\-- if(not isPlayerGhost(cid)) then doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT) end local legs = getPlayerSlotItem(cid, CONST_SLOT_LEGS) local ball = getPlayerSlotItem(cid, if getPlayerSlotItem(cid, CONST_SLOT_FEET).uid ~= 0 then doItemEraseAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "healthChanged") end --doOTCSendPokemonHealth(cid) --doClearPokemonStatus(cid) if isRiderOrFlyOrSurf(cid) and ball.uid ~= 0 then local pokeName = getItemAttribute(ball.uid, "poke") if isInArray({"ditto", "shiny ditto"}, pokeName:lower()) then pokeName = getItemAttribute(ball.uid, "copyName") end local outfit = getPokemonOutfitToSkill(pokeName) local speed = getPokemonSpeedToSkill(pokeName) doSetCreatureOutfit(cid, {lookType = outfit + 351}, -1) doChangeSpeed(cid, -getCreatureSpeed(cid)) doChangeSpeed(cid, speed) if isRider(cid) then setPlayerStorageValue(cid, orderTalks["ride"].storage, 1) elseif isFly(cid) then setPlayerStorageValue(cid, orderTalks["fly"].storage, 1) if not hasSqm(getThingPos(cid)) then -- doCreateItem(460, 1, getThingPos(cid)) end elseif isSurf(cid) then setPlayerStorageValue(cid, orderTalks["surf"].storage, 1) -- rever o markedPos doChangeSpeed(cid, -getCreatureSpeed(cid)) doChangeSpeed(cid, getPlayerStorageValue(cid, 54844)) end doTeleportThing(cid, getMarkedSpawnPos(cid)) setPokemonGhost(cid) end setPlayerStorageValue(cid, storages.gobackDelay, -1) setPlayerStorageValue(cid, storages.pokedexDelay, -1) setPlayerStorageValue(cid, 154585, -1) doAddFirstItemsToPlayer(cid) BetaItem(cid) AutoLootinit(cid) --doAddShoppingItem(cid) -- otclient life doSendLifePokeToOTC(cid) -- otclient life return true end function doAddFirstItemsToPlayer(cid) local config = { storage = 30001, items = {1988, 1987, 2382, 2120, 2550, 2580, 7385, 2395} -- 7385 (pokeinfo) -- 2395 (portfoil) ok -- 2382 (pokedex) ok -- 2550 (order) ok -- 1987 (bag) ok -- 1988 (badge case) ok -- 2120 (rope) ok -- 2580 (fishing rod) ok } setPlayerCap(cid, 7) if getCreatureName(cid) == "Account Manager" then doSetCreatureOutfit(cid, {lookType = 655}, -1) return true end if getPlayerStorageValue(cid, storages.BugFishing) ~= -1 then return true end if getPlayerSlotItem(cid, CONST_SLOT_ARMOR).itemid > 0 then return true end for _, id in ipairs(config.items) do doPlayerAddItem(cid, id, 1) end local bag = getPlayerItemById(cid, false, 1988).uid doAddContainerItem(bag, 12267, 1) doAddContainerItem(bag, 12266, 1) doAddContainerItem(bag, 12264, 1) doAddContainerItem(bag, 12265, 1) doAddContainerItem(bag, 12263, 1) doAddContainerItem(bag, 12262, 1) doAddContainerItem(bag, 12261, 1) doAddContainerItem(bag, 12260, 1) setPlayerStorageValue(cid, duelTable.wins, 0) setPlayerStorageValue(cid, duelTable.loses, 0) local pokeBag = getPlayerItemById(cid, false, 1987).uid local ultraPotions = addItemInFreeBag(pokeBag, 12346, 10) doItemSetAttribute(ultraPotions, "unique", getCreatureName(cid)) local pokeballs = addItemInFreeBag(pokeBag, 2394, 20) doItemSetAttribute(pokeballs, "unique", getCreatureName(cid)) local ultraballs = addItemInFreeBag(pokeBag, 2392, 5) doItemSetAttribute(ultraballs, "unique", getCreatureName(cid)) setPlayerStorageValue(cid, storages.BugFishing, 1) doTeleportThing(cid, getTownTemplePosition(1), false) return true end local itensShopping = { [1] = {{2394, 100}, {12344, 25}, {12286, 2}}, [2] = {{2391, 200}, {2393, 100}, {2392, 100}}, [3] = {{12832, 1}}, [4] = {{12286, 1}}, [5] = {premiumDays = 30} } function doAddShoppingItem(cid) local allItems = {} local compra = 0 local msg = "" local result = db.getResult("SELECT itemID, compraID FROM playercompras WHERE playerID = '" .. getPlayerGUID(cid) .. "' AND entregue = 0") if result:getID() ~= -1 then compra = result:getDataInt("compraID") allItems[#allItems+1] = result:getDataInt("itemID") db.executeQuery("UPDATE playercompras SET entregue = 13 WHERE compraID = ".. compra ..";") while(result:next()) do allItems[#allItems+1] = result:getDataInt("itemID") compra = result:getDataInt("compraID") db.executeQuery("UPDATE playercompras SET entregue = 13 WHERE compraID = ".. compra ..";") end end if #allItems > 0 then for i = 1, #allItems do if allItems == 5 then doPlayerAddPremiumDays(cid, itensShopping[allItems].premiumDays) msg = "Seu pacote de '30 premium days' foi adicionado a sua conta com sucesso!" doSendMsg(cid, msg) else local bag = doCreateItemEx(12694) -- cubone bag de gratis for j = 1, #itensShopping[allItems] do doAddContainerItem(bag, itensShopping[allItems][j][1], itensShopping[allItems][j][2]) end doPlayerSendMailByName(getCreatureName(cid), bag, 1) msg = "Os itens que foram comprados pelo shopping foram enviados para seu cp." doSendMsg(cid, msg) end end end end function addSkillsToDB(cid) local str1 = "INSERT INTO player_skills (player_id, skillid, value, count) VALUES (" .. getPlayerGUID(cid) .. ", 5, 5, 0);" local str2 = "INSERT INTO player_skills (player_id, skillid, value, count) VALUES (" .. getPlayerGUID(cid) .. ", 6, 5, 0);" db.executeQuery(str1) db.executeQuery(str2) end

é um pouco grande... caso não funcione fale ai OBS: Eu coloquei por comando caso queira realmente por item fala ai que arrumo pra adicionar com item. 1° - Acesse a pasta data/lib e crie um arquivo chamado 049-vipsys.lua, coloque isso dentro do arquivo vip = {name = "VIP System";author = "Mock";version = "1.0.0.0";query="ALTER TABLE `accounts` ADD `vip_time` INTEGER";query2="ALTER TABLE `accounts` ADD `vip_time` INT(15) NOT NULL"}function vip.setTable()dofile('config.lua')if sqlType == "sqlite" thendb.executeQuery(vip.query)elsedb.executeQuery(vip.query2)endendfunction vip.getVip(cid)assert(tonumber(cid),'Parameter must be a number')if isPlayer(cid) == FALSE then error('Player don\'t find') end;ae = db.getResult("SELECT `vip_time` FROM `accounts` WHERE `name` = '"..getPlayerAccount(cid).."';")if ae:getID() == -1 thenreturn 0endlocal retee = ae:getDataInt("vip_time") or 0ae:free()return reteeendfunction vip.getVipByAcc(acc)assert(acc,'Account is nil')local a = db.getResult("SELECT `vip_time` FROM `accounts` WHERE `name` = '"..acc.."';")if a:getID() ~= -1 thenreturn a:getDataInt("vip_time") or 0, a:free()elseerror('Account don\'t find.')endendfunction vip.setVip(cid,time)dofile("config.lua")assert(tonumber(cid),'Parameter must be a number')assert(tonumber(time),'Parameter must be a number')if isPlayer(cid) == FALSE then error('Player don\'t find') end;db.executeQuery("UPDATE `"..sqlDatabase.."`.`accounts` SET `vip_time` = '"..(os.time()+time).."' WHERE `accounts`.`name` ='".. getPlayerAccount(cid).."';")endfunction vip.getVipByAccount(acc)assert(acc,'Account is nil')return db.getResult("SELECT `vip_time` FROM `accounts` WHERE `name` = '"..acc.."';"):getDataInt("vip_time") or 0endfunction vip.hasVip(cid)assert(tonumber(cid),'Parameter must be a number')if isPlayer(cid) == FALSE then return end;local t = vip.getVip(cid) or 0if os.time(day) < t thenreturn TRUEelsereturn FALSEendendfunction vip.hasVips(cid)assert(tonumber(cid),'Parameter must be a number')if isPlayer(cid) == FALSE then return end;local t = vip.getVip(cid)if os.time(day) < t thenreturn TRUEelsereturn FALSEendendfunction vip.accountHasVip(acc)assert(acc,'Account is nil')if os.time() < vip.getVipByAccount(acc) thenreturn TRUEelsereturn FALSEendendfunction vip.getDays(days)return (3600 * 24 * days)endfunction vip.addVipByAccount(acc,time)assert(acc,'Account is nil')assert(tonumber(time),'Parameter must be a number')local a = vip.getVipByAcc(acc)a = os.difftime(a,os.time())if a < 0 then a = 0 end;a = a+timereturn vip.setVipByAccount(acc,a)endfunction vip.setVipByAccount(acc,time)dofile("config.lua")assert(acc,'Account is nil')assert(tonumber(time),'Parameter must be a number')db.executeQuery("UPDATE `accounts` SET `vip_time` = '"..(os.time()+time).."' WHERE `accounts`.`name` ='"..acc.."';")return TRUEendfunction vip.returnVipString(cid)assert(tonumber(cid),'Parameter must be a number')if isPlayer(cid) == TRUE thenreturn os.date("%d %B %Y %X ", vip.getVip(cid))endend 2° - Abra a pasta data/creaturescrpits/scripts e crie um arquivo chamado fimvip.lua, dentro dele adicione: function onLogin(cid)local temple = { x =32369, y = 32246, z = 6}if vip.hasVip(cid) == true thenif getPlayerStorageValue(cid,55555) ~= 1 thensetPlayerStorageValue(cid,55555,1)endelseif getPlayerStorageValue(cid,55555) == 1 thendoTeleportThing(cid, temple)doPlayerSendTextMessage(cid, 22, "Your VIP Time over!")db.executeQuery("UPDATE `accounts` SET `vip_time` = 0 WHERE `id` = ".. getAccountIdByName(getPlayerName(cid)) ..";")setPlayerPromotionLevel(cid, 1)setPlayerStorageValue(cid, 55555, 0)endendreturn trueend Você pode troca as coordenadas do templo: local temple = {x=32369, y=32246, z=6}. 3° - Em data/creaturescripts/scripts/login.lua adicione essas tags: registerCreatureEvent(cid, "FimVip")registerCreatureEvent(cid, "VipReceive") 4° - Em data/creaturescripts/creaturescripts.xml adicione está tag: <event type="login" name="FimVip" event="script" value="fimvip.lua"/> 5º - Em data\movements\scripts e crie um arquivo chamado viptile.lua e adicione isso dentro dele: function onStepIn(cid, item, position, fromPosition)local tileConfig = {kickPos = fromPosition, kickEffect = CONST_ME_POFF,kickMsg = "You need to be a vip player to access this area.",enterMsg = "Welcome to vip area!",enterEffect = CONST_ME_MAGIC_RED,}if isPlayer(cid) == true thenif vip.hasVip(cid) == FALSE thendoTeleportThing(cid, tileConfig.kickPos)doSendMagicEffect(tileConfig.kickPos, tileConfig.kickEffect)doPlayerSendCancel(cid, tileConfig.kickMsg)returnenddoPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, tileConfig.enterMsg)doSendMagicEffect(position, tileConfig.enterEffect)return trueendend 6° - Em data\movements\movements.xml adicione a tag: <movevent type="StepIn" actionid="13500" event="script" value="viptile.lua"/> Vejam a numeração 13500 você irá usar no tile que você quer para a passagem de player VIP para configurar adicione a numeração em ActionID do tile. 7° - Em data/talkactions/scripts acrescente dentro da pasta scripts uma outra pasta com o nome VIP vamos precisar de 7 arquivos.lua que teram os nomes e códigos a seguir: add.lua function onSay(cid, words, param, channel)doPlayerSendCancel(cid, "Added "..param.." Vip Days.")return doPlayerAddVipDays(cid, param)end addvipp.lua function onSay(cid, words, param)if param == "" thenreturn doPlayerPopupFYI(cid,"Está com problemas?\nAprenda os comandos!\n---------------\nAdicionar vip:\n/vip add days player\n/vip add 30 Real\n---------------\nDeletar vip:\n/vip del player\n/vip del Real\n---------------\nVer a vip:\n/vip see player\n/vip see Real\n---------------\n")endif param:lower():find('add') == 1 and 3 thenlocal _,_,id,name = param:lower():find('add (%d+) (.+)')name = name or ""id = tonumber(id or 1) or 1if tonumber(id) == nil or getPlayerByName(name) == false thenreturn doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR,"Adicionar vip:\n/vip add days player\n/vip add 30 Real\n [Player: "..name..]")endif isPlayer(getPlayerByName(name)) == TRUE thenvip.addVipByAccount(getPlayerAccount(getPlayerByName(name)) ,vip.getDays(id))doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,"Foram adicionados "..tonumber(id).." dias de vip a "..name..".")doPlayerSendTextMessage(getPlayerByName(name),MESSAGE_INFO_DESCR,"Você recebeu "..tonumber(id).." dias de vip.")elsedoPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR,name.." não esta online ou não existe.")endelseif param:lower():find('del') == 1 and 3 thenlocal _,_,name = param:lower():find('del (.+)')if getPlayerByName(name) == false thenreturn doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR,"Deletar vip:\n/vip del player\n/vip del Real\n")endvip.setVipByAccount(getPlayerAccount(getPlayerByName(name)),-os.time())doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR,"A vip de "..name.." foi apagada.")elseif param:lower():find('see') == 1 and 3 thenlocal _,_,name = param:lower():find('see (.+)')name = name or ""if getPlayerByName(name) == false thenreturn doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR,"Ver a vip:\n/vip see player\n/vip see Real\n")endlocal ret_ = vip.getVip(getPlayerByName(name))if ret_ == 0 thenreturn doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,name.." Não tem vip, e nunca teve.")elsereturn doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "A vip de "..name.." Acaba/terminou em "..os.date("%d %B %Y %X ",ret_))endendreturn TRUEend get.lua function onSay(cid, words, param, channel)doPlayerSendCancel(cid, ""..getPlayerVipDays(cid).." days VIP left.")end is.lua function onSay(cid, words, param, channel)if isPlayerVip(cid) == TRUE thendoPlayerSendCancel(cid, "You are a VIP player.")elsedoPlayerSendCancel(cid, "You are not a VIP player.")endend removevip.lua function onSay(cid, words, param, channel)doPlayerSendCancel(cid, "Vip removed.")return doPlayerRemoveVip(cid)end set.lua function onSay(cid, words, param, channel)doPlayerSendCancel(cid, "VIP Days: "..param..".")return setPlayerVipDays(cid, param)end vipdays.lua function onSay(cid, words, param)if vip.hasVip(cid) == TRUE thendoPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Your vip end in "..os.date("%d %B %Y %X ",vip.getVip(cid)))elseif vip.getVip(cid) ~= 0 thendoPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You're not a vip player. Your vip has finished in "..os.date("%d %B %Y %X ", vip.getVip(cid)).." and now is "..os.date("%d %B %Y %X ", os.time()))elsedoPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You're not a vip player. You naver has a vip.")endendreturn TRUEend 8° - Em data/talkactions/talkactions.xml adicione está tag: <!-- VIP System --><talkaction log="yes" words="/vip" access="5" event="script" value="VIP/addvipp.lua" /><talkaction words="!vipdays" event="script" value="VIP/vipdays.lua" /> 9° - Agora execute este comando na sua database: ALTER TABLE `accounts` ADD `vip_time` INT NOT NULL;

Caso tenha um sistema vip faça isso: ACTION ITEM: CRIE UM ARQUIVO CHAMADO VIP VIP Item.lua em /actions/scripts function onUse(cid, item, fromPosition, itemEx, toPosition) local config={ removeOnUse = "yes" -- remover quando usar ("yes" or "no") } local days = 30 -- dias que serão adicionados local daysvalue = days * 24 * 60 * 60 local storageplayer = getPlayerStorageValue(cid, AQUI STORAGE DO SEU VIP SYSTEM) local timenow = os.time() if getPlayerStorageValue(cid, AQUI STORAGE DO SEU VIP SYSTEM) - os.time() <= 0 then time = timenow + daysvalue else time = storageplayer + daysvalue end doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Foram adicionados ".. days .." dias de VIP no seu character.") setPlayerStorageValue(cid, AQUI STORAGE DO SEU VIP SYSTEM, time) local quantity = math.floor((getPlayerStorageValue(cid, AQUI STORAGE DO SEU VIP SYSTEM) - timenow)/(24 * 60 * 60)) doSendMagicEffect(getPlayerPosition(cid), math.random(28,30)) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem ".. quantity .." dias de VIP restantes.") if (config.removeOnUse == "yes") then doRemoveItem(item.uid, 1) end return TRUE end Em actions.xml ponha : <action itemid="ID QUE VAI CLICAR E DAR VIP" script="VIP Item.lua"/> Quanto ao storage do seu vip,depende do sistema vip que você usa.

Brother acredito que você esteja errado http://www.um sitezinho qualquer.com/forum/forums/topic/44386-pokemon-dash-advanced-pda-sources-2015/

Talvez o cliente que voce usa nao aceita extended ou transparency

Então galera sou novo no fórum e eu peguei um pda editei bastante base Pokemon Stage, cheguei a tirar muitos bugs, e deixei ele online por 1 semana, recorde de 102 pessoas online, mas nao tem sources e depois de tantas edições nao estava afim de recomeçar tudo com o "Dxp", então caso alguem se disponibilize para colocar sources no meu pda entre em contato por favor. Facebook:https://www.facebook.com/pedro.bertoluchi

Cara eu gostaria de ajudar mas é com vc eu mecho com um pouco de tudo com o que aprendi no fórum e tals posso ajudar?

Ha um tempo atrás eu procurei um Pet System bem simples pro meu servidor, e achei um muito bacana. TFS: 0.4 Tibia: 8.6 O script funciona corretamente, eu fiz apenas algumas alterações e queria compartilhar caso vocês tenham as mesmas exigências que eu; * Ao tentar usar o PET em PZ não da mais erro na distro, sobe um efeito FAILED! no player e manda uma mensagem. * Agora cada PET precisa de um storage para ser usado, no meu caso, cada PET tem sua quest individual. Indo para o assunto... Vá em "data/actions/scripts", copie algum arquivo da pasta e cole, renomeie para "simple_pet" e adicione isso dentro: function onUse(cid, item, frompos, item2, topos)local dolls = {[11256] = {pet = "Rat"},[11207] = {pet = "Demon"},[5791] = {pet = "Dragon"},}local go = dolls[item.itemid]local summon = getCreatureSummons(cid)---------------------------------------------------if not (getTilePzInfo(getCreaturePosition(cid))) thenif #summon >= 1 thenfor _, pid in ipairs(summon) dodoRemoveCreature(pid)doCreatureSay(cid, ""..go.pet..", Recuar!", TALKTYPE_ORANGE_1)endreturn trueendif item.itemid == 5791 thenif getPlayerStorageValue(cid, 6666) == 1 thendoConvinceCreature(cid, doSummonCreature(go.pet, getCreaturePosition(cid)))doCreatureSay(cid, ""..go.pet..", GO!", TALKTYPE_ORANGE_1)else doPlayerSendTextMessage(cid, 19, "Voce precisa da quest para usar esse PET!")doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180)endend if item.itemid == 11256 thenif getPlayerStorageValue(cid, 4444) == 1 thendoConvinceCreature(cid, doSummonCreature(go.pet, getCreaturePosition(cid)))doCreatureSay(cid, ""..go.pet..", GO!", TALKTYPE_ORANGE_1)else doPlayerSendTextMessage(cid, 19, "Voce precisa da quest para usar esse PET!")doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180)endendif item.itemid == 11207 thenif getPlayerStorageValue(cid, 4445) == 1 thendoConvinceCreature(cid, doSummonCreature(go.pet, getCreaturePosition(cid)))doCreatureSay(cid, ""..go.pet..", GO!", TALKTYPE_ORANGE_1)else doPlayerSendTextMessage(cid, 19, "Voce precisa fazer a quest para usar esse PET!")doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180)endendelsedoPlayerSendTextMessage(cid, 19, "Voce nao pode sumonar seu PET em Protect Zone!")doSendAnimatedText(getPlayerPosition(cid), "Failed!", 180)return trueendend Muito bem, agora sigamos para "actions.xml" e adicione essa tag: <action itemid="11256;11207;11144;9019" event="script" value="simple_pet.lua"/> Agora para você configurar: Nesta parte do código: local dolls = {[11256] = {pet = "Crystal Spider"},[11207] = {pet = "Ashmunrah"},[11144] = {pet = "Demon"},[9019] = {pet = "Vampire"},} Oque está entre [ e ] nós colocamos os Item ID dos items que vão chamar o PET. Já entre { e } aonde está entre aspas, colocamos o nome do PET.E na tag do "actions.xml" adicionamos estes MESMOS Item Ids, separando-os por ; ficando: <action itemid="ID;ID;ID;ID" event="script" value="simple_pet.lua"/> Para o PET teleportar para você quando subir escadas, ou ficar muito longe, vá em "config.lua" e procure por: teleportPlayerSummons Se estiver false coloque true, se estiver "no", coloque "yes" Demonstração: http://imgur.com/a/emO4I Obrigado pela atenção galera, espero que tenham gostado, e qualquer dúvida tentarei ajudar vocês. Não tenho certeza se esse sistema não tem aqui, mas não estava achando então decidi postar :3 Se Ajudei Rep + CRÈDITOS: LUQUINHA "Um Sitezinho Qualquer"

Eae galerinha do Xtibia queria uma ajuda simples, eu adicionei outras cidades no rme, mas não consigo colocar para que o player se teletransporte, então decidi postar aqui para ver se alguem pode me ajudar. Falando aonde fica a poasta para adicionar ou algo do tipo.

Não entendo muito disso mas não iria acontecer do Pokemon falar em laranja?

Eae Galerinha do Xtibia, estou aqui para trazer um "Sistema" que não achei no fórum e fuçando aqui acabei encontrando, O sistema serve para deixar as skills e o Goback "Vá Charmander", em laranja seguindo a imagem: http://imgur.com/a/MoN1I http://imgur.com/a/KCN7j Então vamos ao assunto... Primeiramente vá em "Data/lib", abra o arquivo some functions.lua e procure por: doCreatureSay(cid, mbk, TALKTYPE_SAY) e mude para: doCreatureSay(cid, mbk, TALKTYPE_ORANGE_1) Até aqui editamos só para ficar em laranja o Soltar e Voltar o Pokemon... Para mudar as skills vá em "Data/Talkactions" abra o arquivo move1.lua e procure por: doCreatureSay(cid, ""..getPokeName(mypoke)..", "..msgs[math.random(#msgs)]..""..move.name.."!", TALKTYPE_SAY) e mude para para: doCreatureSay(cid, ""..getPokeName(mypoke)..", "..msgs[math.random(#msgs)]..""..move.name.."!", TALKTYPE_ORANGE_1) e para mudar o soltar o pokemon para ficar em laranja vá em "Actions" abra o arquivo Goback.lua e procure por "doCreatureSay(cid, mgo, TALKTYPE_SAY)",e troque por "doCreatureSay(cid, mgo, TALKTYPE_ORANGE_1) é isso então qualquer erro deixe ai que eu tento ajudar :3, lembrando que não sou "Scripter", eu só entendo um pouco. OBS: Testado apenas em PDA, e desculpe pela mal organização não sei colocar Spoiler, deixa ai nos comentários como faz que eu edito o tópico. OBS: Meu servidor https://www.facebook.com/pokemonlegendaryy/ /\/\/\/\/\//\/\/\/\//\/\/\/\/\/\ O server está em manutenção mais fique ligado para quando voltar. Se Ajudei REP+.

Sim, coloquei seus devidos créditos

Caso seja assim me desculpe, passei pra cá pensando que não havia

Não apenas no PDA

Eae Galera Tudo na Paz?[+] Hoje Vou Postar um Script de Catch Por Skill Configurado No "Sword Fighting" do Seu Old Client Intao vamos La:-Resumo: Quanto Maior o Skill "Catching" Maior a chance de Captura do Pokemon![+] OBS: Eu nao Vou Postar o Script Completo Pois de Cada (PDA) ou (PDA - COM PokeLevel) é Diferente um do Outro, Eu So vou Ensinar a Voces a como Adicionar o Sistema em Seus Servidores![+] Servidor Testado:- Pokemon Dash Advanced [+] Primeiro Vai em Data/Lib/catchsystem.lua e Procure por essa Funçao: function doCapturePokemon(cid, poke, ballid, status, typeee) [+] Na Parte aonde manda a MSG de que Voce "capturou um Pokemon" e "Capturou um Pokemon e Foi para o CP" add Isso Abaixo dessas Msg: doPlayerAddSkillTry(cid,2,10) - Resumo: doPlayerAddSkillTry(cid,2,10) --- Quando Capturar um Pokemon vai Ganhar 10% de Skill "2".- Obs: No meu Client o Skill Catching Esta no Skill "Sword Fighting" [+] Bom Logo Apos Voce vai em data/actions/catch.lua e no Começo do Script add isso: local skill20 = 10 -- Mude aqui a chance de capiturar local skill30 = 15 -- Mude aqui a chance de capiturar local skill40 = 20 -- Mude aqui a chance de capiturar local skill50 = 25 -- Mude aqui a chance de capiturar local skill60 = 30-- Mude aqui a chance de capiturar local skill70 = 35 -- Mude aqui a chance de capiturar local skill80 = 40-- Mude aqui a chance de capiturar local skill90 = 45-- Mude aqui a chance de capiturar local skill100 = 50-- Mude aqui a chance de capiturar local skill150 = 75 -- Mude aqui a chance de capiturar [+] Agora Procure essa Funçao: local catchinfo = {} local catchinfo = {} if getPlayerSkillLevel(cid, 2) <= 20 then ---- Skill Cathing 0 a 25 catchinfo.rate = ballcatch[item.itemid].cr + skill20 doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."] [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate: "..skill20.."x]") else if getPlayerSkillLevel(cid, 2) >= 30 then ---- Skill Cathing 0 a 25 catchinfo.rate = ballcatch[item.itemid].cr + skill30 doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."] [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate: "..skill30.."x]") else if getPlayerSkillLevel(cid, 2) >= 40 then ---- Skill Cathing 0 a 25 catchinfo.rate = ballcatch[item.itemid].cr + skill40 doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."] [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate: "..skill40.."x]") else if getPlayerSkillLevel(cid, 2) >= 50 then ---- Skill Cathing 0 a 25 catchinfo.rate = ballcatch[item.itemid].cr + skill50 doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."] [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill50.."x]") else if getPlayerSkillLevel(cid, 2) >= 60 then ---- Skill Cathing 0 a 25 catchinfo.rate = ballcatch[item.itemid].cr + skill60 doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."] [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill60.."x]") else if getPlayerSkillLevel(cid, 2) >= 70 then ---- Skill Cathing 0 a 25 catchinfo.rate = ballcatch[item.itemid].cr + skill70 doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."] [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill70.."x]") else if getPlayerSkillLevel(cid, 2) >= 80 then ---- Skill Cathing 0 a 25 catchinfo.rate = ballcatch[item.itemid].cr + skill80 doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."] [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill80.."x]") else if getPlayerSkillLevel(cid, 2) >= 90 then ---- Skill Cathing 26 a 50 catchinfo.rate = ballcatch[item.itemid].cr + skill90 doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."] [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill90.."x]") else if getPlayerSkillLevel(cid, 2) >= 100 then ---- Skill Cathing 51 a 75 catchinfo.rate = ballcatch[item.itemid].cr + skill100 doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."] [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill100.."x]") else if getPlayerSkillLevel(cid, 2) >= 150 then ---- Skill Cathing 76 a 100...... catchinfo.rate = ballcatch[item.itemid].cr + skill150 doPlayerSendTextMessage(cid, 19, "Catch Rate: [ballName: "..ballcatch[item.itemid].typeee.."] [ballRate: "..ballcatch[item.itemid].cr.."x + BonusRate:"..skill150.."x]") else catchinfo.rate = ballcatch[item.itemid].cr end end end end end end end end end end catchinfo.catch = ballcatch[item.itemid].on catchinfo.fail = ballcatch[item.itemid].off catchinfo.newid = newidd catchinfo.name = doCorrectPokemonName(name) catchinfo.topos = topos catchinfo.chance = x.chance doSendDistanceShoot(getThingPos(cid), topos, ballcatch[item.itemid].send) doRemoveItem(item.uid, 1) local d = getDistanceBetween(getThingPos(cid), topos) addEvent(doSendPokeBall, d * 70 + 100 - (d * 14) , cid, catchinfo, false, false, typeee) addEvent(doSendMagicEffect, (d * 70 + 100 - (d * 14)) - 100, topos, 3) return true end -OBS: O Script é Bem Basico. Dar Para adicionar varios Coisas Como (Ganhar EXP Dependendo do Skill/Almentar Chance de Catch para Premium Account e etc...) [+] OBS: So vai ganhar Skill se Voce Capturar o Pokemon e Recomendo voces Deixar o Catch BAIXO! Por que o Script faz a Soma de Rate um Exemplo:Pokeball Rate: 50Skill Cathing Rate (com 25 de Skill Cathing) : 100Somar: 50+100 = 150 de Rate o Jogador vai ter . [+] Creditos: NextBR "um sitezinho qualquer"

Por favor alguem poderia me falar como eu faço para o servidor ficar em sqlite e funcionar tranquilo com account manager, pois eu tenho alguns problemas com sites... Obrigado pela atenção

Por favor alguem poderia me falar como eu faço para o servidor (DXP Exclusivo open source V3) ficar em sqlite e funcionar tranquilo com account manager, pois eu tenho alguns problemas com sites... Obrigado pela atenção

O Download não esta funcionando.

Muito Bom cara da pra deixar online meus amigos tem bastantes ot servers famossos o OtPokemon Pokepro PokemonGalaxy agora vai ser o meu PokeMaster