Whisper button not working??

[JayT]

hey im making a whisper button in vb for my game i have it all ready but its not workin lol. i have this:
```
Private Sub Command4_Click()
If Len(ptext.Text) > 3 Then
                Call PlayerMsg(ptext.Text, "wtext.text", 5)
                End If
End Sub
```
it says wrong number of arguments or invalid property assignment! any ideas?

ptext.text = the players name

wtext.text = the msg they are sending

[Mr. Bob Firefarter]

I don't think you can have something in front of sub

[JayT]

so u think i gotta put the whole call playermsg sub in?

[Mr. Bob Firefarter]

Is that a whole sub?

[JayT]

nah just the command to call a player msg lol i was tryin to cheat with that simple little snippet of code but i guess i gotta put the whole sub in

[Mr. Bob Firefarter]

Nevermind then.

[JayT]

ok now i got this:```
Private Sub Command4_Click()
Dim Index As Long
If Len(wtext.Text) - Index > 0 Then
                wtext.Text = Mid$(wtext.Text, Index + 1, Len(wtext.Text) - Index)
                ptext.Text = Mid$(ptext.Text, Index + 1, Len(ptext.Text) - Index)
                ' Send the message to the player
                Call PlayerMsg(ptext.Text, wtext.Text)
            Else
                Call AddText("Usage: !playername msghere", AlertColor)
            End If
            MyText = vbNullString
            Exit Sub

End Sub
```
that get the players name from ptext.Text and sends and msg but sends his name aswell it dont send the text from wtext.Text…... can any1 help me with this?

[emblem]

*facedeskfacedeskfacedeskfacedeskfacedesk*

```
Private Sub Command4_Click()
    If Len(wtext.Text) > 0 Then
        Call PlayerMsg(ptext.Text, wtext.Text)
        wtext.Text = vbNullString
    End If
End Sub

```Don't just copy and paste random code from other places in the client, it leads to more bugs.

**Edit:** I'm stupid too, I had exit sub in there.

[JayT]

@Umbra!:

> *facedeskfacedeskfacedeskfacedeskfacedesk*
>
> ```
> Private Sub Command4_Click()
>     If Len(wtext.Text) > 0 Then
>         Call PlayerMsg(ptext.Text, wtext.Text)
>         wtext.Text = vbNullString
>     End If
> End Sub
>
> ```Don't just copy and paste random code from other places in the client, it leads to more bugs.
>
> **Edit:** I'm stupid too, I had exit sub in there.

thanks umbra but u got 1 thing wrong :P lol wtext and ptext needed switching round :P but yer that works!!
Edit: i did the exit sub thing earlier aswell lol

[emblem]

What part is it switched around at?
The Len(wtext.Text)
or the Call PlayerMsg part?

[JayT]

the call msg part :P

[emblem]

Weird.
You said ptest.text is the name, and wtext.text is the message.

The call is Call PlayerMsg(MsgTo, Message)
:/

[JayT]

yer i thort that lol thats y i posted this in the first time cos i had that code u gave me first but it kept send the players name lol so i fiddled with it and messed it up then u came and posted same code apart from the Len bit and it worked but needed switching round lol

[emblem]

Again, weird.
ah well at least it works.