hedgewars/uGearsHedgehog.pas
changeset 13537 ee77086fc5fa
parent 13468 f1d349a52bc7
child 13538 0c8001e43fd3
equal deleted inserted replaced
13524:1232ab8206d4 13537:ee77086fc5fa
   183 CurWeapon:= GetCurAmmoEntry(Gear^.Hedgehog^);
   183 CurWeapon:= GetCurAmmoEntry(Gear^.Hedgehog^);
   184 with Gear^.Hedgehog^ do
   184 with Gear^.Hedgehog^ do
   185     if ((Gear^.Message and gmPrecise) <> 0) and ((CurWeapon^.Propz and ammoprop_SetBounce) <> 0) then
   185     if ((Gear^.Message and gmPrecise) <> 0) and ((CurWeapon^.Propz and ammoprop_SetBounce) <> 0) then
   186         begin
   186         begin
   187         color:= Gear^.Hedgehog^.Team^.Clan^.Color;
   187         color:= Gear^.Hedgehog^.Team^.Clan^.Color;
       
   188 
   188         case Gear^.MsgParam of
   189         case Gear^.MsgParam of
   189             1: begin
   190             1: begin
   190                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce1]), color, capgrpAmmostate);
   191                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce1]), color, capgrpAmmostate);
   191                CurWeapon^.Bounciness:= 350;
       
   192                end;
   192                end;
   193             2: begin
   193             2: begin
   194                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce2]), color, capgrpAmmostate);
   194                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce2]), color, capgrpAmmostate);
   195                CurWeapon^.Bounciness:= 700;
       
   196                end;
   195                end;
   197             3: begin
   196             3: begin
   198                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce3]), color, capgrpAmmostate);
   197                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce3]), color, capgrpAmmostate);
   199                CurWeapon^.Bounciness:= 1000;
       
   200                end;
   198                end;
   201             4: begin
   199             4: begin
   202                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce4]), color, capgrpAmmostate);
   200                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce4]), color, capgrpAmmostate);
   203                CurWeapon^.Bounciness:= 2000;
       
   204                end;
   201                end;
   205             5: begin
   202             5: begin
   206                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce5]), color, capgrpAmmostate);
   203                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce5]), color, capgrpAmmostate);
   207                CurWeapon^.Bounciness:= 4000;
       
   208                end
   204                end
   209             end
   205             end;
       
   206         CurWeapon^.Bounciness:= bouncinessLevels[Gear^.MsgParam - 1];
   210         end
   207         end
   211     else if (CurWeapon^.Propz and ammoprop_Timerable) <> 0 then
   208     else if (CurWeapon^.Propz and ammoprop_Timerable) <> 0 then
   212         begin
   209         begin
   213         CurWeapon^.Timer:= 1000 * Gear^.MsgParam;
   210         CurWeapon^.Timer:= 1000 * Gear^.MsgParam;
   214         with CurrentTeam^ do
   211         with CurrentTeam^ do