Script error

[turbocookie]

this is what pops up.

Compile Error:

Variable not defined.

the script..
```
If Casestring = "friendstatus" Then
      Dim Q As Integer
        i = Val(Parse(1))
        Q = Int(Parse(2))
      If i = 0 Then
            frmMirage.lblFriend(Q).ForeColor = &HFF&
      ElseIf i <> 0 Then
            frmMirage.lblFriend(Q).ForeColor = &H8080&
      End If
      Exit Sub
    End If
```

[Zop]

Are you using EE 2.7 or ES?
If you're using ES then change frmMirage to frmStable

[turbocookie]

yeah im using stable :)
thanks a heap

[turbocookie]

ok previos error is fixed. now the new one is this.

when i click on the button to open up friends.

i get this error

Compile Error:

Variable not defined.

```
Private Sub cmdFriendList_Click()
    picFriendList.Visible = True
'Finds out if players are online or not
    Call SendData("friendonlineoffline" & SEP_CHAR & lblFriend(Index).Caption & SEP_CHAR & Index & END_CHAR)

End Sub
```

[Zop]

Try replacing that with this - This also makes it so that when you click on your friends list button again it will hide it.
If that doesn't work it's possible you have incorrectly named one of your labels or such. so double check them

```
Private Sub cmdFriendList_Click()
Dim index As Integer
'this will check if it's visible then it'll make it invisible and vice-versa
    If picFriendList.Visible = False Then
    picFriendList.Visible = True
    Else
    picFriendList.Visible = False
'Finds Players Online Status
    Call SendData("friendonlineoffline" & SEP_CHAR & lblFriend(index).Caption & SEP_CHAR & index & END_CHAR)
End If
End Sub

```

[turbocookie]

yay sillyface, thanks once again =D

[Zop]

No problem, hope everything else is working fine :)

[turbocookie]

i hoped so aswell. but guess what, theres more! hahaha
when i click add or close the friends again it disconnects from server and closes game.

[Kimimaru]

That means that there's some error with the packets. You may have to change some **If casestring = "…"** statements to **Case "…"**. Also, this isn't a scripting error; it's a sourcing error. By the way, change the code that SillyFace gave you to this:

```
Private Sub cmdFriendList_Click()
Dim Index As Integer
    picFriendList.Visible = True
'Finds out if players are online or not
For Index = 0 to 9
    Call SendData("friendonlineoffline" & SEP_CHAR & lblFriend(Index).Caption & SEP_CHAR & Index & END_CHAR)
Next Index
End Sub
```

[turbocookie]

changing it give me this

```
Case "mapdata" Then
```
thats the code and its red

[Ruins of Hell]

```
Case "mapdata"

```

[turbocookie]

that gives me error.

Compile error.

Case without select case.

```
Case "mapdata"
```

[Zop]

This is way more complicated than when i used it.. o_o I don't understand why mine didn't work for you or something..
Have you done a lot of edits to your source already?

[turbocookie]

umm nah i just started.
iv like, moved hp bars ect…. but nothing major.
or can you pretty please if you have the time re-write one for me.
im going to bed now so i wont be on for like 7- 15 hours
=] thanks if you can

[Zop]

Yeah ok i made a working one for you, With basic of basics, So you'll have to change the labels and friend lists to be where you want them and make it how u want it to look, but everything else is working, I'll upload it for you.
I put it in the normal client, Not big client.. So you'll have to use that or strip the code into big client.. Because i'm not doing that too :P
I'll edit this post once i've uploaded it.

Edit - Here, this is the one with friends list added in ES. Sorry for mediafire.. Hopfully that will be ok.

http://www.mediafire.com/?mmnmnw1dh2z