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
cXtraSendMail
Animated Slider Puzzle by J.R.D.R.
Campaign FOR current and future Macromedia Director users
Set WarpMode of a QTVR Sprite
Semi-Random Bezier Animatior
Sprite recorder v.2
Rollover Shift Hue-Alphamania
Convert Fonts
MediaPlayer Xtra
Print Formatted and HTML Text Using a Browser
 

 

 

Behavior Setup Anim

Added on 6/10/1999

 

Compatibilities:
D6_5 D7 D8 Mac PC Script

Required Xtras:
Alphamania
Effector Set I for Alphamania

This item has not yet been rated

Author: MediaLab (website)

Requires Effector Set 1 Behavior Support Scripts

Property pFrames,pStart,pEnd,pIn,pOut,pLoop

on getPropertyDescriptionList
  if not alphamaniacCheck(the currentSpriteNum) then exit
  
  set pList=[:]
  addProp pList,#pStart,[format:#integer,comment:"Start Saturation:",
                          Default:0,range:[min:-255,max:255]]
  
  addProp pList,#pEnd,[format:#integer,comment:"End Saturation:",
                          Default:0,range:[min:-255,max:255]]
  
  addProp pList,#pFrames,[format:#integer,comment:"Frames:",Default:15]
  
  addProp pList,#pIn,[format:#integer,comment:"Ease In %:",
                      Default:10,range:[min:0,max:100]]
  
  addProp pList,#pOut,[format:#integer,comment:"Ease Out %:",
                       Default:10,range:[min:0,max:100]]
  
  addProp pList,#pLoop,[format:#boolean,comment:"Pendulum:",Default:false]
  
  return pList
end

on beginSprite me
  -- Convert Ease In & Out to frames
  set pIn=(pIn*pFrames) / 100
  set pOut=(pOut*pFrames) / 100
  reset(me)
  
end

on trigger me,reverseFlag
  set s = the spriteNum of me
  if not alphaManiac(s) then exit
  
  if pLoop then
    hsb(sprite s,[animMode:#Pendulum,startSat:pStart,
                     endSat:pEnd,numFrames:pFrames,EaseIn:pIn,EaseOut:pOut])
  else
    if reverseFlag then
      hsb(sprite s,[animMode:#Range,startSat:pEnd,
                     endSat:pStart,numFrames:pFrames,EaseIn:pIn,EaseOut:pOut])
    else
      hsb(sprite s,[animMode:#Range,startSat:pStart,
                     endSat:pEnd,numFrames:pFrames,EaseIn:pIn,EaseOut:pOut])
    end if
  end if
end

on reset me
  set s=the spriteNum of me
  if not alphaManiac(s) then exit
  
  hsb(sprite s,[animMode:#Static,forceSat:pStart])
end

 


Contact

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

Send e-mail