equal
deleted
inserted
replaced
5157 const iceSize :Longint = 255; |
5157 const iceSize :Longint = 255; |
5158 const iceHalfSize :Longint = 127; |
5158 const iceHalfSize :Longint = 127; |
5159 var |
5159 var |
5160 i, j: Longint; |
5160 i, j: Longint; |
5161 weight: Longint; |
5161 weight: Longint; |
5162 begin |
5162 landRect : TSDL_RECT; |
5163 |
5163 begin |
5164 for i := max(x - iceHalfSize, 0) to min(x + iceHalfSize, LAND_WIDTH-1) do |
5164 for i := max(x - iceHalfSize, 0) to min(x + iceHalfSize, LAND_WIDTH-1) do |
5165 begin |
5165 begin |
5166 for j := max(y - iceHalfSize, 0) to min(y + iceHalfSize, LAND_HEIGHT-1) do |
5166 for j := max(y - iceHalfSize, 0) to min(y + iceHalfSize, LAND_HEIGHT-1) do |
5167 begin |
5167 begin |
5168 weight := getPixelWeight(i, j); |
5168 weight := getPixelWeight(i, j); |
5179 end; |
5179 end; |
5180 end; |
5180 end; |
5181 end; |
5181 end; |
5182 end; |
5182 end; |
5183 SetAllHHToActive; |
5183 SetAllHHToActive; |
5184 UpdateLandTexture(x - iceHalfSize, iceSize, y - iceHalfSize, iceSize, true); |
5184 landRect.x := min(max(x - iceHalfSize, 0), LAND_WIDTH - 1); |
|
5185 landRect.y := min(max(y - iceHalfSize, 0), LAND_HEIGHT - 1); |
|
5186 landRect.w := min(iceSize, LAND_WIDTH - landRect.x - 1); |
|
5187 landRect.h := min(iceSize, LAND_HEIGHT - landRect.y - 1); |
|
5188 UpdateLandTexture(landRect.x, landRect.w, landRect.y, landRect.h, true); |
5185 end; |
5189 end; |
5186 |
5190 |
5187 |
5191 |
5188 procedure doStepIceGun(Gear: PGear); |
5192 procedure doStepIceGun(Gear: PGear); |
5189 const iceWaitCollision:Longint = 0; |
5193 const iceWaitCollision:Longint = 0; |