egghelp/eggheads community

Script [Message]

2017-05-03T04:59:02-04:00

I even install it in my new eggdrop and I created "h_message.dat" in my bot main dictionary and "messages.txt" I create manually it was not created auto

[08:49:33] Tcl error [mess_join]: invalid command name " "
[08:49:33] Tcl error [mess_do]: invalid command name " "

Please check http://picpaste.com/2017-04-29-ayKxULYG.png

Statistics: Posted by Fahad — Wed May 03, 2017 4:59 am

Script [Message]

2017-05-02T15:57:27-04:00

Sorry but I don't have that much TCL knowledge. Please check other scripts if this one doesn't work.

I had forgotten I had the original script (as I made some modifications). Here it is:

Code:

# Hadace messaging (uzeno-eng-win-beta v.1.5 WINDOWS ENGLISH BETA 2005.nov.08) #mfc.cs @ quakenet# NOTE!! # you must manualy create an empty file named: h_message.dat into your bot's main directory.# __        ___       ____  _   ___  __# \ \      / (_)_ __ / ___|| | | \ \/ /#  \ \ /\ / /| | '_ \\___ \| | | |\  /#   \ V  V / | | | | |___) | |_| |/  \#    \_/\_/  |_|_| |_|____/ \___//_/\_\  # my TCL scripts are avaiable here: # http://mazsola.linuxteam.hu/tcl/# WARNING !# in this version user rights are not correct!# it must be corrected!bind pub - "!msg" mess_dobind pub - "!messages" mess_listabind pubm - * mess_joinbind time - "20 * * * *" mess_sortbind pub - "!messaging" mess_infobind msg - "!msg" mess_do_inmsg#bind pub v|o "!msg" mess_do#bind pub o|o "!messages" mess_lista#bind pubm - * mess_join#bind time - "20 * * * *" mess_sort#bind pub v|o "!messaging" mess_info#bind msg v|o "!msg" mess_do_inmsgset message_db "h_message.dat"set message_whodid ""proc mess_info {nick host hand chan arg} {puthelp "PRIVMSG $chan :Hadace messaging (uzeno-eng-win-beta v.1.5 2005.dec.03)"puthelp "PRIVMSG $chan :Recepients list: !messages"puthelp "PRIVMSG $chan :Leaving message: !msg  "puthelp "PRIVMSG $chan :This info: !messaging"}proc mess_sort {a c d e f} {global message_dbset t_count [clock clicks -milliseconds]set filemuvelet [open $message_db r]set osszesuzenet ""while {![eof $filemuvelet]} {set konkretuzenet [gets $filemuvelet]if {[info exists konkretuzenet]&&$konkretuzenet!=""} {lappend osszesuzenet [split $konkretuzenet " "]}}close $filemuveletset osszesuzenet [lsort -index 1 $osszesuzenet]set filemuvelet [open $message_db w]foreach konkretuzenet $osszesuzenet {puts $filemuvelet [join $konkretuzenet " "]}close $filemuveletputlog "!message Done with sorting of data on the database ($message_db)->[expr double([clock clicks -milliseconds]-$t_count)/1000]s"}proc mess_do_inmsg {nick uhost hand rest} {global botnickputlog "mess_do_inmsg: $rest"set rest [split $rest " "]set cimzett [lindex $rest 0]if {$cimzett == ""} {puthelp "NOTICE $nick :The right format: /msg $botnick !msg  "} else {mess_write $nick $cimzett [lrange $rest 1 end] "MSG"puthelp "NOTICE $nick :Message for $cimzett accepted"}}proc mess_do {nick host hand chan args} {putlog "mess_do indul"set args [lindex $args 0]set args [split $args " "]set cimzett [lindex $args 0]if {$cimzett == ""} {puthelp "NOTICE $nick :The right format: !msg  "} else {if {[onchan $cimzett $chan]} {set mwhom $cimzettset mmoo [finduser "*![getchanhost $mwhom $chan]"]if {[validuser $mmoo]} {set cimzett $mmoo#putlog "uj uzenet $cimzett botuser szamara"} else {#putlog "uj uzenet $cimzett nick szamara"}}mess_write $nick $cimzett [lrange $args 1 end] $chanputhelp "NOTICE $nick :Message for $cimzett accepted"}}proc mess_write { nick cimzett uzenet csatorna } {global message_dbset cimzett [string tolower $cimzett]if {![file exists $message_db]} {file mkdir [lindex [split $message_db /] 0]set filemuvelet [open $message_db w+]puts $filemuvelet "Hadace !messaging database file created"} else {set filemuvelet [open $message_db a]}set systemTime [clock seconds]set ido [clock format $systemTime -format {%d.%m.%Y. %H.%M:}]puts $filemuvelet "$nick $cimzett $csatorna $ido [join $uzenet] "close $filemuvelet}#####################proc mess_join { nick uhost hand chan args } {#puthelp "NOTICE HeyBaby : $nick $uhost $hand $chan $args"if {$hand != "*"} {set explain [string tolower $hand]} else {set explain [string tolower $nick]}global message_db message_whodidif {![info exists message_whodid]} {set message_whodid ""}set nick [string tolower $nick]set filemuvelet [open $message_db r]set osszesuzenet ""while {![eof $filemuvelet]} {gets $filemuvelet konkretuzenetset konkretuzenet [split $konkretuzenet " "]if {[string equal -nocase [lindex $konkretuzenet 1] $explain]} {lappend osszesuzenet [join $konkretuzenet " "]}}close $filemuveletset count 0if {[llength $osszesuzenet]==1} {set uzente [split [lindex $osszesuzenet 0] " "]puthelp "PRIVMSG $nick :[lindex $uzente 0] says at [join [lrange [split [lindex $osszesuzenet 0] " "] 2 end]]"incr count} else {foreach konkretuzenet $osszesuzenet {incr countputhelp "PRIVMSG $nick :[lindex $konkretuzenet 0]\[${count}] says at [join [lrange [split $konkretuzenet " "] 2 end]]"} }if {$count == 0} { } else {lappend message_whodid [list $explain [string tolower $chan]]set explain [message_filterstr $explain];# Don't allow code to be executedset chan [message_filterstr $chan];# ensure []s are properly handled...mess_delete $explain}}###############################################xproc message_filterstr { data } {regsub -all -- \\\\ $data \\\\\\\\ dataregsub -all -- \\\[ $data \\\\\[ dataregsub -all -- \\\] $data \\\\\] dataregsub -all -- \\\} $data \\\\\} dataregsub -all -- \\\{ $data \\\\\{ dataregsub -all -- \\" $data \\\\" datareturn $data}proc mess_delete { cimzett {remnum "all"}} {global message_dbset cimzett [string tolower $cimzett]set filemuvelet [open $message_db r]set osszesuzenet ""set count 1if {$remnum == "all"} {while {![eof $filemuvelet]} {gets $filemuvelet konkretuzenetif {![string equal -nocase [lindex [split $konkretuzenet] 1] $cimzett]} {lappend osszesuzenet $konkretuzenet}}} else {while {![eof $filemuvelet]} {gets $filemuvelet konkretuzenetif {![string equal -nocase [lindex [split $konkretuzenet] 1] $cimzett] || ($count != $remnum && $remnum != -2)} {if {[info exists konkretuzenet]&&$konkretuzenet!=""} {lappend osszesuzenet $konkretuzenet}if {[string equal -nocase [lindex [split $konkretuzenet] 1] $cimzett]} {incr count}} else {incr count}}}close $filemuveletset filemuvelet [open $message_db w]foreach konkretuzenet $osszesuzenet {puts $filemuvelet $konkretuzenet}close $filemuvelet}proc mess_lista {nick host hand chan args} { global message_dbputserv "NOTICE $nick :\[ Recepients list \]"set lista ""set filemuvelet [open $message_db r]while {![eof $filemuvelet]} {lappend lista [lindex [split [gets $filemuvelet] " "] 1]}close $filemuveletforeach {a b c d e f g} [lsort -unique $lista] {putserv "NOTICE $nick :Recepients: $a $b $c $d $e $f $g"}putserv "NOTICE $nick :\[ end of the list \]" }putlog "Hadace messaging (uzeno.tcl v.1.5 ENG 2005.nov.08) #mfc.cs @ quakenet loaded"

