uite si ce mi-ai cerut tu sa iti fac. Cam asa arata:
Code:
bind join - * admin:join
bind join - * user:join
bind part - * admin:part
setudef str adminstatus
setudef flag admin
proc admin:join {nick uhost hand chan} {
set adminstatus [channel get $chan adminstatus]
if {[matchattr $hand m|m $chan] } {
if {$adminstatus == ""} {channel set $chan adminstatus $nick } else {
if {![string match *$nick* $adminstatus]} {
set admins "$adminstatus $nick" }
channel set $chan adminstatus $admins }
}
}
proc user:join {nick uhost hand chan} {
set admins [channel get $chan adminstatus]
if {$admins != ""} {
puthelp "NOTICE $nick :Adminii online sunt: $admins" } else {
puthelp "NOTICE $nick :Nu este nici un admin online" }
}
proc admin:part {nick uhost hand chan {msg ""}} {
set adminstatus [channel get $chan adminstatus]
if {[matchattr $hand m|m $chan] } {
set a [lsearch $adminstatus $nick]
set final [lreplace $adminstatus $a $a]
channel set $chan adminstatus $final }
}
putlog "Admins online script by arcADE loaded"
suggestii observatii please postati.