|
|
楼主 |
发表于 2008-5-28 11:44:37
|
显示全部楼层
好的,谢谢了
( ^) S1 e" u# S& C* t" S5 v. u, U$ U: ^% }& |3 P/ P" L* B! o
问题找到了, 1 r0 o) Z0 E5 @; n* N" \! a
2 M# ?% U, g/ f% m2 e: \; T4 R, k5 [1 |* n' L. {: y: _
在 To clear 中遗失了一句 ! K# s' y, L- T1 {4 X; N
- W' x9 z3 I" [& B7 `/ S- ^ O6 D3 T5 ~
[ ask neighbors with [any? grass-squares-here]# x( {* ~$ D- y: I* p
. C4 n1 m# S. X3 _5 S6 Z
6 g K( c3 \# j5 |' C1 }% Y, m2 o1 l. A( h& v3 o5 q, \& h% S0 r
6 n" ~5 W M; v. ]9 Gto clear
+ _5 s$ E; ^' C8 u0 Z
4 j4 O: g1 } u; {ask grass-squares-here [die]- N6 t# w7 Z* _: [! J1 r
, h% d, x- j1 ~: Pask markers-here [die]
" \# q, U2 S5 F! w" l/ i4 e% C3 k' C4 x3 ^, W
let total count neighbors with [any? mines-here]3 _& J, K6 }. U7 I ]) }. \0 C ^
3 _# J8 H" L1 x: Y4 ~- n
ifelse total > 0
* ~) |* a9 d5 U! [1 r: \- z. ^; }' U$ z* G6 z
[set plabel total]
% n/ a, z' Z% g
0 a8 s. \4 T% ?4 Z8 Y1 h7 W; P [ ask neighbors with [any? grass-squares-here]
+ ?$ Y# u4 d8 n- u% O* S1 s7 N( |: J4 z3 B
. }9 Q9 B3 Y& G1 c, q" H+ T, Z$ Q3 _
[clear]
- F. ~) C+ H( O0 V1 @" @5 ]7 o- q8 c' p" d( b0 g
end |
|
发表于 2008-5-25 18:48:57
