This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.

For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Search found 6 matches

Go to advanced search

by kem
Sat Sep 10, 2005 1:42 pm
Forum: Archive
Topic: Open file and write.
Replies: 2
Views: 3983

simple, thx :>
by kem
Sat Sep 10, 2005 12:10 pm
Forum: Archive
Topic: Open file and write.
Replies: 2
Views: 3983

Open file and write.

File:
text1
text2

Code: Select all

bind dcc - test test

proc test {h i a} {
set fp [open file.txt "w"]
puts $fp "text0"
close $fp
}
Script add new line at end of file, what i can use to add "text0" in begin file and not delete text1 and text2 ?

(sorry for my english:>)
by kem
Sat Sep 04, 2004 12:05 pm
Forum: Archive
Topic: [SOLVED] Request: TCL script correction
Replies: 16
Views: 5011

proc Banyti {Kikintojas uhost hand Kanalas rest} { set banmask *!*[string trimleft [lindex [split $uhost "@"] 0] "~"]@[lindex [split [maskhost $uhost] "@"] 1] [...] putserv "MODE $Kanalas -o+b $Kikinamasis $banmask" putserv "KICK $Kanalas $Kikinamasis :$...
by kem
Wed May 26, 2004 9:26 am
Forum: Archive
Topic: Random bots
Replies: 1
Views: 911

Random bots

bind pub n !random testk proc testk {nick uhost hand chan args} { set ilebotof [lindex [join $args] 0] set kolek [bots] set stringi "$kolek" set miasto "[lindex $stringi $ilebotof]" putserv "privmsg $chan :Random bots $miasto" return 1 } I need tcl when i give !random 5...
by kem
Sat May 22, 2004 11:34 am
Forum: Archive
Topic: Netsplit Tcl
Replies: 11
Views: 4224

Re: Netsplit Tcl

http://suczki.org/~m/split.tcl ? :)
by kem
Sat May 22, 2004 11:30 am
Forum: Archive
Topic: Anty join flood tcl
Replies: 0
Views: 1056

Anty join flood tcl

I need tcl when i give .ckick on dcc bot kick all user who have entered on channel 0-10s ago:) bind dcc n ckick a:ckick proc a:ckick {handle idx arg} { set key [lindex $arg 0] set chan [lindex $arg 1] if {($chan=="") || (![ischanname $chan])} {putdcc $idx "Usage: .ckick password chan&...

Go to advanced search