hedgewars/uChat.pas
changeset 1821 6b6cf3389f92
parent 1819 17dac76954d1
child 2003 41b3d00949ca
equal deleted inserted replaced
1820:ae428043da32 1821:6b6cf3389f92
   140 		if (s = Wavez[i].cmd) then
   140 		if (s = Wavez[i].cmd) then
   141 			begin
   141 			begin
   142 			ParseCommand('/taunt ' + char(i), true);
   142 			ParseCommand('/taunt ' + char(i), true);
   143 			exit
   143 			exit
   144 			end;
   144 			end;
       
   145 	if (s = '/newgrave') then
       
   146 	    ParseCommand('/newgrave', true);
   145 	end
   147 	end
   146 	else
   148 	else
   147 		ParseCommand('/say ' + s, true);
   149 		ParseCommand('/say ' + s, true);
   148 end;
   150 end;
   149 
   151 
   179 			63232 is UP
   181 			63232 is UP
   180 			63234 is LEFT
   182 			63234 is LEFT
   181 			63235 is RIGHT
   183 			63235 is RIGHT
   182 			63233 is DOWN
   184 			63233 is DOWN
   183 		*}
   185 		*}
   184 		63272, 63232, 36233, 36234, 36235: Key:=28;
   186 		63272, 63232, 36233, 36234, 36235: Key:= 28;
   185 	else
   187 	else
   186 	if (Key < $80) then btw:= 1
   188 	if (Key < $80) then btw:= 1
   187 	else if (Key < $800) then btw:= 2
   189 	else if (Key < $800) then btw:= 2
   188 	else if (Key < $10000) then btw:= 3
   190 	else if (Key < $10000) then btw:= 3
   189 	else btw:= 4;
   191 	else btw:= 4;