1239 

  1239 

  1240 if (GameFlags and gfArtillery) <> 0 then

  1240 if (GameFlags and gfArtillery) <> 0 then

  1241     cArtillery:= true;

  1241     cArtillery:= true;

  1242 

  1242 

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

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

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

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

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

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

  1249 end;

  1246 end;

  1250 

  1247 

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

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

  1252 var Gear: PGear;

  1249 var Gear: PGear;

  1253     dmg, dmgRadius, dmgBase: LongInt;

  1250     dmg, dmgRadius, dmgBase: LongInt;