Argentum Online
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.



 
ÍndicePortalÚltimas imágenesBuscarRegistrarseConectarse
Mundo Argentum
Banner Invierno Usuario con mas de 1.000 mensajes. Chat de Argentum Online
Redes Sociales de Argentum Online
Facebook de la comunidad. Twitter de la comunidad.

Comparte
 

 15 segundos para regresar a tu ciudad natal

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Axters
[Administrador Del Foro]
[Administrador Del Foro]
avatar

Mensajes : 197
Temas : 46
Fecha de inscripción : 16/06/2013

15 segundos para regresar a tu ciudad natal Empty
MensajeTema: 15 segundos para regresar a tu ciudad natal   15 segundos para regresar a tu ciudad natal Icon_minitimeJue Jun 20, 2013 12:53 pm

Explicación:Al poner /regresar te en 15 segundos regresas a tu ciudad según tu facción.

En el comando /regresar buscamos

Código:
 
If UserList(UserIndex).flags.Muerto = 0 Then _
Call UserDie(UserIndex)
Call WarpUserChar(UserIndex, 1, 59, 47)
Exit Sub

y lo remplazamos por

Código:
If UserList(UserIndex).flags.Muerto = 0 Then _
Call UserDie(UserIndex)
UserList(UserIndex).flags.TimeRegresar = 15
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||En 15 segundos regresaras a tu ciudad natal." & FONTTYPE_INFO)
Exit Sub
 

En el sub pasarsegundo arriba de

Código:
Next I

Ponemos

Código:
 
            If UserList(i).flags.TimeRegresar > 0 Then
   
             UserList(i).flags.TimeRegresar = UserList(i).flags.TimeRegresar - 1
             
           If UserList(i).flags.TimeRegresar = 0 Then
            If UserList(i).StatusMith.EsStatus = 1 Then
            Call WarpUserChar(i, 3, 50, 50)
            Else
            If UserList(i).StatusMith.EsStatus = 2 Then
            Call WarpUserChar(i, 1, 50, 50)
            End If
            End If
           
             
        End If
   
    End If
 
 

buscamos

Código:
Public type userflags

Abajo ponemos

Código:
TimeRegresar As Byte

Listo gente , Cambien las coordenadas por las ciudades de pks/ciudadanos de ustedes.

Si quieren que mande a todos a 1 sola ciudad cambien 

Código:
If UserList(i).flags.TimeRegresar > 0 Then
   
             UserList(i).flags.TimeRegresar = UserList(i).flags.TimeRegresar - 1
             
           If UserList(i).flags.TimeRegresar = 0 Then
            If UserList(i).StatusMith.EsStatus = 1 Then
            Call WarpUserChar(i, 3, 50, 50)
            Else
            If UserList(i).StatusMith.EsStatus = 2 Then
            Call WarpUserChar(i, 1, 50, 50)
            End If
            End If
           
             
        End If
   
    End If

Por

Código:
If UserList(i).flags.TimeRegresar > 0 Then
   
             UserList(i).flags.TimeRegresar = UserList(i).flags.TimeRegresar - 1
             
           If UserList(i).flags.TimeRegresar = 0 Then
            Call WarpUserChar(i, 1, 50, 50)
        End If
   
    End If
         
   

Y cambian las coordenadas por la de ustedes.

Aporto todos estos codigos ya que estaba haciendo un servidor y bueno el que me estaba ayudando , el que iva a pagar el host se retiro del ao y no tengo taraska para pagar un host ajja
Volver arriba Ir abajo
Invitado
Invitado
avatar


15 segundos para regresar a tu ciudad natal Empty
MensajeTema: Re: 15 segundos para regresar a tu ciudad natal   15 segundos para regresar a tu ciudad natal Icon_minitimeJue Jun 20, 2013 1:12 pm

Lindo Aporte che.
Volver arriba Ir abajo
RetrxM
[Administrador Del Foro]
[Administrador Del Foro]
RetrxM

Mensajes : 196
Temas : 47
Fecha de inscripción : 18/06/2013

15 segundos para regresar a tu ciudad natal Empty
MensajeTema: Re: 15 segundos para regresar a tu ciudad natal   15 segundos para regresar a tu ciudad natal Icon_minitimeJue Jun 20, 2013 5:24 pm

Esta bueno el aporte.
Seguí Así axters xD
Volver arriba Ir abajo
Contenido patrocinado




15 segundos para regresar a tu ciudad natal Empty
MensajeTema: Re: 15 segundos para regresar a tu ciudad natal   15 segundos para regresar a tu ciudad natal Icon_minitime

Volver arriba Ir abajo
 

15 segundos para regresar a tu ciudad natal

Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.

Permisos de este foro:No puedes responder a temas en este foro.
Argentum Online :: Argentum Online :: Programación-