Sistema TFS 0.X [Battlefield Event New!] Exclusivo e mais legal ;p

[Absolute 0]

 

 

Fala galerinha linda do TK, vejo muita gente reclamando do battlefield do nosso amigo Vodkart, mas aqui funciona 100%, creio que seja rejeição nos TFS, mas então resolvi trazer a vocês um battlefield que venho customizando a algum tempo, o mesmo possui em alguns servidores poloneses, globalwar e cia.

 

O Evento é um pouco modificado do que o tradicional battlefield, porém acho que ficou mais legal, é de pegar a bandeira do time inimigo, para dar um pouco mais de emoção que tal? rs.

 

Preste atenção nos arquivos e como configurar, estarei explicando tudo passo a passo.

 

Atenção, o comando para abrir o evento é: /battlefield 20 (o 20 é o número de participantes, no caso 10 no time vermelho e 10 no preto, coloque sempre números pares para balancear corretamente o evento)

 

Vamos ao que interessa:
 

Primeiramente, em data/libs crie um arquivo com o nome de battlefield.lua e adicione o seguinte dentro:

battlefield = {
	storage = 201206300801,
	storage2 = 201206300802,
	tpPos = {x=32342, y=32213, z=7}, -- aonde aparecerá o teleport
    pos_team_1 = {x=31621,y=31860,z=7}, -- posição do team 1 (do lado direito)
    pos_team_2 = {x=31582,y=31860,z=7}, -- posição do team 2 (do lado esquerdo)
	spectors = {{x=31593,y=31853,z=6},{x=31609,y=31853,z=6},{x=31593,y=31866,z=6},{x=31609,y=31866,z=6}}, -- aonde aparecerá os espectadores (em volta do battlefield)
	team1Name = "Black Assassins",
    team2Name = "Red Barbarians",	
}

function doBroadCastBattle(type,msg)

for _, cid in pairs(getPlayersOnline()) do
	if getPlayerStorageValue(cid, battlefield.storage2) ~= -1 then
		doPlayerSendTextMessage(cid,type,msg) 
	end 
end

return true 
end

function removeTp()

local t = getTileItemById(battlefield.tpPos, 1387)
	if t then
		doRemoveItem(t.uid, 1)
		doSendMagicEffect(battlefield.tpPos, CONST_ME_POFF)
	end
	
end

function OpenWallBattle()

local x = true
local B  = {  
	[1] = {1056,{x=31601, y=31858, z=6, stackpos = 1}},  -- posição da barreira 
	[2] = {1056,{x=31601, y=31859, z=6, stackpos = 1}},  -- posição da barreira 
	[3] = {1056,{x=31601, y=31860, z=6, stackpos = 1}},	 -- posição da barreira 
	[4] = {1056,{x=31601, y=31861, z=6, stackpos = 1}}   -- posição da barreira 
	} 

for i = 1, #B do
	if getTileItemById(B[i][2], B[i][1]).uid == 0 then 
		x = false 
	end
	if x == true then
		doRemoveItem(getThingfromPos(B[i][2]).uid,1)
	else
		doCreateItem(B[i][1], 1, B[i][2]) 
	end
end

end

function getWinnersBattle(storage)

local team = storage == 1 and battlefield.team1Name or battlefield.team2Name

doBroadcastMessage("Players from team ".. team .." won the event battlefield,they received a Master Surprise Bag!")
setGlobalStorageValue(battlefield.storage, -1)
removeTp()
OpenWallBattle()

for _, cid in pairs(getPlayersOnline()) do
	if getPlayerStorageValue(cid, battlefield.storage2) ~= -1 then 
		doRemoveCondition(cid, CONDITION_OUTFIT)
		doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
		if getPlayerStorageValue(cid, battlefield.storage2) == storage then
			doPlayerAddItem(cid,6571,1)
		end
		setPlayerStorageValue(cid, battlefield.storage2, -1)
	end
end

end

Como configurar este passo;

Spoiler

tpPos = {x=32342, y=32213, z=7}, -- aonde aparecerá o teleport - Aqui o lugar onde aparecerá o TP para os players entrarem pós o uso do comando a algum membro da equipe.

    pos_team_1 = {x=31621,y=31860,z=7}, -- posição do team 1 (do lado direito) - Lado onde o time preto irá nascer no evento

    pos_team_2 = {x=31582,y=31860,z=7}, -- posição do team 2 (do lado esquerdo) - Lado onde o time vermelho irá nascer no evento

