求助

marshallcao

用NETLOGO 模仿MINESWEEPER 做了个游戏,
; }+ ^  G, W1 w3 [) g
* O1 t7 N/ m# t" i8 @几乎是抄过去的, 可运行的时候总是死机, 运行原程序没有问题,说明不是我的电脑有问题.
$ v: ?0 T- @( ]) B9 @+ S* ?8 i
, o. P$ z! n% S# Y" N( }: J, Z主要问题出在, 用鼠标点下的时候, 如果下面没有MINE 的时候, 无法的出GLABEL的数值,

【见三楼，呵呵】
6 g4 z5 k7 z& g0 |( W
5 f$ T+ U( x( m- Q[ 本帖最后由 chuchj 于 2008-5-28 17:31 编辑 ]

marshallcao

好的,谢谢了

问题找到了,
& \; D4 O' d  N% ?! @

在 To clear 中遗失了一句

    [ ask neighbors with [any? grass-squares-here]
: a) N: J: z! X


! [$ h+ _5 @1 c" T* Y0 s
to clear
6 P8 L: q8 O7 m9 `- r4 _/ z
ask grass-squares-here [die]

" G1 y) S3 I2 task markers-here [die]
: R( f: \) J5 ]+ L5 q8 ]% B& q
let total count neighbors with [any? mines-here]
! P/ Q4 X( c% T4 O7 L1 K& L8 {
ifelse total > 0
" e0 X6 g* J: c8 ?0 s
[set plabel total]

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

# I7 _; F' M1 d$ e) u
[clear]
" ^$ H8 X$ Z* n: b" ]) Y' l
' J" h' {7 }: T5 h( g0 q6 p) bend