home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / shared.dir / 00939_BGmenuBar.ls < prev    next >
Encoding:
Text File  |  1996-08-11  |  1.0 KB  |  42 lines
  1. on mouseDown
  2.   set menH to 18
  3.   set men1W to 100
  4.   set openTool to 0
  5.   repeat while the stillDown
  6.     set mh to the mouseH
  7.     set mv to the mouseV
  8.     if mv <= menH then
  9.       if mh <= men1W then
  10.         set openTool to 1
  11.         puppetSprite(48, 1)
  12.         set the lineSize of sprite 48 to 2
  13.         set the foreColor of sprite 48 to 26
  14.         set the castNum of sprite 48 to 945
  15.         spriteBox(48, 0, 0, 100, 19)
  16.         updateStage()
  17.       else
  18.         set openTool to 0
  19.       end if
  20.       next repeat
  21.     end if
  22.     set openTool to 0
  23.   end repeat
  24.   if openTool = 1 then
  25.     puppetSprite(47, 1)
  26.     set the type of sprite 47 to 1
  27.     set the stretch of sprite 47 to 0
  28.     set the castNum of sprite 47 to 810
  29.     set the locH of sprite 47 to 0
  30.     set the locV of sprite 47 to 0
  31.     puppetSprite(48, 1)
  32.     set the castNum of sprite 48 to 800
  33.     set the lineSize of sprite 48 to 0
  34.     spriteBox(48, 0, 0, 640, 480)
  35.     updateStage()
  36.   else
  37.     setOffStage("47, 48")
  38.     setPuppets(47, 48, 0)
  39.     updateStage()
  40.   end if
  41. end
  42.