72 amMine: AddGear(round(X) + Sign(dX) * 7, round(Y), gtMine, 0, Sign(dX) * 0.02, 0, 3000); |
72 amMine: AddGear(round(X) + Sign(dX) * 7, round(Y), gtMine, 0, Sign(dX) * 0.02, 0, 3000); |
73 amDEagle: begin |
73 amDEagle: begin |
74 FollowGear:= AddGear(round(X), round(Y), gtDEagleShot, 0, xx * 0.5, yy * 0.5); |
74 FollowGear:= AddGear(round(X), round(Y), gtDEagleShot, 0, xx * 0.5, yy * 0.5); |
75 end; |
75 end; |
76 amDynamite: AddGear(round(X) + Sign(dX) * 7, round(Y), gtDynamite, 0, Sign(dX) * 0.035, 0, 5000); |
76 amDynamite: AddGear(round(X) + Sign(dX) * 7, round(Y), gtDynamite, 0, Sign(dX) * 0.035, 0, 5000); |
|
77 amBaseballBat: AddGear(round(X) + Sign(dX) * 10, round(Y), gtShover, 0, xx * 0.5, yy * 0.5).Radius:= 15 |
77 end; |
78 end; |
78 Power:= 0; |
79 Power:= 0; |
79 if CurAmmoGear <> nil then |
80 if CurAmmoGear <> nil then |
80 begin |
81 begin |
81 Gear.Message:= Gear.Message or gm_Attack; |
82 Gear.Message:= Gear.Message or gm_Attack; |