egghelp/eggheads community

Thank you. It works.

Hello! If I want to display everything of a textfile in a channel I use this script. proc foo {nick uhost hand chan arg} { set fd [open $::foofile r] while {![eof $fd]} { putquick "PRIVMSG $chan :[gets $fd]" } close $fd } The output looks like this: (@Bot) bla (@Bot) blabla (@Bot) blablabl...

And can you tell me why this isn't working? set fname "scripts/test.txt" bind pub - !reset m:reset proc m:reset {nick uhost hand chan arg} { global fname if {[file exists $fname]} { file delete $fname putquick "PRIVMSG $chan :Done." } else { putquick "PRIVMSG $chan :File doe...

Hello!
I wonder if it is possible to delete a textfile with an eggdrop. With "catch {close [open $fname w]}" you can create a file. Is there a possibility to delete it with another command?

Your proc head is incorrect again. It must be "{nick uhost hand chan text}"

Yes nml375 alread said that. It's a little bit circumstantial but it works.

Forgot to replace a word.
I've edited my post. Copy it again and it will work. I also improved the !add script.

Now it should work. I deleted some mistakes. set gamefile "scripts/game.txt" if {![file exists $gamefile]} { catch {close [open $gamefile w]} } bind pub - !add pub:add proc pub:add {nick uhost hand chan arg} { set game [lindex [split $arg] 0] set code [lindex [split $arg] 1] if {$game != &...

demond wrote:I've said that countless times before, but darton just won't listen.

I am not good in making proper scripts. My scripts work but aren't proper.

But the script above is proper, isn't it?

Hello! If I use the command "lsearch" to look for the word "test" in a textfile, there is a difference between test and Test. But I want that they are equal. Unfortunately the function -nocase is only available from TCL 8.5. As I am using a windrop, compiling is not that easy. So...

By the way, is it possible to delete more than one line?

It works perfectly now. Thank you.

Exactly the same happens. Another suggestion?

That sould do it I hope: set gamefile "scripts/game.txt" if {![file exists $gamefile]} { catch {close [open $gamefile w]} } bind pub - !add pub:add proc pub:add {nick uhost hand chan arg} { set game [lindex [split $arg] 0] set code [lindex [split $arg] 1] if {$game != "" &&am...

I have shortened the script above a little bit
So its not the $nick directly who says !afk. The bot who is $nick reproduces everything from a game, so there are people in the game who type !afk. So its [lindex [split $arg] 0] who says !afk.