A little help at vb6

[Warden]

Hello,well i wanted to learn some scripting so umh i added the lines so if you get leveled up it will make a animation for sec so everybody could see,but when i compile it,it says Variable not defined,so how can i define?

> …...........
>
>     If level_count > 0 Then
>         If level_count = 1 Then
>             'singular
> ERROR HERE            x = GetPlayerX(index)
> ERROR HERE          y = GetPlayerY(index)
>             GlobalMsg GetPlayerName(index) & " has gained " & level_count & " level!", Brown
>             Call SendAnimation(GetPlayerMap(index), 62, x, y)
>            
>         Else
>             'plural
>             GlobalMsg GetPlayerName(index) & " has gained " & level_count & " levels!", Brown
>             Call SendAnimation(GetPlayerMap(index), 62, x, y)
>         End If
>         SendEXP index
>         SendPlayerData index
>     End If
> End Sub

[GKO]

soo up at the top of the sub add this

GetPlayerX as string
GetPlayerY as string

Or it might be this not sure

PlayerX as string
PlayerY as string

[MrKris]

Its not scripting, its coding. Scripting is in a notepad :P

[Ruins of Hell]

@Smore:

> Its not scripting, its coding. Scripting is in a notepad :P

@GKO:

> soo up at the top of the sub add this
>
> GetPlayerX as string
> GetPlayerY as string
>
> Or it might be this not sure
>
> PlayerX as string
> PlayerY as string

No.

```
Sub foobar ()
Dim x as Integer
Dim y as Integer
' code here
End Sub
```

[GKO]

yes thats it, i thought that looked funny. ive been working with php for the past couple weeks soo im getting a little mixed up

Edit:
and FYI you might wanna lock this topic or we might get some flaming on our hands.

[Warden]

i got the error off now thanks,but is the line :

> Call SendAnimation(GetPlayerMap(index), 62, x, y)

written right?it should do anim nr 62 if i get level

[Ruins of Hell]

Try:
```
Dim x As Long
Dim y As Long

```
Instead.

[Warden]

> If level_count > 0 Then
>         If level_count = 1 Then
>             'singular
>             Dim x As Long
>             Dim y As Long
>             x = GetPlayerX(index)
>             y = GetPlayerY(index)
>        
>             GlobalMsg GetPlayerName(index) & " has gained " & level_count & " level!", Brown
>             Call SendAnimation(GetPlayerMap(index), 62, x, y)
>            
>         Else
>             'plural
>             GlobalMsg GetPlayerName(index) & " has gained " & level_count & " levels!", Brown
>             Call SendAnimation(GetPlayerMap(index), 62, x, y)
>         End If
>         SendEXP index
>         SendPlayerData index
>     End If
> End Sub

like that?if thats right it aint working

[evilbunnie]

@Warden:

> like that?if thats right it aint working

Jesus, please be more informative.
'It aint working' isn't going to tell us nothing. What is it doing? Is there an error?

Also;

```
Dim x As Long
Dim y As Long

    ' Set the coordinates
    x = GetPlayerX(index)
    y = GetPlayerY(index)

    If level_count > 0 Then
        If level_count = 1 Then
            'singular
            GlobalMsg GetPlayerName(index) & " has gained " & level_count & " level!", Brown
            Call SendAnimation(GetPlayerMap(index), 62, x, y)

        Else
            'plural
            GlobalMsg GetPlayerName(index) & " has gained " & level_count & " levels!", Brown
            Call SendAnimation(GetPlayerMap(index), 62, x, y)
        End If
        SendEXP index
        SendPlayerData index
    End If
End Sub

```

[Warden]

well it wont give an error but in-game if i get level up it wont show the animation.

[GKO]

did you define what animation you want it to send, computers arent physic you know.

[Warden]

ummh animation number 62 from ingame … :O

[Rithy58]

Did you make the animation?

Animation Number 62 is the actual animation. Not a Animation62.bmp and stuff.
You have to make a new animation number 62 in the game.

Sincerely,
Rithy

[Warden]

shit lol,it works now,i had the animation thingy before but it must been deleted,thanks for reminding me :P

[shengbeng]

@Smore:

> Its not scripting, its coding. Scripting is in a notepad :P

Really?

[Rithy58]

@shengbeng:

> Really?

Please tell me you were being sarcastic.

Sincerely,
Rithy