hedgewars/uIO.pas
changeset 2154 3d2917be12c3
parent 2124 d39c61eaca15
child 2240 7ce9e6b7be3b
equal deleted inserted replaced
2153:e41fdfaa8edd 2154:3d2917be12c3
   254 		or (headcmd^.cmd = 's')
   254 		or (headcmd^.cmd = 's')
   255 		or (headcmd^.cmd = 'b')
   255 		or (headcmd^.cmd = 'b')
   256 		or (headcmd^.cmd = 'F')) do
   256 		or (headcmd^.cmd = 'F')) do
   257 	begin
   257 	begin
   258 	case headcmd^.cmd of
   258 	case headcmd^.cmd of
   259 		'+': ; // do nothing - it's just empty packet
   259 		'+': ; // do nothing - it is just empty packet
   260 		'L': ParseCommand('+left', true);
   260 		'L': ParseCommand('+left', true);
   261 		'l': ParseCommand('-left', true);
   261 		'l': ParseCommand('-left', true);
   262 		'R': ParseCommand('+right', true);
   262 		'R': ParseCommand('+right', true);
   263 		'r': ParseCommand('-right', true);
   263 		'r': ParseCommand('-right', true);
   264 		'U': ParseCommand('+up', true);
   264 		'U': ParseCommand('+up', true);