Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

[eo2.0]animation


da_gad_pader
 Share

Recommended Posts

like this?
```
Sub CheckPlayerLevelUp(ByVal index As Long)
    Dim i As Long
    Dim expRollover As Long
    Dim level_count As Long

    level_count = 0

    Do While GetPlayerExp(index) >= GetPlayerNextLevel(index)
        expRollover = GetPlayerExp(index) - GetPlayerNextLevel(index)

        ' can level up?
        If Not SetPlayerLevel(index, GetPlayerLevel(index) + 1) Then
            Exit Sub
        End If

        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + 5)
        Call SetPlayerExp(index, expRollover)
        level_count = level_count + 1
        SendAnimation = 1
```
Link to comment
Share on other sites

@da_gad_pader:

> and what if the player is on different locations?

It plays where he was standing before. If you want them to stand still, make it so they can't move while the animation is playing. A better solution would be to move the animation with the player as he moves.
Link to comment
Share on other sites

Okay, dude. This is Source Editing.
You need to learn VB6 before ACTUALLY source edit.

If you know how a method or function work, you would have figured how to do it already.
You should be able to understand this : Call MethodName(Argument, Argument, …)

Sincerely,
Rithy
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...