egghelp/eggheads community

Thanks very much both of you. It appears the noversions1.05.tcl is for users joining a channel, and would take a bit of work to get where I want it, but the tcm.tcl should be easy enough to modify for Unreal, thanks much!

Hi All, This post isnt really about tcl scripting (yet) but rather, to inquire if a script already exists that does what I want it to. I have a problem with ddos bots connecting to my network, is there a script out there that can somehow detect such bots and place an automatic ban? It seems the pers...

actually, I've made some changes and it KIND of works now. The problem I am having now however, is I cannot get it to incr correctly, I am wanting it to go to the last line, look at the first 2 characters (or bytes) and incr what it finds.(proc:vhost) Also, I need to find out how to get it to delete...

I have some code here that isnt working, I'm sure there are tons of things wrong with it, if anyone wants to help me out and pick it apart, It'd be much appreciated. set operid "vhost" set operpass "vhost5728" set nspass "vhost5728" set operchan "#Administrator&quo...

OK... I have put together a bit of script that reads from a text file which contains the output of a /list. The file contains many lines that look somewhat like this: <#channel> <# users> <description> example: #mychannel 3 test channel when showchans is typed in channel it should return the first c...

I love it when I answer my own question, I just added sd_rnick to the global line and it works fine now.

ok, got that figured out. Changed the script a bit, now it looks like this. bind pub - chnick sd_nchange set sd_char {A a B b C c D d E e F f G g H h I i J j K k L l M m N n O o P p Q q R r S s T t U u V v W w X x Y y Z z} proc sd_nchange { nick uhost hand chan arg } { global sd_char set counter 0 s...

I stole a bit out of the random password script to generate random nicks, here is what I've come up with. set sd_nlength "8" bind pub - chnick sd_nchange set sd_char {A a B b C c D d E e F f G g H h I i J j K k L l M m N n O o P p Q q R r S s T t U u V v W w X x Y y Z z} proc sd_nchange { ...

I am looking for a script to do something similar. I would like it to get a /list and join channels either at random, or attempt to join each channel in a cycle as you said, to detect spam, then post an alert in an oper channel. If wouldn't mind parting with what you have, it'd be appreciated. unles...

yes but, I dont want to disable seeing all ctcp's, just this one

I have a script that voices people when they /ctcp mybot VOICEME, here is an excerpt of the VERY simple script I threw together: bind ctcp - VOICEME ctcpvoice proc ctcpvoice {nick uh hand dest key arg} { pushmode #mychan +v $nick putlog "Voice requested from $nick" } The problem is, I have...

I'm just starting out in .tcl scripting, and have made a few custom tcl scripts to fit my needs. I am having difficulty with this one though. I am wondering how I could get the bot to get a /list from the server when someone types !rank in channel, and respond with "This channel is currently #X...

OK folks... found the answer, thanks

OK... took your advice, but I must be doing something wrong... can someone please tell me where I screwed up and how to fix it? I get this error. [13:56] <CW-Bot> "proc out { nick uhost hand chan }" [13:56] <CW-Bot> (file "scripts/restricted.tcl" line 21) [13:56] <CW-Bot> invoked...

This script is small, so for better reference, here is a bigger exerpt. set r_chan "#complete-servers" set r_time 60 bind join -|- "$r_chan *!*@*" out proc out { nick uhost hand chan } { global r_ban r_time r_chan if {![file exists restrictkick]} { set rnum [open restrictkick w] ...