Transformaçao por tempo (100%)

    Compartilhe
    avatar
    FuckStyle
    Membro Ativo

    Mensagens : 49
    Level : 3
    Data de inscrição : 02/11/2011

    default Transformaçao por tempo (100%)

    Mensagem por FuckStyle em Qui Nov 03, 2011 1:31 am

    Transformaçao (100%)

    Antes de tudo você Deve ter um Sistema de Transformação por Foto 100% Pelo VB6.

    Vamos ao que interessa...

    Na frmMirage crie 3 Timers Com as Seguintes propriedades :

    Name = tmrTrans1
    Enabled = False
    Interval = 1000

    Name = tmrTrans2
    Enabled = False
    Interval = 1000

    Name = tmrTrans3
    Enabled = False
    Interval = 1000

    Certo, agora Dentro do tmrTrans1 Adicione :

    Código:
    frmMirage.lblTrans.Caption = frmMirage.lblTrans.Caption - 1

    If frmMirage.lblTrans.Caption = 0 Then
    Call SendTransNormal
    frmMirage.tmrTrans1.Enabled = False
    frmMirage.lblTrans.Caption = "xxxx"
    End If

    Dentro do tmrTrans2 Adicione :

    Código:
    frmMirage.lblTrans.Caption = frmMirage.lblTrans.Caption - 1

    If frmMirage.lblTrans.Caption = 0 Then
    Call SendTransNormal
    frmMirage.tmrTrans2.Enabled = False
    frmMirage.lblTrans.Caption = "xxxx"
    End If

    E dentro do tmrTrans3 Adicione :

    Código:
    frmMirage.lblTrans.Caption = frmMirage.lblTrans.Caption - 1

    If frmMirage.lblTrans.Caption = 0 Then
    Call SendTransNormal
    frmMirage.tmrTrans3.Enabled = False
    frmMirage.lblTrans.Caption = "xxxx"
    End If

    Agora crie uma Label com as Seguintes propriedades :

    Name = lblTrans
    Caption = xxxx

    Certo, Agora na frmMirage dê 2 cliques na sua Label para sair do jogo e adicione em cima do Call GameDestroy ou Unload Me, isso aqui :

    Código:
    Call SendTransNormal
        frmMirage.lblTrans.Caption = "xxxx"

    Certo, Agora vamos ao ModClienteTCP, Procure por :

    Código:
    If Parse(0) = "info" Then
            frmLogin.lblOnOff.Caption = "Online"
            frmLogin.lblPlayers.Caption = Parse(1)
            frmLogin.lblPlayers.Visible = True
            frmLogin.tmrInfo.Enabled = False
            Exit Sub
        End If

    E abaixo Adicione :

    Código:
    If Parse(0) = "transt1" Then
        If frmMirage.lblTrans.Caption <> "xxxx" Then
      Exit Sub
      Else
      frmMirage.tmrTrans1.Enabled = True
    frmMirage.tmrTrans2.Enabled = False
    frmMirage.tmrTrans3.Enabled = False
    frmMirage.lblTrans.Caption = 60
    End If
    Exit Sub
    End If

    If Parse(0) = "transt2" Then
        If frmMirage.lblTrans.Caption <> "xxxx" Then
      Exit Sub
      Else
      frmMirage.tmrTrans1.Enabled = True
    frmMirage.tmrTrans2.Enabled = False
    frmMirage.tmrTrans3.Enabled = False
    frmMirage.lblTrans.Caption = 600
    End If
    Exit Sub
    End If

    If Parse(0) = "transt3" Then
        If frmMirage.lblTrans.Caption <> "xxxx" Then
      Exit Sub
      Else
      frmMirage.tmrTrans1.Enabled = True
    frmMirage.tmrTrans2.Enabled = False
    frmMirage.tmrTrans3.Enabled = False
    frmMirage.lblTrans.Caption = 1200
    End If
    Exit Sub
    End If

    Agora va no Server, em ModServerTCP e Procure As Cases das Transformações.
    E Coloque isso em cada Classe geralmente abaixo da Mensagem de que Você se Transformou! :

    Código:
    Call SendDataTo(Index, "transtNUMERO" & SEP_CHAR & END_CHAR)

    Lembrando que ali no código ta NUMERO, Ou seja, você vai ter q trocar dependendo da Transformação.

    Se for na primeira Transformação, vc coloca transt1
    Se for na segunda, Transt2
    Se for na terceira, Transt3
    ...

    Esse tutorial foi feito para Apenas 3 Transformações, Caso queira para mais transformações é só pensar um pouquinho ;D

    Créditos : Guardian,FuckStyle

    Guardian
    Membro

    Mensagens : 1
    Level : 0
    Data de inscrição : 02/11/2011

    default Re: Transformaçao por tempo (100%)

    Mensagem por Guardian em Qui Nov 03, 2011 4:41 pm

    Segundo tutorial meu que vejo por aqui =D
    Você podia postar a transformação por Foto 100% para deixar mais organizado o tópico Razz
    Boa Sorte ai com o novo cargo no fórum...

      Data/hora atual: Dom Nov 18, 2018 11:15 pm