IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

[ACIKLAMA]
!menu komutuyla günün yemek menüsünü gösterir.
[NOT]
Kanallari kendinize gore duzenlemeyi unutmayiniz.

Kod:

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;,Ö)