home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #7 / K-CD-7-2002.ISO / Tools / K-CS.dcr / 00472.ls < prev    next >
Encoding:
Text File  |  2002-04-10  |  473 b   |  20 lines
  1. global BlinkObjekt
  2.  
  3. on new me
  4.   cursor(0)
  5.   set BlinkObject to 0
  6.   set the locH of sprite 99 to 780
  7.   set BlinkObjekt to new(script "Blink", 4, 80)
  8. end
  9.  
  10. on exitFrame
  11.   checkBlink(BlinkObjekt)
  12.   set the text of cast member "MovieTime" to string(the movieTime of sprite 104)
  13.   set the text of cast member "Duration" to string(the duration of member "Bean")
  14.   if the movieTime of sprite 104 < the duration of member "Bean" then
  15.     go(#loop)
  16.   else
  17.     go(#next)
  18.   end if
  19. end
  20.