|
|
楼主 |
发表于 2008-5-28 11:44:37
|
显示全部楼层
好的,谢谢了
9 t+ E0 A. N& O3 I4 Q% |3 J v3 D' P" d8 e
问题找到了,
% O( P# Z! I$ M' H
& T0 s7 S' w2 ^" X3 Y9 R z. f( q, C& b- Q* R( k6 q
在 To clear 中遗失了一句 " T% j2 d& O, q2 R3 A+ V
( y5 ^# L# h A( V9 [) N# [2 H
[ ask neighbors with [any? grass-squares-here]
/ G: \2 e$ [$ G' _- D- G# W: T- K* A
u9 ~. L# {" n; P2 D6 b8 b
8 j& x1 x3 c( N* H, N+ i1 [2 j/ D e- K: ]! Y% [
$ `8 ^+ y4 S- Z4 i
to clear8 C% S& q& }3 o( D5 S! d. f" `
1 s0 N1 I# Y0 Pask grass-squares-here [die]
! i: q V# G7 j$ V$ m( D5 P* z
+ p$ B( z# z) [" }, W- |; rask markers-here [die], C. O- a4 y: V- u" v o: X
* k+ B. D8 Y# t" b9 `4 _) b, e& c# Blet total count neighbors with [any? mines-here]
- Y6 x% E, V7 d6 M, _' g
( L( M- y% r) J2 L% B% Y A; Z( h4 a% p' gifelse total > 0
" F# Q1 Y2 O$ z1 E% t6 ?. u2 ^( z
9 _! }5 [- T$ g: X: z6 K[set plabel total]: z( N: r; ?6 t& f& V- e& h
0 [3 r, B1 M* y, G* _
[ ask neighbors with [any? grass-squares-here]
1 p) x, ^' H! b) S* f& A. |9 u7 l) C, D4 @
5 K% c8 s, G$ n3 Q
[clear]2 x3 R& T% B4 S' v! o: c
! n- U/ r) }7 l9 B/ m
end |
|
发表于 2008-5-25 18:48:57
