equal
deleted
inserted
replaced
118 end; |
118 end; |
119 |
119 |
120 procedure AcceptChatString(s: shortstring); |
120 procedure AcceptChatString(s: shortstring); |
121 var i: TWave; |
121 var i: TWave; |
122 begin |
122 begin |
123 if s[1] = '/' then |
123 if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then |
124 begin |
124 begin |
125 if CurrentTeam^.ExtDriven then exit; |
125 if CurrentTeam^.ExtDriven then exit; |
126 |
126 |
127 for i:= Low(TWave) to High(TWave) do |
127 for i:= Low(TWave) to High(TWave) do |
128 if (s = Wavez[i].cmd) then |
128 if (s = Wavez[i].cmd) then |