with serveraction 1
sorry mi english
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
--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