to go% O6 ]: O; i6 F7 M3 @( W# b- l0 }
prices8 S" |2 I5 g& _' f W
enlarge-market
7 W. [( \: z p' F- ^2 A& P; A# F supervision
/ d2 t L. Q, {) K* R2 o; t- E move-turtles4 ?: j+ \4 X0 j! ^' f
new-producer; z- d0 O' x- f0 I' W8 e
check-death
" e N7 w$ D; n" @( r$ L tick, Y+ ?/ G( Z! W; v8 l2 I! b; z
do-plots
1 h0 e' ^4 O) \end" a8 b9 V& Q V- y3 B/ k) l/ K
to move-turtles
; D! ]3 l% t+ h* k2 w: V3 A pcs[
7 S( p# F( F: G/ c, I/ r$ |/ Q ifelse counter > 0
- S/ R1 C$ W$ J# u7 H6 K [ set counter counter - 1& b- N4 s) K5 K# l
set money money - cost1]4 p, @3 P2 ?4 N/ c
[ right random 360
' \7 f+ }) w3 {* L4 s$ l repeat 1 [rt random 360
- p! W r1 O( S* y forward 17 c1 S/ B1 R5 |# Y8 C! I
if pcolor = grey [
2 Z5 _: P4 B) X9 U/ T set pcolor yellow - 2
* y( X: W9 u$ F- r& |; p set quantity(quantity + 1)]]
( h3 |/ s0 V) m/ [ set money(1 - exposure-rate / 100)*(money + jiage * quantity)5 Y: }' C. d. d, |# ?: P
set money money - cost1]6 ^6 z( Q1 d0 l+ H ?( N
]
" _7 p ]- Q3 t3 J ask pes
' s# e2 T" a" s6 f2 Q [right random 360
6 V; D- y" V9 m! P/ V: w* P forward 16 V9 z Q9 x& n
set money money + jiage * quantity
O# ~% H2 F+ u I0 C2 ] set money money - cost2]
; C+ @! O+ V; N/ a8 uend |