Kod : Kodu kopyalamak için üzerine çift tıklayın!

         alias reg dialog -m nicksifrele nicksifrele
dialog nicksifrele {
  title %kbscxx
  size -1 -1 100 110
  option dbu 
  ;icon $mircdir\bag2.ico 
  edit "", 1, 30 22 65 10, autohs
  text "Nickiniz", 2, 6 24 18 8
  edit "", 3, 30 34 65 10, style(pass) autohs
  text " Şifre Giriniz", 4, 0 36 30 8
  edit "", 5, 30 47 65 10, autohs
  button "Kaydet", 6, 2 94 50 11, ok
  button "İptal Et", 7, 53 94 45 11, ok
  text "E-MaiL Msn", 9, 1 48 29 8
  text "Bilgi: E-MaiL Adresiniz Yoksa Msn Adresinizi Kulana bilirsiniz bu BiLgi Gizli Tutulur (Eposta Adresinize Onay Kodu gelebilir.. ) ", 12, 3 60 92 32, read multi
  icon 8, 1 -30 98 80, resimler/toolx.jpg, 0 noborder tab 1
}
alias kontroletn {
  if $server == $null, {
    echo -a 4***7Sunucu BagLantınız YOKTUR Lütfen bekleyiniz 
    server irc.kelebek.gen.tr 6667 )) 
    .halt
  }
  if $did(3) == $null { 
    return  $input(Şifre girmediniz!,ohud,HATA) 
    .halt
  }
  if $did(9) == $null { 
    return $input(E-mail girmediniz!,ohud,HATA) 
    .halt  
  }
}

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

alias -l nicksifrelekay {
  if ($dialog(nicksifrele)) {
    set %text.x $gettok($mdxdll(MoveControl,nicksifrele 11),2,32)
    if (%text.x == $+(-,%text.w)) set %text.x $dialog(nicksifrele).w
    dec %text.x
    mdx MoveControl nicksifrele 11 %text.x *
  }
  else {
    unset %text.x %text.w
    .timersnicksifrelekay off
  }
}


on *:dialog:nicksifrele:*:*:{
  dll dll\aniwin.dll anime $dialog(nicksifrele).hwnd -v 2000
  if ($devent == init) {
    mdx SetMircVersion $version
    mdx MarkDialog $dname $dialog($dname).hwnd
    mdx SetDialog $dname style title tool button sysmenu
    set %text.w $gettok($mdxdll(MoveControl,$dname 1),4,32)
    mdx MoveControl $dname 11 $dialog($dname).w *
    mdx SetColor $dname 1 background $rgb(255,255,255)
    mdx SetColor $dname 2,3,4,9,8,12,13 background $rgb(255,255,255)
    mdx SetColor $dname 2,3,4,9,8,12 textbg $rgb(255,255,255)
    mdx SetColor $dname 8 text $rgb(138,43,226)
    mdx SetColor $dname 12,4,9 text $rgb(0,120,255)
    mdx SetColor $dname 11 text $rgb(112,128,144)
    mdx SetDialog [ $dname ] bgcolor $rgb(255,255,255)  
    mdx SetFont $dname 8,13,5,10,11,12,16,17,18,14 16 70 comic sans ms
    mdx SetFont $dname 20 12 70 comic sans ms
    .timersky 0 0 nicksifrelekay


    did -a $dname 1 $me
  }
  if ($devent == sclick) && ($did == 6) { .kontroletn | .nick $did(1) | .msg nickserv register $did(3) $did(5) | .nickkapat  }

}