Problem with textfiles

darton · Post by **darton** » Sun May 07, 2006 7:04 am

Now I have a last question. Is this possible: If someone in the channel writes "!medals" my bot looks for his name in the textfile and says for example:"$nick has 2 MVP Medal(s) and 1 MostKills Medal(s)". If the bot could not find the name in the textfile it should say: "$nick has no medals yet."

De Kus · Post by **De Kus** » Sun May 07, 2006 7:37 am

you can creat a modified copy of the above script. [lindex $line 1] and [lindex $line 2] will contain the counter of the medals and if lsearch returns -1, there is no record of medals of him.

darton · Post by **darton** » Sun May 07, 2006 7:55 am

Code: Select all

set medalsfile "scripts/medals.txt"

bind pub - !medals medals:get
proc medals:get {nick uhost hand chan arg} {
  set fd [open $::medalsfile r+]
      while {![eof $fd]} {
         lappend list [gets $fd]
      }
  if {[set le [lsearch -glob $list "$nick *"]] != -1} { 
       set line [lindex $list $le]
       set mvp [lindex $line 1]
       set kills [lindex $line 2]
     putquick "PRIVMSG $chan :$nick has $mvp MVP Medal(s) and $kills MostKills Medal(s)."   
  } else {
       putquick "PRIVMSG $chan :$nick has no medals yet." 
   }
}

I made that script. It works. I hope its a "proper syntax".

Thanks again for your work De Kus.

De Kus · Post by **De Kus** » Sun May 07, 2006 10:19 am

well, I would have used a 'return 1' at the end, used puthelp instead of putquick and changed the r+ to r, since we nolonger need to open the file in read and write modus

, but its exactly that what I thought you should make

.

only 1 note: you forgot to close the file

.

darton · Post by **darton** » Sun May 07, 2006 10:56 am

Does it make any difference where I put in the close command? So this should be right?

Code: Select all

set medalsfile "scripts/medals.txt"

bind pub - !medals medals:get
proc medals:get {nick uhost hand chan arg} {
  set fd [open $::medalsfile r+]
      while {![eof $fd]} {
         lappend list [gets $fd]
      }
  if {[set le [lsearch -glob $list "$nick *"]] != -1} {
       set line [lindex $list $le]
       set mvp [lindex $line 1]
       set kills [lindex $line 2]
     putquick "PRIVMSG $chan :$nick has $mvp MVP Medal(s) and $kills MostKills Medal(s)."   
  } else {
       putquick "PRIVMSG $chan :$nick has no medals yet."
   }
   close $fd 
}

darton · Post by **darton** » Tue May 16, 2006 9:37 am

The bot seems to have problems with this nick: {{As}masterblast{GEN}}
It does not make an own line for each time, but it makes a new line everytime for this nick, when it has MVP or MostKills.
Does anyone know why?

De Kus · Post by **De Kus** » Tue May 16, 2006 4:25 pm

does the nick stand in the text file exactly like that, or are the {} excaped with \?
Maybe lsearch doenst find it, because of the sublist. You could try to use

Code: Select all

lappend list "$name $mvp $kills"

instead for a pure string.
You must remove escape characters from the current textfile, of course.

darton · Post by **darton** » Mon May 22, 2006 3:16 pm

Yes in the textfile, there is exactly that nick. When I type "!medals {{As}masterblast{GEN}}" lsearch find this nick. But when I want to store this nick a new line is made everytime. What do you mean with

Code: Select all

lappend list "$name $mvp $kills"

Instead of what do I have to use this?

De Kus · Post by **De Kus** » Tue May 23, 2006 4:37 am

Start using your brain man, there is only line that uses similar vars with lappend. But strange that he finds the nick and creates a new entry anyway... thats irrationel

.