home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / optimus / agata / home.dir / 00607.ls < prev    next >
Encoding:
Text File  |  1997-02-20  |  316 b   |  16 lines
  1. on doSalonu
  2.   global theCoord, gPath
  3.   if getPos(visitList, #lounge) = 0 then
  4.     append(visitList, #lounge)
  5.   end if
  6.   set the dontHumWinnie of theCoord to 1
  7.   sound stop 1
  8.   sound stop 2
  9.   sound stop 3
  10.   sound stop 4
  11.   repeat with i = 1 to 47
  12.     set the visible of sprite i to 0
  13.   end repeat
  14.   go("toLounge")
  15. end
  16.