Statistics: Posted by CP1832 — Tue May 02, 2017 3:57 pm

Script [Message]

2017-05-02T12:52:40-04:00

Sorry but I don't have that much TCL knowledge. Please check other scripts if this one doesn't work.

Statistics: Posted by CP1832 — Tue May 02, 2017 12:52 pm

Script [Message]

2017-05-02T08:07:06-04:00

Have you check screen short? Did you figure it out?

Statistics: Posted by Fahad — Tue May 02, 2017 8:07 am

Script [Message]

2017-04-29T09:51:19-04:00

There is already .txt file in my eggdrop messages.txt

Please check http://picpaste.com/2017-04-29-ayKxULYG.png

Statistics: Posted by Fahad — Sat Apr 29, 2017 9:51 am

Script [Message]

2017-04-29T09:26:46-04:00

touch messages.txt

or put manually file messages.txt where you eggdrop is.. ignore about your version.. its about your messages.txt and structure (location) of that messages.txt

Statistics: Posted by gembels — Sat Apr 29, 2017 9:26 am

Script [Message]

2017-04-29T05:38:08-04:00

My eggdrop is is 1.8 new version. I have created the folder "message_db" in my eggdrop. Do we have to fix this ?

set message_db "messages.txt"
set message_whodid ""

Statistics: Posted by Fahad — Sat Apr 29, 2017 5:38 am

