home *** CD-ROM | disk | FTP | other *** search
/ Curio City 11 / CURIO11.bin / pc / movie / namio / qz_c.dir / 00043_EXITÇÃèàóù.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  513 b   |  24 lines
  1. global pframen, pmarkn, gnowplacelist
  2.  
  3. on exitFrame
  4.   cursor(0)
  5.   sound stop 1
  6.   sound stop 2
  7.   set pstrt to getAt(gnowplacelist, 1)
  8.   set pdirc to getAt(gnowplacelist, 3)
  9.   case pstrt of
  10.     "X", "Y", "Z":
  11.       if (pdirc = 2) or (pdirc = 3) then
  12.         go(pframen + 3, "@.../walk/walk")
  13.       else
  14.         go(pmarkn, "walk")
  15.       end if
  16.     otherwise:
  17.       if (pdirc = 2) or (pdirc = 4) then
  18.         go(pframen + 3, "@.../walk/walk")
  19.       else
  20.         go(pmarkn, "@::walk:walk")
  21.       end if
  22.   end case
  23. end
  24.