hedgewars/uWorld.pas
changeset 6250 cd01e4f93ed9
parent 6249 cacab1db8af8
child 6276 1e2f8da1860a
equal deleted inserted replaced
6249:cacab1db8af8 6250:cd01e4f93ed9
  1321 end;
  1321 end;
  1322 
  1322 
  1323 procedure HideMission;
  1323 procedure HideMission;
  1324 begin
  1324 begin
  1325     missionTimer:= 0;
  1325     missionTimer:= 0;
  1326     if missionTex <> nil then FreeTexture(missionTex);
       
  1327     missionTex:= nil;
       
  1328 end;
  1326 end;
  1329 
  1327 
  1330 procedure ShakeCamera(amount: LongInt);
  1328 procedure ShakeCamera(amount: LongInt);
  1331 begin
  1329 begin
  1332     if isCursorVisible then exit;
  1330     if isCursorVisible then exit;