function getPlayerPokeballs(cid)
local ret = {}
local container = 0

if isCreature(cid) then
	container = getPlayerSlotItem(cid, 3).uid
	local myball = getPlayerSlotItem(cid, 8)
	if myball.uid > 0 then
		table.insert(ret, myball)
	end
else
	container = cid
end

if isContainer(container) and getContainerSize(container) > 0 then
	for slot = 0, (getContainerSize(container) - 1) do
		local item = getContainerItem(container, slot)
		if isContainer(item.uid) then
			local itemsbag = getPlayerPokeballs(item.uid)
			if itemsbag and #itemsbag > 0 then
				for i = 0, #itemsbag do
					table.insert(ret, itemsbag[i])
				end
			end
		elseif isPokeball(item.itemid) then
			table.insert(ret, item)
		end
	end
end
return ret
end

function doUpdatePokemonsBar(cid)
local ret = "p#,"
local balls = getPlayerPokeballs(cid)
local times = 0
for a = 1, #balls do
	times = times + 1
	local item = balls[a]
	local hp = math.ceil(getItemAttribute(item.uid, "hp") * 100)
	local name = getItemAttribute(item.uid, "poke")
	local foto = fotos[name] - 928
	doItemSetAttribute(item.uid, "ballorder", times)
	ret = ret..""..foto..","..name..""..times..","..hp..","
end
doPlayerSendCancel(cid, ret)
end

function getNewMoveTable(table, n)
if n == 1 and table.move1 then
	return table.move1
elseif n == 2 and table.move2 then
	return table.move2
elseif n == 3 and table.move3 then
	return table.move3
elseif n == 4 and table.move4 then
	return table.move4
elseif n == 5 and table.move5 then
	return table.move5
elseif n == 6 and table.move6 then
	return table.move6
elseif n == 7 and table.move7 then
	return table.move7
elseif n == 8 and table.move8 then
	return table.move8
elseif n == 9 and table.move9 then
	return table.move9
elseif n == 10 and table.move10 then
	return table.move10
elseif n == 11 and table.move11 then
	return table.move11
elseif n == 12 and table.move12 then
	return table.move12
else
	return false
end
end


function doUpdateMoves(cid)
local summon = getCreatureSummons(cid)[1]
local ret = "12&,"
if not summon then
	for a = 1, 12 do
		ret = ret.."n/n,"
	end
doPlayerSendCancel(cid, ret)
addEvent(doUpdateCooldowns, 100, cid)
return true
end
local ret = "12&,"
local moves = movestable[getCreatureName(summon)]
for a = 1, 12 do
	local b = getNewMoveTable(moves, a)
	if b then
		ret = ret..""..b.name..","
	else
		ret = ret.."n/n,"
	end
end
doPlayerSendCancel(cid, ret)
addEvent(doUpdateCooldowns, 100, cid)
end

function doUpdateCooldowns(cid)
local a = getPlayerSlotItem(cid, 8)
local ret = "12|,"
if a.uid <= 0 or #getCreatureSummons(cid) <= 0 then
	for cds = 1, 12 do
		ret = ret.."-1,"
	end
doPlayerSendCancel(cid, ret)
return true
end
for cds = 1, 12 do
	local cdzin = "move"..cds

	if getCD(a.uid, cdzin) > 0 then
		ret = ret..""..(getCD(a.uid, cdzin) - 1)..","
	else
		ret = ret.."0,"
	end
end
doPlayerSendCancel(cid, ret)
end

function getBallsAttributes(item)
local t = {"boffense", "bdefense", "bagility", "bsattack",
	   "offense", "defense", "speed", "level", "specialattack",
	   "poke", "gender", "vitality", "nick", "boost", "happy", "hunger",
	   "burn", "burndmg", "poison", "poisondmg", "confuse", "blind",
	   "sleep", "hp", "description", "exp", "nextlevelexp", "transBegin",
	   "transLeft", "transTurn", "transOutfit", "transName", "trans",
	   "light", "blink", "move1", "move2", "move3", "move4", "move5",
	   "move6", "move7", "move8", "move9", "move10", "move11", "move12",
	   "ballorder",}
