Ir para conteúdo
TK News
  • Cadastre-se

Modificar Esse Script.

Light.Tenshimaru
 Share Seguidores 0

Posts Recomendados

Light.Tenshimaru

Light.Tenshimaru 0

Postado
Postado (editado)

Nome do Script: Sistema de Pet com Evolução

Tipo do Script: Lib

Versão Utilizada:9.44

Servidor Utilizado:Crystal Server 2.3

Nível de Experiência:Intermediário

Informações Extras: Desejo modificar esse script. Adicionar sistema de evolução.

Ex:"Orc - LvL 10 - Orc Spearman - LVL 30 - Orc Warlord

"Uma Semana De Rep+ Pra Quem Resolver"

http://pastebin.com/1CxBj6CR


--Circles

AREA_CIRCLE2X2 =

{

	{0, 1, 1, 1, 0},

	{1, 1, 1, 1, 1},

	{1, 1, 3, 1, 1},

	{1, 1, 1, 1, 1},

	{0, 1, 1, 1, 0}

}


AREA_CIRCLE3X3 =

{

	{0, 0, 1, 1, 1, 0, 0},

	{0, 1, 1, 1, 1, 1, 0},

	{1, 1, 1, 1, 1, 1, 1},

	{1, 1, 1, 3, 1, 1, 1},

	{1, 1, 1, 1, 1, 1, 1},

	{0, 1, 1, 1, 1, 1, 0},

	{0, 0, 1, 1, 1, 0, 0}

}


-- Crosses

AREA_CROSS1X1 =

{

	{0, 1, 0},

	{1, 3, 1},

	{0, 1, 0}

}


AREA_CROSS5X5 =

