@Green Gandalf, I try on my program, but is too difficult, I havn't know the logic behind it.
How about try in this sample coding? where support I need to add the timer?
Rem Project: 3DVideo
Rem Created: 10/08/2002 07:03:30
rem Tested for: U6.0
rem Init
sync on : sync rate 30 : hide mouse
rem Switch display mode if available
if check display mode(1024,768,32)=1 then set display mode 1024,768,32
rem Set default screen
color backdrop rgb(0,32,32)
set text font "Verdana"
ink rgb(0,255,0),0
set text to bold
set text size 20
rem Load animation
load animation "media\9.mpg",1
load animation "7clicks.wmv",2
rem Direct animation to texture
play animation to image 1,1,0,0,320,240
play animation to image 2,2,0,0,680,200
stop animation 1
rem Create 3D projection
make object box 3,320,240,10
texture object 3,1
make object box 4,320,240,10
texture object 4,2
rem Setup camera
position camera 0,0,-700
rotate camera 0,0,0
rem Load sound
load sound "type.wav",1 : set sound volume 1,80 : set sound speed 1,44000
load sound "type.wav",2 : set sound volume 2,80 : set sound speed 2,44000
rem Text data
dim htext$(5)
rem Main loop
begin=1
while mouseclick()=0
rem Begin animation and narration
if begin=1
begin=0
restore
stop animation 1
loop animation 1
narstage=0 : pause=0 : text$=""
for h=1 to 5 : htext$(h)="" : next h
time=timer()
endif
rem Teletype
seconds=timer()-time
inc pause
if pause>=0
pause=0
if narstage=0
read triggersec
read leaper
narstage=1
endif
if narstage=1
if seconds>=triggersec then narstage=2
endif
if narstage=2
read nar$
if nar$="*" then end
narstage=3
nari=1
endif
if narstage=3
for r=1 to leaper
if nari<=len(nar$)
a$=mid$(nar$,nari)
text$=text$+upper$(a$)
if sound playing(1)=0 then play sound 1
if sound playing(2)=0 then play sound 2
inc nari
endif
next r
if nari>len(nar$)
for h=5 to 2 step -1
htext$(h)=htext$(h-1)
next h
htext$(1)=text$
narstage=0
text$=""
endif
endif
endif
basey=screen height()-40
for h=1 to 5
text 32,basey-(h*16),htext$(h)
next h
text 32,basey,text$
rem Update screen
sync
rem End loop
endwhile
rem Narration:
data 1500,1,"Let me show you how to create your very own"
data 1500,1,"computer program in seven clicks."
data 8500,2,"This is nothing original as we have done this"
data 8500,1,"type of software before."
data 12250,1,"What is original is that I can do this in seven"
data 12250,1,"clicks and it's a programming language!"
data 18750,2,"And by the way clicks to do include keyboard"
data 20000,1,"presses - subclause 1(one)."
data 25000,2,"First thing we do is load the software."
data 30500,2,"That was two clicks."
data 32750,1,"The third click is here and the forth click"
data 32750,2,"is here."
data 38000,1,"Now we type out a name."
data 43000,1,"The fifth click is here."
data 47500,1,"The sixth click is there, where we type out"
data 47500,1,"a very simple program."
data 55000,1,"And the seventh and final click is the click"
data 55000,1,"to compile and run the program."
data 61000,1,"Click!"
data 64000,1,"And there you go."
data 65000,2,"Hello world, two lines of code."
data 67500,1,"Very simple."
data 68500,1,"And all done in just seven clicks!"
data 71500,1,""
data 71500,1,"*"