IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

3Beğeni(ler)
  • 2 Post By JohnGalt
  • 1 Post By Krieq

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 10 Şubat 2013, 01:27   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Bu Kodu nasıl Bota Eklerim




[B]Öncelikle Herkese kolay geLsin ustamızın bir kodu Bunu bota uygulatamadım Bu Kodu Bota nasıl uygulatırız

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:connect: { sıfırla | remove slnck.txt } on *:quit: { var %1 = 1,%2 = $comchan($me,0) | while %1 <= %2 { if $hget($comchan($me,%1)) { hinc $v1 $+(ayr,½,$v1) 1 } | inc %1 } } on *:nick: { var %= 1,%& = $comchan($me,0) | while %= <= %& { if $hget($comchan($me,%=)) { var %o = $v1 | hinc $v1 $+(nck,½,$v1) 1 | ekle $+(%o,nick,.txt) | write $+(%o,nick,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Nick: $+($chr(2),$nick,$chr(2)) - Yeni nick: $+($chr(2),$newnick) } | inc %= } } on !*:join:#: { if $hget(#) { hinc # $+(grs,½,#) 1 } } on *:part:#: { if $hget(#) { hinc # $+(cks,½,#) 1 } } on *:text:*:#: { if $hget(#) { hinc # $+(yz,½,#) 1 | hinc -m $+(yazı,#) $nick 1 } } on *:ban:#: { if $hget(#) { hinc # $+(ban,½,#) 1 | ekle $+(#,ban,.txt) | write $+(#,ban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Banlıyan: $+($chr(2),$nick,$chr(2)) - Banlanan: $+($chr(2),$banmask,$chr(2)) } } on *:unban:#: { if $hget(#) { hinc # $+(unbn,½,#) 1 | ekle $+(#,unban,.txt) | write $+(#,unban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Ban açan: $+($chr(2),$nick,$chr(2)) - Banı açılan: $+($chr(2),$banmask) } } on *:voice:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(vc,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice veren: $+($chr(2),$nick,$chr(2)) - Voice olan: $+($chr(2),$vnick,$chr(2)) } } on *:op:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(op,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u veren: $+($chr(2),$nick,$chr(2)) - Op olan: $+($chr(2),$opnick,$chr(2)) } } on *:help:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(hlp,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u veren: $+($chr(2),$nick,$chr(2)) - Halfop olan: $+($chr(2),$hnick,$chr(2)) } } on *:devoice:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(devc,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice'u alan: $+($chr(2),$nick,$chr(2)) - Voice'u alınan: $+($chr(2),$vnick,$chr(2)) } } on *:deop:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(deop,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u alan: $+($chr(2),$nick,$chr(2)) - Op'u alınan: $+($chr(2),$opnick,$chr(2)) } } on *:dehelp:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(dehlp,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u alan: $+($chr(2),$nick,$chr(2)) - Halfop'u alınan: $+($chr(2),$hnick,$chr(2)) } } on *:mode:#: { if $hget(#) { hinc # $+(md,½,#) 1 | ekle $+(#,mode,.txt) | write $+(#,mode,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Mod değişen: $+($chr(2),$nick,$chr(2)) - Değişen mod: $+($chr(2),$1-,$chr(2)) } } alias ekle { if !$read(slnck.txt,w,$1) { write slnck.txt $1 } } alias kns { if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/kns #kanalismi) | halt } if !$hget($+(yazı,$1)) { echo -a - Veri bulunamadı. | halt } else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($+(yazı,$1),0).item,$chr(2)) adet veri bulundu. | var %& = 1,%&& = $hget($+(yazı,$1),0).item | while %& <= %&& { echo -a - Nick: $+($chr(2),$hget($+(yazı,$1),%&).item,$chr(2)) - Yazdığı satır miktarı: $+($chr(2),$hget($+(yazı,$1),%&).data,$chr(2)) | inc %& } } } alias bn { if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/bn #kanalismi) | halt } if !$read($+($1,ban,.txt)) { echo -a - Veri bulunamadı. | halt } else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(ban½,$1)),$chr(2)) adet veri bulundu. | var %1 = 1,%2 = $lines($+($1,ban,.txt)) | while %1 <= %2 { echo -a - $read($+($1,ban,.txt),%1) | inc %1 } } } alias unbn { if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/unbn #kanalismi) | halt } if !$read($+($1,unban,.txt)) { echo -a - Veri bulunamadı. | halt } else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(unbn½,$1)),$chr(2)) adet veri bulundu. | var %s = 1,%x = $lines($+($1,unban,.txt)) | while %s <= %x { echo -a - $read($+($1,unban,.txt),%s) | inc %s } } } alias yetki { if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/yetki #kanalismi) | halt } if !$read($+($1,yetkiler,.txt)) { echo -a - Veri bulunamadı. | halt } else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$lines($+($1,yetkiler,.txt)),$chr(2)) adet veri bulundu. | var %q = 1,%r = $lines($+($1,yetkiler,.txt)) | while %q <= %r { echo -a - $read($+($1,yetkiler,.txt),%q) | inc %q } } } alias md { if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/md #kanalismi) | halt } if !$read($+($1,mode,.txt)) { echo -a - Veri bulunamadı. | halt } else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(md½,$1)),$chr(2)) adet veri bulundu. | var %p = 1,%f = $lines($+($1,mode,.txt)) | while %p <= %f { echo -a - $read($+($1,mode,.txt),%p) | inc %p } } } alias nik { if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/nik #kanalismi) | halt } if !$read($+($1,nick,.txt)) { echo -a - Veri bulunamadı. | halt } else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(nck½,$1)),$chr(2)) adet veri bulundu. | var %z = 1,%o = $lines($+($1,nick,.txt)) | while %z <= %o { echo -a - $read($+($1,nick,.txt),%z) | inc %z } } } alias sıfırla { echo -a - Tüm veriler sıfır'landı. | .hfree -w yazı* | .hfree -w $+($chr(35),*) | var %oo = 1,%aa = $lines(slnck.txt) | while %oo <= %aa { .remove $read(slnck.txt,%oo) | inc %oo } } alias takip { if !$1 { echo -at Takip listesine alınacak kanal'ı girmediniz. Kullanım şekli; $+($chr(2),/takip #kanalismi,$chr(2)) | halt } if $hget($1) { echo -at $+($chr(2),$1,$chr(2)) kanal'ı zaten takip listesinde. | halt } if $me !ison $1 { echo -at $+($chr(2),$1,$chr(2)) kanalında bulunmuyorsunuz. | halt } else { hmake $1 100 | echo -at $+($chr(2),$1,$chr(2)) kanal'ı takip listesine eklendi. } } alias rapor { if !$1 { echo -at Rapor alınacak kanal ismini girmediniz. Kullanım şekli; $+($chr(2),/rapor #kanalismi,$chr(2)) | halt } if !$hget($1) { echo -at $+($chr(2),$1,$chr(2)) kanal'ı takip listesinde değil. | halt } else { echo -a $+($chr(45),$chr(32),[,$chr(2),$1,$chr(2)) kanal'ı için istatist'likler] - echo -a - echo -a - Prefixler $+($chr(40),$iif($hget($1,$+(yetki½,$1)),$+($chr(2),$hget($1,$+(yetki½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),$chr(41)) echo -a - [Voice: $+($iif($hget($1,$+(vc½,$1)),$+($chr(2),$hget($1,$+(vc½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [OP: $+($iif($hget($1,$+(op½,$1)),$+($chr(2),$hget($1,$+(op½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Halfop: $+($iif($hget($1,$+(hlp½,$1)),$+($chr(2),$hget($1,$+(hlp½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) echo -a - [Devoice: $+($iif($hget($1,$+(devc½,$1)),$+($chr(2),$hget($1,$+(devc½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [DEOP: $+($iif($hget($1,$+(deop½,$1)),$+($chr(2),$hget($1,$+(deop½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Dehalfop: $+($iif($hget($1,$+(dehlp½,$1)),$+($chr(2),$hget($1,$+(dehlp½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) echo -a - Kim kime ne zaman ne yetkisi vermiş/almış? Görmek için: $+($chr(2),/yetki $1,$chr(2)) yazınız. echo -a - echo -a - Giren kullanıcı sayısı: $iif($hget($1,$+(grs½,$1)),$+($chr(2),$hget($1,$+(grs½,$1))),$+($chr(2),Giren kullanıcı yok.)) echo -a - Ayrılan kullanıcı sayısı: $iif($hget($1,$+(cks½,$1)),$+($chr(2),$hget($1,$+(cks½,$1))),$+($chr(2),Ayrılan kullanıcı yok.)) echo -a - Çıkan kullanıcı sayısı: $iif($hget($1,$+(ayr½,$1)),$+($chr(2),$hget($1,$+(ayr½,$1))),$+($chr(2),Çıkan kullanıcı yok.)) echo -a - Nick değişim sayısı: $iif($hget($1,$+(nck½,$1)),$+($chr(2),$hget($1,$+(nck½,$1)),$chr(32),$chr(2), - (Değişen nick'leri görmek için; $+($chr(2),/nik $1,$chr(2)) yazınız.)),$+($chr(2),Nick değişen yok.)) echo -a - Yazılan satır miktarı: $iif($hget($1,$+(yz½,$1)),$+($chr(2),$hget($1,$+(yz½,$1)),$chr(32),$chr(2), - (Kanal'da kimin kaç satır cümle kurduğunu görmek için: $+($chr(2),/kns $1,$chr(2)) yazınız.)),$+($chr(2),Herhangi bir yazı yazılmamış.)) echo -a - Atılan ban sayısı: $iif($hget($1,$+(ban½,$1)),$+($chr(2),$hget($1,$+(ban½,$1)),$chr(32),$chr(2), - (Kanal'da kim kime ne zaman ban atmış? Öğrenmek için: $+($chr(2),/bn $1,$chr(2)) yazınız.)),$+($chr(2),Atılan ban yok.)) echo -a - Açılan ban sayısı: $iif($hget($1,$+(unbn½,$1)),$+($chr(2),$hget($1,$+(unbn½,$1)),$chr(32),$chr(2), - (Kanal'da kim ne zaman ban açmış? Öğrenmek için: $+($chr(2),/unbn $1,$chr(2)) yazınız.)),$+($chr(2),Açılan ban yok.)) echo -a - Değişen mod sayısı: $iif($hget($1,$+(md½,$1)),$+($chr(2),$hget($1,$+(md½,$1)),$chr(32),$chr(2), - (Kanal'da kim hangi mod'u değiştirmiş? Öğrenmek için: $+($chr(2),/md $1,$chr(2)) yazınız.)),$+($chr(2),Değişen mod yok.)) } }



Konu Toprak tarafından (18 Şubat 2013 Saat 02:52 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 21 Şubat 2013, 04:47   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu Kodu nasıl Bota Eklerim




nasıl bir bot bu socket botmu tcl felan değildir sanıyorum socket ise kodun yapması gerekeni söylemen yeni kod yazmamız daha kolay olur tektek kodlama karakterlerini elden geçirmektense yenisini yapmak daha makul
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 23 Şubat 2013, 18:08   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu Kodu nasıl Bota Eklerim




muratt_aziz Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
nasıl bir bot bu socket botmu tcl felan değildir sanıyorum socket ise kodun yapması gerekeni söylemen yeni kod yazmamız daha kolay olur tektek kodlama karakterlerini elden geçirmektense yenisini yapmak daha makul
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

socket bot olursa sevinirim

 
Alıntı ile Cevapla

Alt 26 Şubat 2013, 14:55   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu Kodu nasıl Bota Eklerim




Değiştirmen gereken yerleri kırmızı ile belirttim. Tek tek açıklayayım yine de;

BotNicki: Botunun nicki
BotŞifresi: Botunun şifresi
BotFullname: Botunun tam adı
BotIdent: Botunun adresinde @'den önceki kısım
RaporKanalı: Bu kanal kontrollerin yapılacağı ve raporların verileceği kanaldır. Buraya yalnızca bir kanal yazmalısın. Örn: #ops
Sunucu PORT: irc.sunucununadı.com 6667
BotunGireceğiKanallar: Bu kanalları virgül ile ayırarak yazmalısın. Botunun sunucuya girişte girmesini istediğin kanallar bunlardır. Bu listede olmayan kanallardan rapor alamazsın. Örn: #kanal1,#kanal2,#kanal3
Masternick: Buraya boşluk ile ayırarak yazacağın nickler botun özelinde yazacağı komutlar ile botu kanala sokup/çıkarabilir, mesaj yazdırabilir, whois çektirebilir vs. Örneğin botu bir kanala sokmak için Masternick olarak belirtilmiş nicklerden herhangi birisi botun özeline join #kanal yazarak botu #kanal kanalına sokabilir. X nickine kick atmak için; kick #kanal X yazabilir. Botun özelinden yazarak yaptırabileceğin komutları statüs pencerene /helpop ?usercmds yazarak görebilirsin.

Ayrıca BOT diye bir de pencere açtırdım. Oradan hataları takip edebilir, komutlarını ona göre düzenleyebilir, sorun olduğunda oradaki hata satırları ile birlikte sorularını sorabilirsin.

Bot /bağlan komutu ile sunucuya girer, /çık komutu ile de çıkar.

Kolay gelsin.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias b_nick return BotNicki alias b_pass return BotŞifresi alias b_fullname return BotFullname alias b_ident return BotIdent alias b_chan return RaporKanalı alias b_server return Sunucu PORT alias b_ajoin return BotunGireceğiKanallar alias b_admin return MasterNick alias g_nick return $gettok($gettok($1,1,33),1,58) alias sw { sockwrite -nt BOT $1- } alias ekle { if !$read(slnck.txt,w,$1) { write slnck.txt $1 } } alias bağlan { if ($sockerr) { halt } else { sıfırla | .remove slnck.txt | sockclose BOT | sockopen BOT $b_server | halt } } alias çık { if ($sockerr) { halt } else { sockclose BOT | halt } } on *:sockopen:BOT:{ if ($sockerr) { return } sw NICK $b_nick sw USER $b_ident * * : $b_fullname } on *:sockread:BOT:{ if !$sock($sockname) { halt } var %bot sockread %bot tokenize 32 %bot $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]), window -ne3 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1- if $1 == PING { sw PONG $2 } if :VERSION iswm $4- { sw notice $g_nick($1) : $+ $chr(1) $+ VERSION Bot $+ $chr(1) } if :FINGER iswm $4- { sw notice $g_nick($1) : $+ $chr(1) $+ FINGER Bot $+ $chr(1) } if $2 == 376 { sw identify $b_pass | sw join $b_chan | sw join $b_ajoin } if ($2 == quit) { var %1 = 1,%2 = $numtok($b_ajoin,44) | while %1 <= %2 { if $hget($gettok($b_ajoin,%1,44)) { hinc $v1 $+(ayr,½,$v1) 1 } | inc %1 } } if ($2 == nick) { var %ü = 1,%& = $numtok($b_ajoin,44) | while %ü <= %& { if $hget($gettok($b_ajoin,%ü,44)) { var %o = $v1 | hinc $v1 $+(nck,½,$v1) 1 | ekle $+(%o,nick,.txt) | write $+(%o,nick,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Nick: $+($chr(2),$g_nick($1),$chr(2)) - Yeni nick: $+($chr(2),$right($3,-1)) } | inc %ü } } if ($2 == join) { if $hget($right($3,-1)) { hinc $right($3,-1) $+(grs,½,$right($3,-1)) 1 } } if ($2 == part) { if $hget($3) { hinc $3 $+(cks,½,$3) 1 } } if ($2 == mode) { if (+b isin $4) { if $hget($3) { hinc $3 $+(ban,½,$3) 1 | ekle $+($3,ban,.txt) | write $+($3,ban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Banlıyan: $+($chr(2),$g_nick($1),$chr(2)) - Banlanan: $+($chr(2),$5,$chr(2)) | halt } } if (-b isin $4) { if $hget($3) { hinc $3 $+(unbn,½,$3) 1 | ekle $+($3,unban,.txt) | write $+($3,unban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Ban açan: $+($chr(2),$g_nick($1),$chr(2)) - Banı açılan: $+($chr(2),$5) | halt } } if (+v isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(vc,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice veren: $+($chr(2),$g_nick($1),$chr(2)) - Voice olan: $+($chr(2),$5,$chr(2)) | halt } } if (+o isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(op,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u veren: $+($chr(2),$g_nick($1),$chr(2)) - Op olan: $+($chr(2),$5,$chr(2)) | halt } } if (+h isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(hlp,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u veren: $+($chr(2),$g_nick($1),$chr(2)) - Halfop olan: $+($chr(2),$5,$chr(2)) | halt } } if (-v isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(devc,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice'u alan: $+($chr(2),$g_nick($1),$chr(2)) - Voice'u alınan: $+($chr(2),$5,$chr(2)) | halt } } if (-o isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(deop,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u alan: $+($chr(2),$g_nick($1),$chr(2)) - Op'u alınan: $+($chr(2),$5,$chr(2)) | halt } } if (-h isin $4) { if $hget($3) { hinc $3 $+(yetki,½,$3) 1 | hinc $3 $+(dehlp,½,$3) 1 | ekle $+($3,yetkiler,.txt) | write $+($3,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u alan: $+($chr(2),$g_nick($1),$chr(2)) - Halfop'u alınan: $+($chr(2),$5,$chr(2)) | halt } } else { if $hget($3) { hinc $3 $+(md,½,$3) 1 | ekle $+($3,mode,.txt) | write $+($3,mode,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Mod değişen: $+($chr(2),$g_nick($1),$chr(2)) - Değişen mod: $+($chr(2),$4,$chr(2)) | halt } } } if ($2 == kick) && ($4 == $b_nick) { sw join $3 | sw privmsg $b_chan - $3 kanalından $g_nick($1) tarafından kicklendim. } if ($2 == 474) { sw privmsg $b_chan - $4 kanalına banlı olduğum için giremedim. } if ($2 == privmsg) { if ($3 == $b_nick) && $istok($b_admin,$g_nick($1),32) { sw $right($4-,-1) } if ($3 == $b_chan) { if ($right($4,-1) == !kns) { if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!kns #kanalismi) | halt } if !$hget($+(yazı,$5)) { sw privmsg $b_chan - Veri bulunamadı. | halt } else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($+(yazı,$5),0).item,$chr(2)) adet veri bulundu. | var %& = 1,%&& = $hget($+(yazı,$5),0).item | while %& <= %&& { sw privmsg $b_chan - Nick: $+($chr(2),$hget($+(yazı,$5),%&).item,$chr(2)) - Yazdığı satır miktarı: $+($chr(2),$hget($+(yazı,$5),%&).data,$chr(2)) | inc %& } } } if ($right($4,-1) == !bn) { if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!bn #kanalismi) | halt } if !$read($+($5,ban,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt } else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($5,$+(ban½,$5)),$chr(2)) adet veri bulundu. | var %1 = 1,%2 = $lines($+($5,ban,.txt)) | while %1 <= %2 { sw privmsg $b_chan - $read($+($5,ban,.txt),%1) | inc %1 } } } if ($right($4,-1) == !unbn) { if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!unbn #kanalismi) | halt } if !$read($+($5,unban,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt } else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($5,$+(unbn½,$5)),$chr(2)) adet veri bulundu. | var %s = 1,%x = $lines($+($5,unban,.txt)) | while %s <= %x { sw privmsg $b_chan - $read($+($5,unban,.txt),%s) | inc %s } } } if ($right($4,-1) == !yetki) { if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!yetki #kanalismi) | halt } if !$read($+($5,yetkiler,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt } else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$lines($+($5,yetkiler,.txt)),$chr(2)) adet veri bulundu. | var %q = 1,%r = $lines($+($5,yetkiler,.txt)) | while %q <= %r { sw privmsg $b_chan - $read($+($5,yetkiler,.txt),%q) | inc %q } } } if ($right($4,-1) == !md) { if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!md #kanalismi) | halt } elseif !$read($+($5,mode,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt } else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($5,$+(md½,$5)),$chr(2)) adet veri bulundu. | var %p = 1,%f = $lines($+($5,mode,.txt)) | while %p <= %f { sw privmsg $b_chan - $read($+($5,mode,.txt),%p) | inc %p } } } if ($right($4,-1) == !nik) { if !$5 { sw privmsg $b_chan - Lütfen kanal ismi giriniz; $+($chr(2),!nik #kanalismi) | halt } if !$read($+($5,nick,.txt)) { sw privmsg $b_chan - Veri bulunamadı. | halt } else { sw privmsg $b_chan - $+($chr(2),$5,$chr(2)) kanalı için; $+($chr(2),$hget($5,$+(nck½,$5)),$chr(2)) adet veri bulundu. | var %z = 1,%o = $lines($+($5,nick,.txt)) | while %z <= %o { sw privmsg $b_chan - $read($+($5,nick,.txt),%z) | inc %z } } } if ($right($4,-1) == !sıfırla) { sw privmsg $b_chan - Tüm veriler sıfırlandı. | .hfree -w yazı* | .hfree -w $+($chr(35),*) | var %oo = 1,%aa = $lines(slnck.txt) | while %oo <= %aa { .remove $read(slnck.txt,%oo) | inc %oo } } if ($right($4,-1) == !takip) { if !$5 { sw privmsg $b_chan Takip listesine alınacak kanalı girmediniz. Kullanım şekli; $+($chr(2),!takip #kanalismi,$chr(2)) | halt } if $hget($5) { sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanal'ı zaten takip listesinde. | halt } if $istok($b_ajoin,$5,44) { sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanalında bulunmuyorum. | halt } else { hmake $5 100 | sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanalı takip listesine eklendi. } } if ($right($4,-1) == !rapor) { if !$5 { sw privmsg $b_chan Rapor alınacak kanal ismini girmediniz. Kullanım şekli; $+($chr(2),!rapor #kanalismi,$chr(2)) | halt } if !$hget($5) { sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanal'ı takip listesinde değil. | halt } else { sw privmsg $b_chan $+($chr(45),$chr(32),[,$chr(2),$5,$chr(2)) kanalı için istatistikler] - sw privmsg $b_chan - sw privmsg $b_chan - Prefixler $+($chr(40),$iif($hget($5,$+(yetki½,$5)),$+($chr(2),$hget($5,$+(yetki½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),$chr(41)) sw privmsg $b_chan - [Voice: $+($iif($hget($5,$+(vc½,$5)),$+($chr(2),$hget($5,$+(vc½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [OP: $+($iif($hget($5,$+(op½,$5)),$+($chr(2),$hget($5,$+(op½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Halfop: $+($iif($hget($5,$+(hlp½,$5)),$+($chr(2),$hget($5,$+(hlp½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) sw privmsg $b_chan - [Devoice: $+($iif($hget($5,$+(devc½,$5)),$+($chr(2),$hget($5,$+(devc½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [DEOP: $+($iif($hget($5,$+(deop½,$5)),$+($chr(2),$hget($5,$+(deop½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Dehalfop: $+($iif($hget($5,$+(dehlp½,$5)),$+($chr(2),$hget($5,$+(dehlp½,$5)),$chr(2)),$+($chr(2),0,$chr(2))),]) sw privmsg $b_chan - Kim kime ne zaman ne yetkisi vermiş/almış? Görmek için: $+($chr(2),!yetki $5,$chr(2)) yazınız. sw privmsg $b_chan - sw privmsg $b_chan - Giren kullanıcı sayısı: $iif($hget($5,$+(grs½,$5)),$+($chr(2),$hget($5,$+(grs½,$5))),$+($chr(2),Giren kullanıcı yok.)) sw privmsg $b_chan - Ayrılan kullanıcı sayısı: $iif($hget($5,$+(cks½,$5)),$+($chr(2),$hget($5,$+(cks½,$5))),$+($chr(2),Ayrılan kullanıcı yok.)) sw privmsg $b_chan - Çıkan kullanıcı sayısı: $iif($hget($5,$+(ayr½,$5)),$+($chr(2),$hget($5,$+(ayr½,$5))),$+($chr(2),Çıkan kullanıcı yok.)) sw privmsg $b_chan - Nick değişim sayısı: $iif($hget($5,$+(nck½,$5)),$+($chr(2),$hget($5,$+(nck½,$5)),$chr(32),$chr(2), - (Değişen nick'leri görmek için; $+($chr(2),!nik $5,$chr(2)) yazınız.)),$+($chr(2),Nick değişen yok.)) sw privmsg $b_chan - Yazılan satır miktarı: $iif($hget($5,$+(yz½,$5)),$+($chr(2),$hget($5,$+(yz½,$5)),$chr(32),$chr(2), - (Kanal'da kimin kaç satır cümle kurduğunu görmek için: $+($chr(2),!kns $5,$chr(2)) yazınız.)),$+($chr(2),Herhangi bir yazı yazılmamış.)) sw privmsg $b_chan - Atılan ban sayısı: $iif($hget($5,$+(ban½,$5)),$+($chr(2),$hget($5,$+(ban½,$5)),$chr(32),$chr(2), - (Kanal'da kim kime ne zaman ban atmış? Öğrenmek için: $+($chr(2),!bn $5,$chr(2)) yazınız.)),$+($chr(2),Atılan ban yok.)) sw privmsg $b_chan - Açılan ban sayısı: $iif($hget($5,$+(unbn½,$5)),$+($chr(2),$hget($5,$+(unbn½,$5)),$chr(32),$chr(2), - (Kanal'da kim ne zaman ban açmış? Öğrenmek için: $+($chr(2),!unbn $5,$chr(2)) yazınız.)),$+($chr(2),Açılan ban yok.)) sw privmsg $b_chan - Değişen mod sayısı: $iif($hget($5,$+(md½,$5)),$+($chr(2),$hget($5,$+(md½,$5)),$chr(32),$chr(2), - (Kanal'da kim hangi mod'u değiştirmiş? Öğrenmek için: $+($chr(2),!md $5,$chr(2)) yazınız.)),$+($chr(2),Değişen mod yok.)) } } } else { if $hget($3) { hinc $3 $+(yz,½,$3) 1 | hinc -m $+(yazı,$3) $g_nick($1) 1 } } } }


 
Alıntı ile Cevapla

Alt 12 Haziran 2013, 10:44   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Bu Kodu nasıl Bota Eklerim




konuyu hortlatacagım kusura bakmayın arkadaşlar ama ben bunu ekledigimde Şöyle bir sorun çıkıyor ;

[10:43] <KimLikSiz> !takip #sohbet
[10:43] <System> #sohbet kanalında bulunmuyorum.

ve tüm kodlarda aynısını yapıyor Ama şuanda #Sohbet kanalında.

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Parayı Hayatınızın Her karesinde bulabilirsiniz ama Dostu Her zaman bulamazsınız.
 
Alıntı ile Cevapla

Alt 12 Haziran 2013, 19:43   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu Kodu nasıl Bota Eklerim




KimLikSiz Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
konuyu hortlatacagım kusura bakmayın arkadaşlar ama ben bunu ekledigimde Şöyle bir sorun çıkıyor ;

[10:43] <KimLikSiz> !takip #sohbet
[10:43] <System> #sohbet kanalında bulunmuyorum.

ve tüm kodlarda aynısını yapıyor Ama şuanda #Sohbet kanalında.



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $istok($b_ajoin,$5,44) { sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanalında bulunmuyorum. | halt }

olan satiri

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if !$istok($b_ajoin,$5,44) { sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanalında bulunmuyorum. | halt }


yapar misin.Telefondan giris yapiyorum umarim satiri eksik kopyalamisimdir,cok karisik gorunuyor yazilar ekranda.

 
Alıntı ile Cevapla

Alt 12 Haziran 2013, 21:01   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Bu Kodu nasıl Bota Eklerim




Krieq Nickli Üyeden Alıntı
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 $istok($b_ajoin,$5,44) { sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanalında bulunmuyorum. | halt }

olan satiri

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if !$istok($b_ajoin,$5,44) { sw privmsg $b_chan $+($chr(2),$5,$chr(2)) kanalında bulunmuyorum. | halt }


yapar misin.Telefondan giris yapiyorum umarim satiri eksik kopyalamisimdir,cok karisik gorunuyor yazilar ekranda.

Tşkler kardeşim

[21:00] <SinirLi> !takip #sohbet
[21:00] <System> #sohbet kanalı takip listesine eklendi.

Sorun Çözüldü

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Parayı Hayatınızın Her karesinde bulabilirsiniz ama Dostu Her zaman bulamazsınız.
 
Alıntı ile Cevapla

Cevapla

Etiketler
bota, bu, eklerim, kodu, nasıl


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
kodu sock bota göre edit cekme Nothinq mIRC Scripting Sorunları 0 25 Nisan 2011 23:58
Cr De Mırc Bota Giris Kodu Koyabilırmıyız DaDaS mIRC Scripting Sorunları 4 08 Eylül 2010 16:54
bota statustekileri sajoin kodu Emrax mIRC Scripting Hazır Kodlar 5 23 Haziran 2010 10:12
Siteme player nasıl eklerim? SisteM HTML/CSS/JavaScript 4 11 Eylül 2006 13:07
Bota !istek kodu eklemek için yardım. OzAn mIRC Scripting Sorunları 7 24 Mart 2006 13:37