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
}
“İnsanların en hayırlısı, insanlara faydalı olandır”. H.Ş.