# HG changeset patch
# User frosch <frosch@openttd.org>
# Date 1225740352 0
# Node ID d4911b3a2163d7341f994158de59a6269e61d018
# Parent  a97914205bd6535ad7901a7c1d1fd852d1bcb885
(svn r14561) -Feature(ette)[FS#2334]: Add result 0x0F to callbacks 0x29/0x35. (Yexo)

diff --git a/src/industry_cmd.cpp b/src/industry_cmd.cpp
--- a/src/industry_cmd.cpp
+++ b/src/industry_cmd.cpp
@@ -2089,6 +2089,9 @@
 				case 0xE:                         // increment production
 					increment = res == 0x0D ? -1 : 1;
 					break;
+				case 0xF:                         // Set production to higher word of register 0x100
+					i->prod_level = Clamp(GB(GetRegister(0x100), 16, 16), PRODLEVEL_MINIMUM, PRODLEVEL_MAXIMUM);
+					break;
 			}
 		}
 	}