hedgewars/GSHandlers.inc
changeset 6535 51a7e71ad317
parent 6532 76d63e00002f
child 6555 11f82e49d276
equal deleted inserted replaced
6534:e6cb8a41b5f4 6535:51a7e71ad317
  2618     AllInactive := false;
  2618     AllInactive := false;
  2619 
  2619 
  2620     if ((Gear^.Message and (not gmSwitch)) <> 0) or (TurnTimeLeft = 0) then
  2620     if ((Gear^.Message and (not gmSwitch)) <> 0) or (TurnTimeLeft = 0) then
  2621     begin
  2621     begin
  2622         HHGear := Gear^.Hedgehog^.Gear;
  2622         HHGear := Gear^.Hedgehog^.Gear;
  2623         Msg := Gear^.Message and (not gmSwitch);
  2623         //Msg := Gear^.Message and (not gmSwitch);
  2624         DeleteGear(Gear);
  2624         DeleteGear(Gear);
  2625         ApplyAmmoChanges(HHGear^.Hedgehog^);
  2625         ApplyAmmoChanges(HHGear^.Hedgehog^);
  2626 
  2626 
  2627         HHGear := CurrentHedgehog^.Gear;
  2627         HHGear := CurrentHedgehog^.Gear;
  2628         ApplyAmmoChanges(HHGear^.Hedgehog^);
  2628         ApplyAmmoChanges(HHGear^.Hedgehog^);
  2629         HHGear^.Message := Msg;
  2629         //HHGear^.Message := Msg;
  2630         exit
  2630         exit
  2631     end;
  2631     end;
  2632 
  2632 
  2633     if (Gear^.Message and gmSwitch) <> 0 then
  2633     if (Gear^.Message and gmSwitch) <> 0 then
  2634     begin
  2634     begin