home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp01a.dxr / script_7.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  576 b   |  32 lines

  1. on exitFrame
  2.   global gflag1
  3.   if gflag1 = 2 then
  4.     exitmenuh()
  5.   end if
  6.   if the timer > 5 then
  7.     counth()
  8.   end if
  9.   set the locH of sprite 31 to the mouseH
  10.   set the locV of sprite 31 to the mouseV
  11.   set the locH of sprite 32 to the mouseH
  12.   set the locV of sprite 32 to the mouseV
  13.   go(the frame)
  14. end
  15.  
  16. on counth
  17.   global gflag1
  18.   if gflag1 < 0 then
  19.     set gflag1 to gflag1 + 1
  20.   else
  21.     if gflag1 = 0 then
  22.       set gflag1 to 1
  23.       puppetSound(3, 99)
  24.     else
  25.       if not soundBusy(3) then
  26.         set gflag1 to 2
  27.       end if
  28.     end if
  29.   end if
  30.   counth2()
  31. end
  32.