IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

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)) }