equal
deleted
inserted
replaced
325 AfterAttack |
325 AfterAttack |
326 end |
326 end |
327 end; |
327 end; |
328 |
328 |
329 //////////////////////////////////////////////////////////////////////////////// |
329 //////////////////////////////////////////////////////////////////////////////// |
330 procedure doStepDEagleShot(Gear: PGear); |
330 procedure doStepDEagleShotWork(Gear: PGear); |
331 var i, x, y: LongWord; |
331 var i, x, y: LongWord; |
332 oX, oY: hwFloat; |
332 oX, oY: hwFloat; |
333 begin |
333 begin |
334 AllInactive:= false; |
334 AllInactive:= false; |
335 i:= 80; |
335 i:= 80; |
351 dec(Gear^.Health, Gear^.Damage); |
351 dec(Gear^.Health, Gear^.Damage); |
352 Gear^.Damage:= 0 |
352 Gear^.Damage:= 0 |
353 end; |
353 end; |
354 if (Gear^.Health <= 0) or (Gear^.X < _0) or (Gear^.Y < _0) or (Gear^.X > _2048) or (Gear^.Y > _1024) then |
354 if (Gear^.Health <= 0) or (Gear^.X < _0) or (Gear^.Y < _0) or (Gear^.X > _2048) or (Gear^.Y > _1024) then |
355 DeleteGear(Gear) |
355 DeleteGear(Gear) |
|
356 end; |
|
357 |
|
358 procedure doStepDEagleShot(Gear: PGear); |
|
359 begin |
|
360 PlaySound(sndGun, false); |
|
361 Gear^.doStep:= @doStepDEagleShotWork |
356 end; |
362 end; |
357 |
363 |
358 //////////////////////////////////////////////////////////////////////////////// |
364 //////////////////////////////////////////////////////////////////////////////// |
359 procedure doStepActionTimer(Gear: PGear); |
365 procedure doStepActionTimer(Gear: PGear); |
360 begin |
366 begin |