|
|

楼主 |
发表于 2008-8-25 14:43:48
|
显示全部楼层
我知道了!
程序写成如下就可以解决了:
6 J; j" z0 T, }2 a. b1 I2 \ C7 e& k+ N2 k
globals [ a ]( \' z: Y. x5 P! ^, ?2 {
breed [As a-A]
( W; j7 }( Y9 \% @breed [Bs a-B]
; a& n4 ^, F$ \; oto setup/ L0 j, d% G3 c8 j$ L
clear-all
8 T: `( p2 B( Z8 r( z8 hcreate-As 10[setxy random(5) random(5)
2 G" W* z$ r. qset color 3]
, R- T, L8 e; \& ?" T9 x8 [5 r
- H) N: U2 I0 ~6 |# x) e# ^- w8 iset a (20)/ H3 M3 K" T( F+ e: |9 c
create-Bs 10[
8 Q2 L# T" x X6 m5 [1 oforeach [10 11 12 13 14 15 16 17 18 19 ] [
- S9 L4 r/ h7 p2 p5 F" ?ask a-B ? [setxy a a * F$ Q3 h4 d1 j) k
set a (a + 1)
+ V' {3 Z) Q+ g) |" `set color 45
3 Y h4 x9 ~( @0 C2 @] ], B+ ?1 q/ G: I7 t% @, O
]
7 \* ~. {7 {( k$ Q! W # \& a1 |( ]4 T% W# y$ D
end. l, ?$ E1 q1 D9 W* c3 E$ r
0 h, A, |/ a* Y7 t
/ H' D: | L) s" _0 |( j$ ato go
0 \- o" k T9 a! b0 e b9 m& T$ kask a-B 10 [set color 15]
7 x( g |0 a& Mend |
|