[EO]Enter to chat

[1123121]

Hi ;D! Can we give me script like this http://www.touchofdeathforums.com/smf/index.php/topic,28926.0.html . But for EO ? I'm n00b in VB6 :embarrassed:.So i need your help XD

[Aramyth]

First make a new label on your frmmaingame and call it "ChatBoxFocus", and put it right next to your chatbar. Change the Caption to "G". (Watch screenshot below)

After that.

In ModHandleData add this. (Client side)
```
'---------------------------
Public Sub SetFocusOnChat()
    frmMainGame.txtMyChat.SetFocus
End Sub
'----------------------------
Public Sub SetFocusOnGame()
    frmMainGame.picScreen.SetFocus
End Sub

```

in modInput put this. (Client side)
```
'--------------------------
If GetKeyState(vbKeyReturn) Then
        frmMainGame.ChatBoxFocus.Caption = "C"
        Call SetFocusOnChat
    Else
    If frmMainGame.ChatBoxFocus.Caption = "C" Then
        frmMainGame.ChatBoxFocus.Caption = "G"
        Call SetFocusOnGame
    End If
    End If

```That should do the trick I believe. If not, feel free to tell me.

Edit: The code I gave you above, will work perfectly in case you switch over to WASD movement. It prevents your chatbox from filling up when walking around with your char.

EDIT: I removed the error handlers, as I realised that there couldn't be any error in that sub whatsoever.

Aramyth.

[1123121]

I have added it bottom ModHandleData```
'---------------------------
Public Sub SetFocusOnChat ()
    frmMainGame.txtMyChat.SetFocus
End Sub
'----------------------------
Public Sub SetFocusOnGame ()
    frmMainGame.picScreen.SetFocus
End Sub
```And this bottom in modInput and i see error
```
'--------------------------
Jeśli GetKeyState (vbKeyReturn) Then
        = "C" frmMainGame.ChatBoxFocus.Caption
        Call SetFocusOnChat
    Inne
    JeÅ›li frmMainGame.ChatBoxFocus.Caption = "C" Wtedy
        = "G" frmMainGame.ChatBoxFocus.Caption
        Call SetFocusOnGame
    End If
    End If
```[http://img543.imageshack.us/img543/967/90042112.png](http://img543.imageshack.us/img543/967/90042112.png)

[Aramyth]

You will need to be more specific. Which error did you get?, You can send me the whole Sub from modInput so i can check what you did wrong if you want.

The code works perfectly fine if you did exactly as i said, because i am using the exact same system without any problem.

Regards Aramyth.

[Aramyth]

I saw the screenshot you added. Your mistake was putting the code under "End Sub".

Put that piece of code between "End if" and "End Sub" Not below End Sub.

Aramyth.

[1123121]

I don't know why but is doesn't work for me :/. I do every think what you say but it's don't work

[Aramyth]

If you have teamviewer installed on your computer, then i can help you if you want.

[email protected]

[1123121]

Aramyth Try to help me but his script is doesn't work in my source (we don't know why)
THX Aramyth for your help.
So… Maby anyone know any script else ? I'm new in VB6 so i can't do this script on my own  :icon_crap:

[Robin]

Argh. Stop calling it a bloody script.