home *** CD-ROM | disk | FTP | other *** search
/ Sunday That One Day / STOD_VFS_INVIS.ISO / pc / chapel.dxr / 01043_BedExitHandler.ls < prev    next >
Encoding:
Text File  |  1995-09-15  |  369 b   |  20 lines
  1. on BedExitHandler
  2.   global LeaveYet
  3.   CanILeaveHandler()
  4.   if LeaveYet = 2 then
  5.     CursorOff()
  6.     puppetSound("MomEatBreakfast")
  7.     updateStage()
  8.     repeat while soundBusy(1)
  9.       nothing()
  10.     end repeat
  11.     puppetSound(0)
  12.     repeat with chunker = 15 down to 10
  13.       puppetSprite(chunker, 0)
  14.     end repeat
  15.     go("BedExit")
  16.   else
  17.     CantLeave()
  18.   end if
  19. end
  20.