local ret = {}
for a = 1, #t do
	ret[t[a]] = getItemAttribute(item, t[a])
end
return ret
end

function doChangeBalls(cid, item1, item2)
if not isCreature(cid) then return true end
if item1.uid == item2.uid then
	if #getCreatureSummons(cid) <= 0 then
		doGoPokemon(cid, getPlayerSlotItem(cid, 8))
	else
		doReturnPokemon(cid, getCreatureSummons(cid)[1], getPlayerSlotItem(cid, 8), pokeballs[getPokeballType(getPlayerSlotItem(cid, 8).itemid)].effect)
	end
return true
end

	if item1.uid > 0 and item2.uid > 0 then
		local io = getBallsAttributes(item1.uid)
		local it = getBallsAttributes(item2.uid)	
		for a, b in pairs (io) do
			if b then
				doItemSetAttribute(item2.uid, a, b)
			end
		end
		for a, b in pairs (it) do
			if b then
				doItemSetAttribute(item1.uid, a, b)
			end
		end
		local id = item2.itemid
		doTransformItem(item2.uid, item1.itemid)
		doTransformItem(item1.uid, id)
		doGoPokemon(cid, getPlayerSlotItem(cid, 8))
	else
		local a = doCreateItemEx(item2.itemid, 1)
		local b = getBallsAttributes(item2.uid)	
		for c, d in pairs (b) do
			if d then
				doItemSetAttribute(a, c, d)
			end
		end
		doPlayerAddItemEx(cid, a, true)
		for i, x in pairs(fotos) do
			if string.lower(getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke")) == string.lower(i) then
				doTransformItem(getPlayerSlotItem(cid, 7).uid, x)
			end
		end
		doGoPokemon(cid, getPlayerSlotItem(cid, 8))
		doRemoveItem(item2.uid, 1)
	end
end

	<talkaction words="!code64" event="script" value="cdbar.lua"/>
<talkaction words="/pokeread" event="script" value="cdbar.lua"/>
<talkaction words="/goaction" event="script" value="cdbar.lua"/>

local function ChangeBalls(cid, param, cancelequal)
local balls = getPlayerPokeballs(cid)
for a = 1, #balls do
	local item = balls[a]
	local name = getItemAttribute(item.uid, "poke") .. getItemAttribute(item.uid, "ballorder")
	if name == param then
		if cancelequal and item.uid == getPlayerSlotItem(cid, 8).uid then return true end
		doChangeBalls(cid, getPlayerSlotItem(cid, 8), item)
		return 0
	end
end
end

function onSay(cid, words, param)

if words == "!code64" then
return 0
end

if words == "/pokeread" then
	if #getCreatureSummons(cid) >= 1 then
		local pokemon = getCreatureSummons(cid)[1]
		local pokelife = (getCreatureHealth(pokemon) / getCreatureMaxHealth(pokemon))
		doItemSetAttribute(getPlayerSlotItem(cid, 8).uid, "hp", pokelife)
	end
	doUpdatePokemonsBar(cid)
end

if words == "/goaction" then
	if param == "null" then return 0 end
	if exhaustion.get(cid, 6666) and exhaustion.get(cid, 6666) > 0 then return true end
	if #getCreatureSummons(cid) >= 1 then
		addEvent(doReturnPokemon, 100, cid, getCreatureSummons(cid)[1], false, pokeballs[getPokeballType(getPlayerSlotItem(cid, 8).itemid)].effect)
		if param ~= getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke") .. getItemAttribute(getPlayerSlotItem(cid, 8).uid, "ballorder") then
			addEvent(ChangeBalls, 1200, cid, param, true)
		end
	else
		addEvent(ChangeBalls, 100, cid, param)
	end
	exhaustion.set(cid, 6666, 2)
return 0
end

return 0
end

function doReturnPokemon(cid, pokemon, pokeball, effect, hideeffects, blockevo)

local edit = true

if not pokeball then
	pokeball = getPlayerSlotItem(cid, 8)
end

if blockevo then
	edit = false
	doPlayerSendCancel(cid, "Your pokemon couldn't evolve due to server mistakes, please wait until we fix the problem.")
end

local happy = getPlayerStorageValue(pokemon, 1008)
local hunger = getPlayerStorageValue(pokemon, 1009)
local pokelife = (getCreatureHealth(pokemon) / getCreatureMaxHealth(pokemon))

if edit then
	doItemSetAttribute(pokeball.uid, "happy", happy)
	doItemSetAttribute(pokeball.uid, "hunger", hunger)
	doItemSetAttribute(pokeball.uid, "hp", pokelife)
end

if getCreatureName(pokemon) == "Ditto" then
	if isTransformed(pokemon) then
		local left = getItemAttribute(pokeball.uid, "transLeft") - (os.clock() - getItemAttribute(pokeball.uid, "transBegin"))
		doItemSetAttribute(pokeball.uid, "transLeft", left)
	end
end

if hideeffects then
	doRemoveCreature(pokemon)
return true
end

local pokename = getPokeName(pokemon)

local mbk = gobackmsgs[math.random(1, #gobackmsgs)].back:gsub("doka", pokename)

if getCreatureCondition(cid, CONDITION_INFIGHT) then
	if isCreature(getCreatureTarget(cid)) then
		doItemSetAttribute(pokeball.uid, "happy", happy - 5)
	else
		doItemSetAttribute(pokeball.uid, "happy", happy - 2)
	end
end

doTransformItem(pokeball.uid, pokeball.itemid-1)
doCreatureSay(cid, mbk, TALKTYPE_SAY)

doSendMagicEffect(getCreaturePosition(pokemon), effect)

doRemoveCreature(pokemon)
doUpdateMoves(cid)

end

function doGoPokemon(cid, item)

if getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 63215) >= 1 then
return true
end

local btype = getPokeballType(item.itemid)

local effect = pokeballs[btype].effect
	if not effect then
		effect = 21
	end

if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_FEET).uid then
	doPlayerSendCancel(cid, "You must put your pokeball in the correct place!")
return TRUE
end

local thishp = getItemAttribute(item.uid, "hp")

if thishp <= 0 then
	if isInArray(pokeballs[btype].all, item.itemid) then
		doTransformItem(item.uid, pokeballs[btype].off)
		doItemSetAttribute(item.uid, "hp", 0)
		doPlayerSendCancel(cid, "This pokemon is fainted.")
	return true
	end
end

local pokemon = getItemAttribute(item.uid, "poke")

if not pokes[pokemon] then
return true
end

local x = pokes[pokemon]
local boosts = getItemAttribute(item.uid, "boost") or 0

if getPlayerLevel(cid) + pokemonMaxLevelAbovePlayer < getItemAttribute(item.uid, "level") then
doPlayerSendCancel(cid, "Your pokemon's level is much higher than yours, you can't use him.")
return true
end

doSummonMonster(cid, pokemon)

local pk = getCreatureSummons(cid)[1]
if not isCreature(pk) then return true end

if getCreatureName(pk) == "Ditto" then

	local left = getItemAttribute(item.uid, "transLeft")
	local name = getItemAttribute(item.uid, "transName")

	if left and left > 0 then
		setPlayerStorageValue(pk, 1010, name)
		doSetCreatureOutfit(pk, {lookType = getItemAttribute(item.uid, "transOutfit")}, -1)
		addEvent(deTransform, left * 1000, pk, getItemAttribute(item.uid, "transTurn"))
		doItemSetAttribute(item.uid, "transBegin", os.clock())
	else
		setPlayerStorageValue(pk, 1010, "Ditto")
	end
end

if isGhostPokemon(pk) then doTeleportThing(pk, getPosByDir(getThingPos(cid), math.random(0, 7)), false) end

doCreatureSetLookDir(pk, 2)

adjustStatus(pk, item.uid, true, false, true)
doAddPokemonInOwnList(cid, pokemon)

doTransformItem(item.uid, item.itemid+1)

local pokename = getItemAttribute(item.uid, "nick") or getCreatureName(pk)

local mgo = gobackmsgs[math.random(1, #gobackmsgs)].go:gsub("doka", pokename)
doCreatureSay(cid, mgo, TALKTYPE_SAY)

doSendMagicEffect(getCreaturePosition(pk), effect)
doUpdateMoves(cid)
end