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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Çözüldü mirc botunda özelde random soru sordurmak (https://www.ircforumlari.net/mirc-scripting-sorunlari/829499-mirc-botunda-ozelde-random-soru-sordurmak.html)

alphae 17 Temmuz 2019 00:42

mirc botunda özelde random soru sordurmak
 
Merhaba..

kanala girip nickini kayit eden birine bot özelde random.txt icinde rasekele 100 sorudan bir soru sorsun.
dogru ise sorunun cevabı o nicke /nickserv clearauth nick yapsın böyle bisi yapmak istiyorum
ve bot o nicki odalara saojinlesin.


yardiminiza ihtiyacim var.

YouMyCure 19 Temmuz 2019 09:42

Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:

alphae Nickli Üyeden Alıntı (Mesaj 1042118793)
Merhaba..

kanala girip nickini kayit eden birine bot özelde random.txt icinde rasekele 100 sorudan bir soru sorsun.
dogru ise sorunun cevabı o nicke /nickserv clearauth nick yapsın böyle bisi yapmak istiyorum
ve bot o nicki odalara saojinlesin.


yardiminiza ihtiyacim var.

ilk önce services üzerinde buna benzer bir log elde etmen lazım,
Kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

<NickServ> [ NS-REGISTER ] deneme Nick'i deneme@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com email üzerine kayıt edilmişdir.
nick 4. karakterdir, ve başında/sonunda ince yazı () karanteri vardır bunu temizlemek için $srtip kullanılır
Kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

on *:text:*:*: {
  if $regex(#,/^#/) {
    if $regex($2,/^(NS-REGISTER)$/Si) {
      msg $strip($4) Soru: $token($read(sorular.txt),1,149)
      msg $strip($4) Nick kaydınızı tamamlamak için yukarıdaki soruyu cevaplayınız.
      .hadd -sm Register $strip($4) $token($read(sorular.txt),2,149)
    }
  }
  else { if $hfind(Register,$nick) = $1- { msg $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -s Register $nick } }
}

sorular.txt içeriği
Kod:

Türkiyenin Başenti Neresidir ?•Ankara
Atatürk Kaç Yılında Vefat Etti ?•1938
Romayı Kim Yaktı ?•Neron


Heartbroken 19 Temmuz 2019 19:07

Cevap: mirc botunda özelde random soru sordurmak
 
Yukarıda İki Hata Var Ki;


"Atatürk Kaç Yılında Vefat Etti ?•1881"
(Doğum Tarihine Akıl Gitti Sanırım!)


"Romayı Kim Yaktı ?•Sezar"
( [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] )
(Net Olmamakla Birlikte, Neron'a Kesilmiş Bir Bilettir!)


(Sezar'ın Hakkı Sezar'a! İadeli Taahhütlü...)


Ukalalık Gibi Olmasın Ama;
İlla Birinin Yazması Şarttı!
O Da Ben Olayım Bari...

nikotin 20 Temmuz 2019 16:47

Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:

alphae Nickli Üyeden Alıntı (Mesaj 1042118793)
Merhaba..

kanala girip nickini kayit eden birine bot özelde random.txt icinde rasekele 100 sorudan bir soru sorsun.
dogru ise sorunun cevabı o nicke /nickserv clearauth nick yapsın böyle bisi yapmak istiyorum
ve bot o nicki odalara saojinlesin.


yardiminiza ihtiyacim var.

Bunu istemenizdeki amac nedir? Maksat degisiklik olsun diye mi
Yoksa saldırı botlarına karsı bir önlem amaclı mı?

Degisiklik icinse anlarım
Diger türlü bir isinize yaramaz.
Yaraması icin cevap satırlarının sürekli degismesi lazım

alphae 20 Ağustos 2019 22:20

Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1042119900)
ilk önce services üzerinde buna benzer bir log elde etmen lazım,
Kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

<NickServ> [ NS-REGISTER ] deneme Nick'i deneme@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com email üzerine kayıt edilmişdir.
nick 4. karakterdir, ve başında/sonunda ince yazı () karanteri vardır bunu temizlemek için $srtip kullanılır
Kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

on *:text:*:*: {
  if $regex(#,/^#/) {
    if $regex($2,/^(NS-REGISTER)$/Si) {
      msg $strip($4) Soru: $token($read(sorular.txt),1,149)
      msg $strip($4) Nick kaydınızı tamamlamak için yukarıdaki soruyu cevaplayınız.
      .hadd -sm Register $strip($4) $token($read(sorular.txt),2,149)
    }
  }
  else { if $hfind(Register,$nick) = $1- { msg $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -s Register $nick } }
}

sorular.txt içeriği
Kod:

Türkiyenin Başenti Neresidir ?•Ankara
Atatürk Kaç Yılında Vefat Etti ?•1938
Romayı Kim Yaktı ?•Neron




aslinda bunlara gerek yok mail-auth.c dosyasi icinde kayit eden nicki belirtigim odaya söyle bisi
göndere bilmek lazim örnek Ayşe nickini kayit etti /ns clearauth ayşe

alphae 21 Ağustos 2019 03:12

Cevap: mirc botunda özelde random soru sordurmak
 
haletim.

alphae 26 Ağustos 2019 14:32

Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1042119900)
ilk önce services üzerinde buna benzer bir log elde etmen lazım,
Kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

