1225 

  1225 

  1226 if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) then

  1226 if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) then

  1227     begin

  1227     begin

  1228     for i:= 0 to Pred(vobCount*2) do

  1228     for i:= 0 to Pred(vobCount*2) do

  1229         AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(LAND_HEIGHT div 2), gtFlake, 0, _0, _0, 0);

  1229         AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(LAND_HEIGHT div 2), gtFlake, 0, _0, _0, 0);

  1231     end

  1231     end

  1232 end;

  1232 end;

  1233 

  1233 

  1234 procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword; const Tint: LongWord);

  1234 procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword; const Tint: LongWord);

  1235 var Gear: PGear;

  1235 var Gear: PGear;