| |
| |
| |
|
Comments:
<0> heh..
<0> ;regsub -all -- {<.+?>} {<p><b>Schon gewusst, d*** </b></p><ul><li> die <a href="/wiki/Sud-Ouest_SO_1100" title="Sud-Ouest SO 1100">Sud-Ouest Ariel III</a> der erste <a href="/wiki/Hubschrauber" title="Hubschrauber">Hubschrauber</a>} {}
<1> yoe: #139 (689 clicks) Tcl: Schon gewusst, d*** die Sud-Ouest Ariel III der erste Hubschrauber
<2> hey
<3> dra
<3> drax
<2> bind pubm o "*timer *" pub_timer
<2> proc pub_timer { nick uhost hand chan text } {
<2> global trigger lastbind version tclversion
<2> regsub -all "\\\x02A" $lastbind "" lastbind
<2> regsub -all "\\\s" $lastbind "" lastbind
<2> if {[lindex $text 0] == "${trigger}${lastbind}"} {
<2> set timemessage_setting(message) {
<2> "[lrange $text 3 end]"
<2> }
<2>
<4> 01
<5> ; regexp -inline {^.*(\w)\?\?$} "what does this mean??"
<1> Gotisch: #340 (62308 clicks) Tcl: {what does this mean??} n
<5> ; regexp -inline {^.*(^ )\?\?$} "what does this mean??"
<1> Gotisch: #341 (19449 clicks) Tcl:
<5> ; regexp -inline {^.*([a-Z])\?\?$} "what does this mean??"
<1> Gotisch: #342 (30356 clicks) Tcl error: couldn't compile regular expression pattern: invalid character range
<5> oh
<5> ; regexp -inline {^.*(\w+)\?\?$} "what does this mean??"
<1> Gotisch: #344 (6349 clicks) Tcl: {what does this mean??} n
<5> ; regexp -inline {^.* (\w+)\?\?$} "what does this mean??"
<1> Gotisch: #345 (36453 clicks) Tcl: {what does this mean??} mean
<5> ; regexp -inline {^(\w+)\?\?$} "what does this mean??"
<1> Gotisch: #346 (33572 clicks) Tcl:
<5> ; regexp -inline {(\w+)\?\?$} "what does this mean??"
<1> Gotisch: #347 (25465 clicks) Tcl: mean?? mean
<5> ;proc question { question } { if {[regexp {(\w+)\?\?$} $question] -> word] || [regexp {"(.*)"} $question] -> word] } { return $word } }
<1> Gotisch: #348 (2283 clicks) Tcl:
<5> ;question "What is this??"
<1> Gotisch: #349 (32419 clicks) Tcl error: syntax error in expression "[regexp {(\w+)\?\?$} $question] -> word] || [regexp {"(.*)"}...": unexpected operator >
<5> ups
<5> ;proc question { question } { if {[regexp {(\w+)\?\?$} $question -> word] || [regexp {"(.*)"} $question -> word] } { return $word } }
<1> Gotisch: #351 (361 clicks) Tcl:
<5> ;question "What is this??"
<1> Gotisch: #352 (21962 clicks) Tcl: this
<5> ;question "What does "Hello world" mean??"
<1> Gotisch: #353 (189 clicks) Tcl error: extra characters after close-quote
<5> ;question {What does "Hello world" mean??}
<1> Gotisch: #354 (5628 clicks) Tcl: mean
<5> darn!
<5> ;proc question { question } { if { [regexp {"(.*)"} $question -> word] || [regexp {(\w+)\?\?$} $question -> word] } { return $word } }
<1> Gotisch: #356 (356 clicks) Tcl:
<5> ;question {What does "Hello world" mean??}
<1> Gotisch: #357 (273541 clicks) Tcl: Hello world
<5> ;proc question { question } { if {![regexp {"(.*)"} $question -> word] && ![regexp {(\w+)\?\?$} $question -> word] } { return } else { return $word}}
<1> Gotisch: #358 (434 clicks) Tcl:
<5> ;question {What does "Hello world" mean??}
<1> Gotisch: #359 (783 clicks) Tcl: Hello world
<5> ;question {What world??}
<1> Gotisch: #360 (592 clicks) Tcl: world
<5> ;question {What is this it doesnt match ??}
<1> Gotisch: #361 (540 clicks) Tcl:
<5> ;urlencode
<1> Gotisch: #362 (343 clicks) Tcl error: wrong # args: should be "urlencode string"
<5> ;urlencode "Hello World"
<1> Gotisch: #363 (33030 clicks) Tcl: Hello%20World
<5> ;info body unhtml
<1> Gotisch: #364 (39674 clicks) Tcl: regsub -all -- {(<.+?>)} $text {}
<5> ; info body urldecode
<5> ;urldecode
<5> ;puts a
<6> it's been dead
<5> is the bot gone or what?
<5> duh
Return to
#tcl
or
Go to some related
logs:
#firebird
#beginner
#politics
#beginner
computer turns on yellow light no beeps
#beginner
#politics
#computers
#gamedev
EEEW IPX
|
|