[ALL]Versão Desatualizada

Código:

 If Parse(0) = "itembreak" Then
        ItemDur(Val(Parse(1))).Item = Val(Parse(2))
        ItemDur(Val(Parse(1))).Dur = Val(Parse(3))
        ItemDur(Val(Parse(1))).done = 1
        Exit Sub
    End If

Código:

  If Parse(0) = "newversion" Then
        YesNo = MsgBox("Nova versão do jogo encontrada!" & vbNewLine & _
                "Deseja fazer o download da nova versão?", vbYesNo, "Nova versão " & GAME_NAME)
        If YesNo = vbYes Then
            ShellExecute 0&, vbNullString, Parse(1), vbNullString, vbNullString, SW_SHOWNORMAL
            Call GameDestroy
        Else
            Call GameDestroy
        End If
    End If

Código:

Public ServerIP As String
Public PlayerBuffer As String
Public InGame As Boolean
Public TradePlayer As Long

Código:

Option Explicit

Código:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Código:

Dim z As Long

Código:

Dim YesNo As Long

Código:

Sub NewVersion(ByVal Index As Long, ByVal WebSite As String)
    Dim Packet As String

    Packet = "NEWVERSION" & SEP_CHAR & WebSite & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub

Código:

 If Parse$(3) & "." & Parse$(4) & "." & Parse$(5) & "." & Parse$(6) <> CLIENT_MAJOR & "." & CLIENT_MINOR & "." & CLIENT_REVISION & "." & SEC_CODE Then
                        Call SendDataTo(Index, "sound" & SEP_CHAR & "NovaVersão" & END_CHAR)
                        Call PlainMsg(Index, "Versão desatualizada! Visite " & Trim$(GetVar(App.Path & "\Dados.ini", "CONFIG", "WebSite")), 3)
                        Exit Sub
                    End If

Código:

    If Parse$(3) & "." & Parse$(4) & "." & Parse$(5) & "." & Parse$(6) <> CLIENT_MAJOR & "." & CLIENT_MINOR & "." & CLIENT_REVISION & "." & SEC_CODE Then
                        Call SendDataTo(Index, "sound" & SEP_CHAR & "NovaVersão" & END_CHAR)
                        Call NewVersion(Index, Trim$(GetVar(App.Path & "\Dados.ini", "CONFIG", "WebSite")))
                        Exit Sub
                    End If

+1 crédit ^^

Flips03 escreveu:Gente eu sei que o topico e meio antigo, mas eu tava lendo e fquei com uma duvida...
Como eu faço para ativar essa pergunta da nova versão?
Se for ativada automaticamente, quais os criterios que ela usa?

Código:

  If Parse(0) = "newversion" Then
        YesNo = MsgBox("Nova versão do jogo encontrada!" & vbNewLine & _
                "Deseja fazer o download da nova versão?", vbYesNo, "Nova versão " & GAME_NAME)
        If YesNo = vbYes Then
            ShellExecute 0&, vbNullString, Parse(1), vbNullString, vbNullString, SW_SHOWNORMAL
            Call GameDestroy
        Else
            Call GameDestroy
        End If
    End If

Flips03 escreveu:O q eu quis dizer é:
Se eu não colocar esse sistema terá como entrar no jogo mesmo com a versão desatualizada?

willa escreveu:aki no meu n funfo

Código:


' Constante de versões
Public Const CLIENT_MAJOR = 2
Public Const CLIENT_MINOR = 6
Public Const CLIENT_REVISION = 0

Código:

' Version constants
Public Const CLIENT_MAJOR = 2
Public Const CLIENT_MINOR = 6
Public Const CLIENT_REVISION = 0

Cris~ escreveu:Isso Funciona Pq eu Jah Testei e para aparecer isso vc tenque trocar as versões do cliente e do server
a do servidor

Código:


' Constante de versões
Public Const CLIENT_MAJOR = 2
Public Const CLIENT_MINOR = 6
Public Const CLIENT_REVISION = 0

A Do Cliente

Código:

' Version constants
Public Const CLIENT_MAJOR = 2
Public Const CLIENT_MINOR = 6
Public Const CLIENT_REVISION = 0