Spell de Copiar a Sprite do Player

por jadieljr Sáb Nov 12, 2011 11:46 pm

Client~Side

Na frmEditor_Spel crie um chekbox com as configurações:

Name: chkCSprite
Caption: Copiar Sprite

E adicione isso dentro dele:

Código:: If chkCSprite.Value = 0 Then Spell(EditorIndex).CSprite = False Else Spell(EditorIndex).CSprite = True End If

Em Type Spellrec adicione no final:

Procure por:

Código:: If Spell(EditorIndex).IsAoE Then .chkAOE.Value = 1 Else .chkAOE.Value = 0 End If

E abaixo adicione:

Código:: If Spell(EditorIndex).CSprite Then .chkCSprite.Value = 1 Else .chkCSprite.Value = 0 End If

Serve~side

Em Type Spellrec adicione no final:

Procure por:

Código:: Public Sub CastSpell(ByVal Index As Long, ByVal spellslot As Long, ByVal target As Long, ByVal targetType As Byte)

Abaixo de:

Adicione:

Procure por:

Acima adicione:

Código:: ' Copiar Sprite If Spell(spellnum).CSprite = True Then If targetType = TARGET_TYPE_PLAYER Then Call SetPlayerSprite(Index, Player(TempPlayer(Index).target).Sprite) Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index)) Exit Sub ElseIf targetType = TARGET_TYPE_NPC Then Call SetPlayerSprite(Index, NPC(TempPlayer(Index).target).Sprite) Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index)) Exit Sub End If End If

Creditos:

Ricardo