2013-07-17 18:38:04 +02:00
|
|
|
to-report with-collective-strategy
|
2013-07-17 16:10:47 +02:00
|
|
|
;; to explode. beekeeper do not know in advance
|
2013-07-17 23:58:24 +02:00
|
|
|
;let potential-empty-spots spots with [ not any? beekeepers-here or member? myself beekeepers-here ]
|
|
|
|
;let pes-radius-limited potential-empty-spots in-radius d-max
|
|
|
|
;report max-one-of pes-radius-limited [ beekeep-utility flower-type ([amount-of-hives] of myself) (distance myself) ]
|
2013-07-18 00:33:43 +02:00
|
|
|
set persistence-length d-max
|
|
|
|
let available-spots spots in-radius persistence-length
|
|
|
|
ifelse any? available-spots [
|
|
|
|
report max-one-of available-spots with [ not any? beekeepers-here or member? myself beekeepers-here ] [ beekeep-utility flower-type [amount-of-hives] of myself (distance myself) ]
|
|
|
|
]
|
|
|
|
[
|
|
|
|
set persistence-length persistence-length + d-max
|
|
|
|
]
|
2013-07-17 18:38:04 +02:00
|
|
|
end
|
|
|
|
|
|
|
|
to-report with-blind-strategy
|
|
|
|
;; to explode. beekeeper do not know in advance
|
2013-07-17 21:12:38 +02:00
|
|
|
report max-one-of spots in-radius d-max [ beekeep-utility flower-type [amount-of-hives] of myself (distance myself) ]
|
2013-07-17 20:23:15 +02:00
|
|
|
end
|