#lock on
on ^*:OPEN:?:{ haltdef   
  if ($1 == %password) { query $nick welcome in my priavte | UnSet %pass. [ $+ [ $address ] $+ . $+ [ $comchan($nick,1) ] ] | halt }
  if ($1 != %password) {
    inc -u60 %pass. [ $+ [ $address ] $+ . $+ [ $comchan($nick,1) ] ] 1
    if (%pass. [ $+ [ $address ] $+ . $+ [ $comchan($nick,1) ] ] == 1) { notice $nick you must enter the password to open chat with me }
    if (%pass. [ $+ [ $address ] $+ . $+ [ $comchan($nick,1) ] ] == 2) { notice $nick password incorrect , you have last try }
    if (%pass. [ $+ [ $address ] $+ . $+ [ $comchan($nick,1) ] ] == 3) { .ignore -u600 $nick 2 | notice $nick Sorry , you are password not accept - try agine later after 10min | UnSet %pass. [ $+ [ $address ] $+ . $+ [ $comchan($nick,1) ] ] }
  }
}
#lock end
menu * {
  lock private
  .Control  
  ..on:enable #lock
  ..off:disable #lock
  .-
  .change pass:Set %password $?
}
