/save - Printable Version

/save - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: /save (/showthread.php?tid=636)

- Joost - 11-01-2007

There's a typo in Save Player Packet

- Da Undead - 05-05-2007

On the server side, the paket should start with this..

Code:
If LCase(Parse(0)) = "requesteditmap" Then

For MS, but if your using Elysium then you would use whats in the post Wink

Re: /save - DarkC - 14-09-2008

I hope this is alright...Sense I like this tutorial, and it's useful for lots of people, I want to update it for the MS4 version. I already have tested it out and everything. And yes, I know it's simple to change and make it work for MS4. Anyway...

::Client Side::

First add this in modGameLogic under the Commands section.

Code:
' Save

        If LCase(Mid(frmMirage.txtMyChat, 1, 5)) = "/save" Then

            Call SaveplayerData

            frmMirage.txtMyChat = ""

            Exit Sub

        End If

Then in ModClientTCP add this at the bottom.

Code:
Sub SaveplayerData()

Dim Packet As String

    Packet = CSaveplayerData & END_CHAR

    Call SendData(Packet)

End Sub

Then in modEnumerations add this under "Public Enum ClientPackets"

Code:
CSaveplayerData

::Server Side::

Now in modHandleData above the "Request edit map packet" add this.

Code:
' ::::::::::::::::::::::::

        ' :: Save Player Packet ::

        ' ::::::::::::::::::::::::

        Case CSaveplayerData

                If Map(GetPlayerMap(Index)).Moral = MAP_MORAL_SAFE Then

                    Call SavePlayer(Index)

                    Call PlayerMsg(Index, "Character Stats & Inventory Saved", Yellow)

                Else

                    Call PlayerMsg(Index, "You must be in a town or house to save!", Yellow)

            End If

        Exit Sub

Then in modEnumerations under "Public Enum ClientPackets" add this.

Code:
CSaveplayerData

All done.

Re: /save - Nean - 14-09-2008

MS4 saves all chars, like every thirty seconds dude.

Re: /save - DarkC - 14-09-2008

Oh, really? I just downloaded it today and have been using it a little, so I didn't really notice.

Re: /save - Mattyw - 14-09-2008

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

Re: /save - Nean - 15-09-2008

Mattyw Wrote: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.

Re: /save - Jacob - 15-09-2008

That 60000 would be once a minute, not ten minutes.

I don't know if i originally put in the wrong number or someone else changed it.

Re: /save - DarkC - 15-09-2008

Dugor Wrote:That 60000 would be once a minute, not ten minutes.

I don't know if i originally put in the wrong number or someone else changed it.

I didn't change that, that's how it was set when I got it.

Re: /save - Robin - 15-09-2008

DarkC Wrote:
Dugor Wrote:That 60000 would be once a minute, not ten minutes.

I don't know if i originally put in the wrong number or someone else changed it.

I didn't change that, that's how it was set when I got it.

He meant another Mirage programmer.

Re: /save - Robin - 15-09-2008

I think GIAKEN told me how he used to do that.

Hell, you don't even need /save. Just have the other person log out then crash, as it saves on log out.

Re: /save - DarkC - 15-09-2008

Then what would be the safest thing to do about saves? Have the server save every 1second or even faster? Though, I can't help but think that'll help lag up the game badly.

Re: /save - Robin - 16-09-2008

Tbh, the biggest threat is user-generated crashes.

Just use CodeSMART to set up some error handling code (Make sure you're able to turn it on/off via a variable, otherwise your debugging days are over) and steal all GIAKEN's shit from Asphodel.

I couldn't do most of the popular hacks on that, except use the client-side map report to warp between maps. Which he fixed.