Posted to tcl by Bluewolf at Fri Nov 09 03:10:15 GMT 2007view raw

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