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
Print a file with associated program
Hoolicon
Hierarchcal Menu using Imaging Lingo
mySystem
Get Visual Line Count and Current Visual Line of Insertion
Fade In Out Text
StyleUtil
DirectSound Xtra
Creating Records - Valentina
Tic Tac Toe
 

 

 

Behavior Color Fader-Alphamania

Added on 6/10/1999

 

Compatibilities:
D6_5 D7 D8 Mac PC Script

This item has not yet been rated

Author: MediaLab (website)

These behaviors are for use with the Alphamania Xtra and its add-on effector sets. Requires Effector Set 1 Behavior Support Scripts

Property pStart,pEnd,pSpeed

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,#pSpeed,[format:#integer,comment:"Frames:", Default:30]
  return pList
end

on beginSprite me
  set s=the spriteNum of me
  if not alphaManiac(s) then exit
  
  hsb(sprite s,[animMode:#Range,numFrames:pSpeed, startSat:pStart, endSat:pEnd])
end

on getBehaviorDescription me
  set msg= "Fade the color on your AlphaManiac!"
  put return & return after msg
  put "Parameters:" & return & "-----------" & return  after msg
  put "*  Start Saturation %: -255 to 255" & return after msg
  put "*     End Saturation %: -255 to 255" & return after msg
  put "*                    Frames: Lower numbers are faster"  after msg
  put return & "-----------" & return & return  & ">>>" && amTip()  after msg
  return msg
end

 


Contact

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

Send e-mail