Code: Select all
!haveflag user1 f
tnks, HecKel
Code: Select all
!haveflag user1 f
Code: Select all
bind pub o !hasflag pub:hasflag
proc pub:hasflag {nick uhost hand chan text} {
if {[llength $text] < 2} {
putserv "NOTICE $nick :Usage: !hasflag <user> <flag>"
return
}
if {[validuser [set user [lindex [split $text] 0]]]} {
if {[matchattr $user [set flag [lindex [split $text] 1]]]} {
putserv "NOTICE $nick :User $user has $flag flag."
} else {
putserv "NOTICE $nick :User $user dosen't have $flag flag."
}
} else {
putserv "NOTICE $nick :User $user is not a known user to me."
}
}
Code: Select all
bind pub o !hasflag pub:hasflag
proc pub:hasflag {nick uhost hand chan text} {
if {[llength $text] < 2} {
putserv "NOTICE $nick :Usage: !hasflag <user> <flag>"
return
}
set vhandle [nick2hand [set user [lindex [split $text] 0]]]
if {![validuser $user]} {
putserv "NOTICE $nick :User $user is not a known user to me."
return 0
}
if {[matchattr $user [set flag [lindex [split $text] 1]]]} {
putserv "NOTICE $nick :User $user has $flag flag."
} else {
putserv "NOTICE $nick :User $user dosen't have $flag flag."
}
}
}