求助

marshallcao

用NETLOGO 模仿MINESWEEPER 做了个游戏,
3 a8 R7 [% m8 K8 H  p7 T* Q
/ E  b( f, Q/ o) q' s& @5 ^. C几乎是抄过去的, 可运行的时候总是死机, 运行原程序没有问题,说明不是我的电脑有问题.

$ x+ W+ g, ]  Y# u! T! W4 z9 c主要问题出在, 用鼠标点下的时候, 如果下面没有MINE 的时候, 无法的出GLABEL的数值,

【见三楼，呵呵】
1 U3 X8 }- \1 W) k6 l9 X
[ 本帖最后由 chuchj 于 2008-5-28 17:31 编辑 ]

marshallcao

好的,谢谢了

问题找到了,
$ |5 b5 P1 C6 h+ H: g# E# t
( R& ]& ~* r2 l& u" `
在 To clear 中遗失了一句

, V3 A- M: L8 S    [ ask neighbors with [any? grass-squares-here]
% a& P& k" w1 Q, o
0 Y8 L. V# o$ c0 @$ Z- _$ a7 u$ _


7 V+ U/ m2 m! z$ i0 h$ }to clear
: |% g( z! H1 k4 }
# j" s4 A3 ^9 x! _ask grass-squares-here [die]

  T4 v2 T& _' h9 n; {- s6 p, ~( Nask markers-here [die]
. f) O" U$ i/ P# }+ }) [9 w% |
let total count neighbors with [any? mines-here]
/ Q8 |/ N# c" y0 N+ `4 Q+ r( Q
ifelse total > 0

[set plabel total]

1 N4 h0 h4 W$ G: R4 x- h1 ~ [ ask neighbors with [any? grass-squares-here]
+ C+ i; O2 p7 ]

5 n, I3 j: c% v, u8 ^[clear]

end