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
MPEG Advance
Tristate button with caption
Drag Sprite with Hotspot
XML Text Renderer v1.1
DirectInteraction Xtra
RTF files using free FileIOXtra
Font Freak
NightWares
SpaceShooter
Flash Rotator
 

 

 

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,pInterp,pIn,pOut,pLoop

on getPropertyDescriptionList
   if not alphamaniacCheck(the currentSpriteNum) then exit
  
set pList=[:]
  addProp pList,#pStart,[format:#integer,comment:"Start Amount:",
                          Default:0,range:[min:-360,max:360]]
  
  addProp pList,#pEnd,[format:#integer,comment:"End Amount:",
                          Default:0,range:[min:-360,max:360]]
  
  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]
  
  addProp pList,#pInterp,[format:#symbol,comment:"Interpolation:",
                          Default:#On,range:[#Off,#On,#Paused]]
  
  return pList
end

on beginSprite me
   set pInterp=interpolation(pInterp)
  
  -- 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
    swirl(sprite s,[animMode:#Pendulum,startDegrees:pStart,
                     endDegrees:pEnd,numFrames:pFrames,EaseIn:pIn,EaseOut:pOut])
  else
    if reverseFlag then
      swirl(sprite s,[animMode:#Range,startDegrees:pEnd,
                     endDegrees:pStart,numFrames:pFrames,EaseIn:pIn,EaseOut:pOut])
    else
      swirl(sprite s,[animMode:#Range,startDegrees:pStart,
                     endDegrees: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
  
  Swirl(sprite s,[animMode:#Static,degrees:pStart,interpolation:pInterp])
end

 


Contact

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

Send e-mail