Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uLandObjects.pas
changeset 5166 d1eb1560b4d5
parent 5014 adc340265ccf
child 5179 8d64dcb566ea
equal deleted inserted replaced
5165:91fb710a6668 5166:d1eb1560b4d5 
   366 end;
 
   366 end;
 
   367 
   367 
   368 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects);
 
   368 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects);
 
   369 var s, key: shortstring;
 
   369 var s, key: shortstring;
 
   370     f: textfile;
 
   370     f: textfile;
 
   371     i, ii, numFlakes: LongInt;
 
   371     i, ii: LongInt;
 
   372     c1, c2: TSDL_Color;
 
   372     c1, c2: TSDL_Color;
 
   373 
   373 
   374     procedure CheckRect(Width, Height, x, y, w, h: LongWord);
 
   374     procedure CheckRect(Width, Height, x, y, w, h: LongWord);
 
   375     begin
 
   375     begin
 
   376     if (x + w > Width) then OutError('Object''s rectangle exceeds image: x + w (' + inttostr(x) + ' + ' + inttostr(w) + ') > Width (' + inttostr(Width) + ')', true);
 
   376     if (x + w > Width) then OutError('Object''s rectangle exceeds image: x + w (' + inttostr(x) + ' + ' + inttostr(w) + ') > Width (' + inttostr(Width) + ')', true);
hedgewars