Smartphone Scrip

:local hostip
:local list
:local testvalue

/system logging disable 0

/ip firewall address-list remove [find list~"smartphone-ip"]
:delay 1

:foreach i in=[/ip dhcp-server lease find host-name~"android"] do={
	:local hostIPlist [/ip dhcp-server lease get $i value-name=address]
    /ip firewall address-list add address=$hostIPlist list="smartphone-ip"
}

:foreach i in=[/ip dhcp-server lease find host-name~"iPhone"] do={
	:local hostIPlist [/ip dhcp-server lease get $i value-name=address]
    /ip firewall address-list add address=$hostIPlist list="smartphone-ip"
}

:foreach i in=[/ip dhcp-server lease find host-name~"Redmi"] do={
	:local hostIPlist [/ip dhcp-server lease get $i value-name=address]
    /ip firewall address-list add address=$hostIPlist list="smartphone-ip"
}

:foreach i in=[/ip dhcp-server lease find host-name~"Galaxy"] do={
	:local hostIPlist [/ip dhcp-server lease get $i value-name=address]
    /ip firewall address-list add address=$hostIPlist list="smartphone-ip"
}

/queue simple remove [find name~"Smartphone"]

:foreach i in=[/ip firewall address-list find] do={
	:set list ([/ip firewall address-list get $i list] )
	:set hostip ([/ip firewall address-list get $i address] )
	:set testvalue [/queue simple find name=$hostip]
	:if ([:len $testvalue] <= 0) do={
		:if ($list = "smartphone-ip") do={
			/queue simple add name="Smartphone $hostip" target=$hostip max-limit=0/896k
                                                /queue simple move [find name="Smartphone $hostip"] [:pick [find] 0]
        	}
        }
}

/system logging enable 0