to go, w+ h: n# M1 L4 l
prices
: E) f' v$ x) m( y" a* [ enlarge-market
9 h/ F3 d, l8 H: R; _3 t0 \! ?' } supervision
) p3 L( A' H" R/ b+ @: t move-turtles
2 x7 U: X* n* O+ j; C6 K new-producer
7 y; M# @. N6 M" ?! E4 \1 G* I check-death
* R& d) Y! d2 C tick
O+ d1 R: G% r5 h; I0 o do-plots
0 Q& V( h' H( G3 u0 O! U) send$ {- H8 n3 t& H4 q
to move-turtles
: E. W# w+ _1 ]7 _1 ~( Y pcs[& C/ F5 J# Z6 V F2 m7 ]% A
ifelse counter > 0
- d- H Z& k7 `+ G; ]+ S, u [ set counter counter - 1
1 H! _: O8 N5 k" d8 _; A( x set money money - cost1]
! x+ Z# D: T$ Z& J [ right random 360
' h, A# ?0 p2 M/ D/ b! | repeat 1 [rt random 3608 G' [4 Z7 d& e- R: m& j
forward 1& u( m1 S. N5 h# ?
if pcolor = grey [
1 Z' v" u7 e U7 Q8 p" O; K set pcolor yellow - 2
; ^7 x4 I, D5 I* J | set quantity(quantity + 1)]]9 U8 v+ K# N9 P9 o, a/ p
set money(1 - exposure-rate / 100)*(money + jiage * quantity)
$ U# e) g6 E. P2 l set money money - cost1]# u6 _1 z% L/ {, U
]
8 b- Q! J4 Y$ M5 e/ s4 S8 s ask pes
- K, {6 U! b. F2 b. P2 Y" p. C [right random 360" p% O. H g: f8 T
forward 1! w1 n R' J+ l# e% l
set money money + jiage * quantity
( D3 q' ~' Y( {0 L, ]6 S+ a& V set money money - cost2] _! \2 Q- N: N& t i
end |