/save

[Nean]

THIRTY SECONDS?!

Code:

' Checks to save players every 10 minutes - Can be tweaked
        If Tick > LastUpdateSavePlayers Then
            UpdateSavePlayers
            LastUpdateSavePlayers = GetTickCount + 60000
        End If

Private Sub UpdateSavePlayers()
Dim i As Long

Code:

Private Sub UpdateSavePlayers()
Dim i As Long

    If TotalOnlinePlayers > 0 Then
        Call TextAdd(frmServer.txtText, "Saving all online players...", True)
        Call GlobalMsg("Saving all online players...", Pink)
        For i = 1 To MAX_PLAYERS
            If IsPlaying(i) Then
                Call SavePlayer(i)
            End If
            DoEvents
        Next i
    End If
End Sub

modServerLoop.bas

I removed the GlobalMsg. =-p

I swear, I see that message "Saving all chars" like every thirty seconds.