Transformação por Spell

por **thales12** 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

por Nanzin Qua Jan 25, 2012 1:00 pm

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

por **thales12** Qui Jan 26, 2012 12:01 pm

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

Sim, mais ele apago !

por CrazyTeam 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?

por Lhaisfarr Sex Jun 20, 2014 7:49 am

Não teria como postar umas prints? Da transformação.

por Spooky 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 ...