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