17  *)

    17  *)

    18 

    18 

    19 unit uLandObjects;

    19 unit uLandObjects;

    20 interface

    20 interface

    21 uses SDLh;

    21 uses SDLh;

    23 

    23 

    24 procedure AddObjects();

    24 procedure AddObjects();

    25 procedure LoadThemeConfig;

    25 procedure LoadThemeConfig;

    26 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface);

    26 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface);

    27 procedure AddOnLandObjects(Surface: PSDL_Surface);

    27 procedure AddOnLandObjects(Surface: PSDL_Surface);