![Surprised :o](./images/smilies/icon_surprised.gif)
bind chon - * chonpartypass
proc chonpartypass { handle idx } {
putdcc $idx "Enter partyline password:"
control $idx checkpartypass
}
proc checkpartypass { idx text } {
global partypassword
# empty text: user disconnected
if { [string compare $text ""] == 0 } { return 0 }
# correct password: allow to party
if { [string compare $text $partypassword] == 0 } { return 1 }
# incorrect password: disconnect user
putidx $idx "Wrong password! No party for you! Bye."
killdcc $idx
return 0
}
putlog "Partypass version 0 loaded"
and doesn't work ....i tried even to relace with string equal... from stat it's wrong the comparison with "" after all my replaces(
![Confused :-?](./images/smilies/icon_confused.gif)
![Rolling Eyes :roll:](./images/smilies/icon_rolleyes.gif)