alias setup.otoidentify { dialog -m otoidentify otoidentify }
on *:LOAD:{
  echo -a 4Otomatik İdentifyi yüklediğiniz için teşekkür ederiz...
}
dialog otoidentify {
  title "Otomatik Nick İdentify"
  size -1 -1 194 263
  option pixels
  box "Nickler", 14, 5 109 180 80
  list 15, 12 125 163 78, disable
  text "&Nick:", 16, 12 29 31 20
  edit "", 17, 58 31 114 20, autohs
  text "&Şifre:", 18, 12 51 33 20
  edit "", 19, 58 53 114 20, pass autohs
  button "&Nick Ekle", 20, 11 80 53 20, flat
  button "&Nick Sil", 21, 66 80 53 20, flat
  check "&Otomatik İdentify Açık", 22, 33 204 134 20, flat
  box "Otomatik Nick İdentify", 2, 5 11 180 96
  button "&Tamam", 3, 123 80 53 20, flat cancel
  link " Web Adresin ", 1, 40 235 129 16
}
on *:dialog:otoidentify:sclick:1:/run http://webAdresin
on 1:dialog:otoidentify:init:*: {
  var %ctr = 1 | while (%ctr <= $numtok(%AutoID.nicks,32)) { did -a $dname 15 $Gettok(%AutoID.nicks,%ctr,32) | inc %ctr }
  if (%var == on) { did -c otoidentify 22 | did -e otoidentify 15,17,19,20 }
}
on 1:dialog:otoidentify:sclick:*: {
  if ($did == 15) { did -ra $dname 17 $did(15).seltext | did -ra $dname 19 $Gettok(%AutoID.pass,$findtok(%AutoID.nicks,$did(15).seltext,32),32) | did -e $dname 21 }
  if ($did == 20) { set %AutoID.nicks [ %AutoID.nicks ] $did(17) | set %AutoID.pass [ %AutoID.pass ] $did(19) | did -a $dname 15 $did(17) | did -ra $dname 17,19 }
  if ($did == 21) { set %AutoID.nicks $deltok(%AutoID.nicks,$findtok(%AutoID.nicks,$did(17),32),32) | set %AutoID.pass $deltok(%AutoID.pass,$findtok(%AutoID.pass,$did(19),32),32) | did -d $dname 15 $did(15).sel | did -ra $dname 17,19 | did -b $dname 21 }
  if ($did == 22) { if ($did(22).state == 1) { set %var on | set %AutoID $true | did -e otoidentify 15,17,19,20 } | else { set %var off | set %AutoID $false | did -b otoidentify 15,17,19,20 } }
}
on *:NOTICE:*:?: {
  if ($nick == NickServ) && (*NickServ identify* iswm $strip($1-)) && ($istok(%AutoID.nicks,$me,32) == $true) && (%AutoID == $true) { echo -a $logo Nickiniz identify ediliyor $me $+  | .identify $Gettok(%AutoID.pass,$findtok(%AutoID.nicks,$me,32),32) }
}