to go
+ j: q6 J) r1 t5 X1 O) X prices$ }5 F- C8 l* t; q9 D2 l
enlarge-market
8 [9 Q, |# }$ g. a* r supervision
# K B# H0 e& D5 J- Z, } move-turtles7 I* e# h, i' q: {) h
new-producer, A: o8 j; V: E* y& t
check-death& R( l& q- b+ V$ j* j" `" R
tick$ U2 }2 E7 K' @" Q
do-plots
2 u+ L0 g3 R3 ^) Z0 v' @end
0 ]2 @2 G( R& I V. pto move-turtles- `0 X5 D. M/ b- z9 _% B
pcs[$ v/ T' m! d' d3 Q1 Z
ifelse counter > 0. F$ v: g4 u8 l. @/ o' I6 c
[ set counter counter - 1
8 G1 f+ ~) H, x/ G0 V4 M set money money - cost1]
5 J" C% O; q/ m& n$ e+ ^4 s [ right random 360
/ R4 `! }2 W7 O* q, Y3 c7 ? repeat 1 [rt random 3605 ]5 I: }- E' e: ^
forward 1
0 s; E( Y9 q/ g2 d if pcolor = grey [
4 V6 l$ a3 f1 i/ f3 [+ }& N2 z set pcolor yellow - 2
& F" l, K) N3 {, P0 ^) a set quantity(quantity + 1)]]( P8 s. K; z% p& r7 _$ Z+ ]/ l
set money(1 - exposure-rate / 100)*(money + jiage * quantity)
5 `6 k# N, \- m( W1 U L* g set money money - cost1]
, B6 w/ c1 a6 S( R ]
6 Z9 U7 |6 F% y* q8 |6 }: u5 v0 P2 V ask pes
8 M0 C5 D: I* c( [9 L [right random 360
: ]9 r0 m! P" o$ q8 _ forward 1
) u5 o" W' a# L" A1 g: D# C! j set money money + jiage * quantity
& M/ W' o& \) ?! n, C, `4 Z2 t set money money - cost2]
, q& \8 c# T* gend |