| |
| |
| |
|
Page: 1 2 3
Comments:
<0> 10 mins ago
<1> ok
<2> because i was doding that stupid script
<2> **** it
<0> [13:54] <0> T-4 mins
<0> [13:54] <0> clouds clear :P
<2> why didnt you highlite me more :(
<1> well i'll watch the highlights on the 11pm news =)
<0> it's still near earth
<1> =)
<3> forgot to add you to +o @ #tcl ;)
<1> =)
<1> ty
<3> np
<1> i HATE A2suited
<1> i hate hate hate it
<4> I hate sweden
<4> ;p
<1> lol
<1> hmm
<1> ;info procs
<5> [GRiMMY]: #43 (535 clicks) Tcl: pwd unknown luniq auto_import string2list auto_execok ip2hex urlencode ansicolor average strcmp htmlencode stricmp LargebinaryToDecimal lrandom trace sllength after u2c lrepeat u2x decimal2ip randstring addslashes lconcat auto_load_index slrange strlwr putlog reverse fconfigure auto_qualify lreverse iscommand isdigit testip scramble ip2decimal unixtime scrambleword israr gcd isnumber slindex socket
<2> spam
<1> ;randstring hmmmmm
<5> [GRiMMY]: #45 (997945 clicks) Tcl error: Timed out after 999ms.
<1> ;randstring hmph
<5> [GRiMMY]: #46 (997643 clicks) Tcl error: Timed out after 999ms.
<1> lol ok
<1> ;randstring
<5> [GRiMMY]: #48 (227 clicks) Tcl error: wrong # args: should be "randstring length ?chars?"
<1> ahhh lol
<1> ;scramble abcdefg
<5> [GRiMMY]: #50 (2739 clicks) Tcl: acgdebf
<1> info body scramble
<5> [GRiMMY]: #51 (311 clicks) Tcl:
<5> [GRiMMY]: #51 (311 clicks) Tcl: set randlist [list]
<5> [GRiMMY]: #51 (311 clicks) Tcl: foreach word [split $words] { lappend randlist [scrambleword $word] }
<5> [GRiMMY]: There's 5 lines, but I'm not gonna show you the rest of them! =P
<1> set x 0; set myStr foreach line [split [info body scramble] \n] { if {$line != ""} { incr x; append myStr " | $line"; if {$x == 3} { set x 0; puts $myStr; set myStr "" } } }
<1> ;set x 0; set myStr ""; foreach line [split [info body scramble] \n] { if {$line != ""} { incr x; append myStr " | $line"; if {$x == 3} { set x 0; puts $myStr; set myStr "" } } }
<5> [GRiMMY]: #53 (stdout) | set randlist [list] | foreach word [split $words] { lappend randlist [scrambleword $word] } | join $randlist
<1> ;info body scrambleword
<5> [GRiMMY]: #54 (309 clicks) Tcl:
<5> [GRiMMY]: #54 (309 clicks) Tcl: set word [split $word {}]
<5> [GRiMMY]: #54 (309 clicks) Tcl: while {[llength $word] > 0} {
<5> [GRiMMY]: There's 8 lines, but I'm not gonna show you the rest of them! =P
<1> set x 0; set myStr foreach line [split [info body scrambleword] \n] { if {$line != ""} { incr x; append myStr " | $line"; if {$x == 3} { set x 0; puts $myStr; set myStr "" } } }
<1> ;set x 0; set myStr ""; foreach line [split [info body scrambleword] \n] { if {$line != ""} { incr x; append myStr " | $line"; if {$x == 3} { set x 0; puts $myStr; set myStr "" } } }
<5> [GRiMMY]: #56 (stdout) | set word [split $word {}] | while {[llength $word] > 0} { | lappend new [lindex $word [set rand [rand [llength $word]]]]
<5> [GRiMMY]: #56 (stdout) | set word [lreplace $word $rand $rand] | } | join $new {}
<5> [GRiMMY]: There's 4 lines, but I'm not gonna show you the rest of them! =P
<1> set x 0; set myStr foreach line [split [info body scrambleword] \n] { if {$line != ""} { incr x; append myStr " | $line"; if {$x == 5} { set x 0; puts $myStr; set myStr "" } } }
<1> ;set x 0; set myStr ""; foreach line [split [info body scrambleword] \n] { if {$line != ""} { incr x; append myStr " | $line"; if {$x == 5} { set x 0; puts $myStr; set myStr "" } } }
<5> [GRiMMY]: #58 (stdout) | set word [split $word {}] | while {[llength $word] > 0} { | lappend new [lindex $word [set rand [rand [llength $word]]]] | set word [lreplace $word $rand $rand] | }
<6> hey
<7> are you like.... a.l.i.c.e. ?
<7> someone said he couldnt get imdb script to work inhere, any of u reading this ? :)
<6> hmm ? dunno, i just choose my box name at random ..
<6> but this is definitively *not* my nickname
<7> alice is an AI :)
<6> ok, so i guess i'm not ..
<7> well, what can i do for you ?`
<6> well, i'm a little bit new to tcl, trying to modify a script, and i was wondering howto remove any trailing CR/space at the end of a string .. :$
<6> (as you can see, i'm kind of a n00b)
<7> string trimright
<7> string ?
<8> string -> http://www.tcl.tk/man/tcl8.4/TclCmd/string.htm
<5> string -> http://Tcl.Tk/man/tcl8.5/TclCmd/string.htm
<7> string trimright string ?chars?
<6> ok :)
<7> Returns a value equal to string except that any trailing characters from the set given by chars are removed. If chars is not specified then white space is removed (spaces, tabs, newlines, and carriage returns).
<8> string -> http://www.tcl.tk/man/tcl8.4/TclCmd/string.htm
<5> BL4DE: #72 (205 clicks) Tcl: string
<9> 12#worldc t
<9> 12merdaaaa
<9> 12desculpa
<6> thx BL4DE
<6> working perfectly
<9> 12auhsuahs
<7> goodie :)
<10> hmmm... there is a public tv schedule script.. I can't remember it's name.. someone here?
<7> for which chan
<7> wops
<7> tvsite
<10> US primetime
<10> US/UK
<11> www.egghelp.org
<11> search there
Return to
#tcl
or
Go to some related
logs:
opera.dll engine
#netbsd
project managers are useless
#politics
#stocks
#stocks
akbar tabon
#unixhelp
#hardware
scoreland proxies
|
|