hedgewars/uWorld.pas
changeset 6249 cacab1db8af8
parent 6135 2172330ad52a
child 6250 cd01e4f93ed9
equal deleted inserted replaced
6248:103bc8fd4f1b 6249:cacab1db8af8
  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);
  1326     if missionTex <> nil then FreeTexture(missionTex);
       
  1327     missionTex:= nil;
  1327 end;
  1328 end;
  1328 
  1329 
  1329 procedure ShakeCamera(amount: LongInt);
  1330 procedure ShakeCamera(amount: LongInt);
  1330 begin
  1331 begin
  1331     if isCursorVisible then exit;
  1332     if isCursorVisible then exit;