to go" e- V7 Q8 A" ?5 x
prices
- [2 c, x+ V7 M2 \ enlarge-market1 S+ V! d! L; Z; x+ k
supervision
b3 a, W, p9 p7 f move-turtles
3 w% @& z0 N. \) v new-producer4 ?$ M0 J2 X: P- J* Y
check-death
+ e9 G# e, L) ?3 c1 X( P! S tick
5 w4 e6 _$ A# R( H$ ^/ L do-plots: b$ r: b" T; ?5 m
end
4 p: E* ~1 K8 I3 l7 i3 [$ D8 gto move-turtles! v& s2 d/ G& m U# B. f& r( t" @0 I1 a* I+ z
pcs[
) x; `- J& H6 P' e# g$ C) E ifelse counter > 0
1 G. r. j3 P2 K [ set counter counter - 1
" ~/ t9 M4 @1 { |" D; B set money money - cost1]
5 |4 S! ^1 Q. m% t* U [ right random 360
# O3 ]7 T" V# X- z repeat 1 [rt random 360; E8 } J: b B$ d4 g4 ?- d0 w5 r0 p
forward 15 l% }# r# F3 ~# T, s
if pcolor = grey [
8 w" r4 W' X) W; E0 j0 U1 z set pcolor yellow - 2
' ]* T" n$ Y! V' v: B# _' T set quantity(quantity + 1)]]
8 A6 x8 v* V! m! ?+ w1 F set money(1 - exposure-rate / 100)*(money + jiage * quantity)0 n3 A0 ~' n5 W9 Q1 E! L
set money money - cost1]" y* r+ [" I: h: X% _& h
]
, ~; M! x9 g$ @9 ^+ @1 J ask pes
- T/ j6 u; ^) a: v [right random 360& z- w" E+ Z7 o! _+ H
forward 1) [$ M% S7 P5 L# C/ |
set money money + jiage * quantity C) U9 s# Z' D" E |, ?4 q
set money money - cost2]5 e& g7 ~ Q9 ?/ j; Y! B# j
end |