(Resolvido)[PEDIDO] MiniGame ~ Acerte o Alvo

[DeathRocks 381]

Então é o seguinte queria alguem poderia fazer este script dos Mini Games

 

Funciona Assim:

O jogador ao entrar no jogo ele controla 1 arco gigante e tem como objetivo acertar o alvo que é 1 passáro que fica se movendo loucamente pela area, o tempo é de 60 segundos, o objetivo é acertar o maximo de vezes que você conseguir o passáro, quanto maior o numero de acerto, melhor vai ser a recompensa, e haverá um rank para esse mini game, aonde você pode ver quem acertou mais vezes no servidor.

Imagem Da Sala:

Espero que tenha Entendido...

No Aguardo - +REP

Editado Janeiro 12, 2015 por DeathRocks (veja o histórico de edições)

[xWhiteWolf 3001]

qnd acaba o tempo vc é teleportado pra fora, certo?

[elli 36]

Ideia genial

[zipter98 460]

vc tem um vídeo desse sistema? ajudaria um pouco mais ^.^

Editado Janeiro 12, 2015 por zipter98 (veja o histórico de edições)

[Nextbr 259]

eu ja joguei esse ot so nao lembro o nome do ot é muito divertido esse Minigame '-'

[jabuticaba30 0]

quem tem esse script ? preciso muito 

[DeathRocks 381]

qnd acaba o tempo vc é teleportado pra fora, certo?

certo, cada alvo morto ele vai ganhando dinheiro no banco

[xWhiteWolf 3001]

@DeathRocks, vc tem algum video desse sistema e ou saberia responder minhas dúvidas abaixo:

1- o sistema tem suporte pra todas as direções ou só vai ter salas do lado viradas pra <?
2- vc pretende fazer idêntico ou mudar o tamanho das salas e tal?
3- qnd a sala tá ocupada oque acontece?
4- vc entra na sala clicando na porta e ela abre ou vc é teleportado pra dentro?
5- vai haver algum tipo de contagem antes de começar? tipo 3, 2, 1, GO?
6- custa algo pra entrar ou tem algum requerimento de premium/level?
7- o tiro sai qnd diz algo ou ele fica saindo automaticamente a cada segundo por exemplo?
8- qnd vc entra na sala a besta é criada ou ela ja está lá antes?

as que eu risquei foram as que eu fiz de acordo com meu gosto

Editado Janeiro 16, 2015 por xWhiteWolf (veja o histórico de edições)

[DeathRocks 381]

@DeathRocks, vc tem algum video desse sistema e ou saberia responder minhas dúvidas abaixo:

1- o sistema tem suporte pra todas as direções ou só vai ter salas do lado viradas pra <?

2- vc pretende fazer idêntico ou mudar o tamanho das salas e tal?

3- qnd a sala tá ocupada oque acontece?

4- vc entra na sala clicando na porta e ela abre ou vc é teleportado pra dentro?

5- vai haver algum tipo de contagem antes de começar? tipo 3, 2, 1, GO?

6- custa algo pra entrar ou tem algum requerimento de premium/level?

7- o tiro sai qnd diz algo ou ele fica saindo automaticamente a cada segundo por exemplo?

8- qnd vc entra na sala a besta é criada ou ela ja está lá antes?

as que eu risquei foram as que eu fiz de acordo com meu gosto

1- sim só salas viradas para <

2- fazer idêntico

3- você tem que esperar o outro jogador

4- quando clica na porta vc é teleportado para dentro

5- não precisa,entro na sala já esta contando,ou seja o alvo já nasce

6- não precisa custar nada

7- ele fica saindo automaticamente a cada segundo

8- ela ja fica la, quando vc entra ela começo a funcionar

[xWhiteWolf 3001]

Crie um arquivo chamado  045 - Bird Hunt.lua em data/lib e coloque isso dentro dele:

 

-- Bird Hunt Lib

--1º
function countDown(position, time, color) -- faz a contagem de tempo
	local msg = os.date("%M:%S", time) 
	if time > 0 then
		doSendAnimatedText(position, msg, color)
		addEvent(countDown, 1000, position, time - 1, color)
	end
