equal
deleted
inserted
replaced
70 else |
70 else |
71 GearsList:= Gear^.NextGear |
71 GearsList:= Gear^.NextGear |
72 end; |
72 end; |
73 |
73 |
74 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear; |
74 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear; |
75 const Counter: Longword = 0; |
|
76 var gear: PGear; |
75 var gear: PGear; |
77 begin |
76 begin |
78 inc(Counter); |
77 inc(Counter); |
79 AddFileLog('AddGear: #' + inttostr(Counter) + ' (' + inttostr(x) + ',' + inttostr(y) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind)); |
78 AddFileLog('AddGear: #' + inttostr(Counter) + ' (' + inttostr(x) + ',' + inttostr(y) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind)); |
80 |
79 |
500 Gear^.Hedgehog^.Team^.Clan^.Flawless:= false; |
499 Gear^.Hedgehog^.Team^.Clan^.Flawless:= false; |
501 if (hwRound(Gear^.Y) >= cWaterLine) then |
500 if (hwRound(Gear^.Y) >= cWaterLine) then |
502 begin |
501 begin |
503 t:= max(Gear^.Damage, Gear^.Health); |
502 t:= max(Gear^.Damage, Gear^.Health); |
504 Gear^.Damage:= t; |
503 Gear^.Damage:= t; |
505 if ((not SuddenDeathDmg and (cWaterOpacity < $FF)) or (SuddenDeathDmg and (cWaterOpacity < $FF))) |
504 if ((not SuddenDeathDmg and (WaterOpacity < $FF)) or (SuddenDeathDmg and (WaterOpacity < $FF))) |
506 and (hwRound(Gear^.Y) < cWaterLine + 256) then |
505 and (hwRound(Gear^.Y) < cWaterLine + 256) then |
507 spawnHealthTagForHH(Gear, t); |
506 spawnHealthTagForHH(Gear, t); |
508 end; |
507 end; |
509 |
508 |
510 team:= Gear^.Hedgehog^.Team; |
509 team:= Gear^.Hedgehog^.Team; |