hedgewars/uLandObjects.pas
changeset 279 5df0ab96b60a
parent 184 f97a7a3dc8f6
child 351 29bc9c36ad5f
equal deleted inserted replaced
278:15ff0ad81d49 279:5df0ab96b60a
   357     begin
   357     begin
   358     Readln(f, s); // filename
   358     Readln(f, s); // filename
   359     with ThemeObjects.objs[i] do
   359     with ThemeObjects.objs[i] do
   360          begin
   360          begin
   361          Surf:= LoadImage(Pathz[ptCurrTheme] + '/' + s, false);
   361          Surf:= LoadImage(Pathz[ptCurrTheme] + '/' + s, false);
   362          Read(f, Width, Height);
   362          Width:= Surf.w;
       
   363          Height:= Surf.h;
   363          with inland do Read(f, x, y, w, h);
   364          with inland do Read(f, x, y, w, h);
   364          Read(f, rectcnt);
   365          Read(f, rectcnt);
   365          for ii:= 1 to rectcnt do
   366          for ii:= 1 to rectcnt do
   366              with outland[ii] do Read(f, x, y, w, h);
   367              with outland[ii] do Read(f, x, y, w, h);
   367          Maxcnt:= 3;
   368          Maxcnt:= 3;