to go8 {. j z# ]9 a ], W1 E/ l* O6 N
prices% g9 ?" \2 t- W; H4 e I/ L
enlarge-market
, K! A: O0 ]! t5 O supervision
8 f3 B1 v3 l. M; \/ q6 Z move-turtles/ s+ T1 B1 F1 Y- B& Q
new-producer" C9 V" C& S7 X E4 P) n
check-death! y2 e8 u' S0 P+ @% Z+ z5 S5 ~/ f
tick8 j% F) Y, F; O; y- g5 a& \1 |1 R k
do-plots
/ e( |; h, Q6 s" w& r- U! q6 {) Fend
4 D* _% W5 m2 J) U' \; Vto move-turtles v; ]% P4 _$ Q
pcs[+ a: g, ^; q4 I( i0 @2 q
ifelse counter > 0& E5 w" [$ g: d" s' D% H3 V! ]
[ set counter counter - 1
G" K% J: n. P3 q set money money - cost1]5 ~7 k2 P; w4 j: {" k
[ right random 360* H: R6 Q5 W& K$ o J& A9 R, ^3 y
repeat 1 [rt random 3603 v! D+ e4 K% ~
forward 18 ]2 B3 y9 X0 ?( C" t
if pcolor = grey [4 Y! I. _% ]. ^6 q
set pcolor yellow - 2
) p8 h, _8 r+ N/ ? f l set quantity(quantity + 1)]]
0 e8 x* u" A7 ~1 V7 ]) K set money(1 - exposure-rate / 100)*(money + jiage * quantity)4 u* L, P5 ~1 a9 i% L6 N
set money money - cost1]
, E- r; q+ n/ L0 X9 M; } ]
* s! G/ W+ `- U4 I ask pes
) r% [+ X) R# M [right random 360
7 h3 @; u, z2 S2 e" A. g forward 13 T: \) S! r; W' |. x2 C# t
set money money + jiage * quantity% C( r. J/ O0 }" I" s2 [
set money money - cost2]8 g( r% e- I+ F z8 H' y
end |