Çözüldü Socket Bot Konuşturma hakkında. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Masters · 18 Ağustos 2010, 11:57

Aeg arkadasımızın yazmıs oldugu socket cycle bot gayet kullanıslı ve güzel kendisine emeğinden dolayı tşk ederim. benim bu botta yapmak istediğim kanaldaki konuslarıda alması

Alıntı:

on *:sockopen:bot:{
if ($sockerr) { echo $color(info) -st Socket botun baðlantýsý kesildi. | sockopen bot $sunucu $portsifre | return }
swbot PASS $portsifre
swbot NICK $dcyclenick
swbot USER $dident * * : $+ $drealname
swbot ns identify $dcyclenickpassword
.timer 1 3 swbot join $kanal
swbot mode $2cyclenick +D
.timerping 0 20 swbot ping $2cyclenick
sockmark $sockname $2cyclenick
}
on *:sockread:bot:{
if ($sockerr) { echo $color(info) -st Socket botun baðlantýsý kesildi. | sockopen bot irc.zurna.net 6667 | return }
var %; | sockread %; | tokenize 32 %;
if !$window(@sdebug) { window -k0 @sdebug } | aline -p @sdebug $timestamp < $1-
swalias $1-
}
alias swbot { if $sock(bot) { sockwrite -n bot $1- } }
alias swalias {
;eðer bot socketý açýksa
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :VERSION iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION Jawa User %logo $+ $chr(1) }
if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Jawa User %logo $+ $chr(1) }
if $1 == PING { swbot PiNG $2- }
if $2 == 474 { %: $4 kanalýnda banlý. }
if $2 == 366 { %: $4 kanalýna girdi. }
if $1 == error && $2 == :closing {
baslat 2
}
if $2 == NICK {
set %nickdegis $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
| set %newnick $right($3,-1)
if (%parametre == sunucu) { nickbot | halt }
}
if $2 == JOIN {
if ($kanal isin $3) {
set %joinnick $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

if (%parametre == sunucu) { joinbot | halt }
}
}
if $2 == PART {
if ($3 == $kanal) {
set %partnick $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

if (%parametre == sunucu) { partbot | halt }
}
}
if $2 == quit {
set %quitnick $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

if (%parametre == sunucu) { quitbot | halt }
}
}
}

alias joinbot {
if ($read(botnet.txt,w,%joinnick)) && ($read(girmis.txt,w,%joinnick)) && ($istok($masternick,%joinnick,32)) && ($gettok($sunucu,2,46) isin %joinnick) { halt }
if (%cycle == off) { halt }
if ($tnick(%joinnick)) {
if (!$hget(tnick)) { hmake tnick 100 }
hinc -u20 tnick $tnick(%joinnick)
if ($hget(tnick,$tnick(%joinnick)) >= 3) { halt }
if ($domain == $null) { swbota os raw : NICK %joinnick 1 1 $ident $+($rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$ra nd(A,Z),$rand(0,9),$rand(0,9),$rand(A,Z),.,$rand(0 ,9),$rand(0,9),$rand(0,9),$rand(0,9),$rand(A,Z),$r and(0,9),$rand(0,9),$rand(A,Z),$rand(0,9),$rand(0, 9),.,$rand(0,9),$rand(0,9),$rand(A,Z),$rand(0,9),$ rand(0,9),$rand(A,Z)) $services : $+ $web Jawa User }
else { swbota os raw : NICK %joinnick 1 1 $ident $+($rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$ra nd(A,Z),$rand(0,9),$rand(0,9),$rand(A,Z),.,$domain ) $services : $+ $web Jawa User }
}
write sgirmis.txt %joinnick
swbota os raw svsmode %joinnick +iwtr
swbota os raw $+(:,%joinnick) join $kanallar
swbota privmsg $logchan Nick %joinnick Olusturuldu , Kanallara Sokuldu, [Sunucu]
}
alias partbot {
if (%cycle == off) { halt }
sbotsil %partnick
swbota os raw $+(:,%partnick) part $kanallar (PART)
swbota os raw $+(:,%partnick) quit $cýkýsmesaj
}
alias quitbot {
if (%cycle == off) { halt }
sbotsil %quitnick
swbota os raw $+(:,%quitnick) quit $cýkýsmesaj
}
alias nickbot {
if (%cycle == off) { halt }
sbotsil %nickdegis
write sgirmis.txt %newnick
swbota os raw $+(:,%nickdegis) nick %newnick
}
alias sbotsil { if $1 { if !$read(sgirmis.txt,w,$1) { halt } | else { write $+(-dl,$readn) sgirmis.txt } } }

