brauche Hilfe mit einfachem (?) eggdrop-script

[Hypergrip]

ich weiß nicht so recht, wo ich dieses posting reinpacken soll, also poste ich einfach mal hier.
Es geht um ein TCL-Script für den eggdrop-bot.
Wir haben mit zwei Mann an dem kleinen Script gebastelt, aber nicht herausgefunden, warum der eggdrop keinerlei Reaktion zeigt.

Dieses Script soll folgendes erledigen:
Wenn ein User im channel +o oder +v bekommt, prüft das Script, ob der user die entsprechenden lokalen Flags gesetzt hat.
ist dies nicht der Fall, nimmt das Script dem user automatisch das +o bzw. das +v wieder weg.
Sollte ein User allerdings von einem Master (also einem user mit localer m-flag) das +v oder +o gesetzt bekommen, greift das Script nicht ein.
Ob dieses Script aktiv ist, lässt sich über die Channel-Flags "opbitch" und "voicebitch" regeln.

Also theoretisch müsste das Script so laufen... der Channel hat +opbitch und +voicebitch gesetzt.
Der "Test-Op" hat die lokalen Flags +ofv (ist also kein Master).
Das "Test-Opfer" hat keinerlei Flags gesetzt.
Setzt der Test-Op jetzt mode +v oder mode +o beim Test-Opfer, tut sich nix...

Hier ist der entsprechende Quelltext (bitch+.tcl):


--=--= Anfang Quelltext =--=--


# Bitch+ V1.3 by Hypergrip & thommey
# (=- teamwork roxx -=)
#
# Use ".chanset #channel +voicebitch" or +opbitch to enable this script
#
################################################## ###################

bind mode - +v voicebitch

setudef flag voicebitch

proc voicebitch {nick uhost handle chan change victim} {
if {[lsearch [channel info $chan] "+voicebitch"] == -1} {
return 0
}

set i [nick2hand $nick]
if {[matchattr $i |m $chan]} {
return 0
}

set h [nick2hand $victim]
if {$h == *} {
pushmode $chan -v $victim
} else {
if {![matchattr $victim |v $chan]} {
pushmode $chan -v $victim
}
}
putlog "user $nick was devoiced because of missing flag"
}

################################################## ###################

bind mode - +o opbitch

setudef flag opbitch

proc opbitch {nick uhost handle chan change victim} {
if {[lsearch [channel info $chan] "+opbitch"] == -1} {
return 0
}

set i [nick2hand $nick]
if {[matchattr $i |m $chan]} {
return 0
}

set h [nick2hand $victim]
if {$h == *} {
pushmode $chan -o $victim
} else {
if {![matchattr $victim |o $chan]} {
pushmode $chan -o $victim
}
}
putlog "user $nick was deopped because of missing flag"
}

################################################## ###################

putlog "Bitch+ V1.3 by Hypergrip & thommey - Loaded"


--=--= Ende Quelltext =--=--


Ich hoffe, jemand kann mir helfen... ich bin einfach zu blind ;)

Greetz

Oliver / Hypergrip