求助

marshallcao

用NETLOGO 模仿MINESWEEPER 做了个游戏,

  ?, n1 }% L$ ~. R几乎是抄过去的, 可运行的时候总是死机, 运行原程序没有问题,说明不是我的电脑有问题.
+ V5 |* i& E8 U8 d7 F1 ?. B; b5 u- F: v
主要问题出在, 用鼠标点下的时候, 如果下面没有MINE 的时候, 无法的出GLABEL的数值,

. o. n4 |3 e8 \5 B【见三楼，呵呵】

[ 本帖最后由 chuchj 于 2008-5-28 17:31 编辑 ]

marshallcao

好的,谢谢了

问题找到了,

! @& s9 T( A  i) U
$ g" s- ]1 O# f; a$ G2 N( ?/ g- m在 To clear 中遗失了一句
$ E3 l7 m! d9 x
' f; t$ S+ G1 d% T7 p    [ ask neighbors with [any? grass-squares-here]
$ c) Z" x' F- x


* t/ ]) `  f' G) Y6 r( F
4 X4 C) ]4 `1 bto clear

! ~/ ]' D# ~: V: k' yask grass-squares-here [die]

ask markers-here [die]
. }* t, j# N3 [( _& d
let total count neighbors with [any? mines-here]

ifelse total > 0
; O3 `( ?9 f9 I( w& h
5 B1 R2 k# c& T& ^: t1 P[set plabel total]
9 \* J  h& d5 Z/ y3 [
[ ask neighbors with [any? grass-squares-here]

, y, p4 J4 e, y6 d6 ?7 G" {# W
* z1 q$ N; v& ?* W' V  ~: K[clear]

end