求助

marshallcao

用NETLOGO 模仿MINESWEEPER 做了个游戏,
6 x9 u' Y0 B& i
8 x( H3 f) K3 q7 p& [. A. ^' X几乎是抄过去的, 可运行的时候总是死机, 运行原程序没有问题,说明不是我的电脑有问题.

7 ^4 C/ ~5 ~* i# V; w5 A( z. w5 I主要问题出在, 用鼠标点下的时候, 如果下面没有MINE 的时候, 无法的出GLABEL的数值,
7 y, o+ P* J0 @8 e* J
【见三楼，呵呵】
2 [8 f, ]9 a, c" f3 h
2 u* q5 u# c, ^[ 本帖最后由 chuchj 于 2008-5-28 17:31 编辑 ]

marshallcao

好的,谢谢了
7 n. i  m% t3 F# w! J
问题找到了,

3 Z: M* O: K/ X% a- W( w5 H7 Q
在 To clear 中遗失了一句

    [ ask neighbors with [any? grass-squares-here]
/ p: ?9 Q( a$ `: E# g
: m3 a  _0 m0 B( }" g


1 ?. U9 A$ N7 hto clear

ask grass-squares-here [die]
( g% o& t9 R* X, e0 {' |
( K2 l9 q- I1 Q* B2 Sask markers-here [die]

let total count neighbors with [any? mines-here]

ifelse total > 0

[set plabel total]

) `2 S" p4 B" x [ ask neighbors with [any? grass-squares-here]
# J2 f2 ~* D8 s* S) \# n; N

[clear]
' E2 l0 t3 I# K4 }! ^* y6 C
end