Mobiclic 46/Mobiclic46.iso/mac/DATA/PROM/VITRINE.CST/00002_Script_2

Text File | 2002-07-12 | 874b | 35 lines

--MODULE DE ANIMATION
--Gyorgy Gutierrez, ao√t 2001

global gAnimChildList, gEtatAnimList

on initAnim
  --initialization des objets magazine
  gAnimChildList = []
  gEtatAnimList = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
  repeat with i = 1 to 25
    addAt gAnimChildList,i,new(script"anim mag",i+6)
  end repeat
  updateStage
end

on gestAnim
  --parametres de l'animation
  --ordre est la liste aleatoire des nombre de zones a balayer
  --chance donne la probabilite de commencer une anim a l'arret
  ordre = randomList(25,25)
  repeat with i in ordre
    chance = random(75)
    tmp = getAt(gAnimChildList,i)
    --on teste l'etat de l'anim de l'objet
    if the ea of tmp = 0 then
      if chance = 1 then
        animate tmp
      end if
    else
      animate tmp
    end if
  end repeat
end