Hergün farklı farklı yemekler ve kalorileri yazılmaktadır.
Komut:
!yemek
Örnek;
Kod
[13:13]» <Atom> !yemek
[13:13]» <Forbidden> [Gunun Yemegi] Tarhana Corba (150-kcaL) Tavuk Sote (315-kcaL) Garniturlu Pirinc Pilavi (300-kcaL) Kakaolu Puding (335-kcaL)
Kod;
Kod
on $*:text:/^[.!]yemek$/i:#: { if %yemekchan { return } | set -eu10 %yemekchan $chan | nextdatess | yemek }
alias yemek { if $sock(yemek) { .sockclose yemek } | .sockopen yemek $sit 80 }
on *:sockopen:yemek: { $m GET / HTTP/1.0 | $m Host: $sit | $m Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 | $m Accept-Encoding: * | $m $crlf }
on *:sockread:yemek:{
var %yemek
sockread -f %yemek
var %pattern = /"endDate"\:" $+ $nextdate 18\:30\:00","type":1\}, $+ \{"foodName"\:\[(.+)\],"startDate"\:" $+ $bdate $+ /
if $regex(%yemek,%pattern) { msg %yemekchan [Gunun Yemegi] $karaktertemizle($karakterduzelt($regml(1)))) }
}
alias -l m return sockwrite -n $sockname
alias -l sit return yemek.comu.edu.tr
alias -l bdate return $date(yyyy-mm-dd)
alias -l nextdate return $asctime($calc($ctime + %tatil__),yyyy-mm-dd)
alias -l nextdatess { var %ll = $asctime($calc($ctime + 86400),dddd), %zz = set -eu5 % $+ tatil__ | if (%ll == Sunday) { %zz $calc(86400 *2) } | if (%ll == Saturday) { %zz $calc(86400 *3) } | else { %zz 86400 } }
alias -l karakterduzelt return $replacex($$1-,$+($chr(41),"),-kcaL $+ $chr(41) $chr(32),$chr(44),$chr(32),\u00c7,C,\u0130,i,\u00e7,c,\u0131,i,\u015f,s,\u00f6,o,\u011f,g,\u015e,S,\u00fc,u)
alias -l karaktertemizle { return $remove($1-,$chr(34)) }