home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 25 / CDROM25.iso / lazer / fpwtdemo / Poster.dcr / Behaviors_48_NextFace.ls < prev    next >
Encoding:
Text File  |  1998-02-10  |  429 b   |  19 lines
  1. global MAX_POSTERS, glstFaces, gnPoster, HAT_CH, HEAD_CH, BODY_CH
  2.  
  3. on mouseUp
  4.   SaveFace(gnPoster)
  5.   set gnPoster to gnPoster + 1
  6.   if gnPoster > count(glstFaces) then
  7.     if gnPoster <= MAX_POSTERS then
  8.       ResetPoster()
  9.       updateStage()
  10.     else
  11.       puppetSound(2, "sndNoMoPo")
  12.       set gnPoster to gnPoster - 1
  13.       DisplayPoster(gnPoster, "Faces")
  14.     end if
  15.   else
  16.     DisplayPoster(gnPoster, "Faces")
  17.   end if
  18. end
  19.