home *** CD-ROM | disk | FTP | other *** search
/ Mac OS on the PowerPC Mic…rocessor - In Store Demo / Mac OS on the PowerPC Microprocessor.iso / MacOS / MacOS.dxr / 00074.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  460 b   |  21 lines
  1. global gDoorOpen, gDoorLoc
  2.  
  3. on mouseDown
  4.   pushBtn()
  5.   if rollOver(20) then
  6.     if gDoorOpen then
  7.       repeat with n = count(gDoorLoc) down to 1
  8.         set the loc of sprite 21 to getAt(gDoorLoc, n)
  9.         updateStage()
  10.       end repeat
  11.       set gDoorOpen to 0
  12.     else
  13.       repeat with n = 1 to count(gDoorLoc)
  14.         set the loc of sprite 21 to getAt(gDoorLoc, n)
  15.         updateStage()
  16.       end repeat
  17.       set gDoorOpen to 1
  18.     end if
  19.   end if
  20. end
  21.