Code:

puthelp "PRIVMSG #channel :[lindex $uzente 0] says at [join [lrange [split [lindex $osszesuzenet 0] " "] 2 end]]" 

Code:

 puts $filemuvelet "$nick $cimzett $csatorna $ido [join $uzenet] "

Code:

 puts $filemuvelet "$cimzett : [join $uzenet]  -- $nick $ido "

Code:

bind pub -|- "!msg" mess_dobind pub -|- "!messages" mess_listabind pubm - * mess_joinbind time - "20 * * * *" mess_sortbind pub v|o "!messaging" mess_infobind msg -|- "!msg" mess_do_inmsgset message_db "scripts/fserv/msg.dat"set message_whodid ""proc mess_info {nick host hand chan arg} {puthelp "NOTICE $nick :Recepients list: !messages"puthelp "NOTICE $nick :Leaving message: !msg <nick> <message>"}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 <nick> <message>"} 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} {set args [lindex $args 0]set args [split $args " "]set cimzett [lindex $args 0]if {$cimzett == ""} {puthelp "NOTICE $nick :The right format: !msg <nick> <message>"} 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 \]" }