|
|
5仿真币
我想建立两个种类A和B$ l+ K$ H( O. d9 E! |
A10个,B10个4 m. |7 K g8 [" w' O% x- b
想要把B的第一个乌龟颜色从黄色改变为红色2 X v# o a4 o; c3 C, P' M+ D
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
; I8 ~# Z1 X6 K- A% f还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按- e! q# Q0 |% ] w
得到不同的结果,如图a1 和a2
p* d" ^) |8 c- v1 ~& P' {& a想要一直改变B的第一个乌龟的颜色该怎样写???
5 i) Q; E. \0 W2 O3 m5 }5 w' J9 s7 [2 ?- p; A# z- L: | h
/ s6 L3 h; O3 X% V
globals [ a ]' U! r e. T( ?+ ~3 O
breed [As a-A] * f2 Q2 n" V; I) v" l C
breed [Bs a-B]
! X {8 a" C( ~- ]6 s M& }3 K4 x# ^to setup
5 m8 Q% @! V6 P# U k clear-all' |, Y9 v. b5 c" f% h! @: Y
create-As 10[setxy random(5) random(5) 9 _5 e: [0 i) { f& P/ m: M
set color 3]
) B8 @" E5 Y2 \: Kset a (20)
% A( [' J5 c7 b, Y k" T4 mcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
# j: ?8 v8 c, ]& P& V# F] [setxy a a 8 M- f" v5 {* ~9 @& v3 }
set a (a + 0.2)6 ~( P3 p: F# I8 U
set color 457 r8 G8 u0 T6 W# g4 R1 A
] 3 @$ f n3 s8 e: W, e i
]2 c: k) f3 S* E3 S. Q. W" E
# o. t; x- A/ \3 q; y
end
% j2 C* o! `$ h8 k
* ?, Q1 p& q( k# Rto go
2 p) V; `% h/ D* H/ j% h+ p$ G# _ask a-B 10 [set color 15]
1 Y3 h6 n! d( Q; pend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|