home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / vivi_ex.exe / vivi_ex.DXR / 00049.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  597 b   |  29 lines
  1. on mouseUp
  2.   global gnum1
  3.   set v to the mouseV
  4.   repeat with gnum1 = 1 to 10
  5.     if (v > (155 + (gnum1 * 20))) and (v < (172 + (gnum1 * 20))) then
  6.       exit repeat
  7.     end if
  8.   end repeat
  9.   if gnum1 = 11 then
  10.     exit
  11.   end if
  12.   cursor(200)
  13.   repeat with n = 46 to 48
  14.     set the cursor of sprite n to 0
  15.   end repeat
  16.   repeat with n = 14 to 38
  17.     set the cursor of sprite n to 0
  18.   end repeat
  19.   puppetSound(3, 98)
  20.   puppetSprite(46, 1)
  21.   set the locV of sprite 46 to 155 + (gnum1 * 20)
  22.   set the castNum of sprite 46 to 226
  23.   if the frame < 20 then
  24.     go("h2")
  25.   else
  26.     go("h3")
  27.   end if
  28. end
  29.