Posted to tcl by Bluewolf at Fri Nov 09 02:59:10 GMT 2007view raw

  1. proc WorldStart {Filename Firstword} {
  2. if {[file exists $Filename]} {
  3. set file [open $Filename rw]
  4. while {![eof $file]} {
  5. gets $file line
  6. set line [split $line " "]
  7. if {[string compare "WorldStart" [lindex $line 0]] == 0} {return [lindex $line 1]}
  8. if {[eof $file]} {
  9. puts $file "WorldStart"
  10. }
  11. }
  12. }
  13. else { return 0 }
  14.  
  15. }
  16. }