[FIX] Private Message

[Guest]

Hey,

This will fix the private message system in EO2.0.
I post this fix because of a request from Captain Obvious, btw he is soo obvious…
So after this message, the players on your game will be able to pm each other.
The fix is only client side.

This color means wich mod/form you have to be in.
This color means wich function/sub you are going to work with.
**This means just a post script(ps.).**

@Client:

> Client
> modInput HandleKeyPresses
> **Replace the first code with the second one.**
> ```
> ' Player message
>         If Left$(ChatText, 1) = "!" Then
>             Exit Sub
>             ChatText = Mid$(ChatText, 2, Len(ChatText) - 1)
>             Name = vbNullString
>
>             ' Get the desired player from the user text
>             For i = 1 To Len(ChatText)
>
>                 If Mid$(ChatText, i, 1) <> Space(1) Then
>                     Name = Name & Mid$(ChatText, i, 1)
>                 Else
>                     Exit For
>                 End If
>
>             Next
>
>             ChatText = Mid$(ChatText, i, Len(ChatText) - 1)
>
>             ' Make sure they are actually sending something
>             If Len(ChatText) - i > 0 Then
>                 MyText = Mid$(ChatText, i + 1, Len(ChatText) - i)
>                 ' Send the message to the player
>                 Call PlayerMsg(ChatText, Name)
>             Else
>                 Call AddText("Usage: !playername (message)", AlertColor)
>             End If
>
>             MyText = vbNullString
>             frmMain.txtMyChat.text = vbNullString
>             Exit Sub
>         End If
>
> ``````
> ' Player message
>         If Left$(ChatText, 1) = "!" Then
>             ChatText = Mid(MyText, 2, Len(MyText) - 1)
>             Name = ""
>                    
>             ' Get the desired player from the user text
>             For i = 1 To Len(ChatText)
>                 If Mid(ChatText, i, 1) <> " " Then
>                     Name = Name & Mid(ChatText, i, 1)
>                 Else
>                     Exit For
>                 End If
>             Next i
>                    
>             ' Make sure they are actually sending something
>             If Len(ChatText) - i > 0 Then
>                 ChatText = Mid(ChatText, i + 1, Len(ChatText) - i)
>                    
>                 ' Send the message to the player
>                 Call PlayerMsg(ChatText, Name)
>             Else
>                 Call AddText("Usage: !playername msghere", AlertColor)
>             End If
>             MyText = ""
>             frmMain.txtMyChat.text = ""
>             Exit Sub
>         End If
>
> ```
> modClientTCP PlayerMsg
> **Change The first code to the second one.**
> ```
>     Buffer.WriteLong CSayMsg
>
> ``````
>     Buffer.WriteLong CPlayerMsg
>
> ```

EDIT: lol I forgot the PlayerMsg…

[Justn]

"obviously" he didnt look hard cause there was already a fixed posted for it… anyways good job on the chest/signs will add it to the index page when i get back in town... i am too scared to try it on my crappy phone cause it will screw it up

[Guest]

I didn't try the other fix by my self, but captain obvious tried it, and said that it don't work on EO2.0

Btw thnx for adding the signs system…

[Robin]

@boynaar:

> but captain obvious tried it, and said that it don't work on EO2.0

That kid could try and open the map editor and claim it didn't work in EO. 9 times out of 10 people are just stupid.

[gregnator]

Justin, the other fix doesnt work, and this works 100% so.

@Robin, You do know that im not that of a noob, so its a shame you say this while you know i aint a big ass noob.

But if you guys have 2.0 this works the best, so dont be a d!ck to boynaar, his code WORKS 100% in the first try.. the other one doesnt even work in 5 tries. and its for 1.5 the other fix

[Justn]

glad this one works not sure what happened with the other one seemed to work for me.. wasnt trying to be a dick to him just wanted to use ur catch phrase and was thanking him for replacing that dumb signs tutorial i posted and the chest system from kibblez :)

[gregnator]

Dont worry it was more to robin, because he knows that im not a dumb newb and well, i dont know if he tried to test out the other script that *fixes* the ! system, but this one works 100% for eo 2.0 and the otherone makes it all screwed up, and im glad you used it, you may become my sidekick now justin.

[RyokuHasu]

No, he's my sidekick. *smack*

On topic: Nice fix! (even thought it was already fixed, kinda)

@ Justn: don't forget to update your tut index, there are a lot of new things not listed.

[Robin]

@Captain:

> Dont worry it was more to robin, because he knows that im not a dumb newb and well, i dont know if he tried to test out the other script that *fixes* the ! system, but this one works 100% for eo 2.0 and the otherone makes it all screwed up, and im glad you used it, you may become my sidekick now justin.

You're the epitome of a 'dumb newb'.

[Guest]

@R.:

> You're the epitome of a 'dumb newb'.

I don't want to start a discussion with you, so please don't reply on this.
Robin, you are the epitome of a retarded asshole.
I don't know how many times I have to say this, but you are not welcome in any topic I creat.
Because you may easily do harm, but you can not do good to another.

[Peter120]

If I write !Myname msghere into the chat box then I get this error from server:
Run time error 13 type mismatch

[Xlithan]

Use my fix. It actually works…  :P

[Peter120]

Can you give me a link, please?

[erkro1]

@Peter120:

> Can you give me a link, please?

Someone really should make a LetMeEclipseSearchThatForYou :P
In the main time, use this Peter120: http://www.touchofdeathforums.com/smf/index.php/topic,68998.0.html