equal
deleted
inserted
replaced
21 unit uLandObjects; |
21 unit uLandObjects; |
22 interface |
22 interface |
23 uses SDLh; |
23 uses SDLh; |
24 |
24 |
25 procedure AddObjects(); |
25 procedure AddObjects(); |
|
26 procedure FreeLandObjects(); |
26 procedure LoadThemeConfig; |
27 procedure LoadThemeConfig; |
27 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface); |
28 procedure BlitImageAndGenerateCollisionInfo(cpX, cpY, Width: Longword; Image: PSDL_Surface); |
28 procedure AddOnLandObjects(Surface: PSDL_Surface); |
29 procedure AddOnLandObjects(Surface: PSDL_Surface); |
29 |
30 |
30 implementation |
31 implementation |
524 procedure LoadThemeConfig; |
525 procedure LoadThemeConfig; |
525 begin |
526 begin |
526 ReadThemeInfo(ThemeObjects, SprayObjects) |
527 ReadThemeInfo(ThemeObjects, SprayObjects) |
527 end; |
528 end; |
528 |
529 |
|
530 procedure FreeLandObjects(); |
|
531 var i: Longword; |
|
532 begin |
|
533 for i:= 0 to Pred(ThemeObjects.Count) do |
|
534 with ThemeObjects.objs[i] do |
|
535 if Surf <> nil then SDL_FreeSurface(Surf); |
|
536 for i:= 0 to Pred(SprayObjects.Count) do |
|
537 with SprayObjects.objs[i] do |
|
538 if Surf <> nil then SDL_FreeSurface(Surf); |
|
539 end; |
|
540 |
529 end. |
541 end. |