Евпаторийское отделение КСУ
Меню сайта
Категории каталога
Мои файлы [4]
Наш опрос
Чем Вы кормите свою собаку?
Всего ответов: 104
Главная » Файлы » Мои файлы

снегопад
[ ] 29.11.2009, 03:04
<script>
// Число снежинок (более чем на 30 - 40 не рекомендуется)
var snowmax=35

// Цвет для снега. Добавляйте столько цветов, сколько нужно
var snowcolor=new Array("#aaaacc","#ddddFF","#ccccDD")

// Шрифты, которые создают снежинки. Добавляйте столько шрифтов, сколько нужно 
var snowtype=new Array("Arial Black","Arial Narrow","Times","Comic Sans MS")

// Символ, что создает снежинку (рекомендуется: *)
var snowletter="*"

// Скорость спуска (рекомендуемый диапазон значений от 0,3 до 2)
var sinkspeed=0.6

// Максимальный размер вашей снежинки
var snowmaxsize=22

// Минимальный размер вашей снежинки
var snowminsize=8

// Снег-зону 
// 1 все стороны, 2 левая сторона, 3 центр, 4 правая сторона
var snowingzone=3

///////////////////////////////////////////////////////////////////////////
// Конфигурация заканчивается здесь
// made by- http://www.goldaccordion.com
///////////////////////////////////////////////////////////////////////////


// Не изменяйте эти строки ниже
var snow=new Array()
var marginbottom
var marginright
var timer
var i_snow=0
var x_mv=new Array();
var crds=new Array();
var lftrght=new Array();
var browserinfos=navigator.userAgent 
var ie5=document.all&&document.getElementById&&!browserinfos.match(/Opera/)
var ns6=document.getElementById&&!document.all
var opera=browserinfos.match(/Opera/)  
var browserok=ie5||ns6||opera

function randommaker(range) {  
  rand=Math.floor(range*Math.random())
  return rand
}

function initsnow() {
  if (ie5 || opera) {
  marginbottom = document.body.clientHeight
  marginright = document.body.clientWidth
  }
  else if (ns6) {
  marginbottom = window.innerHeight
  marginright = window.innerWidth
  }
  var snowsizerange=snowmaxsize-snowminsize
  for (i=0;i<=snowmax;i++) {
  crds[i] = 0;  
  lftrght[i] = Math.random()*15;  
  x_mv[i] = 0.03 + Math.random()/10;
  snow[i]=document.getElementById("s"+i)
  snow[i].style.fontFamily=snowtype[randommaker(snowtype.length)]
  snow[i].size=randommaker(snowsizerange)+snowminsize
  snow[i].style.fontSize=snow[i].size
  snow[i].style.color=snowcolor[randommaker(snowcolor.length)]
  snow[i].sink=sinkspeed*snow[i].size/5
  if (snowingzone==1) {snow[i].posx=randommaker(marginright-snow[i].size)}
  if (snowingzone==2) {snow[i].posx=randommaker(marginright/2-snow[i].size)}
  if (snowingzone==3) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/4}
  if (snowingzone==4) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/2}
  snow[i].posy=randommaker(2*marginbottom-marginbottom-2*snow[i].size)
  snow[i].style.left=snow[i].posx
  snow[i].style.top=snow[i].posy
  }
  movesnow()
}

function movesnow() {
  for (i=0;i<=snowmax;i++) {
  crds[i] += x_mv[i];
  snow[i].posy+=snow[i].sink
  snow[i].style.left=snow[i].posx+lftrght[i]*Math.sin(crds[i]);
  snow[i].style.top=snow[i].posy
   
  if (snow[i].posy>=marginbottom-2*snow[i].size || parseInt(snow[i].style.left)>(marginright-3*lftrght[i])){
  if (snowingzone==1) {snow[i].posx=randommaker(marginright-snow[i].size)}
  if (snowingzone==2) {snow[i].posx=randommaker(marginright/2-snow[i].size)}
  if (snowingzone==3) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/4}
  if (snowingzone==4) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/2}
  snow[i].posy=0
  }
  }
  var timer=setTimeout("movesnow()",50)
}

for (i=0;i<=snowmax;i++) {
  document.write("<span id='s"+i+"' style='position:absolute;top:-"+snowmaxsize+"'>"+snowletter+"</span>")
}
if (browserok) {
  window.onload=initsnow
}
</script>
Категория: Мои файлы | Добавил: администратор
Просмотров: 541 | Загрузок: 0 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Поиск
Друзья сайта
КИНОЛОГИЧЕСКИЙ СОЮЗ УКРАИНЫ. Официальный сайт Общение членов Кинологического Союза Украины на любые темы Евпатория в Интернет - каталог сайтов Евпатории Питомник Gold Schaferhund Многопородный п/з
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Copyright MyCorp © 2024
Создать бесплатный сайт с uCoz