[EO] Chat on picScreen

[telewizor]

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 ;)

[The New World]

Does 'Linijka' stand for 'line'?

[telewizor]

yes, 'linijka' mean 'line' in polish

[The New World]

You may want to add that to your OP for us English people. :)

[RyokuHasu]

English would make the Ryoku Happy XD lol

[crzyone9584]

So linijka just needs to be changed to line for english speaking people. Also Why 0 - 4? are you only allowing up to 5 lines of chat be on the map at a time?

[Ice - Fire]

If your going to do this, adding a semi transparent background to enhance the texts visibility is a must, otherwise a lot of people are going to find it hard to read.
  Yours truly,
    Ice

[telewizor]

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.

[crzyone9584]

Alrighty kool. I might start using that. And for what ice was stating you should show how to do this for people who don't know how to have a transparent background…

[BugSICK]

any farther comment on this thread? cant try it right now.  :sad:

[Knuckles]

it doesnt work
i tried twice but i still got error

>! 

[jcsnider]

Under DIm S as string

put

Dim i as long

[Knuckles]

i still have the same error

[evilbunnie]

@Knuckles:

> i still have the same error

You obviously have not done it right.
Do again what jcsnider told you to do. Send another screenshot if it does not work.

[Knuckles]

i did but i still have the same mistake

[Connor]

Mine doesn't have this part..
```
    For i = 1 To MAX_BYTE
        Call BltActionMsg(i)
    Next i

```
I've searched everywhere in modDirectDraw7.
Any help? :)

[evilbunnie]

@Connor:

> Mine doesn't have this part..
> ```
>     For i = 1 To MAX_BYTE
>         Call BltActionMsg(i)
>     Next i
>
> ```
> I've searched everywhere in modDirectDraw7.
> Any help? :)

What engine are you using? Use Ctrl+F and then check Current Project.
@Knuckles:

> i did but i still have the same mistake

Screenshot your source please.

[Knuckles]

http://i52.tinypic.com/2lmlaja.png

[jcsnider]

@jcsnider:

> Under DIm S as string
>
> put
>
> Dim i as long

[Knuckles]

i already did it :(

[jcsnider]

No, you did not. In your picture you did NOT add, "Dim i as long" after "Dim S as string". It is not there.

[Knuckles]

i added after i took that pic. but it doesnt work.

[jcsnider]

Then re-post the pic with the error.

WITH the change.

[Knuckles]

oh wait. i made a mistake. because i couldnt find this
    For i = 1 To MAX_BYTE
        Call BltActionMsg(i)
    Next i

[aaaron]

I added in this, but it's not drawing to picScreen. :/