egghelp/eggheads community

submit message!

2005-06-25T15:02:35-04:00

thanks all , can u tell me the command to add text for this.
is this a public command, i want this script for my eggdrop trivia.tcl to add a Q&A , as /msg botnick add answer*question only that no other things needed to save it to trivia.something(anything )

Statistics: Posted by inxs — Sat Jun 25, 2005 3:02 pm

submit message!

2005-06-25T12:48:12-04:00

Arrh, i see, i was thinking is was a array, oh well ;p
i sometimes get them the wrong way around

Statistics: Posted by r0t3n — Sat Jun 25, 2005 12:48 pm

submit message!

2005-06-25T12:28:04-04:00

Code:

global botnickand $::botnick

If you globalize botnick then you don't have to use $::botnick, you globalize it so you can use $botnick. $::botnick can be used when it's not globalized.

Code:

 bind msgm - "!read*" botpost_lese proc botpost_lese {nick host hand text} {     global post_messages     global post_userfile     global post_botnick

could be changed to

Code:

bind msgm - "!read*" botpost_lese proc botpost_lese {nick host hand text} {     global post

i think ;p

You thought wrong again, 'post' is not an array (which would look like this btw post(element) and not post_element)

Statistics: Posted by Sir_Fz — Sat Jun 25, 2005 12:28 pm

submit message!

2005-06-25T11:50:02-04:00

Also

Code:

bind msgm - "!read*" botpost_lese proc botpost_lese {nick host hand text} {     global post_messages     global post_userfile     global post_botnick

could be changed to

Code:

bind msgm - "!read*" botpost_lese proc botpost_lese {nick host hand text} {     global post

i think ;p

Statistics: Posted by r0t3n — Sat Jun 25, 2005 11:50 am

submit message!

2005-06-25T11:47:49-04:00

instead of using all that

Code:

#here the name of your bot set post_botnick "XXXXXXX"and$post_botnick

use

Code:

global botnickand $::botnick

Otherwise when the botnick changes, the $post_botnick var does not change!

Statistics: Posted by r0t3n — Sat Jun 25, 2005 11:47 am

submit message!

2005-06-25T10:53:44-04:00

In english

Code:

set post_userfile "scripts/post.userfile"set post_messages "scripts/post.messages"#here the name of your botset post_botnick "XXXXXXX"bind join - * bot_checkpostproc bot_checkpost {nick host hand channel} {    global post_messages    global post_botnick    if {[get $nick $post_messages]!=""} {putserv "NOTICE $nick :13A new message is waiting for you!"putserv "NOTICE $nick :Type /msg $post_botnick !read ."    }}bind msgm - "!new*" botpost_newproc botpost_new {nick host hand text} {    global post_userfile    set passwort [lindex $text 1]    if {$passwort==""} {putserv "NOTICE $nick : No password allocated!";    } else {if {[get $nick $post_userfile] == ""} {    add $nick $passwort $post_userfile} else {    putserv "NOTICE $nick : Your Mail-Box currently exists!"}    }}bind msgm - "!read*" botpost_leseproc botpost_lese {nick host hand text} {    global post_messages    global post_userfile    global post_botnick    set passwort [lindex $text 2]    set postnick [lindex $text 1]    if {$passwort == ""} {set passwort [lindex $text 1]set postnick $nick    }    if {[get $postnick $post_userfile]==""} {putserv "NOTICE $nick :You have no Mail-Box."putserv "NOTICE $nick :Type /msg $post_botnick !new  to order a Mail-Box!"    }    if {[get $postnick $post_userfile]!=$passwort} {putserv "NOTICE $nick : Wrong Password!"    } else {set nachricht [get $postnick $post_messages]if {$nachricht == "" } {    putserv "NOTICE $nick : You have no messages!"} else {    putserv "NOTICE $nick : $nachricht"    remove $postnick $post_messages    set nachricht [get $postnick $post_messages]    while {$nachricht != ""} {putserv "NOTICE $nick : $nachricht"remove $postnick $post_messages    }}    }}#HELP WITH SYNTAX !botpostbind msg - !botpost botpost_helpproc botpost_help {nick host hand text} {    global post_botnick    set abfragender $nick    putserv "NOTICE $abfragender :/msg $post_botnick !new  to order a Mail-Box."    putserv "NOTICE $abfragender :/msg $post_botnick !send   to send a message."    putserv "NOTICE $abfragender :/msg $post_botnick !read   to read the messages."}bind msg - !send botpost_sendeproc botpost_sende {nick host hand text} {    global post_messages    global post_userfile    set adressat [lindex $text 0]    set nachricht "$nick sagt: [lrange $text 1 end]"    putserv "NOTICE $nick :message was sent!"    putlog "Message to $adressat: $nachricht"    add $adressat $nachricht $post_messages}proc add {key value file} {    exec "touch" $file    set fh [open $file a]    puts $fh "$key => $value"    close $fh}proc get {key file} {    exec "touch" $file    set fh [open $file r]    set returnword {}    while {![eof $fh]} {set stdin [string trim [gets $fh]]if {[eof $fh]} { break }set breaker [lsearch -exact $stdin "=>"]set getkey [lrange $stdin 0 [expr $breaker - 1]] set getresult [lrange $stdin [expr $breaker + 1] end]if {[string tolower $getkey] == [string tolower $key]} { set returnword $getresult }    }    close $fh    return $returnword}proc remove {word file} {    exec "touch" $file    set fh [open $file r]    set return {}    set del 0    while {![eof $fh]} {set stdin [string trim [gets $fh]]if {[eof $fh]} { break }if {![regexp -nocase $word $stdin]} {    lappend return $stdin} {    incr del 1}    }    close $fh;    set fh [open $file w]    foreach a $return {puts $fh $a    }    close $fh    return $del}

Statistics: Posted by tessa1 — Sat Jun 25, 2005 10:53 am

submit message!

2005-06-25T10:34:36-04:00

thanks but i down understand German lang

Statistics: Posted by inxs — Sat Jun 25, 2005 10:34 am

submit message!

2005-06-25T09:34:54-04:00

Sorry, the Script is in German

Code:

set post_benutzerdatei "scripts/post.benutzerdatei"set post_nachrichten "scripts/post.nachrichten"set post_botnick "XXXXXXX"bind join - * bot_checkpostproc bot_checkpost {nick host hand channel} {    global post_nachrichten    global post_botnick    if {[get $nick $post_nachrichten]!=""} {putserv "NOTICE $nick :13Du hast neue Nachrichten!"putserv "NOTICE $nick :Tippe /msg $post_botnick !lese  um sie abzurufen."    }}bind msgm - "!neu*" botpost_neuproc botpost_neu {nick host hand text} {    global post_benutzerdatei    set passwort [lindex $text 1]    if {$passwort==""} {putserv "NOTICE $nick : Kein Passwort vergeben!";    } else {if {[get $nick $post_benutzerdatei] == ""} {    add $nick $passwort $post_benutzerdatei} else {    putserv "NOTICE $nick : Deine Mail-Box besteht bereits!"}    }}bind msgm - "!lese*" botpost_leseproc botpost_lese {nick host hand text} {    global post_nachrichten    global post_benutzerdatei    global post_botnick    set passwort [lindex $text 2]    set postnick [lindex $text 1]    if {$passwort == ""} {set passwort [lindex $text 1]set postnick $nick    }    if {[get $postnick $post_benutzerdatei]==""} {putserv "NOTICE $nick :Du hast keine Mail-Box eingerichtet."putserv "NOTICE $nick :Tippe /msg $post_botnick !neu  um dir eine einzurichten!"    }    if {[get $postnick $post_benutzerdatei]!=$passwort} {putserv "NOTICE $nick : Falsches Passwort!"    } else {set nachricht [get $postnick $post_nachrichten]if {$nachricht == "" } {    putserv "NOTICE $nick : Du hast keine Nachrichten!"} else {    putserv "NOTICE $nick : $nachricht"    remove $postnick $post_nachrichten    set nachricht [get $postnick $post_nachrichten]    while {$nachricht != ""} {putserv "NOTICE $nick : $nachricht"remove $postnick $post_nachrichten    }}    }}bind msg - !botpost botpost_hilfeproc botpost_hilfe {nick host hand text} {    global post_botnick    set abfragender $nick    putserv "NOTICE $abfragender :/msg $post_botnick !neu  um eine Mail-Box unter deinem gegenwärtigen Nick zu erstellen."    putserv "NOTICE $abfragender :/msg $post_botnick !sende   um eine Nachricht zu senden."    putserv "NOTICE $abfragender :/msg $post_botnick !lese   um Nachrichten zu lesen."}bind msg - !sende botpost_sendeproc botpost_sende {nick host hand text} {    global post_nachrichten    global post_benutzerdatei    set adressat [lindex $text 0]    set nachricht "$nick sagt: [lrange $text 1 end]"    putserv "NOTICE $nick :Nachricht gesendet!"    putlog "Nachricht an $adressat: $nachricht"    add $adressat $nachricht $post_nachrichten}proc add {key value file} {    exec "touch" $file    set fh [open $file a]    puts $fh "$key => $value"    close $fh}proc get {key file} {    exec "touch" $file    set fh [open $file r]    set returnword {}    while {![eof $fh]} {set stdin [string trim [gets $fh]]if {[eof $fh]} { break }set breaker [lsearch -exact $stdin "=>"]set getkey [lrange $stdin 0 [expr $breaker - 1]] set getresult [lrange $stdin [expr $breaker + 1] end]if {[string tolower $getkey] == [string tolower $key]} { set returnword $getresult }    }    close $fh    return $returnword}proc remove {word file} {    exec "touch" $file    set fh [open $file r]    set return {}    set del 0    while {![eof $fh]} {set stdin [string trim [gets $fh]]if {[eof $fh]} { break }if {![regexp -nocase $word $stdin]} {    lappend return $stdin} {    incr del 1}    }    close $fh;    set fh [open $file w]    foreach a $return {puts $fh $a    }    close $fh    return $del}

Statistics: Posted by tessa1 — Sat Jun 25, 2005 9:34 am

submit message!

2005-06-25T01:50:40-04:00

i want a script that can save message to my eggdrop file when the type /msg botnick add text|text to eggdrop.submit, to submit the text|text. can anyone give me the code or scripts

Statistics: Posted by inxs — Sat Jun 25, 2005 1:50 am