aşktesti

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-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ÅŸ,Ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ,â,,Â,)