to go
M; p2 S4 L5 c/ Z& V* j7 f: O2 Q prices
8 H H/ [ Y( O enlarge-market
$ J$ G) R: ~3 `9 Z# T3 T1 K; S supervision
; q E# q2 M( G8 l move-turtles4 W- C" V2 B5 L, }6 @7 s# O' V& c
new-producer
; V- C. x8 d. O" m( w3 B; L( r check-death9 j) v3 @$ v1 V9 g, @" ^
tick
7 v4 V2 T$ i4 Q do-plots
+ q! z; r/ [" T& V+ d2 q. Mend/ O# W: s0 e O& m: s$ ?* ^' M
to move-turtles- E2 V" q! Z# l- d R1 E
pcs[
4 }; r3 w* R1 }8 M ifelse counter > 0
J7 _" U& v% y [ set counter counter - 1
2 p6 ^' r: P0 Y# N4 C set money money - cost1]4 V, e6 Y: k3 _& _7 O
[ right random 360- l& T+ Z) F2 n, m; H# q. u
repeat 1 [rt random 360
0 j; r/ G' [5 ^: w4 Z% x forward 1, x5 U9 c3 E6 r9 D- b8 c
if pcolor = grey [: v9 a1 d, _# t# ?3 b# z; D" x8 A
set pcolor yellow - 2& K/ b2 S( P9 I4 I$ Q' B
set quantity(quantity + 1)]]
8 d1 c/ o( F8 a# \7 p set money(1 - exposure-rate / 100)*(money + jiage * quantity)
% O- e% U: y. @/ {" I2 C set money money - cost1]# K8 J- L2 e7 |/ M4 m' h6 c
]0 s1 ~. J, ~ p" q5 r+ M+ ?# N
ask pes- I- E" u& B( l' Y
[right random 360
$ V7 h0 K3 u" y/ }$ X( ?2 r. q forward 1' O! C6 S O) p5 {
set money money + jiage * quantity! j1 y7 ]7 r# t) S
set money money - cost2]
! j# j/ F/ ^2 iend |