spectors = {{x=31593,y=31853,z=6},{x=31609,y=31853,z=6},{x=31593,y=31866,z=6},{x=31609,y=31866,z=6}}, -- aonde aparecerá os espectadores (em volta do battlefield) - COLOQUE A POSIÇÃO DAS 4 AREAS QUADRADAS QUE TEM PERTO DA PONTE, ONDE OS ESPECTADORES SENTIRÃO A ADRENALINA DOS PARTICIPANTES!
As positions das 4 áreas, seguem na imagem:

 

 

 

 

Pós o primeiro passo, crie um arquivo em actions/scripts com o nome de battlefieldAbsolute.lua e adicione o seguinte dentro:

function onUse(cid, item, fromPosition, itemEx, toPosition)

local team = getPlayerStorageValue(cid, battlefield.storage2)

if (item.actionid == 45001 and team == 1) or (item.actionid == 45002 and team == 2) then
	getWinnersBattle(team)
end

return true
end

Em actions.xml, adicione as seguintes linhas:

<action actionid="49901" event="script" value="battlefieldAbsolute.lua"/> 
<action actionid="45002" event="script" value="battlefieldAbsolute.lua"/> 

Pós o segundo passo, vá até sua pasta creaturescripts/scripts e crie um arquivo com o nome de combat.lua e adicione o seguinte:

function onLogin(cid)
if getGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage) == -1 then
setGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage, 0)
setGlobalStorageValue(_Lib_Battle_Info.TeamTwo.storage, 0)
setGlobalStorageValue(_Lib_Battle_Info.storage_count, 0)
end
registerCreatureEvent(cid, "BattleTeam")
registerCreatureEvent(cid, "BattleDeath")
return true
end


function onCombat(cid, target)
if isPlayer(cid) and isPlayer(target) then
if getPlayerStorageValue(cid, _Lib_Battle_Info.TeamOne.storage) == 1 and getPlayerStorageValue(target, _Lib_Battle_Info.TeamOne.storage) == 1 then
doPlayerSendCancel(cid, "You may not attack your team mates.") return false
end
if getPlayerStorageValue(cid, _Lib_Battle_Info.TeamTwo.storage) == 1 and getPlayerStorageValue(target, _Lib_Battle_Info.TeamTwo.storage) == 1 then
doPlayerSendCancel(cid, "You may not attack your team mates.") return false
end
return true
end
return true
end

function onPrepareDeath(cid, deathList, lastHitKiller, mostDamageKiller)
if getPlayerStorageValue(cid, _Lib_Battle_Info.TeamOne.storage) >= 1 then
setPlayerStorageValue(cid, _Lib_Battle_Info.TeamOne.storage, -1)
setGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage, getGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage)-1)
doRemoveCondition(cid, CONDITION_OUTFIT)
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "[Battle Field] You Are Dead!")
if getGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage) == 0 then
getWinnersBattle(_Lib_Battle_Info.TeamTwo.storage)
else
doBroadCastBattle(23,"[BattleField Information] ".._Lib_Battle_Info.TeamOne.name.." "..getGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage).." VS "..getGlobalStorageValue(_Lib_Battle_Info.TeamTwo.storage).." " .._Lib_Battle_Info.TeamTwo.name)
end
elseif getPlayerStorageValue(cid, _Lib_Battle_Info.TeamTwo.storage) >= 1 then
setPlayerStorageValue(cid, _Lib_Battle_Info.TeamTwo.storage, -1)
setGlobalStorageValue(_Lib_Battle_Info.TeamTwo.storage, getGlobalStorageValue(_Lib_Battle_Info.TeamTwo.storage)-1)
doRemoveCondition(cid, CONDITION_OUTFIT)
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "[Battle Field] You Are Dead!")
if getGlobalStorageValue(_Lib_Battle_Info.TeamTwo.storage) == 0 then
getWinnersBattle(_Lib_Battle_Info.TeamOne.storage)
else
doBroadCastBattle(23,"[BattleField Information] ".._Lib_Battle_Info.TeamOne.name.." "..getGlobalStorageValue(_Lib_Battle_Info.TeamOne.storage).." VS "..getGlobalStorageValue(_Lib_Battle_Info.TeamTwo.storage).." " .._Lib_Battle_Info.TeamTwo.name)
end
end
return true
end

Ainda na mesma pasta crie outro arquivo com o nome de pdeath.lua com o seguinte conteúdo: (ATENÇÃO QUE NA MESMA PASTA SÃO 2 ARQUIVOS)

