|
|
5仿真币
我想建立两个种类A和B
7 p+ V* F5 S- OA10个,B10个 U# _6 F# s! t3 |7 [; D
想要把B的第一个乌龟颜色从黄色改变为红色& {$ E. N& f, J- E- H: E
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?& I" L$ W9 c/ R7 M! u5 ]
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
& h2 u) L0 p5 D# a& h" t& J得到不同的结果,如图a1 和a2; o% c4 Y# Y1 |. N
想要一直改变B的第一个乌龟的颜色该怎样写???
; h' Q6 W: B, e
7 \% C* J* p: a
q$ M; f) k6 Y) [1 R8 u& _5 k% Mglobals [ a ]9 \+ b+ B! q9 Q# n: G3 V
breed [As a-A]
$ O! P1 `4 X0 P: s# o& K) V. lbreed [Bs a-B] ! ]1 K9 }4 `" {" O
to setup
1 j9 Z0 B/ W! W, c" b; F clear-all% C' D2 u: A( `% V! k
create-As 10[setxy random(5) random(5)
; O& _3 y8 d7 K% t7 j, L& P0 Vset color 3]
7 o6 N X/ c6 c+ Q& Rset a (20)
6 ?" D% u% _2 }1 B) t4 F/ [2 j+ Kcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 3 W& w( X2 w- Q( _
] [setxy a a / a) L& h( v+ v
set a (a + 0.2)
$ X4 a b& e# r' }# {& `8 M5 V( |+ iset color 45
' G. w. ^8 e1 X' [# u2 b]
H, c" G, f6 Q3 |3 e8 r) Q3 u ]- ?& R: P* X3 D: u/ u: w' Y% m5 ]
3 v2 O+ T: W. w9 b5 T
end
7 x4 [8 V5 x H1 ?
# X1 m; X# [* p5 f2 Uto go ' i4 y& g; d# s _! z
ask a-B 10 [set color 15]
# Z4 x1 x# K. qend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|