| T O P I C R E V I E W |
| NiteOwl |
Posted - 24 December 2005 : 01:31:39
I found the following script on the net to add falling snowflakes to my forum. Can I do this with SNITZ and if so what file do I need to edit?
The following website shows this script:
http://javascript.internet.com/bgeffects/snow.html
<font color="navy"><font size="1"><SCRIPT LANGUAGE="JavaScript1.2">
<!-- Original: Altan (snow@altan.hr) -->
<!-- Web Site: http://www.altan.hr/snow -->
<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->
<!-- Begin
var no = 25; // snow number
var speed = 10; // smaller number moves the snow faster
var snowflake = "http://www.your-web-site-address-here.com/snow.gif";
var ns4up = (document.layers) ? 1 : 0; // browser sniffer
var ie4up = (document.all) ? 1 : 0;
var dx, xp, yp; // coordinate and position variables
var am, stx, sty; // amplitude and step variables
var i, doc_width = 800, doc_height = 600;
if (ns4up) {
doc_width = self.innerWidth;
doc_height = self.innerHeight;
} else if (ie4up) {
doc_width = document.body.clientWidth;
doc_height = document.body.clientHeight;
}
dx = new Array();
xp = new Array();
yp = new Array();
am = new Array();
stx = new Array();
sty = new Array();
for (i = 0; i < no; ++ i) {
dx<i> = 0; // set coordinate variables
xp[i] = Math.random()*(doc_width-50); // set position variables
yp[i] = Math.random()*doc_height;
am[i] = Math.random()*20; // set amplitude variables
stx[i] = 0.02 + Math.random()/10; // set step variables
sty[i] = 0.7 + Math.random(); // set step variables
if (ns4up) { // set layers
if (i == 0) {
document.write("<layer name=\"dot"+ i +"\" left=\"15\" ");
document.write("top=\"15\" visibility=\"show\"><img src=\"");
document.write(snowflake + "\" border=\"0\"></layer>");
} else {
document.write("<layer name=\"dot"+ i +"\" left=\"15\" ");
document.write("top=\"15\" visibility=\"show\"><img src=\"");
document.write(snowflake + "\" border=\"0\"></layer>");
}
} else if (ie4up) {
if (i == 0) {
document.write("<div id=\"dot"+ i +"\" style=\"POSITION: ");
document.write("absolute; Z-INDEX: "+ i +"; VISIBILITY: ");
document.write("visible; TOP: 15px; LEFT: 15px;\"><img src=\"");
document.write(snowflake + "\" border=\"0\"></div>");
} else {
document.write("<div id=\"dot"+ i +"\" style=\"POSITION: ");
document.write("absolute; Z-INDEX: "+ i +"; VISIBILITY: ");
document.write("visible; TOP: 15px; LEFT: 15px;\"><img src=\"");
document.write(snowflake + "\" border=\"0\"></div>");
}
}
}
function snowNS() { // Netscape main animation function
for (i = 0; i < no; ++ i) { // iterate for every dot
yp[i] += sty[i];
if (yp[i] > doc_height-50) {
xp[i] = Math.random()*(doc_width-am[i]-30);
yp[i] = 0;
stx[i] = 0.02 + Math.random()/10;
sty[i] = 0.7 + Math.random();
doc_width = self.innerWidth;
doc_height = self.innerHeight;
}
dx[i] += stx[i];
document.layers["dot"+i].top = yp[i];
document.layers["dot"+i].left = xp[i] + am[i]*Math.sin(dx[i]);
}
setTimeout("snowNS()", speed);
}
function snowIE() { // IE main animation function
for (i = 0; i < no; ++ i) { // iterate for every dot
yp[i] += sty[i];
if (yp[i] > doc_height-50) {
xp[i] = Math.random()*(doc_width-am[i]-30);
yp[i] = 0;
stx[i] = 0.02 + Math.random()/10;
sty[i] = 0.7 + Math.random();
doc_width = document.body.clientWidth;
doc_height = document.body.clientHeight;
}
dx[i] += stx[i];
document.all["dot"+i].style.pixelTop = yp[i];
document.all["dot"+i].style.pixelLeft = xp[i] + am[i]*Math.sin(dx[i]);
}
setTimeout("snowIE()", speed);
}
if (ns4up) {
snowNS();
} else if (ie4up) {
snowIE();
}
// End -->
</script</font id="size1"></font id="navy">>
<font size="1"><font color="black">< Moved to [i]MOD Add-On Forum (W/O Code)</i> by Shaggy /></font id="black"></font id="size1"> |
| 15 L A T E S T R E P L I E S (Newest First) |
| NiteOwl |
Posted - 27 December 2007 : 12:19:05
I don't know what causes it directly, but I do usually have more than 4 tabs open, but they are to multiple sites and only one to the forum, on my system the code by sonic will cause the window to just sit there and continuously resize as the snow is moving down the screen. very frustrating. 
So my old code works, it just does not display anything to those users of FireFox.
Update: its all working now, using the snow.js above in green, even with multiple tabs in firefox
< |
| Lon |
Posted - 27 December 2007 : 11:04:33
I used Sonic's code and my users love it. I've been informed by my one user today that if you open 4 or more tabs to your forum, it will max the CPU. I was able to duplicate this, thou I don't know why he would need 4 tabs to the forum open.< |
| NiteOwl |
Posted - 26 December 2007 : 09:22:07
|
| JJenson |
Posted - 15 December 2006 : 18:09:10
Any kind of errors or anything. What is happening?< |
| spyderuk |
Posted - 15 December 2006 : 18:07:38
I've tried getting this going but all to no avail. Tried the version with 3 flakes but just cannot get it to snow. aarrgghhhh!
< |
| Simko |
Posted - 09 December 2006 : 02:04:14
Nope, no Problems here :) Checkt it, everything works fine. But thanks anyway.< |
| CalloftheHauntedMaster |
Posted - 08 December 2006 : 14:54:09
Glad to help. However, be sure to check out your avatars. This causes problems with Zuel's addon.< |
| Simko |
Posted - 08 December 2006 : 14:46:49
Ah, thanks a lot! Now it works :)< |
| CalloftheHauntedMaster |
Posted - 08 December 2006 : 11:59:45
I didn't use Sonic's code so I can't help with that. However, if you use classicmotor's code, it'll look like this and work correctly:
<%
response.write "-->" & vbNewLine
response.write "</style>" & vbNewLine & _
"</head>" & vbNewLine & _
vbNewLine & _
"<body background=img/bg.gif bottomMargin=""0"" leftMargin=""0"" topMargin=""0"" rightMargin=""0"" marginwidth=""0"" marginheight=""0"" bgColor=""" & strPageBGColor & """ text=""" & strDefaultFontColor & """ link=""" & strLinkColor & """ aLink=""" & strActiveLinkColor & """ vLink=""" & strVisitedLinkColor & """>" & vbNewLine
Response.Write "<script language=""JavaScript1.2"" src=""snow.js"" type=""text/javascript""></script>" & vbNewLine
end If
Response.Write "<a name=""top""></a>" & vbNewLine & _
vbNewLine & _
%> < |
| Simko |
Posted - 08 December 2006 : 11:38:15
Hmmm, always got that error:
Microsoft VBScript compilation Error "800a03ea'
Syntax error
/en/forum/inc_header.asp, line 307
Dim MyWeekday
^
Saved Sonics Code to snow.js, uploaded it to the server, also uploaded 3 snowflakes, added this code:
Dim MyWeekday
MyWeekday = DatePart("ww", date)
if (MyWeekday > 47 and MyWeekday < 54) or (MyWeekday > 0 and MyWeekday < 10) then
Response.Write "<script language=""JavaScript1.2"" src=""snow.js"" type=""text/javascript""></script>" & vbNewLine
end If
Anyone?< |
| JJenson |
Posted - 05 December 2006 : 18:23:12
Thanks Sonic. I thought that was only if you wanted 3 snowflakes i guess I should read a little better. Working now except I can't control the height and width with those controls for some reason.
Thanks
Jeff< |
| Sonic |
Posted - 05 December 2006 : 17:55:49
use the code posted at - 02 January 2006 : 15:54:43 and it should work fine :-)< |
| JJenson |
Posted - 02 December 2006 : 11:22:27
Ok i have been reading this thread and made all the changes minus doing the 3 flaks I did the one David showed on here. Two things I get on this. All my flakes fall in one line on the left side. and I get the IE warning that this page contains secure and non secure items do you want to continue. Is there a way to get around this? you can take a look at
www.thebragboard.com/other/forum1
Thanks
< |
| CalloftheHauntedMaster |
Posted - 01 December 2006 : 12:26:28
This code cripples my member's ability to edit avatars:
Microsoft VBScript compilation error '800a0411'
Name redefined
/bbs/inc_header.asp, line 370
Dim MyWeekday
----^< |
| keng38 |
Posted - 30 November 2006 : 05:45:13
I have used the JS code given by sonic above (2nd Jan)and it works a treat.
One thing I did miss was to remove the & _ from the line
"<body" & strTmpPageBGImageURL & " bgColor=""" & strPageBGColor & """ text=""" & strDefaultFontColor & """ link=""" & strLinkColor & """ aLink=""" & strActiveLinkColor & """ vLink=""" & strVisitedLinkColor & """>" & vbNewLine
< |
