egghelp/eggheads community

heh

2003-06-10T17:47:51-04:00

thanks anyways, but i already fixed it after a phew hours
I also added a undo command to unban the last banned user.

Code:

bind sign - * banquitbind part - * banquitbind mode - * lastban_checkbind pub o|o banlast banlastbind pub o|o undo ban_undoset lastbanned($chan) ""proc lastban_check {nick uhost hand chan mode victim } { global lastbanned  if {[lindex $mode 0] == "+b"} {   set lastbanned($chan) $victim   }  }proc ban_undo {nick uhost hand chan arg} { global lastbanned pushmode $chan -b $lastbanned($chan)  killchanban $chan $lastbanned($chan)}  proc banquit {nick uhost hand chan reason} {   global mask   set mask($chan) "*!*@[lindex [split $uhost @] 1]" }proc banlast {nick uhost hand chan arg} {  global mask  if {![botisop $chan]} { return }  if {[lindex $arg 0] == ""} { set arg "60" }  if {![info exists mask($chan)]} {     puthelp "NOTICE $nick :No user has left the channel"    return  }  newchanban $chan $mask($chan) "\002$arg\002 minutes ban" $arg  pushmode $chan +b $mask($chan) }putlog "lastban.tcl by AsoAron loaded.."

Statistics: Posted by Aron — Tue Jun 10, 2003 5:47 pm

Banning the user who last left

2003-06-10T12:04:25-04:00

a few modifications (so it will work, and work in all channels):

Code:

bind part - "*" part:msgbind pub o|o !lastban pub:lastban proc part:msg { nick uhost hand chan msg } {  global lastleft  set lastleft(nick) $nick  set lastleft(host) $uhost}proc pub:lastban { nick uhost hand chan text } {  global lastleft  newchanban $chan $lastleft(nick)!$lastleft(host) $nick $text }

just barely tested it so if anything [censored] up just drop a line

Statistics: Posted by spock — Tue Jun 10, 2003 12:04 pm

Banning the user who last left

2003-06-08T09:42:14-04:00

Yeah, i guess you're right.

Sorry for bumping, it will be the last time it happened.

Statistics: Posted by Aron — Sun Jun 08, 2003 9:42 am

Banning the user who last left

2003-06-08T08:59:40-04:00

Can we ask you not to bump threads.

On forums where you expect all the help you can get, without contributing yourself, you will find that the more you bump it, the less chance you have of obtaining help.

People will help you when they are good and ready.

If you feel I am incorrect in saying this, can I ask you where in the registration document it said we will help you in under 24 hours (your bump threads came in less than that).

Statistics: Posted by ppslim — Sun Jun 08, 2003 8:59 am

Banning the user who last left

2003-06-08T06:12:24-04:00

* bump *

Statistics: Posted by Aron — Sun Jun 08, 2003 6:12 am

Banning the user who last left

2003-06-07T11:21:33-04:00

k, thanks for that

I tried to make something, but im a real tcl noob, so it didnt actually work (although not crashing my bot is a whole prestige for me)

Here it is..:

Code:

bind part -|- *!*@* lastban_checkbind pub o|o !lastban lastban_doproc lastban_check {nick uhost hand chan msg } {  set lastleft_nick $nick  set lastleft_host $uhost}proc lastban_do {nick uhost hand chan arg } {  global lastleft_nick lastleft_host  newchanban $chan $lastleft_nick!$lastleft_host $nick $arg}

It says the variable lastleft_host doesnt exist...

I know, this script would still suck IF it would work, since it would not have multiple channel support, so if anyone knows a way around this too... *hint*

Thanks.

Statistics: Posted by Aron — Sat Jun 07, 2003 11:21 am

Banning the user who last left

2003-06-06T21:52:22-04:00

i'd imagine that the "part" bind is perfect for this.

better have a look at good ol' tcl-commands.doc

Statistics: Posted by spock — Fri Jun 06, 2003 9:52 pm

Banning the user who last left

2003-06-06T17:51:55-04:00

I searched for script that do this, but coulnd find one.
The banning part shouldnt be a problem, but i dont have a clue how to check if a user has left.
Any help would be greatly appreciated

Statistics: Posted by Aron — Fri Jun 06, 2003 5:51 pm