|
|

楼主 |
发表于 2008-8-25 14:43:48
|
显示全部楼层
我知道了!
程序写成如下就可以解决了:
) h ?$ H8 G" w9 K" @2 R: d
" o7 v K4 o2 O7 N) Yglobals [ a ]1 u, _, f! c+ g/ K' m
breed [As a-A] 4 r7 Z r: D, H& k! p7 l" D$ Z: \3 T
breed [Bs a-B]
: k+ ~6 u+ D( [. U# G# [8 |to setup
- z# ^! H2 x& j$ f4 x clear-all
Y# }% G0 r) B$ a Q7 c2 U Ecreate-As 10[setxy random(5) random(5)
: B, _2 W+ Z. Z1 Oset color 3]0 } [& {) _& u5 e8 l' A
* \, {. {) d |
set a (20)1 x0 \' F: _# H
create-Bs 10[ % ~' N, q6 d; r/ t% |( w s# Q, B( o
foreach [10 11 12 13 14 15 16 17 18 19 ] [8 A! O# n* A/ S: O5 ~
ask a-B ? [setxy a a 6 t/ a# Q- B0 @( X- r) s
set a (a + 1)5 D4 ^3 f$ {& N0 y7 j
set color 45
7 x9 o4 C9 H+ v! F0 W* L1 a+ W. i) D] ]
1 q8 {4 u- [& B K; T2 ^ ]( P! F4 N: e5 E: s
n m* s# b8 ?, ?7 K- Z( x9 [
end. s' B& K9 |6 y6 d
3 | L% Q0 \! \1 }' ^& Z. z9 l8 P
7 s+ u e+ h, _3 ^/ r! y. Jto go ! Y$ t3 J( F( {& N# G' `
ask a-B 10 [set color 15]
6 s& p) @" K1 i. ~, ~( [" D) dend |
|