hedgewars/uGearsHedgehog.pas
changeset 7069 bcf9d8e64e92
parent 7067 f98ec3aecf4e
child 7164 fad64b97947e
equal deleted inserted replaced
7068:b1b7eb9c8cc9 7069:bcf9d8e64e92
   138     if ((Gear^.Message and gmPrecise) <> 0) and ((CurWeapon^.Propz and ammoprop_SetBounce) <> 0) then
   138     if ((Gear^.Message and gmPrecise) <> 0) and ((CurWeapon^.Propz and ammoprop_SetBounce) <> 0) then
   139         begin
   139         begin
   140         color:= Gear^.Hedgehog^.Team^.Clan^.Color;
   140         color:= Gear^.Hedgehog^.Team^.Clan^.Color;
   141         case Gear^.MsgParam of
   141         case Gear^.MsgParam of
   142             1: begin
   142             1: begin
   143                AddCaption(format(trmsg[sidBounce], trmsg[sidBounce1]), color, capgrpAmmostate);
   143                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce1]), color, capgrpAmmostate);
   144                CurWeapon^.Bounciness:= 350;
   144                CurWeapon^.Bounciness:= 350;
   145                end;
   145                end;
   146             2: begin
   146             2: begin
   147                AddCaption(format(trmsg[sidBounce], trmsg[sidBounce2]), color, capgrpAmmostate);
   147                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce2]), color, capgrpAmmostate);
   148                CurWeapon^.Bounciness:= 700;
   148                CurWeapon^.Bounciness:= 700;
   149                end;
   149                end;
   150             3: begin
   150             3: begin
   151                AddCaption(format(trmsg[sidBounce], trmsg[sidBounce3]), color, capgrpAmmostate);
   151                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce3]), color, capgrpAmmostate);
   152                CurWeapon^.Bounciness:= 1000;
   152                CurWeapon^.Bounciness:= 1000;
   153                end;
   153                end;
   154             4: begin
   154             4: begin
   155                AddCaption(format(trmsg[sidBounce], trmsg[sidBounce4]), color, capgrpAmmostate);
   155                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce4]), color, capgrpAmmostate);
   156                CurWeapon^.Bounciness:= 2000;
   156                CurWeapon^.Bounciness:= 2000;
   157                end;
   157                end;
   158             5: begin
   158             5: begin
   159                AddCaption(format(trmsg[sidBounce], trmsg[sidBounce5]), color, capgrpAmmostate);
   159                AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce5]), color, capgrpAmmostate);
   160                CurWeapon^.Bounciness:= 4000;
   160                CurWeapon^.Bounciness:= 4000;
   161                end
   161                end
   162             end
   162             end
   163         end
   163         end
   164     else if (CurWeapon^.Propz and ammoprop_Timerable) <> 0 then
   164     else if (CurWeapon^.Propz and ammoprop_Timerable) <> 0 then