sdsadsadasasddasa

Código:

'Tiró los dados antes de llegar acá??
    If .Stats.UserAtributos(eAtributos.Fuerza) = 0 Then
        Call WriteErrorMsg(UserIndex, "Debe tirar los dados antes de poder crear un personaje.")
        Exit Sub
    End If

Y borrarlo.

Buscar

Código:

If Not MapaValido(.Pos.Map) Then
            Call WriteErrorMsg(UserIndex, "El PJ se encuenta en un mapa inválido.")
           
            Call FlushBuffer(UserIndex)
            Call CloseSocket(UserIndex)
            Exit Sub
        End If
    End If

Remplazarlo por

Código:

If Not MapaValido(.Pos.Map) Then
            Call WriteErrorMsg(UserIndex, "El PJ se encuenta en un mapa inválido.")
            Call WarpUserChar(UserIndex, 1, 50, 50, True) 'si esta en dicho mapa invalido lo lleva ulla
            Call FlushBuffer(UserIndex)
            Call CloseSocket(UserIndex)
            Exit Sub
        End If
    End If

Buscar
Modificar colores de habla GM

Código:

If .flags.Privilegios = PlayerType.Dios Then
        .flags.ChatColor = RGB(130, 200, 75)
    ElseIf .flags.Privilegios <> PlayerType.User And .flags.Privilegios <> (PlayerType.User Or PlayerType.ChaosCouncil) And .flags.Privilegios <> (PlayerType.User Or PlayerType.RoyalCouncil) Then
        .flags.ChatColor = RGB(0, 255, 0)
    ElseIf .flags.Privilegios = (PlayerType.User Or PlayerType.RoyalCouncil) Then
        .flags.ChatColor = RGB(0, 255, 255)
    ElseIf .flags.Privilegios = (PlayerType.User Or PlayerType.ChaosCouncil) Then
        .flags.ChatColor = RGB(255, 128, 64)
    Else
        .flags.ChatColor = vbWhite
    End If

PD: Ahí queda un color verde pasto re lindo :$


Hogar sin espera

Código:

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) * 0 '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