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

bLaCkdeviL · 25 Ocak 2007, 17:06

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ı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ş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

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: Kodu kopyalamak için üzerine çift tıklayın!

 
                            $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

Ö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: Kodu kopyalamak için üzerine çift tıklayın!

  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

bLaCkdeviL Nickli Üyeden Alıntı

Ö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 ;

Test ettim calısıyor.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

  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

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

[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

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

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

[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: Kodu kopyalamak için üzerine çift tıklayın!

[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

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

  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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bLaCkdeviL · 28 Ocak 2007, 14:18

Arkadaşlar cok mu oLuyorum bilmiyorum ama ßir sorunum daha var
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

  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: Kodu kopyalamak için üzerine çift tıklayın!

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
bota komut uygulatma	COMBOMAX	mIRC Scripting Sorunları	4	10 Şubat 2009 21:30
bota komut uygulatma	sniper	mIRC Scripting Sorunları	1	11 Ocak 2009 14:43
KOMUT uygulatma	QkLa	mIRC Scripting Sorunları	5	21 Kasım 2008 12:18
mirca komut uygulatma	QkLa	mIRC Scripting Sorunları	3	23 Ağustos 2008 06:56
Bota komut uygulatma	ShaoLin	mIRC Scripting Sorunları	15	10 Temmuz 2008 21:26

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.