botun genel kodlaması buraya nasıl bir kod eklesem kanaldaki konusmalarıda alır.? yardımlarınızı bekliyorum

Set · 19 Ağustos 2010, 00:53

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

    if $2 == quit {
      set %quitnick $remove($gettok($1,1,33),:) 
      if (%parametre == sunucu) { quitbot | halt }
    }
    if ($2 == privmsg) {   
      var %n = $gettok($gettok($1,1,33),1,58), %k = $3 
      if (%k == #kanal) {  
        swbota os raw $+(:,%n) privmsg #mesajkanal $4-
      }
    }
  }
}

Buna Gore Ekleme Yaparsin Koda

#kanal <= yerini Hangi Kanaldan Mesajlari Alacaksa Ona Eklersin

#kanalmesaj <= yerini hangi kanala mesajlari atacaksa onu yazacaksin.

Emrax · 20 Ağustos 2010, 14:57

Bir şey olmadı gibi.

ilk verilen

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


if $2 == quit {
set %quitnick $remove($gettok($1,1,33),:) 
if (%parametre == sunucu) { quitbot | halt }
}
}
}

kodu kaldırıp senin verdiğini koydum ama olmadı.

Set · 20 Ağustos 2010, 18:03

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

 
alias swalias {
  ;e&eth;er bot socket&yacute; aç&yacute;ksa
  if $sock(bot) {
    var %: = echo $color(info) -st > Socket bot:
    if :VERSION iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION Jawa User %logo $+ $chr(1) }
    if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Jawa User %logo $+ $chr(1) }
    if $1 == PING { swbot PiNG $2- }
    if $2 == 474 { %: $4 kanal&yacute;nda banl&yacute;. }
    if $2 == 366 { %: $4 kanal&yacute;na girdi. }
    if $1 == error && $2 == :closing {
      baslat 2
    }
    if $2 == NICK {
      set %nickdegis $remove($gettok($1,1,33), | set %newnick $right($3,-1) 
      if (%parametre == sunucu) { nickbot | halt }
    }
    if $2 == JOIN {
      if ($kanal isin $3) {
        set %joinnick $remove($gettok($1,1,33), 
        if (%parametre == sunucu) { joinbot | halt }
      }
    }
    if $2 == PART {
      if ($3 == $kanal) {
        set %partnick $remove($gettok($1,1,33),
        if (%parametre == sunucu) { partbot | halt }
      }
    }
    if $2 == quit {
      set %quitnick $remove($gettok($1,1,33), 
      if (%parametre == sunucu) { quitbot | halt }
    }
    if ($2 == privmsg) {   
      var %n = $gettok($gettok($1,1,33),1,58), %k = $3 
      if (%k == #kanal) {  
        swbota os raw $+(:,%n) privmsg #mesajkanal $4-
      }
    }
  }
}

bu halde bende calişmakta bir dene istersen gene sende.

Emrax · 20 Ağustos 2010, 20:30

Evet bende böyle yapmıştım. Çalışıyor.

_KaRiNCa_ · 29 Eylül 2022, 02:19

peki bu bota özeline gelen BILGI - Nickserv - Korumabotu nickleri ise { halt } ile bu nicklerden gelenleri rapor kanalına yada admin nickine raporlama yapmasın diye nasıl bir kod eklemem lazım. Yardımcı olursanız memnun olurum

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Socket Botlar hakkında	GhostLy	mIRC Scripting Sorunları	1	28 Ağustos 2017 08:18
socket botu konuşturma	RegSubex	mIRC Scripting Sorunları	12	26 Mayıs 2011 23:14
socket bot hakkında	Heavenly	mIRC Scripting Sorunları	6	27 Şubat 2009 17:52
socket hakkında	alfa	mIRC Scripting Sorunları	1	17 Ocak 2008 00:32
Socket Hakkında...	Kablosuz NET	mIRC Scripting Sorunları	2	18 Ekim 2006 23:11

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.