|
5仿真币
我想建立两个种类A和B, F: g7 O& g. n7 K( F7 i. K, }. m" N- I; f) z
A10个,B10个6 s- q' p" S$ {2 @4 J a$ m
想要把B的第一个乌龟颜色从黄色改变为红色
6 r4 Z' d2 p6 T发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?. ^% L4 U+ L2 n, q' {& v
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按$ [8 K8 m# X9 O$ a# q* j% f
得到不同的结果,如图a1 和a2
# y) \* k+ l% E, W) w$ U想要一直改变B的第一个乌龟的颜色该怎样写???
" D7 }8 l! H/ H" ]; _! l3 {5 d/ r
+ o# G/ I- k; V! f
9 A3 p, z% L0 p* V4 Tglobals [ a ]. @1 p5 ^6 o/ @1 o! d/ m2 Z" o
breed [As a-A]
) p% e# d$ o1 K2 \8 b# {) x( `breed [Bs a-B] / w4 ]( t/ G/ _
to setup
9 q# R! ?5 ~. W+ l( d clear-all# C& _: w. E6 _! y! g
create-As 10[setxy random(5) random(5) * Y6 P' q' X h0 P) s
set color 3]
; f2 F! O! s' O; I9 s( W# M( q6 }set a (20)
+ o2 i( y8 w$ V% f6 ^create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
$ F4 y: t+ \4 u+ N- Z: p5 g+ \] [setxy a a
$ W" Y: W. g5 i% f/ H4 _set a (a + 0.2)( @9 X5 E0 [. {( U
set color 451 D$ Z ]% }! u5 u4 o
]
( A( q% W# x' E; p+ z3 M4 [" j# G% N3 P ]% }: t7 g1 D! p' i }4 j' \5 p& U
Y3 d/ q2 ~7 c( ~& g4 N' Jend, m& C% f# j c" Q* n; n3 E1 p; \
/ R9 i- j( z1 V5 zto go * ]# ^3 |* E u, {6 V' s/ R( r7 L
ask a-B 10 [set color 15] K9 `$ r; m2 `. S: I8 l: L: }+ c/ ^
end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|