求助

marshallcao

用NETLOGO 模仿MINESWEEPER 做了个游戏,

& Z( x" s% T4 J3 a- K6 o% {  U1 G  z几乎是抄过去的, 可运行的时候总是死机, 运行原程序没有问题,说明不是我的电脑有问题.

7 [" b! P, h! b4 P( m7 j5 b主要问题出在, 用鼠标点下的时候, 如果下面没有MINE 的时候, 无法的出GLABEL的数值,
; i: j3 U$ ^& j# m6 {
【见三楼，呵呵】

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

marshallcao

好的,谢谢了
' r  J% J! M% v1 H
问题找到了,

3 l+ |8 X2 n; f6 ~% W
在 To clear 中遗失了一句
; ?2 n- W4 V- @; \* J4 f& P
    [ ask neighbors with [any? grass-squares-here]
/ i. Q3 u0 `2 c  S1 Z% M/ x
, J, |* \: I9 L$ \- X5 |

& W; ^  e2 ~) D* z* [) Q6 x/ b
to clear

ask grass-squares-here [die]
* v4 L+ Q3 @* D) m
4 X% [+ u- @% @) [$ b+ Eask markers-here [die]
# U/ y7 r' K- D& R
let total count neighbors with [any? mines-here]
+ w6 `9 ^. v7 p2 Q
0 R# v0 k" D) I; [5 b: T0 U; Iifelse total > 0

[set plabel total]
# l4 K3 A6 \/ l
[ ask neighbors with [any? grass-squares-here]
8 K5 \6 Q1 y) L) m* t- c

[clear]
2 o; G0 p, d$ y8 O+ N3 \
6 j8 O+ b+ Q! g% N" p5 Vend