Neat TypeWriter Effect

Blitz3D Forums/Blitz3D Programming/Neat TypeWriter Effect

Knight #51

(Posted 2008) [#1]

Hey Guys,

Check out this cool typewriter effect I made...


Graphics 1280,1024,32,1
SeedRnd(MilliSecs())

Global y = 10
Global file$ = "C:\Documents and Settings\Dean\Desktop\Verlet Integration Theory Tutorials\Verlet Integration Theory Part I.txt" ;change this to whatever you want

Function TypeWriterPrint(value$,x,y,del)

Locate x,y

For s = 1 To Len(value$)

	Color Rand(50,255),Rand(50,255),Rand(50,255)

	Write Mid(value$,s,1)
	Delay del

Next

y = y + 15

End Function

dfile = ReadFile(file$)

While Not Eof(dfile)

	While Not Eof(dfile)

		DebugLog(ReadLine(dfile))
		
	Wend
	
Wend

CloseFile(dfile)

rfile = OpenFile(file$)

While Not Eof(rfile)

	TypeWriterPrint(ReadLine(rfile),1,y,5)
	y = y + 15
	
Wend

CloseFile(rfile)

FlushKeys
FlushKeys()

WaitKey

End

Sorry that it's not commented ; I was just messing around.