mIRC Ramazan imsakiye 2020

Aytac

Developer
Yönetici
Developer
Katılım
4 Şub 2020
Mesajlar
373
Tepkime puanı
17
Puanları
18
Konum
ircland
Web sitesi
www.ircalem.net
mIRC Ramazan imsakiye kodu

Kullanımı: *şehir
Örnek: *istanbul

Kod:
on $*:text:/^\*\S+$/S:#:{
  if ($sock(oruc)) sockclose oruc 
  sockopen oruc imsakiye.nasihat.org 80 
  set %. $right($1,-1)
  set %c #
}

on *:sockopen:oruc:{
  if $sockerr {
    sockclose oruc
    return
  }
  %_ = sockwrite -n $sockname
  %_ GET /turkiye/ $+ %. $+ -imsakiye.html HTTP/1.1
  %_ Host: imsakiye.nasihat.org
  %_ Connection: keep-alive
  %_ Cache-Control: max-age=0
  %_ Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
  %_ User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.162 Safari/537.36 Edg/80.0.361.109
  %_ Accept-Language: tr,en;q=0.9,en-GB;q=0.8,en-US;q=0.7
  %_ Cookie: __gads=ID=6d77aa74765b5d59:T=1585827956:S=ALNI_MbYWEhKo9x7TQxrChu6eNmtEQLi7g; _ga=GA1.2.1380507336.1585827950; _gid=GA1.2.1109684614.1585827950; _gat_UA-1738536-10=1
  %_ $crlf
}

on *:sockread:oruc:{
  %l = sockclose oruc
  if $sockerr {
    %l
    return
  }
  %- =
  sockread %-
  if (*<p align=center>* iswm %-) || (*<big>*</big>* iswm %-) msg %c $regsubex(sub,%-,/<.+>/Ug,)
  if (*</b>*</p>*<style>* iswm %-) %l

}
 
Üst