|
|
5仿真币
我想建立两个种类A和B
! h" P( K- S& {% X% h. P+ @A10个,B10个
1 f0 P5 |, X0 e# Q想要把B的第一个乌龟颜色从黄色改变为红色
' d+ `) ?& R1 M i发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?. m( a+ j+ H" j% _1 E* Q9 m2 K& N, m, X
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按1 Y4 v3 n D6 n! H# _. Z
得到不同的结果,如图a1 和a2
& N' Z4 w, f6 P& m1 i想要一直改变B的第一个乌龟的颜色该怎样写???) S, y1 k# s |) I4 d8 }8 S# \
" J) I) V! j8 m% |
( a$ X* F1 p: y1 K
globals [ a ]
4 x, r: |5 i+ D1 z; u* kbreed [As a-A] + Z/ B3 W2 N4 j# K
breed [Bs a-B] # Y) N) c j+ N) Z9 R1 n! a
to setup
3 O8 c# {) v" c( w* n clear-all
, N0 V6 j5 j; t8 e$ Z# s5 w" }create-As 10[setxy random(5) random(5) ( h2 `3 S4 ?$ L, X& p% a* Y4 u9 W8 j
set color 3]" ^, k. {9 Q- g$ y) ^7 e
set a (20)
% X8 `6 ]/ T; \% Tcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
6 h+ g, `# e+ \: a' I. c2 [: S! z M] [setxy a a 6 P- ?) d" z& ^0 P* [3 w
set a (a + 0.2)$ }0 u8 |0 P' s6 K, @# q, _; K4 ]# w" a M
set color 45
# d0 D: k1 k$ ]/ M! L3 m]
R# b) Z/ b) M% K. L C ]
! y! A. s* F4 @0 w
4 ?1 P. p$ g& `) L' m2 U$ pend
' V( Z% `+ B+ u' x, D5 T! h- @: H7 _* j! c
to go / v# O9 [" u4 J" V, o7 s: F3 `
ask a-B 10 [set color 15]
, c( A' |9 Z5 tend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|