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
ZGTSB-TextInteractivity
Audio Xtra
DirectMedia Xtra 2
Tic Tac Toe
Dave's 3D engine V7.1
Dave Client
Screen grab to castmember
XmySQL
myWindow
Fade bitmap to / from pure colour behaviour
 

 

 

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 pStart, pEnd,pFrames,pInterp,pLoop

on getPropertyDescriptionList
  if not alphamaniacCheck(the currentSpriteNum) then exit
  
  set pList=[:]
  addProp pList,#pStart,[format:#integer,comment:"Start Angle:",
                         Default:0,range:[min:-360,max:360]]
  addProp pList,#pEnd,[format:#integer,comment:"End Angle:",
                         Default:0,range:[min:-260,max:360]]
  addProp pList,#pFrames,[format:#integer,comment:"Number of Frames:", Default:30]
  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)
  reset(me)
end

on trigger me,reverseFlag
  set s = the spriteNum of me
  if not alphaManiac(s) then exit
  
  if pLoop then
    rotate(sprite s,[animMode:#Pendulum,startDegrees:pStart,
                     endDegrees:pEnd,numFrames:pFrames])
  else
    if reverseFlag then
      rotate(sprite s,[animMode:#Range,startDegrees:pEnd,
                     endDegrees:pStart,numFrames:pFrames])
    else
      rotate(sprite s,[animMode:#Range,startDegrees:pStart,
                     endDegrees:pEnd,numFrames:pFrames])
    end if
  end if
end

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

 


Contact

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

Send e-mail