home *** CD-ROM | disk | FTP | other *** search
/ NetComm Communications 5 / NetComm.iso / winfax / faxintro / cover.dir / 00158.ls < prev    next >
Encoding:
Text File  |  1997-02-27  |  888 b   |  39 lines
  1. on mouseclick
  2.   puppetSound("Mouse Down")
  3.   set cl to the clickOn
  4.   set tblend to the blend of sprite cl
  5.   set the blend of sprite cl to 40
  6.   updateStage()
  7.   repeat with x = 1 to 100
  8.     nothing()
  9.   end repeat
  10.   repeat while the mouseDown
  11.     nothing()
  12.   end repeat
  13.   set the blend of sprite cl to tblend
  14.   updateStage()
  15.   puppetSound(0)
  16.   sound close 2
  17. end
  18.  
  19. on checkcontrol a, b
  20.   global controlroll
  21.   set m to the mouseCast
  22.   if (m >= a) and (m <= b) then
  23.     set the blend of sprite 44 to 100
  24.     set the blend of sprite 45 to 100
  25.     set the blend of sprite 46 to 100
  26.     set the blend of sprite 47 to 100
  27.     set controlroll to 1
  28.     updateStage()
  29.   else
  30.     if controlroll = 1 then
  31.       set the blend of sprite 44 to 70
  32.       set the blend of sprite 45 to 70
  33.       set the blend of sprite 46 to 70
  34.       set the blend of sprite 47 to 70
  35.       updateStage()
  36.     end if
  37.   end if
  38. end
  39.