reklam reklam

  • Konu İçeriğini Görebilmek İçin Lütfen Üye Olun. Aksi Takdirde İçeriği Göremezsiniz.

Mirc Özel Kabul Remotesi Kodu

admin

Forever mIRCX!
Yönetici
Yetkili
mIRCX Admin
Denetleyici
Katılım
16 Kas 2019
Mesajlar
335
Tepkime puanı
0
Puanları
16
Konum
public_html
Web sitesi
www.mircx.net

İtibar:

Merhaba arkadaşlar bugün sizlere mircinizde özelinize gelen birisini kabul etme veya reddetme kodu paylaşacağım. Kodu mircinizde Alt+R tuşlarına basarak dosya => yeni tıklayıp oraya ekleyin ve ardından tamam deyiniz.

Kod:
menu * {
  .-
  . Ozel Kabul
  ..» Açık !:.enable #ozelkabul | .echo -a  0,15  12 Ozel Kabul Açık..   %Java
  ..» Kapalı !:.disable #ozelkabul | .echo -a  0,15  12 Ozel Kabul Kapalı..   %Java
  .-
}
#ozelkabul off
alias ozelkabul {
  set %ozelkabul.nick $1
  set %ozelkabul.address $2
  set %ozelkabul.msg $3-
  if ($dialog($1) != $null) { goto son }
  dialog -m $1 ozelkabul
  :son
}

dialog ozelkabul {
  title "Ozel Konusma Istegi"
  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 (Ozel Konusma Istegi == $dialog($dname).title ) {
    set %ozelkabul.dialog $dname
    did -a $dname 1 %ozelkabul.nick
    did -a $dname 5 %ozelkabul.address
    did -a $dname 6 %ozelkabul.msg
  }
}

on *:dialog:*:sclick:*:{
  if (Ozel Konusma Istegi == $dialog($dname).title ) {
    if ($did == 7) {
      .window -w $dname 
      .msg $dname  4,8 $Nick  1,8Özel Konuşma İsteğiniz Kabul Edilmiştir.. )
      .set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok
    }
    if ($did == 8) {
      .msg $dname  4,8 $dname  1,8 Üzgünüm Ama Şuanda Meşkulum.. Özel Konuşma İsteğiniz Kabul Edilmedi..
      .ignore -pu300 $dname
      .closemsg $dname
    } 
  }
}
on *:TEXT:*:?:{
  if ($nick == $me) { goto son }
  if (%ozelkabul.gorusme. [ $+ [ $nick ] ] == $null) {
    .ozelkabul $nick $address($nick,2) $1-
    .msg $nick  4,8 $nick  1,8Özel Programım Açık Durumda.. Lütfen Bekleyiniz..
    .window -h $nick
    :son
  }
}

on *:CLOSE:?:{
  if (%ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] }
}
#ozelkabul end
 
Üst Alt