home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT1.ZIP / D1.DXR / 00073_Controls1.ls < prev    next >
Encoding:
Text File  |  1995-11-01  |  1.4 KB  |  59 lines
  1. on mouseDown
  2.   global PH, FeaturesActive, DivsActive, Uactive
  3.   set PH to the mouseH
  4.   set FeaturesActive to 0
  5.   set DivsActive to 0
  6.   set Uactive to 1
  7.   set the puppet of sprite 8 to 1
  8.   set the puppet of sprite 9 to 1
  9.   set the puppet of sprite 10 to 1
  10.   set the locH of sprite 8 to -500
  11.   set the locH of sprite 9 to -500
  12.   set the locH of sprite 10 to -500
  13.   if PH < 142 then
  14.     cursor(4)
  15.     puppetSound("slide-in")
  16.     set the locH of sprite 8 to 93
  17.     set the locV of sprite 8 to 437
  18.   else
  19.     if (PH > 272) and (PH < 377) then
  20.       cursor(4)
  21.       puppetSound("slide-in")
  22.       set the locH of sprite 9 to 324
  23.       set the locV of sprite 9 to 437
  24.     else
  25.       if PH > 506 then
  26.         cursor(4)
  27.         puppetSound("slide-in")
  28.         set the locH of sprite 10 to 547
  29.         set the locV of sprite 10 to 437
  30.       end if
  31.     end if
  32.   end if
  33. end
  34.  
  35. on mouseUp
  36.   global PH
  37.   put PH
  38.   if PH < 142 then
  39.     set the locH of sprite 9 to -500
  40.     set the locH of sprite 10 to -500
  41.     go(label("features") + 1)
  42.   else
  43.     if (PH > 272) and (PH < 377) then
  44.       set the locH of sprite 8 to -500
  45.       set the locH of sprite 10 to -500
  46.       go("reviews")
  47.     else
  48.       if PH > 506 then
  49.         set the locH of sprite 8 to -500
  50.         set the locH of sprite 9 to -500
  51.         if the frame = label("lastDepart") then
  52.           quit()
  53.         end if
  54.         go("depart")
  55.       end if
  56.     end if
  57.   end if
  58. end
  59.