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 86 matches

by Xpert
Thu Mar 11, 2004 11:51 am
Forum: Archive
Topic: Some fairly easy TCL questions
Replies: 14
Views: 2925

lol, and i thought you removed it:P I think this code will worked: bind pubm - !admin pub:admin proc pub:admin {nick host hand chan args} { if {$chan == "#telenet.to"]} { set list "" foreach nick2 [chanlist $chan] { if {[isop $nick2 $chan]} { append list " $nick2" } } p...
by Xpert
Thu Mar 11, 2004 11:43 am
Forum: Archive
Topic: Some fairly easy TCL questions
Replies: 14
Views: 2925

Where's the bind gone?:)
Add this bind to your script:

Code: Select all

bind pubm - !admin pub:admin
:P
by Xpert
Thu Mar 11, 2004 11:33 am
Forum: Archive
Topic: convert mirc script to tcl
Replies: 23
Views: 4503

Try this: bind join - * join:story proc join:story {nick host hand chan} { global botnick if {$nick == $botnick} { slowmsg "story.txt" } } proc slowmsg {file {pos 0}} { set f [open $file] seek $f $pos if {[gets $f line]>-1} { putserv "privmsg #channel $line" utimer 10 [list slowm...
by Xpert
Thu Mar 11, 2004 11:06 am
Forum: Archive
Topic: rehash script
Replies: 5
Views: 1507

Code: Select all

bind pub - .rehash rehash:pub
proc rehash:pub {nick host hand chan arg} {
  rehash
  putserv "PRIVMSG $chan :Rehashing."
}
:)
by Xpert
Wed Mar 10, 2004 7:19 am
Forum: Archive
Topic: Ban flooders ?
Replies: 12
Views: 2820

Re: The script!

ZeleD wrote:if {$type == "pub"} {
Sorry, my mistake.
by Xpert
Wed Mar 10, 2004 7:14 am
Forum: Archive
Topic: Need help editing mc.spam_check2.5.2.tcl
Replies: 4
Views: 1230

Paste here your code, and i'll try to help you :)
by Xpert
Tue Mar 09, 2004 11:08 am
Forum: Archive
Topic: Ban flooders ?
Replies: 12
Views: 2820

Your welcome :P
by Xpert
Tue Mar 09, 2004 9:40 am
Forum: Archive
Topic: Ban flooders ?
Replies: 12
Views: 2820

FLUD (stackable) bind flud <flags> <type> <proc> procname <nick> <user@host> <handle> <type> <channel> Description: any floods detected through the flood control settings (like 'flood-ctcp') are sent here before processing. If the proc returns 1, no further action is taken on the flood; if the proc...
by Xpert
Tue Mar 09, 2004 7:28 am
Forum: Archive
Topic: Ban flooders ?
Replies: 12
Views: 2820

Well, for that i think you need a TCL script.
by Xpert
Tue Mar 09, 2004 7:24 am
Forum: Archive
Topic: Some fairly easy TCL questions
Replies: 14
Views: 2925

Try this code: bind pubm - "!admin *" pub:admin proc pub:admin {nick host hand chan args} { set list "" foreach nick2 [chanlist $chan] { if {[isop $nick2 $chan]} { append list " $nick2" } } putserv "PRIVMSG $chan :4$list -- 7Admin needed! 10Reason: [lrange $args 1 ...
by Xpert
Mon Mar 08, 2004 1:17 pm
Forum: Archive
Topic: Ban flooders ?
Replies: 12
Views: 2820

I think

Code: Select all

.chanset #channel flood-chan 10:60
is what you are meaning to.
# flood-chan 10:60
# Set here how many channel messages in how many seconds from one
# host constitutes a flood. Setting this to 0 or 0:0 disables
# flood protection for the channel.
Try that :P