| |
|
16 Nisan 2008, 14:40
| #10 |
| Çevrimiçi  IF Ticaret Sayısı: (0) | Cevap: Socket Bot. bazende izlemek gerekir anlatmakla olmaz sen bunu kendince, kafanda mantıklar kurarak yapmalı ve öğrenmelisin, parametrelerin anlamlarını bilmediğin sürece yapamazsın saten istediğin sock botun %80 kodu yukarıda mevcut. balık tutmak için bile farklı yem kullanılır sazana ayrı kefale ayrı.. sen bu yemleri bilmesen ben sana git sazan yemi getir desem nerden bileceksin hangisinin hangi balığın yemi olduğunu? Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. onun için ilk önce öğrenmek sonrada yapmak gerekir.. yukarıdaki kodu biraz açıkladım.. ; Botun Rapor Vericeği Kanal alias raporchan return #deneme ; Botun Oto Gireceği Kanallar Araya Virgülde Koy alias kanallar return #deneme ; Botun Nicki alias botnick return CIP ; Botun Full Namesi alias botfullname return Socket` System ; Botun Identd Adresi alias botidentd return KELEBEK ; Botun Bağlanıcağı Serverin IP Adresi alias botserverip return irc.kelebek.org ; Botun Bağlanıcağı Serverin Portu alias botserverport return 6667 ; Botun Quit Mesajı alias botquitmsg return osman ;bağlantı komutu alias bagla { ;botu ircten çıkartmak için kullanılan komut komut quit $botquitmsg ;sock (bot) u çıkart sockclose bot ;sock botu bağla sockopen bot $botserverip $botserverport } ;sock bot bağlandığında yapılacaklar on *:sockopen:bot:{ ;sock hatalı ise mesaj bildir if ($sockerr) { echo -s Bağlantı kesildi | return } ;girilecek bot nicki komut NICK $botnick ;botun identi komut USER $botidentd * * : $+ $botfullname sockmark $sockname YEah } ;botun okuduklarını çevirme on *:sockread:bot:{ ;hata mesajını görüntüle if ($sockerr) { echo -s Bağlantı Kesildi | return } ;variables değeri oluşturup bu değerleri okutma var %; | sockread %; | tokenize 32 %; ;ciprix komutu $1- ciprix $1- ;rawları okuduğunda yapılacak işlemler if $2 == 376 || $2 == 422 { komut join $kanallar komut join $raporchan komut list } } ;komut komutu / eğer sock bot bağlıysa belirtilen komutu uygula alias komut { if $sock(bot) { sockwrite -n bot $1- } } ;ciprix komutu alias ciprix { ;eğer sock (bot) varsa if $sock(bot) { ;version/time/ping çekildiğinde işlenecek komutlar var %: = echo $color(info) -st > Socket bot: if :VERSION iswm $4- { komut NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION Bot $+ $chr(1) } if :FINGER iswm $4- { komut NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Bot $+ $chr(1) } if $1 == PING { komut PONG $2- } } ;özele mesaj geldiğinde işlenecek komutlar if $2 == PRIVMSG { ;!ban komutu parametreleri if $4 == :!ban && $5 && $6 { var %i = 1 set %::bnick $6 while (%i <= $gettok($5,0,44)) { komut chanserv akick $gettok($5,%i,44) add %::bnick komut chanserv akick $gettok($5,%i,44) enforce komut chanserv akick $gettok($5,%i,44) del %::bnick inc %i } } } ;kanala mesaj geldiğinde işlenecek komutlar if $2 == PRIVMSG && *#* !iswm $3 { komut privmsg ıosman < $gettok($1,1,33) > $4- } ;gir komutu parametreleri if *!gir* iswm $3- { if $5 == $null { komut privmsg osman Kanal belirtin ÖRN: !gir #*** } else { komut privmsg osman $5 kanalına girmiş bulunmaktayım komut join $5 } } ;!cik komutu parametreleri if *!cik* iswm $3- { if $5 == $null { komut privmsg osman Kanal belirtin ÖRN: !cik #*** } else { komut privmsg osman $5 kanalından çıkmış bulunmaktayım komut part $5 } } ;tara komutu parametreleri if *!tara* iswm $3- { if $5 == $null { komut privmsg osman kanal belirtin ÖRN: !tara #d-bana } else { komut privmsg osman $5 kanalına tarama yapildi komut tara $5 } } } |
| |  |
| Etiketler |
| bot, mirc, mirc download, mirc indir, socket |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
Benzer Konular | ||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| Socket Help Bot | Che | IRCd Botlar | 3 | 27 Ocak 2022 17:03 |
| Socket Help Bot | Che | IRCd Botlar | 2 | 11 Temmuz 2015 11:35 |
| socket bot | LineS | mIRC Scripting Sorunları | 1 | 20 Eylül 2012 23:19 |
| 'Cause' IRC Socket bot. | Xpyhre | mIRC Scripting Sorunları | 1 | 16 Aralık 2010 01:46 |
| socket bot | berduSh | mIRC Scripting Sorunları | 0 | 10 Ağustos 2007 11:46 |
Ağaç şeklinde
