[Script] Clima Aleatorio y Pronostico (by IkiCapitan)

[iki141]

Hola chicos, algunos habrán pensado que estas 2 semanas estuve ausente, pero no... estuve haciendo proyectos secretos que sólo los Elites por ahora conocen y ya podrán apreciar con paciencia. AE está dispuesto a grandes cambios con ayuda de nosotros, y a pesar de estar junto a mis compañeros impulsando y motivando en todo lo posible, no los podía dejar esperando, sobretodo a mis fans jajaja, mis Biebers... acá les traigo un Script mientras esperan las grandes novedades que les podemos llegar a traer.

Este Script genera un Clima aleatorio en los mapas especificados (pueden ser todos), cuando menciono "Aleatorio" me refiero a que puede llover, nevar, estar despejado o haber tormenta sin necesidad de que estemos especificando esto nosotros mismos ya que el Script ejecutará todos los procesos por si sólo durante Horas si es necesario.

Pero eso no es todo, además el Script cuenta con un detalle más: El Pronóstico.

Esto significa que añadí una función para que nosotros al hablar a cierto NPC (pueden insertarlo a un Tile si quieren, eso depende de ustedes), este nos prevea el Clima a futuro, es decir, el próximo evento meteorológico en el juego.

La Configuración predeterminada que expuse es para que la variación de Climas se genere cada 1 Hora; los Mapas por default son 5, pero como ven se puede con Copy&Paste agregar cientos.


Dificultad: Media-Fácil

Lo Bueno: Muy útil para cualquier tipo de juegos, en especial si queremos aprovechar y Scriptear "Ventajas/Desventajas" con el Clima. Sencillo de adaptar.

Lo Malo: El Engine por BUG con los Timer no permite la inserción automática mediante el "Server OnLoad", por lo que al empezar el servidor debemos cargar el Clima con el Commando "/Climax" o el que ustedes epecifíquen.

Información para SadScripters: Los Arrays en SS no son funcionales al igual que en VB, cosa que permitiría que el Script fuese mucho más acotado. Los Comandos que manejan los tiempos del Server no estaban funcionales, por lo que se implementó Timers.



Instrucciones:

1) Instalar los Scripts (pudiendo adaptar Tiempo y Mapas deseados):

Cita:------------------------------------------En el Server Load------------------------------------

Dim Clima
Clima = Rand(0,3) 'Se genera el Clima que se ejecutara automaticamente
Call PutVar("Scripts/Juego.ini", "Naturaleza", "Clima", " " &Clima)

------------------------------Como Case en el Sub Commands---------------------------------------------------

Case "/Climax" 'Accionar cuando inicia el Server
Call SetTimer("call Clima("& Index &")", 600) 'ejecuta el primer Clima aleatorio instantaneamente.
Call SetTimer("call EjecutorClima("& Index &")", 360*10000) 'prepara para la ejecución de un nuevo Clima dentro del tiempo estimado.
Exit Sub


-------------------- En un Scripted NPC, Tile o lo que quieras que prevea el Clima--------------------

Climax = GetVar("Scripts/Juego.ini", "Naturaleza", "Clima") 'toma datos para preveer el Clima que vendrá dentro del tiempo estimado.
If Climax = 0 Then
Call PlayerMsg(Index, "Por el momento se prevee un día soleado, a cuidarse del sol...", YELLOW)
ElseIf Climax = 1 Then
Call PlayerMsg(Index, "Se preveen lluvias para el día de hoy, no olvides tu paraguas!", YELLOW)
ElseIf Climax = 2 Then
Call PlayerMsg(Index, "El tiempo esta loco, parece que va a nevar, a comprar abrigos se ha dicho!", YELLOW)
ElseIf Climax = 3 Then
Call PlayerMsg(Index, "Preparense para guardar refugio, se nos aproxima una tormenta muy peligrosa!", YELLOW)
End If
Exit Sub


--------------------------Al final del Main.txt (despues de todo el texto)------------------

Sub Clima(Index)
Mierdo = Rand(0,3)
Climax = GetVar("Scripts/Juego.ini", "Naturaleza", "Clima")
Call SetWeather(1, Climax,360*10000)
Call SetWeather(2, Climax,360*10000)
Call SetWeather(3, Climax,360*10000)
Call SetWeather(4, Climax,360*10000)
Call SetWeather(5, Climax,360*10000)
Call PutVar("Scripts/Juego.ini", "Naturaleza", "Clima", " " &Mierdo)
Call RemoveTimer("call Clima("& Index &")")
End Sub

Sub EjecutorClima(Index)
Call SetTimer("call Clima("& Index &")", 360*1000)
End Sub


--------------------------------------------------------------------------------------------------------

2) Al iniciar el Servidor ejecutar el Comando /Climax (esto no fue puesto en Server Load porque misteriosamente genera un Bug como mencioné anteriormente).



Add-On: El código Script que expuse es demasiado práctico de insertar, sin embargo tenemos la posibilidad de que el NPC nos dialogue mediante un cuadro como en el Video, para ello el ScriptedNPC en lugar de lo expuesto debería tener lo siguiente:

Cita:Climax = GetVar("Scripts/Juego.ini", "Naturaleza", "Clima") 'toma datos para preveer el Clima que vendrá dentro del tiempo estimado.
Call CustomMenuShow(Index,"Dialogo","\GUI\Custom\dialogo.bmp",1)
If Climax = 0 Then
Call CustomMenuLabel(Index,2,"Vesperoth: Se me quema el ojo, hoy habra mucho sol...",10,20,13,BRIGHTBLUE,0,300,300)
ElseIf Climax = 1 Then
Call CustomMenuLabel(Index,2,"Vesperoth: El destino obliga a bañarme... parece que va a llover",10,20,13,BRIGHTBLUE,0,300,300)
ElseIf Climax = 2 Then
Call CustomMenuLabel(Index,2,"Vesperoth: Te gusta la mama de Jugito? Hoy caera nieve.",10,20,13,BRIGHTBLUE,0,300,300)
ElseIf Climax = 3 Then
Call CustomMenuLabel(Index,2,"Vesperoth: Agarrad las cosas rapido y meted el culo que viene tormenta",10,20,13,RED,0,300,300)
End If
Exit Sub

