Popup actions window not working.

[cheatking]

I'm trying to make a window popup with a list of actions. But I can't get t to work. Can anyone give me tips?

Server Sided
```
Public Sub Packet_Search(ByVal Index As Long, ByVal X As Long, ByVal Y As Long, [glow]ByVal Name As String)[/glow]

    Dim I As Long
  Dim PlayerIndex As Long

  PlayerIndex = FindPlayer(Name)

    If X < 0 Or X > MAX_MAPX Then
        Exit Sub
    End If

    If Y < 0 Or Y > MAX_MAPY Then
        Exit Sub
    End If

    ' Check for a player

    For I = 1 To MAX_PLAYERS
        If IsPlaying(I) Then
            If GetPlayerMap(Index) = GetPlayerMap(I) Then
                If GetPlayerX(I) = X Then
                    If GetPlayerY(I) = Y Then

                        ' Change the target.
                        Player(Index).Target = I
                        Player(Index).TargetType = TARGET_TYPE_PLAYER

                        Call PlayerMsg(Index, "Your target is now " & GetPlayerName(I) & ".", YELLOW)

                        Call SendDataTo(Index, "PACTIONS" & SEP_CHAR & PlayerIndex & END_CHAR)
                        Call SendDataTo(PlayerIndex, "PACTIONS" & SEP_CHAR & Index & END_CHAR)

                        Exit Sub
                    End If
                End If
            End If

        End If
    Next I
[Trimed]
End Sub
```
Client
```
[Trimmed]
    ' :::::::::::::::::::::::::
    ' :: Command          ::
    ' :::::::::::::::::::::::::
    If casestring = "pactions" Then
        frmCommand.Test.Caption = "Player: " & Trim$(Player(Val(parse(1))).Name)

        frmCommand.Visible = True
        Exit Sub
    End If
[Trimmed]

```

[Tyr]

i'm also working on such a project, i'll check the script later on…

OFF TOPIC: u shouldn't use the```
when you want to make it glow n stuff ^^
```