home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp00.dxr / script_15.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  987 b   |  54 lines
  1. on exitFrame
  2.   global gflag1
  3.   puppetSound(3, 156)
  4.   preLoadCast(111, 115)
  5.   preLoadCast(67)
  6.   preLoadCast(69, 70)
  7.   preLoadCast(116)
  8.   set gflag1 to 110
  9.   repeat while gflag1 <> 116
  10.     if the timer > 5 then
  11.       moveh7()
  12.     end if
  13.     if the mouseDown then
  14.       exith()
  15.     end if
  16.   end repeat
  17.   repeat while soundBusy(3)
  18.     if the timer > 5 then
  19.       moveh7()
  20.     end if
  21.     if the mouseDown then
  22.       exith()
  23.     end if
  24.   end repeat
  25.   unLoadCast(111, 115)
  26.   unLoadCast(67)
  27.   unLoadCast(69, 70)
  28.   unLoadCast(116)
  29. end
  30.  
  31. on moveh7
  32.   global gtime1, gflag1
  33.   if gtime1 = 24 then
  34.     set gtime1 to 1
  35.   else
  36.     set gtime1 to gtime1 + 1
  37.   end if
  38.   if (gtime1 mod 12) = 0 then
  39.     curh()
  40.   end if
  41.   if (gflag1 <> 116) and ((gtime1 mod 2) = 0) then
  42.     intoh()
  43.   end if
  44.   updateStage()
  45.   startTimer()
  46. end
  47.  
  48. on intoh
  49.   global gflag1
  50.   set gflag1 to gflag1 + 1
  51.   set the memberNum of sprite 6 to gflag1
  52.   set the memberNum of sprite 7 to getAt([85, 67, 69, 70, 117, 116], gflag1 - 110)
  53. end
  54.