home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2003 #5 / K-CD-5-2003.ISO / Layout / data1.cab / QuickTours / qt09lgpl.exe / qt09lgpl.dxr / 00024.ls < prev    next >
Encoding:
Text File  |  2002-07-29  |  949 b   |  47 lines
  1. on enterFrame
  2.   put the frame into word 1 of field 23
  3.   if the frame = 1 then
  4.     set the memberNum of sprite 18 to 18
  5.     set the memberNum of sprite 17 to 19
  6.     set the memberNum of sprite 16 to 15
  7.   else
  8.     set the memberNum of sprite 18 to 9
  9.     set the memberNum of sprite 17 to 12
  10.     if the frame = the lastFrame then
  11.       set the memberNum of sprite 16 to 20
  12.     else
  13.       set the memberNum of sprite 16 to 15
  14.     end if
  15.   end if
  16.   updateStage()
  17.   pause()
  18. end
  19.  
  20. on idle
  21.   if rollOver(15) or rollOver(16) or rollOver(17) or rollOver(18) then
  22.     cursor([84, 85])
  23.   else
  24.     cursor(0)
  25.   end if
  26.   pass()
  27. end
  28.  
  29. on doAnim
  30.   if the frame = 3 then
  31.     set the memberNum of sprite 9 to 88
  32.     countTime(45)
  33.     set the memberNum of sprite 9 to 89
  34.     countTime(45)
  35.     set the memberNum of sprite 9 to 90
  36.     countTime(45)
  37.   end if
  38. end
  39.  
  40. on countTime val
  41.   startTimer()
  42.   updateStage()
  43.   repeat while the timer < val
  44.     nothing()
  45.   end repeat
  46. end
  47.