|
|
5仿真币
我想建立两个种类A和B
' s4 t! [$ c A& k( sA10个,B10个
( x/ T5 e* j( z7 n" Y3 z' b4 k想要把B的第一个乌龟颜色从黄色改变为红色9 C" t+ R2 c ~2 b* P+ F3 z& }! b; u, ]
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
, J1 V0 b1 r# I- {还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按- R) l0 B% V9 V* l
得到不同的结果,如图a1 和a21 t8 b2 x5 B: W$ o( o$ ~
想要一直改变B的第一个乌龟的颜色该怎样写???4 V) b0 c/ f- X. i
( ]2 p* T0 C$ q
6 P" V' |: S' K; ?; P# t' ^globals [ a ]# W) `+ v3 o0 Y; G! j0 y7 h3 ` s
breed [As a-A]
3 I9 f2 ^( O4 c, C9 h. k' Ibreed [Bs a-B] 0 h- m, q4 Q' r, s: ^ o: r4 C& M
to setup
& K& U! G$ z: L6 p; c$ s+ X( q clear-all
/ _* {- b6 s8 h: [4 l6 o, qcreate-As 10[setxy random(5) random(5)
! a8 V3 D. Z$ f9 Nset color 3]
/ p1 b) I% |+ }% `0 a2 u. y" Z6 qset a (20)# O1 }1 G3 v8 `- x. r- n
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
+ ?9 [ e" B7 X2 }: M$ c$ X] [setxy a a - |/ |1 D! E4 |* L$ f
set a (a + 0.2)" ?" ^6 T; J$ L0 k0 p. c
set color 45
8 Z# M, P) c9 X7 r. _5 @1 w] : e* ^8 n1 t7 c D9 P/ ^! n6 t
]; L& V' L$ q3 e: U# A' o
3 o3 N( X6 J( X2 Z- W7 dend* X) r7 w3 t, E$ w% M+ K
! {+ O- A4 {7 J) dto go # k Q. X) \4 Q* I1 Y3 \
ask a-B 10 [set color 15]
; e9 @# x( V9 D6 ^. E: i0 ^end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|