[Lua] Peça scripts aqui!

Oii, eu gostaria de um script qnd vc clica em um lugar do mapa, vc teletransporta, porem so poderia fazer isso quem eu permitir admin

#2502

Alguém tem script de casamento em português?

#2503

Patudo_games a dit :
Então Jp_darkuss, tem alguns erro no script que eu queria que vc resolvesse pra mim por favor: Quando alguem morre, um jogador ganha automaticamente,e quando dois entram na toca, os dois podem eliminar ou ate mais players podem eliminar, e quando alguem ganha, o tempo não acaba fica infinito, por enquanto foram esses erros que encontri, por favor me ajude, desde ja obg

Esses dias estou ocupado, se tiver tempo eu faço.

#2504

Fox_fire a dit :
Oii, eu gostaria de um script qnd vc clica em um lugar do mapa, vc teletransporta, porem so poderia fazer isso quem eu permitir admin

Terceira vez que darei o mesmo script kkkk

Script

Veja o funcionamento aqui!

#2505

Se já existir um script assim por favor mande aqui, caso não tenha... Eu gostaria de um script para sorteio porém sem precisar estar na sala para participar, o próprio adm coloca os nomes que irão participar. Procurei e não achei desse modelo. :c

#2506

Jocoringaker a dit :
Se já existir um script assim por favor mande aqui, caso não tenha... Eu gostaria de um script para sorteio porém sem precisar estar na sala para participar, o próprio adm coloca os nomes que irão participar. Procurei e não achei desse modelo. :c

Script

Code Lua

local _, adm= pcall(nil)
local players= {}
local sort= false
local winner= {state= false, target= 0}
local times= 0
local update= function()
		local x= 0
		local y= 80
		for i= 1, #players do
			x= x + 115
			players[i].x= x
			players[i].y= y
			ui.addTextArea(i, "<font size='14' color='#DD6677'><p align='center'>"..(players[i].name:match("(.-)#")).."</p></font>", nil, x - 110, y, 100, 30, nil, nil, 0.9, true)
			if (i % 7== 0) then
				x= 0
				y= y + 45
			end
		end
end
eventChatCommand= function(player, c)
		local cmd= {}
		for data in c:gmatch("%S+") do
			table.insert(cmd, data)
		end
		if player== adm and not sort then
			if cmd[1]=="add" then
				table.insert(players, {
					name= cmd[2],
					x= 0,
					y= 0
				})
				update()
				winner.state= false
			elseif cmd[1]=="remove" then
				for pos= 1, #players do
					ui.removeTextArea(pos, nil)
					if players[pos] then
						if players[pos].name== cmd[2] then
							table.remove(players, pos)
						end
					end
				end
				update()
				winner.state= false
			elseif cmd[1]=="sortear" and #players>= 2 then
				sort= true
				times= 0
			elseif cmd[1]=="clean" then
				for pos= 1, #players do
					ui.removeTextArea(pos, nil)
				end
				winner.state= false
				players= {}
			end
		end
