[Beatle]

s.A arkadaslar bu kod önceden calýsýyor du þimdi çalýþmýyor sitelere baktým hepside acýk bitürlü çalýstýramadým forumdaki kodllarada baktým yapamadým yardýmcý olacak var mý hayýrlý sahurlar bu arada .

Kod:   Kodu kopyalamak için üzerine çift týklayýn!

  if ($2 == 352) { 
    var %:rand $rand(10,9999999) | .hadd -ms ISP $6 $5
    .sockopen $+(city,%:rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | .sockmark $+(city,%:rand) $+($6,¿,$8)

Kod:   Kodu kopyalamak için üzerine çift týklayýn!

alias bbüyük { return $replace($1,a,A,b,B,c,C,ç,C,Ç,C,d,D,e,E,f,F,g,G,ð,G,Ð,G,h,H,ý,I,i,I,Ý,I,j,J,k,K,l,L,m,M,n,N,o,O,ö,O,Ö,O,p,P,r,R,s,S,t,T,u,U,v,V,y,Y,z,Z,w,W,x,X,q,Q,þ,S,Þ,S,@,A) }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
alias trchra return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,þ,ı,ý,Åž,þ,ÄŸ,ð,Ãœ,ü,Äž,ð,$chr(39),-)
on *:sockopen:city*:{  
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
  sockwrite -n $sockname host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockwrite -n $sockname $crlf  
}
on *:sockread:city*: {  
  if ($sockerr) { .sockclose $sockname | return }
  var %city | sockread %city
  if (IP Country: isin %city) &&  (*Turkey* !iswm $token($htmlfree(%city),2,58) ) { sockclose $sockname | return } 
  if (IP City: isin %city) {
    if !$token($htmlfree(%city),2,58) { return }
    var %:nick $token($sock($sockname).mark,2,191) | var %:ident $hget(ISP,$token($sock($sockname).mark,1,191)) | var %:ip $token($sock($sockname).mark,1,191) | var %:komut swsebot notice %:nick
    %:komut 2Merhaba %:nick 7Marcinal IRCd 2Sohbet Platformuna Hoþ geldin.
    %:komut 2Nickiniz : %:nick
    %:komut 2ident/ip adresiniz :  $+(%:ident,@,%:ip)
    %:komut 2Giriþ yaptýðýnýz Yer : $token($htmlfree(%city),2,58)
    %:komut 0,0*
    %:komut 2Tavsiye edilen Kanallar..
    %:komut 2Global kanallar : 7#Marcinal 2#Gay #Shemaleturk #Cinsellik #Lezbiyen 
    %:komut 2Müzik kanallari : #Radyo
    %:komut 2Yardim kanallari : #help #operhelp
    %:komut 0,0*
    %:komut 2Sohbet Kurallari
    %:komut 2Size ayit olmayan 2MSN, FACEBOOK, TWITTER, TELFON NUM. gibi kisisel bilgilerinin dagitimi suctur.
    %:komut 2Global kanal genelinde Laubalilik, asaglama, taciz Küfür hakaret vs. Kesinlikle Yasaktir. detay icin 4/kurallar
    %:komut 0,0*
    .hdel -ms ISP $token($sock($sockname).mark,1,191)
    swsebot privmsg $_bots :[ ÞEHÝR ] [Nick: $token($sock($sockname).mark,2,191) ] [IP: $token($sock($sockname).mark,1,191) ] [Þehir: $token($htmlfree(%city),2,58) ]
    var %:hava $rand(10,999999) | .sockopen $+(hava,%:hava) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | .sockmark $+(hava,%:hava) $+($bbüyük($token($htmlfree(%city),2,58)),¿,$token($sock($sockname).mark,2,191))
    sockclose $sockname
  }
}
on *:sockopen:hava*:{
  var %:hava sockwrite -n $sockname
  %:hava GET /havadurumu/asya/turkiye/ $+ $token($sock($sockname).mark,1,191) HTTP/1.1 
  %:hava Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
on *:sockread:hava*:{
  if ($sockerr) { .sockclose $sockname | return }
  var %hava | sockread %hava
  if (*span class="hvDay">*</span* iswm %hava) {
    swsebot privmsg $token($sock($sockname).mark,2,191) :5Ülkeniz: Türkiye 5Sehriniz: $trchra($token($sock($sockname).mark,1,191))
    swsebot privmsg $token($sock($sockname).mark,2,191) :5Tarih: $date $htmlfree(%hava) 5Saat: $time
  }
  if (*span class="hvMood">*</span* iswm %hava) { swsebot privmsg $token($sock($sockname).mark,2,191) :5Durum: $regsubex($trchra($htmlfree(%hava)),/(.)/i,$iif(2 \\ \n,$upper(\1),$lower(\1))) } 
  if (*span class="hvDeg1">*/span* iswm %hava) { .hadd -ms Hava $token($sock($sockname).mark,2,191) $trchra($htmlfree(%hava)) } 
  if (*span class="hvDeg2">*</span* iswm %hava) { 
    swsebot privmsg $token($sock($sockname).mark,2,191) :5EnYuksek: $hget(Hava,$token($sock($sockname).mark,2,191)) 5EnDusuk: $trchra($htmlfree(%hava))
    swsebot privmsg $token($sock($sockname).mark,2,191) :
    swsebot privmsg $token($sock($sockname).mark,2,191) : $+(",$trchra($token($sock($sockname).mark,1,191)),") Ýl'inden sondakika haberleri..
    swsebot privmsg $token($sock($sockname).mark,2,191) :
    .hdel -ms Hava $token($sock($sockname).mark,2,191) 
    var %:haber $rand(100,999999) | .sockopen $+(haber,%:haber) rss.haberler.com 80 | .sockmark $+(haber,%:haber) $+($trchra($token($sock($sockname).mark,1,191)),¿,$token($sock($sockname).mark,2,191))
    sockclose $sockname
    return
  }
}
on *:sockopen:haber*:{ 
  var %:haber sockwrite -n $sockname
  %:haber GET /rss.asp?kategori= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
  %:haber Host: rss.haberler.com
  %:haber $crlf
  if (!$hget(Haber)) { .hmake Haber }
}
on *:sockread:haber*:{
  if ($sockerr) { .sockclose $sockname | return }
  var %haber | sockread %haber | .tokenize 32 %haber
  if (<title> isin %haber) {
    if $htmlfree(%haber) == Haberler.Com { return }
    swsebot privmsg $token($sock($sockname).mark,2,191) :5Baslik: $htmlfree(%haber)
  }
  if (*<description>* iswm %haber) {
    if $htmlfree(%haber) == Türkiye'nin en kapsamlý haber portalý. KONYA Haberleri. { return }
    swsebot privmsg $token($sock($sockname).mark,2,191) :5Aciklama: $htmlfree(%haber)
  }
  if (*<pubDate>*</pubDate>* iswm %haber) {
    swsebot privmsg $token($sock($sockname).mark,2,191) :5Zaman: $htmlfree(%haber)
    swsebot privmsg $token($sock($sockname).mark,2,191) :
    .hinc Haber $token($sock($sockname).mark,2,191) 1
    if $hget(Haber,$token($sock($sockname).mark,2,191)) == 2 { 
      swsebot privmsg $token($sock($sockname).mark,2,191) :5Sohbet Kanal'larýmýz: #Sohbet, #Marcinal
      swsebot privmsg $token($sock($sockname).mark,2,191) :5Radyo Kanal'ýmýz: $_radyo
      swsebot privmsg $token($sock($sockname).mark,2,191) :5User Yardým Kanal'ýmýz: $_help
      swsebot privmsg $token($sock($sockname).mark,2,191) :5Oper Yardým Kanal'ýmýz: $_operhelp
      swsebot privmsg $token($sock($sockname).mark,2,191) :
      swsebot privmsg $token($sock($sockname).mark,2,191) :1Sunucu kurallarý için5 /kurallar 1komutunu kullanýnýz.
      swsebot privmsg $token($sock($sockname).mark,2,191) :1Online oper listesi için5 /ircops 1komutunu kullanýnýz.
      swsebot privmsg $token($sock($sockname).mark,2,191) :1Online helper listesi için5 /helpers 1komutunu kullanýnýz.
      .hdel Haber $token($sock($sockname).mark,2,191) 
      .sockclose $sockname 
      return 
    } 
  }
}