| |
| |
| |
|
Page: 1 2
Comments:
<0> OICTHX2U!!
<0> NPHFLOLOL!
<1> kekeke ^_^
<0> :p
<2> what's the "HF" for?
<0> have fun
<0> U FAIL AT INTERNET LINGO AMIRITE?
<2> guess so
<2> never subsribed to aol :(
<0> hehe
<2> ...
<0> /b/ in particular
<0> or perhaps somethingawful.com
<3> =)
<0> (=
<3> =D
<3> \(o_)/
<0> @"
<2> _)_)=========D ~ ~ ~~ ~~~~
<3> ew
<4> lol
<0> DONT EJACULATE IN THE CHANNEL!
<5> LOL
<6> aRG
<6> tcl scriptcom sux
<6> why do they encode all their script
<6> its always such a pita to read through them
<7> rewrite them better and add a big **** YOU at the top :)
<6> thats what im doing :)
<7> link one of the encoded scirpt
<6> that would be
<6> http://www.tclscript.com/cgi-bin/dlcount.cgi?get=alice.tgz
<6> gonna rewrite that for my bot
<7> pose a huge security risk for you to load that too
<7> its like them //$decode mirc thingy
<6> ye
<6> well i got it half decoded
<6> JifJ {[JinfJoJ exJistsJ egghttp(vers
<6> just lots of J in it still -.-
<6> i wonder how they got in there
<7> heh, i got it decoded completly
<7> me too :)
<7> u want it ?
<6> meh
<6> give me a minute
<6> ill figure it out :P
<7> its really easy :)
<7> as the proc decodes it and it evals
<6> got it
<6> ye i wonder how the J got in there
<7> hehe
<7> how
<7> puts [set f [open alice2.tcl w]] [eval www.tclscript.com -18 {\{x...
<7> close $f
<7> how i did it
<7> so im amazed by ur Js :)
<6> ye weird
<6> mh
<6> is there a way to combine perl and tcl?
<2> do you mean embedded tcl in perl or the other way?
<6> other way
<2> there's a tcl module for perl
<6> embedded perl in tcl
<2> oh
<2> perl package for tcl... eh....
<2> http://jfontain.free.fr/tclperl.htm
<2> hrm
<6> ah nvm
<6> i would have to learn perl first anyway
<6> man
<6> its so hard to get a decent ai bot
<6> or better
<6> ai api
<6> ha
<6> ill try python
<6> that look easier
<6> http://wiki.tcl.tk/8756
<6> woho
<6> this looks really simple :)
<6> damn
<6> thats complicated too
<6> i need to compile it as extension
<6> woho
<6> http://jfontain.free.fr/tclpython.htm
<6> thats exactly what i want :)
<6> Simplicity in its exentend
<8> uhm, why go through the tcl interp?
<8> hmm, what kind and level of AI are you looking for anyway?
<6> mh?
<6> well i have a
<6> module or what ever that i sin python
<6> that does exactly what i want
<6> now i just need to somehow load it into my tclwrapped python interpr
<8> if its not a very complicated script, maybe port it to tcl?
<8> sounds like quite some overhead, having both tcl and python interpreters run at the same time and exchange data all the time
<6> mh well the
<6> http://www.alicebot.org/TR/2005/WD-aiml/
<6> definition is pretty long
<8> ah alice, hehe
<6> DAMN
<6> now that friggin this is for another python version
<9> ;set word "test)test2 test3)test4;regsub -all ")" $word "" word
<10> anc-: #2885 (195 clicks) Tcl error: extra characters after close-quote
<9> ;set word "test)test2 test3)test4";regsub -all ")" $word "" word
<10> anc-: #2886 (72020 clicks) Tcl error: couldn't compile regular expression pattern: parentheses () not balanced
<11> help
<9> ;set word "test)test2 test3)test4";regsub -all "\\)" $word "" word
<11> ;help
<10> anc-: #2889 (30074 clicks) Tcl: 2
<10> Shinta: #2890 (2213 clicks) Tcl error: invalid command name "help"
<9> ;puts $word
<10> anc-: #2891 (stdout) testtest2 test3test4
<11> :)
<9> ;set word "test)test2 test3)test4";[split $word ")"]
<10> anc-: #2893 (26295 clicks) Tcl error: wrong # args: should be "info exists varName"
<9> ;set word "test)test2 test3)test4";foreach x [split $word ")"] { puts $x }
<10> anc-: #2894 (stdout) test
<10> anc-: #2894 (stdout) test2 test3
<10> anc-: There's 6 lines, but I'm not gonna show you the rest of them! =P
<9> id like to make it return test2 and test4
<9> ;set word "test)test2 test3)test4";foreach x [split $word] { regsub -all "\\)" $x "" x;puts [lindex $x 1] }
<10> anc-: There's 4 lines, but I'm not gonna show you the rest of them! =P
<9> set word "test)test2 test3)test4"
<9> foreach x [split $word] { regsub -all "\\)" $x "" x;puts [lindex $x 1] }
<10> anc-: #2897 (172 clicks) Tcl: test)test2 test3)test4
<10> anc-: There's 4 lines, but I'm not gonna show you the rest of them! =P
<9> show me just one :/
<9> foreach x [split $word] { regsub -all "\\)" $x "" x;puts [lindex $x 1] }
<10> anc-: There's 4 lines, but I'm not gonna show you the rest of them! =P
<9> ;foreach x [split $word] { regsub -all "\\)" $x "" x;puts [lindex $x 1] }
<10> anc-: There's 4 lines, but I'm not gonna show you the rest of them! =P
<9> ;isvoice anc #tcl
<10> anc-: #2902 (15346 clicks) Tcl: 0
<9> ;set nick ANC
<10> anc-: #2903 (148 clicks) Tcl: ANC
<9> ;string tolower $nick
<10> anc-: #2904 (293 clicks) Tcl: anc
<6> ;isvoice Gotisch #tcl
<10> Gotisch: #2905 (224 clicks) Tcl: 1
<7> ;isvoice BL4DE #tcl
<10> BL4DE: #2910 (231 clicks) Tcl: 0
<7> ;isvoice BL4DE #tcl
<10> BL4DE: #2911 (222 clicks) Tcl: 0
<6> :]
<6> ;isop Gotisch #tcl
<10> Gotisch: #2913 (217 clicks) Tcl: 0
<6> :(
<6> ;isop BL4DE #tcl
Return to
#tcl
or
Go to some related
logs:
#linuxhelp
ircimages, corn
#computers
publicsluts pass
#politics
#computers
#beginner
#red
ubuntu select and install software please wait
#debian
|
|