equal
deleted
inserted
replaced
1441 end; |
1441 end; |
1442 |
1442 |
1443 procedure CreateBubblesForBullet(Gear: PGear); |
1443 procedure CreateBubblesForBullet(Gear: PGear); |
1444 var i, iInit: LongWord; |
1444 var i, iInit: LongWord; |
1445 begin |
1445 begin |
|
1446 iInit:= 0; |
1446 if ((Gear^.State and gstDrowning) <> 0) and (Gear^.Health > 0) then |
1447 if ((Gear^.State and gstDrowning) <> 0) and (Gear^.Health > 0) then |
1447 begin |
1448 begin |
1448 // draw bubbles |
1449 // draw bubbles |
1449 if (not SuddenDeathDmg and (WaterOpacity < $FF)) or (SuddenDeathDmg and (SDWaterOpacity < $FF)) then |
1450 if (not SuddenDeathDmg and (WaterOpacity < $FF)) or (SuddenDeathDmg and (SDWaterOpacity < $FF)) then |
1450 begin |
1451 begin |
2065 targ, tmpG: PGear; |
2066 targ, tmpG: PGear; |
2066 trackSpeed, airFriction, tX, tY: hwFloat; |
2067 trackSpeed, airFriction, tX, tY: hwFloat; |
2067 isUnderwater: Boolean; |
2068 isUnderwater: Boolean; |
2068 sparkle: PVisualGear; |
2069 sparkle: PVisualGear; |
2069 begin |
2070 begin |
|
2071 targ:= nil; |
2070 if (Gear^.State and gstFrozen) <> 0 then |
2072 if (Gear^.State and gstFrozen) <> 0 then |
2071 begin |
2073 begin |
2072 if Gear^.Damage > 0 then |
2074 if Gear^.Damage > 0 then |
2073 begin |
2075 begin |
2074 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound); |
2076 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound); |
6628 var i,t,targDist,tmpDist: LongWord; |
6630 var i,t,targDist,tmpDist: LongWord; |
6629 targ, tmpG: PGear; |
6631 targ, tmpG: PGear; |
6630 tX, tY: hwFloat; |
6632 tX, tY: hwFloat; |
6631 vg: PVisualGear; |
6633 vg: PVisualGear; |
6632 begin |
6634 begin |
|
6635 targ:= nil; |
6633 doStepFallingGear(Gear); |
6636 doStepFallingGear(Gear); |
6634 if (Gear^.State and gstFrozen) <> 0 then |
6637 if (Gear^.State and gstFrozen) <> 0 then |
6635 begin |
6638 begin |
6636 if Gear^.Damage > 0 then |
6639 if Gear^.Damage > 0 then |
6637 begin |
6640 begin |