function OnPlayerCommand(ID: byte; Text: string): boolean;
begin
	case LowerCase(GetPiece(Text, ' ', 0)) of
		'/fists': ForceWeapon(ID, 255, 255, 0);
		'/knife': ForceWeapon(ID, 14, 255, 0);
	end;

end;

procedure OnWeaponChange(ID: Byte; Primary, Secondary: Byte);
begin
	WriteConsole(ID, 'New weapons: ' + inttostr(Primary) + ', ' + inttostr(Secondary), $FF0000);
end;