Chip 1998 July/Chip_1998-07_cd.bin/zkuste/mazda/Hatch311.dxr/Internal_3_PosunMe.ls

Text File | 1998-05-12 | 443 b | 19 lines

property okolik, kam

on MoveSpr me, nakolik, kam
  set myLocV to the locV of sprite the spriteNum of me
  set myLocH to the locH of sprite the spriteNum of me
  case kam of
    "L":
      if myLocV > nakolik then
        set the locV of sprite the spriteNum of me to myLocV - 1
      end if
    "P":
      if myLocV < nakolik then
        set the locV of sprite the spriteNum of me to myLocV + 1
      end if
    "N":
    "D":
  end case
end