on startmovie

global free_sprites

set free_sprites=[]

-- initialise une liste globale vide

end

on exitFrame

global free_sprites

if ((the mousedown=TRUE) and (count(free_sprites) <> 0)) then

-- SI le bouton de la souris est appuyé

-- ET que la liste n'est pas vide ALORS

sendsprite getat(free_sprites, 1), #start, point(the mouseh, the mousev)

-- Envoie un message de démarrage à la première image-objet de la liste

-- avec la position de la souris en paramètre

end if

go the frame

-- boucle sur l'image

end

-- Comportement pour gérer une image-objet animée

global free_sprites

property mysp, mymax, mycurrent, myletter, mystart

on beginsprite me

set mysp= the spritenum of me

-- Numéro de l'image-objet sur le scénario

set mymax = 30

-- Nombre maximum d'images

set mycurrent = 0

-- Image en cours à 0

set myletter = "d"

-- Lettre ou nom de la série

set mystart = 0

-- Déclencheur d'animation à 0

add(free_sprites, mysp)

-- Ajoute son numéro d'image-objet à la liste des images-objets libres

end

on exitframe me

if mystart = 1 then

-- SI l'animation est déclenché ALORS

set mycurrent = mycurrent + 1

-- Incrémente le numéro de l'image en cours

if mycurrent > mymax then

-- SI l'image en cours est supérieure au maximum ALORS

set mycurrent = 0

-- Replace l'image en cours sur l'image vide

set mystart = 0

-- Arrête l'animation

add(free_sprites, mysp)

-- Et ajoute son numéro d'image-objet à la liste des images-objets libres

end if

set the member of sprite mysp to member string(myletter&mycurrent)

-- Adapte l'image en cours

end if

end

on start me, newloc

set the loc of sprite mysp to newloc

-- place l'image-objet à l'endroit indiqué par newloc

set mystart = 1

-- déclenche le démarrage de l'animation au prochain exitframe

deleteat(free_sprites, 1)

-- efface son numéro de la liste

end