But I don't know how to end ...
As always I thank you for all your help.
public command
ORATEGOD: !report
Bot: ERROR! Enter a bot and info to report. Format: !report <user> <description>
ORATEGOD: !report <user> <description>
Bot: ORATEGOD: Your report has been received. (Thanks)..
Bot: ORATEGOD: Ihr Bericht wurde erhalten. (Vielen Dank)..
Bot: ORATEGOD: Se ha recibido su informe. (Gracias)..
command for bot owner
!report list (shows list of reports (if there are any)
Bot: 1. user1 description of the problem.
Bot: 2. user2 description of the problem.
Bot: 3. user3 description of the problem.
Bot: 4. user4 description of the problem.
!report del
Bot: Houston, we have a problem
!report del 3
Bot: report number 3 has been deleted
Sorry my bad english (:set report(file) "report.txt"
set report(us.thanks) "Your report has been received. (Thanks)."
set report(de.thanks) "Ihr Bericht wurde erhalten. (Vielen Dank)."
set report(es.thanks) "Se ha recibido su reporte. (Gracias)."
bind pub -|- !report report:tofile
proc report:tofile {nk uh hn ch tx} {
global report
set date [strftime %d/%m/%y]
set open [open $report(file) a]
puts $open "- $nk reported: $tx"
close $open
puthelp "PRIVMSG $ch :${nk}: $report(us.thanks)."
puthelp "PRIVMSG $ch :${nk}: $report(de.thanks)."
puthelp "PRIVMSG $ch :${nk}: $report(es.thanks)."
}
putlog "************************************"
putlog "* REPORT ***** LOADED ***** REPORT *"
putlog "************************************"