egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2009-10-11T17:50:24-04:00 https://forum.eggheads.org/app.php/feed/topic/17230 2009-10-11T17:50:24-04:00 2009-10-11T17:50:24-04:00 https://forum.eggheads.org/viewtopic.php?p=90471#p90471 <![CDATA[thx]]>

Statistics: Posted by lenooxx — Sun Oct 11, 2009 5:50 pm

]]> 2009-10-11T13:04:50-04:00 2009-10-11T13:04:50-04:00 https://forum.eggheads.org/viewtopic.php?p=90470#p90470 <![CDATA[need help for my pub command script]]> !delcommand == delete a command
!listcommand == list all commands
!command == output a random command

make sure you deleted any command.txt from your earlier scripting efforts

Statistics: Posted by arfer — Sun Oct 11, 2009 1:04 pm

]]> 2009-10-11T12:51:10-04:00 2009-10-11T12:51:10-04:00 https://forum.eggheads.org/viewtopic.php?p=90469#p90469 <![CDATA[thx]]>
i added some command , but
strange when i typed !command

i get only one command :s how I can receive the list what I added ?

Statistics: Posted by lenooxx — Sun Oct 11, 2009 12:51 pm

]]> 2009-10-11T12:20:02-04:00 2009-10-11T12:20:02-04:00 https://forum.eggheads.org/viewtopic.php?p=90468#p90468 <![CDATA[need help for my pub command script]]>

Code: 

# command.tcl# set here the single character command triggerset vCommandTrigger !# set here the bot user flag(s) required to add/delete commandsset vCommandFlag nproc pCommandTrigger {} {    global vCommandTrigger    return $vCommandTrigger}bind EVNT - init-server pCommandInitbind EVNT - rehash pCommandInitproc pCommandInit {type} {    pCommandRead    return 0}bind PUB $vCommandFlag [pCommandTrigger]addcommand pCommandAddbind PUB $vCommandFlag [pCommandTrigger]delcommand pCommandDelbind PUB - [pCommandTrigger]command pCommandRandbind PUB - [pCommandTrigger]listcommand pCommandListproc pCommandAdd {nick uhost hand chan text} {    global vCommandData    set command [string trim $text]    if {[string length $command] != 0} {        if {[lsearch -exact [string tolower $vCommandData] [string tolower $command]] == -1} {            lappend vCommandData $command            putserv "NOTICE $nick :command $command added"            pCommandWrite        } else {putserv "NOTICE $nick :The command $command already exists"}    }  else {putserv "NOTICE $nick :Usage [pCommandTrigger]addcommand <command>"}    return 0}proc pCommandDel {nick uhost hand chan text} {    global vCommandData    set command [string trim $text]    if {[string length $command] != 0} {        if {[llength $vCommandData] != 0} {            if {[set position [lsearch -exact [string tolower $vCommandData] [string tolower $command]]] != -1} {                set vCommandData [lreplace $vCommandData $position $position]                putserv "NOTICE $nick :command $command deleted"                pCommandWrite            } else {putserv "NOTICE $nick :The command $command is not currently on file"}        } else {putserv "NOTICE $nick :There are no commands currently on file"}    }  else {putserv "NOTICE $nick :Usage [pCommandTrigger]delcommand <command>"}    return 0}proc pCommandRand {nick uhost hand chan text} {    global vCommandData    set command [string trim $text]    if {[string length $command] == 0} {        if {[llength $vCommandData] != 0} {            putserv "PRIVMSG $chan :[lindex $vCommandData [rand [llength $vCommandData]]]"        } else {putserv "NOTICE $nick :There are no commands currently on file"}    }  else {putserv "NOTICE $nick :Usage [pCommandTrigger]command without additional arguments"}    return 0}proc pCommandList {nick uhost hand chan text} {    global vCommandData    set command [string trim $text]    if {[string length $command] == 0} {        if {[llength $vCommandData] != 0} {            foreach element $vCommandData {                putserv "NOTICE $nick :$element"            }        } else {putserv "NOTICE $nick :There are no commands currently on file"}    } else {putserv "NOTICE $nick :Usage [pCommandTrigger]listcommand without additional arguments"}    return 0}proc pCommandRead {} {    global vCommandData    if {[file exists command.txt]} {        set id [open command.txt r]        set vCommandData [split [read -nonewline $id] \n]        close $id    } else {        set vCommandData {}        pCommandWrite    }    return 0}proc pCommandWrite {} {    global vCommandData    set id [open command.txt w]    if {[llength $vCommandData] != 0} {        puts -nonewline $id [join $vCommandData \n]    }    close $id    return 0}putlog "command.tcl loaded"# eof

Statistics: Posted by arfer — Sun Oct 11, 2009 12:20 pm

]]> 2009-10-11T10:43:42-04:00 2009-10-11T10:43:42-04:00 https://forum.eggheads.org/viewtopic.php?p=90467#p90467 <![CDATA[need help for my pub command script]]>


bind pub - !command pub:command
bind pub w !addcommand pub:addcommand

proc pub:addcommand { nick uhost handle channel arg } {
if { $arg == "" } {
putserv "NOTICE $nick :USAGE: !addcommand <command>"
return 0
}
set command [open "command.txt" a]
puts $command "$arg"
close $command
putserv "NOTICE $nick :Command Added"
}

proc pub:command { nick uhost handle channel arg } {
set commandfile [open "command.txt" r]
set i 0
while { [eof $commandfile] != 1 } {
incr i 1
set command($i) [gets $commandfile]
}
set w [rand $i]
set outcommand $command($w)
putserv "PRIVMSG $channel :$outcommand"
}

Statistics: Posted by lenooxx — Sun Oct 11, 2009 10:43 am

]]>