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