Script [Message]

2017-04-28T20:24:43-04:00

I Serious don't understand this ERROR... It's Loaded already and I have create a empty folder "h_message.dat" in my bot main directory. What channel and Network your bot is? I create this folder in /home/eggy/eggdrop.

Tcl error [mess_alert]: invalid command name " "
Tcl error [mess_join]: invalid command name " "
Tcl error [msg]: invalid command name " "

I am pasting code again. please check the code.

Maybe there's some TCL issues with your eggdrop (or maybe it's too old). Actually, the file where the messages are stored in is defined by message_db and if the file doesn't exist, the script should be creating it.

Code:

set message_db "messages.txt"set message_whodid ""if {![file exists $message_db]} {    fconfigure [set File [open $message_db w]] -encoding binary    close $File}

Statistics: Posted by CP1832 — Fri Apr 28, 2017 8:24 pm

Script [Message]

2017-04-28T06:01:27-04:00

Code:

# Hadace messaging (uzeno-eng-win-beta v.1.5 WINDOWS ENGLISH BETA 2005.nov.08) #mfc.cs @ quakenet # NOTE!! # you must manualy create an empty file named: h_message.dat into your bot's main directory. # __        ___       ____  _   ___  __ # \ \      / (_)_ __ / ___|| | | \ \/ / #  \ \ /\ / /| | '_ \\___ \| | | |\  / #   \ V  V / | | | | |___) | |_| |/  \ #    \_/\_/  |_|_| |_|____/ \___//_/\_\  # my TCL scripts are avaiable here: # http://mazsola.linuxteam.hu/tcl/ # WARNING ! # in this version user rights are not correct! # it must be corrected! foreach bind [binds msg] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc} foreach bind [binds messages] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc} foreach bind [binds mess_alert] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc} foreach bind [binds messalert] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc} foreach bind [binds mess_join] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc} bind pub - "!msg" msg bind pub - "!messages" messages bind join - * mess_alert bind rejn - * mess_alert bind nick - * messalert bind pubm - * mess_join #bind pub v|o "!msg" msg #bind pub o|o "!messages" messages #bind pubm - * mess_join #bind time - "0 * * * *" mess_sort #bind pub v|o "!messaging" mess_info #bind msg v|o "!msg" mess_do_inmsg foreach bind [binds pubmsg] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc} # bind pubm - "% <*> !msg" pubmsg # bind pubm - "% <*> !msg *" pubmsg proc pubmsg {nick uhost hand chan rest} {    set myrest [split $rest];    set newnick [string range [lindex $myrest 0] 1 end-1];    set newrest [lrange $myrest 2 end];    msg $newnick $uhost $hand $chan $newrest    return 0 } foreach bind [binds pubmessages] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc} # bind pubm - "% <*> !messages" pubmessages # bind pubm - "% <*> !messages *" pubmessages proc pubmessages {nick uhost hand chan rest} {    set myrest [split $rest];    set newnick [string range [lindex $myrest 0] 1 end-1];    set newrest [lrange $myrest 2 end];    messages $newnick $uhost $hand $chan $newrest    return 0 } foreach bind [binds pubmess_join] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc} # bind pubm - "% <*> *" pubmess_join proc pubmess_join {nick uhost hand chan rest} {    set myrest [split $rest];    set newnick [string range [lindex $myrest 0] 1 end-1];    set newrest [lrange $myrest 1 end];    mess_join $newnick $uhost $hand $chan $newrest    return 0 } set message_db "messages.txt" set message_whodid "" if {![file exists $message_db]} {     fconfigure [set File [open $message_db w]] -encoding binary     close $File } proc mess_sort {type} {    global message_db    set t_count [clock clicks -milliseconds]    fconfigure [set filemuvelet [open $message_db r]] -encoding binary    set osszesuzenet ""    while {![eof $filemuvelet]} {       set konkretuzenet [gets $filemuvelet]       if {[info exists konkretuzenet]&&$konkretuzenet!=""} {          lappend osszesuzenet [split $konkretuzenet " "]       }    }    close $filemuvelet    set osszesuzenet [lsort -index 1 $osszesuzenet]    fconfigure [set filemuvelet [open $message_db w]] -encoding binary    foreach konkretuzenet $osszesuzenet {       puts $filemuvelet [join $konkretuzenet " "]    }    close $filemuvelet    putlog "!message Done with sorting of data on the database ($message_db)->[expr double([clock clicks -milliseconds]-$t_count)/1000]s" } proc msg {nick host hand chan args} {    putlog "mess_do indul"    set args [lindex $args 0]    set args [split $args " "]    set cimzett [lindex $args 0]    if {($cimzett == "") || ($cimzett == "help")  || ($cimzett == "ayuda")} {       puthelp "PRIVMSG $chan :Usage: !msg   - Leave  to "    } else {       if {[onchan $cimzett $chan]} {          set mwhom $cimzett          set mmoo [finduser "*![getchanhost $mwhom $chan]"]          if {[validuser $mmoo]} {             set cimzett $mmoo             #putlog "uj uzenet $cimzett botuser szamara"          } else {             #putlog "uj uzenet $cimzett nick szamara"          }       }       mess_write $nick $cimzett [lrange $args 1 end] $chan       puthelp "PRIVMSG $chan :Message to $cimzett accepted"    } return 1 } proc mess_write { nick cimzett uzenet csatorna } {    global message_db    set cimzett [string tolower $cimzett]    if {![file exists $message_db]} {       file mkdir [lindex [split $message_db /] 0]       fconfigure [set filemuvelet [open $message_db w+]] -encoding binary       puts $filemuvelet "Hadace !messaging database file created"    } else {       fconfigure [set filemuvelet [open $message_db a]] -encoding binary    }    set systemTime [clock seconds]    set ido [clock format $systemTime -format {%d/%m/%Y %H:%M:}]    puts $filemuvelet "$nick $cimzett $ido [join $uzenet] "    close $filemuvelet    mess_sort 1 } proc messalert { nick uhost hand chan args } {    mess_alert $args $uhost $hand $chan $nick } proc mess_alert { nick uhost hand chan args } {    #puthelp "NOTICE HeyBaby : $nick $uhost $hand $chan $args"    if {$hand != "*"} {       set explain [string tolower $hand]    } else {       set explain [string tolower $nick]    }    global message_db message_whodid botnick    if {![info exists message_whodid]} {       set message_whodid ""    }    if {($nick == $botnick)} { return }    set nick [string tolower $nick]    fconfigure [set filemuvelet [open $message_db r]] -encoding binary    set osszesuzenet ""    set count 0    while {![eof $filemuvelet]} {       gets $filemuvelet konkretuzenet       set konkretuzenet [split $konkretuzenet " "]       if {[string equal -nocase [lindex $konkretuzenet 1] $explain]} {       incr count       }    }    close $filemuvelet    if {$count > 0} {    puthelp "PRIVMSG $chan :$nick: You have $count message(s) pending. Say anything to receive it"    } return 0 } ##################### proc mess_join { nick uhost hand chan args } {    #puthelp "NOTICE HeyBaby : $nick $uhost $hand $chan $args"    if {$hand != "*"} {       set explain [string tolower $hand]    } else {       set explain [string tolower $nick]    }    global message_db message_whodid botnick    if {![info exists message_whodid]} {       set message_whodid ""    }    if {($nick == $botnick)} { return }    if {[string match -nocase "<*>*" $args]} { return }    set nick [string tolower $nick]    fconfigure [set filemuvelet [open $message_db r]] -encoding binary    set osszesuzenet ""    while {![eof $filemuvelet]} {       gets $filemuvelet konkretuzenet       set konkretuzenet [split $konkretuzenet " "]       if {[string equal -nocase [lindex $konkretuzenet 1] $explain]} {          lappend osszesuzenet [join $konkretuzenet " "]       }    }    close $filemuvelet    set count 0    if {[llength $osszesuzenet]==1} {       set uzente [split [lindex $osszesuzenet 0] " "]       puthelp "PRIVMSG $chan :$nick: [lindex $uzente 0]: [join [lrange [split [lindex $osszesuzenet 0] " "] 2 end]]"       incr count    } else {       foreach konkretuzenet $osszesuzenet {          incr count          puthelp "PRIVMSG $chan :$nick: [lindex $konkretuzenet 0]\[${count}]: [join [lrange [split $konkretuzenet " "] 2 end]]"       }    }    if {$count == 0} {    } else {       lappend message_whodid [list $explain [string tolower $chan]]       set explain [message_filterstr $explain]   ;# Don't allow code to be executed       set chan [message_filterstr $chan]   ;# ensure []s are properly handled...       mess_delete $explain    } return 0 } ###############################################x proc message_filterstr { data } {    regsub -all -- \\\\ $data \\\\\\\\ data    regsub -all -- \\\[ $data \\\\\[ data       regsub -all -- \\\] $data \\\\\] data    regsub -all -- \\\} $data \\\\\} data    regsub -all -- \\\{ $data \\\\\{ data    regsub -all -- \\\" $data \\\\\" data    return $data } proc mess_delete { cimzett {remnum "all"}} {    global message_db    set cimzett [string tolower $cimzett]    fconfigure [set filemuvelet [open $message_db r]] -encoding binary    set osszesuzenet ""    set count 1    if {$remnum == "all"} {       while {![eof $filemuvelet]} {          gets $filemuvelet konkretuzenet          if {![string equal -nocase [lindex [split $konkretuzenet] 1] $cimzett]} {             lappend osszesuzenet $konkretuzenet          }       }    } else {       while {![eof $filemuvelet]} {          gets $filemuvelet konkretuzenet          if {![string equal -nocase [lindex [split $konkretuzenet] 1] $cimzett] || ($count != $remnum && $remnum != -2)} {             if {[info exists konkretuzenet]&&$konkretuzenet!=""} {                lappend osszesuzenet $konkretuzenet             }             if {[string equal -nocase [lindex [split $konkretuzenet] 1] $cimzett]} {             incr count             }          } else {             incr count          }       }    }    close $filemuvelet    fconfigure [set filemuvelet [open $message_db w]] -encoding binary    foreach konkretuzenet $osszesuzenet {       puts $filemuvelet $konkretuzenet    }    close $filemuvelet    mess_sort 1 } proc messages {nick host hand chan args} {    global message_db    puthelp "PRIVMSG $chan :\[ List of message recipients \]"    set lista ""    fconfigure [set filemuvelet [open $message_db r]] -encoding binary    while {![eof $filemuvelet]} {       lappend lista [lindex [split [gets $filemuvelet] " "] 1]    }    close $filemuvelet    foreach {a b c d e f g} [lsort -unique $lista] {       puthelp "PRIVMSG $chan :Recipients: $a $b $c $d $e $f $g"    }    puthelp "PRIVMSG $chan :\[ End of list \]" return 1 } putlog "Hadace messaging (uzeno.tcl v.1.5 ENG 2005.nov.08) #mfc.cs @ quakenet loaded"

