home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp00.dxr / script_1.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  1.0 KB  |  71 lines
  1. on startMovie
  2.   global gstp
  3.   set gstp to 0
  4.   cursor([5, 6])
  5.   set the volume of sound 2 to 256
  6. end
  7.  
  8. on stopMovie
  9.   global gsnd, gdep, gstp
  10.   if gstp = 0 then
  11.     set the soundLevel to gsnd
  12.     if the machineType <> 256 then
  13.       set the colorDepth to gdep
  14.     end if
  15.   end if
  16. end
  17.  
  18. on exith
  19. end
  20.  
  21. on exith2
  22.   set the mouseDownScript to EMPTY
  23.   cursor([5, 6])
  24.   set the volume of sound 2 to 256
  25.   if the frame < label("p2") then
  26.     go("end1")
  27.   else
  28.     go("end2")
  29.   end if
  30.   abort()
  31. end
  32.  
  33. on curh
  34.   global gnum1
  35.   set gnum1 to gnum1 * -1
  36.   if gnum1 = 1 then
  37.     cursor([1, 2])
  38.   else
  39.     cursor([3, 4])
  40.   end if
  41. end
  42.  
  43. on waith num
  44.   global gflag1
  45.   set gflag1 to 1
  46.   repeat while gflag1 <> num
  47.     if the timer > 5 then
  48.       moveh()
  49.     end if
  50.     if the mouseDown then
  51.       exith()
  52.     end if
  53.   end repeat
  54. end
  55.  
  56. on moveh
  57.   global gtime1, gflag1
  58.   if gtime1 = 24 then
  59.     set gtime1 to 1
  60.   else
  61.     set gtime1 to gtime1 + 1
  62.   end if
  63.   if (gtime1 mod 12) = 0 then
  64.     curh()
  65.   end if
  66.   if (gtime1 mod 3) = 0 then
  67.     set gflag1 to gflag1 + 1
  68.   end if
  69.   startTimer()
  70. end
  71.