equal
deleted
inserted
replaced
1117 cLaserSighting:= true; |
1117 cLaserSighting:= true; |
1118 |
1118 |
1119 if (GameFlags and gfArtillery) <> 0 then |
1119 if (GameFlags and gfArtillery) <> 0 then |
1120 cArtillery:= true; |
1120 cArtillery:= true; |
1121 |
1121 |
1122 if (Theme = 'Snow') then// or (Theme = 'Hell') then |
1122 if (Theme = 'Snow') or (Theme = 'Christmas') then |
1123 for i:= 0 to Pred(vobCount*2) do |
1123 for i:= 0 to Pred(vobCount*2) do |
1124 AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(1024), gtFlake, 0, _0, _0, 0); |
1124 AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(1024), gtFlake, 0, _0, _0, 0); |
1125 end; |
1125 end; |
1126 |
1126 |
1127 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); |
1127 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); |