alias identify {
  ; if (!$dialog(identify)) { .remote on | var %d = $dialog(identify,identify,-4) }
  if (!$dialog(identify)) { .remote on | dialog -m identify identify }
  else { halt }
}
dialog identify {
  title "identify Panel"
  size -1 -1 67 37
  option dbu
  button "&Şifreni Gir", 1, 16 24 35 12, ok
  edit "", 2, 1 13 65 10, pass autohs
  text "Lütfen Şifrenizi Giriniz:", 6, 4 3 61 8
}
on 1:DIALOG:identify:init:0: { did -f identify 2 }
on 1:DIALOG:identify:*:*: {
  if ($devent == sclick) { 
    if ($did == 1) { /gir }
  }
}
alias gir {
  if ($did(2) == $null) { .error Hata. }
  else { /NickServ identify $did(2) }
}
on *:NOTiCE:*NickServ identify*:?:{ if ($nick == NickServ) { dialog -m identify identify } 
}