|
|
5仿真币
我想建立两个种类A和B/ v1 u U/ A% e
A10个,B10个8 m5 p8 p6 Z/ ~, W9 q
想要把B的第一个乌龟颜色从黄色改变为红色0 N6 c+ y1 x# ~' ~
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?5 r! l3 f- P$ i0 a1 S6 t
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按: P6 ]5 ~, F& I! V8 t. j5 w1 [$ }8 A2 K
得到不同的结果,如图a1 和a2( F+ F9 G5 w& M6 K% t7 ?9 n; t
想要一直改变B的第一个乌龟的颜色该怎样写???) I+ V& n3 f& q5 `7 k# b
0 j& ~ z, r$ t/ ?
5 n; U$ _3 J8 r6 E+ J
globals [ a ]
& |. D7 K0 L$ `6 q7 J7 @, Mbreed [As a-A]
+ d, E9 P$ _/ \* @3 \$ Ibreed [Bs a-B] / U8 N, ^, @, b5 z, ^0 P. u6 ?
to setup
% F( y' \. J9 Z2 R8 b clear-all% Y0 Q. a" T+ I3 v# t& F. @$ @+ W
create-As 10[setxy random(5) random(5) 6 ?* j% g+ u3 }7 G
set color 3]5 B4 q6 H: D5 x3 c' O2 C& I- U
set a (20)
% q, p1 P! d5 o7 a( A7 Ucreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 7 Y [! s2 j1 N% @
] [setxy a a
- Q) F$ `; r& Uset a (a + 0.2)
, j! F/ a% z1 E9 T( Zset color 45
7 F: X' n. D5 y( N. i/ X]
/ L4 o; y* d& V4 U7 Z ]
4 s/ V Y- w$ O
* F) K" n1 o) C/ oend* E3 W- m' h9 R; a9 [5 b
/ V$ ^0 E3 ]& j! E! G/ D: eto go & _' m8 p" s6 N4 M/ O
ask a-B 10 [set color 15]1 N5 t3 P3 X# x% ^5 D$ o$ V, z% \
end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|