hedgewars/uLandObjects.pas
changeset 12597 00b539e6115d
parent 12195 4d818abdc00f
child 12598 d6bd8b327a09
equal deleted inserted replaced
12596:7bae1fab444b 12597:00b539e6115d
   257 var x1, x2, y, k, i, girderHeight: LongInt;
   257 var x1, x2, y, k, i, girderHeight: LongInt;
   258     rr: TSDL_Rect;
   258     rr: TSDL_Rect;
   259     bRes: boolean;
   259     bRes: boolean;
   260 begin
   260 begin
   261 if girSurf = nil then
   261 if girSurf = nil then
   262     girSurf:= LoadDataImageAltPath(ptCurrTheme, ptGraphics, 'Girder', ifCritical or ifTransparent or ifIgnoreCaps);
   262     girSurf:= LoadDataImageAltPath(ptCurrTheme, ptGraphics, 'Girder', ifCritical or ifColorKey or ifIgnoreCaps);
   263 
   263 
   264 girderHeight:= girSurf^.h;
   264 girderHeight:= girSurf^.h;
   265 
   265 
   266 y:= topY+150;
   266 y:= topY+150;
   267 repeat
   267 repeat
   683         begin
   683         begin
   684         inc(ThemeObjects.Count);
   684         inc(ThemeObjects.Count);
   685         with ThemeObjects.objs[Pred(ThemeObjects.Count)] do
   685         with ThemeObjects.objs[Pred(ThemeObjects.Count)] do
   686             begin
   686             begin
   687             i:= Pos(',', s);
   687             i:= Pos(',', s);
   688             Surf:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i))), ifTransparent or ifIgnoreCaps or ifCritical);
   688             Surf:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i))), ifColorKey or ifIgnoreCaps or ifCritical);
   689             Width:= Surf^.w;
   689             Width:= Surf^.w;
   690             Height:= Surf^.h;
   690             Height:= Surf^.h;
   691             Mask:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i)))+'_mask', ifTransparent or ifIgnoreCaps);
   691             Mask:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i)))+'_mask', ifColorKey or ifIgnoreCaps);
   692             Delete(s, 1, i);
   692             Delete(s, 1, i);
   693             i:= Pos(',', s);
   693             i:= Pos(',', s);
   694             Maxcnt:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   694             Maxcnt:= StrToInt(Trim(Copy(s, 1, Pred(i))));
   695             Delete(s, 1, i);
   695             Delete(s, 1, i);
   696             if (Maxcnt < 1) or (Maxcnt > MAXTHEMEOBJECTS) then
   696             if (Maxcnt < 1) or (Maxcnt > MAXTHEMEOBJECTS) then
   760         begin
   760         begin
   761         inc(SprayObjects.Count);
   761         inc(SprayObjects.Count);
   762         with SprayObjects.objs[Pred(SprayObjects.Count)] do
   762         with SprayObjects.objs[Pred(SprayObjects.Count)] do
   763             begin
   763             begin
   764             i:= Pos(',', s);
   764             i:= Pos(',', s);
   765             Surf:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i))), ifTransparent or ifIgnoreCaps);
   765             Surf:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i))), ifColorKey or ifIgnoreCaps);
   766             Width:= Surf^.w;
   766             Width:= Surf^.w;
   767             Height:= Surf^.h;
   767             Height:= Surf^.h;
   768             Delete(s, 1, i);
   768             Delete(s, 1, i);
   769             Maxcnt:= StrToInt(Trim(s));
   769             Maxcnt:= StrToInt(Trim(s));
   770             end;
   770             end;