function onPrepareDeath(cid, corpse, lastHitKiller, mostDamageKiller)

if getPlayerStorageValue(cid, config_tvt.green_kills) > 0 then
	doTeleportThing(cid, config_tvt.green_pos)
	setGlobalStorageValue(red_kills, getGlobalStorageValue(red_kills) + 1)
end

if getPlayerStorageValue(cid, config_tvt.red_kills) > 0 then
	doTeleportThing(cid, config_tvt.red_pos)
	setGlobalStorageValue(red_kills, getGlobalStorageValue(green_kills) + 1)
end

doPlayerSendTextMessage(cid, 27, "You dead! by Absolute")

return true
end

Em creaturescripts/creaturescripts.xml adicione as seguintes linhas:

<event type="preparedeath" name="BattlefieldP" event="script" value="pdeath.lua"/>
<event type="combat" name="BattlefieldC" event="script" value="combat.lua"/>

Pós o terceiro passo, em movements/scripts crie um arquivo com o nome de battlefieldAbsolute.lua e adicione o seguinte:

local conditionBlack = createConditionObject(CONDITION_OUTFIT)
setConditionParam(conditionBlack, CONDITION_PARAM_TICKS, -1)
addOutfitCondition(conditionBlack, {lookType = 134, lookHead = 114, lookBody = 114, lookLegs = 114, lookFeet = 114})
local conditionRed = createConditionObject(CONDITION_OUTFIT)
setConditionParam(conditionRed, CONDITION_PARAM_TICKS, -1)
addOutfitCondition(conditionRed, {lookType = 143, lookHead = 94, lookBody = 94, lookLegs = 94, lookFeet = 94})

function onStepIn(cid, item, position, fromPosition)

if getPlayerAccess(cid) > 3 then 
	doTeleportThing(cid, battlefield.pos_team_1) 
	return true
