List Text in a file [Solved]

[kris]

Code: Select all

bind msg "-|-" married msg_married
proc msg_married { nick userhost handle text } {
set file "marriage.role"
set found 0
set fs [open $file r]
while {![eof $fs]} {
gets $fs line
putquick "NOTICE $nick :$line and $line"
}
close $fs
}

i want it to come out as: e.g:
kris and NoMansLand
test and test1

The database is setup as

nick1
nick2
nick3
nick4

any help is greatly appreciated thanks!!

[metroid]

You already started a topic about this not too long ago.

[kris]

no the last one was deleting text from a file. this one isnt this is making it loop and list all the nicks in the file, because im designing a e-Marriage service.
and one of my admins had said, why dont we do this. and i started doing it, and it doesnt remove the text, just lists it. completely different.

- edit -

dont worry, heres the code for later reference when people need help with the same thing.

Code: Select all

bind msg "-|-" married msg_married
proc msg_married { nick userhost handle text } {
set file "marriage.role"
set found 0
set fs [open $file r]
while {![eof $fs]} {
gets $fs line
gets $fs lne
putquick "NOTICE $nick :$lne and $line"
}
close $fs
}

thanks, metroid