home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp12.dxr / script_1.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  719 b   |  46 lines
  1. on startMovie
  2.   global gstp
  3.   set gstp to 0
  4.   cursor([7, 8])
  5. end
  6.  
  7. on stopMovie
  8.   global gsnd, gdep, gstp
  9.   if gstp = 0 then
  10.     set the soundLevel to gsnd
  11.     if the machineType <> 256 then
  12.       set the colorDepth to gdep
  13.     end if
  14.   end if
  15. end
  16.  
  17. on cursorh
  18.   global gtime1, gflag1
  19.   set gflag1 to gflag1 * -1
  20.   if gflag1 = 1 then
  21.     cursor([7, 8])
  22.   else
  23.     cursor([9, 10])
  24.   end if
  25.   set gtime1 to the timer + 30
  26. end
  27.  
  28. on waith num
  29.   global gtime1
  30.   set num to the timer + num
  31.   repeat while the timer < num
  32.     if the timer > gtime1 then
  33.       cursorh()
  34.     end if
  35.   end repeat
  36. end
  37.  
  38. on waitsndh
  39.   global gtime1
  40.   repeat while soundBusy(3)
  41.     if the timer > gtime1 then
  42.       cursorh()
  43.     end if
  44.   end repeat
  45. end
  46.