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

YouMyCure 26 Ağustos 2019 18:04
Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:
alphae Nickli Üyeden Alıntı (Mesaj 1042141768)
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 } }
}
cevabı kanalda verdirmek için
Kod:
on *:text:*:#: {
  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)
  }
  elseif $hfind(Register,$nick) = $1- { msg #help $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -s Register $nick }
}

alphae 26 Ağustos 2019 19:20
Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1042141881)
cevabı kanalda verdirmek için
Kod:
on *:text:*:#: {
  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)
  }
  elseif $hfind(Register,$nick) = $1- { msg #help $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -s Register $nick }
}
Cevap kabul etmiyor neden ki.


[19:19] <~Bilgi> fgjfg Soru: 10-5 çıkarsa kaç kalır ?
[19:19] <~Bilgi> fgjfg Nick kaydınızı tamamlamak için yukarıdaki soruyu cevaplayınız.
[19:19] <fgjfg> 5

Toprak 26 Ağustos 2019 19:31
Cevap: mirc botunda özelde random soru sordurmak
 
Hatalı kısım;
Kod:
$hfind(Register,$nick) = $1-
Herhangi bir arama yapılmıyor bunun için $hfind değil $hget kullanılır,

Doğrusu;
Kod:
$hget(Register,$nick) == $1-
$hfind ile sorulduğunda tekrar $nick 'i verir...
Bakıyorum da mirc'de bir arpa boyu yol katetmemisiz..


Buyur;
Kod:
on *:text:*:*:{
  if $regex(#,/^#/) && $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 -ms Register $strip($1) $token(%soru,2,149)
  }
  elseif ($hget(Register,$nick) == $strip($1-)) { msg #help $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -ms Register $nick }
}

Set 26 Ağustos 2019 20:53
Cevap: mirc botunda özelde random soru sordurmak
 
Kod:
on *:text:*:#: {
  if $regex($3,/^(onaylayınız)$/Si) && $nick == nickserv {
    %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 -m register $strip($1) $token(%soru,2,149)
    }
  if $hget(register,$nick) == $1- { msg #help $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -m register $nick }
}

alphae 26 Ağustos 2019 23:32
Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1042142056)
Kod:
on *:text:*:#: {
  if $regex($3,/^(onaylayınız)$/Si) && $nick == nickserv {
    %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 -m register $strip($1) $token(%soru,2,149)
    }
  if $hget(register,$nick) == $1- { msg #help $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -m register $nick }
}
Peki yanlış cevap verirse gline atirmayi nasil ekleriz çok güzel bir kod oldu calisiyor.

Set 26 Ağustos 2019 23:57
Cevap: mirc botunda özelde random soru sordurmak
 
Kod:
on *:text:*:#: {
  if $regex($3,/^(onaylayınız)$/Si) && $nick == nickserv {
    %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 -m register $strip($1) $token(%soru,2,149)
    }
  if $hget(register,$nick) == $1- { msg #help $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -m register $nick }
  else { gzline $nick +0 yanlis cevap | ns dropnick $nick | hdel -m register $nick }
}
Denemedim ama çalışacaktır herhalde, genede belirtirsin birşey olursa eğer, yardımcı olmaya calisirim

alphae 27 Ağustos 2019 00:08
Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1042142232)
Kod:
on *:text:*:#: {
  if $regex($3,/^(onaylayınız)$/Si) && $nick == nickserv {
    %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 -m register $strip($1) $token(%soru,2,149)
    }
  if $hget(register,$nick) == $1- { msg #help $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -m register $nick }
  else { gzline $nick +0 yanlis cevap | ns dropnick $nick | hdel -m register $nick }
}
Denemedim ama çalışacaktır herhalde, genede belirtirsin birşey olursa eğer, yardımcı olmaya calisirim
3 adet shun ati site adresine ve nicki kayit edene ve botun ipine uyari mesajida vermedi


[00:06] *** Permanent Shun added for *@site.com on Mon Aug 26 21:07:37 2019 GMT (from Bilgi!~Admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].site.com: yanlis cevap)
[00:06] *** Permanent Shun added for *@95.70.132.48 on Mon Aug 26 21:07:43 2019 GMT (from Bilgi!~Admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].site.com: yanlis cevap)
[00:06] *** Permanent Shun added for *@185.141.33.66 on Mon Aug 26 21:07:53 2019 GMT (from Bilgi!~Admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].site.com: yanlis cevap)

