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

- - Hava Durumu (!havadurumu <adres>) (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/585121-hava-durumu-havadurumu-ltadresgt.html)

Cevap: Hava Durumu (!havadurumu <adres>)

Alıntı:

kheldor Nickli Üyeden Alıntı (Mesaj 1041569270)

Şunu doğru dürüst çalıştırabilecek bir kod yokmu..

Ya gün yazmaz ya aynı günü 2 - 3 kere yazar. Acaba test etmiyormusunuz yayınlamadan önce ?

Sevgiler.

Kodu boş bir remote sayfasına yapıştırın ardından aşağıdaki ayarları yapın.

mIRC Ayarları (Alt + O) > Diğer > Kilitle bölümünde Decode'yi pasif hale getirin.

Cevap: Hava Durumu (!havadurumu <adres>)

Kod sorunsuz çalıştı. Ancak haftanın geri kalan günleri nerede. cuma, cumartesi ?

Saygılarımla

Cevap: Hava Durumu (!havadurumu <adres>)

Alıntı:

Paint Nickli Üyeden Alıntı (Mesaj 1041429353)

Kod:

alias havadurumu {

  var %sn havadurumu- $+ $ticks

  sockopen %sn mynet.com 80

  sockmark %sn $1-

  echo -a $1-

}

on *:sockopen:havadurumu-*:{

  var %k sockwrite -tn $sockname

  %k GET /havadurumu/asya/turkiye/ $+ $replace($gettok($sock($sockname).mark,1,189),$chr(32),/) HTTP/1.1

  %k host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:havadurumu-*:{

  var %a

  sockread %a

  if Moved Permanently isin %a { $gettok($sock($sockname).mark,2,189) [HATA] Sorgulanan adres bulunamadı. }

  var %b $remove($utfdecode($nohtml(%a)),$chr(9))

  if itemprop isin %a { $gettok($sock($sockname).mark,2,189) 7 ~~~~12 $replace($remove(%b,hava durumu),&gt;,>) İçin 5 Günlük Hava Tahmini 7~~~~ }

  if span class="hv isin %a {

    if day isin %a { set %hvdrm $+(10[,%b,]) $str(- ,$iif($len(%b) == 4,9,$calc(11- $iif(ş isin %b,$calc($len(%b) +1),$len(%b))))) }

    if mood isin %a { set %hvdrm %hvdrm  3Hava olayı:3 %b }

    if deg1 isin %a { set %hvdrm %hvdrm  - 4En yüksek: %b }

    if deg2 isin %a { set %hvdrm %hvdrm  1* 10En düşük: %b | $gettok($sock($sockname).mark,2,189) %hvdrm }

  }

}

on *:text:!havadurumu *:#:havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ msg #
 

alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)

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

Kanalda münasebetsizler tarafından Aşırı flood ediliyor ben 5 dakikada bir kullanılmasını istesem mümkünmüdür?

Cevap: Hava Durumu (!havadurumu <adres>)

Text eventini bunla degiştir tamamdır.

Kod:

on *:text:!havadurumu *:#:if !$hget(Flood,$nick) { .hinc -msu600 Flood $nick | .havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ msg # }

Cevap: Hava Durumu (!havadurumu <adres>)

güncelini koyarmısınız

Cevap: Hava Durumu (!havadurumu <adres>)

Kod:

alias havadurumu {

  var %sn havadurumu- $+ $ticks

  sockopen %sn mynet.com 80

  sockmark %sn $1-

  echo -a $1-

}

on *:sockopen:havadurumu-*:{

  var %k sockwrite -tn $sockname

  %k GET /havadurumu/asya/turkiye/ $+ $replace($gettok($sock($sockname).mark,1,189),$chr(32),/) HTTP/1.1

  %k host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:havadurumu-*:{

  var %a

  sockread %a

  if Moved Permanently isin %a { $gettok($sock($sockname).mark,2,189) [HATA] Sorgulanan adres bulunamadı. }

  var %b $remove($utfdecode($nohtml(%a)),$chr(9))

  if itemprop isin %a { $gettok($sock($sockname).mark,2,189) 7 ~~~~12 $replace($remove(%b,hava durumu),&gt;,>) İçin 5 Günlük Hava Tahmini 7~~~~ }

  if span class="hv isin %a {

    if day isin %a { set %hvdrm $+(10[,%b,]) $str(- ,$iif($len(%b) == 4,9,$calc(11- $iif(ş isin %b,$calc($len(%b) +1),$len(%b))))) }

    if mood isin %a { set %hvdrm %hvdrm  3Hava olayı:3 %b }

    if deg1 isin %a { set %hvdrm %hvdrm  - 4En yüksek: %b }

    if deg2 isin %a { set %hvdrm %hvdrm  1* 10En düşük: %b | $gettok($sock($sockname).mark,2,189) %hvdrm }

  }

}

on *:text:!havadurumu *:#:havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ msg #
 

alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)

Cevap: Hava Durumu (!havadurumu <adres>)

Peki bunu almanya icinde yapabilirmiyiz acaba?

Cevap: Hava Durumu (!havadurumu <adres>)

Kod:

 alias havadurumu {

  var %sn havadurumu- $+ $ticks

  sockopen %sn mynet.com 80

  sockmark %sn $1-

  echo -a $1-

}

on *:sockopen:havadurumu-*:{

  var %k sockwrite -tn $sockname

  %k GET /havadurumu/asya/turkiye/ $+ $replace($gettok($sock($sockname).mark,1,189),$chr(32),/) HTTP/1.1

  %k host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:havadurumu-*:{

  var %a

  sockread %a

  if Moved Permanently isin %a { $gettok($sock($sockname).mark,2,189) [HATA] Sorgulanan adres bulunamadı. }

  var %b $remove($utfdecode($nohtml(%a)),$chr(9))

  if itemprop isin %a { $gettok($sock($sockname).mark,2,189) 7 ~~~~12 $replace($remove(%b,hava durumu),&gt;,>) İçin 5 Günlük Hava Tahmini 7~~~~ }

  if span class="hv isin %a {

    if day isin %a { set %hvdrm $+(10[,%b,]) $str(- ,$iif($len(%b) == 4,9,$calc(11- $iif(ş isin %b,$calc($len(%b) +1),$len(%b))))) }

    if mood isin %a { set %hvdrm %hvdrm  3Hava olayı:3 %b }

    if deg1 isin %a { set %hvdrm %hvdrm  - 4En yüksek: %b }

    if deg2 isin %a { set %hvdrm %hvdrm  1* 10En düşük: %b | $gettok($sock($sockname).mark,2,189) %hvdrm }

  }

}

on *:text:!havadurumu *:#:havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ notice $nick | msg # ŞEHİR:  $2  $+ , 5 Günlük hava durumu notice olarak özelinize yansıdı.
 

alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)

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

Güncel..

Cevap: Hava Durumu (!havadurumu <adres>)

günceli varmıdır ?

Cevap: Hava Durumu (!havadurumu <adres>)

Güncel Hava Durumu Kod Yazari : HsN
-
Kullanim Ornekleri:
!hava istanbul
!hava amsterdam
!hava paris
!havadurumu istanbul vs..

;Tarih: 28/11/2023 / 03:15:30 , Kod sahibi: HsN

Kod:

on *:text:*:#: {

if $regex($1,/[!.]hava(|durumu)$/i)  { if !$2 { msg # il belirtmediniz! | return }

Hava $lower($2) | set -u5 %HavaChan $chan | set -u5 %HavaŞehir $tr_($2) | write -c hava.txt

}

}

on *:input:#: {

if $regex($1,/[!.]hava(|durumu)$/i)  { if !$2 { msg # il belirtmediniz! | return }

Hava $lower($2) | set -u5 %HavaChan $chan | set -u5 %HavaŞehir $2 | write -c hava.txt

}

}

alias -l tr_ return $replacex($1-,İ,i,ç,c,ı,i,ğ,g,ü,u,ş,s,ö,o)

alias -l _tr return $replacex($1-,ı,ı,�§,ç,ş,ş,ö,ö,ü,ü,ğ,ğ,İ,İ,Ç,Ç,Ş,Ş,ş,Ş,Ö,Ö,Ü,Ü,ğ,Ğ)

alias -l hava var %rand = $rand(1,999) | sockopen $+(hava,%rand) qbilisim.net 80 | sockmark $+(hava,%rand) $+(https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockopen:hava*:{

var %komut = sockwrite -n $sockname

%komut GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1

%komut Host: $sock($sockname).addr

%komut  User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/110.0.0.0 Safari/537.36

%komut $crlf

}
 

on *:sockread:hava*:{

var %- | sockread %-

if $regex($_tr(%-),<div class="status-code">404<\/div>) { msg %HavaChan  %HavaŞehir adında il bulunamadi. | sockclose $sockname  }

if $regex($_tr(%-),<h1 class="heading mb-1 ">(.+)<\/h1>) { set -u5 %Şehir $regml(1) }

if $regex($_tr(%-),<small class="">(.+)<\/small>) { write hava.txt $+(%Şehir,$chr(32),$chr(124),$chr(32),[,$regml(1),]) | unset %Şehir  }

if $regex($_tr(%-),<strong class="d-flex align-items-start">(.+)<span>(.+)<\/span><\/strong>) { write hava.txt - Tahmin edilen sıcaklık: $+(,$remove($regml(1),$chr(32)),�)  }

if $regex($_tr(%-),<div class="weather-list-felt weather-list-item">Hissedilen: (.+)<\/div>) && !%-his { write hava.txt - Hissedilen sıcaklık: $remove($regml(1),$chr(194)) | set -u5 %-his 1 }

if $regex($_tr(%-),<div class="weather-list-item weather-list-humidity">Nem: (.+)<\/div>) { write hava.txt - Nem oranı : $regml(1) }

if $regex($_tr(%-),<div class="weather-list-item weather-list-possibility">Yağış İhtimali: (.+)<\/div>) { write hava.txt - Yağış İhtimali : $regml(1) }

if $regex($_tr(%-),<h3 class="heading mb-2">(.+)</h3>) { var %txt = $read(hava.txt,1) | write -l1 hava.txt  $replace(%txt,$chr(124),$replace($upper($+(,$_tr($regml(1)),)),ı,I)) | sockclose $sockname | Yazdır  }

}

Alias -l Yazdır {

var %i = 1

while %i <= $lines(hava.txt) {  msg %HavaChan $read(hava.txt,%i) |  inc %i  }

unset %havaChan %HavaŞehir %Şehir

}