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 = {
	[1] = Position(32566, 31505, 9),
	[2] = Position(32611, 31513, 9)
}

function onUse(cid, item, fromPosition, itemEx, toPosition)
	local player = Player(cid)
	local targetPosition = config[player:getStorageValue(Storage.hiddenCityOfBeregar.RoyalRescue)]
	if not targetPosition then
		player:sendTextMessage(MESSAGE_INFO_DESCR, "You don't have permission to use this yet.")
		return true
	end
	
	player:teleportTo(targetPosition, true)
	player:getPosition():sendMagicEffect(CONST_ME_TELEPORT)
	return true
end
```