on *:text:*:#sohbet,#radyo,#benimmekan,#felsefe,#mirchelp,#mobile: {
  if $regex($1,/[!.]men[uü]$/i)  {
    if %yemekchan {  msg # > $nick , Lutfen daha sonra tekrar deneyiniz. | return }
    set -eu15 %yemekchan $chan | yemek
  }
}
on *:input:#sohbet,#radyo,#benimmekan,#felsefe,#mirchelp,#mobile: {
  if $regex($1,/[!.]men[uü]$/i)  { 
    set -eu15 %yemekchan $chan | yemek
  }
}

alias yemek { var %rand = $rand(1,999) | sockopen $+(yemek,%rand) qbilisim.net 80 | sockmark $+(yemek,%rand) https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockopen:yemek*:{
  var %komut = sockwrite -n $sockname
  %komut GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1
  %komut Host: $sock($sockname).addr
  %komut 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
  %komut $crlf
}

on *:sockread:yemek*:{
  var %y | sockread %y 
  if *<h5 class="widget-title mb-10">Günün Yemeği</h5>* iswm %y { unset %veri_aktar | sockclose yemek* | goto x }
  if *<span class="text-nowrap">*</span>*<span class="text-theme-color-2">|</span>* iswm %y {
    if $regex(%y,/<span class="text-nowrap">(.+)<\/span> <span class="text-theme-color-2">|<\/span>/i) {
      msg %yemekchan > $turkce_kar_cevir($regml(1))
    } 
  }
  :x
}
alias turkce_kar_cevir return $replace($1-,&#x130;,İ,&#xC7;,Ç,&#x15E;,Ş,&#xDC;,Ü,&#xC7;,Ç,&#x11E;,Ğ,&#xD6;,Ö)