HCoB action scripts

map stuff to do:
```
add aid 50098 to ore wagon @ {x = 32578, y = 31488, z = 9}
add aid 50109 to @ {x = 32571, y = 31508, z = 9}
add aid 50112 to ore wagon @ {x = 32570, y = 31508, z = 9}
add aid 50113 to @ {x = 32617, y = 31513, z = 9}
add aid 50114 to rock @ {x = 32619, y = 31514, z = 9}
add aid 50115 to ore wagon @ {x = 32615, y = 31514, z = 9}
add aid 50117 to ore wagon @ {x = 32699, y = 31492, z = 11}
add aid 50118 to coal @ {x = 32718, y = 31490, z = 11}

add uid 50108 to lever @ {x = 32697, y = 31495, z = 11}
add uid 50109 to lever @ {x = 32695, y = 31495, z = 11}
add uid 50110 to lever @ {x = 32693, y = 31495, z = 11}
add uid 50111 to lever @ {x = 32691, y = 31495, z = 11}
add uid 50113 to lever @ {x = 32697, y = 31454, z = 13}
add uid 50114 to lever @ {x = 32691, y = 31452, z = 13}
add uid 50115 to lever @ {x = 32686, y = 31452, z = 13}
add uid 50116 to lever @ {x = 32683, y = 31455, z = 13}
add uid 50117 to lever @ {x = 32687, y = 31457, z = 13}
add uid 50118 to lever @ {x = 32693, y = 31458, z = 13}
add uid 50119 to lever @ {x = 32696, y = 31462, z = 13}
add uid 50120 to lever @ {x = 32696, y = 31465, z = 13}
add uid 50121 to lever @ {x = 32691, y = 31464, z = 13}
add uid 50122 to lever @ {x = 32685, y = 31465, z = 13}
add uid 50123 to lever @ {x = 32689, y = 31470, z = 13}
add uid 50124 to ore wagon @ {x = 32688, y = 31471, z = 13}
```
```Lua
local config = {
	[50108] = {actionId = 50122, wagonPos = Position(32696, 31495, 11)},
	[50109] = {actionId = 50123, wagonPos = Position(32694, 31495, 11)},
	[50110] = {actionId = 50124, wagonPos = Position(32692, 31495, 11)},
	[50111] = {actionId = 50125, wagonPos = Position(32690, 31495, 11)}
}

function onUse(cid, item, fromPosition, itemEx, toPosition)
	local targetItem = config[item.uid]
	if not targetItem then
		return true
	end
	
	local crucible = Tile(Position(32699, 31494, 11)):getItemById(8641)
	if crucible:getActionId() == 50121 then
		local wagon = Game.createItem(7132, 1, targetItem.wagonPos)
		if wagon then
			wagon:setActionId(targetItem.actionId)
		end
		
		crucible:transform(8642)
	end
	
	Item(item.uid):transform(item.itemid == 10044 and 10045 or 10044)
	return true
end
```