There's a bounty for this right? i spent nearly two full days at this

code/modules/mining/aux_base_camera.dm

@@ -200,7 +200,7 @@
 		return
 
 	var/list/buildlist = list("Walls and Floors" = 1,"Airlocks" = 2,"Deconstruction" = 3,"Windows and Grilles" = 4)
-	var/buildmode = input("Set construction mode.", "Base Console", null) in buildlist
+	var/buildmode = tgui_input_list(usr, "Set construction mode.", "Base Console", buildlist)
 	if(buildmode)
 		B.RCD.mode = buildlist[buildmode]
 		to_chat(owner, "Build mode is now [buildmode].")