with serveraction 1
sorry mi english
Scripts
Menu Teleport a players
Menu Teleport a players
1

addhook("menu","_menu")
addhook("serveraction","_serveraction")
function _serveraction(id,action)
	if action==1 then
		menu(id,"Teleport,Location 1,Location 2")
	end
end
function _menu(id,title,button)
	if title=="Teleport" then
		if button==1 then
			parse("setpos "..id.." 100 100")
		elseif button==2 then
			parse("setpos "..id.." 100 100")
		end
	end
end
addhook("say","sayyouloveme")
function sayyouloveme(id,txt)
local target = txt:sub(7,8)
	if txt:sub(1,5) == "!goto" then
		parse("setpos "..id.." "..player(target,"x").." "..player(target,"y"))
	end
end
--Teleport To Player-- 1. Player 1 2. Player 2 3. Player 3 ...and so on 0. Cancel
Apache uwu has written--Teleport To Player-- 1. Player 1 2. Player 2 3. Player 3 ...and so on 0. Cancel
addhook("serveraction" , "Accion")
function Accion(id,action)
if action==1 then
menu(id, "¿IR A UN USUARIO?,Ir")
end
end
addhook("menu" , "menu")
function menu(id,title,b)
if title=="¿IR A UN USUARIO?" then
if b==1 then
menu(id,"IR Pagina 1,"..exist(1).."|1,"..exist(2).."|2,"..exist(3).."|3,"..exist(4).."|4,"..exist(5).."|5,"..exist(6).."|6,"..exist(7).."|7,"..exist(8).."|8,Siguiente")
end
elseif title=="IR Pagina 1" then
if b==9 then
menu(id,"IR Pagina 2,"..exist(9).."|9,"..exist(10).."|10,"..exist(11).."|11,"..exist(12).."|12,"..exist(13).."|13,"..exist(14).."|14,"..exist(15).."|15,"..exist(16).."|16,Siguiente")
elseif b~=0 then
ir(b)
end
elseif title=="IR Pagina 2" then
if b==9 then
menu(id,"IR Pagina 3,"..exist(17).."|17,"..exist(18).."|18,"..exist(19).."|19,"..exist(20).."|20,"..exist(21).."|21,"..exist(22).."|22,"..exist(23).."|23,"..exist(24).."|24,Siguiente")
elseif b~=0 then
ir(b+8)
end
elseif title=="IR Pagina 3" then
if b==9 then
menu(id,"IR Pagina 4,"..exist(25).."|25,"..exist(26).."|26,"..exist(27).."|27,"..exist(28).."|28,"..exist(29).."|29,"..exist(30).."|30,"..exist(31).."|31,"..exist(32).."|32,Cerrar Menu")
elseif b~=0 then
ir(b+16)
end
elseif title=="IR Pagina 4" then
if b~=0 then
ir(b+24)
end
end
end
function ir(id, target)
parse("setpos "..id.." "..player(target,"x").." "..player(target,"y"))
end
function exist(param)
if player(param,"exists") then
return player(param,"name")
else
return "(Nada)"
end
end
1
