hedgewars/uLandObjects.pas
changeset 2152 a2811690da1b
parent 1918 975d5061712f
child 2171 8208946331ba
equal deleted inserted replaced
2151:541d3a475442 2152:a2811690da1b
    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);
    28 
    28 
    29 implementation
    29 implementation
    30 uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uFloat, 
    30 uses uLand, uStore, uConsts, uMisc, uConsole, uRandom, uVisualGears, uFloat, 
    31 {$IFDEF IPHONE}
    31 {$IFDEF GLES11}
    32 	gles11,
    32 	gles11,
    33 {$ELSE}
    33 {$ELSE}
    34 	GL,
    34 	GL,
    35 {$ENDIF}
    35 {$ENDIF}
    36 	uSound, uWorld;
    36 	uSound, uWorld;