equal
deleted
inserted
replaced
469 HedgehogChAngle(HHGear); |
469 HedgehogChAngle(HHGear); |
470 if not cLaserSighting then // game doesn't have default laser sight. turn it on and give them a chance to aim |
470 if not cLaserSighting then // game doesn't have default laser sight. turn it on and give them a chance to aim |
471 begin |
471 begin |
472 cLaserSighting:= true; |
472 cLaserSighting:= true; |
473 HHGear^.Message:= 0; |
473 HHGear^.Message:= 0; |
474 dec(HHGear^.Angle,32) |
474 if(HHGear^.Angle - 32 >= 0) then dec(HHGear^.Angle,32) |
475 end; |
475 end; |
476 |
476 |
477 if (HHGear^.Message and gm_Attack) <> 0 then |
477 if (HHGear^.Message and gm_Attack) <> 0 then |
478 begin |
478 begin |
479 Gear^.State:= Gear^.State or gstAnimation; |
479 Gear^.State:= Gear^.State or gstAnimation; |
482 PlaySound(sndGun, false, nil); |
482 PlaySound(sndGun, false, nil); |
483 Gear^.doStep:= @doStepBulletWork; |
483 Gear^.doStep:= @doStepBulletWork; |
484 end |
484 end |
485 else |
485 else |
486 if (GameTicks mod 32) = 0 then |
486 if (GameTicks mod 32) = 0 then |
487 if (GameTicks mod 4096) < 2048 then inc(HHGear^.Angle) |
487 if (GameTicks mod 4096) < 2048 then |
488 else dec(HHGear^.Angle); |
488 begin |
489 |
489 if(HHGear^.Angle + 1 <= cMaxAngle) then inc(HHGear^.Angle) |
|
490 end |
|
491 else |
|
492 if(HHGear^.Angle - 1 >= 0) then dec(HHGear^.Angle); |
|
493 |
|
494 if (TurnTimeLeft > 0) then dec(TurnTimeLeft) |
490 end; |
495 end; |
491 |
496 |
492 //////////////////////////////////////////////////////////////////////////////// |
497 //////////////////////////////////////////////////////////////////////////////// |
493 procedure doStepActionTimer(Gear: PGear); |
498 procedure doStepActionTimer(Gear: PGear); |
494 begin |
499 begin |