script mangle

:global intWan	"ether1-wan";
:global intLocal	"ether2-server";
:global intMax          "20M"

#membuat parent download dan upload
/queue tree add name=MASUK parent="$intLocal" max-limit="$intMax"
/queue tree add name=KELUAR parent="$intWan" max-limit="$intMax"

:for x from=11 to=20 do={/ip firewall mangle add chain=prerouting src-address="172.16.20.$x" action=mark-connection new-connection-mark="conn-pc-$x" in-interface="$intLocal" passthrough=yes comment=("Komputer " . ($x-10))
/ip firewall mangle add chain=prerouting connection-mark="conn-pc-$x" action=mark-packet new-packet-mark="packet-pc-$x-upload" in-interface="$intLocal" passthrough=no
/ip firewall mangle add chain=prerouting connection-mark="conn-pc-$x" action=mark-packet new-packet-mark="packet-pc-$x-download" in-interface="$intWan" passthrough=no
/queue tree add name="PC-$x-UPLOAD" parent=MASUK packet-mark="packet-pc-$x-upload" limit-at=512k max-limit=1M
/queue tree add name="PC-$x-DOWNLOAD" parent=KELUAR packet-mark="packet-pc$x-download" limit-at=512k max-limit=1M }