to go
. |4 |- W% X* b5 q prices3 T$ G$ A* a; g, ?9 c8 G7 ^) a
enlarge-market' Y- o5 q% l1 r$ M
supervision; v. ~3 a3 r& D3 a1 P
move-turtles
h- r; k# U& P$ S/ T! [' } new-producer
$ \1 `/ X# J( a: E check-death
2 g& `2 J( N0 p& h4 @# U tick
* l" a2 c1 {4 U- F9 g8 B' A: {5 a do-plots
# Z" B8 z6 F; {+ d5 ^& Tend9 V+ M2 |! H) x4 M9 U
to move-turtles* Z. n9 c5 `4 Z) C8 s' \. x- J) G
pcs[, J5 r9 O, B3 d
ifelse counter > 0
# K) E; C! D. b4 C4 M [ set counter counter - 16 }4 G& P$ b: }# g* _9 \1 o
set money money - cost1]1 u* a6 T+ O1 t
[ right random 360. T# `, p' x2 O9 b2 c. `
repeat 1 [rt random 360' L1 J! F* F l
forward 1/ `5 |" W0 b' @. z. t
if pcolor = grey [
# g, G/ Q" n8 c) S: g2 g set pcolor yellow - 2
2 h0 J8 \4 l* C0 F* Y" ` set quantity(quantity + 1)]]
/ ?2 s0 ?4 s3 \6 C/ k set money(1 - exposure-rate / 100)*(money + jiage * quantity)
* C, g' f$ s4 N8 Y0 j# h. Q set money money - cost1]; L4 J( r- R0 f' _7 P5 B8 n" x
]0 a" p$ `: B$ s2 u
ask pes
( e/ f4 ]3 C5 ^& p, } [right random 360! V& P$ H$ a1 k* h* u
forward 1
6 n% @1 q6 {9 `) p' z set money money + jiage * quantity
6 X! L8 [( l3 J7 l set money money - cost2]: H) o/ j3 z1 l. `
end |