home *** CD-ROM | disk | FTP | other *** search
/ Pro-motion 2 / PM02-Disk1.iso / mac / Parts / Main.dir / Script_17_Control-Btn.ls < prev    next >
Encoding:
Text File  |  2001-01-31  |  1.1 KB  |  60 lines
  1. property spriteNum, status, downbtn, upbtn, ingbtn, rollbtn, myname
  2. global mdown, yubi, mode, activsp, activsam
  3.  
  4. on beginSprite me
  5.   downbtn = myname & "-Down"
  6.   upbtn = myname & "-Up"
  7.   ingbtn = myname & "-Ing"
  8.   rollbtn = myname & "-Roll"
  9. end
  10.  
  11. on mouseEnter me
  12.   if mdown = spriteNum then
  13.     set the member of sprite spriteNum to member(downbtn)
  14.     cursor(yubi)
  15.   else
  16.     if mdown <> 0 then
  17.       exit
  18.     else
  19.       cursor(yubi)
  20.       updateStage()
  21.     end if
  22.   end if
  23. end
  24.  
  25. on mouseLeave me
  26.   cursor(0)
  27.   set the member of sprite spriteNum to member(upbtn)
  28.   updateStage()
  29. end
  30.  
  31. on mouseDown me
  32.   mdown = spriteNum
  33.   set the member of sprite spriteNum to member(downbtn)
  34.   updateStage()
  35. end
  36.  
  37. on mouseUp me
  38.   if mdown <> spriteNum then
  39.     exit
  40.   end if
  41.   set the member of sprite spriteNum to member(upbtn)
  42.   sendSprite(spriteNum, #action)
  43.   updateStage()
  44.   mdown = 0
  45. end
  46.  
  47. on mouseUpOutSide me
  48.   if mdown <> spriteNum then
  49.     exit
  50.   end if
  51.   set the member of sprite spriteNum to member(upbtn)
  52.   updateStage()
  53.   mdown = 0
  54. end
  55.  
  56. on getPropertyDescriptionList
  57.   btn = [#myname: [#comment: "√â{√â^√â√¨√±¬∫:", #format: #string, #default: EMPTY]]
  58.   return btn
  59. end
  60.