IRCDForum.COM - IRC ve mIRC dünyasının forumu!   Reklam Alanı


  IRCDForum.COM - IRC ve mIRC dünyasının forumu! IF - mIRC Scripting Hazır Kodlar


Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 26 Ocak 2015, 00:11   #1
Bir umuttur yaşamak
 
Toprak - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 09 Eylül 1991
Bulunduğu yer: Konya
Mesajlar: 1,038
WEB Sitesi: https://mutluhost.com
IRC Sunucusu: irc.mutluhost.com
İlgi Alanı: Yok
Alınan Beğeni: 203
Standart Girişte Şehrine Göre Haber/Hava Durumu

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

Kod:
on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:{ .var %:rand $rand(100,9999999) | .sockopen $+(city,%:rand)  www.ipaddresslocation.org 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: www.ipaddresslocation.org
  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) www.mynet.com 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: www.mynet.com | %:hava $crlf }
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 
    } 
  }
}





Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 Toprak isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
durumu, girişte, göre, haber or hava, Şehrine


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 Açık
Pingbacks are Açık
Refbacks are Açık





Powered by vBulletin®
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Chat - Sohbet