Rubah max limit sesuai quota

###########################################
# Script by Agus Ramadhani
# fb.com/buananet.pangkalanbun
###########################################
:local INTMon (ether masing2)
:local RXByteCur [/interface get $INTMon rx-byte];
:local RXByte [/system scheduler get RXByte.log on-event];
:local TXByteCur [/interface get $INTMon tx-byte];
:local TXByte [/system scheduler get TXByte.log on-event];
:local RXTot ($RXByte+$RXByteCur);
:local TXTot ($TXByte+$TXByteCur);
:local RXTotGIG ($RXTot / 1024 / 1024 / 1024);
:local TXTotGIG ($TXTot / 1024 / 1024 / 1024);
:local RXTXGIG ($RXTotGIG+$TXTotGIG);
if (($RXTXGIG >= 300) and ($RXTXGIG <= 400)) do={
/queue tree set "6.contoh" max-limit=7000k;
}
if (($RXTXGIG >= 500) and ($RXTXGIG <= 1000)) do={
/queue tree set "6.contoh" max-limit=4000k;
}