Contents
Articles
Behaviors
Books
Director News
Director Web Sites
FAQ
Games
Mailing Lists
News Groups
Project Examples
Reviews
Software
Tools
Useful Web Sites
Utilities
Xtras

Don't miss these
NailPolish
BitChecker
Intermedia Transition Xtra
Increase/ Decrease FrameRate of a Flash Member
Lingo and Shockwave Sourcebook
Exit Browser
Lingo Library
Combinations and Permutations
Learning Lingo : The Art and Science of Programming With Macromedia Director
Update text member from remote file
 

 

 

Behavior Animated Cursor

Added on 6/10/1999

 

Compatibilities:
behavior D6_5 Mac PC

Rating:

Author: RobDillon

Changes the cursor when the cursor rolls over the sprite put the dot into the highest numbered sprite channel, move the sprite off the visible area of the stage put this behavior into each sprite that you want to have a custom rollover cursor for You"ll need to add a dummy sprite and some cursor sprites I"ve run this with 3 cursor sprites and 3 masks you"ll need to set the ink of the dummy cursor sprite to mask for the cursors to work properly you can set a foreground and background color for the cursor sprite there"s a more elaborate version of this running at my web site, www.ddg-designs.com

property oldcursor
property  cursorSprite, cursor1,cursor2, cursor3

----------------

on mouseWithin me
  set oldcursor = the cursor of sprite the spritenum of me
  set the cursor of sprite the spriteNum of me = 200
  updateStage
  showTheNewCursor me
end mouseWithin

----------------

on mouseLeave me
  hideTheNewCursor me
  set the cursor of sprite the spriteNum of me = oldcursor
end

----------------


on mouseDown
  -- do something here if you like
end

on mouseUp
  -- do something here if you like
end

-------------

on showNewCursor me
  set memberList = [cursor1,cursor2,cursor3]
  -- makes a list out of three properties
  set the loc of sprite cursorSprite = point(the mouseH,the mouseV)
  set the memberNum of sprite cursorSprite = getAt(memberList,random(3))
  -- positions the new cursor on rollover
  updateStage
end

----------------

on hideNewCursor me
  set the locH of sprite cursorSprite = -500
  cursor 0
end
-- moves the cursor off the visible area of the stage
----------------

on getPropertyDescriptionList
  
  set p_list = [
                        #cursorSprite: [#comment:  "sprite used for cursor:",   #format:   #integer,   #default:   120],
                        #cursor1: [#comment:  "member used for cursor 1:",  #format:   #member,    #default:   1],
                        #cursor2: [#comment:  "member used for cursor 2:",   #format:   #member,  #default:   1],
                        #cursor3: [#comment:  "member used for cursor 3:",   #format:   #member,   #default:   1]
                                 ]
  return p_list
end

----------------

on getBehaviorDescription
  return
                "Sets up custom rollover effects. Uses a custom cursor and moves a changing line of text." & RETURN &
                "PARAMETERS:" & RETURN &
                "• Sprite used for Cursor  - Type in the sprite channel number for the sprite that will hold the custom cursor."  & RETURN &
                "• Member Used for Cursor X - Select the members to be used for the custom cursor. Uses three members." & RETURN &
                 "• Pointer Image - Select the default cursor to be used."
end

 


Contact

MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA

Send e-mail