hedgewars/uStore.pas
branch0.9.23
changeset 12900 c77d75dafe2e
parent 12849 22cc3d82905a
child 13321 dd1435f1a28c
equal deleted inserted replaced
12899:ff54aca22bb5 12900:c77d75dafe2e
   813             if GameLoading <> nil then
   813             if GameLoading <> nil then
   814                 GameLoading();
   814                 GameLoading();
   815         {$ENDIF}
   815         {$ENDIF}
   816         end;
   816         end;
   817 
   817 
   818     if checkFails(ProgrTex <> nil, 'Error - Progress Texure is nil!', true) then exit;
   818     if checkFails((ProgrTex <> nil) and (LoadingText <> nil), 'Error - Progress or Loading Texture is nil!', true) then exit;
   819 
   819 
   820     RenderClear();
   820     RenderClear();
   821     if Step < numsquares then
   821     if Step < numsquares then
   822         r.x:= 0
   822         r.x:= 0
   823     else
   823     else