[EO] Transformation spell

[iHero]

**Client~Side**

In frmEditor_Spell cmbTyppe add to the end of the list

> Trans

Now create a frame with the following settings:

> Name: fraTrans
> Caption: Transformation
> Visible: False

And inside a scrollbox and create a label with the settings:

> Label
>
> Name: lblTrans
> Caption: Sprite Transformation: None
>
> ScrollBox
>
> Name: scrlTrans

And within the scrlTrans add:

```
    ' 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
```
In 2 clicks in cmbType and add this inside:

```
    If cmbType.ListIndex = SPELL_TYPE_TRANFORMATION Then
        scrlRange.Value = 0
        chkAOE.Value = 1
        fraTrans.Visible = True
    End If
```
Look for:

```
        .scrlRange.Value = Spell(EditorIndex).Range
```
Add bellow:

```
        .scrlTrans.Value = Spell(EditorIndex).Trans
```
At the end of Private Type End Type SpellRec before add:

```
    Trans As Long
```
Look for:

```
Public Const SPELL_TYPE_WARP As Byte = 4
```
Add below:

```
Public Const SPELL_TYPE_TRANFORMATION As Byte = 5
```
**Serve~Side**

At the end of Private Type End Type SpellRec before add:

```
    Trans As Long
```
Look for:

```
Public Const SPELL_TYPE_WARP As Byte = 4
```
Add below:

```
Public Const SPELL_TYPE_TRANFORMATION As Byte = 5
```
Look for:

```
    ' find out what kind of spell it is! self cast, target or AOE
```
Add up:

```
    ' Transformation
    With Spell(SpellNum)
        If .Type = SPELL_TYPE_TRANFORMATION 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
```
Credits:

iHero

[erkro1]

Cool lettertype, but why have you made everything centered?

[iHero]

It is customary and also I like

[erkro1]

Its way better now. ;)

Still, I think this is useless without a timer, but thats just my opinion.

[iHero]

Hm, yes, but not everything needs a timer boy

[SharicX]

You can turn back to normal, right?

[DMF]

ran into dis topic and agrees dis should be answered. can you return to normal?

[Matt]

You can return to normal through anything that changes sprites. The spell will not return you to your original sprite after time.

[tslusny]

This spell is totally uselless without buffs, or atleast timer what will change your sprite back after pre-set duration of spell.

[hisherwin]

There is one tutorial that is same as this topic , But it has a buff..