|
5仿真币
我想建立两个种类A和B6 q; D& ^" {' l3 o9 H
A10个,B10个& R2 e, ]; I4 H3 A' t3 s
想要把B的第一个乌龟颜色从黄色改变为红色
% {; L3 w" B: ]* T发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
" h- f! t2 L6 H还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
4 G/ U8 \ w' X3 `得到不同的结果,如图a1 和a21 k6 j- u1 W7 {& m
想要一直改变B的第一个乌龟的颜色该怎样写???+ J; A/ [" _# X* X
, _6 L1 Z* m6 o2 y0 g# z
+ W# D4 z6 Q9 K0 i) xglobals [ a ], B# @# }6 V, O0 S) }
breed [As a-A]
8 E2 D" m$ h7 \7 j. e; g' d5 qbreed [Bs a-B] ( N4 N' A+ W6 N: t9 O2 m B0 J t5 Q
to setup* i0 p) \$ f' p* M0 F( T
clear-all
; k; s9 }: C2 R6 ecreate-As 10[setxy random(5) random(5)
8 E6 u7 o2 T$ \" E/ ?- Mset color 3]
; R% }& w$ [6 E4 ]; ~: `set a (20)# I1 q0 I- S) ^ _' [
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
2 l m2 w7 Z; d$ d' K2 A/ D/ a] [setxy a a , W: \1 g* Q8 }
set a (a + 0.2)
* d8 X2 ]7 K+ c7 U* D u- J. k7 rset color 45
3 {( `6 v4 U5 o" m] ( y9 Z3 c7 G$ T5 o ?2 V6 n
]0 A5 f; n, ?/ a# J5 a& }( T
! o' g" p, N$ K5 D9 @end
9 l1 g+ J. s; x8 D8 n! j0 T# c
! @- s7 f8 `$ ^0 \* K+ vto go $ c* f3 R1 }" a) Z, s' K9 X
ask a-B 10 [set color 15]
- \2 }; K" E: m( d) `' B% Z Oend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|