Help with a channel protection script.

[Hamish]

Ok, I've got an autoop channel (everyone is autoop on join)...
Of course I don't want everyone banning each other and changing the topic all the time so I tried to write a script to stop that.
Here what I got so far:

Code: Select all

set Hamish "Hamish"

bind topc - "#hamish *" resetopc:topc
proc resetopc:topc { nick uhost handle channel topic } { 
  global Hamish botnick
  if { $nick == $Hamish } { }
  if { $nick == $botnick } { }
  else { puthelp "TOPIC #hamish :(original topic)"
  putlog "Reset topic changed by %nick"
  puthelp "PRIVMSG %NICK :Please don't try to change the topic on this channel..." }
}
  bind mode - * mode_proc_fix
  proc mode_proc_fix {nick uhost hand chan mc {victim ""}} {
    if {$victim != ""} {append mc " $victim"}
    mode_proc $nick $uhost $hand $chan $mc
  }

I've probably done it totally wrong... It is ment to reset the topic if someone other than me changes it... And remove all bans other than ones set by me.
If anyone can help I'd appreciate it, thanks!

[Sir_Fz]

Code: Select all

bind join - "#hamish *" gettopic
bind topc - "#hamish *" resettopic

proc gettopic {nick uhost hand chan} {
 if {[isbotnick $nick]} {
  set ::currenttopic [topic $chan]
 }
}

proc resettopic {nick uhost hand chan topc} {
 global currenttopic
 if {[isbotnick $nick] || [string equal -nocase Hamish $nick]} {
  set currenttopic $topc
 } {
  putserv "topic $chan :$currenttopic"
  putlog "Reset topic changed by $nick"
  puthelp "privmsg $nick :Please don't try to change the topic on this channel..."
 }
}

[Hamish]

Ah yeah! Works perfectly thanks!
Now I'm gonna try a ban reset-er lol.