home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT1.ZIP / D1.DXR / 00074.ls < prev    next >
Encoding:
Text File  |  1995-11-01  |  2.2 KB  |  81 lines
  1. on mouseUp
  2.   global QTVidsAvail, FeaturesActive, DivsActive, Uactive
  3.   set DivsActive to 0
  4.   puppetSprite(18, 0)
  5.   set Uactive to 1
  6.   if (the mouseV > 169) and (the mouseV < 187) then
  7.     puppetSound("slide-in")
  8.     updateStage()
  9.     cursor(4)
  10.     go("FS1")
  11.   else
  12.     if (the mouseV > 194) and (the mouseV < 210) then
  13.       puppetSound("slide-in")
  14.       updateStage()
  15.       cursor(4)
  16.       go("FS2")
  17.     else
  18.       if (the mouseV > 217) and (the mouseV < 234) then
  19.         puppetSound("slide-in")
  20.         updateStage()
  21.         cursor(4)
  22.         go("FS3")
  23.       else
  24.         if (the mouseV > 241) and (the mouseV < 257) then
  25.           puppetSound("slide-in")
  26.           updateStage()
  27.           cursor(4)
  28.           go("FS4")
  29.         else
  30.           if (the mouseV > 264) and (the mouseV < 282) then
  31.             puppetSound("slide-in")
  32.             updateStage()
  33.             cursor(4)
  34.             if QTVidsAvail then
  35.               puppetSprite(17, 0)
  36.               set FeaturesActive to 0
  37.               go("FS5")
  38.             else
  39.               puppetSound("NoVids")
  40.               cursor(-1)
  41.             end if
  42.           else
  43.             if (the mouseV > 289) and (the mouseV < 306) then
  44.               puppetSound("slide-in")
  45.               updateStage()
  46.               cursor(4)
  47.               go("FS6")
  48.             else
  49.               if (the mouseV > 313) and (the mouseV < 329) then
  50.                 puppetSound("slide-in")
  51.                 updateStage()
  52.                 cursor(4)
  53.                 go("FS7")
  54.               else
  55.                 if (the mouseV > 337) and (the mouseV < 354) then
  56.                   puppetSound("slide-in")
  57.                   updateStage()
  58.                   cursor(4)
  59.                   go("FS8")
  60.                 else
  61.                   if (the mouseV > 362) and (the mouseV < 378) then
  62.                     puppetSound("slide-in")
  63.                     updateStage()
  64.                     cursor(4)
  65.                     if QTVidsAvail then
  66.                       go("FS9")
  67.                     else
  68.                       puppetSound("NoVids")
  69.                       cursor(-1)
  70.                     end if
  71.                   end if
  72.                 end if
  73.               end if
  74.             end if
  75.           end if
  76.         end if
  77.       end if
  78.     end if
  79.   end if
  80. end
  81.