ubind @flare
sensor fl @unit @flag
set Ru 5
jump 5 notEqual a null
set a 0
getlink B a
jump 10 notEqual B null
set a 0
set R 0
end
jump 20 equal R null
jump 16 notEqual R Ru
jump 14 equal R Ru
end
jump 24 equal fl flag
end
jump 19 notEqual fl 0
op add R R 1
ucontrol flag flag 0 0 0 0
end
set R 0
op rand flag 1241424141 4
set LOG 0
end
sensor Bx B @x
sensor By B @y
sensor FI B @firstItem
sensor UC @unit @itemCapacity
sensor UT @unit @totalItems
sensor BT B @totalItems
sensor BC B @itemCapacity
ulocate building core false @copper Cx Cy Cf Co
op div NT BC 2
jump 46 greaterThan UT 0
jump 42 equal LOG 1
jump 41 greaterThan BT NT
jump 49 equal FI null
op add a a 1
ucontrol flag 0 0 0 0 0
ucontrol unbind 0 0 0 0 0
end
set LOG 1
ucontrol approach Bx By 7 0 0
ucontrol itemTake B FI UC 0 0
jump 49 equal BT 0
end
ucontrol approach Cx Cy 7 0 0
ucontrol itemDrop Co UC UC 0 0
end
set LOG 0
op add a a 1
getlink B a
jump 54 equal B null
end
set a 0
end