How to make …..evolution

[Zopto]

example player got lvl 10 and he need to  go on  some place and there to evolue(pokemon) that somting???how to set evolution???i using EO

[ReubenNick]

Erm.. I am pretty sure that requires coding.

[GrimReaperReborn]

You'll have to code it into the source. Find the level up sub, then change the player sprite after the part that adds the level.

[Zopto]

tyyyy

[Zopto]

Public Sub SendRequestLevelUp()
Dim Buffer As clsBuffer

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    Set Buffer = New clsBuffer
    Buffer.WriteLong CRequestLevelUp
    SendData Buffer.ToArray()
    Set Buffer = Nothing

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "SendRequestLevelUp", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub
here???

[erkro1]

@Zopto:

> Public Sub SendRequestLevelUp()
> Dim Buffer As clsBuffer
>
>     ' If debug mode, handle error then exit out
>     If Options.Debug = 1 Then On Error GoTo errorhandler
>    
>     Set Buffer = New clsBuffer
>     Buffer.WriteLong CRequestLevelUp
>     SendData Buffer.ToArray()
>     Set Buffer = Nothing
>    
>     ' Error handler
>     Exit Sub
> errorhandler:
>     HandleError "SendRequestLevelUp", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
>     Err.Clear
>     Exit Sub
> End Sub
> here???

No, its server side : HandleRequestLevelUp

[Zopto]

Sub HandleRequestLevelUp(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    SetPlayerExp Index, GetPlayerNextLevel(Index)
    CheckPlayerLevelUp Index
End Sub
ok i found what now??

[erkro1]

```
Setplayersprite (sprite)
```Sprite is the number of the sprite you want to get.

[Zopto]

ok tyy and now how to set if he need to evolue in lvl 15 ???

[Zopto]

and i went to set example to:caracter 1-evolue in sprite 3
                                              caracter 2-evolue in sprite 2
                                              caracter 3 evolue in sprite 1
how that???

[Joyce]

Basically something such as this would work:

```
Select Case Player(Index).Level
    Case 15 ' Level 15
          SetPlayerSprite(Index, SpriteNumHere)

    Case 30 ' Level 30
          SetPlayerSprite(Index, SpriteNumHere)
End Select

```And so on. Note that this is NOT divided by class, and you'd need to do that yourself.

[Sunku]

@Yami:

> Basically something such as this would work:
>
> ```
> Select Case Player(Index).Level
>     Case 15 ' Level 15
>           SetPlayerSprite(Index, SpriteNumHere)
>
>     Case 30 ' Level 30
>           SetPlayerSprite(Index, SpriteNumHere)
> End Select
>
> ```And so on. Note that this is NOT divided by class, and you'd need to do that yourself.

always with the good work yami.

[Benn]

so if I did this it would make things evolve (change sprite) by leveling up? not by standing on a panel while being a certain level or higher?

[erkro1]

@Benn:

> so if I did this it would make things evolve (change sprite) by leveling up? not by standing on a panel while being a certain level or higher?

Yes