以文本方式查看主题

-  泥客论坛(十几年前的回忆)  (http://kesonic.com/bbs/index.asp)
--  ☆网页制作☆  (http://kesonic.com/bbs/list.asp?boardid=81)
----  状态栏文字从右向左一个一个骑兵式飞奔  (http://kesonic.com/bbs/dispbbs.asp?boardid=81&id=4547)

--  作者:dmacro
--  发布时间:2003/9/30 9:52:29

--  状态栏文字从右向左一个一个骑兵式飞奔
[修改显示的文字后复制到<body></body>]

<script language=JavaScript>

var MESSAGE="Suhoo收获网络--中国免费赚钱频道"

var POSITION=100

var DELAY=5

var scroll=new statusMessageObject()

function statusMessageObject(p,d){

this.msg =MESSAGE

this.out =" "

this.pos =POSITION

this.delay=DELAY

this.i=0

this.reset=clearMessage}

function clearMessage(){

this.pos=POSITION}

function scroller(){

for (scroll.i=0;scroll.i<scroll.pos;scroll.i++){

scroll.out += " "}

if (scroll.pos >= 0)

scroll.out += scroll.msg

else scroll.out=scroll.msg.substring(-scroll.pos,scroll.msg.length)

window.status=scroll.out

scroll.out=" "

scroll.pos--

if (scroll.pos < -(scroll.msg.length)) {

scroll.reset()}

setTimeout(\'scroller()\',scroll.delay)}

function snapIn(jumpSpaces,position){

var msg = scroll.msg

var out = ""

for(var i=0; i<position; i++)

{out+= msg.charAt(i)}

for(i=1;i<jumpSpaces;i++)

{out += " "}

out+=msg.charAt(position)

window.status = out

if(jumpSpaces <= 1) {

position++

if(msg.charAt(position) == \' \')

{position++ }

jumpSpaces = 100-position

}else if (jumpSpaces >  3)

{jumpSpaces *= .75}

else

{jumpSpaces--}

if(position != msg.length) {

var cmd = "snapIn(" + jumpSpaces + "," + position + ")";

scrollID = window.setTimeout(cmd,scroll.delay);

}else{window.status=""

jumpSpaces=0

position=0

cmd = "snapIn(" + jumpSpaces + "," + position + ")";

scrollID = window.setTimeout(cmd,scroll.delay);

return false }

return true}

snapIn(100,0);

</script>