hedgewars/uGears.pas
changeset 7068 b1b7eb9c8cc9
parent 7061 4e0fc59ab1ce
child 7135 4d863aadd0b2
equal deleted inserted replaced
7067:f98ec3aecf4e 7068:b1b7eb9c8cc9
   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         SendIPCc('#');
   449         SendIPC(_S'#');
   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     SendIPCc(',');
  1164     SendIPC(_S',');
  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);