<NickServ> [ NS-REGISTER ] deneme Nick'i deneme@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com email üzerine kayıt edilmişdir.
nick 4. karakterdir, ve başında/sonunda ince yazı () karanteri vardır bunu temizlemek için $srtip kullanılır
Kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

on *:text:*:*: {
  if $regex(#,/^#/) {
    if $regex($2,/^(NS-REGISTER)$/Si) {
      msg $strip($4) Soru: $token($read(sorular.txt),1,149)
      msg $strip($4) Nick kaydınızı tamamlamak için yukarıdaki soruyu cevaplayınız.
      .hadd -sm Register $strip($4) $token($read(sorular.txt),2,149)
    }
  }
  else { if $hfind(Register,$nick) = $1- { msg $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -s Register $nick } }
}

sorular.txt içeriği
Kod:

Türkiyenin Başenti Neresidir ?•Ankara
Atatürk Kaç Yılında Vefat Etti ?•1938
Romayı Kim Yaktı ?•Neron



Bende bu şekilde kayit bilgileri çikiyor.

Kod:

[14:25] -NickServ- gkghkh nick'i basari ile kaydedilmistir.

[14:25] -NickServ- Nickiniz icin adminlere onay istegi talebi gonderildi.

[14:25] -NickServ- Admin'lerden nickinizin onaylanmasini talep ediniz.

[14:25] -NickServ- Nick sifreniz: 740007 'dir. Lutfen sifrenizi unutmayiniz ve kimseye soylemeyiniz.


ircservices ile admin odasina yazdirdigim log
[14:25] <NickServ> gkghkh Nickini onaylayınız bilgi : ~Admin@95.70.129.151 .onay gkghkh
[14:27] <NickServ> gkghkh Nickini onaylayınız bilgi : ~Admin@95.70.129.151 .onay gkghkh


Kodu degistirdim olmadı altaki gibi

Kod:

on *:text:*:*: {
  if $regex(#,/^#/) {
    if $regex($1,/^(Nickserv)$/Si) {
      msg $strip($1) Soru: $token($read(sorular.txt),1,149)
      msg $strip($1) Nick kaydınızı tamamlamak için yukarıdaki soruyu cevaplayınız.
      .hadd -sm Register $strip($1) $token($read(sorular.txt),2,149)
    }
  }
  else { if $hfind(Register,$nick) = $1- { msg $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -s Register $nick } }
}


YouMyCure 26 Ağustos 2019 14:43

Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:

alphae Nickli Üyeden Alıntı (Mesaj 1042141714)
Bende bu şekilde kayit bilgileri çikiyor.

Kod:

[14:25] -NickServ- gkghkh nick'i basari ile kaydedilmistir.

