3238         Gear^.SoundChannel := LoopSound(sndPlaneWater, 4000);

  3238         Gear^.SoundChannel := LoopSound(sndPlaneWater, 4000);

  3239         Gear^.Karma := 1;

  3239         Gear^.Karma := 1;

  3240         end

  3240         end

  3241     else if  (WorldEdge = weWrap) then

  3241     else if  (WorldEdge = weWrap) then

  3242         begin

  3242         begin

  3244         Gear^.Karma := 0;

  3244         Gear^.Karma := 0;

  3245         end

  3245         end

  3246     else

  3246     else

  3247         begin

  3247         begin

  3248         Gear^.SoundChannel := LoopSound(sndPlane, 4000);

  3248         Gear^.SoundChannel := LoopSound(sndPlane, 4000);