IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Socket ßotta Kanalda ve özelde komut uygulatma

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/)

- - Socket ßotta Kanalda ve özelde komut uygulatma (https://www.ircforumlari.net/mirc-scripting-sorunlari/26811-socket-ssotta-kanalda-ve-ozelde-komut-uygulatma.html)

bLaCkdeviL

25 Ocak 2007 17:06

Socket ßotta Kanalda ve özelde komut uygulatma

Arkadaşlar uzun zamandır urasıyorum bugün sonunda el33t hocamın kodlarıyla socket btotu hele sükür servere sokup ident ettirdim buna baya sevindim acıkcası :)
Şimdi sorunum su arkadaslar bu socket bota özelde ve kanalda !kurallar komutu uygulatmak istiyorum bir türlü yapamadım
Nerde socket varsa aldım cırptım yapamadım ßir örnek verebilirseniz cok sevinirim

diEfoRyoU

25 Ocak 2007 23:36

Cevap: Socket ßotta Kanalda ve özelde komut uygulatma

Eğer ki bi'şiler öğrendinse, sana sadece mantığını anlatacağım.
Çok kısa olacak belki ama bir yerden başlaman için yol gösterebilir.
if $2 == privmsg && $remove($4,:) == !komutlar && $3 == botnick { sockwrite -nt $sockname privmsg $gettok($remove($1,:),1,33) bla bla }

bota gelen yazılar

Kod:

 

                            $1               $2      $3      $4-

<- :page_upend!mIRCTEAM@D291A042.759866C8 PRIVMSG Botnick :ne amacları varsa artık

şeklindedir,

Umarım işine yarar;).

bLaCkdeviL

26 Ocak 2007 19:56

Cevap: Socket ßotta Kanalda ve özelde komut uygulatma

Öncelikle tŞk. ederim yardımın için eğer cok olmuyorsam bir kaç sey daha soracam ben verdiğin kodu iqi şekiLdede denedim oLdu özel ve kanalda yaptırdım txt den okutmayı felan başardım bir şey daha denedim onu yapamadım kanalda yazılan bir kelime txt de ise ona göre bir olay gerçekleştiremedim bu konuda yardımcı olursanız sevinirim...Kod burada ;

Kod:

  if $2 == privmsg && $remove($4,:) == !komutlar && $3 == #aşkops { 

    var %i 1

    while $read(reklamlar.txt,%i) {

      msg #SiberAsk $v1

      sockwrite -nt $sockname privmsg #aşkops $v1 

      inc %i

    }

  }

  if $2 == PRIVMSG && $3 == # {

    var %: $lines(kufur.txt)

    while (%: > 0) { if $read(kufur.txt,%:) iswm $strip($1-) {

        if ($nick == Cause) || (dmin isin $address) || (ops isin $address) || ($nick == irc.mirctr.net) { halt }

      ban -bu300 $chan ~q: $+ $wildsite | msg $chan  $+ $nick $+  : kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 5 dk. sureyle konusmaniz engellendi. }

      .dec %: 

    }

  }
 

}

Brain

26 Ocak 2007 21:26

Cevap: Socket ßotta Kanalda ve özelde komut uygulatma

Alıntı:

bLaCkdeviL Nickli Üyeden Alıntı

Test ettim calısıyor.

Kod:

  if $2 == PRIVMSG {

    %chan = $3 | %nick = $gettok($remove($1,:),1,33) | %text = $4- | %address = $mask($1,2)

    var %: $lines(kufur.txt)

    while (%: > 0) { if $read(kufur.txt,%:) iswm $4- {

       if (%nick == Cause) || (dmin isin %address) || (ops isin %address) || (%nick == irc.mirctr.net) { halt }

      sockwrite -nt $sockname mode %chan +b %nick  | sockwrite -nt $sockname privmsg %chan  $+ %nick $+  : kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 5 dk. sureyle konusmaniz engellendi. | $+(.timerunban,%chan,%nick) 1 300 sockwrite -nt $sockname mode %chan -b %nick }

      .dec %: 

    }

  }

}

Bunu Cr serverinde yazdıgım icin Kırmızı renkli olan yerleri kendine göre degistire bilirsin

Alıntı:

<asddsa> denemeee
* Guest98502 sets mode: +b asddsa!*@*
<Guest98502> asddsa : kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 5 dk. sureyle konusmaniz engellendi.
* Guest98502 sets mode: -b asddsa!*@*

bLaCkdeviL

26 Ocak 2007 21:39

Cevap: Socket ßotta Kanalda ve özelde komut uygulatma

Tşkler oLduda ßir kac sorum daha olacak bunu süreli olarak attıramazmıyız acaba birde söle ßir sorun var

Kod:

[21:33] <sirmaaaa> sikerim haaaa

[21:33] *** EroL mode  değiştirdi:+b sirmaaaa!*@*

[21:33] <EroL> sirmaaaa : kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 30 dk. sureyle konusmaniz engellendi.

[21:33] *** KGS mode  değiştirdi:-b bennnnnnnnnnnnnnn!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


[21:35] <sirmaaaa> ne dion a.q

[21:35] *** EroL mode  değiştirdi:+b *!*@F5FFF999.mIRCTurk.com

İkinci kez küfür ederse birisi nedense uyarı yazısı cıkmıyor ama ban atılıyor bu neden olabilir...

Brain

26 Ocak 2007 21:59

