hedgewars/uGears.pas
changeset 7061 4e0fc59ab1ce
parent 7053 8c9dcaedc7a8
child 7068 b1b7eb9c8cc9
equal deleted inserted replaced
7060:861d6897917f 7061:4e0fc59ab1ce
   444 
   444 
   445 if ((GameTicks and $FFFF) = $FFFF) then
   445 if ((GameTicks and $FFFF) = $FFFF) then
   446     begin
   446     begin
   447     if (not CurrentTeam^.ExtDriven) then
   447     if (not CurrentTeam^.ExtDriven) then
   448         begin
   448         begin
   449         SendIPC('#');
   449         SendIPCc('#');
   450         AddFileLog('hiTicks increment message sent')
   450         AddFileLog('hiTicks increment message sent')
   451         end;
   451         end;
   452 
   452 
   453     if (not CurrentTeam^.ExtDriven) or CurrentTeam^.hasGone then
   453     if (not CurrentTeam^.ExtDriven) or CurrentTeam^.hasGone then
   454         inc(hiTicks) // we do not recieve a message for this
   454         inc(hiTicks) // we do not recieve a message for this
  1159 
  1159 
  1160 procedure chSkip(var s: shortstring);
  1160 procedure chSkip(var s: shortstring);
  1161 begin
  1161 begin
  1162 s:= s; // avoid compiler hint
  1162 s:= s; // avoid compiler hint
  1163 if not CurrentTeam^.ExtDriven then
  1163 if not CurrentTeam^.ExtDriven then
  1164     SendIPC(',');
  1164     SendIPCc(',');
  1165 uStats.Skipped;
  1165 uStats.Skipped;
  1166 skipFlag:= true
  1166 skipFlag:= true
  1167 end;
  1167 end;
  1168 
  1168 
  1169 procedure chHogSay(var s: shortstring);
  1169 procedure chHogSay(var s: shortstring);