|
|

楼主 |
发表于 2008-8-25 14:43:48
|
显示全部楼层
我知道了!
程序写成如下就可以解决了:
6 }; w, p5 j% y- T' Z) M# Q( g" }" {6 @ F, d: b# }
globals [ a ]) Z3 X0 P) C( j. W+ H" C/ r d6 N
breed [As a-A] c: K) H6 R. D
breed [Bs a-B] 6 {0 a+ S* I7 Z1 p! b/ E- u, N% N
to setup
4 O, q0 l" A n) I8 R' f clear-all
: s$ F! G4 H; q& N2 i. u7 A2 `create-As 10[setxy random(5) random(5) }$ x( Z' `) Y9 M
set color 3]
3 `; G% X% s5 ?: n3 b% J+ p6 g; W! q( S0 G
set a (20), z1 a, B' v- D x$ i* Q$ g3 c3 |
create-Bs 10[ " y8 Q/ _% X$ _8 R$ N
foreach [10 11 12 13 14 15 16 17 18 19 ] [! k! \; a5 S2 f% B4 r1 {6 o; L$ f
ask a-B ? [setxy a a , s. S2 H7 v; L3 z$ }
set a (a + 1)
6 J/ D4 C1 k3 ^- M$ ~6 Vset color 453 g, U1 Y* b( j
] ]
" t' V1 l" b! ~; s! l! u3 J ]# ^" k9 L* ~5 O- C1 Z. E, ?, E$ ~4 s7 j
/ Y; f" z8 q( w: x# g; ?end4 o$ N0 q* @# x& p
- Y' Z; b1 \% {: \ B3 B" v
) b1 ~/ M o( ~% a3 E; @to go
0 r$ S% j* W' N7 [' d: x1 |ask a-B 10 [set color 15]
- _ n" C Y+ e1 z( c7 N0 f2 ?$ q3 Nend |
|