equal
deleted
inserted
replaced
1753 i:= 0; |
1753 i:= 0; |
1754 x:= byte(s[1]); // speech type |
1754 x:= byte(s[1]); // speech type |
1755 t:= byte(s[2]); // team |
1755 t:= byte(s[2]); // team |
1756 h:= byte(s[3]); // target hog |
1756 h:= byte(s[3]); // target hog |
1757 // allow targetting a hog by specifying a number as the first portion of the text |
1757 // allow targetting a hog by specifying a number as the first portion of the text |
1758 if (h > byte('0')) and (h < byte('9')) then i:= h - 48; |
1758 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) |
1759 if i <> 0 then text:= copy(s, 4, Length(s) - 1) |
1760 else text:= copy(s, 3, Length(s) - 1); |
1760 else if x < 4 then text:= copy(s, 3, Length(s) - 1) |
|
1761 else text:= copy(s, 2, Length(s) - 1); |
|
1762 |
1761 if CheckNoTeamOrHH then |
1763 if CheckNoTeamOrHH then |
1762 begin |
1764 begin |
1763 ParseCommand('say ' + text, true); |
1765 ParseCommand('say ' + text, true); |
1764 exit |
1766 exit |
1765 end; |
1767 end; |