bind Pub

[helga]

hi,

mit "bind pub - blabla" wird doch gecheckt, ob dieses Wort geschrieben wird und das als erstes im Text. wie kann man es machen, daß er die ganze Zeile nach dem Wort abcheckt? Also wenn man schreibt "test test blablatest" und er dann auch dadrauf reagiert ?

[ChaosKrieger]

hi,


bind pub - 1 bla
proc bla {n u h c t} {
if {$t == "2 3 4"} {
1 2 3 4 -> mach das
}
}

[helga]

hmm....

verstehe das jetzt nicht ganz, wird mit den Zahlen die Stelle eines Zeichensatzen genommen, oder wie ist das zu verstehen?

kann man nicht sowas ähnlichen machen wie:

bin pub preg_match("blabla", $arg) pub_test

proc pub_test ....

?

[helga]

hier nochmal kurz die Lösung für die anderen:


bin pubm - "* bla *" pub_proc

[iZ-Markus]

Moin, ich hab eine ähnliche frage wie Helga,

ich würde meinen bot gerne auf "/me Text" Befehle reagieren lassen.
Mit welchen Bind kann ich sowas realiesieren.

Mit bind act scheint es ja nicht zu gehen.

[ChaosKrieger]

Moin, ich hab eine ähnliche frage wie Helga,

ich würde meinen bot gerne auf "/me Text" Befehle reagieren lassen.
Mit welchen Bind kann ich sowas realiesieren.

Mit bind act scheint es ja nicht zu gehen.

bind notc

[iZ-Markus]

bind notc


bind notc - *wort* pub_fc2

proc pub_fc2 { nick host hand chan dest text } {
putserv "privmsg $chan :$nick $host $hand $dest $test"
}


hab das testweise mal so eingebaut funzt aber leider nicht...

[ChaosKrieger]

oder wars note ? sry, lang nix mehr mit eggdrop-tcl angestellt

[iZ-Markus]

oder wars note ? sry, lang nix mehr mit eggdrop-tcl angestellt


leider auch nicht, falls noch jemand eine idee bitte melden :-)

[retro]

leider auch nicht, falls noch jemand eine idee bitte melden :-)
also eigentlich müsste das gehen:

bind act <flags> <mask> <proc>
proc-name <handle> <channel#> <action>

also z.b.

bind act - slaps rev

proc rev { hand chan act } {

....
}

[iZ-Markus]

also eigentlich müsste das gehen:

bind act <flags> <mask> <proc>
proc-name <handle> <channel#> <action>

also z.b.

bind act - slaps rev

proc rev { hand chan act } {

....
}


geht leider auch nicht

[retro]

geht leider auch nicht

ich seh grad mein fehler....

act ist nur für dcc/partyline....
ich schreib mir morgen mal was zusammen ;)

//edit

doch noch heute ;)

bind ctcp - "ACTION" action_proc
proc action_proc { nick uhost hand dest keyword text } {
if {[string index $dest 0] != "#"} { return 0 }
if { [lindex $text 0] == "Slaps"} {
putserv "PRIVMSG $dest : vorsicht, willst du ärger $nick ?"
}
}


das geht ^^ grad getestet

um das ganze etwas besser zu machen sollte man das lindex ersetzen:

also statt if { [lindex $text 0] == "Slaps"}

if {[lsearch -nocase $text "slaps"] != -1 }

[iZ-Markus]

ich seh grad mein fehler....

act ist nur für dcc/partyline....
ich schreib mir morgen mal was zusammen ;)

//edit

doch noch heute ;)

bind ctcp - "ACTION" action_proc
proc action_proc { nick uhost hand dest keyword text } {
if {[string index $dest 0] != "#"} { return 0 }
if { [lindex $text 0] == "Slaps"} {
putserv "PRIVMSG $dest : vorsicht, willst du ärger $nick ?"
}
}


das geht ^^ grad getestet

um das ganze etwas besser zu machen sollte man das lindex ersetzen:

also statt if { [lindex $text 0] == "Slaps"}

if {[lsearch -nocase $text "slaps"] != -1 }


Super danke, werd ich nachher mal testen :)