egghelp/eggheads community

Re hpostiga

2006-03-31T00:08:34-04:00

i deleted manually from cmd.txt then restarted bot

and for del a command?

Statistics: Posted by CuteBangla — Fri Mar 31, 2006 12:08 am

!addcmd

2006-03-30T20:14:20-04:00

and for del a command?

Statistics: Posted by hpostiga — Thu Mar 30, 2006 8:14 pm

Re Sir_Fz

2006-03-29T07:58:54-04:00

ya its working thanks

.....

Statistics: Posted by CuteBangla — Wed Mar 29, 2006 7:58 am

!addcmd

2006-03-29T06:18:59-04:00

Why did you ask in both topics? try the code.

Statistics: Posted by Sir_Fz — Wed Mar 29, 2006 6:18 am

Re Sir_Fz

2006-03-28T23:59:14-04:00

Code:

set cmdsfile "scripts/cmds.txt" if {![file exists $cmdsfile]} {  set fileid [open $cmdsfile w]  close $fileid } {  source $cmdsfile } bind pub n !addcommand add:command proc 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 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 forum proc 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] }

is it the final code ???

Maybe this topic can help you.

Statistics: Posted by CuteBangla — Tue Mar 28, 2006 11:59 pm

!addcmd

2006-03-28T19:37:26-04:00

Maybe this topic can help you.

Statistics: Posted by Sir_Fz — Tue Mar 28, 2006 7:37 pm

!addcmd

2006-03-28T07:04:09-04:00

i need a script help wich will b abale to add trigers for eggdrop what can use in channel

like

!addcmd laugh PRIVMSG 12hands13 $who 12a huggable
teddy bear and smiles at

Command Added

!laugh JiN0

12hands13 JiN0 12a huggable
teddy bear and smiles at

Statistics: Posted by CuteBangla — Tue Mar 28, 2006 7:04 am