Transformação por Spell

    Compartilhe

    jadiel848
    Membro
    Membro

    Mensagens : 1
    Credibilidade : 0

    Transformação por Spell

    Mensagem por jadiel848 em Seg Nov 21, 2011 2:04 pm

    Client~Side

    Na frmEdiotr_Spell na cmbTyppe adicione mais um item a list chamado:
    <blockquote class="bbc_standard_quote">
    Trans
    </blockquote>Agora crie uma frame com as seguintes configurações:
    <blockquote class="bbc_standard_quote">
    Name: fraTrans
    Caption: Trans
    Visible: False
    </blockquote>

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

    Label
    <blockquote class="bbc_standard_quote">
    Name: lblTrans
    Caption: Sprite da Transformação: None

    ScrollBox

    Name: scrlTrans
    </blockquote>

    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 = "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 fazer o sistema)

    Ajudei? +1 cred!

    henryry
    Membro
    Membro

    Mensagens : 3
    Credibilidade : 0

    Re: Transformação por Spell

    Mensagem por henryry em Seg Fev 27, 2012 7:07 am

    nao intendi muito nao mais se puder fazer um video eu agradeço

      Data/hora atual: Dom Dez 10, 2017 7:20 pm