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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Girişte Şehrine Göre Haber/Hava Durumu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/548219-giriste-sehrine-gore-haber-hava-durumu.html)

Selam iyi akşamlar.
Kendi botumda olan kodu sizlerle paylaşmak istedim Sinan arkadaşım Adamca' için bota eklemişdi ve hoşuma gitti bende yapmıştım bari paylaşıyım begenenler kullansın dedim.

Kod:

on *:snotice:*Client connecting on port*:who +I $9

raw 352:*:{ .var %:rand $rand(100,9999999) | .sockopen $+(city,%:rand)  
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | .sockmark $+(city,%:rand) $+($4,¿,$6) }

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 Connection: keep-alive

  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36

  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) ) { 

    msg #Opers [ Yurt Dışı ] [Nick: $token($sock($sockname).mark,2,191) ] [IP: $token($sock($sockname).mark,1,191) ] [Ülke: $token($htmlfree(%city),2,58) ]

    sockclose $sockname 

    return

  } 

  if (IP City: isin %city) {

    if !$token($htmlfree(%city),2,58) { return }

    msg #Opers [ Ş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) {

    msg $token($sock($sockname).mark,2,191) :5Ülkeniz: Türkiye 5Sehriniz: $trchra($token($sock($sockname).mark,1,191))

    msg $token($sock($sockname).mark,2,191) :5Tarih: $date $htmlfree(%hava) 5Saat: $time

  }

  if (*span class="hvMood">*</span* iswm %hava) { msg  $token($sock($sockname).mark,2,191) :5Durum:  $trchra($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) { 

    msg $token($sock($sockname).mark,2,191) :5EnYuksek:  $trchra($hget(Hava,$token($sock($sockname).mark,2,191))) 5EnDusuk:  $trchra($htmlfree(%hava))

    msg $token($sock($sockname).mark,2,191) :

    msg $token($sock($sockname).mark,2,191) :  $+(",$trchra($token($sock($sockname).mark,1,191)),") İl'inden sondakika  haberleri..

    msg $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 }

    msg $token($sock($sockname).mark,2,191) :5Baslik: $trchra($htmlfree(%haber))

  }

  if (*<description>* iswm %haber) {

    if (*Türkiye'nin en kapsamlı haber portalı.* iswm $htmlfree(%haber)) { return }

    msg $token($sock($sockname).mark,2,191) :5Aciklama: $trchra($htmlfree(%haber))

  }

  if (*<pubDate>*</pubDate>* iswm %haber) {

    msg $token($sock($sockname).mark,2,191) :5Zaman: $trchra($htmlfree(%haber))

    msg $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 { 

      msg $token($sock($sockname).mark,2,191) :5Sohbet Kanal'larımız: #Sohbet

      msg $token($sock($sockname).mark,2,191) :5Radyo Kanal'ımız: #Radyo

      msg $token($sock($sockname).mark,2,191) :5User Yardım Kanal'ımız: #Help

      msg $token($sock($sockname).mark,2,191) :5Oper Yardım Kanal'ımız: #OperHelp

      msg $token($sock($sockname).mark,2,191) :

      msg $token($sock($sockname).mark,2,191) :1Sunucu kuralları için5 /kurallar 1komutunu kullanınız.

      msg $token($sock($sockname).mark,2,191) :1Online oper listesi için5 /ircops 1komutunu kullanınız.

      msg $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 

    } 

  }

}

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