hedgewars/uStore.pas
branchgl2
changeset 7387 f8a79052fe97
parent 7384 85b022855f9a
equal deleted inserted replaced
7384:85b022855f9a 7387:f8a79052fe97
   400                     begin
   400                     begin
   401                     sw:=Trunc(Width*scale);
   401                     sw:=Trunc(Width*scale);
   402                     sh:=Trunc(Height*scale);
   402                     sh:=Trunc(Height*scale);
   403                     if (sw > imageWidth) or (sh > imageHeight) then
   403                     if (sw > imageWidth) or (sh > imageHeight) then
   404                     begin
   404                     begin
   405                         if not (ii in [sprPHammer, sprBalls, sprSnow]) then
   405                         if not (ii in [sprPHammer, sprBalls, sprSnow, sprSDFlake]) then
   406                         begin
   406                         begin
   407                             writeln(stdout, 'Dimension error in ' + FileName + ' [' + IntToStr(Integer(ii)) + ']');
   407                             writeln(stdout, 'Dimension error in ' + FileName + ' [' + IntToStr(Integer(ii)) + ']');
   408                             halt(-1);
   408                             halt(-1);
   409                         end;
   409                         end;
   410                     end;
   410                     end;