QUOTE(anza @ Apr 12 2003 - 05:38 PM)
musicmusic, thanks for giving your hand on this one
I tried it but couldn't get it to work. Maybe if I'd look into it even more I could have something done, but it's not so sure
I can do some complex codes with fb's formatting, but that scroller thing is hebrew for me
Oh, weird that the pic won't work, it should...
it might be blocked my my hosts file or firewall.
anyway here you go, be wared, its ugly:
CODE
////scroller variables
//add additional different coloured parts here
$puts(scroll1,%artist%)
$puts(scroll1colour,0000FF)
$puts(scroll2,%title%)
$puts(scroll2colour,00FF00)
$puts(scroll3,%album%)
$puts(scroll3colour,FF0000)
$puts(scroll4,%date%)
$puts(scroll4colour,FF00FF)
//length of scroll
$puts(length,25)
//put additional parts here too
$puts(scrolltext,$get(scroll1)$get(scroll2)$get(scroll3)$get(scroll4))
////make scroller
//check if length greater than string. if so, do not scroll.
$ifgreater($get(length),$len($get(scrolltext)),$get(scrolltext),
//calc char to start from
$puts(from,$add($mod(%_time_elapsed_seconds%,$len($get(scrolltext))),1))
//calc char to end with
$puts(to,$add($mod(%_time_elapsed_seconds%,$len($get(scrolltext))),$get(length)))
$puts(scrolled,$substr($get(scrolltext),$get(from),$get(to)))
$puts(scrolledd,$ifgreater($add($get(to),1),$len($get(scrolltext)),$substr($get(scrolltext),1,$sub($get(to),$len($get(scrolltext)))),)))
$get(scroll1colour)
$ifgreater(
$add($put(scroll1l,$len($get(scroll1))),1),
$get(from),
$substr(
$get(scrolled),0,
$put(scroll1end,$add($sub($get(scroll1l),$get(from)),1))
),)
$puts(partno,2)
$get(scroll$get(partno)colour)
$ifgreater(
$add($put(scroll$get(partno)l,$add($get(scroll$sub($get(partno),1)l),$len($get(scroll$get(partno))))),1),
$get(from),$substr(
$get(scrolled),
$add($get(scroll$sub($get(partno),1)end),1),
$put(scroll$get(partno)end,$add($sub($get(scroll$get(partno)l),$get(from)),1))
),)
$puts(partno,3)
$get(scroll$get(partno)colour)
$ifgreater(
$add($put(scroll$get(partno)l,$add($get(scroll$sub($get(partno),1)l),$len($get(scroll$get(partno))))),1),
$get(from),
$substr(
$get(scrolled),
$add($get(scroll$sub($get(partno),1)end),1),
$put(scroll$get(partno)end,$add($sub($get(scroll$get(partno)l),$get(from)),1))
),)
//copy this and repeat it changing partno
////copy from here
$puts(partno,4)
$get(scroll$get(partno)colour)
$ifgreater(
$add($put(scroll$get(partno)l,$add($get(scroll$sub($get(partno),1)l),$len($get(scroll$get(partno))))),1),
$get(from),
$substr(
$get(scrolled),
$add($get(scroll$sub($get(partno),1)end),1),
$put(scroll$get(partno)end,$add($sub($get(scroll$get(partno)l),$get(from)),1))
),)
////to here
$get(scroll1colour)
$substr(
$get(scrolledd),0,
$put(scroll1endd,$ifgreater(
$get(scroll1l),
$sub($get(length),$get(scroll1l)),
$add($sub($get(length),$get(scroll1l)),1),
$add($get(scroll1l),1)
)))
$puts(partnod,2)
$get(scroll$get(partnod)colour)
$substr(
$get(scrolledd),
$add($get(scroll$sub($get(partnod),1)endd),1),
$put(scroll$get(partnod)endd,
$get(scroll$get(partnod)l)))
$puts(partnod,3)
$get(scroll$get(partnod)colour)
$substr(
$get(scrolledd),
$add($get(scroll$sub($get(partnod),1)endd),1),
$put(scroll$get(partnod)endd,
$get(scroll$get(partnod)l)
))
//again copy this and repeat it changing partno
/////copy from here
$puts(partnod,4)
$get(scroll$get(partnod)colour)
$substr(
$get(scrolledd),
$add($get(scroll$sub($get(partnod),1)endd),1),
$put(scroll$get(partnod)endd,
$get(scroll$get(partnod)l)
))
/////to here
This is for a string with 4 different coloured parts, it needs some simple modifying for more, i made it so that can be done easily. I havn't tested it properly, so there may be problems as the script confuses me in places andi wasn't sure what it was doing.
Read my comments to work out how to modify it, if you cant work it out post the string you want to scroll and ill do it for you.
Anyway, maybe there could be someway to prevent characters being counted in $pad() etc? E.g. put them in ()'s or something, would prevent the need for scripts like this one.
I will do next time.