Set 27 Ağustos 2019 00:31
Cevap: mirc botunda özelde random soru sordurmak
 
Kod:
on *:text:*:#: {
  if $regex($3,/^(onaylayınız)$/Si) && $nick == nickserv {
    %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 -m register $strip($1) $token(%soru,2,149)
      return
    }
  if $hget(register,$nick) { %v1 = $v1
    if %v1 == $1- { msg #help $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -m register $nick | return }
  gzline $nick +0 yanlis cevap | ns dropnick $nick | hdel -m register $nick
}
Mobille biraz sorun çıkıyor k.bakma anca böyle düzenlemeler yapıyorum ama şuan istediğin gibi çalışması gerek

alphae 27 Ağustos 2019 00:43
Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1042142259)
Kod:
on *:text:*:#: {
  if $regex($3,/^(onaylayınız)$/Si) && $nick == nickserv {
    %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 -m register $strip($1) $token(%soru,2,149)
      return
    }
  if $hget(register,$nick) { %v1 = $v1
    if %v1 == $1- { msg #help $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -m register $nick | return }
  gzline $nick +0 yanlis cevap | ns dropnick $nick | hdel -m register $nick
}
Mobille biraz sorun çıkıyor k.bakma anca böyle düzenlemeler yapıyorum ama şuan istediğin gibi çalışması gerek

son bir sorum olacak simdi help odasina giren botlar özele yazarsa nasil engeleriz ? help odasinda olan biri özelere yazamasin ? bot engelesin

Set 27 Ağustos 2019 00:51
Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:
alphae Nickli Üyeden Alıntı (Mesaj 1042142264)
son bir sorum olacak simdi help odasina giren botlar özele yazarsa nasil engeleriz ? help odasinda olan biri özelere yazamasin ? bot engelesin
Engelleme yaptıramazsın, özel bir modülle ancak engelletirsin, unreal bazlı o şekil istediğin sonucu alabilirsin, yada bot üstünden değilde web bazlı işlem yatırırsın kanalda shun uygulatirsin birçok fikir çıkartabilirsin kısaca

alphae 27 Ağustos 2019 01:05
Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1042142268)
Engelleme yaptıramazsın, özel bir modülle ancak engelletirsin, unreal bazlı o şekil istediğin sonucu alabilirsin, yada bot üstünden değilde web bazlı işlem yatırırsın kanalda shun uygulatirsin birçok fikir çıkartabilirsin kısaca

Alta özel yazmayi engele modulu var ama sikintili sikintisi su servicesle alakali hic bisi calismioyor
hic bir islem yapamiyorum kendim oper oldum halde ozele yazamiyorum ayni zamanda startuste cift tikladimda hic bir sonuc vermiyor services engeliyor acikcasi.

Kod:
#include "config.h"
#include "struct.h"
#include "common.h"
#include "sys.h"
#include "numeric.h"
#include "msg.h"
#include "channel.h"
#include <time.h>
#include <sys/stat.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#ifdef _WIN32
#include <io.h>
#endif
#include <fcntl.h>
#include "h.h"
#include "proto.h"
#ifdef STRIPBADWORDS
#include "badwords.h"
#endif
#ifdef _WIN32
#include "version.h"
#endif

DLLFUNC char *ozelmesaj(aClient *, aClient *, aClient *, char *, int);

ModuleHeader MOD_HEADER(ozelmesaj)
= {
        "ozelmesaj",
        "Kayitsiz Nicklere Ozelde Konusma Engeli Modulu",
        "Coded by degisirsiniz",
        "3.2-b8-1",
        NULL
};

DLLFUNC int MOD_INIT(ozelmesaj)(ModuleInfo *modinfo)
{
        HookAddPCharEx(modinfo->handle, HOOKTYPE_USERMSG, ozelmesaj);
        return MOD_SUCCESS;
}

DLLFUNC int MOD_LOAD(ozelmesaj)(int module_load)
{
        return MOD_SUCCESS;
}

