egghelp/eggheads community

Public commands

2005-08-31T03:28:00-04:00

can you give as a part of modificate code? like bind pub for kick and proc for kick.

Statistics: Posted by CrazyEgg — Wed Aug 31, 2005 3:28 am

Public commands

2005-08-31T02:59:07-04:00

Hello Dizzle,

I changed the bindings to

bind PUB -|-

But still its not working.. whats wrong yet in the tcl?

Rgds

Skipper

Statistics: Posted by Skipper — Wed Aug 31, 2005 2:59 am

Public commands

2005-08-30T12:16:11-04:00

i dont see the point off not opping the person yourself, i think when the wrong person is opped they can blame the bot of doing that

Statistics: Posted by Dizzle — Tue Aug 30, 2005 12:16 pm

Public commands

2005-08-30T07:36:46-04:00

set PUBCHAR "."

bind pub o|o ${PUBCHAR}kick kick
......................

as Alchera say the

bind [proc-name]

(Alchera corect me if i am wrong pls)

as demond say the o|o meaning that the user with flags global op or channel op can use the command.The bot didnt add any user with this.If you want to use everyone just give *|* or simple * and with the "if isop.." what you have give permission only to op on channel. (demond correct me pls if i am wrong)

as Dizzle say

Code:

if {[isop $nick $chan]} {

you have the code :

Code:

if {[botisop $chan] && [isop $nick $chan]} { (i think like that is correct) just add it to each proc.

dMTOn
isop i thing that is not acceptable.
as i say bind pub *|* ${trigger}op op
or
bind pub * ${trigger}op op
and if you want to used everyone just dont give [isop $nick $chan]

as i saw the script have no protections against kick bot/kick owner/ban type *!*@*/ban bot address/ban op/ban owner etc.
I thing that the public commands has the conception the op or user to give commands without to be op.If is op what the point to type .op nick
and not click to mirc/pirch/xchat menu to op him.
Anyway:))

Statistics: Posted by CrazyEgg — Tue Aug 30, 2005 7:36 am

Public commands

2005-08-30T06:36:37-04:00

well a the procs have the code

Code:

if {[isop $nick $chan]} {

this makes sure only opped ppl in the chan may use the command, without identify too the bot etc, so its already there

Statistics: Posted by Dizzle — Tue Aug 30, 2005 6:36 am

Public commands

2005-08-30T04:04:18-04:00

I need script like it too
If i put isop

Code:

bind pub isop ${trigger}opbind pub isop ${trigger}deopbind pub isop ${trigger}voicebind pub isop ${trigger}devoicebind pub isop ${trigger}kickbind pub isop ${trigger}kbbind pub isop ${trigger}nb

Everyone can use commands (ops, voiced, not voiced)
I'm looking for script that you need only to be a operator of channel(don't have to identify to bot, be master, etc)

Statistics: Posted by dMTOn — Tue Aug 30, 2005 4:04 am

Public commands

2005-08-28T08:54:00-04:00

Hello,

Thanks demond.. But let me know.. where i should change? and what i should change? Pls give the changes in my code.

Rgds

Skipper

Statistics: Posted by Skipper — Sun Aug 28, 2005 8:54 am

Public commands

2005-08-27T02:33:58-04:00

sure, change the bind flags and add [isop] check in each trigger proc; however, that would render the whole thing completely pointless (like most, if not all of your other needs - no offense) because if you are an op, you don't need the bot to perform chores that you can do yourself

Statistics: Posted by demond — Sat Aug 27, 2005 2:33 am

Public commands

2005-08-27T02:01:02-04:00

Hello Alchera,

Without adding the person to bots user list.. it cant be done in any other way? i want the bot to respond to the command.. if the user is an op. any alterations can be done?

Rgds
Skipper

Statistics: Posted by Skipper — Sat Aug 27, 2005 2:01 am

Public commands

2005-08-27T01:14:37-04:00

Code:

  bind    [proc-name]    Description: You can use the 'bind' command to attach Tcl procedures      to certain events. flags are the flags the user must have to trigger      the event (if applicable). proc-name is the name of the Tcl procedure      to call for this command (see below for the format of the procedure      call). If the proc-name is omitted, no binding is added. Instead, the      current binding is returned (if it's stackable, a list of the current      bindings is returned).    Returns: name of the command that was added, or (if proc-name was      omitted), a list of the current bindings for this command    Module: core

Person triggering the script has to have the 'o' flag i.e. a bot user.

Statistics: Posted by Alchera — Sat Aug 27, 2005 1:14 am

Public commands

2005-08-27T00:48:11-04:00

Code:

# Command trigger  variable trigger {.}bind pub o|o ${trigger}op bind pub o|o ${trigger}deopbind pub o|o ${trigger}voicebind pub o|o ${trigger}devoicebind pub o|o ${trigger}kickbind pub o|o ${trigger}kbbind pub o|o ${trigger}nbproc op {nick uhost hand chan text} {global botnickif {[botisop $nick $chan]} && {[isop $nick $chan]} {set target [lindex $text 0]set target1 [lindex $text 1]set target2 [lindex $text 2]if {$target == ""} {putserv "MODE $chan +o $nick}}}proc deop {nick host hand chan text} {global botnickif {[isop $nick $chan]} {set target [lindex $text 0]set target1 [lindex $text 1]set target2 [lindex $text 2]if {$target == ""} { putserv "MODE $chan -o $nick"} else {putserv "MODE $chan -ooo $target $target1 $target2"}}}proc voice {nick host hand chan text} {global botnickif {[isop $nick $chan]} {set target [lindex $text 0]set target1 [lindex $text 1]set target2 [lindex $text 2]if {$target == ""} { putserv "MODE $chan +v $nick" } else { putserv "MODE $chan +vvv $target $target1 $target2" }}}proc devoice {nick host hand chan text} {global botnickif {[isop $nick $chan]} {set target [lindex $text 0]set target1 [lindex $text 1]set target2 [lindex $text 2]if {$target == ""} { putserv "MODE $chan -v $nick" } else { putserv "MODE $chan -vvv $target $target1 $target2" }}}proc kb {nick host hand chan text} {global botnickif {[isop $nick $chan]} {set target [lindex $text 0]set reason [lrange $text 0 end]set bhost [getchanhost $target $chan]set banmask "*!*[string trimleft [string range $bhost [string first "!" $bhost] end] ?^~-_+?]"if {$target == ""} { putserv "MODE $chan +b $banmask" putserv "kick $chan $target :$reason"}}}proc kick {nick host hand chan text} {global botnickif {[isop $nick $chan]} {set target [lindex $text 0]set reason [lrange $text 0 end]if {$target == ""} { putserv "kick $chan $target :$reason"}}}proc nb {nick host hand chan text} {global botnickif {[isop $nick $chan]} {set target [lindex $text 0]set reason [lrange $text 0 end]if {$target == ""} { putserv "MODE $chan +b $nick" putserv "kick $chan $target :$reason"}}}

Well, A public command tcl which works for the ppl who are op in that channel.. without adding the users to the bots userlist..

But i wonder whats wrong.. bot is not responding.

Rgds

Skipper

Statistics: Posted by Skipper — Sat Aug 27, 2005 12:48 am