|
|

楼主 |
发表于 2008-8-25 14:43:48
|
显示全部楼层
我知道了!
程序写成如下就可以解决了:/ m1 Z! ]( C0 ? ^0 @% T( `$ I- f& {
8 U( U' ]8 M _ T* c/ r! Rglobals [ a ]: f8 ^5 i( Z$ X" z
breed [As a-A]
9 I1 w6 [8 C1 l) |" fbreed [Bs a-B]
& A, ^; _9 I8 f. ~! tto setup
; Y1 }: G# q* g* e \/ R clear-all) L' X$ |- f& P" [
create-As 10[setxy random(5) random(5)
- d: p) y( M% [$ r- v# `set color 3]% T6 g9 a+ W8 s) j9 B4 u
/ e2 Y! ?: z( _set a (20)$ {7 m3 W7 ^: N+ S, Q, S
create-Bs 10[ / C5 d) m% @# [
foreach [10 11 12 13 14 15 16 17 18 19 ] [; ~# q7 \" O; c
ask a-B ? [setxy a a
/ B! s; {% H3 Z0 a; O$ hset a (a + 1) N% s* P l, t
set color 45
6 |0 z/ g, o6 p] ]
! H3 {" G, ~9 C) v ]
' n5 x8 x. ?; x T* E
/ U6 j7 m* p7 f1 q, t7 J* ]7 Kend( {% T# |8 u7 c- |" @
, q5 M. t- w. d1 G6 _! c- g
% p* H; F1 E6 i# B G; E4 A( lto go $ |9 I- s0 c" N m
ask a-B 10 [set color 15]
4 F `9 t$ A2 n2 E* d) l' |! C1 ~" ?0 Kend |
|