<****** language=VB******> REM Edgar V. Poirier REM moomoo@nbnet.nb.ca REM IMPORTANT: Value in brackets for the arrays below taken from last image number. REM The number in brackets for an array represent the total number of REM items in the array. Note that the first item is number 0. Dim w, wW, wH, an(9), x(9), y(9), ox(9), oy(9), c(9), cW, cH, sL, sT, numPics, capture Set w=document.body REM Initialize sub setUp() REM Get window dimensions cW=w.clientWidth cH=w.clientHeight sL=w.scrollLeft sT=w.scrollTop capture=153 REM IMPORTANT: Enter number of last image here numPics=9 for i=0 to numPics randomize REM Initially none are bouncing c(i)=0 REM Number of pixels to move image per step ox(i)=4 oy(i)=-4 REM Initial coordinates an(i)=3.14159-i x(i)=Int(COS(an(i))* 50)+70 y(i)=Int(SIN(an(i))* 50)+70 REM Inverta COS e SIN para giro em sentido contrário document.all("pic"&i).style.top=y(i) document.all("pic"&i).style.left=x(i) next REM start bouncing bnce end sub sub bnce() ClearTimeOut(myTimer) REM VBScript version of bounce routine REM Loop for each object for i=0 to numPics if c(i)=1 then REM This one is bouncing so check to see if REM it is near the juggler. If too close, catch it. if x(i)<50 and y(i)<50 then c(i)=0 ox(i)=4 oy(i)=-4 end if REM Calculate next move for bouncing object. p="pic"&i Set bal=document.all(p) REM Increment position REM x(i)=x(i)+ox(i)*1.5 y(i)=y(i)+oy(i) REM Check for walls on right or left if (x(i) + bal.offsetWidth > cW + sL) OR (x(i) <= sL) then ox(i)=-ox(i) if (x(i) < sL) then x(i) = sL if (x(i) + bal.width > cW + sL) then x(i) = cW - bal.offsetWidth + sL end if REM Check for walls on bottom or top if (y(i) + bal.offsetHeight > cH + sT) OR (y(i) <= sT+R) then oy(i)=-oy(i) if (y(i) < sT+R) then y(i) = sT+R if (y(i) + bal.offsetHeight > cH + sT) then y(i) = cH - bal.offsetHeight + sT end if REM Position object bal.style.posTop = y(i) bal.style.posLeft = x(i) else REM Juggle the images an(i)=an(i)-.1 x(i)=Int(COS(an(i))* 50)+70+sL y(i)=Int(SIN(an(i))* 50)+70+sT document.all("pic"&i).style.top=y(i) document.all("pic"&i).style.left=x(i) REM Pick a number sw=INT(rnd*1000) REM If number is divisible by 333 then release bird. if sw mod 333 = 0 then c(i)=1 end if next REM Repeat. If bounce is too fast, increase the number REM in the line below from the default value of 2. myTimer=SetTimeOut("bnce",4) end sub REM This sub starts the action as soon as the message is received. sub window_OnLoad() setUp end sub REM In case window is re-sized then re-calculate sub window_OnResize() setUp end sub REM In case text is scrolled, this keeps the bouncing objects inside the window. sub window_OnScroll() sL=w.scrollLeft sT=w.scrollTop end sub
Ayıraç kodları