917      t: PGear;

   917      t: PGear;

   918 begin

   918 begin

   919     SpeechText:= ''; // in case it has not been consumed

   919     SpeechText:= ''; // in case it has not been consumed

   920 

   920 

   921     if (GameFlags and gfLowGravity) = 0 then

   921     if (GameFlags and gfLowGravity) = 0 then

   922         cGravity:= cMaxWindSpeed * 2;

   923         cGravity:= cMaxWindSpeed * 2;

   923 

   926 

   924     if (GameFlags and gfVampiric) = 0 then

   927     if (GameFlags and gfVampiric) = 0 then

   925         cVampiric:= false;

   928         cVampiric:= false;

   926 

   929 

   927     cDamageModifier:= _1;

   930     cDamageModifier:= _1;

  1092     Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0);

  1095     Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0);

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

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

  1094     end;

  1097     end;

  1095 

  1098 

  1096 if (GameFlags and gfLowGravity) <> 0 then

  1099 if (GameFlags and gfLowGravity) <> 0 then

  1097     cGravity:= cMaxWindSpeed;

  1101     cGravity:= cMaxWindSpeed;

  1098 

  1104 

  1099 if (GameFlags and gfVampiric) <> 0 then

  1105 if (GameFlags and gfVampiric) <> 0 then

  1100     cVampiric:= true;

  1106     cVampiric:= true;

  1101 

  1107 

  1102 Gear:= GearsList;

  1108 Gear:= GearsList;