DLLFUNC int MOD_UNLOAD(ozelmesaj)(int module_unload)
{
        return MOD_SUCCESS;
}

DLLFUNC char *ozelmesaj(aClient *cptr, aClient *sptr, aClient *acptr, char *text, int notice)
{
        if (!IsARegNick(sptr)) {
                if (!IsServer(sptr) && !IsOper(sptr) && !IsULine(acptr)) {
                        sendnotice(sptr, "*** Mesaj gonderebilmek icin nickinizi kaydetmeniz gerekmektedir.");
                        return NULL;
                }
        }
        return text;
}

Set 27 Ağustos 2019 08:31
Cevap: mirc botunda özelde random soru sordurmak
 
Alıntı:
alphae Nickli Üyeden Alıntı (Mesaj 1042142278)
Alta özel yazmayi engele modulu var ama sikintili sikintisi su servicesle alakali hic bisi calismioyor
hic bir islem yapamiyorum kendim oper oldum halde ozele yazamiyorum ayni zamanda startuste cift tikladimda hic bir sonuc vermiyor services engeliyor acikcasi.

Kod:
#include "config.h"
#include "struct.h"
#include "common.h"
#include "sys.h"
#include "numeric.h"
#include "msg.h"
#include "channel.h"
#include <time.h>
#include <sys/stat.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#ifdef _WIN32
#include <io.h>
#endif
#include <fcntl.h>
#include "h.h"
#include "proto.h"
#ifdef STRIPBADWORDS
#include "badwords.h"
#endif
#ifdef _WIN32
#include "version.h"
#endif

DLLFUNC char *ozelmesaj(aClient *, aClient *, aClient *, char *, int);

ModuleHeader MOD_HEADER(ozelmesaj)
= {
        "ozelmesaj",
        "Kayitsiz Nicklere Ozelde Konusma Engeli Modulu",
        "Coded by degisirsiniz",
        "3.2-b8-1",
        NULL
};

DLLFUNC int MOD_INIT(ozelmesaj)(ModuleInfo *modinfo)
{
        HookAddPCharEx(modinfo->handle, HOOKTYPE_USERMSG, ozelmesaj);
        return MOD_SUCCESS;
}

DLLFUNC int MOD_LOAD(ozelmesaj)(int module_load)
{
        return MOD_SUCCESS;
}

DLLFUNC int MOD_UNLOAD(ozelmesaj)(int module_unload)
{
        return MOD_SUCCESS;
}

DLLFUNC char *ozelmesaj(aClient *cptr, aClient *sptr, aClient *acptr, char *text, int notice)
{
        if (!IsARegNick(sptr)) {
                if (!IsServer(sptr) && !IsOper(sptr) && !IsULine(acptr)) {
                        sendnotice(sptr, "*** Mesaj gonderebilmek icin nickinizi kaydetmeniz gerekmektedir.");
                        return NULL;
                }
        }
        return text;
}
Bunuda unrealcilere sorman gerekiyor, onlarda çok yardim severdir, yardımcı olucaklardir, oraya konu açarak sorununa çözüm bulursun

alphae 25 Kasım 2019 00:55
Cevap: mirc botunda özelde random soru sordurmak
 
altaki kod calsiyor ama bir sorun var sorun şu cözemedim.


Simdi Nicki kayit eden kisi help odasina bisi yazdinda bot yanlis cevap diyip atiyor.
istedigim şu sayi olarak yanlis cevap verirse atsin normal yazi yazdi icin atmasın.

Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1042142259)
Kod:
on *:text:*:#: {
  if $regex($3,/^(onaylayınız)$/Si) && $nick == nickserv {
    %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 -m register $strip($1) $token(%soru,2,149)
      return
    }
  if $hget(register,$nick) { %v1 = $v1
    if %v1 == $1- { msg #help $nick Nick kaydınız tamamlandı | nickserv clearauth nick | .hdel -m register $nick | return }
  gzline $nick +0 yanlis cevap | ns dropnick $nick | hdel -m register $nick
}
Mobille biraz sorun çıkıyor k.bakma anca böyle düzenlemeler yapıyorum ama şuan istediğin gibi çalışması gerek


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk