' VB Script Document


theX=0:theY=0:flyX=100:flyY=100
dim tid



sub follow()



if theX > flyX and theY < flyY then flyX = flyX + 3:flyY = flyY - 3:bug8.style.visibility="visible":bug8.style.visibility="visible":bug1.style.visibility="hidden":bug2.style.visibility="hidden":bug3.style.visibility="hidden":bug4.style.visibility="hidden":bug5.style.visibility="hidden":bug6.style.visibility="hidden":bug7.style.visibility="hidden"

if theX > flyX and theY > flyY  then flyX = flyX + 3:flyY = flyY + 3:bug2.style.visibility="visible":bug1.style.visibility="hidden":bug8.style.visibility="hidden":bug3.style.visibility="hidden":bug4.style.visibility="hidden":bug5.style.visibility="hidden":bug6.style.visibility="hidden":bug7.style.visibility="hidden"



if theX < flyX and theY < flyY then flyX = flyX - 3:flyY = flyY - 3:bug6.style.visibility="visible":bug1.style.visibility="hidden":bug2.style.visibility="hidden":bug3.style.visibility="hidden":bug4.style.visibility="hidden":bug5.style.visibility="hidden":bug8.style.visibility="hidden":bug7.style.visibility="hidden"

if theX < flyX and theY > flyY  then flyX = flyX - 3:flyY = flyY + 3:bug4.style.visibility="visible":bug1.style.visibility="hidden":bug2.style.visibility="hidden":bug3.style.visibility="hidden":bug8.style.visibility="hidden":bug5.style.visibility="hidden":bug6.style.visibility="hidden":bug7.style.visibility="hidden"

if theX > flyX and  theY = flyY  then flyX = flyX + 3:bug1.style.visibility="visible":bug8.style.visibility="hidden":bug2.style.visibility="hidden":bug3.style.visibility="hidden":bug4.style.visibility="hidden":bug5.style.visibility="hidden":bug6.style.visibility="hidden":bug7.style.visibility="hidden"

if theX < flyX and  theY = flyY then flyX = flyX - 3:bug5.style.visibility="visible":bug1.style.visibility="hidden":bug2.style.visibility="hidden":bug3.style.visibility="hidden":bug4.style.visibility="hidden":bug8.style.visibility="hidden":bug6.style.visibility="hidden":bug7.style.visibility="hidden"

if theX = flyX and  theY > flyY  then flyY = flyY + 3:bug3.style.visibility="visible":bug1.style.visibility="hidden":bug2.style.visibility="hidden":bug8.style.visibility="hidden":bug4.style.visibility="hidden":bug5.style.visibility="hidden":bug6.style.visibility="hidden":bug7.style.visibility="hidden"

if theX = flyX and  theY < flyY then flyY = flyY - 3:bug7.style.visibility="visible":bug1.style.visibility="hidden":bug2.style.visibility="hidden":bug3.style.visibility="hidden":bug4.style.visibility="hidden":bug5.style.visibility="hidden":bug6.style.visibility="hidden":bug8.style.visibility="hidden"

bug1.style.left=flyX
bug1.style.top=flyY

bug2.style.left=flyX
bug2.style.top=flyY

bug3.style.left=flyX
bug3.style.top=flyY

bug4.style.left=flyX
bug4.style.top=flyY

bug5.style.left=flyX
bug5.style.top=flyY

bug6.style.left=flyX
bug6.style.top=flyY

bug7.style.left=flyX
bug7.style.top=flyY

bug8.style.left=flyX
bug8.style.top=flyY


cleartimeout(tid)
tid= settimeout("follow()",50)

end sub

sub follow2()

theX=window.event.x
theY=window.event.y 

end sub