on *:text:*:#sohbet,#mirchelp,#mobile,#felsefe,#chat: {
  if $regex($1,/[!.]e[cçÇ]zane$/i)  {
    if !$2 { msg # > il ilce belirtmediniz! | msg # > Ornek: !eczane istanbul avcilar | return }
    set %eczanelink1 $replace($2,ı,i,I,i,İ,i,ğ,g,ö,o,Ö,o,Ş,s,ş,s,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g)
    set %eczanelink2 $replace($3-,ı,i,I,i,İ,i,ğ,g,ö,o,Ö,o,Ş,s,ş,s,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g)

    set -eu20 %eczanechan $chan
    set -eu20 %eczanenick $nick
    eczanebak 
  }
}

alias eczanebak { var %rand = $rand(1,999) | sockopen $+(eczane,%rand) qbilisim.net 80 | sockmark $+(eczane,%rand) https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockopen:eczane*:{
  var %k = sockwrite -n $sockname
  %k GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1
  %k Host: $sock($sockname).addr
  %k User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/110.0.0.0 Safari/537.36
  %k $crlf
}

on *:sockread:eczane*:{
  var %eczane | sockread -f %eczane
  if (*flex alert alert-warning text-center* iswm %eczane) {
    if $regex(%eczane,/"d-flex alert alert-warning text-center rounded shadow-sm">(.+)<\/div><tr><td colspan="/i) {
      msg %eczanechan ::::::::::::
    }
   msg  %eczanechan > $remove($htmlfree(%eczane),raquo;)
  }
}

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9)) | return %x }