[immortaL]

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

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)) -
      .msg $dialog($dialog(0)) 12 Ozel Gorusme Istegini Kabul Ettim $nick Sana Nasil Yardim Edebilirim?
      .timer 1 2 msg $dialog($dialog(0)) $ksc $dialog($dialog(0)) .. Buyrun?
      .set %daws.gorusme. [ $+ [ $dialog($dialog(0)) ] ] ok 
    } 
    if ($did == 8) { 
      .msg $dialog($dialog(0)) 12 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 (%daws.gorusme. [ $+ [ $nick ] ] == $null) { 
    .ozelkabul $nick $address $1-
    .msg $nick 12 
    .msg $nick 12 
    .msg $nick 12 $replace($duration($idle),secs,Saniye,mins,Dakika,hrs,Saat,day,Gün,wk,Hafta) Suredir Konusmuyorum 
    if ($server == irc.geveze.org) { 
      .msg $nick 12 lRC/Svs Hakkindaki Sorunlariniz icin  /join #Help  yaziniz
      .msg $nick 12 -
      .msg $nick 12 Server Hakkindaki Sorunlariniz icin /join #OperHelp yaziniz
    }
    .msg $nick 
    .msg $nick 12 Suanda Ozel Gorusme Istegini Degerlendiriyorum Lutfen Beklermisin
    .msg $nick 12 
    if ($server == irc.geveze.org ) { 
      .msg $nick 0,12 #Geveze   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 ] ] } 
}