75 const cStereo_Sky           = 0.0500;

    75 const cStereo_Sky           = 0.0500;

    76       cStereo_Horizon       = 0.0250;

    76       cStereo_Horizon       = 0.0250;

    77       cStereo_Water_distant = 0.0125;

    77       cStereo_Water_distant = 0.0125;

    78       cStereo_Land          = 0.0075;

    78       cStereo_Land          = 0.0075;

    79       cStereo_Water_near    = 0.0025;

    79       cStereo_Water_near    = 0.0025;

    81 

    81 

    82 procedure InitWorld;

    82 procedure InitWorld;

    83 var i, t: LongInt;

    83 var i, t: LongInt;

    84     cp: PClan;

    84     cp: PClan;

    85     g: ansistring;

    85     g: ansistring;