[14:25] -NickServ- Nickiniz icin adminlere onay istegi talebi gonderildi.

[14:25] -NickServ- Admin'lerden nickinizin onaylanmasini talep ediniz.

[14:25] -NickServ- Nick sifreniz: 740007 'dir. Lutfen sifrenizi unutmayiniz ve kimseye soylemeyiniz.


ircservices ile admin odasina yazdirdigim log
[14:25] <NickServ> gkghkh Nickini onaylayınız bilgi : ~Admin@95.70.129.151 .onay gkghkh
[14:27] <NickServ> gkghkh Nickini onaylayınız bilgi : ~Admin@95.70.129.151 .onay gkghkh


Kodu degistirdim olmadı altaki gibi

Kod:

on *:text:*:*: {
  if $regex(#,/^#/) {
    if $regex($1,/^(Nickserv)$/Si) {
      msg $strip($1) Soru: $token($read(sorular.txt),1,149)
      msg $strip($1) Nick kaydınızı tamamlamak için yukarıdaki soruyu cevaplayınız.
      .hadd -sm Register $strip($1) $token($read(sorular.txt),2,149)
    }
  }
  else { if $hfind(Register,$nick) = $1- { msg $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -s Register $nick } }
}


Kod:

on *:text:*:*: {
  if $regex(#,/^#/) {
    if $regex($3,/^(onaylayınız)$/Si) {
      msg $strip($1) Soru: $token($read(sorular.txt),1,149)
      msg $strip($1) Nick kaydınızı tamamlamak için yukarıdaki soruyu cevaplayınız.
      .hadd -sm Register $strip($1) $token($read(sorular.txt),2,149)
    }
  }
  else { if $hfind(Register,$nick) = $1- { msg $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -s Register $nick } }
}


alphae 26 Ağustos 2019 16:01

Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1042141721)
Kod:

on *:text:*:*: {
  if $regex(#,/^#/) {
    if $regex($3,/^(onaylayınız)$/Si) {
      msg $strip($1) Soru: $token($read(sorular.txt),1,149)
      msg $strip($1) Nick kaydınızı tamamlamak için yukarıdaki soruyu cevaplayınız.
      .hadd -sm Register $strip($1) $token($read(sorular.txt),2,149)
    }
  }
  else { if $hfind(Register,$nick) = $1- { msg $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -s Register $nick } }
}



soruyu soruyor help odasinda sorduruyorum. cevap kabul etmiyor nedendir acaba ?

[16:00] <~Bilgi> fgjfjbn Soru: Türkiyenin Başenti Neresidir ?
[16:00] <~Bilgi> fgjfjbn Nick kaydınızı tamamlamak için yukarıdaki soruyu cevaplayınız.
[16:00] Giriş: omer11 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[16:00] <&fgjfjbn> ankara


Kod:

on *:text:*:*: {
  if $regex(#,/^#/) {
    if $regex($3,/^(onaylayınız)$/Si) {
      msg #help $strip($1) Soru: $token($read(sorular.txt),1,149)
      msg #help  $strip($1) Nick kaydınızı tamamlamak için yukarıdaki soruyu cevaplayınız.
      .hadd -sm Register $strip($1) $token($read(sorular.txt),2,149)
    }
  }
  else { if $hfind(Register,$nick) = $1- { msg #help $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -s Register $nick } }
}


Set 26 Ağustos 2019 18:01

Cevap: mirc botunda özelde random soru sordurmak
 
Kod:

on *:text:*:*: {
  if $regex(#,/^#/) {
    if $regex($3,/^(onaylayınız)$/Si) {
      var %soru $read(sorular.txt)
      msg #help $strip($1) Soru: $token(%soru,1,149)
      msg #help  $strip($1) Nick kaydınızı tamamlamak için yukarıdaki soruyu cevaplayınız.
      .hadd -sm Register $strip($1) $token(%soru,2,149)
    }
  }
  else { if $hfind(Register,$nick) = $1- { msg #help $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -s Register $nick } }
}



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 12:08.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net