42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
return $w
}
proc clearMap {top} {
set ::eskil($top,changes) {}
set ::eskil($top,mapMax) 0
drawMap $top -1
}
proc addChange {top n tag line1 n1 line2 n2} {
if {$tag ne ""} {
lappend ::eskil($top,changes) [list $::eskil($top,mapMax) $n \
$tag $line1 $n1 $line2 $n2]
}
incr ::eskil($top,mapMax) $n
}
proc addMapLines {top n} {
|
>
>
>
>
>
>
|
|
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
return $w
}
proc clearMap {top} {
set ::eskil($top,changes) {}
set ::eskil($top,mapMax) 0
set ::eskil($top,mapNoChange) 0
drawMap $top -1
}
# Temporarily ignore changes added by addChange.
proc mapNoChange {top value} {
set ::eskil($top,mapNoChange) $value
}
proc addChange {top n tag line1 n1 line2 n2} {
if {$tag ne "" && $::eskil($top,mapNoChange) == 0} {
lappend ::eskil($top,changes) [list $::eskil($top,mapMax) $n \
$tag $line1 $n1 $line2 $n2]
}
incr ::eskil($top,mapMax) $n
}
proc addMapLines {top n} {
|