hedgewars/uCommands.pas
changeset 7412 9e5aa3c8dc62
parent 7409 fd91aa100ce0
child 7426 55b49cc1f33a
equal deleted inserted replaced
7410:dc869f3187ca 7412:9e5aa3c8dc62
    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;