![]() |
![]() |
![]() | #6 |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: Sock bot sorun Ben sana bir tane örnek vericem(kufur koruması), ona bakarak mantığını çöz. Ve devamını getir. Yine /swbot alias'ının içinde örnek veriyorum. alias swalias { 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 mIRC v6.17 Khaled Mardam-Bey $+ $chr(1) } if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1) } if $1 == PING { swbot PONG $2- } if $2 == 474 { %: $4 kanalında banlı. } if $2 == 366 { %: $4 kanalına girdi. } if $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 } if $2 == PRIVMSG { var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3 if $istok(el33t el33t2,%n,32) { if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< } } if $left($3,1) == $chr(35) { var %1 = 1 | while %1 <= $lines(dosya.txt) { if $regex(%m,$read(dosya.txt,%1)) { swbot mode %k +b %n | swbot kick %k %n sebeb. } inc %1 } } } } Kalın olarak gösterdiğim yer, kufur koruması. Yani dosya.txt içerisin'deki kelimeler, bot'un bulunduğu herhangi bir kanal'da kullanılırsa, kanal'dan ban+kick işlevi ile kullanıcıyı uzaklaştırır. |
| ![]() |
Etiketler |
bot, mirc, mirc download, mirc indir, sock, sorun |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
![]() | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Sock bot | Erdem | mIRC Scripting Sorunları | 8 | 24 Şubat 2011 11:23 |
Bad Nick Korumasında Sorun... (sock bot) | oSeNLuRDa_YaKa | mIRC Scripting Sorunları | 6 | 08 Mayıs 2008 20:10 |
sock kod | local | mIRC Scripting Sorunları | 1 | 27 Şubat 2008 18:44 |
sock kod | local | mIRC Scripting Sorunları | 1 | 21 Şubat 2008 03:19 |
sock lar | Flyman | mIRC Scripting Sorunları | 20 | 17 Ağustos 2007 12:02 |