home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / optimus / agata / title.dir / 00006.ls < prev    next >
Encoding:
Text File  |  1997-02-20  |  560 b   |  31 lines
  1. on exitFrame
  2.   global gPath
  3.   if soundBusy(3) = 0 then
  4.     sound close 1
  5.     sound close 2
  6.     sound close 3
  7.     sound close 4
  8.     set the keyDownScript to EMPTY
  9.     repeat with i = 1 to 47
  10.       set the visible of sprite i to 0
  11.     end repeat
  12.     go("toHome")
  13.   end if
  14.   go(the frame)
  15. end
  16.  
  17. on keyDown
  18.   global gPath
  19.   if the key = " " then
  20.     sound close 1
  21.     sound close 2
  22.     sound close 3
  23.     sound close 4
  24.     set the keyDownScript to EMPTY
  25.     repeat with i = 1 to 47
  26.       set the visible of sprite i to 0
  27.     end repeat
  28.     go("toHome")
  29.   end if
  30. end
  31.