alias ozelkabul { 
  set %daws.nick $1 
  set %daws.address $2 
  set %daws.msg $3- 
  if ($dialog($1) != $null) { goto son } 
  dialog -m $1 zelkabul 
  :son 
} 
dialog zelkabul { 
  title "Dawson Özel Konuşma İsteği" 
  size -1 -1 164 61 
  option dbu 
  edit "", 1, 40 4 120 10, read 
  text "Nick :", 2, 4 7 27 8 
  text "Adres :", 3, 4 19 28 8 
  text "Mesaj :", 4, 4 31 28 8 
  edit "", 5, 40 18 121 10, read 
  edit "", 6, 40 30 121 10, read 
  button "Kabul ET", 7, 13 44 67 12, flat ok 
  button "Red ET", 8, 86 44 66 12, flat cancel 
} 
on *:dialog:*:init:*:{ 
  if (Dawson Özel Konuşma İsteği == $dialog(%daws.nick).title ) { 
    set %daws.dialog %daws.nick 
    did -a %daws.nick 1 %daws.nick 
    did -a %daws.nick 5 %daws.address 
    did -a %daws.nick 6 %daws.msg 
  } 
} 
on *:dialog:*:sclick:*:{ 
  if (Dawson Özel Konuşma İsteği == $dialog($dialog($dialog(0))).title ) { 
    if ($did == 7) { 
      .window -w $dialog($dialog(0))
      .msg $dialog($dialog(0)) 12 Ozel Gorusme Istegini Kabul Ettim $nick Sana Nasil Yardim Edebilirim?
      .timer 1 2 msg $dialog($dialog(0)) A.Selam .. Merhaba $dialog($dialog(0)) .. Buyrun?
      .set %daws.gorusme. [ $+ [ $dialog($dialog(0)) ] ] ok 
    } 
    if ($did == 8) { 
      .msg $dialog($dialog(0)) 12 Suanda Ya Bilgisayar Basinda Degilim Ya da Cok Yogun ve Mesgulum. Lutfen Daha Sonra Tekrar geliniz.
      .msg $dialog($dialog(0)) 0,12 OZEL GORUSME ISTEGINIZ RED EDILDI
      .ignore -pu30 $dialog($dialog(0)) 
      .closemsg $dialog($dialog(0)) 
    } 
  } 
} 
on *:open:?:*:{
  if ($nick == $me) { goto son }
  if ($nick == xxx) { goto son } 
  if (%daws.gorusme. [ $+ [ $nick ] ] == $null) { 
    .ozelkabul $nick $address $1-
    .msg $nick 12 Merhaba  $nick ; $date Tarihinide, $time(HH:nn.ss) Zaman Diliminde Ozelime Geldin
    .msg $nick 12 Toplam Bu Gune Kadar Acilan Ozel Pencere %q! Tane ve Su Anda Acik Olan Ozel Pencere $+($query(0),.) Tanedir.
    inc %q!
    .msg $nick 12 $replace($duration($idle),secs,Saniye,mins,Dakika,hrs,Saat,day,Gün,wk,Hafta) Suredir Konusmuyorum 
    if ($server == irc.xxx.com) { 
      .msg $nick 12 lRC/Svs Hakkindaki Sorunlariniz icin  /join #Help  yaziniz
      .msg $nick 12 Ban Actirmak Icin 0,1 .banac ip 12 yaziniz. 5(7Ornek : 4 .banac 212.212.212.2125)
      .msg $nick 12 Serwer Hakkindaki Sorunlariniz icin /join #OperHelp yaziniz
    }
    .msg $nick 
    .msg $nick 12 Suanda Ozel Gorusme Istegini Degerlendiriyorum Lutfen Beklermisin
    .msg $nick 12 
    if ($server == irc.xxx.com ) { 
      .msg $nick 0,12 #sohbet   0,2 Kanalini Muhabbet Kanali Olarak Kullanabilirsiniz.
      .msg $nick 12 
    }
    .msg $nick 0,4 Sadece Sohbet Icin Geldiyseniz Uyari : Bayan Degilim
    .msg $nick 12 
    .msg $nick 4  Yogun Oldugundam Dolayi cevap veremeye ßilirim Lütfen anLayisla karsilayiniz
    inc %q!
    .window -h $nick 
  } 
  :son
} 
on *:CLOSE:?:{ 
  if (%daws.gorusme. [ $+ [ $target ] ] != $null) { unset %daws.gorusme. [ $+ [ $target ] ] } 
}