Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # loading HIGH SCORE files
- proc loadhs {} {
- global hslist save_path
- set fname $save_path
- append fname "HIGHSCORE.TXT"
- if {![file exist $fname]} {
- set fd [open $fname w]
- puts $fd "50 JohBot lamer@some.server"
- puts $fd "40 HofBot loser@bot.server"
- puts $fd "30 HuGBot stupid@bot.heaven"
- puts $fd "20 TnT-II foolio@bot.store"
- close $fd
- }
- set fd [open $fname r]
- while {![eof $fd]} {
- set s [gets $fd]
- if {[eof $fd]} {break}
- lappend hslist $s
- }
- close $fd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement