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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

Paint

11 Mayıs 2014 15:34

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)

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

Che	24 Mayıs 2014 22:20

Cevap: Hava Durumu (!havadurumu <adres>)

bu kod hakkında bilgi verecek arkadas varmı

kheldor

25 Mayıs 2014 21:02

Re: Hava Durumu (!havadurumu <adres>)

Zaten hatalı

Alıntı:

[20:57:51] <admin> !havadurumu istanbul maltepe
[20:57:51] <&test> [Pazar] ------ Hava olay?: Parçalı Bulutlu * En dü?ük: 16°C
[20:57:52] <&test> [Salı] --------- Hava olay?: Çok Bulutlu * En dü?ük: 17°C
[20:57:52] <&test> [Perşembe] --- Hava olay?: Parçalı Bulutlu * En dü?ük: 18°C
[20:57:52] <&test> [Pazar] ------ Hava olay?: Çok Bulutlu * En dü?ük: 11°C
[20:57:52] <&test> [Salı] --------- Hava olay?: Çok Bulutlu * En dü?ük: 13°C
[20:57:52] <&test> [Perşembe] --- Hava olay?: Parçalı Bulutlu * En dü?ük: 14°C
[20:57:52] <&test> [Pazar] ------ Hava olay?: Parçalı Bulutlu * En dü?ük: 18°C
[20:57:52] <&test> [Salı] --------- Hava olay?: Parçalı Bulutlu * En dü?ük: 22°C
[20:57:52] <&test> [Perşembe] --- Hava olay?: Parçalı Bulutlu * En dü?ük: 20°C

Paint

26 Mayıs 2014 01:17

Cevap: Re: Hava Durumu (!havadurumu <adres>)

Alıntı:

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

Zaten hatalı

[01:16:55] <Ethnotronix> !havadurumu istanbul maltepe
[01:16:56] <VPS> [HATA] Sorgulanan adres bulunamadı.

Bulunmamasının sebebi ildeki sadece merkez ilçelerin ekli olması kaynak sitede.

Kodu kopyalarken hepsini kopyaladığınıza emin olun, birde eski mIRC sürümlerinde çalışmayabilir.

kheldor

27 Mayıs 2014 22:04

Cevap: Hava Durumu (!havadurumu <adres>)

[22:04:22] [test VERSION tekrarı]: mIRC v6.35 Khaled Mardam-Bey

6.35 de calısmıyor mu ?

Ek olarak maltepe sorgusu yukarıda aktif çalışırken sizde çalışmaması dahada garip. Kodun hatalı veyahut düzeltilmesi gereken yeri varsa müsait olunca bakarsanız sevinirim. Saygılar

Paint

28 Mayıs 2014 17:31

Cevap: Hava Durumu (!havadurumu <adres>)

Alıntı:

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

Kaynak siteye baktım Maltepe yok.

Başka kişilerede denettirdim kodu problem görünmüyor.

6.35'de kullanıyorum bende bu arada.

KivanC

02 Aralık 2014 22:44

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...]

6.35 kullanıyorum ama çalıştıramadım.

Paint

02 Aralık 2014 23:36

Cevap: Hava Durumu (!havadurumu <adres>)

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

KivanC

05 Aralık 2014 09:37

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...]

peki /havadurumu/yurtdisi , Yurt Dışı hava durumların öğrenebilirmiyiz.
Sebebi , Yurt Dışından giren yoldaşlarımız dostlarımız ve akrabalarımız var, mümkünmüdür.

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

kheldor

13 Aralık 2014 01:15

Cevap: Hava Durumu (!havadurumu <adres>)

Alıntı:

01:11:25] <test> ~~~~ İstanbul İçin 5 Günlük Hava Tahmini ~~~~
[01:11:25] <BT> test Hoş geldiniz.
[01:11:27] <test> [Pazar] ------ Hava olayı: Parçalı Bulutlu * En düşük: 9°C
[01:11:28] <test> [] ----------- Hava olayı: Sağanak Yağışlı * En düşük: 10°C
[01:11:28] <test> [Cumartesi] -- Hava olayı: Hafif Sağanak Yağışlı * En düşük: 7°C
[01:11:28] <test> [Pazartesi] -- Hava olayı: Sisli * En düşük: 1°C
[01:11:28] <test> [Çarşamba] -- Hava olayı: Sisli * En düşük: 3°C
[01:11:28] <test> [Cumartesi] -- Hava olayı: Çok Bulutlu * En düşük: 9°C
[01:11:28] <test> [Pazartesi] -- Hava olayı: Az Bulutlu * En düşük: 8°C
[01:11:28] <test> ~~~~ İstanbul İçin 5 Günlük Hava Tahmini ~~~~
[01:11:28] <test> [Cumartesi] -- Hava olayı: Çok Bulutlu * En düşük: 7°C
[01:11:28] <test> [Pazartesi] -- Hava olayı: Parçalı Bulutlu * En düşük: 8°C
[01:11:28] <test> [Çarşamba] -- Hava olayı: Sağanak Yağışlı * En düşük: 10°C

Ş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.

Paint

13 Aralık 2014 09:48

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.

kheldor

14 Aralık 2014 03:43

Cevap: Hava Durumu (!havadurumu <adres>)

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

Saygılarımla

KivanC

22 Aralık 2014 11:09

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?

Toprak

22 Aralık 2014 11:35

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 # }

61fatih61

05 Şubat 2015 01:30

Cevap: Hava Durumu (!havadurumu <adres>)

güncelini koyarmısınız

hAte	06 Şubat 2015 04:37

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)

DeamoN

10 Şubat 2015 13:57

Cevap: Hava Durumu (!havadurumu <adres>)

Peki bunu almanya icinde yapabilirmiyiz acaba?

KivanC

21 Mayıs 2017 13:35

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..

kheldor

07 Mayıs 2021 18:45

Cevap: Hava Durumu (!havadurumu <adres>)

günceli varmıdır ?

manikdepresif

28 Kasım 2023 13:50

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

}

manikdepresif

08 Aralık 2023 20:25

Cevap: Hava Durumu (!havadurumu <adres>)

Kod:

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 adinda 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 sicaklik: $+(,$remove($regml(1),$chr(32),?)) $+ ° $+ C   }

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

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

  if *weather-list-item weather-list-possibility* iswm  %-  { write hava.txt - Yagis ihtimali : $gettok($gettok(%-,2,58),1,60)  }
 

  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 | Yazdir  }

}
 

Alias -l Yazdir {

  var %i = 1

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

  unset %havaChan %Hava?ehir %?ehir

}

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 22:02.