home *** CD-ROM | disk | FTP | other *** search
/ Canadian Forces / CF_FC.iso / pc / data / 0_2c_en.dxr / 00121_cursor.ls < prev    next >
Encoding:
Text File  |  2005-07-12  |  481 b   |  29 lines

  1. global SpriteVar, FlashSpriteNumber
  2.  
  3. on prepareMovie
  4.   SpriteVar = the mouseMember
  5. end
  6.  
  7. on enterFrame
  8.   SpriteVar = the mouseMember
  9.   if voidp(SpriteVar) then
  10.     cursor(-1)
  11.   end if
  12.   if voidp(SpriteVar) then
  13.     exit
  14.   end if
  15.   if not voidp(SpriteVar) and (SpriteVar.type = #flash) then
  16.     getSprite()
  17.   end if
  18. end
  19.  
  20. on getSprite
  21.   FlashSpriteNumber = rollover()
  22.   case sprite(FlashSpriteNumber).mouseOverButton of
  23.     0:
  24.       cursor(-1)
  25.     1:
  26.       cursor(280)
  27.   end case
  28. end
  29.