home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / vivi_ex.exe / vivi_ex.DXR / 00027.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  386 b   |  32 lines
  1. on exitFrame
  2.   global gmode
  3.   if gmode = 20 then
  4.     tmh()
  5.   else
  6.     cmh()
  7.   end if
  8. end
  9.  
  10. on tmh
  11.   global gscr, gbor
  12.   if gscr < gbor then
  13.     go("b")
  14.   else
  15.     go("g")
  16.   end if
  17. end
  18.  
  19. on cmh
  20.   global gstg
  21.   set gstg to gstg + 1
  22.   if gstg = 3 then
  23.     puppetSound(1, 64)
  24.     go("ra")
  25.   else
  26.     repeat with n = 14 to 38
  27.       puppetSprite(n, 0)
  28.     end repeat
  29.     go("ret")
  30.   end if
  31. end
  32.