egghelp/eggheads community

Simple public command.

2011-02-21T23:43:25-04:00

Great work there, caesar, Really appreciate your help, I'd suggest you to add a few commands, and upload it as a TCL on egghelp. It's really needed by many users on IRC.

Statistics: Posted by samhain — Mon Feb 21, 2011 11:43 pm

Simple public command.

2011-02-21T11:51:44-04:00

I've changed the previous code quite a few hours ago. Re-copy/paste it in to your .tcl file and rehash.

Statistics: Posted by caesar — Mon Feb 21, 2011 11:51 am

Simple public command.

2011-02-21T11:32:19-04:00

((USARMY): [09:58] Tcl error [myx:ban]: wrong # args: should be "maskhost nick!user@host"

This error, I'd try testing this TCL with 1.6.20, will see if it works there.

Statistics: Posted by samhain — Mon Feb 21, 2011 11:32 am

Simple public command.

2011-02-21T09:01:14-04:00

What error? Be more specific please.

Statistics: Posted by caesar — Mon Feb 21, 2011 9:01 am

Simple public command.

2011-02-21T06:27:37-04:00

You might wanna try updating to the new version of eggdrop

Statistics: Posted by blake — Mon Feb 21, 2011 6:27 am

Simple public command.

2011-02-21T05:43:53-04:00

I'm using eggdropv1.6.17.tar.gz....

Do I need to edit some thing in your specified code...... cause it still gives that error....

Statistics: Posted by samhain — Mon Feb 21, 2011 5:43 am

Simple public command.

2011-02-21T01:51:25-04:00

beginner mistakes.

Btw, what version of eggdrop are you using?

It's weird as from what I read in tcl-commands.doc the 'getchanhost' returns user@host thus the need to add "nick!" and "maskhost" that expects a "nick!user@host" and a masktype (integer), that if is not specified will be by default 2.

As for adding the user handle in the reason, use '$hand' before $reason or after it, like "$hand $reason" or "$reason $hand".

Statistics: Posted by caesar — Mon Feb 21, 2011 1:51 am

Simple public command.

2011-02-20T06:00:25-04:00

((USARMY): [09:58] Tcl error [myx:ban]: wrong # args: should be "maskhost nick!user@host"

pushmode"$chan -o $nick

also gives that .o error somewhere in that syntax

Gives this error, for .b command, otherwise it's working fine.

And could you also tell me what should I write with $reason so that the bot also displays the handle of the op who uses the .k and .b commands. in the kick/ban messages

Statistics: Posted by samhain — Sun Feb 20, 2011 6:00 am

Simple public command.

2011-02-19T18:46:19-04:00

Indeed, I rushed and forgot to create the '.k' bind. I've edited my previous post and updated the code.

Statistics: Posted by caesar — Sat Feb 19, 2011 6:46 pm

Simple public command.

2011-02-19T15:52:34-04:00

(@Hawk-): .k musk bye
(@Hawk-): .nb musk
-USARMY- .nb
(@Hawk-): .nb musk bad
*** X sets mode: +b musk!*@*
*** [#islamabad] Banned- musk
*** musk was kicked by X ((LilleHopp) Feb 19:Bad nick, change it and rejoin)

The kick command is not working perhaps the bind for .k is missing that's why, Also I'd like to say that .nb nick (doesn't require a reason) if an op uses .nb nick syntax the nick should be automatically banned with the default reason Bad nick, change it and rejoin.

The
.b command is also not working.

((USARMY): [19:50] Tcl error [myx:ban]: wrong # args: should be "maskhost nick!user@host"

gives this error. Could you please analyze thanks.

Also I'd like to have it, that the .o (the bot doesn't use X to op a certain person, but ops it itself).

Statistics: Posted by samhain — Sat Feb 19, 2011 3:52 pm

Simple public command.

2011-02-21T01:54:47-04:00

Code:

bind pub o| .o myx:opbind pub o| .deop myx:deopbind pub o| .b myx:banbind pub o| .nb myx:nickbanbind pub o| .k myx:kickproc myx:op {nick uhost hand chan text} {  if {[botisop $chan]} {    pushmode $chan +o $nick  }}proc myx:deop {nick uhost hand chan text} {  if {[botisop $chan]} {    pushmode $chan -o $nick  }}proc myx:ban {nick uhost hand chan text} {  if {[llength $text] >= 2} {    set user [lindex [split $text] 0]    if {![onchan $user $chan]} {      putserv "NOTICE $nick :sorry, $user is not on channel"      } else {      set reason [lrange [split $text] 1 end]      set mask "*!*@[lindex [split [getchanhost $user $chan] "@"] 1]"      putserv "PRIVMSG X :ban $chan $mask $reason"    }    } else {    putserv "NOTICE $nick :.b  "  }}proc myx:kick {nick uhost hand chan text} {  if {[llength $text] >= 2} {    set user [lindex [split $text] 0]    if {![onchan $user $chan]} {      putserv "NOTICE $nick :sorry, $user is not on channel"      } else {      set reason [lrange [split $text] 1 end]      putserv "PRIVMSG X :kick $chan $user $reason"    }    } else {    putserv "NOTICE $nick :.k  "  }}proc myx:nickban {nick uhost hand chan text} {  if {[llength $text]} {    set user [lindex [split $text] 0]    if {![onchan $user $chan]} {      putserv "NOTICE $nick :sorry, $user is not on channel"      } else {      putserv "PRIVMSG X :ban $chan $user!*@* Bad nick, change it and rejoin"    }    } else {    putserv "NOTICE $nick :.nb "  }}

I'm not 100% sure about the commands that are sent to X, so you should change them them accordingly.

Edit: fixed again.

Statistics: Posted by caesar — Sat Feb 19, 2011 5:45 am

Simple public command.

2011-02-18T15:12:42-04:00

Hi, I'm looking for a simple public commands script.

The command must start with the character ! or .

The commands should be the following with the following features.

.o (To op yourself)
.deop (to deop)

.b nick reason (To ban the *!*@host.domain of a user with the certain reason, the ban must be performed by (Undernet)'s service X)

.k nick reason (Simple kick with the specified reason)

.nb nick (To ban the nick!*@* of a user with reason Bad nick, change it and rejoin the ban must be performed by X (Undernet)'s service).

The flags for the people who'd be using these commands should be o (global).
that's all.
Thanks.

Statistics: Posted by samhain — Fri Feb 18, 2011 3:12 pm