Menssagem Visual

    Compartilhe
    avatar
    Thales12
    Administrador
    Administrador

    Mensagens : 140
    Level : 8
    Data de inscrição : 01/11/2011
    Idade : 23
    Localização : Rio de Janeiro

    default Menssagem Visual

    Mensagem por Thales12 em Sex Fev 17, 2012 4:34 pm

    Um simples,e não testado sistema para fazer com que sua mensagem apareça na picScreen

    Crie um novo timer na frmMain que vamos chamar de Tmrmsg
    deixe ele no "Enabled = False" e em interval coloque "2000"

    em seguida clique duas vezes nele a adicione...

    Código:
    Private Sub Tmrmsg_Timer()
    Tmrmsg.Enabled = False
    End Sub

    Em modText,procure por::


    Código:
        ' Draw name
        Call DrawText(TexthDC, TextX, TextY, GetPlayerName(Index), color)

    E acima adicione:

    Código:
        If frmMain.Tmrmsg.Enabled = True Then
        Call DrawText(TexthDC, TextX, TextY - 15, GetPlayerSpeech(Index), QBColor(White))
        End If

    No modGeneral,procure:

    Código:
    Public Sub MenuState(ByVal State As Long)

    e procure:

    Código:
    Case MENU_STATE_ADDCHAR
                frmMenu.Visible = False
                frmMenu.picCredits.Visible = False
                frmMenu.picLogin.Visible = False
                frmMenu.picNewChar.Visible = False
                frmMenu.picRegister.Visible = False

    Adicione depois:

    Código:
    frmMain.Tmrmsg.Enabled = True
    Call PutVar(App.Path & "\data files\fala.ini", "" & frmMenu.txtCName & "", "msg", "")

    No modHandleData procure por:


    Código:
    Private Sub HandleSayMsg(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal extravar As Long)

    Na própria sub procure:


    Código:
    frmMain.txtChat.SelStart = Len(frmMainGame.txtChat.text)
        frmMain.txtChat.SelColor = colour
        frmMain.txtChat.SelText = vbNewLine & Header & Name & ": "
        frmMain.txtChat.SelColor = saycolour
        frmMain.txtChat.SelText = message
        frmMain.txtChat.SelStart = Len(frmMainGame.txtChat.text) - 1

    E depois adicione:


    Código:
    frmMain.Tmrmsg.Enabled = True
        Call PutVar(App.Path & "\data files\fala.ini", "" & Name & "", "msg", "" & message & "")

    Agora vá em modDatabase e adicione isso: (em qualquer lugar)


    Código:
    Function GetPlayerSpeech(ByVal Index As Long) As String

        If Index > MAX_PLAYERS Then Exit Function
        GetPlayerSpeech = GetVar(App.Path & "\data files\fala.ini", "" & GetPlayerName(Index) & "", "msg")
    End Function

    bom proveito a todos...

    Se encontrou bugs,poste aqui...

      Data/hora atual: Sab Ago 18, 2018 3:19 am