Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

I've gone and done something silly with my version checker


Larias
 Share

Recommended Posts

Commenting out the version check makes it work, so I know there is something going on here. Edit: Sorry, this is vanilla EO2.

Here's my login:

```
Public Sub SendLogin(ByVal Name As String, ByVal Password As String)

Dim Buffer As clsBuffer

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

Set Buffer = New clsBuffer

Buffer.WriteLong CLogin

Buffer.WriteString Name

Buffer.WriteString Password

Buffer.WriteLong App.Major

Buffer.WriteLong App.Minor

Buffer.WriteLong App.Revision

SendData Buffer.ToArray()

Set Buffer = Nothing

' Error handler

Exit Sub

errorhandler:

HandleError "SendLogin", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub
```

Here's my server side

```
' Check versions

If Buffer.ReadLong < CLIENT_MAJOR Or Buffer.ReadLong < CLIENT_MINOR Or Buffer.ReadLong < CLIENT_REVISION Then

Call AlertMsg(Index, "Version outdated, please visit " & Options.Website)

Exit Sub

End If
```

I've set their versions to the same in the project -> questserver properties -> make area and it still bugs out. Thanks.
Link to comment
Share on other sites

> No, I believe they both use constants to store the version. Anyway I am glad it is now working.

You was right the first time. ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/tongue.png)

The clients use the application settings, server uses constants.
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...