Luego deberás crear en la carpeta Cliente/GUI/Custom un archivo de dibujo con el Cuadro de Diálogo que deberá llamarse dialogo.bmp y simplemente relaja las nalgas porque estás listo para disfrutar del sistema meteorológico creado por mí.


Acá un Video del Script funcionando:

[judoka]

Primerooo!
Me gusta mucho, siempre usas comandos que de normal no utilizamos !
P.D: WTF? jajajajajajjajaja vaya mensajes

Código:

Climax = GetVar("Scripts/Juego.ini", "Naturaleza", "Clima") 'toma datos para preveer el Clima que vendrá dentro del tiempo estimado.
Call CustomMenuShow(Index,"Dialogo","\GUI\Custom\dialogo.bmp",1)
If Climax = 0 Then
Call CustomMenuLabel(Index,2,"Vesperoth: Se me quema el ojo, hoy habra mucho sol...",10,20,13,BRIGHTBLUE,0,300,300)
ElseIf Climax = 1 Then
Call CustomMenuLabel(Index,2,"Vesperoth: El destino obliga a bañarme... parece que va a llover",10,20,13,BRIGHTBLUE,0,300,300)
ElseIf Climax = 2 Then
Call CustomMenuLabel(Index,2,"Vesperoth: Te gusta la mama de Jugito? Hoy caera nieve.",10,20,13,BRIGHTBLUE,0,300,300)
ElseIf Climax = 3 Then
Call CustomMenuLabel(Index,2,"Vesperoth: Agarrad las cosas rapido y meted el culo que viene tormenta",10,20,13,RED,0,300,300)
End If
Exit Sub

[nickitolas]

Me gusta mucho, los mensajes dan gracia, si mal no recuerdo "Vesperoth" es el nombre del avatar de Near xD.

Una cosa que le cambiaria:
En el caso de tener los mapas deseados uno despues del otro(lo que es muy posible, si creas una ciudad la creas un mapa despues de otro, generalmente)
El:

Call SetWeather(1, Climax,360*10000)
Call SetWeather(2, Climax,360*10000)
Call SetWeather(3, Climax,360*10000)
Call SetWeather(4, Climax,360*10000)
Call SetWeather(5, Climax,360*10000)

Por:
For I = E to X 'E= El primero mapa de los deseas, y X el ultimo
Call SetWather(I, Climax, 360*10000)
Next
, me encanta la idea de un clima aleatorio y el script ademas de ser largo esta bien pensado, te felicito por otro gran logro.
Salu2, Nickitolas.

[iki141]

(17-02-2012 12:25 AM)nickitolas escribió: Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.Me gusta mucho, los mensajes dan gracia, si mal no recuerdo "Vesperoth" es el nombre del avatar de Near xD.

Una cosa que le cambiaria:
En el caso de tener los mapas deseados uno despues del otro(lo que es muy posible, si creas una ciudad la creas un mapa despues de otro, generalmente)
El:

Call SetWeather(1, Climax,360*10000)
Call SetWeather(2, Climax,360*10000)
Call SetWeather(3, Climax,360*10000)
Call SetWeather(4, Climax,360*10000)
Call SetWeather(5, Climax,360*10000)

Por:
For I = E to X 'E= El primero mapa de los deseas, y X el ultimo
Call SetWather(I, Climax, 360*10000)
Loop
, me encanta la idea de un clima aleatorio y el script ademas de ser largo esta bien pensado, te felicito por otro gran logro.
Salu2, Nickitolas.

Muchas gracias por comentar y trollear mi Script jajajaj, ahora jugamos un StarCraft y lo arreglamos mano a mano ...
El "to" no funciona, Ellesar me dió alternativas con Arrays pero no me convenció en algo adaptable para este tipo de Script de manera más sencilla de la que lo expuse sin generar Lag.

[nickitolas]

Ok, muchas gracias por la explicacion.

[canido]

como que no funciona si yo lo he usado XD en mi scripts de chat privado para clanes lo que pasa es que un for se cierra con un Next puede aber complicaciones si en la misma funcion hay un if es decir...
deberia de tener este orden no se si me entienden pero aveces he tenido problemas por semejante boludes
IF.... 1
If.... 2
For... A
If... 3
End if--- 3
NExt--- A
End if.... 2
End if.... 1

Por otro lado buen scripts sencillo facil util y sobretodo COMODEMONIOS NO SE ME OCURRIO!

[iki141]

Si, creo que estamos hablando cosas diferentes, "For" y "To"... ahora entiendo a lo que te referís pero mi idea es crearlo sin Bucles para no generar lag además de quería que se aplique al mismo tiempo en los Mapas...

Gracias por firmar lokos.

[Sheyk87]

Muy groso capo, es muy util, y lo mejor, como para que aparezcan ciertos items, montrous, poder hacer ciertas quest, mapas secretos, o lo que sea segun el clima.

[kanbrelozz]

jajaja que utili y jajaj esos mensajitos hay ome.jajaja

[Near]

Bueh ya conoces mi opinión, te quedó genial.

Eso sí, exijo derechos de autor por usar a mi personaje ¬¬ xD