ForumAilem.Com - Paylasimin Yeni Adresi

ForumAilem.Com - Paylasimin Yeni Adresi (https://forumailem.com/index.php)

- mIRC Scrpit Ve Hazır Kodlar (https://forumailem.com/mirc-scrpit-ve-hazir-kodlar/)

- - Burc (https://forumailem.com/mirc-scrpit-ve-hazir-kodlar/9556-burc.html)

* !iswm %s) {
.msg %muser .: $+([,Burc,$chr(32),%mrsbrc,]) $+([,$date(dd-mm-yyyy),]) :.
.msg %muser $htmlfree(%s)
}
}
alias kdeg return $replace($1,koc,1_koc,boga,2_boga,ikizler,3_ikizler,yengec,4_yengec,aslan,5_aslan,basak,6_basak,terazi,7_terazi,akrep,8_akrep,yay,9_yay,oglak,10_oglak,kova,11_kova,balik,12_balik)
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x, )
return %x
}
on $*:text:/^[!.]burç\s/:#türkiye: {
if $regex($2,/(akrep|aslan|koc|boga|basak|oglak|ikizler|yay|kova|balık|yengec|terazi)/i) {
.msg $chan $nick $2 burcu özelinize yansitiliyor...
unset %muser | unset %mrsbrc | set -e %muser $nick | set -e %mrsbrc $2 | brc_ $kdeg($2)
}
}

TÜRK	01 - 05 - 2022 21:16

Burc

Kod:

alias brc_ {

inc -e %brc

sockopen $+(burc*,%brc) astroloji.gazetevatan.com 80

sockmark $+(burc*,%brc) $1

}

on *:sockopen:burc*:{

var %s sockwrite -n $sockname

%s GET / $+ $sock($sockname).mark $+ -burcu-gunluk-burc-yorumu-astroloji HTTP/1.1

%s Host: astroloji.gazetevatan.com

%s User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:10.0.2) Gecko/20100101 Firefox/10.0.2

%s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

%s Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3

%s $crlf

}

on *:sockread:burc*:{

var %s

sockread %s

if (*

* iswm %s) && (*

Forum Saati: 08:44. Zaman dilimi GMT +3 olarak ayarlanmıştır.