home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp00.dxr / script_5.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  943 b   |  53 lines
  1. on exitFrame
  2.   global gtime1, gnum1, gwlist1
  3.   set gtime1 to 60
  4.   set gnum1 to 1
  5.   startTimer()
  6.   waitth(40)
  7.   repeat with n = 162 to 165
  8.     set the memberNum of sprite 1 to n
  9.     updateStage()
  10.     waitth(5)
  11.   end repeat
  12.   waitth(10)
  13.   repeat with n = 166 to 178
  14.     set the memberNum of sprite 1 to n
  15.     updateStage()
  16.     waitth(5)
  17.   end repeat
  18.   waitth(10)
  19.   repeat with n = 179 to 196
  20.     set the memberNum of sprite 1 to n
  21.     updateStage()
  22.     waitth(5)
  23.   end repeat
  24.   unLoadCast(161, 196)
  25.   waitth(30)
  26.   set gwlist1 to [3, 3]
  27.   set gtime1 to 1
  28. end
  29.  
  30. on waitth num
  31.   global gtime1
  32.   set num to the timer + num
  33.   repeat while the timer < num
  34.     if the mouseDown then
  35.       exith()
  36.     end if
  37.     if the timer > gtime1 then
  38.       cursorh()
  39.     end if
  40.   end repeat
  41. end
  42.  
  43. on cursorh
  44.   global gtime1, gnum1
  45.   set gnum1 to gnum1 * -1
  46.   if gnum1 = 1 then
  47.     cursor([1, 2])
  48.   else
  49.     cursor([3, 4])
  50.   end if
  51.   set gtime1 to the timer + 60
  52. end
  53.