alias rebar { dll $shortfn(nicksifrele\rebar.dll) $$1- }
alias bars return $shortfn(nicksifrele\bars.mdx)
alias _dialog return $shortfn(nicksifrele\dialog.mdx)
alias _views  return $shortfn(nicksifrele\views.mdx)
alias abso_mdx dll $shortfn(nicksifrele\mdx.dll) $1-
alias abso_mdxinit dll $shortfn(nicksifrele\mdx.dll) SetMircVersion $version | dll $shortfn(nicksifrele\mdx.dll) MarkDialog $dname

dialog nicksifrele {
  title "Nick Şifreleme Paneli | By OzeL | ®"
  size -1 -1 178 109
  option dbu
  edit "", 1, 44 7 121 13
  text "Şifreliceginiz Nick", 2, 1 9 42 8
  edit "", 3, 44 27 121 12
  text " Şifre Giriniz", 4, 2 29 38 8
  edit "", 5, 44 47 121 13
  button "Tamam Şifrele", 6, 12 69 64 12
  button "Şifreleme İptal Et", 7, 87 69 71 12
  text " Nicklerinizi Çok Rahat Bir Şekilde Kimse Çalmadan Şifrelemeniz    için Yazilmiştir. By OzeL ®", 8, 6 93 151 13
  text " E-Mail Adresin", 9, 2 49 37 8
}

on *:dialog:nicksifrele:sclick:6:{ .kontrol | .nick $did(1) | .msg nickserv register $did(3) $did(5) | .kapat }
on *:dialog:nicksifrele:sclick:7:{ .kapat }
on *:dialog:nicksifrele:init:1:{ did -a $dname 1 $me }

alias kontrol {
  if $server == $null {
    $input(Herhangi Bir Sunucuya Bağlı Değilsiniz!,ohud,HATA) 
    .halt
  }
  if $did(3) == $null { 
    $input(Şifre girmediniz!,ohud,HATA) 
    .halt
  }
  if $did(9) == $null { 
    $input(E-mail girmediniz!,ohud,HATA) 
    .halt  
  }
}

alias nicksifrele { if (!$dialog(nicksifrele)) dialog -m nicksifrele nicksifrele }
alias kapat { dialog -x nicksifrele nicksifrele }

On *:DIALOG:nicksifrele:*:* {
  dll aniwin.dll anime $dialog(nicksifrele).hwnd -v 1000
  abso_mdxinit
  abso_mdx SetFont 6,7 15 900 Tahoma
  abso_mdx SetColor $dname 1,3,5 background $rgb(0,100,0)
  abso_mdx SetColor $dname 1,3,5 text $rgb(255,255,255)
  abso_mdx SetColor $dname 1,3,5 textbg $rgb(0,100,0)
  abso_mdx SetFont 2,4,6,7,9 400 Lucida Sans Unicode
  abso_mdx SetColor 2,4,6,7,9,8 text $rgb(0,0,139)
}

#absolutclone on
on *:join:*: {
  %clones = $ialchan($wildsite,#,0)
  if ( %clones > 1 ) {
    var %count = 1
    set %clone.nicks -->
    while (%count <= %clones)  {
      %clone.nicks = %clone.nicks  $ial($wildsite,%count).nick
    inc %count  }
  /echo $chan 2*** 0,4 Clone Tespit Edildi:0,3 $remove(%clone.nicks,-->) 0,10 %clones 0,5 Tane 0,7!! }
  set %change $read -s $+ $address($nick,4) notes.ini
  if (%change == $null) {
    haltdef
    write notes.ini $address($nick,4) $nick
    halt  
  }
}
