Animated Cursor

 

Compatibilities:

Rating:

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

Upload Provided by ABCUpload ASP