home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #12 / K-CD-12-2002.ISO / Tools / K-CS.dcr / 00462.ls < prev    next >
Encoding:
Text File  |  2002-04-19  |  559 b   |  21 lines
  1. global StartTid
  2.  
  3. on new me
  4.   startTimer()
  5.   set the width of sprite 94 to 208
  6.   set the locH of sprite 94 to 59
  7. end
  8.  
  9. on exitFrame
  10.   if the timer < 640 then
  11.     set the locH of sprite 94 to (the timer / 20 * 10) + 58
  12.     set the width of sprite 94 to 310 - (the timer / 20 * 10)
  13.     if (the timer mod 10) = 0 then
  14.       set the text of cast member "FloppyImageField" to string(integer(the timer * 4.5 / 20) * 10) & " kB copied (" & string(20 + random(5)) & "." & string(random(10) - 1) & " kB / sec)"
  15.     end if
  16.     go(#loop)
  17.   else
  18.     go(#next)
  19.   end if
  20. end
  21.