dialog dxr {
  title " Turkce mIRC"
  size -1 -1 113 93
  option dbu
  edit "", 30, 37 6 70 10
  edit "", 31, 37 19 70 10
  button "» BAGLAN CANİM «", 2, 24 67 84 12, default flat
  text "Nick Yazın :", 20, 5 8 32 8
  text "Yedek Nick :", 21, 5 21 31 8
  box "", 13, 2 0 109 59
  icon 7, 3 66 15 15,  img\mirc.ico, 0
  box "", 1, 21 62 90 21
  edit "", 3, 37 32 70 10
  edit "", 4, 37 45 70 10
  text "idendt Yazın :", 5, 4 34 32 8
  text "Sifre Yazın :", 6, 3 46 32 8
}
alias serv { dialog -m dxr dxr }
on *:dialog:dxr:*:*: {
  if $devent == init {
    did -a dxr 30 $me
    did -a dxr 31 $anick
    did -a dxr 3 $dentd %idndt
    did -a dxr 4 %şfr
  }
  if $devent == sclick {
    if $did == 2 {
      set %idndt $did(3)
      set  %şfr $did(4)
      nick $did(30)
      anick $did(31)
      identd on %idndt $+ @
      .timer 1 5 ns identify %şfr
      dialog -c dxr dxr
      server irc.chat.com.tr 
    }
  }
}