Puting a password before entering limbo

[CcL]

I wonder if it is possible to put a password prompt before entering a limbo. Say i .relay from a bot to the limbo and other than the normal user and pass i would like to put another line asking for a limbo pass or something. Is it possible? It is possible is 1.1.5 but I don't know how on 1.6... Thank you

[ppslim]

See the CHON binds.

You can send a user out of the partyline, into doing nothing, until the correct password is typed, at which point, they are returned to the proper partyline.

[CcL]

bind chon - * testhim
proc testhim {handle idx} {
if {[matchattr $handle p] || [matchattr $handle o] || [matchattr $handle n] || [matchattr $handle t]} {
putidx $idx "Do yew want to play?" ; control $idx checkdccpass ; return
}
return
}

proc checkdccpass {idx password} {
global nick
if {[encrypt $password $password]!= ".laI80aXqxM08.CWC1AL6Oj1"} {
putidx $idx "I guess not."
killdcc $idx
dccbroadcast "Warning: [idx2hand $idx] entered wrong botnet pass!"
return 1
} else {
setchan $idx 0
pline_on [idx2hand $idx] $idx
return
}
return
}

proc pline_on { hand idx } {
global botnick
putdcc $idx "Welcome to $botnick, $hand!"
foreach dcclist1 [dcclist] {
set myidx [lindex $dcclist1 0]
set thehand [lindex $dcclist1 1]
set thehost [lindex $dcclist1 2]
if {$thehand == $hand} {
dccbroadcast "online $thehand ($thehost)"
}
if {[matchattr $thehand n]} {
putdcc $idx "* $thehand, $thehost"
} else {
if {[matchattr $thehand m]} {
putdcc $idx "+ $thehand, $thehost"
} else {
if {[matchattr $thehand o]} {
putdcc $idx "@ $thehand, $thehost"
}
return
}
return
}
return
}
return
}

It keeps looping even saying "blabla has joined partyline"
Thanks alot

[ppslim]

See my PM