on *:text:*:#:{
if $regex($1,/^[!.-]a[sþ]k$/Si) {
if !$2 { msg $chan Lütfen !aþk Abuzittin Dilara þeklinde belirtiniz. }
else {
set %:kanal #
aþk $2 $3
}
}
}
alias aþk {
if ($sock(aþkd-*)) { sockclose aþkd-* }
sockopen -e aþkd-* asktesti.me 443
set -e %ask $1
set -e %ask1 $2
}
on *:sockopen:aþkd-*: {
var %asktest sockwrite -tn $sockname
%asktest GET $+(/sonuc.php?name1=,%ask,&name2=,%ask1) HTTP/1.1
%asktest Host: asktesti.me
%asktest User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:104.0) Gecko/20100101 Firefox/104.0
%asktest Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8
%asktest Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
%asktest Alt-Used: asktesti.me
%asktest Connection: close
%asktest $crlf
}
on *:sockread:aþkd-*:{
:askýmtest | sockread -f %asktesti
if ($sockbr == 0) return
if (*<div class="sonuctext">* iswm %asktesti ) msg %:kanal 4Aþk Yüzdeniz : 3 $_fl($gettok(%asktesti,2,32))
if (*<br><br>* iswm %asktesti ) msg %:kanal 4Yorum : $_tr($_fl($gettok(%asktesti,1,58)))
;else echo 3 Req: %asktesti
goto askýmtest
}
alias _fl return $replace($1-,class="sonuctext">,-,</div>,-,<p><a href='https, ,<br>, )
alias _tr return $replace($1-,Ãœ,Ü,ÅŸ,þ,Ä,Ð,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,Þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,б,ý,а,Ý,Ç,Ç,Å,Þ,П,ð,â,,Â,)
