alias sifre {  
  if !$dialog(sifre) { .dialog -ma sifre sifre }
  else { return } 
}


dialog sifre {
  title "AnlaSevgimi ScripT"
  icon  $mircdirTRmirc\iconlar\key.ico
  size -1 -1 117 154
  option dbu
  box Sifreli Bir Nick Sectiniz, 11, 2 3 114 70
  edit "", 5, 57 18 51 12, style(pass) autohs
  edit "Şifrenizi Giriniz", 3, 10 19 45 10, read
  box "wWw.AnlaSevgimi.Com", 4, 7 11 104 37 , disable
  edit "Yeni Nick Giriniz", 16, 10 33 45 10, read
  edit "", 6, 57 32 51 12, autohs
  button "&Tanımla", 1, 8 51 49 18,ok flat default
  button "&İptal", 2, 61 51 49 18, cancel flat
  box , 99, 2 72 114 80
  icon 55, 6 76 20 16, $mircdirTRmirc\iconlar\key.ico 
  text "Şuan Sunucuya Bağlısınız " 14, 33 80 100 20
  text "Version:" 7, 16 95 200 20
  text "Server :" 8, 16 105 200 20
  text "Nick     :" 9, 16 115 200 20
  text "Saat    :" 10, 16 125 200 20
  text "Tarih   :" 13, 16 135 200 20
  text "%scriptversion" 15, 40 95 70 20, read
  text " $server " 28, 40 105 70 20, read
  text " $me " 29, 40 115 70 20, read 
  text " $time " 30, 40 125 70 20, read
  text " $date " 31, 40 135 70 20, read
  text "AnlaSevgimi.Com Ürünüdür" 51, 30 144 70 20 , disable 
}

on 1:dialog:sifre:sclick:1: {
  if ($did(sifre,6)) && ($did(sifre,5)) %msg nickserv identify $did(sifre,6) $did(sifre,5) 
  if ($did(sifre,5)) %msg nickserv identify $did(sifre,5) 
  if ($did(sifre,6)) .nick $did(sifre,6)
}

on 1:DIALOG:sifre:*:*: {
  if ($devent == init) {
    did -o sifre 15 5 %scriptversion
    did -o sifre 28 3 $server
    did -o sifre 29 3 $me
    did -o sifre 30 3 $time
    did -o sifre 31 3 $date
  }
}

on *:NOTiCE:*NickServ*IDENTIFY*:?:{ if ($nick == NickServ) { sifre } }
on *:NOTiCE:*/msg*IDENTIFY*:?:{ if ($nick == NickServ) { sifre } }
on *:NOTiCE:*Gecersiz*sifre.*:?:{ if ($nick == NickServ) { if (%uur == 1) { bitir }
  else { sifre } }
}
on *:NOTiCE:*Password*incorrect.*:?:{ if ($nick == NickServ) { if (%uur == 1) { bitir } 
    else { 
  dialog -m sifre sifre } }
}

on *:NOTiCE:*DIKKAT*kesilecektir.*:?:{ if ($nick == NickServ) { dialog -x sifre sifre | pro } }

alias pro {
  if ($nick == NickServ) { .inc %uur | sifre }
}
alias bitir {
  unset %uur*
}

on ^*:OP:#:{
  if ($opnick == $me)  && ($nick != $me) {
    if ($nick != chanserv) { msg $chan $nick %optemsg %TRmirc  }
    if ($nick == chanserv) { msg $chan $nick  %TRmirc }
  } 
} 
on ^*:DEOP:#:{
  if ($opnick == $me)  && ($nick != $me) {
    if ($nick != chanserv) { msg $chan $nick %deoptemsg %TRmirc  }
    if ($nick == chanserv) { msg $chan $nick  %TRmirc }
  } 
} 

on ^*:VOICE:#:{
  if ($vnick == $me) &&  ($nick != $me)  {
    if ($nick != chanserv) { msg $chan $nick %votemsg  %TRmirc  }
    if ($nick == chanserv) { msg $chan $nick  %TRmirc }
  }
} 

on ^*:DEVOICE:#:{
  if ($vnick == $me) &&  ($nick != $me)  {
    if ($nick != chanserv) { msg $chan $nick %devotemsg  %TRmirc  }
    if ($nick == chanserv) { msg $chan $nick  %TRmirc }
  }
} 

