Advertisement
Guest User

Untitled

a guest
May 27th, 2015
290
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.54 KB | None | 0 0
  1. # loading HIGH SCORE files
  2. proc loadhs {} {
  3. global hslist save_path
  4.  
  5. set fname $save_path
  6. append fname "HIGHSCORE.TXT"
  7.  
  8. if {![file exist $fname]} {
  9. set fd [open $fname w]
  10. puts $fd "50 JohBot lamer@some.server"
  11. puts $fd "40 HofBot loser@bot.server"
  12. puts $fd "30 HuGBot stupid@bot.heaven"
  13. puts $fd "20 TnT-II foolio@bot.store"
  14. close $fd
  15. }
  16.  
  17. set fd [open $fname r]
  18.  
  19. while {![eof $fd]} {
  20. set s [gets $fd]
  21. if {[eof $fd]} {break}
  22. lappend hslist $s
  23. }
  24.  
  25. close $fd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement