equal
deleted
inserted
replaced
1749 i, x, t, h: byte; |
1749 i, x, t, h: byte; |
1750 c, j: LongInt; |
1750 c, j: LongInt; |
1751 begin |
1751 begin |
1752 hh:= nil; |
1752 hh:= nil; |
1753 i:= 0; |
1753 i:= 0; |
|
1754 t:= 0; |
1754 x:= byte(s[1]); // speech type |
1755 x:= byte(s[1]); // speech type |
1755 t:= byte(s[2]); // team |
1756 if x < 4 then |
1756 h:= byte(s[3]); // target hog |
1757 begin |
|
1758 t:= byte(s[2]); // team |
|
1759 if Length(s) > 2 then h:= byte(s[3]) // target hog |
|
1760 end; |
1757 // allow targetting a hog by specifying a number as the first portion of the text |
1761 // allow targetting a hog by specifying a number as the first portion of the text |
1758 if (x < 4) and (h > byte('0')) and (h < byte('9')) then i:= h - 48; |
1762 if (x < 4) and (h > byte('0')) and (h < byte('9')) then i:= h - 48; |
1759 if i <> 0 then text:= copy(s, 4, Length(s) - 1) |
1763 if i <> 0 then text:= copy(s, 4, Length(s) - 1) |
1760 else if x < 4 then text:= copy(s, 3, Length(s) - 1) |
1764 else if x < 4 then text:= copy(s, 3, Length(s) - 1) |
1761 else text:= copy(s, 2, Length(s) - 1); |
1765 else text:= copy(s, 2, Length(s) - 1); |