1123121 Posted November 14, 2010 Author Share Posted November 14, 2010 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 Link to comment Share on other sites More sharing options...
Aramyth Posted November 14, 2010 Share Posted November 14, 2010 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.SetFocusEnd Sub'----------------------------Public Sub SetFocusOnGame() frmMainGame.picScreen.SetFocusEnd 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. Link to comment Share on other sites More sharing options...
1123121 Posted November 14, 2010 Author Share Posted November 14, 2010 I have added it bottom ModHandleData```'---------------------------Public Sub SetFocusOnChat () frmMainGame.txtMyChat.SetFocusEnd Sub'----------------------------Public Sub SetFocusOnGame () frmMainGame.picScreen.SetFocusEnd 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) Link to comment Share on other sites More sharing options...
Aramyth Posted November 14, 2010 Share Posted November 14, 2010 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. Link to comment Share on other sites More sharing options...
Aramyth Posted November 14, 2010 Share Posted November 14, 2010 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. Link to comment Share on other sites More sharing options...
1123121 Posted November 15, 2010 Author Share Posted November 15, 2010 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 Link to comment Share on other sites More sharing options...
Aramyth Posted November 15, 2010 Share Posted November 15, 2010 If you have teamviewer installed on your computer, then i can help you if you want.[email protected] Link to comment Share on other sites More sharing options...
1123121 Posted November 15, 2010 Author Share Posted November 15, 2010 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: Link to comment Share on other sites More sharing options...
Robin Posted November 15, 2010 Share Posted November 15, 2010 Argh. Stop calling it a bloody script. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now