home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #7 / K-CD-7-2002.ISO / Tools / K-CS.dcr / 00486.ls < prev    next >
Encoding:
Text File  |  2002-04-10  |  896 b   |  30 lines
  1. global BlinkObjekt
  2.  
  3. on new me
  4.   cursor(0)
  5.   startTimer()
  6.   set BlinkObject to 0
  7.   set the locH of sprite 99 to 780
  8.   set BlinkObjekt to new(script "Blink", 4, 80)
  9. end
  10.  
  11. on exitFrame
  12.   if the timer < 850 then
  13.     set the text of cast member "FrameNum" to string(the timer)
  14.     set the text of cast member "AudioSample" to string(the timer * 582)
  15.     set the text of cast member "Videodata" to string(the timer * 1107 / 849)
  16.     set the text of cast member "AudioData" to string(the timer * 502 / 849)
  17.     set the text of cast member "Guesstimate" to string(1509 + random(200))
  18.     set tid to the timer * 39 / 849
  19.     if tid < 10 then
  20.       set the text of cast member "TimeElapsed" to "0:0" & string(tid)
  21.     else
  22.       set the text of cast member "TimeElapsed" to "0:" & string(tid)
  23.     end if
  24.     set the width of sprite 43 to 95 * the timer / 604
  25.     go(#loop)
  26.   else
  27.     go(#next)
  28.   end if
  29. end
  30.