end
eventLoop= function()
		if sort then
			local target= math.random(1, #players)
			local particles= {21, 21, 23, 24}
			times= times + 1
			update()
			ui.updateTextArea(target, "<font size='14' color='#66DD66'><p align='center'>"..(players[target].name:match("(.-)#")).."</p></font>", nil)
			for i= 1, 40 do
				tfm.exec.displayParticle(particles[math.random(1, 4)], math.random(players[target].x, players[target].x + 100) - 110, math.random(players[target].y, players[target].y + 30), 0, math.random(1, 5))
			end
			if times== 20 then
				sort= false
				winner.target= target
				winner.state= true
			end
		end
		if winner.state then
			local x= players[winner.target].x
			local y= players[winner.target].y
			local particles= {0, 1, 2, 4, 13}
			tfm.exec.playEmote(players[winner.target].name, 0)
			for i= 1, 40 do
				tfm.exec.displayParticle(particles[math.random(1, 5)], math.random(x, x + 100) - 110, math.random(y, y + 30), 0, math.random(1, 3))
			end
		end
end
do
		adm= adm:match("(.-)%.")
		ui.addTextArea(0, "<font size='25' color='#66DD66'><p align='center'>Sorteio!</p></font>", nil, 300, 30, 200, nil, nil, nil, 0.8, true)
		system.disableChatCommandDisplay()
end

Espero que goste.

Comandos:

!add playerName: adiciona um competidor no sorteio (precisa ter #, senão dá erro)

!remove playerName: remove um competidor no sorteio (precisa ter #, senão dá erro)

!clean: remove todos os players do sorteio

!sortear: inicia o sorteio (obrigatório 2 competidores cadastrados)

Good game, God bless!

Dernière modification le

#2507

Patudo_games a dit :
eu quero um script de eliminatoria vanilla o mais rapido possivel

Refiz o script do 0, veja se agora funciona:

Script

Code Lua

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

local _, adm= pcall(nil)
local time= {count= 0, max= 90000}
local maps= {}
local eliminated= {}
local gaming, match= false, false
local last=""
local win_map=""
local setMap= function()
    local map= maps[math.random(1, #maps)]
    tfm.exec.newGame(map)
    ui.setMapName("Eliminatória Vanilla!")
end
local inRoom= function()
    local reply= 0
    for _, _ in next, tfm.get.room.playerList do
        reply= reply + 1
    end
    return reply
end
local noOne= function()
    for _, data in next, tfm.get.room.playerList do
        if not data.isDead then
            return false
        end
    end
    return true
end
local verify= function()
    if inRoom() - #eliminated== 1 then
        gaming= false
        time.count= 0
        eliminated= {}
        tfm.exec.newGame(win_map)
        ui.setMapName("<font color='#66DD66'>"..last.."</font> has won the game!")
    else
       match= true
       time.count= 0
       setMap()
       for _, player in next, eliminated do
            tfm.exec.killPlayer(player)
       end
    end
end
local isEliminated= function(player)
    for _, data in next, eliminated do
        if data== player then
            return true
        end
    end
    return false
end
local list= function(target)
    local text="<p align='center'>Quem desejas eliminar?</p><br/><p align='center'>"
    for player, _ in next, tfm.get.room.playerList do
        if not isEliminated(player) and player~= target then
            text= text.."<a href='event:eliminate("..player..")'>"..(player:match("(.-)#")).."</a> "
        end
    end
    text= text.."</p>"
    ui.addTextArea(2, text, target, 200, 100, 400, 200, nil, nil, 1, true)
end
eventLoop= function()
    if gaming and match then
        time.count= time.count + 500
        tfm.exec.setGameTime((time.max / 1000) - (time.count / 1000))
        if time.count== time.max or noOne() then
            match= false
            verify()
        end
    end
end
eventPlayerLeft= function(player)
    for pos, data in next, eliminated do
        if data== player and gaming then
            table.remove(eliminated, pos)
        end
    end
end
eventTextAreaCallback= function(_, player, event)
    if player== adm and not gaming then
        if event=="start" then
            gaming= true
            match= true
            setMap()
        elseif event=="max" and not gaming then
            ui.addPopup(0, 2, "Insira o tempo máximo de cada partida em <br>minutos</br> (atual: <b>"..(time.max / 60000).."</b> min): ", adm, 300, 100, 200, true)
        end
    else
        if event:match("eliminate") then
            local target= event:match("eliminate%((.-)%)")
            ui.removeTextArea(2, player)
            ui.addTextArea(3, "<p align='center'><b>"..target.."</b> has been eliminated!</p><br/><a href='event:ok'>OK</a>", nil, 300, 50, 200, nil, nil, nil, 1, true)
            table.insert(eliminated, target)
            verify()
        end
    end
    if event=="ok" then
        ui.removeTextArea(3, player)
    end
end
eventPlayerWon= function(player)
    for _player, _ in next, tfm.get.room.playerList do
        if _player~= player then
            tfm.exec.killPlayer(_player)
        end
    end
    match= false
    last= player
    list(player)
    ui.setMapName("Match ended! "..player.." has won the match!")
end
eventPopupAnswer= function(_, _, answer)
    time.max= ((type(tonumber(answer))=="number") and tonumber(answer) * 60000 or time.max)
end
do
	adm= adm:match("(.-)%.")
	for _, data in next, {"AutoShaman", "AutoNewGame", "AutoTimeLeft", "MortCommand"} do
		tfm.exec["disable"..data]()
    end
    ui.addTextArea(0, "<a href='event:start'>Start</a>", adm, 20, 370, nil, nil, nil, nil, 1, true)
    ui.addTextArea(1, "<a href='event:max'>Max time match</a>", adm, 66, 370, nil, nil, nil, nil, 1, true)
    ui.setMapName("Eliminatória Vanilla!")
end

O tempo agora é gerenciado diretamente pelo script, impedindo bugs (é o que espero).

Você pode modificar o tempo máximo de cada partida no botão ao lado de "Start", o que inicia o jogo.

Se um jogador sair da sala, o sistema é otimizado para não haver bugs, mas não pude testar. Então evite a saída de pessoas da sala se conseguir.

Só jogue com 2 ou mais pessoas

Coloque seus mapas em maps= {}, igual no outro

Em win_map, coloque um mapa que será iniciado quando alguém vencer, se quiser.

Espero que agora funcione ;-;

Dernière modification le

#2508

vc pode fazer um script que se eu tacar uma bolinha de neve o rato que tocar morre, ou alguma coisa que eu possa lançar

#2509

Aygx a dit :
vc pode fazer um script que se eu tacar uma bolinha de neve o rato que tocar morre, ou alguma coisa que eu possa lançar

Script

Code Lua

local _, adm= pcall(nil)
local balls= {}
local players= {}
local count= 0
local last=""
local allow= function(player, b)
		system.bindKeyboard(player, 69, false, b)
end
local distancia= function(objX, objY, pX, pY)
		local dist= {
			x= math.abs(objX - pX),
			y= math.abs(objY - pY)
		}
		local h= math.sqrt(dist.y ^ 2 + dist.x ^ 2)
		return h
end
local collide= function()
		for _, object in next, tfm.get.room.objectList do
			for player, data in next, tfm.get.room.playerList do
				if distancia(object.x, object.y, data.x, data.y)<= 20 and player~= last then
					tfm.exec.killPlayer(player)
				end
			end
		end
end
eventChatCommand= function(player, c)
		local cmd= {}
		for i in c:gmatch("%S+") do
			table.insert(cmd, i)
		end
		if player== adm then
			if cmd[1]=="allow" then
				allow(cmd[2], true)
			elseif cmd[1]=="disallow" then
				allow(cmd[2], false)
			end
		end
end
eventNewPlayer= function(player)
		players[player]= {count= 0, shoot= true}
end
eventKeyboard= function(player)
		local x= tfm.get.room.playerList[player].x
		local y= tfm.get.room.playerList[player].y
		if players[player].shoot then
			players[player].shoot= false
			if tfm.get.room.playerList[player].isFacingRight then
				table.insert(balls, tfm.exec.addShamanObject(34, x + 20, y + 5, 0, 15, -5))
			else
				table.insert(balls, tfm.exec.addShamanObject(34, x - 20, y + 5, -180, -15, -5))
			end
			last= player
		end
end
eventLoop= function()
		count= count + 500
		if count== 5000 then
			for _, data in next, balls do
				tfm.exec.removeObject(data)
			end
			balls= {}
			count= 0
		end
		for pos in next, players do
			if not players[pos].shoot then
				players[pos].count= players[pos].count + 500
				if players[pos].count== 2000 then
					players[pos].count= 0
					players[pos].shoot= true
				end
			end
		end
		collide()
end
do
		adm= adm:match("(.-)%.")
		for player in next, tfm.get.room.playerList do
			eventNewPlayer(player)
		end
		allow(adm, true)
		system.disableChatCommandDisplay()
end

Como a API não tem tantos recursos, o resultado do script não terá os efeitos desejados, e tem várias falhas.

Comandos:

!allow playerName - dá permissão a alguém para lançar a bolinha de neve

!disallow playerName - tira a permissão de alguém de lançar a bolinha de neve

Maior parte do script e lógica foram feitos por Fofinhoppp#0000.

#2510

Quero um script que permita você mudar o nome do mapa (substituindo o @ do mapa e o nome com a # de quem criou) e, no mesmo script quero um que permita colocar um mapa

Desde já agradeço.

#2511

Poppy a dit :
Quero um script que permita você mudar o nome do mapa (substituindo o @ do mapa e o nome com a # de quem criou) e, no mesmo script quero um que permita colocar um mapa

Desde já agradeço.

Code Lua

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

local _, adm= pcall(nil)
eventChatCommand= function(player, c)
	local cmd= {}
	for data in c:gmatch("%S+") do
		table.insert(cmd, data)
	end
	if c:sub(1, 7)=="mapName" then
		ui.setMapName(c:sub(9, #c))
	elseif cmd[1]=="setMap" then
		tfm.exec.newGame(cmd[2])
		if cmd[3] then
			ui.setMapName(c:sub(8 + #cmd[2], #c))
		end
	end
end
do
	adm= adm:match("(.-)%.")
	system.disableChatCommandDisplay()
end

Comandos:

!mapName name

- Dá um nome ao mapa, sendo name o seu nome.

!setMap code [name]

- Inicia um novo mapa, sendo code o seu código. A propriedade name é opcional, você pode usa-lo para dar um nome ao mapa logo após inicia-lo!

#2512

Alguém poderia ve esse script?

Depois de um tempo o script é parado.

https://pastebin.com/raw/CNC9FkSt

#2513

Victorck6 a dit :
Alguém poderia ve esse script?

Depois de um tempo o script é parado.

https://pastebin.com/raw/CNC9FkSt

Queria poder ajudar, mas não consigo acessar nenhuma página do Pastebin. Poderia postar o script dentro de um [ code=lua][/code] dentro de um spoiler?

#2514

Obrigado

Dernière modification le

#2515

Ok, vou ver. Mas pelo amor de Deus, coloca isso logo dentro de um Spoiler, senão a staff do Atelier vai te pegar kkkkk

#2516

Victorck6 a dit :

Jp_darkuss a dit :

Esse script originalmente pertence ao Module não-oficial #Conguerors, feito por Twistzaok#0000.

O provável é que você tenha pego um script que foi alterado (notei isso pelo nome do mapa quando iniciei o script), então erros pode ocorrer.

Tente usar a versão origina na galerial: [Galeria] Lucasrslv.

Caso o error persista, vou tentar consertar. Se não conseguir, vou tentar contatar o criador, e se ele ainda estiver jogando/atualizando scripts, vou notificar o erro para ver se ele pode ajudar.

#2517

Jp_darkuss a dit :

Victorck6 a dit :

Já usei esse e o erro é o mesmo e a última vez que o lucas entrou foi na data 16/09/2020

#2518

Olá, eu queria um script que possibilitasse um dos ratinhos a matar outras pessoas apertando espaço.

Se possivel com limite de tempo

Obrigado!

#2519

Lightsuit a dit :
Olá, eu queria um script que possibilitasse um dos ratinhos a matar outras pessoas apertando espaço.

Se possivel com limite de tempo

Obrigado!

Script

Code Lua

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

local _, adm= pcall(nil)
local killer
local data= {
	maxCount= 10000,
	allow= true
}
local count= 0
local update= function(player)
	ui.removeTextArea(2, killer)
	killer= player
	ui.addTextArea(2, "Countdown: 0s", killer, 700, 370, nil, nil, nil, nil, 1, true)
end
local kill= function(player)
	local x= tfm.get.room.playerList[player].x
	local y= tfm.get.room.playerList[player].y
	function distance(x1, y1, x2, y2)
		local dist= {
			x= math.abs(x1 - x2),
			y= math.abs(y1 - y2)
		}
		return math.sqrt(dist.x ^ 2 + dist.y ^ 2)
	end
	for name, data in next, tfm.get.room.playerList do
		if name~= player and distance(x, y, data.x, data.y)<= 30 then
			tfm.exec.killPlayer(name)
			break
		end
	end
end
eventKeyboard= function(player)
	if player== killer and data.allow then
		kill(player)
		data.allow= false
	end
end
eventPopupAnswer= function(id, _, answer)
	if id== 0 then
		update(answer)
	elseif id== 1 then
		data.maxCount= tonumber(answer) * 1000
	end
end
eventLoop= function()
	if not data.allow then
		count= count + 500
		if count % 1000== 0 then
			ui.updateTextArea(2, "Countdown: "..((data.maxCount - count) / 1000).."s", killer)
		end
		if count>= data.maxCount then
			count= 0
			data.allow= true
		end
	end
end
eventTextAreaCallback= function(_, _, event)
	if event=="killer" then
		ui.addPopup(0, 2, "<p align='center'>Indique o nome do killer:</p>", adm, 300, 100, nil, true)
	elseif event=="countdown" then
		ui.addPopup(1, 2, "<p align='center'>Indique o countdown para cada kill (atual: "..(data.maxCount / 1000).."s):</p>", adm, 300, 100, nil, true)
	end
end
eventNewPlayer= function(player)
	system.bindKeyboard(player, 32, false, true)
end
do
	adm= adm:match("(.-)%.")
	killer= adm
	update(killer)
	tfm.exec.disableAfkDeath()
	tfm.exec.disableMortCommand()
	table.foreach(tfm.get.room.playerList, eventNewPlayer)
	ui.addTextArea(0, "<a href='event:killer'>Killer</a>", adm, 20, 370, nil, nil, nil, nil, 1, true)
	ui.addTextArea(1, "<a href='event:countdown'>Countdown</a>", adm, 70, 370, nil, nil, nil, nil, 1, true)
end

Por padrão, o killer será o adm, e o tempo máximo para cada kill é ser 10s.

Você pode alterar o killer (botão "Killer") e o tempo máximo para cada kill (botão "Countdown").

Para o killer aprecerá uma aba no canto lateral inferior mostrando a contagem, sendo que ele pode atacar quando estiver no 0.

Quaisquer bugs me notifique.

Dernière modification le

#2520

Jp_darkuss a dit :

Lightsuit a dit :
Olá, eu queria um script que possibilitasse um dos ratinhos a matar outras pessoas apertando espaço.

Se possivel com limite de tempo

Obrigado!

Script

Code Lua

local _, adm= pcall(nil)
local killer
local data= {
	maxCount= 10000,
	allow= true
}
local count= 0
local update= function(player)
	ui.removeTextArea(2, killer)
	killer= player
	ui.addTextArea(2, "Countdown: 0s", killer, 700, 370, nil, nil, nil, nil, 1, true)
end
local kill= function(player)
	local x= tfm.get.room.playerList[player].x
	local y= tfm.get.room.playerList[player].y
	function distance(x1, y1, x2, y2)
		local dist= {
			x= math.abs(x1 - x2),
			y= math.abs(y1 - y2)
		}
		return math.sqrt(dist.x ^ 2 + dist.y ^ 2)
	end
	for name, data in next, tfm.get.room.playerList do
		if name~= player and distance(x, y, data.x, data.y)<= 30 then
			tfm.exec.killPlayer(name)
			break
		end
	end
end
eventKeyboard= function(player)
	if player== killer and data.allow then
		kill(player)
		data.allow= false
	end
end
eventPopupAnswer= function(id, _, answer)
	if id== 0 then
		update(answer)
	elseif id== 1 then
		data.maxCount= tonumber(answer) * 1000
	end
end
eventLoop= function()
	if not data.allow then
		count= count + 500
		if count % 1000== 0 then
			ui.updateTextArea(2, "Countdown: "..((data.maxCount - count) / 1000).."s", killer)
		end
		if count>= data.maxCount then
			count= 0
			data.allow= true
		end
	end
end
eventTextAreaCallback= function(_, _, event)
	if event=="killer" then
		ui.addPopup(0, 2, "<p align='center'>Indique o nome do killer:</p>", adm, 300, 100, nil, true)
	elseif event=="countdown" then
		ui.addPopup(1, 2, "<p align='center'>Indique o countdown para cada kill (atual: "..(data.maxCount / 1000).."s):</p>", adm, 300, 100, nil, true)
	end
end
eventNewPlayer= function(player)
	system.bindKeyboard(player, 32, false, true)
end
do
	adm= adm:match("(.-)%.")
	killer= adm
	update(killer)
	tfm.exec.disableAfkDeath()
	tfm.exec.disableMortCommand()
	table.foreach(tfm.get.room.playerList, eventNewPlayer)
	ui.addTextArea(0, "<a href='event:killer'>Killer</a>", adm, 20, 370, nil, nil, nil, nil, 1, true)
	ui.addTextArea(1, "<a href='event:countdown'>Countdown</a>", adm, 70, 370, nil, nil, nil, nil, 1, true)
end

Bom, a intenção do pedido era ninguem saber quem era o Killer, mas tirando isso ficou ótimo o script parabens!

English	Français
Português do Brasil	Español
Türkçe	Polski
Magyar	Română
العربية	Skandinavisk
Nederlands	Deutsch
Bahasa Indonesia	Русский
中文	Filipino
Lietuvių kalba	日本語
Suomi	עברית
Italiano	Česky
Hrvatski	Slovensky
Български	Latviešu
Estonian

Langue