IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Çözüldü Özele !giriş kod remotesi (https://www.ircforumlari.net/mirc-scripting-sorunlari/995034-ozele-giris-kod-remotesi.html)

Özele !giriş kod remotesi

Arkadaşlar eskiden özele !giriş 123 gibi remote vardı sağa sola baktım da göremedim elinde hazır olan varmı ya da yapabilir mi rica etsem.

Cevap: Özele !giriş kod remotesi

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] merhaba,

İstediğinizi tam olarak belirtirseniz mutlaka yardımcı olmak istiyenler olucaktır.

Cevap: Özele !giriş kod remotesi

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bir gözat işine yarar belki.

Cevap: Özele !giriş kod remotesi

Anladığım kadarı ile özele gelenleri kabul etme reddetme şeklinde istemiş sanırım

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

Cevap: Özele !giriş kod remotesi

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emeğine sağlık fakat çalışmadı.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'ün paylaşımına yanlışlıkla denk geldim. İstediğim remote buydu.

Paylaşılan yer;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Düzenleyerek kullandığım remote;

Kod:



on *:open:?:*:{ 

  if ($nick != $me) {

    $+(timer,ozelretmesaj;) 1 29 msg $nick 2Belirlenen sürede şifrenizi girmediniz. 4Özel pencereniz kapatılıyor.

    $+(timer,ozelkabul) 1 30 close -m $nick

    ozelsifre $nick

  }

}

alias ozelsifre {

  set -e %gelennick $1

  set %ozkabul $(,$str($!r(100,999) $chr(32) , 1))

  msg %gelennick 2Özelime yazmak için size belirlenmiş şifre olan 4 $+(",%ozkabul,") 2şifresini 4 $+(30 saniye) 2içinde  girmeniz gerekiyor.  4!sifre %ozkabul 2şeklinde şifrenizi girebilirsiniz. Aksi takdirde özel penceresi kapatılacaktır. | halt

}

on *:text:*:?:{

  if $regex($1,/[!.](s|ş)ifre/i) {

    if !$2 { msg $nick Şifreyi yazmadın. | return }

    if $2 == %ozkabul {

      timerozelretmesaj off 

      timerozelkabul off

      msg $nick Şifreniz Kabul Edildi.

    }

    else { .msg $nick şifrenizi yanlış girdiniz. | return }

  }

}