to go5 \+ @$ e7 R- _+ k; q% F; G: _
prices
r) Z& |' K9 U: s; ?# V8 H enlarge-market+ R9 ], m$ O( x
supervision
) y2 u p/ D' u% L move-turtles" [7 @2 i, y- b3 K
new-producer( R. B. c4 r( Z" Q1 z
check-death
6 x" p% P6 V, a# } tick
( N7 H* m7 M, g: r/ F' B( T do-plots6 ~3 M4 R, u1 i4 B& `
end
' o9 U" p# u9 X+ ]4 J5 j3 lto move-turtles
! y5 ^' ]( x1 W" c pcs[
7 ~ G+ h2 l) [3 e: @: w. ~2 H ifelse counter > 0' o) @" {* g! C6 E
[ set counter counter - 1
* |: P% `; ~; { set money money - cost1]- W: O9 R2 v. Y% B ~
[ right random 360: s% {. v' s& U, s& x4 g6 {1 `
repeat 1 [rt random 360
& k' z, \" {; v forward 1' e# @7 Q/ }6 `/ f @7 {% f
if pcolor = grey [
4 e' W( D" j2 D, |: x( } set pcolor yellow - 2
9 p/ w- G& m$ e7 C2 @" F2 O' y. i set quantity(quantity + 1)]]
1 w% \) q! }8 a! w3 D- b set money(1 - exposure-rate / 100)*(money + jiage * quantity)
$ J, i+ Q" w; j5 w" x% l set money money - cost1]
% L- a1 n- b; s, p7 d( J ]: j' S* ?# R W- @0 N5 ?) ^
ask pes: U m3 K" m# i
[right random 360
9 h1 C3 S+ N# V" A) _' S- ^$ y forward 13 E$ {! [6 J9 }; G1 p
set money money + jiage * quantity
+ l3 t$ f& @+ F, h# k$ Y set money money - cost2]
3 a8 C0 y# k7 t' Eend |