hedgewars/uCommandHandlers.pas
changeset 13867 0ecf77e203c0
parent 13772 2e8b3081cf80
child 14468 bd1db668b7c0
equal deleted inserted replaced
13866:d82c580b6596 13867:0ecf77e203c0
   443     Inc(t);
   443     Inc(t);
   444     if t > 5 then
   444     if t > 5 then
   445         t:= 1;
   445         t:= 1;
   446     tb:= t mod 255;
   446     tb:= t mod 255;
   447     // Delegate the actual change to /timer
   447     // Delegate the actual change to /timer
   448     ParseCommand('timer ' + Chr(tb + Ord('0')), true);
   448     ParseCommand('timer ' + Char(tb + Ord('0')), true);
   449     end;
   449     end;
   450 end;
   450 end;
   451 
   451 
   452 procedure chSlot(var s: shortstring);
   452 procedure chSlot(var s: shortstring);
   453 var slot: LongWord;
   453 var slot: LongWord;