home *** CD-ROM | disk | FTP | other *** search
/ Club KidSoft Volume 3 #3 / CKSPCV33.BIN / movies / catalog.dir / 00027_Script_27 < prev    next >
Text File  |  1995-07-19  |  545b  |  23 lines
  1. -- Return arrow
  2. on mouseDown
  3.   global gMIAWOpen, gReturnStack
  4.   if gMIAWOpen = TRUE then exit
  5. --  alert "RetFrame =" && getLast(gReturnToStack)
  6.   Click
  7.   cursor 4
  8.   AllPuppetsOff
  9.   ShowAllChannels
  10.   
  11.   global BuyNowFromCover
  12.   if BuyNowFromCover = TRUE then
  13.     GoToMovie("COVER", "Choose")
  14.   else
  15.     global returnFromDetail
  16.     if marker(0) = label("Detail") then
  17.       set returnFromDetail = TRUE -- forces summary to show the correct page
  18.     else
  19.       set returnFromDetail = FALSE
  20.     end if
  21.     ReturnTo
  22.   end if
  23. end