求助

marshallcao

用NETLOGO 模仿MINESWEEPER 做了个游戏,

+ [/ L+ c; F* e$ Y几乎是抄过去的, 可运行的时候总是死机, 运行原程序没有问题,说明不是我的电脑有问题.
: z) @; C$ `  j, r. ~6 T5 }1 o6 ~
" m% W1 I) i5 Z, q2 T) M主要问题出在, 用鼠标点下的时候, 如果下面没有MINE 的时候, 无法的出GLABEL的数值,

【见三楼，呵呵】

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

marshallcao

好的,谢谢了

2 L3 V) ]5 v5 G8 c问题找到了,


* R- E. g/ o$ `" R5 `( m6 O# A在 To clear 中遗失了一句

    [ ask neighbors with [any? grass-squares-here]

' P0 H6 |+ s9 J$ \2 w3 O# f" d


to clear

+ k5 Z: Z1 L- `8 N7 h* }: J+ y! qask grass-squares-here [die]

ask markers-here [die]

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

ifelse total > 0
" Y8 j- B0 c9 D
4 R5 L) p! }; f0 o: M  k[set plabel total]

* P3 M9 O# }4 \% ?$ L8 z. ? [ ask neighbors with [any? grass-squares-here]


[clear]
5 w# e0 G4 r7 @. ~* X+ _0 B
$ ^- ~/ m) N6 A$ j3 y' `8 d& V( Iend