Çevrimdışı

En baştan sade bir şekilde anlatıyorum.

Alıntı:

;############################## ;# ;# alias baslat { if $sock(bot) { sockclose bot } sockopen bot ipno portno echo -as JOIN: $kanallar echo -as SUNUCUYA LİNKLENDİLDİ: /calistir <kanaladi> <botsayisi> komutu ile çalıstırınız. sajoin $replace($kanallar,$chr(32),$chr(44)) .timerpingpong 0 10 pingpong } on *:nick: { if guest* iswm $newnick && $timer($+(_bot_,$nick)) { replacenick $nick $newnick } } alias confchan { return #Tst } alias botname { return UserBot } alias kanallar { return #Sohbet #muhabbet } on *:start: { .set %dbname tmpnicks .hmake nicks 10000 .hmake tmpnicks 10000 .hload tmpnicks tmpnicks.db .hload nicks nicks.db } on *:sockopen:bot:{ sockwrite -tn $sockname pass svgm sockwrite -tn $sockname server irc2.sevgimsin.net 1 Chat Leaf Server sockwrite -tn $sockname NICK $botname 0 1112988092+oiwghmxX2szAa $botname Sevgimsin.Net iRc2.Sevgimsin.Net -28kMQCN9xGI2p5UQA $+ $rand(a,z) $+ > :Master . sockwrite -tn $sockname $+(:,$botname) JOIN $confchan } on *:sockread:bot:{ if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. return } var %my sockread %my tokenize 32 %my if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Serv) { window -k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Serv } | aline -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Serv $timestamp < $1- if $1 == TUNL { sockwrite -n bot $1- } mybot $1- } alias mybot { if $sock(bot) { if :VERSION iswm $4- { sockwrite -n bot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION myBOT v1.0 XXX $+ $chr(1) } if :FINGER iswm $4- { sockwrite -n bot $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER XXX $+ $chr(1) } if *PING* iswm $1- { sockwrite -n bot PONG $2- } if $2 == PRIVMSG { var %msg = $right($4-,-1), %gnick = $right($1,-1), %anick = $3 if !$reges(%anick,#) { ;sockwrite -tn bot $+(:,%anick) PRIVMSG %gnick : $+ %msg botukonustur %anick %gnick %msg } } } } alias pingpong { if $sock(bot) { sockwrite -tn bot $+(:,$botname) PRIVMSG $confchan :PING? PONG! - $ctime } else { timerpingpong off } } alias replacenick { .timer $+ $1 off var %nick = $+(Guest,$r(1245,9566)) sockwrite -n bot $+(:,$2) NICK %nick .timer $+ %nick -o 1 $gettok(50 100 150 175 200 225 250 275 300 310,$r(1,9),32) nickidonguyesok %nick #tst $r(1,2) sockwrite -tn bot $+(:,$botname) PRIVMSG $confchan :Guest NICK oluşumu: $1 - Degiştirildi: %nick } alias dbname { var %nget = $hget( $+ %dbname $+ ,0).item if %nget < 11 { set %dbname $iif(%dbname == nicks,tmpnicks,nicks) } return %dbname } alias calistir { var %k $1 var %p $2 var %s 1 while %p >= %s { var %nick = $hget($dbname,1).item if $regex(%nick,ü|Ü|İ|ı|ş|Ş|ç|Ç|ö|Ö) { .hdel $iif(%dbname == tmpnicks,tmpnicks,nicks) %nick sockwrite -tn bot $+(:,$botname) PRIVMSG $confchan :4HATA NICK: %nick - Diziliş hatası -1 bot deactive goto End } if %nick != $null && !$timer(%nick) { var %ip = $+($gettok(88 80 212 195 62 216 81 85,$r(1,4),32),.,$rand(0,255),.,$rand(0,255),.,$ra nd(0,255))) var %rand = -My8BQFth $+ $+($rand(A,Z),$rand(A,Z),$rand(0,9),$rand(0,9),$ra nd(A,Z),$rand(0,9),$rand(A,Z)) $+ > sockwrite -n bot NICK %nick $ctime $ctime $+ +inx Anavatan . $+ %ip iRc2.Sevgimsin.Net %rand :esChat sockwrite -tn bot $+(:,%nick) join %k var %speed = $gettok(10 15 20 25 30 35 40 45 50 55,$r(1,9),32), %time = $gettok(100 150 200 250 300 350 400 450 500 550,$r(1,9),32) var %timer = $iif($3 == speed,%speed,%time) .timer $+ _bot_ $+ %nick -o 1 %timer nickidonguyesok %nick %k $r(1,2) if %dbname == tmpnicks { .hadd nicks %nick .hdel tmpnicks %nick } else { .hdel nicks %nick .hadd tmpnicks %nick } } else { echo -a : sss sockwrite -tn bot $+(:,$botname) PRIVMSG $confchan :4HATA NICK: %nick - Çakışma Yaşandı -1 bot deactive .hdel $iif(%dbname == tmpnicks,tmpnicks,nicks) %nick } :End inc %s } } alias rand.chan { var %n = $kanallar var %r = $numtok(%n,32) return $gettok(%n,$r(1,%r),32) } alias nickidonguyesok { if $3 == 1 { botquit $1 $r(1,2) $2 } if $3 == 2 { botpart $1 $2 } if $3 == 3 { botpart $1 $2 } } alias botquit { .timer $+ _bot_ $+ $1 off if $2 == 1 { sockwrite -tn bot $+(:,$1) quit QUIT: User exited } if $2 == 2 { sockwrite -tn bot $+(:,$1) quit Connection Closed } if $hget($1) { .hdel nicks $1 } calistir $rand.chan 1 } alias botpart { sockwrite -tn bot $+(:,$1) part $2 ;sockwrite -tn bot $+(:,$1) join $read(kanallar.txt) botquit $1 $r(1,2) $2 } alias botmsg_cmd { var %c = $gettok(+ -,$rand(1,2),32) var %ntime = $calc($iif($len($3-) > 60,7,3) %c $iif(%c == +,$rand(1,9),1)) if !$timer($+(_msg_,$2)) { $+(.timer,_msg_,$2) 1 %ntime sockwrite -tn bot $+(:,$1) PRIVMSG $2 : $+ $3- } } ;################################################# ################################################## ######################## ;# ;# alias botukonustur { var %me = $1, %nick = $2, %msg = $3- /* * Burada gelen verileri uygun isimdeki değişkenlere atadık * şimdi artık konuşmaları için mantıksal ifadeler kullanacagız * */ ;## Gelen bilgileri kontrol ediyoruz... if *selam* iswm %msg || *slm* iswm %msg || *s.a* iswm %msg { ;Burada botun verecegi cevapların olasıklıklarını yazıyoruz... ;Daha sonra random olarak herhangi birisini karşı tarafa gönderticegiz. var %olasilik = a.selam|a.s.|as|aleyküm selam|Aleyküm Selam Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. abit degişken degiştirilmez. var %randno = $numtok(%olasilik,124) botmsg_cmd %me %nick $gettok(%olasilik,$rand(1,%randno),124) } if *nbr* iswm %msg || *naber* iswm %msg || *nasılsın* iswm %msg { var %olasilik = tşkr. senden nbr|iyi senden?|iyim sagol ya sen?|sagol senden naber|iyi senden naber|pek iyi sayılmaz şu sıralar, senden nbr?|iyi olmaya çalışıyoruz işte senden naber|idare eder senden? var %randno = $numtok(%olasilik,124) botmsg_cmd %me %nick $gettok(%olasilik,$rand(1,%randno),124) } if *nrd* iswm %msg || *nereden?* iswm %msg || *nerden* iswm %msg || from?* iswm %msg || *where are you from* iswm %msg || *hangi sehir* iswm %msg { var %olasilik = ist|ankara|antalya|konya|izmir|bursa|balikesir|riz e|konya|adıyaman|diyerbakir|ordu|samsun|batman|çor um|urfa|adana|giresun|mardin|antep|istanbul|ankara | var %randno = $numtok(%olasilik,124) botmsg_cmd %me %nick $gettok(%olasilik,$rand(1,%randno),124) } ;Büyük harflere cevap Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. var %e = $remove($strip(%msg),$chr(32)) if $iif($len(%e) >= 13,$calc($regex(%e,/[A-ZÄÖÜĞÇİ]/g)/$len(%e)*100),0) >= 70 { var %olasilik = Ne bağırıyorsun dewe buradayız işte!!|Küçük harflerle konussak Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. |Herkez uyuyor küçük harflerle pls Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. |Caps açık kaldı galiba hee?|büyük harfle yazmakta moda oldu bu aralar var %randno = $numtok(%olasilik,124) botmsg_cmd %me %nick $gettok(%olasilik,$rand(1,%randno),124) } }

