The Net Power 1997 February/NetPower_2-97.mdf/webpages/onsafari/alpenglo.com/animal.alx

Text File | 1996-08-10 | 17KB | 531 lines

<SCRIPT LANGUAGE="VBScript">
<!--------' A SCRIPT LANGUAGE tag should be the first item on this page ------->
</SCRIPT>
<!--
This page is implemented using a draft specification recently published by the
Worldwide Web Consortium (W3C) that extends HTML capabilities to provide exact,
2D layout features.  Refer to http://www.w3.org/pub/TR/WD-layout.htm for more
information on the tags used in these pages. This source page is displayed in
the Internet Explorer 3.0 using the Microsoft HTML Layout Control.
 -->

<!--
The following lines of VB Script accomplish the drag/drop of the images.
Only five lines of script code are needed for each image.
 -->
<SCRIPT LANGUAGE="VBScript" FOR="hair1" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    hair1.left= x+hair1.left-10
    hair1.top=y+hair1.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="hair2" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    hair2.left= x+hair2.left-10
    hair2.top=y+hair2.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="hair3" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    hair3.left= x+hair3.left-10
    hair3.top=y+hair3.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="ears1" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    ears1.left= x+ears1.left-10
    ears1.top=y+ears1.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="ears2" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    ears2.left= x+ears2.left-10
    ears2.top=y+ears2.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="ears3" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    ears3.left= x+ears3.left-10
    ears3.top=y+ears3.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="eyes1" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    eyes1.left= x+eyes1.left-10
    eyes1.top=y+eyes1.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="eyes2" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    eyes2.left= x+eyes2.left-10
    eyes2.top=y+eyes2.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="eyes3" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    eyes3.left= x+eyes3.left-10
    eyes3.top=y+eyes3.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="nose1" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    nose1.left= x+nose1.left-10
    nose1.top=y+nose1.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="nose2" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    nose2.left= x+nose2.left-10
    nose2.top=y+nose2.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="nose3" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    nose3.left= x+nose3.left-10
    nose3.top=y+nose3.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="mouth1" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    mouth1.left= x+mouth1.left-10
    mouth1.top=y+mouth1.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="mouth2" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    mouth2.left= x+mouth2.left-10
    mouth2.top=y+mouth2.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="mouth3" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    mouth3.left= x+mouth3.left-10
    mouth3.top=y+mouth3.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="hands1" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    hands1.left= x+hands1.left-10
    hands1.top=y+hands1.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="hands2" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    hands2.left= x+hands2.left-10
    hands2.top=y+hands2.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="hands3" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    hands3.left= x+hands3.left-10
    hands3.top=y+hands3.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="shoe1" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    shoe1.left= x+shoe1.left-10
    shoe1.top=y+shoe1.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="shoe2" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    shoe2.left= x+shoe2.left-10
    shoe2.top=y+shoe2.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" FOR="shoes3" EVENT="mousemove( button, shift, x, y)">
if  button=1 then
    shoes3.left= x+shoes3.left-10
    shoes3.top=y+shoes3.top-10
end if
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub body9_MouseDown(Button, Shift, X, Y)

    'Save mouse position from upper left to reference in MouseMove events.
    MouseX = X
    MouseY = Y
end sub
Sub body9_MouseMove(Button, Shift, X, Y)
    If  Button = 1 Then
    body9.left = x + body9.left - MouseX
    body9.top = y + body9.top - MouseY
    End If
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub body8_MouseDown(Button, Shift, X, Y)

    'Save mouse position from upper left to reference in MouseMove events.
    MouseX = X
    MouseY = Y
end sub
Sub body8_MouseMove(Button, Shift, X, Y)
    If  Button = 1 Then
    body8.left = x + body8.left - MouseX
    body8.top = y + body8.top - MouseY
    End If
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub body7_MouseDown(Button, Shift, X, Y)

    'Save mouse position from upper left to reference in MouseMove events.
    MouseX = X
    MouseY = Y
end sub
Sub body7_MouseMove(Button, Shift, X, Y)
    If  Button = 1 Then
    body7.left = x + body7.left - MouseX
    body7.top = y + body7.top - MouseY
    End If
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub body6_MouseDown(Button, Shift, X, Y)

    'Save mouse position from upper left to reference in MouseMove events.
    MouseX = X
    MouseY = Y
end sub
Sub body6_MouseMove(Button, Shift, X, Y)
    If  Button = 1 Then
    body6.left = x + body6.left - MouseX
    body6.top = y + body6.top - MouseY
    End If
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub body5_MouseDown(Button, Shift, X, Y)

    'Save mouse position from upper left to reference in MouseMove events.
    MouseX = X
    MouseY = Y
end sub
Sub body5_MouseMove(Button, Shift, X, Y)
    If  Button = 1 Then
    body5.left = x + body5.left - MouseX
    body5.top = y + body5.top - MouseY
    End If
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub body4_MouseDown(Button, Shift, X, Y)

    'Save mouse position from upper left to reference in MouseMove events.
    MouseX = X
    MouseY = Y
end sub
Sub body4_MouseMove(Button, Shift, X, Y)
    If  Button = 1 Then
    body4.left = x + body4.left - MouseX
    body4.top = y + body4.top - MouseY
    End If
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub body3_MouseDown(Button, Shift, X, Y)

    'Save mouse position from upper left to reference in MouseMove events.
    MouseX = X
    MouseY = Y
end sub
Sub body3_MouseMove(Button, Shift, X, Y)
    If  Button = 1 Then
    body3.left = x + body3.left - MouseX
    body3.top = y + body3.top - MouseY
    End If
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub body2_MouseDown(Button, Shift, X, Y)

    'Save mouse position from upper left to reference in MouseMove events.
    MouseX = X
    MouseY = Y
end sub
Sub body2_MouseMove(Button, Shift, X, Y)
    If  Button = 1 Then
    body2.left = x + body2.left - MouseX
    body2.top = y + body2.top - MouseY
    End If
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub body16_MouseDown(Button, Shift, X, Y)

    'Save mouse position from upper left to reference in MouseMove events.
    MouseX = X
    MouseY = Y
end sub
Sub body16_MouseMove(Button, Shift, X, Y)
    If  Button = 1 Then
    body16.left = x + body16.left - MouseX
    body16.top = y + body16.top - MouseY
    End If
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub body15_MouseDown(Button, Shift, X, Y)

    'Save mouse position from upper left to reference in MouseMove events.
    MouseX = X
    MouseY = Y
end sub
Sub body15_MouseMove(Button, Shift, X, Y)
    If  Button = 1 Then
    body15.left = x + body15.left - MouseX
    body15.top = y + body15.top - MouseY
    End If
end sub
-