ask for help

[qwek]

Hi Mr Alchera,

I meant tcl script for join flood detect, i've already searching and trying some of tcl scripts from egghelp.org or any other site. but maybe i can't find that script . big network usually have a big problem with netsplit when the spammer are rejoining and joining the channel with many host/proxy/bnc/etc. they're mass joining with about 30-40 host to spam at channel, so right here i want to find some tcl that could detected join flood.

sorry with my bad english.

Regards,
qwek

[awyeah]

The one your are looking for is sentinel.tcl. Find it, download it and use it!

[qwek]

awyeah: i can't find it in sentinel.tcl but it's ok now.

anyway how to replace 1 char in tcl code?

if i'm using this words at my text.
"i want to play"

then i want my bot will figure this
"i_want_to_play"

proc word {text} {
set string [string map {" " "_"} $string]
}

is that right? i'm so confuse with this code (regsub, string, lindex, length <- i want to learn it very well) hopefully someone can help me hehe , thanks a lot.

best regards,
qwek

[user]

proc word {text} {
set string [string map {" " "_"} $string]
}

the syntax is right, but your variable names don't match

[caesar]

Actualy the sentinel tcl script comes by default with the eggdrop and should be located in the scripts/ dir.

[qwek]

proc word {text} {
set string [string map {" " "_"} $string]
}

the syntax is right, but your variable names don't match

Mr. user:which variable?

so if i called the text is database.txt, that will be called $dataque (open and close)
i'm using this code, this code was help by other friend for search, find, and close my data. can i using "killtimer"? for kill timer when bot was still searching.

proc qwekdata {} {
global qwekdbase qwekquery qwektl
set qwektl 0
set qwekquery ""
set queryfile [open $qwekdbase r]
set qwektl [split [read -nonewline $queryfile] "\n"]
set qwekquery [llength $qwektl]
close $queryfile
}

i'm trying this code:
proc qweknext {c} {
global qwekdata word / dataque?
putserv "msg $c :[word $text] or [dataque $word]"
}

proc word {text}
set string [string map {" " "_"} $string]
}

or

proc dataque {word}
set string [string map {" " "_"} $string]

can i using set dataque [string map {" " "_"} $string]?

or maybe called proc dataque {word}? then when bot proccessing the text using [dataque $word]? argh i'm get lazzy now.

Mr Caesar: hehe it's ok now. but i'm still searching hopefully i can find in sentinel.tcl. i'm doing research with sentinel day by day in front of my comp *freak* hehe.

best regards,
qwek

[spock]

Code: Select all

proc word text {
  set text [string map { " " "_" } $text]
}

you can also do it like this;

Code: Select all

proc word2 text {
  set text [join [split $text] _]
}

but string map is probably faster

[caesar]

My previous post kind of was addressed to awyeah not to you. I see that you sill haven't understood user's point. That's bad.

In "proc word {text} {" the "text" thing is a declared variable while $string isn't. So, you should set some value to $string before using it.

Damn, I suck at explaining stuff...

[qwek]

it's finally work. i'm using from spock code

Code: Select all

proc word2 text { 
  set text [join [split $text] _] 
} 

i dont know why but this is mostly work then this code

Code: Select all

proc word text { 
  set text [string map { " " "_" } $text] 
} 

i've setup all the variable's and the other global proc in there hehe
thank you Mr spock.

best regards,
qwek

[qwek]

hello all,

i've one question over here:
my bot keep like this when i'm telneting

Escape character is '^]'.

what exactly wrong inside my bot?

regards,
qwek

[user]

my bot keep like this when i'm telneting

Escape character is '^]'.

That's your telnet client speaking.

Why did you post that question here btw? If it were a eggdrop problem, like you thought, it'd belong in the eggdrop forum.

[qwek]

my bot keep like this when i'm telneting

Escape character is '^]'.

That's your telnet client speaking.

Why did you post that question here btw? If it were a eggdrop problem, like you thought, it'd belong in the eggdrop forum.

i'm sorry, i thought this is from my *.conf files, when i'm doing telnet into my bot address and the msg from telnet client (putty) always like that.

regards,
qwek

[qwek]

Hi all,

how can i loaded another timer in my script?
if i have 2 scripts, there's wordgames.tcl & Trivia.tcl

i mean after the bot get a correctly answer from user then then bot started with trivia.tcl question.

is that possibly to put a timer?
or i must write it down at worgames.tcl into set timer "trivia.tcl"

set triviatimer "10" <- this is will show trivia.tcl after user answer correctly.
set triviatimer [timer $triviatimer trivia]

your help will be appreciated

Regards,
qwek