return [string length $notes_loc]
}
proc have-ownership {} {
+ global pirate
return [expr {[have-notes] && [string length $pirate]}]
}
1 { report-set own "Other pirate's" }
2 { report-set own "Owner unknown" }
3 { report-set own "(All ownerships)" }
- 4 - 5 { report-set own "(Yours/unknown)" }
+ 4 - 5 { report-set own "(Not yours / unknown)" }
default { report-set own "?? $notown" }
}
}