{

	{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0},

	{0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0},

	{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},

	{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

	{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

	{1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1},

	{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

	{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

	{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},

	{0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0},

	{0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}

}


AREA_CROSS6X6 =

{

	{0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0},

	{0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0},

	{0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0},

	{0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0},

	{0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0},

	{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

	{1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1},

	{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

	{0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0},

	{0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0},

	{0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0},

	{0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0},

	{0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0}

}


--Squares

AREA_SQUARE1X1 =

{

	{1, 1, 1},

	{1, 3, 1},

	{1, 1, 1}

}


-- Walls

AREA_WALLFIELD = {

	{1, 1, 3, 1, 1}

}


AREADIAGONAL_WALLFIELD =

{

	{0, 0, 0, 0, 1},

	{0, 0, 0, 1, 1},

	{0, 1, 3, 1, 0},

	{1, 1, 0, 0, 0},

	{1, 0, 0, 0, 0},

}


emoteAttack = true

petEmoteAttack = true

refillStatsAtLevel = true


TYPE_NEAR = 1

TYPE_DISTANCE = 2


petExhaust = 3 --in seconds

petSayExhaust = 3 --in seconds


petGainTicks =

{

	health = {func = doCreatureAddHealth, time = 3000, count = 1},

	mana = {func = doCreatureAddMana, time = 3000, count = 2}

}


petGainHealth = 30

petGainMana = 30

petExpRate = 1.3


carryItems = 10


petItemsBase = 1250

petItems = {}

blockedItems = {6132, 2195}


for i = 1, carryItems do

	table.insert(petItems, petItemsBase + i)

end


petBase = 6120

petStorages =

{

	pet = petBase + 1000,

	level = petBase + 2000,

	exp = petBase + 3000,

	items = petBase + 4000,

	isPet = petBase + 5000,

	isDead = petBase + 6000,

	exhaust = petBase + 7000,

	sayExhaust = petBase + 8000,

	moveExhaust = petBase + 9000,

	health = petBase + 10000,

	mana = petBase + 11000,

	buyed = petBase + 12000

}


tables =

{

	pet = {},

	level = {},

	exp = {},

	items = {},

	isDead = {},

	exhaust = {},

	health = {},

	mana = {},

	buyed = {}

}


reviveCost = 1000


pets =

{

	[1] =

	{

		monster = "orc spearman",

		vocations = {1, 2, 3, 4},

		level = 30,

		attacks =

		{

			[1] = {name = "", level = 30, petLevel = 30, mana = 50, type = TYPE_DISTANCE, range = 10, combat = COMBAT_PHYSICALDAMAGE, effect = CONST_ME_NONE, distEffect = CONST_ANI_SPEAR, damageMin = 0.7, damageMax = 1.0}

		}

	},

	[2] =

	{

		monster = "fire devil",

		vocations = {1, 2},

		level = 60,

		attacks =

		{

			[1] = {name = "Fire Strike", level = 60, petLevel = 60, mana = 100, type = TYPE_DISTANCE, combat = COMBAT_FIREDAMAGE, effect = CONST_ME_FIREDAMAGE, distEffect = CONST_ANI_FIRE, damageMin = 1.5, damageMax = 2.0}

		}

	},

	[3] =

	{

		monster = "minotaur guard",

		vocations = {3, 4},

		level = 60,

		cost = 50,

		attacks =

		{

			[1] = {name = "Punch", level = 60, petLevel = 60, mana = 55, type = TYPE_NEAR, combat = COMBAT_PHYSICALDAMAGE, effect = CONST_ME_BLOOD, distEffect = CONST_ANI_NONE, damageMin = 1.5, damageMax = 2.0}

		}

	},

	[4] =

	{

		monster = "water elemental",

		vocations = {2},

		level = 95,

		cost = 15000,

		attacks =

		{

			[1] = {name = "Ice Bomb", level = 100, petLevel = 100, mana = 250, type = TYPE_DISTANCE, range = 3, combat = COMBAT_ICEDAMAGE, effect = CONST_ME_ICEAREA, distEffect = CONST_ANI_ICE, damageMin = 1.5, damageMax = 2.0, area = AREA_CROSS1X1},

			[2] = {name = "Poison Strike", level = 95, petLevel = 95, mana = 80, type = TYPE_DISTANCE, range = 8, combat = COMBAT_POISONDAMAGE, effect = CONST_ME_GREENRINGS, distEffect = CONST_ANI_POISON, damageMin = 1.2, damageMax = 1.8}	

		}

	},

	[5] =

	{

		monster = "fire elemental",

		vocations = {1},

		level = 95,

		attacks =

		{

			[1] = {name = "Fire Bomb", level = 100, petLevel = 100, mana = 250, type = TYPE_DISTANCE, range = 3, combat = COMBAT_FIREDAMAGE, effect = CONST_ME_FIRE, distEffect = CONST_ANI_FIRE, damageMin = 1.5, damageMax = 2.0, area = AREA_CROSS1X1},

			[2] = {name = "Fire Strike", level = 95, petLevel = 95, mana = 80, type = TYPE_DISTANCE, range = 3, combat = COMBAT_FIREDAMAGE, effect = CONST_ME_FIREDAMAGE, distEffect = CONST_ANI_FIRE, damageMin = 1.2, damageMax = 1.8}	

		}

	},

	[6] =

	{

		monster = "orc warlord",

		vocations = {4},

		level = 95,

		attacks =

		{

			[1] = {name = "Throw Knife", level = 95, petLevel = 95, mana = 80, type = TYPE_DISTANCE, combat = COMBAT_PHYSICALDAMAGE, effect = CONST_ME_BLOOD, distEffect = CONST_ANI_THROWINGKNIFE, damageMin = 1.5, damageMax = 2.0}

		}

	},

	[7] =

	{

		monster = "golem",

		vocations = {3},

		level = 95,

		attacks =

		{

			[1] = {name = "Throw Stone", level = 95, petLevel = 95, mana = 80, type = TYPE_DISTANCE, combat = COMBAT_PHYSICALDAMAGE, effect = CONST_ME_BLOOD, distEffect = CONST_ANI_LARGEROCK, damageMin = 1.5, damageMax = 2.0}

		}

	},

	[8] =

	{

		monster = "wyrm",

		vocations = {1, 2, 3, 4},

		level = 135

	},

	[9] =

	{

		monster = "dragon lord",

		vocations = {1, 2, 3, 4},

		level = 200,

		attacks =

		{

			[1] = {name = "Fire Bomb", level = 200, petLevel = 200, mana = 300, type = TYPE_DISTANCE, range = 3, combat = COMBAT_FIREDAMAGE, effect = CONST_ME_FIREAREA, distEffect = CONST_ANI_FIRE, damageMin = 1.5, damageMax = 2.0, area = AREA_CROSS1X1},

			[2] = {name = "Fire Storm", level = 205, petLevel = 220, mana = 700, type = TYPE_NEAR, range = 8, combat = COMBAT_FIREDAMAGE, effect = CONST_ME_FIREAREA, distEffect = CONST_ANI_FIRE, damageMin = 1.8, damageMax = 2.5, area = AREA_CROSS5X5},

			[3] = {name = "Fire Explosion", level = 203, petLevel = 210, mana = 450, type = TYPE_DISTANCE, range = 6, combat = COMBAT_FIREDAMAGE, effect = CONST_ME_EXPLOSIONHIT, distEffect = CONST_ANI_FIRE, damageMin = 1.5, damageMax = 2.1, area = AREA_CIRCLE2X2},

			[4] = {name = "Scratch", level = 201, petLevel = 205, mana = 150, type = TYPE_NEAR, range = 1, combat = COMBAT_PHYSICALDAMAGE, effect = CONST_ME_HITAREA, distEffect = CONST_ANI_FIRE, damageMin = 1.3, damageMax = 1.8},

			[5] = {name = "Fire Strike", level = 203, petLevel = 210, mana = 100, type = TYPE_DISTANCE, range = 3, combat = COMBAT_FIREDAMAGE, effect = CONST_ME_EXPLOSIONAREA, distEffect = CONST_ANI_FIRE, damageMin = 1.8, damageMax = 1.9}	

		}

	}

}


for i = 1, #pets do

	table.insert(tables.pet, petStorages.pet + i)

	table.insert(tables.level, petStorages.level + i)

	table.insert(tables.exp, petStorages.exp + i)

	table.insert(tables.items, petStorages.items + i)

	table.insert(tables.isDead, petStorages.isDead + i)

	table.insert(tables.exhaust, petStorages.exhaust + i)

	table.insert(tables.health, petStorages.health + i)

	table.insert(tables.mana, petStorages.mana + i)

	table.insert(tables.buyed, petStorages.buyed + i)

end


function gainStat(pid, stat)


	if pid and pid > 0 and isMonster(pid) then

		stat.func(pid, stat.count)

	end

	addEvent(gainStat, stat.time, pid, stat)

end


function getLevelByExp(exp)

	return math.floor((math.sqrt(3) * math.sqrt(243*(exp+1)^2-48600*(exp+1)+3680000)+27 * (exp+1)-2700)^(1/3)/30^(2/3)-(5*10^(2/3))/(3^(1/3)*(math.sqrt(3)*math.sqrt(243*(exp+1)^2-48600*(exp+1)+3680000)+27*(exp+1)-2700)^(1/3))+2)

end


function getPetInfo(pet)

	if isNumber(pet) then

		return pets[pet] or false

	else

		for _, v in pairs(pets) do

			if pet:lower() == v.monster then

				return v

			end

		end

	end

	return false

end


function getPetByLevel(cid)

	local level = getPlayerLevel(cid)

	local pet

	for i = 1, #pets do

		v = pets[i]

		if level >= v.level and isInArray(v.vocations, getPlayerVocation(cid)) then

			pet = v

		end

	end

	return (pet ~= nil and pet or false)

end


function getAttackFormula(pid, attack)

	return {

			min = ((getPetLevel(pid) * 2) * (1 + attack.damageMin) + getPetLevel(pid)) / 2.5,

			max = ((getPetLevel(pid) * 3) * (1 + attack.damageMax) + getPetLevel(pid)) / 2.5

		   }

end


function doAttack(pid, target, param)


	local pet = getPetInfo(getCreatureName(pid))

	if pet then

		if pet.attacks and pet.attacks[param] then

			local attack = pet.attacks[param]

			if target > 0 and pid ~= getCreatureTarget(getCreatureMaster(pid)) then

				if attack.type and attack.type == TYPE_DISTANCE and getDistanceBetween(getCreaturePosition(pid), getCreaturePosition(target)) > (attack.range or 3) or attack.type == TYPE_NEAR and getDistanceBetween(getCreaturePosition(pid), getCreaturePosition(target)) > (attack.range or 1) then

					return doPlayerSendCancel(getCreatureMaster(pid), "Target is too far.") and doSendMagicEffect(getCreaturePosition(pid), CONST_ME_POFF)

				end

				if not isSightClear(getCreaturePosition(pid), getCreaturePosition(target), true) then

					return doPlayerSendCancel(getCreatureMaster(pid), "There is not enough room.") and doSendMagicEffect(getCreaturePosition(pid), CONST_ME_POFF)

				end

			else

				return doPlayerSendCancel(getCreatureMaster(pid), "Please select a target first.") and doSendMagicEffect(getCreaturePosition(pid), CONST_ME_POFF)

			end

			if getPlayerLevel(getCreatureMaster(pid)) < attack.level then

				return doPlayerSendCancel(getCreatureMaster(pid), "You need level " .. attack.level .. " or higher to use this attack.") and doSendMagicEffect(getCreaturePosition(pid), CONST_ME_POFF)

			end

			if getPetLevel(pid) < attack.petLevel then

				return doPlayerSendCancel(getCreatureMaster(pid), "Your pet needs level " .. attack.petLevel .. " or higher to use this attack.") and doSendMagicEffect(getCreaturePosition(pid), CONST_ME_POFF)

			end

			if attack.mana and getCreatureMana(pid) < attack.mana then

				return doPlayerSendCancel(getCreatureMaster(pid), "Your pet does not have enough mana.") and doSendMagicEffect(getCreaturePosition(pid), CONST_ME_POFF)

			end

			if attack.area then

				doCastAreaAttack(pid, target, attack.area, attack)

			else

				doTargetCombatHealth(pid, target, attack.combat, -getAttackFormula(pid, attack).min, -getAttackFormula(pid, attack).max, attack.effect)

			end

			doCreatureAddMana(pid, -attack.mana)

			if attack.name ~= "" then

				 if emoteAttack then

					doCreatureSay(getCreatureMaster(pid), getCreatureName(pid) .. ", use " .. attack.name .. "!", TALKTYPE_SAY)

				end

				if petEmoteAttack then

					doCreatureSay(pid, attack.name, TALKTYPE_MONSTER)

				end

			end

			return doSendDistanceShoot(getCreaturePosition(pid), (attack.type == TYPE_DISTANCE and getCreaturePosition(target) or getCreaturePosition(pid)), attack.distEffect)

		else

			return doSendMagicEffect(getCreaturePosition(pid), CONST_ME_POFF)

		end

	else

		return doSendMagicEffect(getCreaturePosition(pid), CONST_ME_POFF) and doPlayerSendCancel(getCreatureMaster(pid), "There is a tecnical problem, please contact a gamemaster.")

	end

end


function callPet(cid, petId)


	for i = 1, #tables do

		for y = 1, #tables[i] do

			if getCreatureStorage(cid, tables[i][y]) < 0 then

				doCreatureSetStorage(cid, tables[i][y], 0)

			end

		end

	end


	local pet = getPetInfoById(petId)

	if not pet then

		return doPlayerSendCancel(cid, "Something is wrong.")

	end


	if getPlayerLevel(cid) < pet.level then

		return doPlayerSendCancel(cid, "You need level " .. pet.level .. " or higher to call this pet.")

	end

	if pet.cost and pet.cost > 0 then

		if getCreatureStorage(cid, tables.buyed[petId]) < 1 then

			return doPlayerSendCancel(cid, "You need to buy this pet first.") and doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)

		end

	end


	local ret = doCreateMonster(pet.monster, getCreaturePosition(cid))


	if getCreatureStorage(cid, tables.level[petId]) < 1 then

		doCreatureSetStorage(cid, tables.level[petId], pet.level)

	end


	if getCreatureStorage(cid, tables.exp[petId]) < 1 then

		doCreatureSetStorage(cid, tables.exp[petId], getExperienceForLevel(pet.level))

	end


	if getCreatureStorage(cid, tables.level[petId]) < pet.level then

		doCreatureSetStorage(cid, tables.level[petId], pet.level)

	elseif getPlayerLevel(cid) * 3 < getCreatureStorage(cid, tables.level[petId]) then

		doCreatureSetStorage(cid, tables.level[petId], pet.level)

		doCreatureSetStorage(cid, tables.exp[petId], getExperienceForLevel(pet.level))

	end


	if getLevelByExp(getCreatureStorage(cid, tables.exp[petId])) < getCreatureStorage(cid, tables.level[petId]) then

		doCreatureSetStorage(cid, tables.exp[petId], getExperienceForLevel(getCreatureStorage(cid, tables.level[petId])))

	end


	if getCreatureStorage(cid, tables.health[petId]) < 1 then

		doCreatureSetStorage(cid, tables.health[petId], getCreatureStorage(cid, tables.level[petId]) * petGainHealth)

	end


	if getCreatureStorage(cid, tables.mana[petId]) < 1 then

		doCreatureSetStorage(cid, tables.mana[petId], getCreatureStorage(cid, tables.level[petId]) * petGainMana)

	end


	doCreatureSetStorage(ret, tables.level[petId], getCreatureStorage(cid, tables.level[petId]))

	doCreatureSetStorage(ret, tables.exp[petId], getCreatureStorage(cid, tables.exp[petId]))


	doConvinceCreature(cid, ret)

	doCreatureSetStorage(ret, petStorages.isPet, 1)

	doSendMagicEffect(getCreaturePosition(ret), CONST_ME_TELEPORT)

	setCreatureMaxHealth(ret, getPetLevel(ret) * petGainHealth)

	doCreatureAddHealth(ret, -getCreatureHealth(ret) + getCreatureStorage(cid, tables.health[petId]))

	setCreatureMaxMana(ret, getPetLevel(ret) * petGainMana)

	doCreatureAddMana(ret, -getCreatureMana(ret) + getCreatureStorage(cid, tables.mana[petId]))

	for _, v in pairs(petGainTicks) do

		gainStat(ret, v)

	end

	return doCreatureSay(cid, "Go pet!", TALKTYPE_SAY)

end


function doCastAreaAttack(pid, target, area, attack)

	local center = {}

	local areaxx = {}

	center.y = math.floor(#area/2)+1

	for y = 1, #area do

		for x = 1, #area[y] do

			local number = area[y][x]

			if number > 0 then

				center.x = math.floor(table.getn(area[y])/2)+1

				if attack.type == TYPE_DISTANCE then

					table.insert(areaxx, {x = getCreaturePosition(target).x + x - center.x, y = getCreaturePosition(target).y + y - center.y, z = getCreaturePosition(target).z})

				else

					table.insert(areaxx, {x = getCreaturePosition(pid).x + x - center.x, y = getCreaturePosition(pid).y + y - center.y, z = getCreaturePosition(pid).z})

				end				

			end

		end

	end

	for i = 1, #areaxx do

		doAreaCombatHealth(pid, attack.combat, areaxx[i], 0, -getAttackFormula(pid, attack).min, -getAttackFormula(pid, attack).max, attack.effect)

	end

end


function isPet(pid)

	local id = getPetIdByName(getCreatureName(pid))

	return getCreatureStorage(pid, petStorages.isPet) > 0 and true or false

end


function doPetAddExperience(pid, exp)


	local id = getPetIdByName(getCreatureName(pid))

	exp = math.ceil(exp)

	doCreatureSetStorage(getCreatureMaster(pid), tables.exp[id], getPetExperience(pid) + exp)

	doSendAnimatedText(getCreaturePosition(pid), exp, getConfigValue("gainExperienceColor"))

	return true

end


function getPetExperience(pid)

	local id = getPetIdByName(getCreatureName(pid))

	return getCreatureStorage(getCreatureMaster(pid), tables.exp[id])

end


function getPetLevel(pid)

	local id = getPetIdByName(getCreatureName(pid))

	return getCreatureStorage(getCreatureMaster(pid), tables.level[id])

end


function doPetSetLevel(pid, level)


	local id = getPetIdByName(getCreatureName(pid))

	doCreatureSetStorage(getCreatureMaster(pid), tables.level[id], level)

	setCreatureMaxHealth(pid, getPetLevel(pid) * petGainHealth)

	setCreatureMaxMana(pid, getPetLevel(pid) * petGainMana)

	return true

end


function getPlayerPet(cid)

	local pet

	if #getCreatureSummons(cid) < 1 then

		pet = false

	end


	for _, it in ipairs(getCreatureSummons(cid)) do

		if isPet(it) then

			pet = it

			break

		end

	end

	return pet

end


function getPetIdByName(name)


	local id = 0

	for k, it in pairs(pets) do

		if it.monster:lower() == name:lower() then

			id = k

			break

		end

	end

	return (id > 0 and id or false)

end


function getTopItem(p)

	p.stackpos = 0

	local v = getThingFromPos(p)

	repeat

		p.stackpos = p.stackpos + 1

		v = getThingFromPos(p)

	until v.itemid == 0

	p.stackpos = p.stackpos - 1

	return getThingFromPos(p)

end


function getPetInfoById(pet)

	for k, v in pairs(pets) do

		if k == pet then

			return v

		end

	end

	return false

end


if not getCreatureStorage then

	getCreatureStorage = getPlayerStorageValue

	doCreatureSetStorage = doPlayerSetStorageValue

end

Editado por Light.Tenshimaru (veja o histórico de edições)
Link para o post
Compartilhar em outros sites

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

  • Conteúdo Similar

    • Bagon
      Pet System v1.0 TFS 0.4/0.3
      Por Bagon
      Bom, hoje venho trazer á vocês um sistema de Pet System DIFERENCIADO de alguns presentes no fórum. Este sistema tem diversos comandos diferenciados, como: 
       
      !pet nomedopet este comando irá sumonar o pet. 
      !remove irá remover o pet.
      !fale eu sou lindo o pet falará "eu sou lindo"
      !conversar o pet irá conversar com vc. 
       
      Então sem mais delongas vamos ao script.
       
      OBS: SCRIPT TESTADO SOMENTE EM TFS 0.4/0.3, e este script foi feito com a intenção de ser vendido no site do ot ou em poderá usar como quest usando o item selecionado como premio. fique ao seu critério.
       
      Primeiro vá até a pasta talkaction/script e crie um arquivo chamado petsystem.lua, depois coloque o seguinte script:
       
       
      Agora em talkactions/talkactions.xml adicione a seguinte tag:
       
      <talkaction words="!pet;!remove;!fale;!conversar" event="script" value="petsystem.lua" />  
      EXPLICAÇÂO:
      As partes em Negrito, são os pets. Você pode alterar ou criar monstros para fazer eles como pets. (Recomendo criar um monstro para que seja somente pet.)
       
      Exemplo: ["dog"]= {stor=78552},      
       
       
      Lembrando que é necessário mudar esta parte no script do monstro colocado a cima.
       
      <flag attackable="1" /> para :
       
      <flag attackable="0" />  
      agora vá em action/script e crie um arquivo chamado pet com o seguinte script:
       
       
      e vá em action.xml e adiciona a seguinte tag:
       
      <action itemid="10063" script="pet.lua"/> Explicação: Na tag da action o itemid é o item que deverá ser usado para ganhar a storage 78552, e assim podera sumonar o monstro com esta storage.
       
                                              
                                                         CRIE UMA ACTION COM A TAG A CIMA PARA CADA MONSTRO COLOCADO NA TALKACTION,
                                                         BASTA VC ALTERAR A STORAGE DO SCRIPT DA ACTION
                                                         EXEMPLO: em action altere as storage que estão em vermelho, como mostra abaixo
       
                                                              if getPlayerStorageValue(cid, 78552) < 1 then
                                                              setPlayerStorageValue(cid, 78552, 1)
       
                                                         aonde tem 78552 altere para 78553 que no caso é a storage do cyclops escolhido lá no script da talkaction
                                                         e assim susecivelmente.
       
       
       
      CREDITOS:
      Mulizeu
      Smartbox
      Bagon 
       
    • Imperius
      [TFS 0.4] Treasure Chest Lottery + PHP Page
      Por Imperius
      Olá, pessoal! Acabei encontrando um script que tinha feito a um tempo atrás. Estou compartilhando aqui para quem quiser usar ou melhorar.
       
      É bem parecido com os outros sistemas de roleta, igual deste tópico: https://tibiaking.com/forums/topic/101557-action-cassino-roleta-de-items/
       
      Como funciona?
       
      O "Treasure Chest" é um item custom, onde o jogador têm a possibilidade de ganhar itens raros ou bem meia boca. Tudo dependerá da sorte.
       
      O jogador precisa tacar o treasure chest na bancada e acionar a alavanca. O treasure chest irá se transformar em vários itens de forma randômica no qual o jogador poderá ou não ganhar. No final, apenas um item é entregue ao jogador.
       
      Para entender melhor o seu funcionamento, segue o GIF abaixo:
       

       
       
      em data > actions > actions.xml
       
       
      em data > actions > scripts > crie um arquivo chamado leverTreasureChest.lua
       
       
      no banco de dados do servidor, adicione o seguinte código em "SQL":
       
       
       

      Também estou disponibilizando uma página PHP, para quem quiser usar no site do servidor. Na página tem informações sobre o funcionamento, quais são os possíveis prêmios e a lista de jogadores que ganharam os itens raros.
       

       
       
      Espero ter ajudado de alguma forma! : )
       
      treasure_chest.php
    • Maniaco
      Erro System Cave Exclusiva!
      Por Maniaco
      Salve TibiaKing!!! TFS 0.4 . 8.60
       
      Estou implementando o Sistema do @WooX de Cave Exlusiva

      Link:
       
      Porem estou com um problema seguindo o tutorial completo dele acabo tendo um retorno de erro na Distro! E ja que o mesmo nao entra no forum deis de 14/01! Venho solicitar ajuda de vocês!
      Caso alguem tenha o Discord Dele Favor me Passe  
      Vamos lá!
      Erro:
       
      Script :
       
      Lib
       
       
      Print Rme:
       
       
      Lembrando que nao esta funcionando em geral, Acrédito que eu tenha pulado algo ou deixado passar despercebido!
      Espero que alguem consiga me ajudar vlw!
    • Maniaco
      (Resolvido)NPC - TRAVEL (COM ANIMAÇÃO)
      Por Maniaco
      Boa Tarde TibiaKing!!!
       
      Bom estou precisando arrumar um script, não deve ser muito difícil !! (pra quem sabe  !)
      Quem poder ajudar já agradeço.
       
      Resumindo apartir do momento que falo Travel, Yes para o npc ele me teleporta para posicao inicial me transformando(LookType) e precisa me levar até o destino final. (posFinal)
      até ai tudo bem problema que ele comeca a funcionar e me leva para lugar aleatorio e fica parado lá imovel. ( não da erro na Distro ) Apenas fico parado na LookType de barco.
       
      Uso tfs 0.4 8.60
       
      local posis = {
      --[pos do npc] = {pos inicial, pos final},
      [{x = 115, y = 143, z = 10}] = {posIni = {x = 114, y = 134, z = 10}, posFinal = {x = 76, y = 134, z = 10}},
      [{x = 74, y = 132, z = 10}] = {posIni = {x = 76, y = 134, z = 10}, posFinal = {x = 95, y = 147, z = 10}},
      }
       
       é um NPC
       
       
      .LUA DO NPC
       
      LIB - TRAVEL.LUA
       
       
       
      ,XML
       
    • MatteusDeli
      [AULA] Entendendo a diferença entre ItemID, ActionID e UniqueID
      Por MatteusDeli
      Nesse tópico você irá aprender a diferença entre ItemID, ActionID e UniqueID na criação de scripts.
       
      Primeiramente vamos começar com o ItemID, imagine que você está criando um simples script que o player pode ter acesso a uma área VIP, só que para ele entrar, primeiro precisará passar por um tile especial que possui o ID 471, até aqui tudo bem, só que qualquer player do servidor irá ter acesso também, já que não possui nenhuma restrição.
       
      Como poderíamos resolver isso?
       
      É aqui que entra a função da ActionID, com ela podemos dizer que os tiles que tiverem o valor 1000 no atributo ActionID, serão os tiles referentes a área VIP. Agora temos uma maneira de diferenciar os tiles comuns dos que são VIPs, veja como ficaria:
       

      (tiles sem as ActionIDs no valor de 1000)
       
      Repare que os 3 tiles tem apenas o atributo ItemID: [471]. Todos os players poderiam passar sem problemas… Caso você use apenas esse tipo de tile para as suas áreas VIPs então não tem problema, agora se você usa esses mesmos tiles para outras finalidades, então você precisará recorrer a ActionID, para que assim consiga diferenciá-los.
       
      Vamos adicionar as ActionIDs então:
       

      (tiles com as ActionIDs adicionados no valor de 1000)
       
      Pronto, agora apenas esse tiles terão a função de controlar a entrada para a área VIP!
       
      Bom, então você deve estar se perguntando, aonde que o UniqueID entra nessa história?
       
      O UniqueID é parecido com a ActionID com apenas uma diferença. O valor que você define para ele deve ser único para o servidor inteiro, caso ele se repita aparecerá um aviso na sua distro, mais ou menos como este…
       

       
      Repare quantos UniqueIDs duplicados existem, isso é ruim porque quanto mais tiver mais tempo demorará para o servidor iniciar, entre outras coisas como conflitos de scripts.
       
      Concluindo…
       
      O ItemID é usado quando você quer que todos os itens com esse ID façam uma ação, por exemplo a fishing rod, qualquer player pode comprar uma no NPC e começar a pescar.
       
      A ActionID é usado geralmente quando você quer diferenciar os mesmos itens um dos outros. Eu tenho 2 crystal rings só que apenas um deles vai me curar 500 de vida quando usá-lo.
       
      O UniqueID é quando você quer definir um ID único para um determinado item e só terá apenas um dele no servidor, um exemplo seria uma estátua que vai dar ao player um determinado item e só existirá somente uma dela no jogo.
       
      Tentei ser o mais breve e direto sobre esse assunto, espero que tenha ficado claro… Agora é só praticar!

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito