Tekil Mesaj gösterimi
Alt 23 Mayıs 2009, 04:26   #1
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Socket bot Yardim




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:SOCKREAD:nm: {
  var %
s
  sockread 
%s
  tokenize 32 
%s
  
if $== PING {
    
sw $sockname PONG $2
  
}
  if $
== 376 || $== 422 {
    
sw $sockname Oper opernick şifre
  
}
  if $
== 381 {
    
sw $sockname MODE %nmnick -s
    sw $sockname MODE 
%nmnick +s
    sw $sockname MODE 
%nmnick -s
    sw $sockname MODE 
%nmnick +s
    sw $sockname join 0
,
    ; 
sw $sockname KILL Ajan The Ajan Bot Coded by Set (auto reconnect)
    .
timer 1 2 sw $sockname NICK Ajan-Bilgi
    
.timer 1 5 sw $sockname sajoin Ajan-Bilgi #opers
  
}
  if $
== NICK {
    if 
$right($3,-1) == Ajan-Bilgi {
      
sw $sockname MODE Ajan-Bilgi BH-h
      sw $sockname MODE Ajan
-Bilgi +s
      sw $sockname MODE Ajan
-Bilgi -s
      sw $sockname MODE Ajan
-Bilgi +s
      sw $sockname ns identify nickşifresi
      sw $sockname os su su
-şifresi
      sw $sockname os raw swhois Ajan
-Bilgi :12 4•14 Ajan 4• 14Securty14 Technology144™ 
      
sw $sockname sethost Channel.Securty.Technology
      
.timer 1 5 sw $sockname SAJOIN Ajan-Bilgi #opers
      
.timer 1 5 sw $sockname sethost Ajan.Securty.Technology
      
.timer 1 5 sw $sockname JOIN #opers
      
; .timernm2list 0 180 sw $sockname LIST
    }
    if 
$botfnick($1) == Ajan-Bilgi {
      
sw $sockname os raw KILL Ajan-Bilgi Auto Reconnect
      
.timer 1 3 sw $sockname NICK Ajan-Bilgi
      
.timer 1 5 sw $sockname SAJOIN Ajan-Bilgi #opers
      
.timer 1 5 sw $sockname JOIN #opers
    
}
  }
  if $
== NOTICE && $== Ajan-Bilgi && *.*.* iswm $botfnick($1) {
    if *
client connectingiswm $strip($1-) {
      
sw $sockname privmsg $12 :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
      
sw $sockname privmsg $12 :2Merhaba 4 $2Sunucumuza Hosgeldiniz  4... 
      
sw $sockname privmsg $12 :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
      
sw $sockname privmsg $12 :4Kurallar 12IRC Network'u üzerinde küfür etmek, reklam yapmak, proxy kullanmak, saldırı teşebbüsünde bulunmak, diğer kullanıcıları rahatsız etmek 4YASAKTIR! 2Ayrıntılı bilgi için; 12/MOTD 2 yazıp kurallar kısmını gözden geçiriniz. 4Not: 2Sunucuya bağlanan herkez bu kuralları okumuş ve kabul etmiş sayılır.
      sw $sockname privmsg $12 :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
      sw $sockname privmsg $12 :4Uyari : Server İçinde Msn , Link , Site , Özel'
inize Gelen Kişi'lerden Msn'e Almaktan Kaçinin KanaL'a Gelen Msn'e Ve SiteLerden'de Kaçininiz , O Gibi Trojen'Ler Bilgisayar'iniza Zarar Verebilir , NOT : Her Hangi Bir Olayda 4 $server Sorumlu Degildir .
      sw $sockname privmsg $12 : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
      sw $sockname privmsg $12 : 4Bilgi : 2Rumuzunuz sunucumuza kayitli degildir. Kayit(REGISTER) edebilmek ve sadece size ait olmasini saglamak icin 4/NickServ REGISTER SIFRENIZ E-MAILINIZ 2komutunu kullanabilirsiniz 4...
      sw $sockname privmsg $12 : 4Bilgi :  4Örnek2, /Nickserv register 123456 $9 $+ @ $+  $server  , Burada sifreniz 4123456 2E-Mailiniz ise  4 $9 $+ @ $+ $server  2olacaktir 4...
      sw $sockname privmsg $12 : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
      sw $sockname privmsg $12 : 4 $server 2Sohbet Odalarinin Resmi Sitesi : 4 %web
      sw $sockname privmsg $12 : 4 %web 2Sohbet Odalarinin Resmi Script'
ini İndirmek İçin %scriptlink
      sw $sockname privmsg 
$12 %web 2Sohbet Odalarinin Resmi Radyo'sunu DinLemek İçin : 4 %radyolink
      sw $sockname privmsg $12 : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
      sw $sockname privmsg $12 :  4 4•14 Ajan 4• 14Securty14 Technology144™4• Hoş Sohbet'
ler Diler..    
    }
  }
  if $
== 301 {
    
mesajkontrol $4 $right($strip($5-),-1)
  }
  if $
== 317 {
    
set -u20 %idle. [ $+ [ $] ] $5
  
}
  if $
== PRIVMSG || $== NOTICE || $== ACTION {
    if $
== Sohbettin-Bilgi && *.*.* !iswm $botfnick($1) {
      if $
== :TIME {
        
sw $sockname NOTICE $botfnick($1TIME $time
      
}
      if $
== :VERSION {
        ; 
sw $sockname NOTICE $botfnick($1VERSION 4 4•14 Ajan 4• 14Securty14 Technology144™4•
        
sw $sockname NOTICE $botfnick($1VERSION4 4•14 Ajan 4• 14Securty14 Technology144™4•
      
}
      if $
== :FINGER {
        
sw $sockname NOTICE $botfnick($1FINGER System Secure (botIdle 0 seconds
      
}
    }
  }


Bu Kod Neden Calişmiyor Acaba /sockopen nm Serverip port'u Yazdigim HaLde bot tekrar girmiyor hata nerede acaba yardim ederseniz cok sevinirim.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver