Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Transformação por Spell
5 participantes
Aldeia RPG :: Baú
Página 1 de 1
Transformação por Spell
Client~Side
Na frmEdiotr_Spell na cmbTyppe adicione mais um item a list chamado:
E dentro dela crie um ScrollBox e uma label com as configurações:
Label
E dentro do scrlTrans adicione:
De 2 cliques na cmbType e adicione isso dentro dela:
Procure por:
E abaixo adicione:
No final da Private Type SpellRec antes do End Type adicione:
Procure por:
E abaixo adicione:
Serve~Side
No final da Private Type SpellRec antes do End Type adicione:
Procure por:
E abaixo adicione:
Procure por:
E acima adicione:
Creditos:
Ricardo(Por fazer o sistema)
Na frmEdiotr_Spell na cmbTyppe adicione mais um item a list chamado:
Agora crie uma frame com as seguintes configurações:Trans
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 fazer o sistema)
Última edição por jadieljr em Ter Nov 15, 2011 12:53 pm, editado 1 vez(es)
jadieljr- Banido
- Mensagens : 38
Créditos : 33
Re: Transformação por Spell
Ae agora tenho como fazer o spell dos Barbaros virarem lobisomen pro meu jogo, tbm +1 cara seus tutos estão otimos e poste mais como esses se puder hein xD
_________________
Re: Transformação por Spell
[quote="jadieljr"]
Client~Side
Na frmEdiotr_Spell na cmbTyppe adicione mais um item a list chamado:
[b]Na frmEdiotr_Spell na cmbTyppe adicione mais um item a list chamado:
Nessa parte eu naum entendi vc poderia explicar melhorTrans
Re: Transformação por Spell
Nas propriedades,em List,adicione o Trans...
_________________
Meu único propósito nesse fórum é responder dúvidas e postar tutoriais não testados feitos por mim...
okabe- Iniciante
- Mensagens : 34
Créditos : 7
jadieljr- Banido
- Mensagens : 38
Créditos : 33
Re: Transformação por Spell
E já fiz isso ontem de tarde eu vi como concerta na MMORPGBR mais vlw +1 Cred
@Edit
Tira as aspas pois dá erro com elas
@Edit
Tira as aspas pois dá erro com elas
Re: Transformação por Spell
Seu tutorial bosta, isso não tem nada seu, eu criei, eu fiz sozinho, olha ja cansei vocês posta meus tutos e ao minimo ninguem me agradeçe, noobs, postam o tutos dos outros sem perguntar pra ele primeiro, olhase for possivel exclua todos os tutos que eles postaram que sao meu, so os que eles postaram o que eu postei deixa la, obrigado
Ricardo- Ocasional
- Mensagens : 162
Créditos : 71
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
Tópicos semelhantes
» Transformação por Spell-aumentar e almentar velocidade na spell
» Transformação por Spell
» Transformação por Spell
» Erro Transformação por Spell
» ajuda com transformação por spell
» Transformação por Spell
» Transformação por Spell
» Erro Transformação por Spell
» ajuda com transformação por spell
Aldeia RPG :: Baú
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos