equal
deleted
inserted
replaced
5120 Y:= Hedgehog^.Gear^.Y; |
5120 Y:= Hedgehog^.Gear^.Y; |
5121 end; |
5121 end; |
5122 end; |
5122 end; |
5123 |
5123 |
5124 procedure doStepIceGun(Gear: PGear); |
5124 procedure doStepIceGun(Gear: PGear); |
5125 const iceWaitCollision:Longint = 0; |
5125 const iceWaitCollision = 0; |
5126 const iceCollideWithGround:Longint = 1; |
5126 const iceCollideWithGround = 1; |
5127 //const iceWaitNextTarget:Longint = 2; |
5127 //const iceWaitNextTarget:Longint = 2; |
5128 //const iceCollideWithHog:Longint = 4; |
5128 //const iceCollideWithHog:Longint = 4; |
5129 const iceCollideWithWater:Longint = 5; |
5129 const iceCollideWithWater = 5; |
5130 //const waterFreezingTime:Longint = 500; |
5130 //const waterFreezingTime:Longint = 500; |
5131 const groundFreezingTime:Longint = 1000; |
5131 const groundFreezingTime = 1000; |
5132 const iceRadius = 32; |
5132 const iceRadius = 32; |
5133 const iceHeight = 40; |
5133 const iceHeight = 40; |
5134 var |
5134 var |
5135 HHGear, iter: PGear; |
5135 HHGear, iter: PGear; |
5136 landRect: TSDL_Rect; |
5136 landRect: TSDL_Rect; |
5216 begin |
5216 begin |
5217 vg:= AddVisualGear(hwRound(iter^.X)+random(4)-8, hwRound(iter^.Y)+random(8), vgtDust, 1); |
5217 vg:= AddVisualGear(hwRound(iter^.X)+random(4)-8, hwRound(iter^.Y)+random(8), vgtDust, 1); |
5218 if vg <> nil then |
5218 if vg <> nil then |
5219 begin |
5219 begin |
5220 i:= random(100) + 155; |
5220 i:= random(100) + 155; |
5221 vg^.Tint:= i shl 24 or i shl 16 or $FF shl 8 or Longword(random(200) + 55); |
5221 vg^.Tint:= (i shl 24) or (i shl 16) or ($FF shl 8) or (random(200) + 55); |
5222 vg^.Angle:= random(360); |
5222 vg^.Angle:= random(360); |
5223 vg^.dx:= 0.001 * random(80); |
5223 vg^.dx:= 0.001 * random(80); |
5224 vg^.dy:= 0.001 * random(80) |
5224 vg^.dy:= 0.001 * random(80) |
5225 end |
5225 end |
5226 end; |
5226 end; |