1089 var i: LongInt;

  1089 var i: LongInt;

  1090     Gear: PGear;

  1090     Gear: PGear;

  1091 begin

  1091 begin

  1092 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000);

  1092 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000);

  1093 

  1093 

  1100 for i:= 0 to Pred(cLandMines) do

  1094 for i:= 0 to Pred(cLandMines) do

  1101     begin

  1095     begin

  1102     Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0);

  1096     Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0);

  1103     FindPlace(Gear, false, 0, LAND_WIDTH);

  1097     FindPlace(Gear, false, 0, LAND_WIDTH);

  1104     end;

  1098     end;

  1892     GearsList:= nil;

  1886     GearsList:= nil;

  1893     KilledHHs:= 0;

  1887     KilledHHs:= 0;

  1894     SuddenDeath:= false;

  1888     SuddenDeath:= false;

  1895     SuddenDeathDmg:= false;

  1889     SuddenDeathDmg:= false;

  1896     SpeechType:= 1;

  1890     SpeechType:= 1;

  1898     skipFlag:= false;

  1891     skipFlag:= false;

  1899 

  1892 

  1900     AllInactive:= false;

  1893     AllInactive:= false;

  1901     PrvInactive:= false;

  1894     PrvInactive:= false;

  1902 end;

  1895 end;