return true
end

--2º
function isRoomBusy(pos, rangey1, rangey2) -- checa se a sala está ocupada
	local minj = math.min(rangey1, rangey2)
	local maxj = math.max(rangey1, rangey2)
	for j = minj, maxj do
	local cPos = {x = pos.x, y = pos.y + j, z = pos.z}
	local creature = getTopCreature(cPos).uid
		if isCreature(creature) then
			return true
		end
	end
return false
end

--3º
function startEvent(posi, delay, color, mob, tempo) -- começa tudo e retorna o tempo de delay até carregar o evento
	local msgs = {3, 2, 1, "GO!!"}
	local monster = doCreateMonster(mob, posi)
	for index, str in ipairs (msgs) do
		addEvent(doSendAnimatedText, delay * index, posi, str, color)
	end
	addEvent(doRemoveCreature, (#msgs * delay) + (tempo * 1000), monster)
return (#msgs * delay)
end

--4º
function startShooting(uid, shots, a, delay, rangemax, color, key) -- começa a atirar e teleport o player após acabar o numero de tiros.
local points = getPlayerStorageValue(uid, key)
local fromPos = getCreaturePosition(uid)
fromPos.x = fromPos.x + (3 * a)
local toPos = {x = fromPos.x, y = fromPos.y, z = fromPos.z}
	for i = 1, (rangemax-4) do			
		toPos.x = toPos.x + (1 * a)
		local creature = getTopCreature(toPos)
		if (creature.uid > 0) then
			local ePos = {x= toPos.x, y = toPos.y, z = toPos.z}
			setPlayerStorageValue(uid, key, points + 1)
			doSendAnimatedText(ePos, tostring(points + 1), color)
			doSendMagicEffect(ePos, 0)
		break 
		end
	end
doSendDistanceShoot(fromPos, toPos, 2)
doSendAnimatedText(getCreaturePosition(uid), "Shoot!", color)
addEvent(function()
	if isPlayer(uid) and shots > 1 then
		startShooting(uid, shots - 1, a, delay, rangemax, color, key)
	elseif isPlayer(uid) and shots <= 1 then
		local initPos = getCreaturePosition(uid)
		initPos.x = initPos.x - (3 * a)		
		doTeleportThing(uid, initPos) --- teleporta o player pra posição inicial
	end
end, delay)
return true
end

--5º
function getBestaPos(pos, a)
	local bestapos = {
		[-1] = {
			ids = {5698, 5700, 5699},
			[1] = {x = pos.x - 2, y = pos.y, z = pos.z},
			[2] = {x = pos.x - 3, y = pos.y, z = pos.z},
			[3] = {x = pos.x - 3, y = pos.y - 1, z = pos.z}
			},
		[1] = {
			ids = {5701, 5703, 5702},
			[1] = {x = pos.x + 2, y = pos.y, z = pos.z},
			[2] = {x = pos.x + 3, y = pos.y, z = pos.z},
			[3] = {x = pos.x + 3, y = pos.y - 1, z = pos.z}
			}
	}
return bestapos[a]
end

--6º
function moveBesta(position, a, dir)
local posBesta = getBestaPos(position, a)
local bestaId = getBestaPos(position, a).ids
	for i = 1, 3 do
	local item = getTileItemById(posBesta[i], bestaId[i])
		if item.uid > 0 then
		local createPos = {x = posBesta[i].x, y = posBesta[i].y - dir, z = posBesta[i].z}
			doRemoveItem(item.uid)
			doCreateItem(item.itemid, 1, createPos)			
		end
	end
return true
end

--7º
function createBesta(position, a)
	local posBesta = getBestaPos(position, a)
	local bestaId = getBestaPos(position, a).ids
	for i = 1, 3 do
		local createPos = {x = posBesta[i].x, y = posBesta[i].y, z = posBesta[i].z}
		doCreateItem(bestaId[i], 1, createPos)			
	end
return true
end

--8º
function removeBesta(position, a)
	local posBesta = getBestaPos(position, a)
	local bestaId = getBestaPos(position, a).ids
	for i = 1, 3 do		
		local item = getTileItemById(posBesta[i], bestaId[i])
		doSendMagicEffect(posBesta[i], 14)
		if item.uid > 0 then
			doRemoveItem(item.uid)		
		end
	end
return true
end

 

agr crie um arquivo chamado seagul.lua em data/actions/scripts e coloque isso dentro dele:

local config = {
rangecima = {x = -8, y = -4}, -- distancia em x e y da topos (ate a pos de cima)
rangebaixo = {x = 0, y = 4}, -- distancia em x e y da topos (ate a pos de baixo)
cor = 129 or 215, -- cor dos textos (a primeira eh branca e a segunda eh cinza)
tempo = 60, -- tempo que vc fica no evento (segundos)
delay = 1000, -- intervalo que os tiros saem (milisegundos)
storage = 17367, -- storage que salva algumas informações
mob = "Seagull" -- nome do monstro
}

function onUse(cid, item, frompos, itemEx, topos)
	if getPlayerStorageValue(cid, config.storage) < 0 then
		local a = getCreaturePosition(cid).x > topos.x and -1 or 1
		local pos = {x = topos.x, y = topos.y, z = topos.z}
		pos.x = topos.x + (1 * a)
		if not isRoomBusy(pos, config.rangecima.y, config.rangebaixo.y) then
			doTeleportThing(cid, pos)
			setPlayerStorageValue(cid, config.storage, 0)
			local middlePos = {x = pos.x, y = pos.y, z = pos.z}
			middlePos.x = middlePos.x + (4 * a)
			tempoinit = startEvent(middlePos, config.delay, config.cor, config.mob, config.tempo)
			local cucoPos = {x = middlePos.x, y = middlePos.y, z = middlePos.z}
			cucoPos.x = cucoPos.x + (a * 1) --- qnt vai aumentar o cucopos.x
			cucoPos.y = cucoPos.y + config.rangecima.y -- qnt vai aumentar o cucopos.y
addEvent(function()
	countDown(cucoPos, config.tempo, config.cor)
	if isPlayer(cid) then			
		startShooting(cid, math.floor(((config.tempo * 1000) / config.delay)), a, config.delay, math.abs(config.rangecima.x), config.cor, config.storage)
	end
end, tempoinit)	
		else
			doPlayerSendCancel(cid, "This room is full.")
		end
	else
		doPlayerSendCancel(cid, "You're already inside a room.")
	end
return true
end

a tag no actions.xml é só escolher um action/uniqueid e colocar na porta de entrada.

agr vá em data/movements/scripts e crie um arquivo chamado seagulmove.lua e coloque isso dentro dele:

local config = {
position = -1, -- coloque 1 se a sala estiver pra direita > e -1 se estiver pra esquerda <
storage = 17367, -- storage que salva os pontos
recorde = 17368 -- storage que vai salvar sua maior pontuacao
}

function onStepIn(cid, item, topos, frompos)
if not isPlayer(cid) then return true end
	if math.abs(frompos.x - getCreaturePos(cid).x) > 0 then
		createBesta(getCreaturePos(cid), config.position) -- cria besta ao entrar
		return true
	end
	local movePos = {x = frompos.x, y = frompos.y, z = frompos.z}
	local dir = movePos.y - topos.y
	local posBesta = getBestaPos(frompos, config.position)
	moveBesta(movePos, config.position, dir) -- move ao se mexer
return true
end

function onStepOut(cid, item, frompos, topos, lastpos)
	if math.abs(frompos.x - getCreaturePos(cid).x) <= 0 then
		return true
	end
	local movePos = {x = frompos.x, y = frompos.y, z = frompos.z}
	local posBesta = getBestaPos(frompos, config.position)
	removeBesta(movePos, config.position) -- remove a besta ao sair
	if not isPlayer(cid) then return true end
	if getPlayerStorageValue(cid, config.recorde) <= getPlayerStorageValue(cid, config.storage) then
		setPlayerStorageValue(cid, config.recorde, getPlayerStorageValue(cid, config.storage))
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, "[Bird Hunt]\nYou made ".. getPlayerStorageValue(cid, config.recorde) .." points, that\'\s your new record!")
	end
	setPlayerStorageValue(cid, config.storage, -1)
return true
end

Agora vc precisa criar um uniqueid/actionid e colocar a tag no movements.xml pra stepin e stepout e vc vai colocar em toda a fileira em que o player pode andar.

Eu terminei faz um tempão mas to bem ocupado com as coisas da facul e eu queria fazer um topico pra ele e tal explicando tudo certinho mas acho que vcs não vão ter problemas, no proprio script tem umas explicações.
A unica coisa que não fiz foi recompensa por tiro mas vc pode tanto adicionar na função que seta o storage  pra adicionar dinheiro ao player:

a função é essa daqui, vc só precisa adicionar a linha doPlayerAddItem(uid, 2160, 1)

function startShooting(uid, shots, a, delay, rangemax, color, key) -- começa a atirar e teleport o player após acabar o numero de tiros.
local points = getPlayerStorageValue(uid, key)
local fromPos = getCreaturePosition(uid)
fromPos.x = fromPos.x + (3 * a)
local toPos = {x = fromPos.x, y = fromPos.y, z = fromPos.z}
	for i = 1, (rangemax-4) do			
		toPos.x = toPos.x + (1 * a)
		local creature = getTopCreature(toPos)
		if (creature.uid > 0) then
			local ePos = {x= toPos.x, y = toPos.y, z = toPos.z}
			setPlayerStorageValue(uid, key, points + 1)
doPlayerAddItem(uid, 2160, 1) -- adiciona 1 crystal coin qnd acertar
			doSendAnimatedText(ePos, tostring(points + 1), color)
			doSendMagicEffect(ePos, 0)
		break 
		end
	end
doSendDistanceShoot(fromPos, toPos, 2)
doSendAnimatedText(getCreaturePosition(uid), "Shoot!", color)
addEvent(function()
	if isPlayer(uid) and shots > 1 then
		startShooting(uid, shots - 1, a, delay, rangemax, color, key)
	elseif isPlayer(uid) and shots <= 1 then
		local initPos = getCreaturePosition(uid)
		initPos.x = initPos.x - (3 * a)		
		doTeleportThing(uid, initPos) --- teleporta o player pra posição inicial
	end
end, delay)
return true
end

mas dai vc pode tanto fazer como falei acima ou criar um npc que paga pela quantidade de pontos que você fez. Ex: faz 50 pontos vai lá e ele paga 100k, qnd fizer 55 ele paga 200k.. e assim por diante. Pra fazer isso é só pegar o storage recorde que está no movements, nele que vai ficar salvo seu best recorde do jogo.

[DeathRocks 381]

Funfo Certo,Porem quando vc entra na sala não aparece a "Besta" mais fica atirando como se ela tivesse lá

Outra Coisa, Só Pode Jogar uma Vez ? Cada Jogador?....

Pois Não Tem como Entrar de Novo...

[xWhiteWolf 3001]

vc não coloca a besta pelo map editor, deixa a sala vazia e coloca os uids nos pisos, qnd vc clica na porta vc é teleportado pra dentro e ele cria a besta e dps remove qnd sair. Tá todas as funções certinhas, só se tiver dando algum erro de compatibilidade com alguma função, mas daí acusaria erro na distro

[DeathRocks 381]

Então... Eu não Adicionei no Rme e mesmo assim não Aparece a "Besta" quando clica na Porta.

E Não Da Erro na Distro

@EDIT

Outra Coisa Quando Jogo Acaba,Ganho Recompensa tudo de boa...

Quando Tento entrar pra Jogar de Novo Fala You're already inside a room...

Editado Fevereiro 12, 2015 por DeathRocks (veja o histórico de edições)

[xWhiteWolf 3001]

é algum problema na hr de chamar as funções, vou testar qnd chegar em casa e te dou um feedback..  Quando ele remove da sala era pra ele setar o storage como sendo 0 pro cara poder entrar dnv.

[Cerberus 145]

script funcionando perfeito 2 bugs , encontrados...

1º - ao remover o player depois q o tempo acaba não conseguiu remover a ves e ela ta ficando dentro da sala....

2º não ta removendo storage para -1 para poder começar dinovo quando player sai da sala...ai se tentar entrar depois q alguem saiu fala q tem gente na sala...

3º bicho escolhido no MOB = name - não esta trocando de lugar quando recebe o shot e não esta andando(tenho que por mais velocidade nele? )

4º vi o video desse sistema e aparece 1 tabela e nesse não tem...

 

Mais o Script e muito bom ta de parabens e Rep+.. me lembrou a primeira ves q vi esse Script... no AVAOT....o primeiro ta gente......

[xWhiteWolf 3001]

aparece algum erro no console? aqui em casa tá funcionando de boa o.O (tirando a parte da tabela)

Pro bixo correr vc tem que alterar a distancia que ele começa a fugir e colocar bastante speed nele

[Cerberus 145]

como assim aumentar distancia fiz igual no video 1 linha reta para cima e para baixo..

 

a speed vou tentar depois.. mais nao tem erro.. ele sai da sala ai falo /storage name,value   ele monstra storage = 0 sendo que ela tinha q voltar a -1

[jhecuda 1]

Esse script funciona no tfs 1.1?

[Adriano SwaTT 594]

como assim aumentar distancia fiz igual no video 1 linha reta para cima e para baixo..

 

a speed vou tentar depois.. mais nao tem erro.. ele sai da sala ai falo /storage name,value   ele monstra storage = 0 sendo que ela tinha q voltar a -1

kbpaulo, tente usar este arquivo LIB no lugar do seu.

 

-- Bird Hunt Lib

--1º
function countDown(position, time, color) -- faz a contagem de tempo
    local msg = os.date("%M:%S", time)
    if time > 0 then
        doSendAnimatedText(position, msg, color)
        addEvent(countDown, 1000, position, time - 1, color)
    end
return true
end

--2º
function isRoomBusy(pos, rangey1, rangey2) -- checa se a sala está ocupada
    local minj = math.min(rangey1, rangey2)
    local maxj = math.max(rangey1, rangey2)
    for j = minj, maxj do
    local cPos = {x = pos.x, y = pos.y + j, z = pos.z}
    local creature = getTopCreature(cPos).uid
        if isCreature(creature) then
            return true
        end
    end
return false
end

--3º
function startEvent(posi, delay, color, mob, tempo) -- começa tudo e retorna o tempo de delay até carregar o evento
    local msgs = {3, 2, 1, "GO!!"}
    local monster = doCreateMonster(mob, posi)
    for index, str in ipairs (msgs) do
        addEvent(doSendAnimatedText, delay * index, posi, str, color)
    end
    addEvent(doRemoveCreature, (#msgs * delay) + (tempo * 1000), monster)
return (#msgs * delay)
end

--4º
function startShooting(uid, shots, a, delay, rangemax, color, key) -- começa a atirar e teleport o player após acabar o numero de tiros.
local points = getPlayerStorageValue(uid, key)
local fromPos = getCreaturePosition(uid)
fromPos.x = fromPos.x + (3 * a)
local toPos = {x = fromPos.x, y = fromPos.y, z = fromPos.z}
    for i = 1, (rangemax-4) do            
        toPos.x = toPos.x + (1 * a)
        local creature = getTopCreature(toPos)
        if (creature.uid > 0) then
            local ePos = {x= toPos.x, y = toPos.y, z = toPos.z}
            setPlayerStorageValue(uid, key, points + 1)
            doSendAnimatedText(ePos, tostring(points + 1), color)
            doSendMagicEffect(ePos, 0)
        break
        end
    end
doSendDistanceShoot(fromPos, toPos, 2)
doSendAnimatedText(getCreaturePosition(uid), "Shoot!", color)
addEvent(function()
    if isPlayer(uid) and shots > 1 then
        startShooting(uid, shots - 1, a, delay, rangemax, color, key)
    elseif isPlayer(uid) and shots <= 1 then
        local initPos = getCreaturePosition(uid)
        initPos.x = initPos.x - (3 * a)    
        setPlayerStorageValue(uid, 17367, -1)
        doTeleportThing(uid, initPos) --- teleporta o player pra posição inicial
    end
end, delay)
return true
end

--5º
function getBestaPos(pos, a)
    local bestapos = {
        [-1] = {
            ids = {5698, 5700, 5699},
            [1] = {x = pos.x - 2, y = pos.y, z = pos.z},
            [2] = {x = pos.x - 3, y = pos.y, z = pos.z},
            [3] = {x = pos.x - 3, y = pos.y - 1, z = pos.z}
            },
        [1] = {
            ids = {5701, 5703, 5702},
            [1] = {x = pos.x + 2, y = pos.y, z = pos.z},
            [2] = {x = pos.x + 3, y = pos.y, z = pos.z},
            [3] = {x = pos.x + 3, y = pos.y - 1, z = pos.z}
            }
    }
return bestapos[a]
end

--6º
function moveBesta(position, a, dir)
local posBesta = getBestaPos(position, a)
local bestaId = getBestaPos(position, a).ids
    for i = 1, 3 do
    local item = getTileItemById(posBesta[i], bestaId[i])
        if item.uid > 0 then
        local createPos = {x = posBesta[i].x, y = posBesta[i].y - dir, z = posBesta[i].z}
            doRemoveItem(item.uid)
            doCreateItem(item.itemid, 1, createPos)            
        end
    end
return true
end

--7º
function createBesta(position, a)
    local posBesta = getBestaPos(position, a)
    local bestaId = getBestaPos(position, a).ids
    for i = 1, 3 do
        local createPos = {x = posBesta[i].x, y = posBesta[i].y, z = posBesta[i].z}
        doCreateItem(bestaId[i], 1, createPos)            
    end
return true
end

--8º
function removeBesta(position, a)
    local posBesta = getBestaPos(position, a)
    local bestaId = getBestaPos(position, a).ids
    for i = 1, 3 do        
        local item = getTileItemById(posBesta[i], bestaId[i])
        doSendMagicEffect(posBesta[i], 14)
        if item.uid > 0 then
            doRemoveItem(item.uid)        
        end
    end
return true
end

 

Boa sorte.

[Cerberus 145]

ACHEI ESSE ERRO AKI WHITE...

function onStepOut(cid, item, frompos, topos, lastpos)
    if math.abs(frompos.x - getCreaturePos(cid).x) <= 0 then
        return true
    end
    local movePos = {x = frompos.x, y = frompos.y, z = frompos.z}
    local posBesta = getBestaPos(frompos, config.position)
    removeBesta(movePos, config.position) -- remove a besta ao sair
    if not isPlayer(cid) then return true end
    if getPlayerStorageValue(cid, config.recorde) <= getPlayerStorageValue(cid, config.storage) then
        setPlayerStorageValue(cid, config.recorde, getPlayerStorageValue(cid, config.storage))
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, "[Bird Hunt]\nYou made ".. getPlayerStorageValue(cid, config.recorde) .." points, that\'\s your new record!")
    end
    setPlayerStorageValue(cid, config.storage, -1)
return true
end

NÃO SERIIA ASSIM

function onStepOut(cid, item, frompos, topos, lastpos)
    if math.abs(frompos.x - getCreaturePos(cid).x) <= 0 then
        return true
    end
    local movePos = {x = frompos.x, y = frompos.y, z = frompos.z}
    local posBesta = getBestaPos(frompos, config.position)
    removeBesta(movePos, config.position) -- remove a besta ao sair
    if not isPlayer(cid) then return true end
    if getPlayerStorageValue(cid, config.recorde) <= getPlayerStorageValue(cid, config.storage) then
        setPlayerStorageValue(cid, config.recorde, getPlayerStorageValue(cid, config.storage))
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_WARNING, "[Bird Hunt]\nYou made ".. getPlayerStorageValue(cid, config.recorde) .." points, that\'\s your new record!")
 setPlayerStorageValue(cid, config.storage, -1)
else
setPlayerStorageValue(cid, config.storage, -1)
end
 
return true
end

do jeito seu ao sair do piso ja resetava a storage para - 1 o que não deixava o record pegar os dados do seu pontos......

Editado Março 13, 2015 por kbpaulo (veja o histórico de edições)