to go
2 r3 b$ J0 b5 o) { prices
' L w5 ~- z A" P' Q# m3 K enlarge-market
4 N+ N/ k% L6 e7 c# Z7 h supervision
, x8 U" a! T- h7 _5 } X8 h& R% X move-turtles. @4 m! o p) c
new-producer
3 o3 e8 u! u3 ?! x9 j: a2 r check-death
' K. Z) B& R9 M tick
, V: J# Z1 z/ }- r, X) z do-plots; {" T+ L! _3 |/ ?3 k; p: l
end! H V7 G7 V0 i/ j! N
to move-turtles# d# ]5 h, ?$ C S" i. C' s. U- w
pcs[* p! j9 V* x- }( A O
ifelse counter > 06 B9 Z; M" v; [) C7 s9 R1 `, @
[ set counter counter - 1
" T2 v7 @& J' I8 y set money money - cost1]! p! L2 X% w3 e0 A- s% O9 _
[ right random 360
! m- u. _' \& J# [' D$ r: H& j& v0 U repeat 1 [rt random 360
2 U: U. K& y( f7 b5 ^" d3 l k forward 1
6 B- x$ m" F6 ?9 @& F if pcolor = grey [0 L( H1 Y0 o; W( F
set pcolor yellow - 2
( w# m+ [ M; i" J E set quantity(quantity + 1)]]3 B7 z' u$ N2 S7 G
set money(1 - exposure-rate / 100)*(money + jiage * quantity)
6 v4 u2 D$ G) P% @4 V: W$ S set money money - cost1]
?$ m" ^9 Z7 V% M8 Y( j ]
W' ?5 k/ u2 |' w) s ask pes
$ c+ j0 [ t- g) r; a [right random 360
: p' {. i9 a* r$ v! @/ _7 p forward 1
$ Q/ T ~- v6 N$ a set money money + jiage * quantity
' C, A. i2 t: v$ U set money money - cost2]
- X: v: i4 A! U. i4 H% V" Wend |