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

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

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.