to go0 y9 B) s- s# \ F, J- L" S" W; Q
prices
+ i4 ?; z5 \ ^) @% _. x5 u enlarge-market6 H; k+ s; K9 j" p% Y
supervision& x1 I N/ d0 `6 |' Q' S
move-turtles5 {" w4 ]7 R) C% @8 \8 O6 I
new-producer
2 @8 r# O" a/ {" a `; E check-death
6 ]2 G. G, e. D+ m! D% Y tick
3 v: X/ n: a7 N5 _) d$ Y( l& D do-plots
% `8 A4 ]4 K# o( U* Y* g# \end
1 F0 D2 \! u' c5 Mto move-turtles
7 Y' ~; M/ i! ~0 C pcs[
% J! s3 \2 n% U7 G/ ^: r/ e! J$ V5 Q ifelse counter > 0" S. {8 R5 P! E" d6 Y# A& u3 h3 m* [
[ set counter counter - 15 J* c* H l; ?9 \
set money money - cost1]
% K+ m7 j2 V" H/ F! q [ right random 360
8 j8 g& v1 \' K- a3 ~ |6 m repeat 1 [rt random 360- B, W; P) r4 K
forward 1
* m% W: T. J9 Q* q6 @ if pcolor = grey [
) c% E; h3 |# t7 \1 T3 S; T0 y% H set pcolor yellow - 2
0 q2 k7 \! J! u3 d0 n+ g6 v set quantity(quantity + 1)]]
/ ], c' [( A0 \2 | set money(1 - exposure-rate / 100)*(money + jiage * quantity)
! a: }% S6 {8 ? set money money - cost1]7 R* w) @& C }4 K ^5 x4 i
]- |* c8 B: r0 [" m8 n3 W
ask pes
0 N! d. ~- q3 K* i [right random 360
0 D. X. O# a0 Q: m: n. D6 C forward 1
0 o, ~( o( v8 N7 B5 k- Z; U4 a set money money + jiage * quantity" q% Y# H1 h9 R/ |% x
set money money - cost2]
! C x" \; n. c4 U7 |. Eend |