home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp14.dxr / script_8.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  1.1 KB  |  62 lines
  1. on exitFrame
  2.   global gflag1
  3.   if not soundBusy(3) and (gflag1 > 1) then
  4.     yah()
  5.   end if
  6.   if the timer > 20 then
  7.     cursorh()
  8.   end if
  9.   go(the frame)
  10. end
  11.  
  12. on yah
  13.   global gflag1
  14.   if gflag1 = 120 then
  15.     set gflag1 to 1
  16.   else
  17.     set gflag1 to gflag1 + 1
  18.     puppetSound(3, gflag1 + 4)
  19.     set the memberNum of sprite 12 to gflag1
  20.     set the memberNum of sprite 11 to gflag1 + 8
  21.   end if
  22. end
  23.  
  24. on cursorh
  25.   global gnum1, gland, gflag1
  26.   if gnum1 = 4 then
  27.     set gnum1 to 1
  28.   else
  29.     set gnum1 to gnum1 + 1
  30.   end if
  31.   if (gflag1 = 1) and (gnum1 = 4) then
  32.     endkickh()
  33.   else
  34.     if gflag1 < 0 then
  35.       set gflag1 to gflag1 + 1
  36.     else
  37.       if gflag1 = 0 then
  38.         set gflag1 to 116
  39.       end if
  40.     end if
  41.     if (gnum1 mod 2) = 0 then
  42.       cursor([7, 8])
  43.       set the memberNum of sprite 5 to (30 * gland) - 6
  44.     else
  45.       cursor([9, 10])
  46.       if (gnum1 mod 4) = 1 then
  47.         set the memberNum of sprite 5 to (30 * gland) - 7
  48.       else
  49.         set the memberNum of sprite 5 to (30 * gland) - 5
  50.       end if
  51.     end if
  52.     startTimer()
  53.   end if
  54. end
  55.  
  56. on endkickh
  57.   sound stop 2
  58.   cursor([7, 8])
  59.   go(the frame + 1)
  60.   abort()
  61. end
  62.