home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00484.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  674 b   |  22 lines
  1. on managePopMenu Hoff, Voff, popItems
  2.   global castData
  3.   set me to the clickOn
  4.   set x to the castNum of sprite me
  5.   set the castNum of sprite me to x + 1
  6.   set theLt to the left of sprite me
  7.   set theTp to the top of sprite me
  8.   set theRt to the right of sprite me
  9.   set theBt to the bottom of sprite me
  10.   spriteBox(me, theLt + 1, theTp, theLt + Hoff, theTp + Voff)
  11.   set the visible of sprite me to 0
  12.   repeat while the mouseDown
  13.     set the visible of sprite me to 1
  14.     updateStage()
  15.   end repeat
  16.   set the visible of sprite me to 0
  17.   set the castNum of sprite me to x
  18.   spriteBox(me, theLt, theTp, theRt, theBt)
  19.   set the visible of sprite me to 1
  20.   updateStage()
  21. end
  22.