home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00026.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  502 b   |  20 lines
  1. on exitFrame
  2.   global mnv, advance, ppl, foes
  3.   set the member of sprite getAt(ppl, 1) to member(1, 2)
  4.   setAt(mnv, 1, 1)
  5.   set the keyDownScript to EMPTY
  6.   set the keyUpScript to "hiplace"
  7.   if advance = 1 then
  8.     foes(getAt(foes, 1), getAt(ppl, 2))
  9.   else
  10.     if (advance = 2) or (advance = 3) then
  11.       foes(getAt(foes, 2), getAt(ppl, 3))
  12.       foes(getAt(foes, 3), getAt(ppl, 4))
  13.     else
  14.       if advance = 4 then
  15.         foes(getAt(foes, 1), getAt(ppl, 2))
  16.       end if
  17.     end if
  18.   end if
  19. end
  20.