hedgewars/uCommands.pas
changeset 7628 bc7b1d228a2c
parent 7426 55b49cc1f33a
child 7805 2a249a4faf5b
equal deleted inserted replaced
7533:7ee319134713 7628:bc7b1d228a2c
    91 t:= Variables;
    91 t:= Variables;
    92 while t <> nil do
    92 while t <> nil do
    93     begin
    93     begin
    94     if t^.Name = CmdStr then
    94     if t^.Name = CmdStr then
    95         begin
    95         begin
    96         if t^.Rand then CheckSum:= CheckSum xor LongWord(SDLNet_Read32(@CmdStr)) xor LongWord(s[0]) xor GameTicks;
       
    97         if TrustedSource or t^.Trusted then
    96         if TrustedSource or t^.Trusted then
       
    97             begin
       
    98             if t^.Rand and (not CheckNoTeamOrHH) then 
       
    99                 CheckSum:= CheckSum xor LongWord(SDLNet_Read32(@CmdStr)) xor LongWord(s[0]) xor GameTicks;
    98             t^.Handler(s);
   100             t^.Handler(s);
       
   101             end;
    99         exit
   102         exit
   100         end
   103         end
   101     else
   104     else
   102         t:= t^.Next
   105         t:= t^.Next
   103     end;
   106     end;