equal
deleted
inserted
replaced
28 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface); |
28 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface); |
29 procedure AddOnLandObjects(Surface: PSDL_Surface); |
29 procedure AddOnLandObjects(Surface: PSDL_Surface); |
30 |
30 |
31 implementation |
31 implementation |
32 uses uStore, uConsts, uConsole, uRandom, uVisualGears, uSound, GLunit, |
32 uses uStore, uConsts, uConsole, uRandom, uVisualGears, uSound, GLunit, |
33 uTypes, uVariables, uUtils, uIO; |
33 uTypes, uVariables, uUtils, uDebug; |
34 |
34 |
35 const MaxRects = 512; |
35 const MaxRects = 512; |
36 MAXOBJECTRECTS = 16; |
36 MAXOBJECTRECTS = 16; |
37 MAXTHEMEOBJECTS = 32; |
37 MAXTHEMEOBJECTS = 32; |
38 |
38 |