IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi (https://www.ircrehberi.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/)
-   -   Ramazan Imsakiye 2023 (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/147333-ramazan-imsakiye-2023-a.html)

Set 11 Mart 2023 01:11

Ramazan Imsakiye 2023
 
Merhabalar, ramazan dönemi geldigi için imsakiye codlamasıyla insanlar daha rahat vakitleri takip edebilir, hayırlı forumlar dilerim.



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


Kod:

on *:text:*:#: {
  tokenize 32 $strip($1-)
  if $regex($1,/[!.][ıi]ftar$/i)  {
    .hfree -sw verial
    if !$2 { msg # il belirtmediniz! | return }
    hadd -m verial kanal $chan
    iftar $lower($2)
  }
}
alias tr_ return $replacex($1-,ç,c,ı,i,ğ,g,ü,u,ş,s,ö,o)
alias iftar {
  var %rand = $rand(1,999)
  sockopen $+(ssl,%rand) qbilisim.net 80
  sockmark $+(ssl,%rand) $+(https://www.hurriyet.com.tr/ramazan/,$tr_($1),-imsakiye/)
  hadd -m verial sehir $upper($1)
}
on *:sockopen:ssl*:{
  var %komut = sockwrite -n $sockname
  echo -a  %komut GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1
  %komut GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1
  %komut Host: $sock($sockname).addr
  %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.7
  %komut Accept-Encoding: gzip, deflate
  %komut Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7,sq;q=0.6
  %komut Cache-Control: max-age=0
  %komut Connection: keep-alive
  %komut Cookie: _skrc=aaf747cb89b1463e8570b17c49463918; _skbid=eccd7375a05f470fb1156f4f73d7e88b; _n_did=06188963-0617-4075-80fa-e62d9f0846e1; _n_iid=gkhTcPMgvsK; _n_uid=rkzP1NHXYOc; hcatFrom=ramazan; hrp_gb=gb.638135789817290187-fb9b518d-cce1-4c70-9dcf-ba16089e9f6f; _fbp=fb.1.1677971357014.1662238130; _ga=GA1.1.1658678619.1677971357; __gads=ID=6733b7cd8526f9e8-220ba88f44dd00e8:T=1677971360:S=ALNI_MZS9Zyw0cBoXlNms3Fh0txvUVvr7Q; cto_bundle=Jv7aAl92enllSHI0TDNid2pMOVpHSkJhRXV6JTJGTlJnNDJoZ3NJcEJoZkN4UzFrJTJGMjhUd0QlMkJmJTJGJTJCd3FpMGpEN2dQUGdjMnpRNkF0YlRZdHlubFhobmlBQTBQbGNpM2VIUmNoaVVIJTJCbHRLNGtjUjF6RGhUSlN6bEhsNTNBYWJuc2slMkJTYUMlMkI1VmtQc3JSUnJjT3QyM0pxandkVnJ3JTNEJTNE; _sksid=4ff5dafc2260415dbea5dc68f4749d86; _skulp=05.03.2023-11.03.2023; _skou=direct; _skouu=http%3A%2F%2Fqbilisim.net%2Fssl.php%3Fweb%3Dhttps%3A%2F%2Fwww.hurriyet.com.tr%2Framazan%2Fsanliurfa-imsakiye%2F; _sksl=%5B%22_sksid%22%2C%22js_skinit_id%22%2C%22_skou%22%2C%22_skouu%22%5D; __gpi=UID=00000bbf2c1c4602:T=1677971360:RT=1678485085:S=ALNI_MYWA97zRUXX5MeLZ5hkjZe0NT0W5g; AMP_TOKEN=%24NOT_FOUND; js_skinit_id=a796da480be449529ce99db780676edc; _ga_6RJDJJ7YKC=GS1.1.1678485102.6.1.1678485202.0.0.0
  %komut Upgrade-Insecure-Requests: 1
  %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
}
alias iftarkalan {
  var %zaman $duration($calc($duration($+($1,:00)) - $duration($time)))
  if - isin %zaman {
    var %zaman $duration($calc($duration($time) - $duration($+($1,:00))))
    return 3Geçen: $replace(%zaman,mins,dakika,secs,saniye,hrs,saat)
  }
  return 4Kalan: $replace(%zaman,mins,dakika,secs,saniye,hrs,saat)
}
on *:sockread:ssl*:{
  var %63 | sockread %63
  if $regex(%63,<div class="hata">404</div>) {
    .hfree -sw verial
    msg $hget(verial,kanal) **4 $hget(verial,sehir) **  adında il bulunamadi.
    sockclose $sockname
  }
  if $regex(%63,<span class="pray-time">(.+)</span>) {
    hinc -m verial inc 1
    if $hget(verial,inc) = 1 {
      msg $hget(verial,kanal) **4 $hget(verial,sehir) **4 $date tarih verisi.
      msg $hget(verial,kanal) -
      msg $hget(verial,kanal) Imsak(Sahur): $regml(1)
    }
    if $hget(verial,inc) = 2 { msg $hget(verial,kanal) Güneş: $regml(1) }
    if $hget(verial,inc) = 3 { msg $hget(verial,kanal) Öğle: $regml(1) }
    if $hget(verial,inc) = 4 { msg $hget(verial,kanal) Ikindi: $regml(1) }
    if $hget(verial,inc) = 5 { msg $hget(verial,kanal) Akşam(Iftar): $regml(1) ( $iftarkalan($regml(1)) ) }
    if $hget(verial,inc) = 6 {
      msg $hget(verial,kanal) Yatsı (Teravih): $regml(1)
      msg $hget(verial,kanal) -
      .hfree -sw verial
      sockclose $sockname
    }
  }
}


ZeyNa 11 Mart 2023 07:51

Emeğinize sağlık, paylaşım için teşekkür ederiz.

WildCat 11 Mart 2023 14:33

Emeginize saglik

Aykut 11 Mart 2023 14:44

Emeğinize sağlık.

She 11 Mart 2023 15:14

Çok güzel olmuş, emeğinize sağlık.

birsevda 11 Mart 2023 18:52

Emeginize saglik

BuKLe 12 Mart 2023 10:19

emeğinize sağlık

Gururum 12 Mart 2023 19:52

@Set kardeşim güzel bir düşünce emeğine sağlık.

ZaLim 14 Mart 2023 00:11

güzel bir paylaşım, emeğine sağlık, teşekkürler.

Reyhan 17 Mart 2023 23:17

Emeğinize sağlık, paylaşımınız için teşekkürler


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions, Inc.

Copyright ©2019 - 2023 | IRCRehberi