Search content:

 

Personal Menu
Username:
Password:
Save password

Become a member

Forgot Password?

 

Don't miss these
Interface Colors in all palettes
Round floating point numbers off to nearest ten
Simple slide show
cXtraGraphicIO
Binary Convertor
Easy Templates Flash Website Kit
OpenDocument
Billenium Transitions Xtra v2
Hold for MPEG then go to marker X
ScreenFade
MediaMacros Xtras Mall
 

 

 

Behavior Cursor Trails

Added on 9/17/1999

 

Compatibilities:
behavior D7 D8 Mac PC Shockwave

This item has not yet been rated

Author: AdrianWoods

Drop on a sprite and it"s "follow" sprites

Download PC Source    Download Mac Source
-- edited by gMatter@cranialinteractive.com
-- Original by ||a d r i a n | w o o d s||

property pMySprite
property pImMovin
property pStartPauseAmount  --amount of frames needed to pass until I begin chugging through the list
property pStartPauseAmountCounter  --the pauseAmount counter
property pListCounter
property pMouseList

on beginSprite me
  pMySprite = me.spriteNum
  pImMovin = FALSE
  
  pStartPauseAmountCounter = 0
  
  pListCounter = 0
  pMouseList = []
end beginSprite

on exitFrame me
  
  append pMouseList, the mouseH
  append pMouseList, the mouseV
  
  if pImMovin <> TRUE then
    if pStartPauseAmountCounter = pStartPauseAmount then
      pImMovin = TRUE
      pStartPauseAmountCounter = 0
    end if
    pStartPauseAmountCounter = pStartPauseAmountCounter + 1
  end if
  
  if pImMovin = TRUE then
    pListCounter = pListCounter + 1
    sprite(pMySprite).locH = pMouseList[pListCounter]
    
    pListCounter = pListCounter + 1
    sprite(pMySprite).locV = pMouseList[pListCounter]
    updateStage
  end if
  
end exitFrame


on getPropertyDescriptionList me
  pdList = [:]
  
  setaProp pdList, #pStartPauseAmount, [#comment: "Delay in frames", ¬
    #format: #integer, #default: 3, #range: [#min: 1, #max: 11]]
  
  return pdList
end getPropertyDescriptionList

 


Upload Provided by ABCUpload ASP

Contact

MMI
22 West Court Sq
Suite 2C
Newnan, GA 30263
USA

Fax - (206) 339-5833

Send e-mail