to go: a1 b# e+ U8 V$ t# ]1 U
prices. ]" A9 @5 A! { c
enlarge-market
6 v: U, c1 H6 E" D" q* d6 {7 z* p supervision
% {' A: ?4 T8 \7 v4 G0 g9 v# y move-turtles
7 n4 D( I n( v+ l8 k: j; ^6 Y. H new-producer
8 b5 R8 z1 n | check-death9 y, w+ o/ R! }- ~! u+ w l
tick
: S, I& E$ \- J7 H. K do-plots; `8 Q$ } Z# R3 C$ {2 `8 |
end8 d" L; @7 C* _- l5 D; ^
to move-turtles }8 a3 g! F e+ l; a$ R. c" y, U& J
pcs[
" o7 q0 I% j2 \& e ifelse counter > 0
4 M0 F" M0 x9 E. @; D9 s. o [ set counter counter - 1" `0 `3 h+ b. I7 _/ M) i' O1 }
set money money - cost1]
# G# b0 ^& Y$ @3 N9 p5 N8 c [ right random 360
0 S7 F/ c8 L- f6 q! D8 Z repeat 1 [rt random 360( g, w. r" f* o2 a. X" s& ]
forward 1: k: V' h! \0 w6 @
if pcolor = grey [3 h4 Y6 F3 q: Y3 D
set pcolor yellow - 2
' }/ ]" M* y( l( T+ O) Z8 h2 V. a set quantity(quantity + 1)]]4 q- ]* r1 M% t" A4 R
set money(1 - exposure-rate / 100)*(money + jiage * quantity)
1 m' e* x0 L6 }5 H set money money - cost1]
. z3 T; f3 \; L' e& f' C ]) _% q1 }; {% F; m: N i
ask pes
% i2 w! [. S" r7 o [right random 360+ I) h5 }2 }1 r7 n
forward 1
2 H* u( N( S' `+ e& n! H set money money + jiage * quantity
: y# _ Q# ]$ W8 ^* P' @& t set money money - cost2]
& n/ I D3 I0 |" a+ Bend |