Page 1 of 1

Make your title animated

PostPosted: Mon Feb 04, 2008 6:10 pm
by hasan
Hello, i just thought of sharing this tiny code, i don't know if someone had thought about it or have written it on this forum.

anywayz, you can use this code to make your application title animated (Typewruter animation), just put this in the startup section:

Code: Select all
:titleanimation
StrLen "[PubTitle]" "[titlelen]"
setvar "[title]" "[PubTitle]"
setvar "[PubTitle]" ""

:animatetitle
Loop "1" "[titlelen]" "[titleloop]"
SubStr "[title]" "[titleloop]" "1" "[titlemod]"
setvar "[titlle]" "[titlle][titlemod]"
delay "500"
setvar "[PubTitle]" "[titlle]"
endloop



if you want it to keep going:


Code: Select all
:titleanimation
StrLen "[PubTitle]" "[titlelen]"
setvar "[title]" "[PubTitle]"
setvar "[PubTitle]" ""
setvar "[titlle]" ""

:animatetitle
Loop "1" "[titlelen]" "[titleloop]"
SubStr "[title]" "[titleloop]" "1" "[titlemod]"
setvar "[titlle]" "[titlle][titlemod]"
delay "500"
setvar "[PubTitle]" "[titlle]"
endloop
gotoline "titleanimation"



A bit better on :

Code: Select all
:titleanimation
StrLen "[PubTitle]" "[titlelen]"
setvar "[title]" "[Pubtitle]"
setvar "[titlle]" ""
setvar "[PubTitle]" ""

:animatetitle
Loop "1" "[titlelen]" "[titleloop]"
SubStr "[title]" "[titleloop]" "1" "[titlemod]"
setvar "[titlle]" "[titlle][titlemod]"
delay "500"
setvar "[PubTitle]" "[titlle]"
endloop

:blink
setvar "[PubTitle]" ""
delay "200"
setvar "[Pubtitle]" "[titlle]"
delay "300"
setvar "[PubTitle]" ""
delay "200"
setvar "[Pubtitle]" "[titlle]"
gotoline "titleanimation"



Happy Neobooking

PostPosted: Tue Feb 05, 2008 1:18 am
by AlfB
thanks Hasan, looks pretty well

ALF