egghelp/eggheads community

Looking for a script or module to create custom commands

2007-01-30T00:51:34-04:00

I'm finding that your script stopped working after awhile. I tried restarting the eggdrop and it doesnt respond to !addcommand anymore. It worked fine but i tried to delete binds. Then, i set a new .txt file to add information to but this isnt working.

Statistics: Posted by atreides — Tue Jan 30, 2007 12:51 am

Looking for a script or module to create custom commands

2007-01-27T20:39:31-04:00

I will get back to this when I have more time (i.e. When the semester finishes and when the bullshit happening in the country comes to rest).

Statistics: Posted by Sir_Fz — Sat Jan 27, 2007 8:39 pm

Looking for a script or module to create custom commands

2007-01-27T16:21:38-04:00

Sir_Fz: A couple of questions to this tcl code.

First Question

Is it possible to make it that you can either state the nickname you want the command to be issued for, or if no nickname is stated then it will do the command for the nickname that issued the command.

Example:

!beer MrX
* bot brings MrX a nice cold beer

or

(nickname) !beer
*bot brings (nickname) a nice cold beer

Second question:

Is there any chance of making it that you can add a command that makes the bot select a diffrent item from a list of items and a diffrent action for the responses each time the comand is issued?

Example of the command that would be set:

(owner) !addcommand !beer (pulls out (a fine|an excellent|an excquisite|a tasty|a nicely refined) | pours a (pint|litre|quart) of (Guinness|Amstel|Castle|Jever|Yuengling Lager|Black Label|Piraat|Franziskaner Hefeweizen) for

(nickname) !beer
*bot pulls out an excellent litre of Yuengling Lager for (nickname)

next time the command is issued it responds diffrently.

(nickname) !beer MrX
*bot pours a pint of Guinness for MrX

Third Question

Is it possible to make it that you can add a command that is 2 words?

Example:

(owner) !addcommand !beer me

(nickname) !beer me
*bot pours a quart of Amstel for (nickname)

If this is asking for to much just tell me, i just thought it would be nice to add abit more functionalty to this tcl, make the bot have diffrent responses for the same command

Thanks for any help you can give on this

Statistics: Posted by piggy — Sat Jan 27, 2007 4:21 pm

Looking for a script or module to create custom commands

2007-01-04T15:41:32-04:00

Sir_Fz, can you please edit for me?

like this

!addcommand !cmds notice %nick testing
-lord- Added add:!cmds command.

!cmds x-r00t-x
-lord- testing

i mean i want to set command like "notice , privmsg, etc"

Statistics: Posted by pavel_kbc — Thu Jan 04, 2007 3:41 pm

Looking for a script or module to create custom commands

2006-12-30T20:52:44-04:00

I already fixed that. The bug was in using the [lsearch] command, instead of using [lsearch ] I was using [lsearch ] which obviously is fixed in the code edit. Replace your old code with the new edited code and rehash your Eggdrop.

Statistics: Posted by Sir_Fz — Sat Dec 30, 2006 8:52 pm

Looking for a script or module to create custom commands

2006-12-30T20:05:09-04:00

Sir_fz
what about this one ?

[02:06] Tcl error [del:command]: bad option "! !testing": must be -all, -ascii, -decreasing, -dictionary, -exact, -glob, -increasing, -inline, -integer, -not, -real, -regexp, -sorted, or -start

Statistics: Posted by pavel_kbc — Sat Dec 30, 2006 8:05 pm

Looking for a script or module to create custom commands

2006-12-29T16:43:16-04:00

I've edited the code, these errors shouldn't occur anymore.

I wonder why nobody reported this before, they request and don't use?

Statistics: Posted by Sir_Fz — Fri Dec 29, 2006 4:43 pm

Looking for a script or module to create custom commands

2006-12-29T16:07:41-04:00

when i type : !delcommand !testing
its show me error on partyline:
[02:06] Tcl error [del:command]: bad option "! !testing": must be -all, -ascii, -decreasing, -dictionary, -exact, -glob, -increasing, -inline, -integer, -not, -real, -regexp, -sorted, or -start

Statistics: Posted by pavel_kbc — Fri Dec 29, 2006 4:07 pm

Looking for a script or module to create custom commands

2006-12-29T16:01:22-04:00

[02:01] Tcl error [del:command]: missing "
[02:01] Tcl error [del:command]: missing "

i fixed.

proc del:command {n u h c a} {
global allcommands
set cmd [string tolower [lindex [split $a] 0]]
if {![catch {unbind pub - $cmd added:$cmd}]} {
if {[set i [lsearch $allcommands -exact $cmd]] != -1} {
set allcommands [lreplace $allcommands $i $i]
}
puthelp "notice $n :Successfully remove \002$cmd\002 PUB command."
} {
puthelp "notice $n :Command \002$cmd\002 does not exist."
}
}

Statistics: Posted by pavel_kbc — Fri Dec 29, 2006 4:01 pm

Looking for a script or module to create custom commands

2006-12-29T09:35:58-04:00

Use the Command like

!addcommand !testing %nick is testing
!testing
-CuteBangla- Added add:!testing command.
*CuteBangla SuMiT is testing

!addcommand testing PRIVMSG x-r00t-x testing
-lord- Added add:testing command.
testing
* lord PRIVMSG x-r00t-x testing

Please help meee (

how do i fix it ?

Statistics: Posted by CuteBangla — Fri Dec 29, 2006 9:35 am

Looking for a script or module to create custom commands

2006-12-29T09:27:19-04:00

!addcommand testing PRIVMSG x-r00t-x testing
-lord- Added add:testing command.

testing
* lord PRIVMSG x-r00t-x testing

Please help meee (

how do i fix it ?

Statistics: Posted by pavel_kbc — Fri Dec 29, 2006 9:27 am

Looking for a script or module to create custom commands

2006-06-16T13:56:30-04:00

Looking good Sir_Fz, you've done it again! haha

Anyway we can include flood protection so we don't get kids constantly typing .bindhere and the bot trying to respond?

Statistics: Posted by dq — Fri Jun 16, 2006 1:56 pm

Looking for a script or module to create custom commands

2006-12-29T16:40:58-04:00

Code:

set cmdsfile "scripts/cmds.txt"if {![file exists $cmdsfile]} { set fileid [open $cmdsfile w] close $fileid} { source $cmdsfile}set allcommands [list]foreach donecmd [split [read [set fileid [open $cmdsfile]]][close $fileid] \n][unset fileid] { if {[string match -nocase "bind pub - *" $donecmd]} {  lappend allcommands [lindex [split $donecmd] 3] }}bind pub n !addcommand add:commandbind pub n !countcmds count:commandbind pub n !delcommand del:commandproc add:command {n u h c a} { global addedcommands set command [string tolower [lindex [split $a] 0]] set action [join [lrange [split $a] 1 end]] if {[info command added:$command] == ""} {  set addedcommands($command) $action  proc added:$command {n u h c a} {   global addedcommands   puthelp "privmsg $c :\001ACTION [string map [list %nick [lindex [split $a] 0]] $addedcommands($::lastbind)]\001"  }  bind pub - $command added:$command  save:command $command $action  puthelp "notice $n :Added add:$command command." } {  puthelp "notice $n :Command added:$command already exists." }}proc count:command {n u h c a} { global allcommands if {[llength $allcommands]} {  puthelp "privmsg $c :Available commands: [join $allcommands]" } {  puthelp "privmsg $c :No commands available." }}proc del:command {n u h c a} { global allcommands set cmd [string tolower [lindex [split $a] 0]] if {![catch {unbind pub - $cmd added:$cmd}]} {  if {[set i [lsearch -exact $allcommands $cmd]] != -1} {   set allcommands [lreplace $allcommands $i $i]  }  puthelp "notice $n :Successfully remove \002$cmd\002 PUB command." } {  puthelp "notice $n :Command \002$cmd\002 does not exist." }}  proc save:command {c act} { global cmdsfile set c [string map {\[ \\\[ \] \\\] \\ \\\\} $c] set cmdlist [split [read [set f [open $cmdsfile]]] \n][close $f] lappend cmdlist "bind pub - $c added:$c" lappend cmdlist "" lappend cmdlist "set addedcommands($c) [list $act]" lappend cmdlist "" set f [open $cmdsfile w] foreach cmd $cmdlist {  puts $f $cmd } puts $f [printproc added:$c] close $f}# user's proc from the Tcl faq forumproc printproc proc {   set args {}   foreach arg [info args $proc] {      if {[info default $proc $arg val]} {         lappend args [list $arg $val]      } {         lappend args [list $arg]      }   }   list proc $proc $args [info body $proc]}

This will unbind the command if it exists (will make it unfunctional) but will not remove it from the .txt (you'll have to remove it manually).

Edit: Fixed missing " and bug in using [lsearch].

Statistics: Posted by Sir_Fz — Mon Jun 12, 2006 9:06 am

Looking for a script or module to create custom commands

2006-06-11T20:00:30-04:00

Try:

Code:

set cmdsfile "scripts/cmds.txt"if {![file exists $cmdsfile]} { set fileid [open $cmdsfile w] close $fileid} { source $cmdsfile}set allcommands [list]foreach donecmd [split [read [set fileid [open $cmdsfile]]][close $fileid] \n][unset fileid] { if {[string match -nocase "bind pub - *" $donecmd]} {  lappend allcommands [lindex [split $donecmd] 3] }}bind pub n !addcommand add:commandbind pub n !countcmds count:commandproc add:command {n u h c a} { global addedcommands set command [lindex [split $a] 0] set action [join [lrange [split $a] 1 end]] if {[info command added:$command] == ""} {  set addedcommands($command) $action  proc added:$command {n u h c a} {   global addedcommands   puthelp "privmsg $c :\001ACTION [string map [list %nick [lindex [split $a] 0]] $addedcommands($::lastbind)]\001"  }  bind pub - $command added:$command  save:command $command $action  puthelp "notice $n :Added add:$command command." } {  puthelp "notice $n :Command added:$command already exists." }}proc count:command {n u h c a} { global allcommands if {[llength $allcommands]} {  puthelp "privmsg $c :Available commands: [join $allcommands]" } {  puthelp "privmsg $c :No commands available." }}proc save:command {c act} { global cmdsfile set c [string map {\[ \\\[ \] \\\] \\ \\\\} $c] set cmdlist [split [read [set f [open $cmdsfile]]] \n][close $f] lappend cmdlist "bind pub - $c added:$c" lappend cmdlist "" lappend cmdlist "set addedcommands($c) [list $act]" lappend cmdlist "" set f [open $cmdsfile w] foreach cmd $cmdlist {  puts $f $cmd } puts $f [printproc added:$c] close $f}# user's proc from the Tcl faq forumproc printproc proc {   set args {}   foreach arg [info args $proc] {      if {[info default $proc $arg val]} {         lappend args [list $arg $val]      } {         lappend args [list $arg]      }   }   list proc $proc $args [info body $proc]}

type !countcmds on chan.

Very nice script Sir_Fz, but is it possible to unbind them.. because removing the cmds.txt or clearing it doesn't seem to do the trick

Statistics: Posted by dq — Sun Jun 11, 2006 8:00 pm

Looking for a script or module to create custom commands

2006-03-29T17:22:48-04:00

Try:

Code:

set cmdsfile "scripts/cmds.txt"if {![file exists $cmdsfile]} { set fileid [open $cmdsfile w] close $fileid} { source $cmdsfile}set allcommands [list]foreach donecmd [split [read [set fileid [open $cmdsfile]]][close $fileid] \n][unset fileid] { if {[string match -nocase "bind pub - *" $donecmd]} {  lappend allcommands [lindex [split $donecmd] 3] }}bind pub n !addcommand add:commandbind pub n !countcmds count:commandproc add:command {n u h c a} { global addedcommands set command [lindex [split $a] 0] set action [join [lrange [split $a] 1 end]] if {[info command added:$command] == ""} {  set addedcommands($command) $action  proc added:$command {n u h c a} {   global addedcommands   puthelp "privmsg $c :\001ACTION [string map [list %nick [lindex [split $a] 0]] $addedcommands($::lastbind)]\001"  }  bind pub - $command added:$command  save:command $command $action  puthelp "notice $n :Added add:$command command." } {  puthelp "notice $n :Command added:$command already exists." }}proc count:command {n u h c a} { global allcommands if {[llength $allcommands]} {  puthelp "privmsg $c :Available commands: [join $allcommands]" } {  puthelp "privmsg $c :No commands available." }}proc save:command {c act} { global cmdsfile set c [string map {\[ \\\[ \] \\\] \\ \\\\} $c] set cmdlist [split [read [set f [open $cmdsfile]]] \n][close $f] lappend cmdlist "bind pub - $c added:$c" lappend cmdlist "" lappend cmdlist "set addedcommands($c) [list $act]" lappend cmdlist "" set f [open $cmdsfile w] foreach cmd $cmdlist {  puts $f $cmd } puts $f [printproc added:$c] close $f}# user's proc from the Tcl faq forumproc printproc proc {   set args {}   foreach arg [info args $proc] {      if {[info default $proc $arg val]} {         lappend args [list $arg $val]      } {         lappend args [list $arg]      }   }   list proc $proc $args [info body $proc]}

type !countcmds on chan.

Statistics: Posted by Sir_Fz — Wed Mar 29, 2006 5:22 pm