home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 39 / Creative-Review-CD-ROM-39.iso / pc / pres / cr.dir / 00041_Script_41 < prev    next >
Text File  |  1998-07-10  |  1KB  |  49 lines
  1. on bugHand startH, startV
  2.   
  3.   repeat with a = 28 to 32
  4.     puppetSprite a, true
  5.     set selected = the text of field 79
  6.     
  7.     -- mouse movement
  8.     set endH = the mouseH
  9.     set endV = the mouseV
  10.     
  11.     set moveH = -(startH - endH)/random(12)
  12.     set moveV = -(startV - endV)/random(12)
  13.     --    
  14.     
  15.     set the loch of sprite a to the loch of sprite a + moveH 
  16.     set the locv of sprite a to the locv of sprite a + MoveV
  17.     
  18.     -- random movement
  19.     set hRan = random (11) -1 -5
  20.     set vRan = random (11) -1 -5
  21.     set the loch of sprite a to the loch of sprite a + Hran
  22.     set the locv of sprite a to the locv of sprite a + Vran
  23.     
  24.     -- fade
  25.     
  26.     set posh = the mouseh - (the loch of sprite a)
  27.     set posv = the mousev - (the locv of sprite a)
  28.     set length = posh * posh + posv * posv
  29.     
  30.     set circ = (length/ 100)
  31.     put circ into field 78
  32.     
  33.     if a <> selected then
  34.       if circ > 100 then
  35.         set the visible of sprite a to 0
  36.       else
  37.         set the visible of sprite a to 1
  38.         set the blend of sprite a to 100-circ
  39.       end if
  40.     else
  41.       set the visible of sprite a to 1
  42.       set the blend of sprite a to 100
  43.     end if
  44.     updatestage 
  45.     
  46.   end repeat
  47.   
  48. end
  49.