| |
| |
| |
|
Page: 1 2 3 4 5 6
Comments:
<0> ;set result [regexp -all -inline -nocase -- {anyhtmlcode(.*?)html|secondarycode(.+?)html} "secondarycodeabc.html"];puts $result
<1> Shock^: #201 (stdout) secondarycodeabc.html {} abc.
<0> ;puts $result
<1> Shock^: #204 (stdout) secondarycodeabc.html {} abc.
<2> =)
<3> someone resetted it :(
<3> nn
<3> yep
<3> OH !
<3> that reminds me
<3> i had an fantastic idea for a game
<3> that would even work with the bot :)
<3> let me think about what it was again :D
<3> ok
<3> now up to insert it here :D
<3> check it!
<3> ; set a { proc = { num } { \n#(c) by Gotisch\n if {[info exists ::result]} { return [$num] } \n if {![string is integer $num]} { return } \n#Create a random num.\nset rand [expr {int(rand()*$num)}]\nset res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\nputs unknown "$rand + $h = $num"\n} }
<1> Gotisch: #243 (298 clicks) Tcl: proc = { num } { \n#(c) by Gotisch\n if {[info exists ::result]} { return [$num] } \n if {![string is integer $num]} { return } \n#Create a random num.\nset rand [expr {int(rand()*$num)}]\nset res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\nputs unkno
<3> ; set b [subst -nocommands -novariables $a]
<1> Gotisch: #244 (454 clicks) Tcl: proc = { num } {
<1> Gotisch: #244 (454 clicks) Tcl: #(c) by Gotisch
<1> Gotisch: #244 (454 clicks) Tcl: if {[info exists ::result]} { return [$num] }
<1> Gotisch: There's 9 more lines, but I'm not gonna show you them! =P
<3> ; eval $b
<1> Gotisch: #245 (585 clicks) Tcl:
<3> = 45
<4> dont get it
<3> mhpf
<3> ;= 45
<1> Gotisch: #249 (3483 clicks) Tcl error: invalid command name "45"
<3> why doesnt safe_Tcl work with puts unknown anymore?
<3> ;puts unkown "ah"
<1> Gotisch: #251 (unkown) ah
<3> ;puts unknown "ah"
<1> Gotisch: ah
<3> why doesnt it work from inside the proc?
<4> cos it doesnt =P
<3> mh
<3> probably tcl error
<4> just let it do a puts
<3> because string is to long
<3> ill slpit it
<3> ;rename = {}
<1> Gotisch: #261 (519 clicks) Tcl:
<3> ;set a { proc = { num } { \n#(c) by Gotisch\n if {[info exists ::result]} { return [$num] } \n if {![string is integer $num]} { return } \n#Create a random num.\nset rand [expr {int(rand()*$num)}] }
<4> why the gay $num name for a proc?
<3> ;set a [subst -nocommands -novariables $a]
<1> Gotisch: #263 (398 clicks) Tcl: proc = { num } {
<1> Gotisch: #263 (398 clicks) Tcl: #(c) by Gotisch
<1> Gotisch: #263 (398 clicks) Tcl: if {[info exists ::result]} { return [$num] }
<1> Gotisch: There's 9 more lines, but I'm not gonna show you them! =P
<3> you will see
<4> k
<4> you got 9 mins to show me =P
<4> hmmm these damn bots piss me off
<3> ;set b { set res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\nputs "$rand + $h = $num"\n} }
<1> Gotisch: #268 (652 clicks) Tcl error: wrong # args: should be "set varName ?newValue?"
<4> i'm meant to be +av in here and +ao in eggtcl
<4> but they just seem to have forgoten me
<3> ;set b { set res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\nputs "$rand + $h = $num"\n } }
<3> woot
<1> Gotisch: #271 (646 clicks) Tcl error: wrong # args: should be "set varName ?newValue?"
<3> why?
<3> ; set b { set res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\nputs unknown "$rand + $h = $num"\n } }
<1> Gotisch: #274 (658 clicks) Tcl error: wrong # args: should be "set varName ?newValue?"
<3> work!
<4> lol
<3> grr
<3> ;reset
<1> Gotisch: #278 (1773214 clicks) Tcl: Reset safetcl.
<3> lets redo this
<3> ;set a { proc = { num } { \n#(c) by Gotisch\n if {[info exists ::result]} { return [$num] } \n if {![string is integer $num]} { return } \n#Create a random num.\nset rand [expr {int(rand()*$num)}] set res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\nputs unknown "$rand + $h = $num"\n } }
<1> Gotisch: #2 (322 clicks) Tcl: proc = { num } { \n#(c) by Gotisch\n if {[info exists ::result]} { return [$num] } \n if {![string is integer $num]} { return } \n#Create a random num.\nset rand [expr {int(rand()*$num)}] set res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\nputs unknow
<4> 7mins =P
<3> ;string range
<1> Gotisch: #4 (1159 clicks) Tcl error: wrong # args: should be "string range string first last"
<3> ;string range $a 50 end
<1> Gotisch: #5 (464 clicks) Tcl: ists ::result]} { return [$num] } \n if {![string is integer $num]} { return } \n#Create a random num.\nset rand [expr {int(rand()*$num)}] set res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\nputs unknown "$rand + $h = $num"\n }
<3> ok
<3> its in fully
<3> ;set a [subst -nocommands -novariables $a]
<1> Gotisch: #8 (433 clicks) Tcl: proc = { num } {
<1> Gotisch: #8 (433 clicks) Tcl: #(c) by Gotisch
<1> Gotisch: #8 (433 clicks) Tcl: if {[info exists ::result]} { return [$num] }
<1> Gotisch: There's 8 more lines, but I'm not gonna show you them! =P
<3> ;eval $a
<1> Gotisch: #9 (851 clicks) Tcl:
<3> ;= 50
<1> Gotisch: #10 (1761 clicks) Tcl error: can't read "rand": no such variable
<3> -.-
<4> haha
<3> arg
<3> found my error
<4> good!
<4> time is running out
<1> [GRiMMY]: #16 (366 clicks) Tcl: 01:11
<4> less than 4mins
<3> ;set a { proc = { num } { \n#(c) by Gotisch\n if {[info exists ::result]} { return [$num] } \n if {![string is integer $num]} { return } \n#Create a random num.\nset rand [expr {int(rand()*$num)}]; set res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\nputs unknown "$rand + $h = $num"\n } }
<1> Gotisch: #18 (319 clicks) Tcl: proc = { num } { \n#(c) by Gotisch\n if {[info exists ::result]} { return [$num] } \n if {![string is integer $num]} { return } \n#Create a random num.\nset rand [expr {int(rand()*$num)}]; set res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\nputs unkno
<3> ;set a [subst -nocommands -novariables $a]
<1> Gotisch: #19 (410 clicks) Tcl: proc = { num } {
<1> Gotisch: #19 (410 clicks) Tcl: #(c) by Gotisch
<4> ;after [expr 3*60*1000]
<1> Gotisch: #19 (410 clicks) Tcl: if {[info exists ::result]} { return [$num] }
<1> Gotisch: There's 8 more lines, but I'm not gonna show you them! =P
<1> [GRiMMY]: #20 (572 clicks) Tcl error: after is disabled.
<3> ;eval a
<1> Gotisch: #21 (3545 clicks) Tcl error: invalid command name "a"
<4> lol
<3> ;eval $a
<1> Gotisch: #23 (689 clicks) Tcl:
<3> ;info commands
<1> Gotisch: #24 (798 clicks) Tcl: isdynamic subst pwd unknown lrange luniq ctime onchansplit auto_import case break string2list auto_execok ip2hex ischanexempt linsert urlencode ispermban ansicolor rehash catch average encp*** if join strcmp htmlencode ispermexempt isinvite onchan botisvoice finduser format unames modules stricmp LargebinaryToDecimal package washalfop binary lrandom trace sllength isvoice flush after u2c continue f
<4> =
<3> why are there so many
<3> ;= 50
<1> Gotisch: 31 + ?? = 50
<4> 19
<3> ;19
<1> [GRiMMY]: 17 + ?? = 60
<1> Gotisch: 7 + ?? = 23
<3> arg
<3> i forgot
<3> it has to remove the proc afterwards :)
<4> hmmmm
<4> no more time
<3> ;set a { proc = { num } { \n#(c) by Gotisch\n if {[info exists ::result]} { return [$num] } \n if {![string is integer $num]} { return } \n#Create a random num.\nset rand [expr {int(rand()*$num)}]; set res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result; rename $res {} }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\nputs unknown "$rand + $h = $num"\n }
<4> gonna concentrate on winning the WPT Quarter Final Qualifier
<3> ;set errorInfo
<1> Gotisch: #36 (201 clicks) Tcl: invalid command name "gonna"
<1> Gotisch: #36 (201 clicks) Tcl: while executing
<1> Gotisch: #36 (201 clicks) Tcl: "gonna concentrate on winning the WPT Quarter Final Qualifier"
<3> -.-
<3> ;set a { proc = { num } { \n#(c) by Gotisch\n if {[info exists ::result]} { return [$num] }\nif {![string is integer $num]} { return }\n#Create a random num.\nset rand [expr {int(rand()*$num)}]; set res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result; rename $res {} }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\n puts unknown "$rand + $h = $num"\n }}
<1> Gotisch: #38 (315 clicks) Tcl: proc = { num } { \n#(c) by Gotisch\n if {[info exists ::result]} { return [$num] }\nif {![string is integer $num]} { return }\n#Create a random num.\nset rand [expr {int(rand()*$num)}]; set res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result; rename $res {} }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\n
<3> ;reset
<1> Gotisch: #39 (1098423 clicks) Tcl: Reset safetcl.
<3> ;set a { proc = { num } { \n#(c) by Gotisch\n if {[info exists ::result]} { return [$num] }\nif {![string is integer $num]} { return }\n#Create a random num.\nset rand [expr {int(rand()*$num)}]; set res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result; rename $res {} }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\n puts unknown "$rand + $h = $num"\n }}
<1> Gotisch: #1 (229 clicks) Tcl: proc = { num } { \n#(c) by Gotisch\n if {[info exists ::result]} { return [$num] }\nif {![string is integer $num]} { return }\n#Create a random num.\nset rand [expr {int(rand()*$num)}]; set res [expr {$num-$rand}]\nset ::result $res\nproc $res { args } { if {[info exists ::result]} { unset ::result; rename $res {} }; = [expr {int(rand()*100)}] }\nset h [string repeat "?" [string length $res]]\n
<3> ;set a [subst -nocommands -novariables $a]
<1> Gotisch: #2 (431 clicks) Tcl: proc = { num } {
<1> Gotisch: #2 (431 clicks) Tcl: #(c) by Gotisch
<1> Gotisch: #2 (431 clicks) Tcl: if {[info exists ::result]} { return [$num] }
<1> Gotisch: There's 8 more lines, but I'm not gonna show you them! =P
<3> ;eval $a
<1> Gotisch: #3 (820 clicks) Tcl:
<3> ;=30
<1> Gotisch: #4 (70213 clicks) Tcl error: invalid command name "=30"
<3> ;= 30
<4> ;= 30
Return to
#tcl
or
Go to some related
logs:
#gentoo
#beginner
#qmail
arabmales
#beginner
have same exposed names,use correlation to distinguish
#winxp
#computers
#windowsxp
DVD Canada Russia 72
|
|