egghelp/eggheads community

Help in scripting tcl

2003-08-21T12:32:38-04:00

hmm.. tried that it cant work

Statistics: Posted by crazy-nic — Thu Aug 21, 2003 12:32 pm

Help in scripting tcl

2003-08-21T11:18:13-04:00

try:
newchanban $thechan $gethost cmdcript "-" 10 sticky

Statistics: Posted by Sir_Fz — Thu Aug 21, 2003 11:18 am

Help in scripting tcl

2003-08-21T10:39:04-04:00

i tried but it wont work i make something like this:

bind msg m "!cmd" mypvtcommand

proc mypvtcommand {nick host hand arg} {
if {$arg == ""} { return }

set theaction [string tolower [lindex $arg 0]]
set thechan [string tolower [lindex $arg 1]]
set thenick [string tolower [lindex $arg 2]]
set reasons [string tolower [lindex $arg 3]]

switch -exact $theaction {
kick {
if {[onchan $thenick $thechan]} {
putkick $thechan $thenick $reasons
}
}
ban {
if {[onchan $thenick $thechan]} {
set gethost [ getchanhost $thenick $thechan ]
newchanban $thechan $gethost $nick - 10 sticky
putkick $thechan $thenick $reasons
}
}
}
}

Statistics: Posted by crazy-nic — Thu Aug 21, 2003 10:39 am

Help in scripting tcl

2003-08-21T07:29:49-04:00

also u can do it like this:
newchanban [lifetime] [options]
in your case [option] would be sticky.

for example:
newchanban $chan $ban cmdscript "$reason" 10 sticky
this would create a 10 minutes sticky ban.

Options:
sticky: forces the ban to be always active on a channel, even
with dynamicbans on
none: no effect

Statistics: Posted by Sir_Fz — Thu Aug 21, 2003 7:29 am

Help in scripting tcl

2003-08-21T06:14:07-04:00

### stick [ban/exempt/invite] [channel]
Makes a ban, exempt, or invite "sticky". This means that the bot will always try to keep it active on the channel, even if the channel is using dynamic bans. Obviously, if the channel isn't using dynamic bans, this has no effect.

See also: bans, exempts, invites, unstick, +ban, +exempt, +invite

Statistics: Posted by Alchera — Thu Aug 21, 2003 6:14 am

Help in scripting tcl

2003-08-21T05:32:21-04:00

hmm.. okie.. i got it working.. but then how to make a stick ban? i'm not quite sure.... sorry... to trouble... you all...

Statistics: Posted by crazy-nic — Thu Aug 21, 2003 5:32 am

Help in scripting tcl

2003-08-19T06:37:42-04:00

In the bot's pvt type: cmd kick #channel nick
where #channel is the channel you want to kick nick from.
You must have master (m) or owner (n) flags for this to work.

Code:

bind msg m "cmd" mypvtcommandproc mypvtcommand {nick host hand arg} {   if {$arg == ""} { return }   set theaction [string tolower [lindex $arg 0]]   set thechan [string tolower [lindex $arg 1]]   set thenick [string tolower [lindex $arg 2]]   switch -exact $theaction {     kick {       if {[onchan $thenick $thechan]} {         putkick $thechan $thenick       }     }   }}

I'm sure you can figure out the rest (how to ban or kick ban)
Hint: use getchanhost to get the host of the nick you need to ban.

z_one

Statistics: Posted by z_one — Tue Aug 19, 2003 6:37 am

Help in scripting tcl

2003-08-19T06:13:00-04:00

i've got a problem in scripting this. If u wan to ban someone in channel rite? but u dun wan it to be public so u msg bot and type a command so it will excute a command. the commands i having trouble is kick, kickban and ban and unban i hope your would give me a help.

Statistics: Posted by crazy-nic — Tue Aug 19, 2003 6:13 am