Cevap: Socket ßotta Kanalda ve özelde komut uygulatma

Arkadasım bende sorun vermedi her defasında uyarı veriyor ayrıca sureli atmasını ayarladım kodu tekrar alırsan sureli olarak atacaktır

Alıntı:

<asddsa> denemeeeeeeee
<Guest5737> asddsa : kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 5 dk. sureyle konusmaniz engellendi.
<asddsa> denemeeeeeeee
<Guest5737> asddsa : kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 5 dk. sureyle konusmaniz engellendi.
<asddsa> denemeeeeeeee
<Guest5737> asddsa : kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 5 dk. sureyle konusmaniz engellendi.

bLaCkdeviL

26 Ocak 2007 22:12

Cevap: Socket ßotta Kanalda ve özelde komut uygulatma

Hocam neden se bende oLmuyor hatta söle bir durum var ya
Küfürleri yazdıgım mIRC penceresi ;

Kod:

[22:07] <sirmaaaa> sikerimmmm

[22:07] *** EroL mode  değiştirdi:+b sirmaaaa!*@*

[22:07] <EroL> sirmaaaa : kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 5 dk. sureyle konusmaniz engellendi.

[22:07] <sirmaaaa> sikerimmmm

[22:07] <sirmaaaa> sikerimmmm

[22:07] <sirmaaaa> sikerimmmm ama

[22:08] <sirmaaaa> sikerimmmm haaaa

Sockbotun debug penceresi ;

Kod:

[22:07] < :sirmaaaa!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 PRIVMSG #Aşkops :sikerimmmm

[22:07] < :EroL!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 MODE #Aşkops +b sirmaaaa!*@*

[22:07] < :X-Ray!~
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 PRIVMSG #alem :du burdamı

[22:07] < :L-mIRCTurk-SwatBot!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 PART #ayva :Part

[22:07] < :L-mIRCTurk-SwatBot!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 JOIN :#ayva

[22:07] < :X-Ray!~
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 PRIVMSG #alem :tilbelog kim Aksi?

[22:07] < :sirmaaaa!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 PRIVMSG #Aşkops :sikerimmmm ama

Birde bir şey daha soracam bu süreli açma komutundaki %nick kısımlarını %address olarak değişsem calısır mı ?

bLaCkdeviL

28 Ocak 2007 12:53

Cevap: Socket ßotta Kanalda ve özelde komut uygulatma

Arkadaşlar yardımlarınızla socket bot kodlamasını da baya öğrenmeye başladım bir yerde takıLdım size sormak istedim
mIRC te kullandıgım söle bir kod vardı ;

Kod:

on *:join:#aşk:{ 

  if %rekor == $null { set %rekor $nick(#,0) }

  if %rekor < $nick(#,0) { msg #aşkops [DUYURU] Aşk KanaLı OnLine User Rekoru KırıLdı. Yeni Rekor : [ $+ $nick(#,0) $+ ] | set %rekor $nick(#,0) }

}

Kanalda online user sayıyor bunu sockbotta denedim yapamadım ;

Kod:

  if $2 == JOIN {

    if $right($3,-1) == #aşk {

      inc %gelen | inc %toplamgelen 

      sw $sockname NOTICE $remove($gettok($1,1,33),:) :Merhaba $remove($gettok($1,1,33),:) Aşk Kanalına Bugün Giriş Yapan %gelen $+ . Kişisiniz Hoş Sohbetler Dileriz.TopLam Giriş Yapan User Sayısı %toplamgelen

      if %rekor == $null { set %rekor $sockname(#aşk,0) }

      if %rekor < $sockname(#aş,0) { sw $sockname privmsg #aşkops [DUYURU] Aşk KanaLı OnLine User Rekoru KırıLdı. Yeni Rekor : [ $+ $sockname(#aşk,0) $+ ] | set %rekor $sockname(#aşk,0) }

    }

  }

Kod bu şekilde bir türlü calıştıramadım :(

bLaCkdeviL

28 Ocak 2007 14:18

Cevap: Socket ßotta Kanalda ve özelde komut uygulatma

Arkadaşlar cok mu oLuyorum bilmiyorum ama ßir sorunum daha var :(

Kod:

  if $2 == PRIVMSG  {

    %chan = $3 | %nick = $gettok($remove($1,:),1,33) | %text = $4- | %address = $mask($1,2)

    var %: $lines(reklam.txt)

    while (%: > 0) { if $read(reklam.txt,%:) iswm $4- {

        if (%nick == Cause) || (dmin isin %address) || (ops isin %address) || (%nick == irc.mirctr.net) { halt }

      sockwrite -nt $sockname mode %chan +b %address  | sockwrite -nt $sockname privmsg %chan  $+ %nick $+  : kanal genelinde baska bir kanalin/sitenin/sunucunun reklamini yaptiginiz icin 5 dk. sureyle konusmaniz engellendi. | $+(.timerunban,%chan,%address) 1 300 sockwrite -nt $sockname mode %chan -b %address }

      .dec %: 

    }

  }

Bu kodu Sıradanbiri arkadasım sağoLsun tamam ladı bana fakat ben bnu @ olmadıgı kanallarda calısmaması için düzenledim su kısmı değiştim

Kod:

if (EroL !isop %chan) || (%nick == Cause) || (dmin isin %address) || (ops isin %address) || (%nick == irc.mirctr.net) { halt }

Ama calışmadı bu konudada yardımcı oLursanız cok sevinirim

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