equal
deleted
inserted
replaced
112 doStepSmokeTrace, |
112 doStepSmokeTrace, |
113 doStepExplosion, |
113 doStepExplosion, |
114 doStepMine, |
114 doStepMine, |
115 doStepCase, |
115 doStepCase, |
116 doStepDEagleShot, |
116 doStepDEagleShot, |
117 doStepDynamite |
117 doStepDynamite, |
|
118 doStepTeamHealthSorter |
118 ); |
119 ); |
119 |
120 |
120 function AddGear(X, Y: integer; Kind: TGearType; State: Cardinal; const dX: real=0.0; dY: real=0.0; Timer: LongWord=0): PGear; |
121 function AddGear(X, Y: integer; Kind: TGearType; State: Cardinal; const dX: real=0.0; dY: real=0.0; Timer: LongWord=0): PGear; |
121 begin |
122 begin |
122 {$IFDEF DEBUGFILE}AddFileLog('AddGear: ('+inttostr(x)+','+inttostr(y)+')');{$ENDIF} |
123 {$IFDEF DEBUGFILE}AddFileLog('AddGear: ('+inttostr(x)+','+inttostr(y)+')');{$ENDIF} |
275 RecountTeamHealth(PHedgehog(Gear.Hedgehog)^.Team); |
276 RecountTeamHealth(PHedgehog(Gear.Hedgehog)^.Team); |
276 |
277 |
277 Gear.Damage:= 0 |
278 Gear.Damage:= 0 |
278 end; |
279 end; |
279 Gear:= Gear.NextGear |
280 Gear:= Gear.NextGear |
280 end; |
281 end |
281 end; |
282 end; |
282 |
283 |
283 procedure ProcessGears; |
284 procedure ProcessGears; |
284 const delay: integer = cInactDelay; |
285 const delay: integer = cInactDelay; |
285 step: (stDelay, stChDmg, stSpawn, stNTurn) = stDelay; |
286 step: (stDelay, stChDmg, stSpawn, stNTurn) = stDelay; |