pokemon Suporte / Dúvidas (DXP Exclusivo Poketibia OpenSource)

[Taiger 286]

Ola amigos, estou criando este tópico exclusivamente para suporte e ajuda para o servidor postado por mim, visto que no tópico do mesmo que é para download esta havendo muita procura por ajuda com relação a scripts e ediçoes em geral.

 Postem aqui suas duvidas, correções e edições do server.

 

[IOWeenI 0]

Mano aqui quando já se tem 6 poke contigo o próximo era pra ir pra DP mas n esta caindo lá ajuda aew pls só falta esse bug pra mim ter arrumado tudo

[IOWeenI 0]

Mais uma coisa.... o Elemental Hands do hitmonchan não esta dando auto attack com a passiva

tipo de fogo causar dano com base em fogo e etc

[Brunno Dornella 1]

@Taiger e demais, Boa noite, tenho uma dúvida referente a Pokémon selvagem

Em meu servidor veio alguns pokemons de Outland, porém alguns deles vieram com um bug chato (eles não acertam nenhum dano mesmo soltando spells e malee)

Alguém pode me falar onde eu posso configurar? Sou novo no ramo de derivado kk

Agradeço

 

[matheus7z 6]

Em 19/06/2016 at 01:39, Drakopoulos disse:

Está tentando adicionar a bag pra char criado em sqlite em account manager? se sim manda o login.lua.

 

Spoiler

local config = {	loginMessage = getConfigValue('loginMessage'),	useFragHandler = getBooleanFromString(getConfigValue('useFragHandler'))}function BetaItem(cid)	if getPlayerStorageValue(cid, storages.betaStorage) == -1 then		addPokeToPlayer(cid, "Squirtle", 0, nil, "poke", true)		addPokeToPlayer(cid, "Charmander", 0, nil, "poke", true)		addPokeToPlayer(cid, "Bulbasaur", 0, nil, "poke", true)		setPlayerStorageValue(cid, storages.betaStorage, 1)		doSendMsg(cid, "Você ganhou um Pack Inicial.")			end		end	function AutoLootinit(cid)	if getPlayerStorageValue (cid, storages.AutoLootCollectAll) == -1 then	setPlayerStorageValue(cid, storages.AutoLootCollectAll, "no")	end	return true 	endfunction 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, "task_count")	 registerCreatureEvent(cid, "UpLevel")	 registerCreatureEvent(cid, "BlockWords")	 --registerCreatureEvent(cid, "PartySystem")	 registerCreatureEvent(cid, "Target")	 registerCreatureEvent(cid, "GeneralConfiguration")	 registerCreatureEvent(cid, "EffectOnAdvance")	 registerCreatureEvent(cid, "TradeRequest")	 registerCreatureEvent(cid, "TradeAccpet")	 registerCreatureEvent(cid, "KillTask") --////// Eventos \\\\\\--  	if(not isPlayerGhost(cid)) then		doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT)	end   local legs = getPlayerSlotItem(cid, CONST_SLOT_LEGS)local ball = getPlayerSlotItem(cid, 8)	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 trueendfunction 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)			---Corrigindo vida caso o playe relogue ---local health = 10000 -- vida que voce colocou no robo.luaif getPlayerStorageValue(cid, 92001) >= 1 then        setPlayerStorageValue(cid, 92001, 0)         setCreatureMaxHealth(cid, getCreatureMaxHealth(cid)-health)-- linha adicionada by crypterend return trueendlocal 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[i] == 5 then				doPlayerAddPremiumDays(cid, itensShopping[allItems[i]].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[i]] do					doAddContainerItem(bag, itensShopping[allItems[i]][j][1], itensShopping[allItems[i]][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	endendfunction 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

 

 

 

Ajuda a gente aí

 

[zMustang 0]

O post morreu ? não tem mais atualizações desde de 2016...

[Josegvb 87]

sim, deixaram o servidor pra lá pq tem mts bugs fatais