Statistics: Posted by Fahad — Fri Apr 28, 2017 6:01 am

Script [Message]

2017-04-28T06:00:33-04:00

I double tested the script I gave you on my channel and it worked flawlessly:

Code:

[00:40]  .msg kdoe kofr[00:40] <@BOT> Message to kdoe accepted[00:40] == lalalla has changed nick to kdoe[00:40] <@BOT> kdoe: You have 1 message(s) pending. Say anything to receive it[00:40]  ddd[00:40] <@BOT kdoe: lalalla: 28/04/2017 00:40: kofr

I Serious don't understand this ERROR... It's Loaded already and I have create a empty folder "h_message.dat" in my bot main directory. What channel and Network your bot is? I create this folder in /home/eggy/eggdrop.

Tcl error [mess_alert]: invalid command name " "
Tcl error [mess_join]: invalid command name " "
Tcl error [msg]: invalid command name " "

I am pasting code again. please check the code.

Statistics: Posted by Fahad — Fri Apr 28, 2017 6:00 am

Script [Message]

2017-04-27T23:42:30-04:00

I double tested the script I gave you on my channel and it worked flawlessly:

Code:

[00:40]  .msg kdoe kofr[00:40] <@BOT> Message to kdoe accepted[00:40] == lalalla has changed nick to kdoe[00:40] <@BOT> kdoe: You have 1 message(s) pending. Say anything to receive it[00:40]  ddd[00:40] <@BOT kdoe: lalalla: 28/04/2017 00:40: kofr

