equal
deleted
inserted
replaced
23 uses SDLh; |
23 uses SDLh; |
24 |
24 |
25 procedure AddObjects(); |
25 procedure AddObjects(); |
26 procedure FreeLandObjects(); |
26 procedure FreeLandObjects(); |
27 procedure LoadThemeConfig; |
27 procedure LoadThemeConfig; |
28 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface; extraFlags: Word = 0); |
28 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface); inline; |
|
29 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface; extraFlags: Word); |
29 procedure AddOnLandObjects(Surface: PSDL_Surface); |
30 procedure AddOnLandObjects(Surface: PSDL_Surface); |
30 |
31 |
31 implementation |
32 implementation |
32 uses uStore, uConsts, uConsole, uRandom, uSound, GLunit, |
33 uses uStore, uConsts, uConsole, uRandom, uSound, GLunit, |
33 uTypes, uVariables, uUtils, uDebug, sysutils; |
34 uTypes, uVariables, uUtils, uDebug, sysutils; |
63 var Rects: PRectArray; |
64 var Rects: PRectArray; |
64 RectCount: Longword; |
65 RectCount: Longword; |
65 ThemeObjects: TThemeObjects; |
66 ThemeObjects: TThemeObjects; |
66 SprayObjects: TSprayObjects; |
67 SprayObjects: TSprayObjects; |
67 |
68 |
68 |
69 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface); inline; |
69 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface; extraFlags: Word = 0); |
70 begin |
|
71 BlitImageAndGenerateCollisionInfo(cpX, cpY, Width, Image, 0); |
|
72 end; |
|
73 |
|
74 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface; extraFlags: Word); |
70 var p: PLongwordArray; |
75 var p: PLongwordArray; |
71 x, y: Longword; |
76 x, y: Longword; |
72 bpp: LongInt; |
77 bpp: LongInt; |
73 begin |
78 begin |
74 WriteToConsole('Generating collision info... '); |
79 WriteToConsole('Generating collision info... '); |