Code boxes not working.
type:
Function texteffecttype(x,y,string$,speed#)
Load sound "C:\windows\desktop\Type.wav",1
n=1
while n<=len(string$)
Play sound 1
Text x+2*n-2+((text size()/2)*n)-(text size()/2),y,mid$(string$,n)
wait 1000/speed#
n=n+1
Endwhile
Delete sound 1
Endfunction
Spiral:
Function spiral(x,y,string$,radius#,speed#,duration)
Get image 1,1,1,screen width(),screen height()
for i=duration to 0 Step -1
r#=(i*(radius#))
CLS
Paste image 1,1,1
text x+(cos(i)*r#),y+(sin(i)*r#),string$
Wait 5/speed#
next i
Endfunction
media:
http://www34.brinkster/andrew11/TYPE.zip
http://www34.brinkster/andrew11/TYPE.zip
"All programmers are playwrights and all computers are lousy actors."
-Anon.