bir txt dosyasına bunu kaydet daha sonra o txt dosyasının adını yani bunu yazdıgın txt dosyasının adını bots.mrc olarak değiştiriyorsun , mIRC in ana klasorune atıyorsun.

Daha sonra herkesle paylaşılan nicks.db ve tmpnicks.db dosyalarını mirc in ana klasorune atıyorsun.

Sıra geldi mIRC daki işlemlerimize.mIRC ini açıyorsun ve şunu yazıyorsun ;

/load -rs bots.mrc

Böylece dosyayı mIRC inin remotesine eklemiş oluyorsun.Daha sonra bu işlemi uygulamak istediğin ve kısaca root oldugun servera giriyorsun ve oper giriyorsun.Ancak root admin olman gerekiyor yada erişimleri kısıtsız olan Csop olman gerekiyor neyse aşağıda verdiğim ayarları değiştirmeden uyguluyorsun ;

Alıntı:

/as server Sevgimsin2 add /as server Sevgimsin2 set name irc2.sevgimsin.net /as server Sevgimsin2 set port 7000 /as server Sevgimsin2 set ping 240 /as server Sevgimsin2 set inpass svgm /as server Sevgimsin2 set outpass svgm /as server Sevgimsin2 enable /as server Sevgimsin2 set leaf

Bunlarıda uyguladıktan sonra geriye sadece yapmak istediğin işlemler kalıyor.

Alıntı:

/baslat (Direk Sunucuya Linkler seni) /sockopen bot irc.serveradın.com yada ip adresi 6667 (Manuel Bağlanmak için) /sockclose bot (Linki kapatma) /sockwrite -tn bot globops mesaj /sockwrite -tn bot svsnick eskinick yeninick (Nick değiştirme Görünmez olma ve renkli yapma) /sockwrite -tn bot svsmode Nick +oahgsfyw (Kullanıcıya Op yada Mod verme alma + ve - olayı +ohgsfyw -ohgsfyw /sockwrite -tn bot :nbot privmsg #arkadaslik selam (Linkde Bağlanan Services Botu Konuşturma)

Services düşerse

Alıntı:

/as util services start

Umarım kısa ve öz şekilde anlatabilmişimdir..

__________________