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

Lindo Aporte che.

Esta bueno el aporte.
Seguí Así axters xD