hedgewars/uGears.pas
changeset 10490 b30b8d39d662
parent 10395 0d20f6fc038a
child 10494 0eb97cf4c78e
equal deleted inserted replaced
10489:bde3e43d7b27 10490:b30b8d39d662
   854     if x < 4 then
   854     if x < 4 then
   855         begin
   855         begin
   856         t:= byte(s[2]);  // team
   856         t:= byte(s[2]);  // team
   857         if Length(s) > 2 then
   857         if Length(s) > 2 then
   858             h:= byte(s[3])  // target hog
   858             h:= byte(s[3])  // target hog
       
   859         else
       
   860             h:= 0
   859         end;
   861         end;
   860     // allow targetting a hog by specifying a number as the first portion of the text
   862     // allow targetting a hog by specifying a number as the first portion of the text
   861     if (x < 4) and (h > byte('0')) and (h < byte('9')) then
   863     if (x < 4) and (h > byte('0')) and (h < byte('9')) then
   862         i:= h - 48;
   864         i:= h - 48;
   863     if i <> 0 then
   865     if i <> 0 then