hedgewars/uWorld.pas
changeset 3045 41732f986b4f
parent 3038 4e48c276a468
child 3089 8ad00781be08
equal deleted inserted replaced
3044:8466bd29280f 3045:41732f986b4f
   921     end;
   921     end;
   922 end;
   922 end;
   923 
   923 
   924 procedure HideMission;
   924 procedure HideMission;
   925 begin
   925 begin
   926     missionTimer:= 0
   926     missionTimer:= 0;
       
   927     if missionTex <> nil then FreeTexture(missionTex);
   927 end;
   928 end;
   928 
   929 
   929 procedure ShakeCamera(amount: LongWord);
   930 procedure ShakeCamera(amount: LongWord);
   930 begin
   931 begin
   931     amount:= max(1, amount);
   932     amount:= max(1, amount);
   955     FillChar(Captions, sizeof(Captions), 0)
   956     FillChar(Captions, sizeof(Captions), 0)
   956 end;
   957 end;
   957 
   958 
   958 procedure freeModule;
   959 procedure freeModule;
   959 begin
   960 begin
   960     if missionTex <> nil then FreeTexture(missionTex);
       
   961 end;
   961 end;
   962 
   962 
   963 end.
   963 end.