equal
deleted
inserted
replaced
81 |
81 |
82 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear; |
82 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear; |
83 var gear: PGear; |
83 var gear: PGear; |
84 begin |
84 begin |
85 inc(GCounter); |
85 inc(GCounter); |
|
86 |
86 AddFileLog('AddGear: #' + inttostr(GCounter) + ' (' + inttostr(x) + ',' + inttostr(y) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind)); |
87 AddFileLog('AddGear: #' + inttostr(GCounter) + ' (' + inttostr(x) + ',' + inttostr(y) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind)); |
87 |
88 |
|
89 |
88 New(gear); |
90 New(gear); |
89 FillChar(gear^, sizeof(TGear), 0); |
91 FillChar(gear^, sizeof(TGear), 0); |
90 gear^.X:= int2hwFloat(X); |
92 gear^.X:= int2hwFloat(X); |
91 gear^.Y:= int2hwFloat(Y); |
93 gear^.Y:= int2hwFloat(Y); |
92 gear^.Target.X:= NoPointX; |
94 gear^.Target.X:= NoPointX; |
523 Gear^.Hedgehog^.Team^.Clan^.Flawless:= false; |
525 Gear^.Hedgehog^.Team^.Clan^.Flawless:= false; |
524 if (hwRound(Gear^.Y) >= cWaterLine) then |
526 if (hwRound(Gear^.Y) >= cWaterLine) then |
525 begin |
527 begin |
526 t:= max(Gear^.Damage, Gear^.Health); |
528 t:= max(Gear^.Damage, Gear^.Health); |
527 Gear^.Damage:= t; |
529 Gear^.Damage:= t; |
528 if ((not SuddenDeathDmg and (WaterOpacity < $FF)) or (SuddenDeathDmg and (WaterOpacity < $FF))) |
530 if (((not SuddenDeathDmg) and (WaterOpacity < $FF)) or (SuddenDeathDmg and (WaterOpacity < $FF))) |
529 and (hwRound(Gear^.Y) < cWaterLine + 256) then |
531 and (hwRound(Gear^.Y) < cWaterLine + 256) then |
530 spawnHealthTagForHH(Gear, t); |
532 spawnHealthTagForHH(Gear, t); |
531 end; |
533 end; |
532 |
534 |
533 team:= Gear^.Hedgehog^.Team; |
535 team:= Gear^.Hedgehog^.Team; |