At the bottom of Sub Gameloop client side, you will see this:
Code:
frmMirage.Visible = False
frmSendGetData.Visible = True
Call SetStatus("Destroying game data...")
' Shutdown the game
Call GameDestroy
' Report disconnection if server disconnects
If IsConnected = False Then
Call MsgBox("Thank you for playing " & GAME_NAME & "!", vbOKOnly, GAME_NAME)
End If
End Sub
The:
Code:
' Shutdown the game
Call GameDestroy
Should be below:
Code:
' Report disconnection if server disconnects
If IsConnected = False Then
Call MsgBox("Thank you for playing " & GAME_NAME & "!", vbOKOnly, GAME_NAME)
End If
Like this:
Code:
frmMirage.Visible = False
frmSendGetData.Visible = True
Call SetStatus("Destroying game data...")
' Report disconnection if server disconnects
If IsConnected = False Then
Call MsgBox("Thank you for playing " & GAME_NAME & "!", vbOKOnly, GAME_NAME)
End If
' Shutdown the game
Call GameDestroy
End Sub