to go
* w, x+ h/ P1 M: d5 f |1 R' l3 M+ ] prices
8 i U \9 Y/ B+ F enlarge-market2 r) |2 P& p" _4 Z5 J" ?# q
supervision
8 F' _5 W2 k% |5 ` move-turtles1 E! y, N" [8 P: E7 A, Y
new-producer K- |: j2 U; @1 G. r" i/ J; G
check-death
! j: h, m+ I9 h( a0 m* W- d% I+ u& t% K tick
; \2 \8 E b4 k1 o# G3 T5 e do-plots+ D1 X( h! k9 W. ^4 V( q2 l8 p$ l# a/ t5 x
end
% d2 ]- u. K$ \4 T1 t/ i7 M$ Fto move-turtles
6 e* E! B$ B9 o: f" S7 P pcs[
: W3 ~4 m0 L* R ifelse counter > 0
; Z" h& Q( W' d3 q9 \# H [ set counter counter - 1
* \# S9 v8 p( Y7 b: o& S6 A set money money - cost1]
* T; ~7 A% j, D [ right random 3609 N; S w+ Z- W! H8 S- C/ S
repeat 1 [rt random 360$ \+ T* s: d; F; L
forward 1: f/ {0 G$ Q% X! v3 C8 Q
if pcolor = grey [0 T9 N5 y! i- i" H% P
set pcolor yellow - 27 h2 Q7 q8 p% f' h# H
set quantity(quantity + 1)]]9 l, J( c. J% }1 R8 v3 ^! j
set money(1 - exposure-rate / 100)*(money + jiage * quantity)5 s }& g* b* H% ?! C
set money money - cost1]- d: {9 K, \, o! a q
]
0 y7 o. V7 @5 n! {3 m ask pes
+ V3 Y& M u9 _1 h* w: i. {* C [right random 360, Q7 g c: P/ R- X
forward 1
4 c( a( V m- T1 e- ]3 n set money money + jiage * quantity7 P1 N3 z* v, G$ |* g
set money money - cost2]
) C. b. T4 R3 T+ f8 u8 D: Nend |