writing text, letter by letter

Blitz3D Forums/Blitz3D Beginners Area/writing text, letter by letter

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Atomic Duck

Thanks Rob,
it's less hassle, heh?

Open in online IDE

Graphics 640,480,0,1
w_line$=("GREETINGS ADVENTURER, WHAT WOULD YOU LIKE TO DO ?")	
textlength=Len(w_line$)+1	
p=1
Repeat
	If MilliSecs() > wait + 100 Then 
		wait=MilliSecs()
		setchar$ = Mid$(w_line$,p,1)
 		text q,10,setchar$ 
 		p=p+1
 		q=q+8
	EndIf
Until p>textlength

thanks