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


mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.

17Beğeni(ler)


 
Seçenekler Stil
Alt 11 Mart 2023, 01:11   #1
Özel Üye
Set - ait Kullanıcı Resmi (Avatar)

Standart 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. Lütfen Ü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
    }
  }
}
👍 8
 
 


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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 Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı





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