The letterings which appears in RPG

[nameJack]

Hello avid game programmers...!

Uh... If you had read my last post, then you should know I'm struggling to make a simple RPG game...
Hope you can help me out in this prob.

How do you make those wording which appears as though they are being type?
If you're an avid RPG game player, then you should notice the way they present the text, coming out letters by letters.
Like mmm... Lufia, Breath of Fire, Tales of Destiny, Suikoden, Final Fantasy Series of course, etc

Well... I search for ways of doing so and I managed to do something similar with a timer
But I'm sure the experts out there have something else besides using the timer...
Please help me out...

Thanx a lot

[kedaman]

Easy thing actually, make a UDT for typedtext

Type Typedtext
    Text as string
    Freq as single
    Start as long
    Xpos as integer
    Ypos as integer
End type

Then have a frequently called function that draws the text to which you pass a Typedtext UDT to render the text, and return true if the text is fully typed

Function DrawTypedText(TT as typedtext) as boolean
    Pos=(Gettickcount-Start)/Freq
    if Pos>len(Start) then pos=len(start):Drawtypedtext=true
    Text=Left(TT.text,Pos)
    'move to the position and print the Text with the method you want
End function

[nameJack]

Thanks immensely
but can you give me an example coz i tried the examples you've shown...
however, it didn't work much
so...
my email is [email protected]
thanks a lot

[kedaman]

Ok sorry i didn't have vb last time so i couldn't test my code. Now this example should work.
Place this in a module

Declare Function GetTickCount Lib "kernel32" () As Long

Type Typedtext
    text As String
    Freq As Single
    Start As Long
    Xpos As Integer
    Ypos As Integer
End Type

Function DrawTypedText(TT As Typedtext) As Boolean
    Dim pos As Long
    With TT
        pos = (GetTickCount - .Start) * .Freq / 1000
        If pos > Len(.text) Then pos = Len(.text): DrawTypedText = True
        If pos > 0 Then
            text = Left(.text, pos)
            Form1.CurrentX = .Xpos
            Form1.CurrentY = .Ypos
            Form1.Print text
        End If
    End With
End Function

And this on a form with a command buton, try change the values and see what happens

Private Sub Command1_Click()
    Dim example As Typedtext
    With example
        .Freq = 10
        .Start = GetTickCount + 500
        .text = "THIS IS EXAMPLE TEXT"
        .Xpos = 500
        .Ypos = 500
    End With
    Do
        DoEvents
    Loop Until DrawTypedText(example)

End Sub

[nameJack]

WOW!!!
Thanks a lot!!!
It work just nice...!
One last questions though...
Can you make something similar in a label or textbox rather than specifying the text to appear on certain position on the form...
It's kinda troublesome...

Anyway, thanks a lot

Regards

[kedaman]

ah, not a problem
change this:

text = Left(.text, pos)
Form1.CurrentX = .Xpos
Form1.CurrentY = .Form1.Print text

to this:

text = Left(.text, pos)
label1=text

remember, if you want you could set the label to autoresize while you do this, and it will take the size while typing, but if you want to keep the multilines, then don't.

[nameJack]

Thank!!!
You're certainly an expert!
I guess that's it...
Thanks a lot
Please help me next time, will you?
Btw, what is kedaman?

Regards

[kedaman]

Sure i'll help you whenever i can. kedaman, that's my name ,not my real one, my member name