equal
deleted
inserted
replaced
572 end; |
572 end; |
573 |
573 |
574 if (HHGear^.Message and gm_Attack) <> 0 then |
574 if (HHGear^.Message and gm_Attack) <> 0 then |
575 begin |
575 begin |
576 shell:= AddVisualGear(hwRound(Gear^.x), hwRound(Gear^.y), vgtShell); |
576 shell:= AddVisualGear(hwRound(Gear^.x), hwRound(Gear^.y), vgtShell); |
577 shell^.dX:= gear^.dX / -2; |
577 if shell <> nil then |
578 shell^.dY:= gear^.dY / -2; |
578 begin |
579 shell^.Frame:= 1; |
579 shell^.dX:= gear^.dX / -2; |
|
580 shell^.dY:= gear^.dY / -2; |
|
581 shell^.Frame:= 1 |
|
582 end; |
580 Gear^.State:= Gear^.State or gstAnimation; |
583 Gear^.State:= Gear^.State or gstAnimation; |
581 Gear^.dX:= SignAs(AngleSin(HHGear^.Angle), HHGear^.dX) * _0_5; |
584 Gear^.dX:= SignAs(AngleSin(HHGear^.Angle), HHGear^.dX) * _0_5; |
582 Gear^.dY:= -AngleCos(HHGear^.Angle) * _0_5; |
585 Gear^.dY:= -AngleCos(HHGear^.Angle) * _0_5; |
583 PlaySound(sndGun); |
586 PlaySound(sndGun); |
584 Gear^.doStep:= @doStepBulletWork; |
587 Gear^.doStep:= @doStepBulletWork; |