elseif getGlobalStorageValue(battlefield.storage) == 0 then
	doTeleportThing(cid, battlefield.spectors[math.random(#battlefield.spectors)]) 
	return true
end        

if getGlobalStorageValue(battlefield.storage) > 0 then
	if getGlobalStorageValue(battlefield.storage) % 2 == 0 then
		setPlayerStorageValue(cid, battlefield.storage2, 1)
		doAddCondition(cid, conditionBlack)
		doTeleportThing(cid, battlefield.pos_team_1)   
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You will join the team " .. battlefield.team1Name .. "!")       
	else
		setPlayerStorageValue(cid, battlefield.storage2, 2)
		doAddCondition(cid, conditionRed)
		doTeleportThing(cid, battlefield.pos_team_2)
		doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You will join the team " .. battlefield.team2Name .. "!")
	end
	setGlobalStorageValue(battlefield.storage, getGlobalStorageValue(battlefield.storage)-1)
	if getGlobalStorageValue(battlefield.storage) == 0 then
		doBroadcastMessage("Battlefield will start in 1 minute, please create your strategy!")
		addEvent(doBroadcastMessage, 60*1000, "BattleField will begin now!")
		addEvent(OpenWallBattle, 60*1000)
	else
		doBroadcastMessage("We are waiting "..getGlobalStorageValue(battlefield.storage).." players to Battlefield starts.")
	end
end

return true
end

Em movements.xml adicione a seguinte linha:

<movevent type="StepIn" actionid="45000" event="script" value="battlefieldAbsolute.lua"/>

Á pedidos fiz o comando para abrir manualmente, então em talkactions/scripts crie um arquivo com o nome de battlefieldopenAbsolute.lua e coloque:

function onSay(cid, words, param)

if getGlobalStorageValue(battlefield.storage) ~= -1 then
	doPlayerSendCancel(cid, "The event is already open.")
	return true
elseif not tonumber(param) or param % 2 ~= 0 then
	doPlayerSendCancel(cid, "You must choose an even number.")
	return true
end

doBroadcastMessage("The event BattleField was opened and We are waiting "..param.." Players! Team divided into "..((param)/2).." VS "..((param)/2))
setGlobalStorageValue(battlefield.storage, tonumber(param))
local tp = doCreateItem(1387, 1, battlefield.tpPos)
doItemSetAttribute(tp, "aid", 45000)

return true
end

Em talkactions.xml adicione a linha:

<talkaction words="/battlefield" access="3" event="script" value="battlefieldopenAbsolute.lua"/>

Screenshots do mapa do evento; Clique em spoiler para ver.

Spoiler

 

Base dos times / bandeira:

 

 

Primeiro andar:

 

 

Ponte de confronte/sala de espectadores:

 

PVP Stacks:

 

 

Download & Scan do mapa;

Spoiler

https://www.sendspace.com/file/3s5no6

https://www.virustotal.com/pt/url/c333ba4b4978934bf8000c3da8a6424b7a0e060777ab48af386f7b22b20fa899/analysis/1402855824/

 

Spoiler

 

 

Caso haja dúvidas comente ou contate-me, será um prazer ajuda-lo.

Créditos:

Otland
Responsáveis pelas funções do script
Absolute

 

 

 

 

 

 

Até o próximo sisteminha TK! <3.

 

 

 

 

Cordialmente;
Absolute.
 

[Ryzor 323]

Muito bom reputado.

[xXJuninho 28]

Muito bom Reputado!

[MaxSilver 29]

Muito bom, estava atrás desse evento!

[Qwizer 857]

funciona em tfs 1.0?

[Absolute 0]

funciona em tfs 1.0?

 

YEAH!

[Qwizer 857]

YEAH!

Uhuu muito, bom mapa fico legal parabéns. reputado!!

[Natanael Beckman 797]

Parabéns, reputado!

[LeoTK 795]

seria possivel deixa essa area que tu fez pra 8.54??? se possivel mais mesmo assim muito legal ja tem meu +rep

[Absolute 0]

seria possivel deixa essa area que tu fez pra 8.54??? se possivel mais mesmo assim muito legal ja tem meu +rep

 

 

Vou pedir para o Viiting meu mapper e suporter do fórum, ele traz pra você ok.

 

 

Agradeço a todos pelos elogios, qualquer dúvida contatem-me

Editado Junho 15, 2014 por Absolute (veja o histórico de edições)

[keilost1 41]

Galerinha, só uma dica, o evento foi totalmente feito pelo grandioso scripter DEMONBHOLDER, e não por essa farsa que não sabe ao menos fazer uma função de soma

[Absolute 0]

Galerinha, só uma dica, o evento foi totalmente feito pelo grandioso scripter DEMONBHOLDER, e não por essa farsa que não sabe ao menos fazer uma função de soma

 

Fakezasso, ok, manda provar então, deixo avisar o Matheus porque jájá você fala que o TibiaKing é seu ai o Matheus vai ter que enviar foto do domínio, meio complicado, vendedorzinho de otserver, proibido aqui jovem, passe amanhã e vá a falência com sua empresa, ser ou não do Demon ele não pediu remoção e nem provou pelo ótimo scripter que é, já você wtf vc sab fazer AUHEUHEAUHEAHEA.

 

Faz metade do que to fazendo pelo fórum e ajudando e para de vender seus produtos bugados, por favor jovem.

Enjoy tk, será bem vindo.

[ViitinG 835]

Muito bom amore,ótimo evento !

[LeoTK 795]

Vou pedir para o Viiting meu mapper e suporter do fórum, ele traz pra você ok.

 

 

Agradeço a todos pelos elogios, qualquer dúvida contatem-me

ok estou no aguardo só a perta do mapa mesmo porque ta dando erro no data fala que está na versao errada o dat bom é isso to no aguardo

[macalo 22]

Absolute

e quando o evemt termina o que ele ganha ?

tem comando pra fecha o evento ?

Editado Junho 17, 2014 por macalo (veja o histórico de edições)

[Absolute 0]

Absolute

e quando o evemt termina o que ele ganha ?

tem comando pra fecha o evento ?

 

 

 

Em battlefield.lua na libs:

 

    doPlayerAddItem(cid,6571,1)

 

ID e Quantia.

 

O Evento acaba quando o outro time invade a outra base e clica na bandeira!

[macalo 22]

Em battlefield.lua na libs:

 

    doPlayerAddItem(cid,6571,1)

 

ID e Quantia.

 

O Evento acaba quando o outro time invade a outra base e clica na bandeira!

achei um bug quando o play pega na outra bandeira ai o evento acaba mais os player não são teleportado de vota pro templo .

[Absolute 0]

achei um bug quando o play pega na outra bandeira ai o evento acaba mais os player não são teleportado de vota pro templo 

 

 

 

Configuração errada sua,pois testei diversas vezes em 3 tipos de versão, está 100%, ao acabar todos são teleportados para o templo com a premiação.

[LeoTK 795]

estou no aguardo da parte do mapa 8.54

[kk4444 18]

estou no aguardo da parte do mapa 8.54

vc quer colocar isso em seu server de nto ?