home *** CD-ROM | disk | FTP | other *** search
/ MacUser Mac Bin 36 / MACUSER-MACBIN36-1996-11.ISO.7z / MACUSER-MACBIN36-1996-11.ISO / MACBIN / inbox9611 / 00021_Script_21 < prev    next >
Text File  |  1996-09-23  |  954b  |  33 lines
  1. --Button Action
  2. on BAction
  3.   global RR
  4.   
  5.   put (the locV of sprite clickon()) + 1 into dV
  6.   put (the locH of sprite clickon()) + 1 into dH
  7.   set the locV of sprite clickOn() = dV
  8.   set the locH of sprite clickOn() = dH
  9.   upDateStage
  10.   repeat while stillDown()
  11.     if rollOver(clickOn()) or ｬ
  12.                        ((mouseV() >= (dv - 1) and mouseH() >= (dH - 1)) and (mouseV() <= the bottom of sprite clickOn() and ｬ
  13.                          mouseH() <= the right of sprite clickOn())) then 
  14.       set the locV of sprite clickOn() = dV
  15.       set the locH of sprite clickOn() = dH
  16.     else
  17.       set the locV of sprite clickOn() = dV - 1
  18.       set the locH of sprite clickOn() = dH - 1
  19.     end if
  20.     upDateStage
  21.   end repeat
  22.   put rollOver(clickOn()) into RR
  23.   set the locV of sprite clickOn() = dV - 1
  24.   set the locH of sprite clickOn() = dH - 1
  25.   
  26.   if RR=1 then
  27.     puppetsound "MUp"
  28.   end if
  29.   
  30.   upDateStage
  31.   
  32. end
  33.