Statistics: Posted by CP1832 — Thu Apr 27, 2017 11:42 pm

Script [Message]

2017-04-27T14:01:44-04:00

I try Edited one you error again when I type !msg nick messagehere

[17:59:28] Tcl error [mess_join]: invalid command name " "
[17:59:28] Tcl error [msg]: invalid command name " "

Statistics: Posted by Fahad — Thu Apr 27, 2017 2:01 pm

Script [Message]

2017-04-27T13:31:29-04:00

Hi Fahad, I had forgotten to erase some modifications I did to the script. I have uploaded it again so you can try again.

Statistics: Posted by CP1832 — Thu Apr 27, 2017 1:31 pm

Script [Message]

2017-04-27T08:14:17-04:00

I get this error always when I run

[13:22:58] Tcl error [mess_alert]: invalid command name " "
[13:23:58] Tcl error [mess_alert]: invalid command name " "
[13:24:12] Tcl error [mess_join]: invalid command name " "
[13:24:12] Tcl error [msg]: can't read "relaybot": no such variable

Statistics: Posted by Fahad — Thu Apr 27, 2017 8:14 am

Script [Message]

2017-04-26T16:56:03-04:00

It reminds the user that it has a pending message as soon as he/she logs in and gives it to him as soon as he says something on the channel.

Statistics: Posted by CP1832 — Wed Apr 26, 2017 4:56 pm