alias whs1 dialog -m whsx whsx 
dialog whsx { 
  title "Whois Düzenleyici « uMuT » " 
  size -1 -1 242 210 
  option dbu 
  box "Nicki Girin", 1, 4 3 119 23 
  edit "", 2, 8 11 108 12, autohs 
  box "", 3, 4 30 236 176 
  text "Diyorki", 4, 10 40 47 8 
  edit "", 5, 70 40 106 10, autohs 
  text "İnadına", 6, 10 55 47 8 
  edit "", 7, 70 55 106 10, autohs 
  text "Bir", 8, 10 70 47 8 
  edit "", 9, 70 70 106 10, autohs 
  text "Web", 10, 10 85 47 8 
  edit "", 11, 70 85 106 10, autohs 
  text "E-Mail", 12, 10 100 47 8 
  edit "", 13, 70 100 106 10, autohs 
  text "Site", 14, 10 115 47 8 
  edit "", 15, 70 115 106 10, autohs 
  text "Takim", 16, 10 130 47 8 
  edit "", 17, 70 130 106 10, autohs 
  text "Dili", 18, 10 145 47 8 
  edit "", 19, 70 145 106 10, autohs 
  text "Yardim", 20, 10 160 47 8 
  edit "", 21, 70 160 106 10, autohs 
  text "Ulke", 22, 10 175 47 8 
  edit "", 23, 70 175 106 10, autohs 
  text "Den Tavsiyeler", 24, 10 190 47 8 
  edit "", 25, 70 190 106 10, autohs 
  button "Ekle", 28, 185 40 48 10 
  button "Ekle", 29, 185 55 48 10 
  button "Ekle", 30, 185 70 48 10 
  button "Ekle", 31, 185 85 48 10 
  button "Ekle", 32, 185 100 48 10 
  button "Ekle", 33, 185 115 48 10 
  button "Ekle", 34, 185 130 48 10 
  button "Ekle", 35, 185 145 48 10 
  button "Ekle", 36, 185 160 48 10 
  button "Ekle", 37, 185 175 48 10 
  button "Ekle", 38, 185 190 48 10 
  box "", 40, 186 3 53 23 
  button "Tümünü Ekle", 41, 133 10 45 12 
  box "", 42, 130 3 52 23 
  button "Tamam/Kapat", 43, 190 10 45 12, ok 
} 

on *:dialog:whsx:init:*: {
  mdx SetMircVersion $version 
  mdx MarkDialog $dname
  mdx SetColor $dname 3,4,6,8,10,12,14,16,18,20,22,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40 text $rgb(0,0,0)
  mdx SetColor $dname ,16,18 text $rgb(005,080,120)
  mdx SetColor $dname 3,4,6,8,10,12,14,16,18,20,22,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40 background $rgb(225,225,225)
  mdx SetColor $dname 20,22 textbg $rgb(225,225,225)
  mdx SetDialog [ $dname ] bgcolor $rgb(225,225,225)
  mdx SetFont $dname  3,4,6,8,10,12,14,16,18,20,22,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40 Turkish 14 800 Cyrillic
  mdx SetFont $dname 3,4,6,8,10,12,14,16,18,20,22,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40 14 700 Tahoma
  mdx SetDialog  $dname  bgcolor  $rgb(225,225,225)
  mdx SetColor $dname 26 textbg $rgb(225,225,225)
  mdx SetColor $dname 26 background $rgb(225,225,225)
  mdx SetFont 3,4,6,8,10,12,14,16,18,20,22,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83 12 700 tahoma
  mdx SetBorderStyle 3,4,6,8,10,12,14,16,18,20,22,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40 staticedge 

}

on *:dialog:whsx:Sclick:*: { 
  if ($did == 28) { raw set $did(2) diyorki $did(5) | echo -a 5 $did(2) 4diyorki : $did(5) } 
  if ($did == 29) { raw set $did(2) inadına $did(7) | echo -a 5 $did(2) 4inadına : $did(7) } 
  if ($did == 30) { raw set $did(2) bir $did(9) | echo -a 5 $did(2) 4bir : $did(9) } 
  if ($did == 31) { raw set $did(2) web $did(11) | echo -a 5 $did(2) 4web : $did(11) } 
  if ($did == 32) { raw set $did(2) e-mail $did(13) | echo -a 5 $did(2) 4e-mail : $did(13) } 
  if ($did == 33) { raw set $did(2) site $did(15) | echo -a 5 $did(2) 4site : $did(15) } 
  if ($did == 34) { raw set $did(2) takim $did(17) | echo -a 5 $did(2) 4takim : $did(17) } 
  if ($did == 35) { raw set $did(2) dili $did(19) | echo -a 5 $did(2) 4dili : $did(19) } 
  if ($did == 36) { raw set $did(2) yardim $did(21) | echo -a 5 $did(2) 4yardim :$ did(21) } 
  if ($did == 37) { raw set $did(2) ulke $did(23) | echo -a 5 $did(2) 4ulke : $did(23) } 
  if ($did == 38) { raw set $did(2) den $did(25) | echo -a 5 $did(2) 4den : $did(25) } 
  if ($did == 41) { 
    .echo -a 5 Ekleme İşlemi İçin 4 15 Saniye 5Beklemelisiniz! 
    .timer 1 0 raw set $did(2) diyorki $did(5) 
    .timer 1 1 raw set $did(2) inadına $did(7) 
    .timer 1 2 raw set $did(2) bir $did(9) 
    .timer 1 3 raw set $did(2) web $did(11) 
    .timer 1 4 raw set $did(2) e-mail $did(13) 
    .timer 1 5 raw set $did(2) site $did(15) 
    .timer 1 6 raw set $did(2) takim $did(17) 
    .timer 1 7 raw set $did(2) dili $did(19) 
    .timer 1 8 raw set $did(2) yardim $did(21) 
    .timer 1 9 raw set $did(2) ulke $did(23) 
    .timer 1 11 raw set $did(2) den $did(25) 
    .timer 1 12 echo -a 5Ekleme İşlemi Bitmiştir. 
  } 
} 

menu channel,query,status { 
  Whois Düzenleyici:/whs1 
}