home *** CD-ROM | disk | FTP | other *** search
/ Fun Online 1997 March / FOL0397.ISO / bindata / video.dxr / 00007.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  637 b   |  23 lines
  1. on zeitnehmer kommando, stelle
  2.   global startticks, timerlist, timerstelle
  3.   if kommando = "start" then
  4.     set startticks to the timer
  5.     set timerstelle to stelle
  6.   else
  7.     if kommando = "run" then
  8.       deleteAt(timerlist, stelle)
  9.       addAt(timerlist, stelle, "I")
  10.     else
  11.       if (timerstelle > 0) and (kommando = "stop") then
  12.         set stelle to timerstelle
  13.         set a to the timer
  14.         set tdif to (a - startticks) / 60
  15.         set bisher to getAt(timerlist, stelle)
  16.         deleteAt(timerlist, stelle)
  17.         addAt(timerlist, stelle, tdif + bisher)
  18.         set timerstelle to 0
  19.       end if
  20.     end if
  21.   end if
  22. end
  23.