equal
deleted
inserted
replaced
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); |
1230 disableLandBack:= true |
1230 //disableLandBack:= true |
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; |