|
|

楼主 |
发表于 2008-5-28 11:44:37
|
显示全部楼层
好的,谢谢了, C1 L, d8 b9 i- l+ q8 y) l" E
4 q" R! n% M4 Q5 K3 L& u" R
问题找到了, 0 ?* C. {* D* p
& _; p% P5 X" S* J. a" g$ |
8 e/ s) f% {5 u' t T, r+ J在 To clear 中遗失了一句
! A8 T- x3 ~! x# h1 r- i# p3 w3 f( _% I" e& G5 y
[ ask neighbors with [any? grass-squares-here]
4 L- g/ d2 \# x0 n; R# S7 _6 x+ ?# K9 I% W* h0 m% j1 T
z/ `: D; {2 t# {1 b+ X. R+ `& B1 n3 z7 Q
- n6 P0 @7 j+ a* ^6 L' Q% ]
to clear. x( E/ ^ r7 h+ }: X2 [3 `
$ X) ? r6 q# t4 d7 O9 q5 e! V; n( [ask grass-squares-here [die]
6 N0 z. P; p6 y% ]% c$ }" S9 t6 m( i7 h6 a
ask markers-here [die]
* J: e3 Z+ |/ B( ?6 _* ?6 R G9 R. O) u7 @5 ^1 A
let total count neighbors with [any? mines-here]
& n% b, h/ I6 M1 {- y" V+ x; `, U. w$ K2 {, a& \
ifelse total > 0
' E6 F" {, t3 ^, v) D9 {5 A8 {8 q! G9 y4 }8 c# {5 j# [ O
[set plabel total]
2 A7 I+ C# V. |; g8 ~* q4 R
# |% m0 U' ]6 O( u$ {5 \! C! T [ ask neighbors with [any? grass-squares-here]
* E" H5 _' M I2 f. y+ M0 ?- m
3 t, y5 h1 Z7 C* n. N( Z
/ |3 f+ o7 ]6 h, h j: N[clear]9 a8 r9 L! i$ Q' L x i0 a
$ v0 m$ t/ j; A5 t, Z8 D6 ]
end |
|