|
|
5仿真币
我想建立两个种类A和B
; e8 b% T) N; e2 Y, Z6 u$ L# m+ jA10个,B10个
2 x7 v: Q% p$ ?想要把B的第一个乌龟颜色从黄色改变为红色
7 A6 k2 c. x4 | F% x' S3 C发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?0 ?$ X4 x8 h" D9 E" r/ K+ E' L5 ]; Y
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
" k9 h6 l2 h( W Z0 b6 s9 y得到不同的结果,如图a1 和a2: N9 O7 n6 t& f1 l0 e
想要一直改变B的第一个乌龟的颜色该怎样写???
. y& h4 I- A* F7 |2 V& c6 W# O/ z. T' }! C b# f6 m: Q
8 o4 {8 F' j& F( |/ j, `! C% dglobals [ a ]
7 ] ] C0 k8 C0 D" q- R6 L* d" P, ~breed [As a-A]
% ?# `1 ^3 p/ T3 zbreed [Bs a-B]
, o/ \6 S0 T2 J3 j1 S6 Hto setup
! q2 Q: }$ e# `6 O# _4 Z$ ` clear-all. _' J) S& F8 n, @/ M
create-As 10[setxy random(5) random(5)
6 f: [( S; e( ~# t N: nset color 3]
' b9 X9 T. Y5 S7 _( lset a (20)
# r# G- f7 _2 J, Ecreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 , Z( w: A" Z% ~5 H2 C9 ?
] [setxy a a
4 m" Z \7 e& ~' w- T7 u& Lset a (a + 0.2)
. p! A0 [3 B) [/ kset color 450 x# n) e( M1 h1 M6 }7 {4 [* p% y' ~
]
( T, O6 |4 }6 b& a5 ~3 z& [ ]
/ N$ g6 g' Q1 Z/ _
9 n$ A8 I. T6 c. T+ ?end
, u" @2 a; o2 d+ B( L3 O" |' a& m
7 E5 C8 f/ A+ w2 |' qto go
# \; L4 n* m; d# Iask a-B 10 [set color 15]! Y7 ]9 X5 a! K& z0 V1 @
end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|