telewizor

this tutorial is for eo 1.1.0…

Ice, you're right, I don't have this problem in my game, because i have text outline so it's easy to read(this can be seen on screen in 1st post). crazyone - yes, it allowing up to 5lines of chat but you can simply change this.

yes, 'linijka' mean 'line' in polish

Hello, in this tutorial i will show you how to make chat as on this screen: http://www.imagebanana.com/view/4dwnoj93/nowychat.png So let's start: Add new variables in modGlobals: ``` Public Linijka(0 To 4) As String Public LinijkaCol(0 To 4) As Long ``` In mod DirectDraw7 above: ``` For i = 1 To MAX_BYTE Call BltActionMsg(i) Next i ``` Add: ``` For i = 0 To 4 Call DrawChat(i) Next i ``` In modText above **Public Function BltMapAttributes()** add this: ``` Public Sub DrawChat(ByVal i As Byte) Dim x, y As Long x = Camera.Left + 4 y = Camera.Top + 445 + (i * 15) Call DrawText(TexthDC, x, y, Linijka(i), LinijkaCol(i)) End Sub ``` in modText too, find **Public Sub AddText** and in this Sub, under: ``` frmMainGame.txtChat.SelStart = Len(frmMainGame.txtChat.text) - 1 ``` Add: ``` For i = 0 To 4 If Linijka(i) = "" Then Linijka(i) = Msg LinijkaCol(i) = QBColor(color) i = 4 Else If i = 4 Then Linijka(0) = Linijka(1) LinijkaCol(0) = LinijkaCol(1) Linijka(1) = Linijka(2) LinijkaCol(1) = LinijkaCol(2) Linijka(2) = Linijka(3) LinijkaCol(2) = LinijkaCol(3) Linijka(3) = Linijka(4) LinijkaCol(3) = LinijkaCol(4) Linijka(4) = Msg LinijkaCol(4) = QBColor(color) End If End If Next ``` Next, in modHandleData, find **Private Sub HandleSayMsg** and under **frmMainGame.txtChat.SelStart = Len(frmMainGame.txtChat.text) - 1** Add: ``` For i = 0 To 4 If Linijka(i) = "" Then Linijka(i) = vbNewLine & Header & Name & ": " & message LinijkaCol(i) = colour i = 4 Else If i = 4 Then Linijka(0) = Linijka(1) LinijkaCol(0) = LinijkaCol(1) Linijka(1) = Linijka(2) LinijkaCol(1) = LinijkaCol(2) Linijka(2) = Linijka(3) LinijkaCol(2) = LinijkaCol(3) Linijka(3) = Linijka(4) LinijkaCol(3) = LinijkaCol(4) Linijka(4) = vbNewLine & Header & Name & ": " & message LinijkaCol(4) = colour End If End If Next ``` That's all, i hope that this will working :D 'linijka' mean 'line' in polish greetings PS Sorry for my english ;)

i show you my problem: I have a PC and laptop. I run server on PC and connect to him by PC and laptop. I move player in pc's client and i see on laptop that pc's player sometimes has lag, but on pc i see that pc's player move normal and on laptop, laptop's player move normal too. If run server on laptop then the situation is the same and i see on pc that laptop's player is sometimes lag. I hope that you understand what i say! Sorry for my very funny English :)