alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
menu status,channel,query {
  Whois Düzenle:Whoisdüzenle
}
alias Whoisdüzenle { if $dialog(Whoisdüzenle) { !echo -a 2Whois Düzenleme Dialog'u Zaten 4AÇIK! } | else { !dialog -m Whoisdüzenle Whoisdüzenle } }
dialog Whoisdüzenle {
  title "Whois Düzenleyici v1.1 CR By Goemon"
  size -1 -1 267 123
  option dbu
  box "Nicki Yazın", 1, 4 4 71 26
  edit "", 2, 7 13 65 13
  combo 3, 7 40 60 32, size vsbar drop
  edit "", 4, 70 40 150 10, autohs
  box "Field Adı Seçerek Mesajınızı yazarak ekleyip whoisinizde herksin görmesini sağlarsınız.", 5, 4 32 261 41
  button "Ekle", 6, 224 41 37 8
  box "Field Adı Oluşturma Ekleme ve Silme", 7, 4 79 97 42
  edit "", 8, 7 91 50 10
  edit "", 9, 7 105 50 10
  button "Field Ekle", 10, 60 92 37 8
  button "Field Sil", 11, 60 106 37 8
  box "", 12, 205 4 60 26
  button "Tamam // KapaT", 13, 210 13 51 12, ok
  box "", 14, 102 4 66 26
  button "Field Ekle Sil List", 15, 107 13 56 12
  text "ConferenceRoom Whois Düzenleme By Goemon", 16, 10 54 255 16
  button "AUTO FieLd OluştuR", 17, 169 89 54 12
  button "Field List Bak", 18, 114 104 37 12
  edit "", 19, 107 90 50 10
  box "Field List Nicki Yazın", 20, 102 79 61 42
  box "AUTO Field Ekle", 21, 165 79 62 42
  button "AUTO Field SiL", 22, 169 104 54 12
  button "Kapat", 23, 231 90 32 21, cancel
}

on 1:dialog:Whoisdüzenle:init:*:{
  dialog -s $dname -1 -1 535 150
  did -a $dname 3 E-MaiL
  did -a $dname 3 HotmaiL
  did -a $dname 3 Diyorki
  did -a $dname 3 Dil
  did -a $dname 3 İnadına
  did -a $dname 3 Takım
  did -a $dname 3 Site
  did -a $dname 3 Web
  did -a $dname 3 Yardım
  did -a $dname 3 Memleketi
  did -a $dname 3 üLKe
  did -a $dname 3 YaşadığıŞehiR
  did -a $dname 3 Den*TavsiyeleR
  did -a $dname 3 Adı
  did -a $dname 3 Soyadı
  did -a $dname 3 Yası
  did -a $dname 3 D.Tarihi
  did -a $dname 3 D.Yeri
  did -a $dname 3 Cep.No
  mdx MarkDialog $dname
  mdx SetDialog $dname bgcolor $rgb(48,213,255)
  mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 700 Verdana
  mdx SetColor $dname 1,5,7,12,14,16,20,21 background $rgb(48,213,255)
  mdx SetFont $dname 16 26 700 Tahoma
  mdx SetColor $dname 16 textbg $rgb(48,213,255)
}

on *:dialog:Whoisdüzenle:sclick:6:{ 
  raw set $did(2).text $did(3).text $did(4).text 
  echo -a 5 $did(2).text 4 $+ $did(3).text : $did(4)
  .timer 1 1 echo -a 5Ekleme İşlemi Bitmiştir.
}

on *:dialog:Whoisdüzenle:sclick:10:{ 
  .enable #fieldeklendi
  as field $did(8).text add 
  as field $did(8).text set onchange on
  as field $did(8).text set oper on 
  as field $did(8).text set private on 
  as field $did(8).text set watch on 
  as field $did(8).text set whois on 
  echo -a 7Field 4 $did(8).text 2Adı Oluşturuldu..
  .timerlist 1 2 .disable #fieldeklendi
}

on *:dialog:Whoisdüzenle:sclick:11:{ 
  as field $did(9).text del
  echo -a 4Field-Adı 4 $did(9).text 2Silindi..
}

on *:dialog:Whoisdüzenle:sclick:15:{ whoispanelac }
alias -l whoispanelac { 
  dialog -s $dname $dialog($dname).x $dialog($dname).y 535 250
}

on *:dialog:Whoisdüzenle:sclick:18:{ 
  .enable #fieldeklendi
  as field $did(19).text list
  .timerlist 1 2 .disable #fieldeklendi
}

on *:dialog:Whoisdüzenle:sclick:17:{ .enable #fieldeklendi | fieldoluştur | .timerlist 1 2 .disable #fieldeklendi  }
Alias fieldoluştur {
  as field Adı add 
  as field Adı set onchange on
  as field Adı set oper on 
  as field Adı set private on 
  as field Adı set watch on 
  as field Adı set whois on 
  as field Web add 
  as field Web set onchange on
  as field Web set oper on 
  as field Web set private on 
  as field Web set watch on 
  as field Web set whois on 
  as field Dil add 
  as field Dil set onchange on
  as field Dil set oper on 
  as field Dil set private on 
  as field Dil set watch on 
  as field Dil set whois on 
  as field Yası add 
  as field Yası set onchange on
  as field Yası set oper on 
  as field Yası set private on 
  as field Yası set watch on 
  as field Yası set whois on 
  as field üLKe add 
  as field üLKe set onchange on
  as field üLKe set oper on 
  as field üLKe set private on 
  as field üLKe set watch on 
  as field üLKe set whois on 
  as field Site add 
  as field Site set onchange on
  as field Site set oper on 
  as field Site set private on 
  as field Site set watch on 
  as field Site set whois on 
  as field Takım add 
  as field Takım set onchange on
  as field Takım set oper on 
  as field Takım set private on 
  as field Takım set watch on 
  as field Takım set whois on 
  as field Soyadı add 
  as field Soyadı set onchange on
  as field Soyadı set oper on 
  as field Soyadı set private on 
  as field Soyadı set watch on 
  as field Soyadı set whois on 
  as field Cep.No add 
  as field Cep.No set onchange on
  as field Cep.No set oper on 
  as field Cep.No set private on 
  as field Cep.No set watch on 
  as field Cep.No set whois on 
  as field E-MaiL add 
  as field E-MaiL set onchange on
  as field E-MaiL set oper on 
  as field E-MaiL set private on 
  as field E-MaiL set watch on 
  as field E-MaiL set whois on 
  as field Yardım add 
  as field Yardım set onchange on
  as field Yardım set oper on 
  as field Yardım set private on 
  as field Yardım set watch on 
  as field Yardım set whois on 
  as field D.Yeri add 
  as field D.Yeri set onchange on
  as field D.Yeri set oper on 
  as field D.Yeri set private on 
  as field D.Yeri set watch on 
  as field D.Yeri set whois on 
  as field D.Tarihi add 
  as field D.Tarihi set onchange on
  as field D.Tarihi set oper on 
  as field D.Tarihi set private on 
  as field D.Tarihi set watch on 
  as field D.Tarihi set whois on 
  as field İnadına add 
  as field İnadına set onchange on
  as field İnadına set oper on 
  as field İnadına set private on 
  as field İnadına set watch on 
  as field İnadına set whois on 
  as field Diyorki add 
  as field Diyorki set onchange on
  as field Diyorki set oper on 
  as field Diyorki set private on 
  as field Diyorki set watch on 
  as field Diyorki set whois on 
  as field HotmaiL add 
  as field HotmaiL set onchange on
  as field HotmaiL set oper on 
  as field HotmaiL set private on 
  as field HotmaiL set watch on 
  as field HotmaiL set whois on 
  as field Memleketi add 
  as field Memleketi set onchange on
  as field Memleketi set oper on 
  as field Memleketi set private on 
  as field Memleketi set watch on 
  as field Memleketi set whois on 
  as field YaşadığıŞehiR add 
  as field YaşadığıŞehiR set onchange on
  as field YaşadığıŞehiR set oper on 
  as field YaşadığıŞehiR set private on 
  as field YaşadığıŞehiR set watch on 
  as field YaşadığıŞehiR set whois on 
  as field Den*TavsiyeleR add 
  as field Den*TavsiyeleR set onchange on
  as field Den*TavsiyeleR set oper on 
  as field Den*TavsiyeleR set private on 
  as field Den*TavsiyeleR set watch on 
  as field Den*TavsiyeleR set whois on 
}

on *:dialog:Whoisdüzenle:sclick:22:{ fieldelete  }
Alias fieldelete {
  as field Adı del
  as field Web del 
  as field Dil del
  as field Yası del 
  as field üLKe del
  as field Site del 
  as field Takım del 
  as field Soyadı del
  as field Cep.No del
  as field E-MaiL del
  as field Yardım del
  as field D.Yeri del
  as field D.Tarihi del
  as field İnadına del
  as field Diyorki del
  as field HotmaiL del
  as field Memleketi del
  as field YaşadığıŞehiR del
  as field Den*TavsiyeleR del
}

#fieldeklendi off
on *:snotice:*:{ 
  if *Field added:* iswm $1- { echo -a 4Field-Adı : 10 $5 2Başarıyla 3Eklendi. }
  elseif *field * add* iswm $1- { echo -a 4Field-Adı : 10 $3 2User Fields 1Listesinde ekli. }
  elseif *No such field* iswm $1- { echo -a 4Field-Adı : 10 $6 2Hatalı.. }
}
#fieldeklendi end