En el sub GoHome del server..
- Public Sub goHome(ByVal UserIndex As Integer)
- Dim Distance As Integer
- Dim tiempo As Long
-
- With UserList(UserIndex)
- If .flags.Muerto = 1 Then
- If .flags.lastMap = 0 Then
- Distance = distanceToCities(.Pos.Map).distanceToCity(.Hogar)
- Else
- Distance = distanceToCities(.flags.lastMap).distanceToCity(.Hogar) + GOHOME_PENALTY
- End If
-
- tiempo = (Distance + 1) * 30 'segundos
-
- .Counters.goHome = tiempo / 6 'Se va a chequear cada 6 segundos.
-
- .flags.Traveling = 1
-
- Call WriteMultiMessage(UserIndex, eMessages.Home, Distance, tiempo, , MapInfo(Ciudades(.Hogar).Map).name)
- Else
- Call WriteConsoleMsg(UserIndex, "Debes estar muerto para poder utilizar este comando.", FontTypeNames.FONTTYPE_FIGHT)
- End If
- End With
- End Sub
En esta linea
tiempo = (Distance + 1) * 30
cambia el 30 por la cantidad de segundos que queres que aumenten por cantidad de mapa.
Ejemplo;
Estás a 10 mapas... tardará 300 segundos
Saludos !