Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 [Tutorial]Transformando por SPELL em 13/2/2012, 18:07

SkyAway

avatar
Membro V
Membro V
[center]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 : SkyAway , Por Postar Aqui pra vocês





GOSTOU DA + 1 CRED Só CLICAR NO + ALI DO LADO >>>>>



É Meu Fan ? Me Odeia ? Me Ama ? Então usa isso !!!
[Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário

GustavoNunes

avatar
Ajudante
Ajudante
Eu vou por issu, pois é bem melhor que Imagen da mto trabalho e as vezes Buga



"Escute... Neste mundo, sempre que houver uma luz, haverá também sombras. Enquanto o conceito de vencedores existir, também deve haver perdedores. O desejo egoísta de querer manter a paz provoca guerras e o ódio nasce para proteger o amor."
Meu Fan? Use:
 [Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário

iraniel

avatar
Membro
Membro
Olha... não deu certo eu criei o frame coloquei a scroll e a label dentro dela, mas não aparece na hora de editar à skill, se possível me diga á solução do problema e como é que edita a trans para usa-la. por favor!.

Ver perfil do usuário

BrunoFox

avatar
Administrador
Administrador
Acho melhor criar um novo tópico com a dúvida por causa que o cara que postou o tutorial nem entra mais no fórum.



[Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário http://templorpgmakerbr.forumeiros.com

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum