irc, özel kabul oddonu, mirc irc özel kabul kodu, kod özel kabul,

[Admin]

irc, özel kabul oddonu, mirc irc özel kabul kodu, kod özel kabul,

Kod:

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 ] ] }
}

kod açıklama : Bu kodu scpritinize girip Alt + R tuşuna basıp Remote kısmına eklyosunuz ....
Not : kod denenmiştir.