[QUEST]Generadora de Regens

[Dextrok]

Hola, hoy vengo a dejarles este pedazo de quest que sirve para crear los regen mediante quest.

 

¿Cómo utilizar esta Quest?

 

Fácil, la quest se base en mirar a los mapas en formas cuadradas, de esta manera tomamos un cuadrado de ejemplo y este es llenado en todo su interior mediante la quest, por ejemplo:

 

-Tenemos el siguiente mapa cuadrado el cuál está completamente vacío y necesita ser llenado de mobs.

 

 

Por cierto, deben de agregarle al foro el re-dimensionamiento de las imágenes.

 

Volviendo al tema, como podemos ver el siguiente mapa está conformado mayormente por un plano cartesiano el cuál tiene componentes X1 y X2, y tambíen Y1 y Y2.

 

El valor maximo y el minimo ya sea en X o en Y puede ser invertido.

 

Ya entendida la parte de arriba, explico el funcionamiento total de la quest:

 

Lo primero que debemos de hacer es verificar esta parte de aca:

 

"/usr/game/share/locale/germany/quest/"

 

Y fijarnos que sea la ruta en la cuál tenemos nuestras Quest, o sino la ruta en dónde se generará el archivo regen que vayamos a crear.

 

luego al utilizarla le tendremos que poner un nombre a nuestra quest: por ejemplo regen.txt

 

Luego tocará colocar los X y los Y que sacamos en la parte de arriba, como dije anteriormente es relativo el maximo y el minimo con saber que tenemos los (x) y los (y) uno al extremo del otro nos basta.

 

Posteriormente se procede a insertar el group_group que va a salir en el mapa.

 

[El group_group no es más que la agrupación de varios group]

 

Después la cantidad de grupos que queremos que salgan en el mapa. Y finalmente los segundos que tardan en salir, sin la (S).

 

Eso es todo.

 

quest regen begin
state start begin
  when 50512.use begin
   local sciezka = "/usr/game/share/locale/germany/quest/"
   say_title("New file name :")
   say()
   say_yellow("Example : regen.txt")
   say()
   local newfile = input()
   if newfile == "" then
	say_red("Name can not be empty.")
	return
   end
   if io.open(sciezka..newfile, "r") != nil then
	say_red("File "..newfile.." exist now.")
   else
	say_title("Great ! Next step.")
	local xx = select("Next")
	if xx == 1 then
	 say_title("Minimum value x :")
	 local x_min = tonumber(input())
	 if x_min == "" then
	  say_red("This value can not be empty.")
	  return
	 end
	 say_title("Maximum value x :")
	 local x_max = tonumber(input())
	 if x_max == "" then
	  say_red("This value can not be empty.")
	  return
	 end
	 say_title("Minimum value y :")
	 local y_min = tonumber(input())
	 if y_min == "" then
	  say_red("This value can not be empty.")
	  return
	 end
	 say_title("Maximum value y :")
	 local y_max = tonumber(input())
	 if y_max == "" then
	  say_red("This value can not be empty.")
	  return
	 end
	 say_title("Group ID :")
	 local id_grupy = tonumber(input())
	 if id_grupy == "" then
	  say_red("This value can not be empty.")
	  return
	 else
	  say_title("Amount of groups on this cords :")
	  local max_count = 150
	  local count = tonumber(input())
	  if count <= 0 then
	   say_red("Value of this field must be higher than 0.")
	   return
	  elseif count >= max_count then
	   say_red("To large value of this field. Must be lower than "..max_count.." loop circulation.")
	  else
	   say_title("Seconds to next respawn : ")
	   say()
	   say_red("Just number, without 's'")
	   local time = tonumber(input())
	   if time <= 0 then
		say_red("This field must be higher than 0.")
		return
	   else
		io.output(sciezka..newfile)
		for i = 1, count do
		 local liczx = number(x_min, x_max)
		 local liczy = number(y_min, y_max)
		 io.write("rt"..liczx.."t"..liczy.."t10t10t0t0t"..time.."st100t1t"..id_grupy)
		 io.write("n")
		end
		io.close()
		say_title("File saved.")
	   end
	  end
	 end
	end
   end
  end
end
end

Creditos:

 

zazolekpl

 

[LORDCarlo™]

Men esta buena la quest pero podrias poner una imagen de la funcion porfavoe!!!!