need some tcl :)

[ZoneISP]

hi again i want command that owner type !setnick harry` the bot chabged it to harry` anyone can help with me this plz

[greenbear]

This will change the botnick until the next rehash/restart.
For a permanent nickchange you have to manually change it in the config file.

Code: Select all

bind pub n !setnick foo
proc foo {n u h c a} {
 set nick [lindex [split $a] 0]
 set ::nick [join $nick]
}

[Ian-Highlander]

Code: Select all

bind pub n !setnick nick_change

proc nick_change {nick host handle channel rest} {
global keep-nick
set new_nick [lindex [split $rest] 0]
set keep-nick 0
putserv "NICK $new_nick"
return 0
}

Edit: greenbear beat me to it, his code is nicer, use that

[demond]

eggdrop should have [bind pub] unavailable to owners, controlling the bot that way is incredibly lame

[sKy]

This will change the botnick until the next rehash/restart.
For a permanent nickchange you have to manually change it in the config file.

Code: Select all

bind pub n !setnick foo
proc foo {n u h c a} {
 set nick [lindex [split $a] 0]
 set ::nick [join $nick]
}

Well, small correction. lindex will return you a string and not a list. With that reason there is really no need to join this string. lrange and lindex are list commands. But other then lrange will lindex return a string.
set ::nick [join $nick] --> set ::nick $nick

[metroid]

Actually wrong, Using join is a very good idea incase of braces.

If the command gets used and the nickname contains brackets split will add braces around it and join removes those braces.

But ofcourse you can just make the code not make useless variables

Code: Select all

bind pub n !setnick change:nick
proc change:nick {n u h c a} {
 set ::nick [join [lindex [split $a] 0]]
}

[spock]

metroid, try your script with nicknames such as {abc} or {abc}d
it probably wont do what you want