This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

deop rm help

Help for those learning Tcl or writing their own scripts.
Post Reply
s
sdays
Halfop
Posts: 98
Joined: Sat Oct 21, 2006 4:46 am

deop rm help

Post by sdays »

Okay, when a op on bot deops a guest he removes op and kbs him, i want this to work only when a user deops bot owner or master

Code: Select all

setudef flag deoprm

bind mode - "* -o" deop:rm

proc deop:rm {nick uhost hand chan mc deop} {  
  if {[channel get $chan deoprm] && ![matchattr $hand nmb|nmb $chan]} {
    set banmask *!*@[lindex [split [getchanhost $nick $chan] @] 1]
    catch {deluser $hand}
    save
    putlog "Removed $hand Reason: Deoped bot or a admin on $chan."
    putserv "MODE $chan -o+b $nick $banmask"
    putserv "kick $chan $nick :Cya loser."
  }
}
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

Code: Select all

setudef flag deoprm

bind mode - "* -o" deop:rm

proc deop:rm {nick uhost hand chan mc deop} { 
  if {[channel get $chan deoprm] && ![matchattr $hand nmb|nmb $chan] && [matchattr [nick2hand $deop $chan] nm|nm $chan]} {
    set banmask *!*@[lindex [split [getchanhost $nick $chan] @] 1]
    catch {deluser $hand}
    save
    putlog "Removed $hand Reason: Deoped bot or a admin on $chan."
    putserv "MODE $chan -o+b $nick $banmask"
    putserv "kick $chan $nick :Cya loser."
  }
}
Post Reply