|
|
5仿真币
我想建立两个种类A和B% p% W$ R- ~) ]* R( z F6 K5 }
A10个,B10个$ ?9 {- Y8 X- Y% Z! A6 t
想要把B的第一个乌龟颜色从黄色改变为红色
7 ]# r- \9 N4 Q% y& D4 [& w9 Q发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
5 N' _6 l4 J$ j! Y: P5 m5 }还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按; G) b6 [; i) F6 y
得到不同的结果,如图a1 和a2
& C# V, N" @7 y) g想要一直改变B的第一个乌龟的颜色该怎样写???1 e7 [9 N" I/ G% K4 y& j/ g
" n# L8 f' w1 q! } A
& Y0 r* H: _4 I, P4 t% g- x8 S
globals [ a ]; u9 g7 q8 q3 O/ |
breed [As a-A] ' }6 G2 b9 ~3 T3 H% w% u+ `. y
breed [Bs a-B] $ A( j0 s t. d4 F* m. B6 q
to setup
3 Z9 \( N% U" U* n2 T clear-all( I( Q/ X( \0 U5 K' T
create-As 10[setxy random(5) random(5) : z$ S3 y' O8 Y, E- _- a" r
set color 3]
+ j& I) R0 R/ A; [8 ^set a (20): |% m4 R& V; `4 l/ _
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 * v I* r& [; H: a3 K: ^: {% p
] [setxy a a
9 E1 {$ _2 T0 x: {set a (a + 0.2)
6 r( b, p- v4 C) v2 wset color 45& f- O9 d6 Z2 }2 G
] 6 x8 a6 h C6 D) p& O! E
]
; D+ w3 F; ]+ E7 B ~* Z 3 t ?- T, E0 w( F6 [5 W3 \
end2 n- h% Y G+ ?" E, g
" H8 }2 Y' V, E2 H# hto go
& Y0 Y0 ]; i* C# oask a-B 10 [set color 15]
* C* X- D( j% W# y$ g5 W' V$ lend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|