Suporte ao desenvolvimento de jogos!


    Transformação por Spell

    Compartilhe
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

    Transformação por Spell

    Mensagem por thales12 em Qua Jan 25, 2012 11:38 am

    Client~Side

    Na frmEdiotr_Spell na cmbTyppe adicione mais um item a list chamado:

    Trans


    Agora crie uma frame com as seguintes configurações:

    Name: fraTrans
    Caption: Trans
    Visible: False

    E dentro dela crie um ScrollBox e uma label com as configurações:

    Label

    Name: lblTrans
    Caption: Sprite da Transformação: None
    ScrollBox

    Name: scrlTrans
    E dentro do scrlTrans adicione:

    Código:
    ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler
       
        lblTrans.Caption = "Sprite da Transformação: " & scrlTrans.Value
        Spell(EditorIndex).trans = scrlTrans.Value
       
        ' Error handler
        Exit Sub
    errorhandler:
        HandleError "scrlTrans_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext
        Err.Clear
        Exit Sub

    De 2 cliques na cmbType e adicione isso dentro dela:

    Código:
    If cmbType.ListIndex = SPELL_TYPE_TRANS Then
            scrlRange.Value = 0
            chkAOE.Value = 1
            fraTrans.Visible = True
        End If

    Procure por:

    Código:
    .scrlRange.Value = Spell(EditorIndex).Range

    E abaixo adicione:

    Código:
    .scrlTrans.Value = Spell(EditorIndex).Trans

    No final da Private Type SpellRec antes do End Type adicione:

    Código:
    Trans As Long

    Procure por:

    Código:
    Public Const SPELL_TYPE_WARP As Byte = 4


    E abaixo adicione:

    Código:
    Public Const SPELL_TYPE_TRANS As Byte = 5

    Serve~Side

    No final da Private Type SpellRec antes do End Type adicione:

    Código:
    Trans As Long

    Procure por:

    Código:
    Public Const SPELL_TYPE_WARP As Byte = 4

    E abaixo adicione:

    Código:
    Public Const SPELL_TYPE_TRANS As Byte = 5


    Procure por:

    Código:
        ' find out what kind of spell it is! self cast, target or AOE


    E acima adicione:


    Código:
    ' Transformação
        With Spell(SpellNum)
            If .Type = SPELL_TYPE_TRANS Then
                Call SetPlayerSprite(Index, Spell(Index).Trans)
                Call SetPlayerStat(Index, Stats.Strength, GetPlayerRawStat(Index, Stats.Strength) * 2)
                Call SetPlayerStat(Index, Stats.Endurance, GetPlayerRawStat(Index, Stats.Endurance) * 2)
                Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index))
            End If
        End With


    Creditos:

    Ricardo por criar o sistema e tutorial
    Thales12 por postar aqui


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:

    avatar
    Nanzin
    Membro de Honra
    Membro de Honra

    Mensagens : 1559
    Créditos : 252

    Re: Transformação por Spell

    Mensagem por Nanzin em Qua Jan 25, 2012 1:00 pm

    cara se nao me engano o Ricardo já postou aqui :S


    _________________


    Para Aqueles que gostam de Min e de meu Trabalho;
    Upem Meu Pet nao custa nda!!


    Pet:
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

    Re: Transformação por Spell

    Mensagem por thales12 em Qui Jan 26, 2012 12:01 pm

    @Nanzin escreveu:cara se nao me engano o Ricardo já postou aqui :S

    Sim, mais ele apago !


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:


    CrazyTeam
    Novato
    Novato

    Mensagens : 4
    Créditos : 0

    Re: Transformação por Spell

    Mensagem por CrazyTeam em Dom Maio 18, 2014 2:54 pm

    Como funciona o sistema? no ultimo código, se o jogador estiver com 200 str e usar a magia ele dobra o str?
    avatar
    Lhaisfarr
    Novato
    Novato

    Mensagens : 4
    Créditos : 0

    Re: Transformação por Spell

    Mensagem por Lhaisfarr em Sex Jun 20, 2014 7:49 am

    Não teria como postar umas prints? Da transformação.
    avatar
    Spooky
    Membro Ativo
    Membro Ativo

    Mensagens : 262
    Créditos : 22

    Re: Transformação por Spell

    Mensagem por Spooky em Dom Nov 02, 2014 4:41 pm

    pô ... alguém poderia me ajudar ? não sei se estou revivendo o tópico . se sim desculpe ...

    este tutorial já vem com tipo um tempo para a transformação sumir ? 
    se não como eu faço para coloca-lo ? 

    Ty  adiciona no skype: shaddow8d

    Edit:
    e tipo, quando eu uso várias vezes ele da Overflow ...

    Edit²:  descobri porquê da overflow, mais agora quando vi cada vez que você usa a skill multiplica por 2 tipo

    se eu tiver 10 str 10 end e usar fica 20
    se eu usar de novo fica 40
    e assim por diante ...
    avatar
    XWlash
    Semi-Experiente
    Semi-Experiente

    Mensagens : 88
    Créditos : 22

    Re: Transformação por Spell

    Mensagem por XWlash em Seg Dez 29, 2014 4:54 pm

    Hum Bartolomeo você reviveu tópico sim, e anteriormente esse post já foi revivido pelo CrazyTeam...


    _________________

    Somos todos histórias no final.

    Conteúdo patrocinado

    Re: Transformação por Spell

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Ter Fev 20, 2018 2:21 pm