equal
deleted
inserted
replaced
5086 if GameTicks mod 10 = 0 then dec(Gear^.Health); |
5086 if GameTicks mod 10 = 0 then dec(Gear^.Health); |
5087 end; |
5087 end; |
5088 |
5088 |
5089 |
5089 |
5090 procedure updateTarget(Gear:PGear; newX, newY:HWFloat); |
5090 procedure updateTarget(Gear:PGear; newX, newY:HWFloat); |
5091 var |
5091 // var |
5092 iter:PGear; |
5092 // iter:PGear; |
5093 begin |
5093 begin |
5094 with Gear^ do |
5094 with Gear^ do |
5095 begin |
5095 begin |
5096 dX:= newX; |
5096 dX:= newX; |
5097 dY:= newY; |
5097 dY:= newY; |
5116 |
5116 |
5117 |
5117 |
5118 procedure doStepIceGun(Gear: PGear); |
5118 procedure doStepIceGun(Gear: PGear); |
5119 const iceWaitCollision:Longint = 0; |
5119 const iceWaitCollision:Longint = 0; |
5120 const iceCollideWithGround:Longint = 1; |
5120 const iceCollideWithGround:Longint = 1; |
5121 const iceWaitNextTarget:Longint = 2; |
5121 //const iceWaitNextTarget:Longint = 2; |
5122 const iceCollideWithHog:Longint = 4; |
5122 //const iceCollideWithHog:Longint = 4; |
5123 const iceCollideWithWater:Longint = 5; |
5123 const iceCollideWithWater:Longint = 5; |
5124 const waterFreezingTime:Longint = 500; |
5124 //const waterFreezingTime:Longint = 500; |
5125 const groundFreezingTime:Longint = 1000; |
5125 const groundFreezingTime:Longint = 1000; |
5126 const iceRadius = 32; |
5126 const iceRadius = 32; |
5127 const iceHeight = 40; |
5127 const iceHeight = 40; |
5128 var |
5128 var |
5129 HHGear: PGear; |
5129 HHGear: PGear; |