Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

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

Transformação por Spell

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

1Tutorial Transformação por Spell em Sab 05 Nov 2011, 21:22

ViniciusNeon


Membro
Membro
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 = "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)
ViniciusNeon(Por postar aqui na UniversoGames)

Ajudei? +1 cred!
[Você precisa estar registrado e conectado para ver esta imagem.]

2Tutorial Re: Transformação por Spell em Sab 05 Nov 2011, 21:24

RenanR


Membro
Membro
Opa, ótimo sistema bem legal.. valeu por postar!!

http://mmomakerbr.ativoforum.com

3Tutorial Re: Transformação por Spell em Dom 06 Nov 2011, 08:20

Ricardo


Membro
Membro
Cade os meus agradecimentos... ele nao fez bosta nenhum que nao faz isso e so copiar e colocar os creditos dele, que nem devia por ele so postou

4Tutorial Re: Transformação por Spell em Dom 06 Nov 2011, 12:55

GameOver


Administrador
Administrador
cara ali em cima esta os creditos bom se fosse meu caso eu falava assim ou nem presisa colocar o meu nome nos creditos vergonha tutorial mais facil que rancar doce de criança

5Tutorial Re: Transformação por Spell em Dom 06 Nov 2011, 13:05

Ricardo


Membro
Membro
Sim, eu sei to nem ai eu fiz porque eu quero se eu sou inciiante problema meu, cara eu fiz um tuto, que nem era pra fazer, fiz porque me pediram, ai vem um e posta pros outros cara fica aagradecendo ele e não a mim, pode ser spell linnear, auto tile, dx8, ou um qualquer outro sistema simples ou dificiu, quero que ao minimo me agradeça nao quero que eles me deem credito so quero que falem: "Ae vlw Ricardo, fiquei muito grato com seu sistema", sera que e dificiu? Não ne

6Tutorial Re: Transformação por Spell em Seg 07 Nov 2011, 08:42

ViniciusNeon


Membro
Membro
Ricardo, eu puis nos créditos que você que fez o sistema e eu só fiz postar.. me agradeceram porque quiseram.. xD

7Tutorial Re: Transformação por Spell em Seg 07 Nov 2011, 09:02

Susano'o


Membro de Honra
Membro de Honra
Ricardo. Nivel>[Master Flamer]
Cara é como ele disse, os créditos tão la, so agradeceram a ele por POSTAR AQUI presta atenção antes de ficar defecando pelos dedos

8Tutorial Re: Transformação por Spell em Seg 07 Nov 2011, 18:21

ViniciusNeon


Membro
Membro
Galera vai dar um erro nesta linha:

If cmbType.ListIndex = "Trans" Then

e vai aparescer Run Time error '13'
Type mismatch

Vcs trocam o "Trans" por
SPELL_TYPE_TRANS ou por 5

9Tutorial Re: Transformação por Spell em Seg 07 Nov 2011, 19:46

Kintaro


Membro de Honra
Membro de Honra
só trocar o "if cmbType.ListIndex = "Trans" Then" para If cmbType.Text = "Trans" Then

10Tutorial Re: Transformação por Spell em Ter 08 Nov 2011, 10:10

ViniciusNeon


Membro
Membro
Da no mesmo, rs.

11Tutorial Re: Transformação por Spell em Sex 11 Nov 2011, 09:03

-Skadi!


Membro
Membro
Este sistema só multiplica os pontos 2x. Não gostei muito.
Talvez em breve eu faça um multiplicando quantas vezes quiser. Wink

12Tutorial Re: Transformação por Spell em Seg 14 Nov 2011, 17:18

Ricardo


Membro
Membro
oLKHA SUSANO QUETINHO AI, E ESSES NOBOS FICAM FALANDO AS COISASQUE NAO SABEM, OS CREDITGOS NAO TAVAM! eLE COLOCO AGORA!

13Tutorial Re: Transformação por Spell em Seg 14 Nov 2011, 17:41

Luucas Robeerto


Fundador
Fundador
Por favor vamos parar antes que esta palavra se transforme em briga!!!


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

14Tutorial Re: Transformação por Spell Hoje à(s) 14:16

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