1083     gtATSmoothWindCh: 

  1083     gtATFinishGame: 

  1084 begin

  1084     begin

  1085     if Gear^.Timer = 0 then

  1085         AllInactive := false;

  1086     begin

  1086         if Gear^.Timer = 1000 then

  1087         if WindBarWidth < Gear^.Tag then inc(WindBarWidth)

  1087         begin

  1088         else if WindBarWidth > Gear^.Tag then dec(WindBarWidth);

  1088             ScreenFade := sfToBlack;

  1089         if WindBarWidth <> Gear^.Tag then Gear^.Timer := 10;

  1089             ScreenFadeValue := 0;

  1090     end

  1090             ScreenFadeSpeed := 1;

  1091 end;

  1091         end;

  1092 gtATFinishGame: 

  1092         if Gear^.Timer = 0 then

  1093 begin

  1093         begin

  1094     AllInactive := false;

  1094             SendIPC('N');

  1095     if Gear^.Timer = 1000 then

  1095             SendIPC('q');

  1096     begin

  1096             GameState := gsExit

  1097         ScreenFade := sfToBlack;

  1097         end

  1098         ScreenFadeValue := 0;

  1098     end;

  1099         ScreenFadeSpeed := 1;

  1100     end;

  1101     if Gear^.Timer = 0 then

  1102     begin

  1103         SendIPC('N');

  1104         SendIPC('q');

  1105         GameState := gsExit

  1106     end

  1107 end;