equal
deleted
inserted
replaced
104 begin |
104 begin |
105 if t^.Name = CmdStr then |
105 if t^.Name = CmdStr then |
106 begin |
106 begin |
107 if TrustedSource or t^.Trusted then |
107 if TrustedSource or t^.Trusted then |
108 begin |
108 begin |
109 if t^.Rand and (not CheckNoTeamOrHH) then |
109 if t^.Rand and (not CheckNoTeamOrHH) then |
110 CheckSum:= CheckSum xor LongWord(SDLNet_Read32(@CmdStr)) xor LongWord(s[0]) xor GameTicks; |
110 CheckSum:= CheckSum xor LongWord(SDLNet_Read32(@CmdStr)) xor LongWord(s[0]) xor GameTicks; |
111 t^.Handler(s); |
111 t^.Handler(s); |
112 end; |
112 end; |
113 exit |
113 exit |
114 end |
114 end |
137 procedure StopMessages(Message: Longword); |
137 procedure StopMessages(Message: Longword); |
138 begin |
138 begin |
139 if (Message and gmLeft) <> 0 then |
139 if (Message and gmLeft) <> 0 then |
140 ParseCommand('/-left', true) |
140 ParseCommand('/-left', true) |
141 else if (Message and gmRight) <> 0 then |
141 else if (Message and gmRight) <> 0 then |
142 ParseCommand('/-right', true) |
142 ParseCommand('/-right', true) |
143 else if (Message and gmUp) <> 0 then |
143 else if (Message and gmUp) <> 0 then |
144 ParseCommand('/-up', true) |
144 ParseCommand('/-up', true) |
145 else if (Message and gmDown) <> 0 then |
145 else if (Message and gmDown) <> 0 then |
146 ParseCommand('/-down', true) |
146 ParseCommand('/-down', true) |
147 else if (Message and gmAttack) <> 0 then |
147 else if (Message and gmAttack) <> 0 then |