AGAMES 討論區

 找回密碼
 快速註冊
搜索
查看: 2525|回復: 2
打印 上一主題 下一主題

{轉}滑鼠帶彩色字 [複製鏈接]

Rank: 3Rank: 3

帖子
142
EXP
287 點
金幣
77 個
好友
0
註冊時間
2009-6-13
跳轉到指定樓層
樓主
發表於 2009-6-13 02:25:50 |只看該作者 |倒序瀏覽
代碼:
<STYLE>.spanstyle {COLOR: #0066ff; FONT-FAMILY:Tahoma; FONT-SIZE:14pt; FONT-WEIGHT: normal; POSITION: absolute; TOP:-50px; VISIBILITY: visible}</STYLE>
<BODY onload=javascript:pageonload()><SCRIPT language=javascript>
var message="歡迎光臨『〝潮流§動漫社〞』";
var x,y;
var step=22;
var flag=0;
message=message.split("");
var xpos=new Array();
for (i=0;i<=message.length-1;i++) {
xpos=-50;}var ypos=new Array();
for (i=0;i<=message.length-1;i++) {
ypos=-50;}function handlerMM(e) {
x = (document.layers) ? e.pageX : document.body.scrollLeft+event.clientX+20;
y = (document.layers) ? e.pageY : document.body.scrollTop+event.clientY;
flag=1;}function makesnake() {
if (flag==1 && document.all) {
for (i=message.length-1; i>=1; i--) {
xpos=xpos[i-1]+step;
ypos=ypos[i-1];}
xpos[0]=x+step;
ypos[0]=y;
for (i=0; i<=message.length-1; i++) {
var thisspan = eval("span"+(i)+".style");
thisspan.posLeft=xpos;
thisspan.posTop=ypos;
thisspan.color=Math.random() * 255 * 255 * 255 + Math.random() * 255 * 255 + Math.random() * 255;}}
else if (flag==1 && document.layers) {
for (i=message.length-1; i>=1; i--) {
xpos=xpos[i-1]+step;
ypos=ypos[i-1];}
xpos[0]=x+step;
ypos[0]=y;
for (i=0; i<message.length-1; i++) {
var thisspan = eval("document.span"+i);
thisspan.left=xpos;
thisspan.top=ypos;
thisspan.color=Math.random() * 255 * 255 * 255 + Math.random() * 255 * 255 + Math.random() * 255;}}}</SCRIPT>
<SCRIPT language=javascript>
for (i=0;i<=message.length-1;i++) {
document.write("<span id=span"+i+" class=spanstyle>");
document.write(message);
document.write("</span>"); } if (document.layers) {document.captureEvents(Event.MOUSEMOVE); } document.onmousemove =handlerMM; </SCRIPT><SCRIPT language=javascript>
function pageonload() { makesnake(); window.setTimeout("pageonload();", 2); } </SCRIPT>
Alta Multimedia - Youtube:http://www.youtube.com/user/altahk

Rank: 1

帖子
25
EXP
25 點
金幣
0 個
好友
0
註冊時間
2009-7-16
2
發表於 2009-7-16 22:30:29 |只看該作者
我想問整係qooza到得唔得架?
如果得咁整去邊呢...~?

Rank: 1

帖子
24
EXP
25 點
金幣
4 個
好友
0
註冊時間
2009-7-18
3
發表於 2009-7-19 08:42:11 |只看該作者
用咩野寫???我看唔到
您需要登錄後才可以回帖 登錄 | 快速註冊

Archiver|手機版|AGAMES 討論區

GMT+8, 2024-11-23 18:28 , Processed in 0.047975 second(s), 10 queries .

Powered by Discuz! X2

© 2001-2011 Comsenz Inc.

回頂部